- 论坛徽章:
- 0
|
WINDOW的DSPF和SUBFILE的DSPF是不同的...
其代码如下 :
SUBFILE的DSPF代码..
A*%%TS SD 20080606 091517 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(CF0
A******************************************************************
A R DSPR1
A*%%TS SD 20080325 084856 EDPLJL REL-V5R4M0 5722-WDS
A CA03
A CA12
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 11 8'查詢日期:'
A 11 20'自'
A R1FDAT 8Y 0B 11 26
A 33 DSPATR(PC)
A 33 DSPATR(RI)
A OVRDTA
A EDTWRD(' / / ')
A 11 38'TO'
A R1TDAT 8Y 0B 11 43
A 34 DSPATR(PC)
A 34 DSPATR(RI)
A OVRDTA
A EDTWRD(' / / ')
A 14 8'上鎖狀態:'
A*
A R1LOCK 1A B 14 21VALUES('A' 'Y' 'N')
A 14 25'( A-所有 Y-已上鎖 N-未上鎖)-
A '
A COLOR(WHT)
A 22 2'F3=退出'
A COLOR(BLU)
A Z#MSG1 70O O 23 2COLOR(WHT)
A OVRDTA
A 11 57'(YMD)'
A COLOR(WHT)
A*****************************************************************
A R DSPS1 SFL
A*%%TS SD 20080605 145850 EDPLJL REL-V5R4M0 5722-WDS
A 70 SFLNXTCHG
A WSEL 1 O 7 76
A S1DATE 8Y 0O 7 21EDTWRD(' / / ')
A S1SEL 1A B 7 3VALUES('X' ' ')
A S1LOCK 10O O 7 35
A S1PORD 8Y 0O 7 9EDTCDE(Z)
A S1DEPT 6 B 7 52
A 60 DSPATR(PR)
A 7 59'+'
A 7 74'+'
A S1NAME 4 B 7 69
A 60 DSPATR(PR)
A*****************************************************************
A*
A R DSPC1 SFLCTL(DSPS1)
A*%%TS SD 20080605 145850 EDPLJL REL-V5R4M0 5722-WDS
A SFLSIZ(0200)
A SFLPAG(0014)
A SFLCSRRRN(&CSRRN1)
A RTNCSRLOC(&RCDNAM &FNAM)
A CF04
A CF06
A CA03
A CA12
A OVERLAY
A PUTOVR
A ASSUME
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 RCDNAM 10 H
A FNAM 10 H
A 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 21' 日期 '
A COLOR(WHT)
A DSPATR(UL)
A 6 2'SEL'
A COLOR(WHT)
A DSPATR(UL)
A 4 2'SEL: X=選擇, 空=不選擇'
A COLOR(BLU)
A 6 35'上鎖狀態'
A DSPATR(UL)
A COLOR(WHT)
A 6 6' PO#.號碼'
A COLOR(WHT)
A DSPATR(UL)
A 2 31'PO#.上鎖程式'
A COLOR(BLU)
A 6 49'部門代號'
A DSPATR(UL)
A COLOR(WHT)
A 6 63'審批人代號'
A DSPATR(UL)
A COLOR(WHT)
A*
A*****************************************************************
A R DSPK1
A*%%TS SD 20080325 083552 EDPLJL REL-V5R4M0 5722-WDS
A OVERLAY
A PUTOVR
A 22 2'F3=退出'
A COLOR(BLU)
A 22 13'F6=上鎖'
A COLOR(BLU)
A 22 24'F7=上翻'
A COLOR(BLU)
A 22 35'F8=下翻'
A COLOR(BLU)
A 22 46'F12=返回'
A COLOR(BLU)
A Z#MSG2 70O O 23 2COLOR(WHT)
A OVRDTA
WINDOW的DSPF代码:
A*%%TS SD 20070913 084938 EDPLJL REL-V5R3M0 5722-WDS
A*****************************************************************
A* *
A* DISPLAY FILE ID - WINDEPTFM *
A* DISPLAY FILE NAME - DEPTERMENT WINDOW - 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(CF0
A*****************************************************************
A R DSPS2 SFL
A*%%TS SD 20080606 091517 EDPLJL REL-V5R4M0 5722-WDS
A W#ACT 2A I 6 2
A W#DES2 30A O 6 18
A W#DEPT 6A O 6 8
A*****************************************************************
A R DSPC2 SFLCTL(DSPS2)
A*%%TS SD 20080606 091517 EDPLJL REL-V5R4M0 5722-WDS
A SFLSIZ(9999)
A SFLPAG(0005)
A WINDOW(9 13 13 50 *NORSTCSR)
A WDWBORDER((*COLOR BLU) (*DSPATR RI)-
A (*CHAR ' '))
A CA03
A CA12
A BLINK
A KEEP
A OVERLAY
A PUTOVR
A ASSUME
A 92 SFLDSP
A 93 SFLDSPCTL
A 94 SFLCLR
A 69 SFLEND(*MORE)
A RRNF2 4S 0H SFLRCDNBR
A 2 1'行動'
A 2 9'1=選擇'
A 2 21'8=定位於'
A 3 2'ACT'
A COLOR(BLU)
A Q#ACT 2A B 4 2
A 1 19'部門選擇'
A COLOR(BLU)
A 3 7'部門編號'
A COLOR(BLU)
A Q#DEPT 6A B 4 8
A 3 22'部門名稱'
A COLOR(BLU)
A*****************************************************************
A R DSPK2
A*%%TS SD 20070820 095057 EDPLJL REL-V5R3M0 5722-WDS
A WINDOW(DSPC2)
A KEEP
A 12 2'F3=退出'
A COLOR(BLU)
A 12 13'F7=上翻'
A COLOR(BLU)
A 12 23'F8=下翻'
A COLOR(BLU)
A 12 33'F12=取消'
A COLOR(BLU)
加了ASSUME编译报错.. |
|
免费注册
楼主: goodbilly
发表于 2008-06-11 14:04
