|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
2.21.横スクロールサンプルプログラム画面ファイル | |||||||||
画面ファイル SDAにて作成
A**************************************************************
A* *
A* 選択画面 *
A* *
A* PROGRAMMER . . . . . KAKEFUDA *
A* CREATION . . . . . . 1995/09/22 *
A* MODIFICATION . . . . *
A* *
A* *
A**************************************************************
A*%%EC
A DSPSIZ(24 80 *DS3)
A ERRSFL
A PRINT
A INDARA
A CA03
A CA09
A CA12
A CA23
A*-------------------------------------*
A R SFL01 SFL
A*%%TS SD 19971013 162553 KAKEFUDA REL-V3R1M0 5763-PW1
A KEEP
A 64 SFLNXTCHG
A H1JNO R H REFFLD(ZZJOBMR/YYJNO GPL/ZZJOBMP)
A YYJOB R O 10 6REFFLD(ZZJOBMR/YYJOB GPL/ZZJOBMP)
A YYUSR R O 10 18REFFLD(ZZJOBMR/YYUSR GPL/ZZJOBMP)
A YYENTD R O 10 30REFFLD(ZZJOBMR/YYENTD GPL/ZZJOBMP)
A YYENTT R O 10 42REFFLD(ZZJOBMR/YYENTT GPL/ZZJOBMP)
A YYELPS R O 10 52REFFLD(ZZJOBMR/YYELPS GPL/ZZJOBMP)
A EDTCDE(3)
A YYELPM R O 10 61REFFLD(ZZJOBMR/YYELPM GPL/ZZJOBMP)
A EDTCDE(3)
A*-------------------------------------*
A R CTL01 SFLCTL(SFL01)
A*%%TS SD 19971013 170446 KAKEFUDA REL-V3R1M0 5763-PW1
A SFLSIZ(0011)
A SFLPAG(0010)
A CA05
A KEEP
A BLINK
A 80 ALARM
A OVERLAY
A PUTOVR
A ROLLUP
A N60 ERASE(SFL01)
A 60 SFLDSP
A 61 SFLDSPCTL
A 62 SFLCLR
A 63 SFLEND(*MORE)
A SFLMODE(&H1MODE)
A SFLCSRRRN(&H1SRRN)
A H1MODE 1A H
A H1SRRN 5S 0H
A H1SRCD 4S 0H SFLRCDNBR(CURSOR)
A 1 9'VIEW 1'
A DSPATR(HI)
A 1 24'ジョブ完了までの経過時間記録'
A DSPATR(HI)
A 1 62'PGMID :'
A V1PGM 10A O 1 70
A 2 2'USER :'
A V1USR 10A O 2 9
A 2 62' DATE :'
A 2 70DATE
A EDTCDE(Y)
A 3 2'JOB :'
A V1JOB 10A O 3 9
A 3 29'START CODE :'
A DSPATR(HI)
A V1JOBC 10A B 3 42
A 3 62' TIME :'
A 3 70TIME
A OVRATR
A 5 2'オプションを入力して、実行キーを+
A 押して下さい。'
A DSPATR(HI)
A COLOR(BLU)
A V1OPN1 78A O 6 2COLOR(BLU)
A OVRDTA
A V1OPN2 78A O 7 2COLOR(BLU)
A OVRDTA
A 9 5'ジョブ'
A DSPATR(HI)
A 9 17'ユーザー'
A DSPATR(HI)
A 9 33'入力日'
A DSPATR(HI)
A 9 43'入力時'
A DSPATR(HI)
A 9 52'経過秒'
A DSPATR(HI)
A 9 64'経過分'
A DSPATR(HI)
A* 92/11/12 13:12:39 KAKEFUDA REL-R03M00 5728-PW1
A*-------------------------------------*
A R FTR01
A*%%TS SD 19950925 154109 KAKEFUDA REL-V3R0M5 5763-PW1
A KEEP
A BLINK
A 80 ALARM
A OVERLAY
A PUTOVR
A V1LINE 78 B 21 2DSPATR(UL)
A V1GDE 78A O 22 2DSPATR(HI)
A OVRDTA
A COLOR(BLU)
A V1MSG# 7A O 23 2DSPATR(HI)
A DSPATR(BL)
A OVRDTA
A V1MSG 70A O 23 10DSPATR(HI)
A DSPATR(BL)
A OVRDTA
A*
A R SFL02 SFL
A*%%TS SD 19971013 162553 KAKEFUDA REL-V3R1M0 5763-PW1
A KEEP
A 64 SFLNXTCHG
A H1JNO R H REFFLD(ZZJOBMR/YYJNO GPL/ZZJOBMP)
A YYJOB R O 10 6REFFLD(ZZJOBMR/YYJOB GPL/ZZJOBMP)
A YYUSR R O 10 18REFFLD(ZZJOBMR/YYUSR GPL/ZZJOBMP)
A YYJOBQ R O 10 30REFFLD(ZZJOBMR/YYJOBQ GPL/ZZJOBMP)
A YYSBJB R O 10 42REFFLD(ZZJOBMR/YYSBJB GPL/ZZJOBMP)
A YYSBUS R O 10 54REFFLD(ZZJOBMR/YYSBUS GPL/ZZJOBMP)
A YYPGM R O 10 66REFFLD(ZZJOBMR/YYPGM GPL/ZZJOBMP)
A*
A R CTL02 SFLCTL(SFL02)
A*%%TS SD 19971013 170446 KAKEFUDA REL-V3R1M0 5763-PW1
A SFLSIZ(0011)
A SFLPAG(0010)
A CA05
A KEEP
A BLINK
A 80 ALARM
A OVERLAY
A PUTOVR
A ROLLUP
A N60 ERASE(SFL02)
A 60 SFLDSP
A 61 SFLDSPCTL
A 62 SFLCLR
A 63 SFLEND(*MORE)
A SFLMODE(&H1MODE)
A SFLCSRRRN(&H1SRRN)
A H1MODE 1A H
A H1SRRN 5S 0H
A H1SRCD 4S 0H SFLRCDNBR(CURSOR)
A 1 9'VIEW 2'
A DSPATR(HI)
A 1 24'ジョブ完了までの経過時間記録'
A DSPATR(HI)
A 1 62'PGMID :'
A V1PGM 10A O 1 70
A 2 2'USER :'
A V1USR 10A O 2 9
A 2 62' DATE :'
A 2 70DATE
A EDTCDE(Y)
A 3 2'JOB :'
A V1JOB 10A O 3 9
A 3 29'START CODE :'
A DSPATR(HI)
A V1JOBC 10A B 3 42
A 3 62' TIME :'
A 3 70TIME
A OVRATR
A 5 2'オプションを入力して、実行キーを+
A 押して下さい。'
A DSPATR(HI)
A COLOR(BLU)
A V1OPN1 78A O 6 2COLOR(BLU)
A OVRDTA
A V1OPN2 78A O 7 2COLOR(BLU)
A OVRDTA
A 9 5'ジョブ'
A DSPATR(HI)
A 9 17'ユーザー'
A DSPATR(HI)
A 9 30'JOBQ'
A DSPATR(HI)
A 9 42'FROM JOB'
A DSPATR(HI)
A 9 54'FROM USER'
A DSPATR(HI)
A 9 66'PGM'
A DSPATR(HI)
A*
A R FTR02
A*%%TS SD 19971013 162553 KAKEFUDA REL-V3R1M0 5763-PW1
A KEEP
A BLINK
A 80 ALARM
A OVERLAY
A PUTOVR
A V1LINE 78A B 21 2DSPATR(UL)
A V1GDE 78A O 22 2DSPATR(HI)
A OVRDTA
A COLOR(BLU)
A V1MSG# 7A O 23 2DSPATR(HI)
A DSPATR(BL)
A OVRDTA
A V1MSG 70A O 23 10DSPATR(HI)
A DSPATR(BL)
A OVRDTA
|
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
