* $$ 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
//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