这个是显示文件
SEU==> TSDA04
FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
*************** Beginning of data *************************************
*************** Feigme H.Guo*************************************
0000.10 A*%%TS SD 20070309 142257 DHUG REL-V5R3M0 5722-WDS
0000.20 A*%%EC
0000.30 A DSPSIZ(24 80 *DS3)
0000.40 A CF03(03 'EXIT')
0000.50 A CF12(12 'CANCEL')
0000.60 A R SCD01
0000.70 A*%%TS SD 20070228 180446 DHUG REL-V5R3M0 5722-WDS
0000.80 A 1 3'<SCD01>'
0000.90 A COLOR(BLU)
0001.00 A 1 35'TEST SDA'
0001.10 A DSPATR(HI)
0001.20 A 1 70DATE
0001.30 A EDTCDE(Y)
0001.40 A 2 68TIME
0001.50 A 3 55USER
0001.60 A 3 66SYSNAME
0001.70 A 3 3'NOTE:'
0001.80 A DSPATR(BL)
0001.90 A 5 3'NAME:'
0002.00 A DSPATR(HI)
0002.10 A NAME01 8A B 5 10
0002.20 A 31 DSPATR(RI)
0002.30 A 31 DSPATR(PC)
0002.40 A 6 3'AGE :'
0002.50 A DSPATR(HI)
0002.60 A 2 61'TIME:'
0002.70 A COLOR(BLU)
0002.80 A 1 63'DATE:'
0002.90 A COLOR(BLU)
0003.00 A AGE01 2S 0B 6 10
0003.10 A 32 DSPATR(RI)
0003.20 A 32 DSPATR(PC)
0003.30 A 7 3'ADDRESS:'
0003.40 A DSPATR(HI)
0003.50 A ADDR01 18A B 7 14
0003.60 A 33 DSPATR(RI)
0003.70 A 33 DSPATR(PC)
0003.80 A 23 3'F03=EXIT'
0003.90 A DSPATR(BL)
0004.00 A COLOR(BLU)
0004.10 A 23 18'F12=CANCEL'
0004.20 A COLOR(BLU)
0004.30 A NOTE 24A O 3 10
0004.40 A*
0004.50 A R SCD011
0004.60 A*%%TS SD 20070228 180446 DHUG REL-V5R3M0 5722-WDS
0004.70 A 1 3'<SCD011>'
0004.80 A COLOR(BLU)
0004.90 A 1 35'TEST SDA'
0005.00 A DSPATR(HI)
0005.10 A 1 70DATE
0005.20 A EDTCDE(Y)
0005.30 A 2 68TIME
0005.40 A 3 55USER
0005.50 A 3 66SYSNAME
0005.60 A 3 3'NOTE:'
0005.70 A DSPATR(BL)
0005.80 A 5 3'NAME:'
0005.90 A DSPATR(HI)
0006.00 A NAME01 8A O 5 10
0006.10 A 6 3'AGE :'
0006.20 A DSPATR(HI)
0006.30 A 2 61'TIME:'
0006.40 A COLOR(BLU)
0006.50 A 1 63'DATE:'
0006.60 A COLOR(BLU)
0006.70 A AGE01 2S 0O 6 10
0006.80 A 7 3'ADDRESS:'
0006.90 A DSPATR(HI)
0007.00 A ADDR01 18A O 7 14
0007.10 A 23 3'F03=EXIT'
0007.20 A DSPATR(BL)
0007.30 A COLOR(BLU)
0007.40 A 23 18'F12=CANCEL'
0007.50 A COLOR(BLU)
0007.60 A NOTE 24A O 3 10
0007.70 *
0007.80 A R SCD00
0007.90 A*%%TS SD 20070228 134617 DHUG REL-V5R3M0 5722-WDS
0008.00 A 1 3'<SCD00>'
0008.10 A COLOR(BLU)
0008.20 A 1 11USER
0008.30 A DSPATR(RI)
0008.40 A 1 34'TEST SDA'
0008.50 A DSPATR(HI)
0008.60 A 1 66DATE
0008.70 A EDTCDE(Y)
0008.80 A 2 63TIME
0008.90 A 3 3'NOTE:'
0009.00 A COLOR(RED)
0009.10 A 6 11'SELECT:'
0009.20 A 6 25'(1=NEW 2=SELECT 3=VIEW
0009.30 A ELETE)'
0009.40 A 22 4'F3=EXIT'
0009.50 A COLOR(BLU)
0009.60 A 22 16'F12=CANCEL'
0009.70 A COLOR(BLU)
0009.80 A NOTE 24A O 3 10
0009.90 A SLID 1Y 0I 6 20
0010.00 A 30 DSPATR(RI)
0010.10 A DSPATR(PC)
0010.20 A DSPATR(CS)
0010.30 A R SCD02
0010.40 A*%%TS SD 20070301 135051 DHUG REL-V5R3M0 5722-WDS
0010.50 A CF06(06 'LAST')
0010.60 A CF07(07 'NEXT')
0010.70 A 1 3'<SCD02>'
0010.80 A COLOR(BLU)
0010.90 A 1 11USER
0011.00 A DSPATR(RI)
0011.10 A 1 37'TEST SDA'
0011.20 A DSPATR(HI)
0011.30 A 1 68DATE
0011.40 A EDTCDE(Y)
0011.50 A 2 65TIME
0011.60 A 3 4'NOTE:'
0011.70 A COLOR(RED)
0011.80 A NOTE 24A O 3 11
0011.90 A 5 4'NAME:'
0012.00 A OP 8A I 5 12
0012.10 A 7 12'op'
0012.20 A DSPATR(HI)
0012.30 A 7 23'NAME'
0012.40 A DSPATR(HI)
0012.50 A 7 32'AGE'
0012.60 A DSPATR(HI)
0012.70 A 7 46'ADDRESS'
0012.80 A DSPATR(HI)
0012.90 A OP1 1S 0I 9 12DSPATR(UL)
0013.00 A NAME02 8A O 9 21
0013.10 A AGE02 2S 0O 9 32
0013.20 A ADDR02 18A O 9 43
0013.30 A 22 5'F3=EXIT'
0013.40 A COLOR(BLU)
0013.50 A 22 19'F12=CANCEL'
0013.60 A COLOR(BLU)
0013.70 A 4 30'4=delete'
0013.80 A COLOR(BLU)
0013.90 A 22 36'F06=LAST'
0014.00 A COLOR(BLU)
0014.10 A 22 51'F07=NEXT'
0014.20 A COLOR(BLU)
0014.30 A*-------------------------
0014.40 A* CHGINPDFT(CS)
0014.50 A* PRINT(QSYSPRT)
0014.60 A* INDARA
0014.70 A R HEAD
0014.80 A*%%TS SD 20070309 110451 DHUG REL-V5R3M0 5722-WDS
0014.90 A OVERLAY
0015.00 A 2 67TIME
0015.10 A DSPATR(HI)
0015.20 A 1 28'CUSTOMER FILE SEARCH'
0015.30 A DSPATR(HI)
0015.40 A DSPATR(RI)
0015.50 A 1 70DATE
0015.60 A EDTCDE(Y)
0015.70 A DSPATR(HI)
0015.80 A 1 3'<SCD03>'
0015.90 A DSPATR(HI)
0016.00 A 1 11USER
0016.10 A DSPATR(RI)
0016.20 A R FOOT1
0016.30 A 23 6'ENTER - CONTINUE'
0016.40 A DSPATR(HI)
0016.50 A 23 29'F3 = EXIT'
0016.60 A DSPATR(HI)
0016.70 A 23 40'F12 = CANCEL'
0016.80 A DSPATR(HI)
0016.90 A R PROMPT
0017.00 A OVERLAY
0017.10 A 4 4'DATA VIEW'
0017.20 A DSPATR(HI)
0017.30 A R SUBFILE
0017.40 A*%%TS SD 20070309 134347 DHUG REL-V5R3M0 5722-WDS
0017.50 A CHANGE(99 'FIFLE')
0017.60 A SFL
0017.70 A OP3 1 B 9 5DSPATR(CS)
0017.80 A VALUES(' ' 'X')
0017.90 A ID03 3S 0O 9 12
0018.00 A NAME03 8A O 9 21
0018.10 A AGE03 2S 0O 9 36
0018.20 A ADDR03 18A O 9 45
0018.30 A R SUBCTL SFLCTL(SUBFILE)
0018.40 A*%%TS SD 20070309 142257 DHUG REL-V5R3M0 5722-WDS
0018.50 A SFLSIZ(9999)
0018.60 A SFLPAG(0005)
0018.70 A 55 SFLCLR
0018.80 A N55 SFLDSPCTL
0018.90 A N55 SFLDSP
0019.00 A 44 SFLEND(*MORE)
0019.10 A OVERLAY
0019.20 A CA04(04 'RESTART')
0019.30 A 7 21'NAME'
0019.40 A DSPATR(HI)
0019.50 A DSPATR(UL)
0019.60 A 7 36'AGE'
0019.70 A DSPATR(HI)
0019.80 A DSPATR(UL)
0019.90 A 7 45'ADDRESS'
0020.00 A DSPATR(HI)
0020.10 A DSPATR(UL)
0020.20 A 5 5'VEIW ALL RECORDS :'
0020.30 A COLOR(BLU)
0020.40 A 7 12'ID'
0020.50 A DSPATR(UL)
0020.60 A DSPATR(HI)
0020.70 A 7 5'OP'
0020.80 A DSPATR(UL)
0020.90 A DSPATR(HI)
0021.00 A 5 31'TOTAL('
0021.10 A NUMB 3S 0O 5 39DSPATR(HI)
0021.20 A 5 44')'
0021.30 A 8 5'X'
0021.40 A COLOR(RED)
0021.50 A R SCD04
0021.60 A*%%TS SD 20070309 113737 DHUG REL-V5R3M0 5722-WDS
0021.70 A 1 3'<SCD04>'
0021.80 A 1 11USER
0021.90 A DSPATR(RI)
0022.00 A 1 36'DETAIL ABOUT'
0022.10 A DSPATR(HI)
0022.20 A 1 69TIME
0022.30 A 2 65DATE
0022.40 A EDTCDE(Y)
0022.50 A 5 11'TETAIL MESSAGE:'
0022.60 A COLOR(BLU)
0022.70 A 23 3'F03 = EXIT '
0022.80 A COLOR(BLU)
0022.90 A 23 21'F12 = CANCEL'
0023.00 A COLOR(BLU)
0023.10 A 23 40'ENTER = CONTINUE'
0023.20 A COLOR(BLU)
0023.30 A 7 18'NAME'
0023.40 A 9 18'AGE'
0023.50 A 11 18'ADDRESS'
0023.60 A NAME04 8 O 7 33DSPATR(HI)
0023.70 A AGE04 2 0O 9 33DSPATR(HI)
0023.80 A ADDR04 18 O 11 33DSPATR(HI)
****************** End of data *********************
扫一扫
3569
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
