用DSPF制作界面

A************************************************************************
A DSPSIZ(27 132 *DS3)
A CHGINPDFT
A CF24(24)
A ALTHELP(CA01)
A ENTFLDATR((*DSPATR RI))
A HELP
A MOUBTN(*URP CA12)
A PRINT
A**************************************************************************
A R MSGSFL SFL
A SFLMSGRCD(27)
A MSGKEY SFLMSGKEY
A PSPGM SFLPGMQ
A**************************************************************************
A R MSGCTL SFLCTL(MSGSFL)
A OVERLAY
A N29 SFLDSP SFLDSPCTL SFLINZ SFLEND
A SFLSIZ(2) SFLPAG(1)
A PSPGM SFLPGMQ
A**************************************************************************
A DSPSIZ(27 132 *DS3)
A CHGINPDFT
A CF24(24)
A ALTHELP(CA01)
A ENTFLDATR((*DSPATR RI))
A HELP
A MOUBTN(*URP CA12)
A PRINT
A******************************************************************
A R MSGSFL SFL
A SFLMSGRCD(27)
A MSGKEY SFLMSGKEY
A PSPGM SFLPGMQ
A*************************************************************************
A R MSGCTL SFLCTL(MSGSFL)
A OVERLAY
A N29 SFLDSP SFLDSPCTL SFLINZ SFLEND
A SFLSIZ(2) SFLPAG(1)
A PSPGM SFLPGMQ
A**************************************************************************
A R SCR01
A OVERLAY
A CSRINPONLY
A CA12(12 'CANCEL')
A CF04(04 'LOOKUP')
A RTNCSRLOC(&R1 &F1)
A RTNCSRLOC(*WINDOW &ROW &COL)
A 28 CSRLOC(ROW COL)
A ROW 3S 0H
A COL 3S 0H
A R1 10A H
A F1 10A H
A MYDATE 8Y 0O 1 2COLOR(WHT)
A EDTWRD('0 . . ')
A TITLE1 50A O 1 42COLOR(WHT)
A TITLE2 50A O 2 42COLOR(WHT)
A PSPGM 10A O 2 2COLOR(WHT)
A 2123USER
A DSPATR(RI)
A COLOR(GRN)
A MYTIME 6Y 0O 1123COLOR(WHT)
A EDTWRD('0 : : ')
A DSP101 20A O 4 2COLOR(WHT)
A MSGID(DSP 0169 MESSAGE)
A DSP102 20A O 5 2COLOR(WHT)
A MSGID(DSP 0313 MESSAGE)
A DSP104 20A O 6 2MSGID(DSP 0301 MESSAGE)
A COLOR(BLU)
A DSP106 20A O 7 2MSGID(DSP 0188 MESSAGE)
A COLOR(BLU)
A X1INDF 8Y 0B 4 23COLOR(PNK)
A 30 DSPATR(PC)
A DSPATR(UL)
A EDTWRD(' / / ')
A EDTMSK(' & & ')
A 4 34'-'
A COLOR(WHT)
A X1INDT 8Y 0B 4 36COLOR(PNK)
A 31 DSPATR(PC)
A DSPATR(UL)
A EDTWRD(' / / ')
A EDTMSK(' & & ')
A X1BRD 10A B 5 23DSPATR(UL)
A COLOR(TRQ)
A X1RMC 40A B 6 23DSPATR(UL)
A COLOR(TRQ)
A X1LOC 6A B 7 23DSPATR(UL)
A COLOR(PNK)
A 32 DSPATR(PC)
A**************************************************************************
A R CMD01
A DSP119 128A O 26 3COLOR(WHT)
A MSGID(CMD 0015 MESSAGE)
A**************************************************************************
A R SFL01 SFL
A X2BRD 10A O 6 2
A X2TLO 3Y 0O 6 16EDTWRD(' 0 ')
A X2TQT 8Y 2O 6 24EDTWRD(' , 0 . ')
A X2PLO 3Y 0O 6 38EDTWRD(' 0 ')
A X2PQT 8Y 2O 6 46EDTWRD(' , 0 . ')
A X2PRA 5Y 2O 6 59EDTWRD(' 0 . %')
A X2CLO 3Y 0O 6 70EDTWRD(' 0 ')
A X2CQT 8Y 2O 6 79EDTWRD(' , 0 . ')
A X2CRA 5Y 2O 6 92EDTWRD(' 0 . %')
A X2RLO 3Y 0O 6104EDTWRD(' 0 ')
A X2RQT 8Y 2O 6112EDTWRD(' , 0 . ')
A X2RRA 5Y 2O 6124EDTWRD(' 0 . %')
A**************************************************************************
A R SFL01CTL SFLCTL(SFL01)
A SFLSIZ(9999)
A SFLPAG(0019)
A CA12(12 'CENCEL')
A CF02(02 'PRINT')
A CF03(03 'EXL')
A OVERLAY
A SFLCSRRRN(&C1)
A 81 SFLDSP
A 82 SFLDSPCTL
A 83 SFLCLR
A 84 SFLEND
A C1 5S 0H
A C2 4S 0H SFLRCDNBR(CURSOR)
A MYDATE 8Y 0O 1 2COLOR(WHT)
A EDTWRD('0 . . ')
A TITLE1 50A O 1 42COLOR(WHT)
A TITLE2 50A O 2 42COLOR(WHT)
A PSPGM 10A O 2 2COLOR(WHT)
A 2123USER
A DSPATR(RI)
A COLOR(GRN)
A MYTIME 6Y 0O 1123COLOR(WHT)
A EDTWRD('0 : : ')
A DSP210 21A O 4 13DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0788 MESSAGE)
A DSP220 32A O 4 35DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0789 MESSAGE)
A DSP230 32A O 4 68DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0790 MESSAGE)
A DSP240 32A O 4101DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0253 MESSAGE)
A DSP211 10A O 5 13DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0792 MESSAGE)
A DSP212 10A O 5 24DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0042 MESSAGE)
A DSP221 10A O 5 35DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0792 MESSAGE)
A DSP222 10A O 5 46DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0042 MESSAGE)
A DSP223 10A O 5 57DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0791 MESSAGE)
A DSP231 10A O 5 68DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0792 MESSAGE)
A DSP232 10A O 5 79DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0042 MESSAGE)
A DSP233 10A O 5 90DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0791 MESSAGE)
A DSP241 10A O 5101DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0792 MESSAGE)
A DSP242 10A O 5112DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0042 MESSAGE)
A DSP243 10A O 5123DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0791 MESSAGE)
A DSP205 10A O 5 2DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0015 MESSAGE)
A**************************************************************************
A R CMD02
A DSP299 128O O 26 2MSGID(CMD 0093 MESSAGE)
A COLOR(WHT)


