AMSRECAT (Recatalogue)
//JMETJC05 JOB (DPME£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//* RECATALOGUE DU CLUSTER SI DATA PRESENT MAIS PAS CLUSTER
//* DEF CLUSTER SI INDEX ET DATA PRESENT
//*=====================================================================
//S0000002 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF CLUSTER(NAME(SI000.VS.PID02P00) NIXD -
VOL(B80WK3) RCTLG)
//*=========================< FIN DE JOB >==============================
AMSCATAL
//JMET2JC1 JOB (ACCT£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//* RECATALOGUE DU CLUSTER SI INDEX ET DATA PRESENT
//* DEF CLUSTER SI INDEX ET DATA PRESENT
//*=====================================================================
//S0000002 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF CLUSTER(NAME(DPGPX.TSTP.GPPR1RP) -
VOL(B80WGM) RCTLG) -
DATA(NAME(DPGPX.TSTP.GPPR1RP.DATA)) -
INDEX(NAME(DPGPX.TSTP.GPPR1RP.NDEX))
//*=========================< FIN DE JOB >==============================
//JMETJC01 JOB (DPME£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//* DEL CLUSTER SI INDEX ET DATA PRESENT
//*=====================================================================
//S000003 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DD1 DD UNIT=3390,VOL=SER=IMSDB2,DISP=OLD
//SYSIN DD *
DELETE -
SYSX.IMS610.TARGET.CSI.DATA -
FILE(DD1) -
VVR -
CATALOG(SYS1.MVSXG.MCAT)
//*=====================================================================
AMSVERIFY
//JMETJC01 JOB (DPME£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//STEP0001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
VERIFY DS (SI000.VS.KCF625)
//*=========================< FIN DE JOB >==============================
AMSVVDS
//JMETJC01 JOB (DPME£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//* LIRE LE VVDS DU DISQUE
//*=====================================================================
//S0000001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//VVDS01 DD UNIT=3390,VOL=SER=AN2013,DISP=SHR,DSN=SYS1.VVDS.VAN2013,
// AMP='AMORG'
//SYSIN DD *
PRINT INFILE(VVDS01)
//*=========================< FIN DE JOB >==============================
AMSGDG
//JMETJC01 JOB (DPME£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//STEP0001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF GDG (NAME(DPCP6.SYSCOPY.LUNDI)LIM(05)SCR)
DEF GDG (NAME(DPCP6.SYSCOPY.MARDI)LIM(05)SCR)
DEF GDG (NAME(DPCP6.SYSCOPY.MERCR)LIM(05)SCR)
DEF GDG (NAME(DPCP6.SYSCOPY.JEUDI)LIM(05)SCR)
DEF GDG (NAME(DPCP6.SYSCOPY.VENDR)LIM(05)SCR)
DEF GDG (NAME(DPCP6.SYSCOPY.HEBDO)LIM(05)SCR)
//*=========================< FIN DE JOB >==============================
AMSLISCAT
//JMETJC01 JOB (DPME£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//STEP0001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT ENTRIES (SIG27.VS.TEST) ALL
//*=========================< FIN DE JOB >==============================
AMSPRT
//JMETJC01 JOB (DPME£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//STEP0001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=SIG27.SEQ.TEST,DISP=SHR
//SYSIN DD *
PRINT IFILE(DD01)
//*=========================< FIN DE JOB >==============================
AMSREN
//JMETJC01 JOB (DPME£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//STEP0001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER SIG27.SQGDG.TEST -
NEWNAME(SIG27.SQGDG.TEST01)
//*=========================< FIN DE JOB >==============================
AMSREPRO
//JMETJC01 JOB (DPME£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//DEL00001 EXEC PGM=IEFBR14
//DD01 DD DSN=DPME2.SEQ.PIF769,DISP=(MOD,DELETE),
// UNIT=3390,SPACE=(TRK,0)
//*=====================================================================
//STEP0001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IN1 DD *
1111
//OUT1 DD DSN=DPME2.SEQ.PIF769,DISP=(,CATLG,DELETE),
// UNIT=3390,VOL=SER=PRODR1,SPACE=(CYL,(2,1),RLSE),
// DCB=(RECFM=FB,LRECL=700,BLKSIZE=7000)
//SYSIN DD *
REPRO INFILE(IN1) OUTFILE(OUT1)
//*=========================< FIN DE JOB >==============================
AMSALIAS
//JMETJC01 JOB (DPME£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//STEP0001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE ALIAS(NAME(SIG27) RELATE(ICFCAT.VMF24PB.PF24B))
//*=========================< FIN DE JOB >==============================
AMSDELDEF
//JMET2JC1 JOB (ACCT£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//* RECATALOGUE DU CLUSTER SI INDEX ET DATA PRESENT
//* DEF CLUSTER SI INDEX ET DATA PRESENT
//*=====================================================================
//S0000002 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF CLUSTER(NAME(DPGPX.TSTP.GPPR1RP) -
VOL(B80WGM) RCTLG) -
DATA(NAME(DPGPX.TSTP.GPPR1RP.DATA)) -
INDEX(NAME(DPGPX.TSTP.GPPR1RP.NDEX))
//*=========================< FIN DE JOB >==============================
AMSCOUNT
//JMETJC01 JOB (DPME£),'SIMU',CLASS=A,MSGCLASS=T,REGION=8M,
// MSGLEVEL=(1,1),COND=(8,LE),NOTIFY=*,RESTART=*
//*=====================================================================
//STEP0001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IN1 DD DSN=SIG27.VS.TEST,DISP=SHR
//OUT1 DD DSN=SIG27.SEQ.TEST,DISP=(,CATLG,DELETE),
// UNIT=3390,SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920)
//SYSIN DD *
REPRO INFILE(IN1) OUTFILE(OUT1) CHAR COUNT(50)
//*=========================< FIN DE JOB >==============================
AMSAIX
//JMETJC01 JOB (ACCT£),'METHODE',CLASS=A,NOTIFY=*,MSGCLASS=T,
// REGION=4096K,MSGLEVEL=(1,1),RESTART=*
//*=====================================================================
//* EXEMPLE DE DPGPX.AN2000.JCL(DEZ02DP)
//* DELETE/DEFINE DU FICHIER GPF056 (2000)
//*=====================================================================
//DELDEF EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE DPGP0.VS.GPF056 CLUSTER ERASE PURGE
IF LASTCC EQ 8 THEN SET MAXCC=0
DEFINE CLUSTER(NAME(DPGP0.VS.GPF056) -
VOL(PROD15) -
CYL(2 1) -
RECSZ(268 268) -
SHR(2 3) -
FSPC(20 10) -
KEYS(21 0) -
NOREUSE SPEED IMBED REPL) -
DATA (NAME(DPGP0.VS.GPF056.DATA) -
CISZ(4096)) -
INDEX(NAME(DPGP0.VS.GPF056.INDX))
//*=====================================================================
//* REPRO DU FICHIER GPF056 (2000)
//*=====================================================================
//REPRO EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDSET1 DD DSN=SIGPX.VS.GPF056,DISP=SHR,
// DCB=(DSORG=IS,BUFNO=6)
//SYSIN DD *
REPRO -
INFILE(INDSET1) -
OUTDATASET(DPGP0.VS.GPF056)
//*=====================================================================
//* DELETE/DEFINE DU FICHIER GPF056X (2000) AIX
//*=====================================================================
//DEFAIX EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE DPGP0.VS.GPF056X ERASE PURGE
IF LASTCC EQ 8 THEN SET MAXCC=0
DEFINE AIX(NAME(DPGP0.VS.GPF056X) -
RELATE(DPGP0.VS.GPF056) -
VOL(PROD15) -
CYL(02 1) -
RECSZ(55 55) -
SHR(2 3) -
KEYS(29 239) -
UPG SPEED) -
DATA (NAME(DPGP0.VS.GPF056X.DATA) -
CISZ(4096)) -
INDEX(NAME(DPGP0.VS.GPF056X.INDX))
BIX IDS(DPGP0.VS.GPF056) ODS(DPGP0.VS.GPF056X)
DEFINE PATH (NAME(DPGP0.VS.GPF056P) -
PATHENTRY(DPGP0.VS.GPF056X))
//*=========================< FIN DE JOB >==============================
