SUBFILE 自动画面
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'費用'
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)
有什么缺点请大家帮忙指出谢谢!!
如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱,如果其他用户或者作者回复了您的评论,将不能在第一时间通知您!
发布评论
评论(4)
只给1个显示画面?
你想问什么问题 具体点 是你编译不通过?还是不能实现SUBFILE还是?。。。。。。
????
请对自己的行为负责