PGM (&PARM &P2)
             DCL        VAR(&PARM)     TYPE(*CHAR) LEN(8317)
             DCL        VAR(&P2  )     TYPE(*CHAR) LEN(3)
             DCL        VAR(&DATA)     TYPE(*CHAR) LEN(8192)
             DCL        VAR(&FILE)     TYPE(*CHAR) LEN(10)
             DCL        VAR(&LIB )     TYPE(*CHAR) LEN(10)
             DCL        VAR(&MBR )     TYPE(*CHAR) LEN(10)
             DCL        VAR(&TYPE)     TYPE(*CHAR) LEN(10)
             DCL        VAR(&RECN)     TYPE(*CHAR) LEN(10)
             DCL        VAR(&LEN )     TYPE(*CHAR) LEN(10)
             DCL        VAR(&P\LCLLIB) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOBQ    ) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOBL    ) TYPE(*CHAR) LEN(10)
             CHGVAR &LEN %SST(&PARM 1 5)
             IF (&LEN='00000') THEN(GOTO #END)
             CHGVAR &TYPE %SST(&PARM 17 2)
             IF (%SST(&P2 1 1)='3') THEN(DO)
               /*この時点でRCVJRNEの再起動が必要*/
             ENDDO
             IF ((&TYPE *NE 'PT') *AND +
                 (&TYPE *NE 'DL') *AND +
                 (&TYPE *NE 'DR') *AND +
                 (&TYPE *NE 'UP') *AND +
                 (&TYPE *NE 'UR')) THEN(GOTO NEXT)
             CHGVAR &FILE %SST(&PARM 67 10)
             CHGVAR &LIB  %SST(&PARM 77 10)
             CHGVAR &MBR  %SST(&PARM 87 10)
             CHGVAR &RECN %SST(&PARM 97 10)
             CHGVAR &DATA %SST(&PARM 126 8192)
             OVRDBF     FILE(FILE)  TOFILE(&LIB/&FILE) MBR(&MBR)
             OVRDBF     FILE(FILE2) TOFILE(&LIB/&FILE) MBR(&MBR)
             CALL @REPLICAR  PARM(&FILE &LIB &MBR &TYPE &RECN &DATA)
             DLTOVR     FILE(FILE FILE2)
             GOTO #END
NEXT:
             IF ((&TYPE='MC') *OR  +
                 (&TYPE='DM') *OR  +
                 (&TYPE='CR')) THEN(DO)	
                CHGVAR &FILE %SST(&PARM 67 10)
                CHGVAR &LIB  %SST(&PARM 77 10)
                CHGVAR &MBR  %SST(&PARM 87 10)
                IF (&TYPE='MC') THEN(DO)                             
                   ADDPFM     FILE(&LIB/&FILE) MBR(&MBR)             
                   MONMSG CPF0000                                     
                ENDDO                                                
                IF (&TYPE='DM') THEN(DO)                             
                   RMVM       FILE(&LIB/&FILE) MBR(&MBR)             
                   MONMSG CPF0000                                     
                ENDDO                                                
                IF (&TYPE='CR') THEN(DO)                              
                   CLRPFM     FILE(&LIB/&FILE) MBR(&MBR)             
                   MONMSG CPF0000                                     
                ENDDO                                                
             ENDDO

#END:
             ENDPGM