Chinaunix首页 | 论坛 | 博客
  • 博客访问: 60828
  • 博文数量: 11
  • 博客积分: 1455
  • 博客等级: 上尉
  • 技术积分: 225
  • 用 户 组: 普通用户
  • 注册时间: 2008-01-10 12:28
文章分类

全部博文(11)

文章存档

2018年(1)

2012年(1)

2011年(5)

2009年(1)

2008年(3)

我的朋友
最近访客

分类:

2011-07-10 23:13:24

     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)
阅读(607) | 评论(0) | 转发(0) |
0

上一篇:PUR02

下一篇:WINDOW

给主人留下些什么吧!~~