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

全部博文(11)

文章存档

2018年(1)

2012年(1)

2011年(5)

2009年(1)

2008年(3)

我的朋友
最近访客

分类:

2011-07-10 23:16:33

     F/TITLE WINIIM      Item Master Window
     F*****************************************************************
     F* COPYRIGHT SYSTEM SOFTWARE ASSOCIATES,INC.  CHICAGO,ILL.  1993
     F*****************************************************************
     F*
     F*   PROGRAM ID   - WINDPD
     F*   PROGRAM NAME - DEPTERMENT Window
     F*
     F*   BMR     Date  Description
     F*  ----  -------  -----------------------------------------------
     F*****************************************************************
     FWINDPDFMCF  E                    WORKSTN
     F                                        RRNF1 KSFILE DSPS1
     FDPDPF   IF  E           K        DISK
     C*----------------------------------------------------------------
     C* Pre-mainline processing.
     C*----------------------------------------------------------------
     C*
     C* Entry parameter list.
     C           *ENTRY    PLIST
     C                     PARM           S1DEPT  6
     C                     PARM           @ROW    30
     C                     PARM           @COL    30
     C*
     C                     MOVE 'N'       RFRESH  1
     C                     MOVE *BLANK    Q#ACT
     C                     MOVE *BLANK    Q#DEPT
     C                     MOVE S1DEPT    T#DEPT  6
     C                     EXSR S1CLSF
     C                     EXSR S1LDSF
     C*
     C           1         DOWEQ1
     C           RFRESH    IFEQ 'Y'
     C                     EXSR S1CLSF                     Clear Subfile
     C                     EXSR S1LDSF
     C                     MOVE 'N'       RFRESH
     C                     ENDIF
     C*
     C                     EXSR S1DPSF                     Display Subfile
      *
     C           *INKL     IFEQ *ON
     C           *INKC     OREQ *ON
     C                     MOVE 'N'       ERROR   1
     C                     LEAVE
     C                     ITER
     C                     ENDIF
      *
      * Process 1st line action
     C           Q#ACT     IFEQ '1'
     C           Q#DEPT    ANDNE*BLANK
     C           Q#DEPT    CHAINDPDPF                97
     C           *IN97     IFEQ *OFF
     C                     MOVE DPDNUM    S1DEPT
     C                           XROW    30
     C                           XCOL    30
     C                     MOVE 'N'       ERROR
     C                     LEAVE
     C                     ITER
     C                     ENDIF
     C                     ENDIF
      *
     C           Q#ACT     IFEQ '8'
     C           Q#DEPT    IFNE *BLANK
     C                     MOVE *BLANK    Q#ACT
     C                     MOVE Q#DEPT    T#DEPT
     C                     MOVE *BLANK    Q#DEPT
     C                     MOVE 'Y'       RFRESH
     C                     ELSE
     C                     MOVE *BLANK    Q#ACT
     C                     MOVE *LOVAL    T#DEPT
     C                     MOVE *BLANK    Q#DEPT
     C                     MOVE 'Y'       RFRESH
     C                     ENDIF
     C                     ENDIF
      *
     C           RRNF1     IFGT 0
     C*
     C                     READCDSPS1                    77Process subfile
     C           *IN77     DOWEQ'0'
     C                     SELEC
     C           W#ACT     WHEQ '1'
     C                     MOVE W#DEPT    S1DEPT
     C                           XROW    30
     C                           XCOL    30
     C                     GOTO $SEL1
     C           W#ACT     WHEQ '8'
     C                     MOVE 'Y'       RFRESH
     C                     MOVE W#DEPT    T#DEPT
     C                     GOTO $JUMP1
     C                     ENDSL
     C                     READCDSPS1                    77Process subfile
     C                     ENDDO
     C*
     C                     ENDIF
      *
     C           $JUMP1    TAG
     C                     ENDDO
      *
     C           $SEL1     TAG
     C                     MOVEL*ON       *INLR
     C******************************************************************
     C* S2CLSF - Clear and activate prompt window
     C******************************************************************
     C           S1CLSF    BEGSR
     C                     MOVE '0'       *IN92            SFLDSP
     C                     MOVE '0'       *IN93            SFLDSPCTL
     C                     MOVE '1'       *IN94            SFLCLR
     C                     WRITEDSPC1
     C                     MOVE '1'       *IN92            SFLDSP
     C                     MOVE '1'       *IN93            SFLDSPCTL
     C                     MOVE '0'       *IN94            SFLCLR
     C                     Z-ADD0         RRNF1
     C                     MOVE 'N'       RFRESH
     C                     MOVE 'N'       ERROR
     C                     ENDSR
     C*****************************************************************
     C* S4LDSF - Move records to prompt windows
     C*****************************************************************
     C           S1LDSF    BEGSR
      *
     C           T#DEPT    SETLLDPDPF
     C                     READ DPDPF                    71
      *
     C           *IN71     DOWEQ'0'
     C                     MOVE *BLANK    W#ACT
     C                     MOVE DPDNUM    W#DEPT
     C                     MOVELDPDNAM    W#DES2
     C                     ADD  1         RRNF1   40
     C                     WRITEDSPS1
     C           RRNF1     IFEQ 9999
     C                     LEAVE
     C                     ENDIF
      *
     C                     READ DPDPF                    71
     C                     ENDDO
      *
     C           RRNF1     IFEQ 0
     C                     MOVE '0'       *IN92            SFLDSP
     C                     MOVE '1'       *IN93            SFLDSPCTL
     C                     MOVE '1'       *IN69            SFLEND
     C                     ELSE
     C                     MOVE '1'       *IN92            SFLDSP
     C                     MOVE '1'       *IN93            SFLDSPCTL
     C                     MOVE '1'       *IN69            SFLEND
     C                     ENDIF
      *
     C                     ENDSR
     C*****************************************************************
     C* S2DPSF  - DISPLAY PROMPT WINDOW
     C*****************************************************************
     C           S1DPSF    BEGSR
     C*
     C           RRNF1     IFNE 0
     C                     Z-ADD1         RRNF1
     C                     ENDIF
     C*
     C                     WRITEDSPC1
     C                     WRITEDSPK1
     C                     EXFMTDSPC1
     C                     ENDSR
     C********************************************************************
