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