これは、READCとSFLNXTCHGを理解するためのものです。
A****************************************************************
A* DISPLAY FILE : CSU010D *
A* *
A* PROGRAMMER - T.KAKEFUDA *
A* CREATION - XX.XX.XX *
A* MODIFIED - XX.XX.XX BY XXXXXXXXXXXX *
A* *
A****************************************************************
A DSPSIZ(24 80 *DS3)
A CHGINPDFT(CS UL)
A PRINT
A INDARA
A CA03 CA05
A R SFL01 SFL
A* 91/09/18 10:21:23 KAKEFUDA REL-R03M00 5728-PW1
A*-------------------------------------*
A KEEP
A 65 SFLNXTCHG
A OPT 1 B 8 8 DSPATR(PC)
A SEQ 2 0O 8 11 EDTCDE(4)
A LOOP1 3 0O 8 20 EDTCDE(4)
A LOOP2 3 0O 8 31 EDTCDE(4)
A LOOP3 3 0O 8 42 EDTCDE(4)
A LOOP4 3 0O 8 53 EDTCDE(4)
A LOOP5 3 0O 8 64 EDTCDE(4)
A R CTL01 SFLCTL(SFL01)
A* 91/09/18 10:21:23 KAKEFUDA REL-R03M00 5728-PW1
A*-------------------------------------*
A SFLSIZ(0016)
A SFLPAG(0010)
A ROLLUP(25)
A KEEP
A BLINK
A OVERLAY
A PUTOVR
A 60 SFLDSP
A 61 SFLDSPCTL
A 62 SFLCLR
A V1SRCD 4S 0H SFLRCDNBR
A 1 3'日付:'
A 1 11DATE
A EDTCDE(Y)
A 1 28'【READC 処理検査】'
A DSPATR(HI)
A 1 62'時間:'
A 1 70TIME
A OVRATR
A 4 10'SFLNXTCHG ON ( 1:ON 0:OFF)'
A SFLNXT 1 B 4 40 VALUES('1' '0')
A 7 11'SEQ '
A DSPATR(HI)
A DSPATR(UL)
A 7 17'DO LOOP 1'
A DSPATR(UL)
A DSPATR(HI)
A 7 28'DO LOOP 2'
A DSPATR(UL)
A DSPATR(HI)
A 7 39'DO LOOP 3'
A DSPATR(UL)
A DSPATR(HI)
A 7 50'DO LOOP 4'
A DSPATR(UL)
A DSPATR(HI)
A 7 61'DO LOOP 5'
A DSPATR(UL)
A DSPATR(HI)
A R FTR01
A* 91/09/18 10:21:23 KAKEFUDA REL-R03M00 5728-PW1
A*-------------------------------------*
A KEEP
A BLINK
A 80 ALARM
A OVERLAY
A PUTOVR
A 22 2'F3 :終了'
A DSPATR(HI)
A +2'F5 :再表示'
A DSPATR(HI)
|