-----
     A*%%TS  SD  20080611  163632  EDPLJL      REL-V5R4M0  5722-WDS
     A*****************************************************************
     A*                                                               *
     A*   DISPLAY FILE ID   - WINDPDFM                                *
     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(CF08)
     A*****************************************************************
     A          R DSPS1                     SFL
     A*%%TS  SD  20080611  145801  EDPLJL      REL-V5R4M0  5722-WDS
     A            W#ACT          2A  I  5  2
     A            W#DES2        30A  O  5 18
     A            W#DEPT         6A  O  5  8
     A*****************************************************************
     A          R DSPC1                     SFLCTL(DSPS1)
     A*%%TS  SD  20080611  163632  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  92                                  SFLDSP
     A  93                                  SFLDSPCTL
     A  94                                  SFLCLR
     A  69                                  SFLEND(*MORE)
     A            RRNF1          4S 0H      SFLRCDNBR
     A                                  1 18'部?代???'
     A                                      COLOR(BLU)
     A                                  2  1'行?'
     A                                  2  9'1=??'
     A                                  2 21'8=定位於'
     A                                  3  2'ACT'
     A                                      COLOR(BLU)
     A                                  3  7'部?代?'
     A                                      COLOR(BLU)
     A                                  3 22'部?名?'
     A                                      COLOR(BLU)
     A            Q#ACT          2A  B  4  2
     A            Q#DEPT         6A  B  4  8
     A*****************************************************************
     A          R DSPK1
     A*%%TS  SD  20070820  095057  EDPLJL      REL-V5R3M0  5722-WDS
     A                                      WINDOW(DSPC1)
     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)
     A*****************************************************************
     A          R DUMMY
     A*%%TS  SD  20070820  095057  EDPLJL      REL-V5R3M0  5722-WDS
     A                                      ASSUME
     A                                  1  2' ' DSPATR(ND)


阅读(601) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~