A*%%TS SD 20080923 105510 EDPLJL REL-V5R4M0 5722-WDS
A*****************************************************************
A* *
A* DISPLAY FILE ID - PURU02FM *
A* DISPLAY FILE NAME - PO#. LOCK MAINTENANCE - DSPF
A* DATE WRITTEN - 25 MAY.2008 *
A* WRITED BY - EDPLJL *
A* *
A* BMR# DATE DESCRIPTION *
A* ------ -------------- ------------------------------ *
A* 3079 25 MAY. 2008 PROGRAM CREATION *
A* *
A*****************************************************************
A*%%EC
A DSPSIZ(24 80 *DS3)
A PRINT
A ALTPAGEUP(CF07)
A ALTPAGEDWN(CF08)
A******************************************************************
A R DSPR1
A*%%TS SD 20080923 092519 EDPLJL REL-V5R4M0 5722-WDS
A CA03
A OVERLAY
A PUTOVR
A BLINK
A TEXT('Single Screen')
A 1 2'PURU02'
A CONAME 40A O 1 18COLOR(WHT)
A WSID 10A O 1 62
A 1 73DATE
A EDTCDE(Y)
A 2 2'SCRN-1'
A 2 31'PO#.上?程式'
A COLOR(BLU)
A 2 62USER
A 2 73TIME
A 8 9'PO ??:'
A 8 20'自'
A R1FPO 8Y 0B 8 26EDTCDE(Z)
A 31 DSPATR(PC)
A 31 DSPATR(RI)
A OVRDTA
A 8 38'TO'
A R1TPO 8Y 0B 8 43EDTCDE(Z)
A 32 DSPATR(PC)
A 32 DSPATR(RI)
A OVRDTA
A 10 8'查?日期:'
A 10 20'自'
A R1FDAT 8Y 0B 10 26
A 33 DSPATR(PC)
A 33 DSPATR(RI)
A OVRDTA
A EDTWRD(' / / ')
A 10 38'TO'
A R1TDAT 8Y 0B 10 43
A 34 DSPATR(PC)
A 34 DSPATR(RI)
A OVRDTA
A EDTWRD(' / / ')
A 12 8'上???:'
A*
A R1LOCK 1A B 12 21VALUES('A' 'Y' 'N')
A 12 25'( A-所有 Y-已上? N-未上?)-
A '
A COLOR(WHT)
ML01+A 14 8'?批??:'
| A*
| A R1APPR 1A B 14 21VALUES('Y' ' ')
| A 14 25'( Y-已?批空-未?批)'
ML01+A COLOR(WHT)
A 22 2'F3=退出'
A COLOR(BLU)
A Z#MSG1 70O O 23 2COLOR(WHT)
A OVRDTA
A 10 57'(YMD)'
A COLOR(WHT)
A*****************************************************************
A R DSPS1 SFL
A*%%TS SD 20080923 105510 EDPLJL REL-V5R4M0 5722-WDS
A 70 SFLNXTCHG
A S1PROS 1A H
A S1ADMS 1A H
A S1SPES 1A H
A S1PURS 1A H
A S1PRON 10A H
A S1ADMN 10A H
A S1SPEN 10A H
A S1PURN 10A H
A S1SEL 1A B 7 3VALUES('X' ' ')
A S1PORD 8Y 0O 7 7EDTCDE(Z)
A S1DATE 8Y 0O 7 18EDTWRD(' / / ')
A S1LOCK 10O O 7 31
A S1SEL1 1A O 7 47COLOR(RED)
A S1PROA 4A O 7 49
A 60 COLOR(RED)
A DSPATR(UL)
A S1SEL2 1A O 7 56COLOR(RED)
A S1ADMA 4O O 7 58
A 61 COLOR(RED)
A DSPATR(UL)
A S1SEL3 1A O 7 65COLOR(RED)
A S1SPEA 4A O 7 67
A 58 COLOR(RED)
A DSPATR(UL)
A S1SEL4 1A O 7 73COLOR(RED)
A S1PURA 4A O 7 75
A 59 COLOR(RED)
A DSPATR(UL)
A S1PROD 75A O 8 5COLOR(WHT)
A DSPATR(UL)
A S1ADMD 75A O 9 5COLOR(WHT)
A DSPATR(UL)
A S1SPED 75A O 10 5COLOR(WHT)
A DSPATR(UL)
A S1PURD 75A O 11 5COLOR(WHT)
A DSPATR(UL)
A*****************************************************************
A*
A R DSPC1 SFLCTL(DSPS1)
A*%%TS SD 20080922 085652 EDPZCH REL-V5R4M0 5722-WDS
A SFLSIZ(0200)
A SFLPAG(0003)
A SFLDROP(CF11)
A SFLCSRRRN(&CSRRN1)
A CSRLOC(XROW XCOL)
A RTNCSRLOC(&RCDNAM &FNAM)
A CA03
A CF04
A CF06
A OVERLAY
A PUTOVR
A BLINK
A 62 SFLDSP
A 63 SFLDSPCTL
A 64 SFLCLR
A 69 SFLEND(*MORE)
A RRNF1 4S 0H SFLRCDNBR
A CSRRN1 5S 0H
A XROW 3S 0H
A XCOL 3S 0H
A RCDNAM 10A H
A FNAM 10A H TEXT('Single Screen')
A 1 2'PURU02'
A 2 62USER
A 1 73DATE
A EDTCDE(Y)
A WSID 10A O 1 62
A 2 73TIME
A CONAME 40A O 1 18COLOR(WHT)
A 2 2'SCRN-2'
A 6 26' 日期 '
A COLOR(WHT)
A DSPATR(UL)
A*
A 4 2'SEL: X=??, 空=不??'
A COLOR(BLU)
A 5 46'生?部'
A COLOR(WHT)
A 5 55'行政部'
A COLOR(WHT)
A 5 64'特?'
A COLOR(WHT)
A 5 73'??'
A COLOR(WHT)
A 6 2'SEL'
A COLOR(WHT)
A DSPATR(UL)
A 6 6' PO??'
A COLOR(WHT)
A DSPATR(UL)
A 6 18' 日期 '
A COLOR(WHT)
A DSPATR(UL)
A 6 31'上???'
A DSPATR(UL)
A COLOR(WHT)
A 6 46'?批人'
A DSPATR(UL)
A COLOR(WHT)
A 6 55'?批人'
A DSPATR(UL)
A COLOR(WHT)
A 6 64'?批人'
A DSPATR(UL)
A COLOR(WHT)
A 6 73'?理'
A DSPATR(UL)
A COLOR(WHT)
A 5 1'注: *表示已?批'
A COLOR(RED)
A 5 21', #不批准'
A COLOR(RED)
A*
A*****************************************************************
A R DSPK1
A*%%TS SD 20080923 105510 EDPLJL REL-V5R4M0 5722-WDS
A OVERLAY
A PUTOVR
A 23 2'F3=退出'
A COLOR(BLU)
A 66 23 12'F4=提示'
A COLOR(BLU)
A 66 23 23'F6=上?'
A COLOR(BLU)
A 66 23 33'F7=上翻'
A COLOR(BLU)
A 66 23 43'F8=下翻'
A COLOR(BLU)
A Z#MSG2 70O O 24 2COLOR(WHT)
A OVRDTA
A 23 54'F11=折/?'
A COLOR(BLU)
阅读(898) | 评论(0) | 转发(0) |
