
平臺(tái) 論壇博客文庫

› 論壇 › 操作系統(tǒng) › AS400 › SUBFILE 自動(dòng)畫面

SUBFILE 自動(dòng)畫面 [復(fù)制鏈接]

zhangv520

白手起家

論壇徽章:: 0

電梯直達(dá)

1樓 [收藏(0)] [報(bào)告]

發(fā)表于 2010-06-23 11:15 |只看該作者 |倒序?yàn)g覽

A             R FMT01R
A                                        OVERLAY
A                                        CA03
A                                     1  2'ID:'
A                                        COLOR(BLU)
A                D1PGID       10A    1  6
A                                     1 30'図書管理システ'
A                                        COLOR(BLU)
A                D1DATE       6Y 0O  1 62 EDTWRD('0  /  /  ')
A                D1TIME       6Y 0O  1 72 EDTWRD('0  :  :  ')
A
A                                     3  3'図書№'
A                                        COLOR(BLU)
A                D1BKNO       8A  B  3 13
A    10                                  DSPATR(PC RI)
A**********************************************************************
A**********    SFL01                   **********************
A             R SFL01                   SFL
A                S1SEL       1A  I  7  5DSPATR(UL)
A    31                               DSPATR(PC RI)
A                                        COLOR(RED)
A                S1BKNO       8A  O  7 10
A                S1BKNM       30O  O  7 22
A                S1UPFG       1A  O  7 56
A*****
A             R CTL01R                   SFLCTL(SFL01)
A                                        OVERLAY
A                                        CF12
A                                        CA03
A                                        SFLSIZ(9999)
A                                        SFLPAG(14)
A                                        SFLDSPCTL
A                                        SFLDSP
A    70                               SFLCLR
A    72                               SFLEND(*MORE)
A****
A                D1RRN1       4S 0H    SFLRCDNBR
A****
A                                     6  4'OPT'
A                                        COLOR(BLU)
A                                     6  9'図書№'
A                                        COLOR(BLU)
A                                     6 21'図書名'
A                                        COLOR(BLU)
A                                     6 53'更新フラグ'
A                                        COLOR(BLU)
A**********************************************************************
A             R MT02R
A                                     6  3'図書№'
A                                        COLOR(BLU)
A                                     7  3'図書名'
A                                        COLOR(BLU)
A                                     8  3'借覧人'
A                                        COLOR(BLU)
A                                     9  3'借覧期限'
A                                        COLOR(BLU)
A                                     10  3'費(fèi)用'
A                                        COLOR(BLU)
A                D2BKNO       8A    6 17
A                D2NAME       30O    7 17
A                D2BOWR       30O    8 17
A                                        DSPATR(UL)
A    32                               DSPATR(PC RI)
A                D2FROM       8Y 0O  9 17EDTWRD(' /  /  ')
A                                        DSPATR(UL)
A    30                               DSPATR(RI PC)
A                                     9 28'-'
A                D2TO          8Y 0O  9 30EDTWRD(' /  /  ')
A                                        DSPATR(UL)
A    31                               DSPATR(RI PC)
A                D2RATE       9Y 2  10 17EDTCDE(3)
A**********************************************************************
A             R FMT00
A    91       COMD       78A  B 23  2
A                                        COLOR(BLU)
A    77       MSG01       78A  B 24  2
A                                        COLOR(RED)
A    11                               DSPATR(RI)
有什么缺點(diǎn)請大家?guī)兔χ赋鲋x謝��！