CLP(OPC020CL)
ライブラリーはOPRLIB固定です。自由に変更してください。
/* |~~~~~~~~~~~~~~~~~~~~~~~~~~~|~~~~~~~~~~~~~~~~~~~~~~|~~~~~~~~~~~~| */
/* | PROGRAM ID .... OPC020CL | JOB TYPE .... INTER | | */
/* | | | | */
/* |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| */
/* | PROGRAMMER ....... T.KAKEFUDA | */
/* | CREATION ......... / / | */
/* | MODIFIED ......... / / BY XXXXXXXXXXXX | */
/* |_______________________________________________________________| */
/* */
PGM
/* |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| */
/* | DECLARE VARIABLES AND A FILE | */
/* |_______________________________________________________________| */
DCL &JOB *CHAR 10
MONMSG CPF0000 *N GOTO ERROR
CHKOBJ OPRLIB/SCREEN *FILE
MONMSG CPF9800 *N DO
CRTSRCPF FILE(OPRLIB/SCREEN) RCDLEN(102) IGCDTA(*YES) +
TEXT('OPERATION MANUAL FOR SCREEN COPY')
MONMSG CPF0000
ENDDO
RTVJOBA JOB(&JOB)
CHKOBJ OPRLIB/SCREEN *FILE MBR(&JOB)
MONMSG CPF9800 *N DO
ADDPFM FILE(OPRLIB/SCREEN) MBR(&JOB) SRCTYPE(TXT)
MONMSG CPF0000
ENDDO
/* |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| */
/* | CALL MAIN PROGRAM | */
/* |_______________________________________________________________| */
OVRDBF XXXXX OPRLIB/SCREEN MBR(&JOB)
CALL OPC020
DLTOVR *ALL
ERROR:
RETURN
ENDPGM
DSPF (OPC020D)
A R FMT#1 KEEP
A*
A BUFFER 2048A H
DSPF (OPC020D2)
忘れていました。ごめんなさい。
A R FMT#0 KEEP
A BUFFER 2048A H
A R FMT#1 KEEP USRDFN
RPG (OPC020)
H Y/ 1
F******************************************************
F* D E F I N E F I L E S *
F******************************************************
FOPC020D CF E WORKSTN UC
FXXXXX O E DISK
F XXXXX KRENAMEXXXXXR
E****************************************************
E* A R R A Y T A B L E *
E****************************************************
E BFR 2048 1 ;
E LNS 24 80 ;
E OVR 1 1 80 ;
I******************************************************
I* D E F I N E D A T A - S T R U C T U R E *
I******************************************************
IBUFFER DS 2048
I 12048 BFR
I DS
I 1 90 WRK
I 1 4 WRK1
I 5 84 WRK2
I 85 88 WRK3
I******************************************************
I* D E F I N E C O N S T A N T *
I******************************************************
I 'Y' C #YES
I ' ' C #NO
I '1' C #ON
I '0' C #OFF
I*
I '┏━━━━━━━- C LINE1
I '━━━━━━━━-
I '━━━━━━━━-
I '━━━━━━━━-
I '━━━━━━━━-
I '━━┓'
I*
I '┗━━━━━━━- C LINE2
I '━━━━━━━━-
I '━━━━━━━━-
I '━━━━━━━━-
I '━━━━━━━━-
I '━━┛'
C******************************************************
C* M A I N - R O U T I N E
C******************************************************
C Z-ADD0 W1SEQ 60 ;
C* ;
C ADD 100 W1SEQ ;
C Z-ADDW1SEQ SRCSEQ :WORKSTATION ROW
C Z-ADDUDATE SRCDAT :DATE
C MOVELLINE1 SRCDTA P :SCREEN DATA
C WRITEXXXXXR ;
C CLEARXXXXXR ;
C* ;
B001 C 1 DO 24 II 30 ;
001 C ADD 100 W1SEQ ;
001 C Z-ADDW1SEQ SRCSEQ :WORKSTATION ROW
001 C Z-ADDUDATE SRCDAT :DATE
001 C MOVE *BLANK WRK :
001 C MOVE '┃' WRK1 :
001 C MOVE LNS,II WRK2 :
001 C MOVE '┃' WRK3 :
001 C MOVELWRK SRCDTA P :SCREEN DATA
001 C WRITEXXXXXR ;
001 C CLEARXXXXXR ;
E001 C END ;
C* ;
C ADD 100 W1SEQ ;
C Z-ADDW1SEQ SRCSEQ :WORKSTATION ROW
C Z-ADDUDATE SRCDAT :DATE
C MOVELLINE2 SRCDTA P :SCREEN DATA
C WRITEXXXXXR ;
C CLEARXXXXXR ;
C* ;
C MOVE #ON *INLR ;
C RETRN ;
C******************************************************
C* S U B - R O U T I N E
C******************************************************
C*----------------------------------------------------*
C *INZSR BEGSR :
C*----------------------------------------------------*
C CALL 'QCMDEXC' :
C PARM OVR :
C PARM 80 CMDLEN 155 :
C* :
C OPEN OPC020D :
C MOVE *BLANK BFR :
C MOVE X'00' BFR,1 :
C MOVE X'02' BFR,2 :
C MOVE X'10' BFR,3 :
C MOVE X'00' BFR,4 :
C MOVE X'73' BFR,5 :
C MOVE X'04' BFR,6 :
C MOVE X'62' BFR,7 :
C EXFMTFMT#1 :
C MOVEABFR,1 LNS,1 :
C ENDSR :
** ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
OVRDSPF OPC020D OPC020D2 LVLCHK(*NO)
|