|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
2.4.サンプル共通使用物理ファイルソース | |||||||||
物理ファイル ZZJOBMP
A****************************************************
A* *
A* 投入ジョブ履歴 *
A* *
A* PROGRAMMER . . . . . KAKEFUDA *
A* CREATION . . . . . . 1996/12/18 *
A* MODIFICATION . . . . *
A* *
A* *
A****************************************************
A*------------------------------------*
A R ZZJOBMR
A*------------------------------------*
A YYJOB 10 COLHDG('ジョブ')
A YYUSR 10 COLHDG('ユーザー')
A YYJNO 6 COLHDG('ジョブ番号')
A*
A YYENTD 8 0 COLHDG('ジョブ入力日付')
A EDTWRD(' / / ')
A YYENTT 6 0 COLHDG('ジョブ入力時間')
A EDTWRD('0 : : ')
A*
A YYJBSD 8 0 COLHDG('活動開始日付')
A EDTWRD(' / / ')
A YYJBST 6 0 COLHDG('活動開始時間')
A EDTWRD('0 : : ')
A*
A YYJBED 8 0 COLHDG('活動終了日付')
A EDTWRD(' / / ')
A YYJBET 6 0 COLHDG('活動終了時間')
A EDTWRD('0 : : ')
A*
A YYELPS 7 0 COLHDG('経過秒')
A YYELPM 9 2 COLHDG('経過分')
A YYELPH 9 2 COLHDG('経過時間')
A*
A YYJOBQ 10 COLHDG('ジョブ待ち行列名')
A YYJBQL 10 COLHDG('JOBQライブラリー名')
A YYSBJB 10 COLHDG('実行依頼元' 'ジョブ')
A YYSBUS 10 COLHDG('実行依頼元' 'ユーザー')
A YYSBJ# 6 COLHDG('実行依頼元' 'ジョブ')
A*
A YYPGM 10 COLHDG('プログラム')
A TEXT('自分でセット')
A YYTEXT 50 COLHDG('摘要')
A TEXT('自分でセット')
論理ファイル ZZJOBML1 A***************************************************
A* *
A* 投入ジョブ履歴 *
A* *
A* PROGRAMMER . . . . . KAKEFUDA *
A* CREATION . . . . . . 1996/12/18 *
A* MODIFICATION . . . . *
A* *
A* *
A***************************************************
A*------------------------------------*
A R ZZJOBMR PFILE(ZZJOBMP)
A*------------------------------------*
A K YYJOB
A K YYUSR
|
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
