画面ファイル 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 CA12
A CA23
A*-------------------------------------*
A R SFL01 SFL
A*%%TS SD 19971013 145502 KAKEFUDA REL-V3R1M0 5763-PW1
A KEEP
A 64 SFLNXTCHG
A H1JNO R H REFFLD(ZZJOBMR/YYJNO GPL/ZZJOBMP)
A S1OPT 2A B 10 3
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 170308 KAKEFUDA REL-V3R1M0 5763-PW1
A → SFLSIZ(0100)
A → SFLPAG(0010)
A CA05
※ ROLL UP/DOWNはOS400が勝手にやってくれるので定義不可!
A KEEP
A BLINK
A 80 ALARM
A OVERLAY
A PUTOVR
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 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 2'OPT'
A DSPATR(HI)
A 9 6'ジョブ'
A DSPATR(HI)
A 9 17'ユーザー'
A DSPATR(HI)
A 9 29'入力日'
A DSPATR(HI)
A 9 41'入力時'
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
|