A************************************************************************
A DSPSIZ(27 132 *DS3)
A CHGINPDFT
A CF24(24)
A ALTHELP(CA01)
A ENTFLDATR((*DSPATR RI))
A HELP
A MOUBTN(*URP CA12)
A PRINT
A**************************************************************************
A R MSGSFL SFL
A SFLMSGRCD(27)
A MSGKEY SFLMSGKEY
A PSPGM SFLPGMQ
A**************************************************************************
A R MSGCTL SFLCTL(MSGSFL)
A OVERLAY
A N29 SFLDSP SFLDSPCTL SFLINZ SFLEND
A SFLSIZ(2) SFLPAG(1)
A PSPGM SFLPGMQ
A**************************************************************************
A DSPSIZ(27 132 *DS3)
A CHGINPDFT
A CF24(24)
A ALTHELP(CA01)
A ENTFLDATR((*DSPATR RI))
A HELP
A MOUBTN(*URP CA12)
A PRINT
A******************************************************************
A R MSGSFL SFL
A SFLMSGRCD(27)
A MSGKEY SFLMSGKEY
A PSPGM SFLPGMQ
A*************************************************************************
A R MSGCTL SFLCTL(MSGSFL)
A OVERLAY
A N29 SFLDSP SFLDSPCTL SFLINZ SFLEND
A SFLSIZ(2) SFLPAG(1)
A PSPGM SFLPGMQ
A**************************************************************************
A R SCR01
A OVERLAY
A CSRINPONLY
A CA12(12 'CANCEL')
A CF04(04 'LOOKUP')
A RTNCSRLOC(&R1 &F1)
A RTNCSRLOC(*WINDOW &ROW &COL)
A 28 CSRLOC(ROW COL)
A ROW 3S 0H
A COL 3S 0H
A R1 10A H
A F1 10A H
A MYDATE 8Y 0O 1 2COLOR(WHT)
A EDTWRD('0 . . ')
A TITLE1 50A O 1 42COLOR(WHT)
A TITLE2 50A O 2 42COLOR(WHT)
A PSPGM 10A O 2 2COLOR(WHT)
A 2123USER
A DSPATR(RI)
A COLOR(GRN)
A MYTIME 6Y 0O 1123COLOR(WHT)
A EDTWRD('0 : : ')
A DSP101 20A O 4 2COLOR(WHT)
A MSGID(DSP 0169 MESSAGE)
A DSP102 20A O 5 2COLOR(WHT)
A MSGID(DSP 0313 MESSAGE)
A DSP104 20A O 6 2MSGID(DSP 0301 MESSAGE)
A COLOR(BLU)
A DSP106 20A O 7 2MSGID(DSP 0188 MESSAGE)
A COLOR(BLU)
A X1INDF 8Y 0B 4 23COLOR(PNK)
A 30 DSPATR(PC)
A DSPATR(UL)
A EDTWRD(' / / ')
A EDTMSK(' & & ')
A 4 34'-'
A COLOR(WHT)
A X1INDT 8Y 0B 4 36COLOR(PNK)
A 31 DSPATR(PC)
A DSPATR(UL)
A EDTWRD(' / / ')
A EDTMSK(' & & ')
A X1BRD 10A B 5 23DSPATR(UL)
A COLOR(TRQ)
A X1RMC 40A B 6 23DSPATR(UL)
A COLOR(TRQ)
A X1LOC 6A B 7 23DSPATR(UL)
A COLOR(PNK)
A 32 DSPATR(PC)
A**************************************************************************
A R CMD01
A DSP119 128A O 26 3COLOR(WHT)
A MSGID(CMD 0015 MESSAGE)
A**************************************************************************
A R SFL01 SFL
A X2BRD 10A O 6 2
A X2TLO 3Y 0O 6 16EDTWRD(' 0 ')
A X2TQT 8Y 2O 6 24EDTWRD(' , 0 . ')
A X2PLO 3Y 0O 6 38EDTWRD(' 0 ')
A X2PQT 8Y 2O 6 46EDTWRD(' , 0 . ')
A X2PRA 5Y 2O 6 59EDTWRD(' 0 . %')
A X2CLO 3Y 0O 6 70EDTWRD(' 0 ')
A X2CQT 8Y 2O 6 79EDTWRD(' , 0 . ')
A X2CRA 5Y 2O 6 92EDTWRD(' 0 . %')
A X2RLO 3Y 0O 6104EDTWRD(' 0 ')
A X2RQT 8Y 2O 6112EDTWRD(' , 0 . ')
A X2RRA 5Y 2O 6124EDTWRD(' 0 . %')
A**************************************************************************
A R SFL01CTL SFLCTL(SFL01)
A SFLSIZ(9999)
A SFLPAG(0019)
A CA12(12 'CENCEL')
A CF02(02 'PRINT')
A CF03(03 'EXL')
A OVERLAY
A SFLCSRRRN(&C1)
A 81 SFLDSP
A 82 SFLDSPCTL
A 83 SFLCLR
A 84 SFLEND
A C1 5S 0H
A C2 4S 0H SFLRCDNBR(CURSOR)
A MYDATE 8Y 0O 1 2COLOR(WHT)
A EDTWRD('0 . . ')
A TITLE1 50A O 1 42COLOR(WHT)
A TITLE2 50A O 2 42COLOR(WHT)
A PSPGM 10A O 2 2COLOR(WHT)
A 2123USER
A DSPATR(RI)
A COLOR(GRN)
A MYTIME 6Y 0O 1123COLOR(WHT)
A EDTWRD('0 : : ')
A DSP210 21A O 4 13DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0788 MESSAGE)
A DSP220 32A O 4 35DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0789 MESSAGE)
A DSP230 32A O 4 68DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0790 MESSAGE)
A DSP240 32A O 4101DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0253 MESSAGE)
A DSP211 10A O 5 13DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0792 MESSAGE)
A DSP212 10A O 5 24DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0042 MESSAGE)
A DSP221 10A O 5 35DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0792 MESSAGE)
A DSP222 10A O 5 46DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0042 MESSAGE)
A DSP223 10A O 5 57DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0791 MESSAGE)
A DSP231 10A O 5 68DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0792 MESSAGE)
A DSP232 10A O 5 79DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0042 MESSAGE)
A DSP233 10A O 5 90DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0791 MESSAGE)
A DSP241 10A O 5101DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0792 MESSAGE)
A DSP242 10A O 5112DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0042 MESSAGE)
A DSP243 10A O 5123DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0791 MESSAGE)
A DSP205 10A O 5 2DSPATR(UL)
A COLOR(WHT)
A MSGID(DSP 0015 MESSAGE)
A**************************************************************************
A R CMD02
A DSP299 128O O 26 2MSGID(CMD 0093 MESSAGE)
A COLOR(WHT)

subfile --example for as400 and requires bases on Pf and Lf , they will be refered in this file , and learn it as u like
DownLoad the subfile