Return to the Sample Job Stream List

FS05201B Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=FS05201B,SYSID=1
// JOB FS05201B 10         REORG MSGPO/MSGPB FILES
* ** FILES USING STANDARD LABELS **
* ** UMSGPO  -- 'MVVGRP.UNI.MSGPO.CLUSTER'   **
* ** UMSGPB  -- 'MVVGRQ.UNI.MSGPB.CLUSTER'   **
* *** STEP 1 *** *
// EXEC IPCPBTCH,SIZE=350K
CICS CC ONLY=A5CICS
DISA KC QCDL,UNI9,PDPS
CLOS DB UMSGPB,UMSGPO
/*
* *** STEP 2 *** *
// TLBL MV8GSH5,'MV8GSH505,H,D'        I/P UNI MSGPO  BACKUP
// TLBL MV8GSH5,'MV8GSH506,U'          I/P UNI MSGPB  BACKUP
// EXEC IDCAMS,SIZE=AUTO
*/***** GRPDEF.V           /BEGIN/  FS05201B.SYSIN     001 */
       DELETE                         -
          MVVGRP.UNI.MSGPO.CLUSTER    -
          CLUSTER                     -
          NOERASE                     -
          PURGE                       -
       CATALOG(PERM33.USER.CAT PRM33CT)  ;
       DEFINE CLUSTER                    -
         (NAME(MVVGRP.UNI.MSGPO.CLUSTER) -
          SPEED                          -
          VOLUME(PERM33)                 -
          SHAREOPTIONS(2,3))             -
       CATALOG(PERM33.USER.CAT PRM33CT)  -
       DATA                              -
         (NAME(MVVGRP.UNI.MSGPO.DATA)    -
          FREESPACE(06,06)               -
          RECORDSIZE(52,52)              -
          RECORDS(1404,702)              -
          KEYS(16,00)                    -
          VOLUMES (SYSWK3 SYSWK5 SYSWK7) -
          KEYRANGES ((X'00' 2100004285100023945) -
                     (2100004285100023946 3100001616900007070) -
                     (3100001616900007071 X'FF')) -
            ORDERED -
          CONTROLINTERVALSIZE(2048))     -
       INDEX                             -
         (NAME(MVVGRP.UNI.MSGPO.INDEX)   -
          CONTROLINTERVALSIZE(0512))     ;
*/***** GRPDEF.V           //END//  FS05201B.SYSIN     001 */
   IF MAXCC > 4 THEN CANCEL JOB;
   REPRO -
       INFILE (MV8GSH5  -
          ENV (RECSZ(0052) BLKSZ(5200) PDEV(2400) RECFM(FB))) -
      OUTFILE (UMSGPO) ;
   IF MAXCC > 4 THEN CANCEL JOB;
*/***** GRQDEF.V           /BEGIN/  FS05201B.SYSIN     001 */
       DELETE                       -
          MVVGRQ.UNI.MSGPB.CLUSTER  -
          CLUSTER                   -
          NOERASE                   -
          PURGE                     -
       CATALOG(PERM19.USER.CAT PRM19CT)  ;
       DEFINE CLUSTER                    -
         (NAME(MVVGRQ.UNI.MSGPB.CLUSTER) -
          SPEED                          -
          VOLUME(PERM19)                 -
          SHAREOPTIONS(2,3))             -
       CATALOG(PERM19.USER.CAT PRM19CT)  -
       DATA                              -
         (NAME(MVVGRQ.UNI.MSGPB.DATA)    -
          FREESPACE(06,06)               -
          RECORDSIZE(52,52)              -
          RECORDS(1404,702)              -
          KEYS(16,00)                    -
          UNORDERED -
          CONTROLINTERVALSIZE(2048))     -
       INDEX                             -
         (NAME(MVVGRQ.UNI.MSGPB.INDEX)   -
          CONTROLINTERVALSIZE(0512))     ;
*/***** GRQDEF.V           //END//  FS05201B.SYSIN     001 */
   IF MAXCC > 4 THEN CANCEL JOB;
   REPRO -
       INFILE (MV8GSH5  -
          ENV (RECSZ(0052) BLKSZ(5200) PDEV(2400) RECFM(FB))) -
       OUTFILE (UMSGPB) ;
   IF MAXCC > 4 THEN CANCEL JOB;
