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