/*
* *** STEP 3 *** *
// EXEC IPCPBTCH,SIZE=350K
CICS CC ONLY=A5CICS
OPEN DB UMSGPB,UMSGPO
ENAB KC QCDL,UNI9,PDPS
INIT KC UNI9
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//FS05201B JOB (FS05201B),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//* ** FILES USING STANDARD LABELS **
//* ** UMSGPO  -- 'MVVGRP.UNI.MSGPO.CLUSTER'   **
//* ** UMSGPB  -- 'MVVGRQ.UNI.MSGPB.CLUSTER'   **
//* *** STEP 1 *** *
//*
//*     STEP0010  PROC=MTPBATCH                                         IPCPBTCH
//*
//STEP0010 EXEC PROC=MTPBATCH
//* MODULE IPCPBTCH PROCESSED BY PLUG-IN IPCP2MTP
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN    DD  *
CICS A5CICS
DISA    QCDL,UNI9,PDPS
CLOS    UMSGPB,UMSGPO
/*
//*
//* *** STEP 2 *** *
//*
//*     STEP0020  PGM=IDCAMS
//*
//STEP0020 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//*    VS    I PRM33CT  A          'MVVGRP.UNI.MSGPO.CLUSTER'           DELETE
//#DELETE  DD  DUMMY,DSN=MVS.MVVGRP.UNI.MSGPO.CLUSTER
//* VS VS KS O PRM33CT  A          'MVVGRP.UNI.MSGPO.CLUSTER'           DEFCL
//#DEFCL   DD  DUMMY,DSN=MVS.MVVGRP.UNI.MSGPO.CLUSTER
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
*/***** GRPDEF.V           /BEGIN/  FS05201B.SYSIN     001 */
       DELETE                         -
          MVS.MVVGRP.UNI.MSGPO.CLUSTER -
          CLUSTER                     -
          NOERASE                     -
          PURGE                       -
                                         ;
 IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
       DEFINE CLUSTER                    -
         (NAME(MVS.MVVGRP.UNI.MSGPO.CLUSTER) -
          SPEED                          -
          VOLUME(PERM33)                 -
          SHAREOPTIONS(2,3))             -
       DATA                              -
         (                               -
          FREESPACE(06,06)               -
          RECORDSIZE(52,52)              -
          RECORDS(1404,702)              -
          KEYS(16,00)                    -
          VOLUMES (SYSWK3 SYSWK5 SYSWK7) -
          CONTROLINTERVALSIZE(2048))     -
       INDEX                             -
         (                               -
          CONTROLINTERVALSIZE(0512))     ;
*/***** GRPDEF.V           //END//  FS05201B.SYSIN     001 */
   IF MAXCC > 4 THEN SET    MAXCC=16;
/*
//*
//*     STEP0030  PGM=IDCAMS
//*
//STEP0030 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//* MT I SYS004 UA             'MV8GSH505,H,D'                          REPRO
//MV8GSH5  DD  DSN=MVS.MV8GSH505(0),
//             DISP=SHR
//*    VS    I PRM19CT  A          'MVVGRQ.UNI.MSGPB.CLUSTER'           DELETE
//#DELETE  DD  DUMMY,DSN=MVS.MVVGRQ.UNI.MSGPB.CLUSTER
//* VS VS    O PRM33CT  S          'MVVGRP.UNI.MSGPO.CLUSTER'           REPRO
//UMSGPO   DD  DSN=MVS.MVVGRP.UNI.MSGPO.CLUSTER,
//             DISP=SHR
//* VS VS KS O PRM19CT  A          'MVVGRQ.UNI.MSGPB.CLUSTER'           DEFCL
//#DEFCL   DD  DUMMY,DSN=MVS.MVVGRQ.UNI.MSGPB.CLUSTER
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
   REPRO INFILE (MV8GSH5 ) OUTFILE (UMSGPO) ;
   IF MAXCC > 4 THEN SET    MAXCC=16;
*/***** GRQDEF.V           /BEGIN/  FS05201B.SYSIN     001 */
       DELETE                       -
          MVS.MVVGRQ.UNI.MSGPB.CLUSTER -
          CLUSTER                   -
          NOERASE                   -
          PURGE                     -
                                         ;
 IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
       DEFINE CLUSTER                    -
         (NAME(MVS.MVVGRQ.UNI.MSGPB.CLUSTER) -
          SPEED                          -
          VOLUME(PERM19)                 -
          SHAREOPTIONS(2,3))             -
       DATA                              -
         (                               -
          FREESPACE(06,06)               -
          RECORDSIZE(52,52)              -
          RECORDS(1404,702)              -
          KEYS(16,00)                    -
          CONTROLINTERVALSIZE(2048))     -
       INDEX                             -
         (                               -
          CONTROLINTERVALSIZE(0512))     ;
*/***** GRQDEF.V           //END//  FS05201B.SYSIN     001 */
   IF MAXCC > 4 THEN SET    MAXCC=16;
/*
//*
//*     STEP0040  PGM=IDCAMS
//*
//STEP0040 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//* MT I SYS004 UA             'MV8GSH506,U'                            REPRO
//MV8GSH5  DD  DSN=MVS.MV8GSH506(0),
//             DISP=SHR
//* VS VS    O PRM19CT  S          'MVVGRQ.UNI.MSGPB.CLUSTER'           REPRO
//UMSGPB   DD  DSN=MVS.MVVGRQ.UNI.MSGPB.CLUSTER,
//             DISP=SHR
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
   REPRO INFILE (MV8GSH5 ) OUTFILE (UMSGPB) ;
   IF MAXCC > 4 THEN SET    MAXCC=16;
/*
//*
//* *** STEP 3 *** *
//*
//*     STEP0050  PROC=MTPBATCH                                         IPCPBTCH
//*
//STEP0050 EXEC PROC=MTPBATCH
//* MODULE IPCPBTCH PROCESSED BY PLUG-IN IPCP2MTP
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN    DD  *
CICS A5CICS
OPEN    UMSGPB,UMSGPO
ENAB    QCDL,UNI9,PDPS
INIT    UNI9
/*
//
   

Return to the Sample Job Stream List