From 42ac172e7fc124e306d2ec099f317b261e177d39 Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Thu, 11 Dec 2025 17:35:57 -0600 Subject: [PATCH 01/18] remove to separate branch Signed-off-by: neilbeesley --- DB2Schema/JCL/README.md | 18 - DB2Schema/JCL/expaxmit.jcl | 1387 -------------------- DB2Schema/JCL/recurmit.jcl | 2550 ------------------------------------ DB2Schema/JCL/unterse.jcl | 68 - 4 files changed, 4023 deletions(-) delete mode 100644 DB2Schema/JCL/README.md delete mode 100644 DB2Schema/JCL/expaxmit.jcl delete mode 100644 DB2Schema/JCL/recurmit.jcl delete mode 100644 DB2Schema/JCL/unterse.jcl diff --git a/DB2Schema/JCL/README.md b/DB2Schema/JCL/README.md deleted file mode 100644 index 38c1444..0000000 --- a/DB2Schema/JCL/README.md +++ /dev/null @@ -1,18 +0,0 @@ -# Helpful JCL for packaging DB2 schema unload files for transmission and performing the reverse operations - -These instructions provide a procedure used to package the schema unload files into a single compressed dataset. Six of the datasets are PDSE files from unloading LOB data. The remainder are DATA and PNCH files pertaining to each DB2 table. The resulting dataset is a TSO XMIT file of a final combined PDSE containing all the data. -The final output file can be PACKED (TRSMAIN) for compression, although this step is not included. - -## Package unload data -
-RECURMIT.JCL  involves performing recursive TSO XMIT steps to obtain a single dataset
-
-## Unpackage unload data -
-EXPAXMIT.JCL  involves performing TSO RECEIVE operations to obtain the original unload datasets
-
-## Unterse transmission file -This job may be needed where TRSMAIN is used as part of the transmission process between mainframes. -
-UNTERSE.JCL  TRSMAIN UNPACK operation which restores the original combined transmission file.
-
diff --git a/DB2Schema/JCL/expaxmit.jcl b/DB2Schema/JCL/expaxmit.jcl deleted file mode 100644 index 338fd9c..0000000 --- a/DB2Schema/JCL/expaxmit.jcl +++ /dev/null @@ -1,1387 +0,0 @@ -//NUMERGE JOB (ACCT),'RECEIVE UNLOADED DB', -// NOTIFY=&SYSUID., -// REGION=0M, -// CLASS=A, -// MSGLEVEL=(1,1), -// MSGCLASS=H -//* -// EXPORT SYMLIST=* -// SET HLQ='GEBT' -// SET MLQ='GENERS.D240708U' -//* -//************************************************************* -//* DELETE RECEIVE'D FILES FROM LAST RUN -//************************************************************* -//* -//DELFILE EXEC PGM=IDCAMS -//* -//SYSPRINT DD SYSOUT=* -//* -//SYSIN DD *,SYMBOLS=EXECSYS - DELETE &HLQ..&MLQ..RECEIVE.PDS PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOGIC.LOB PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWCOL.LOB PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWSRCF.LOB PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWSRCO.LOB PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWTS.LOB PURGE - DELETE &HLQ..&MLQ..RECEIVE.VWCOLSRC.LOB PURGE - DELETE &HLQ..&MLQ..RECEIVE.CODETABL.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.CODETABL.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.CONTRLRC.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.CONTRLRC.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.ENVIRON.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.ENVIRON.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.GLOBAFLD.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.GLOBAFLD.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.GROUPTS.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.GROUPTS.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LFPFASS.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LFPFASS.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOGFILE.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOGFILE.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOGIC.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOGIC.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOGREC.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOGREC.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOGRECIX.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOGRECIX.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOOKUP.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOOKUP.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOOKUPSR.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOOKUPSR.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOOKUPST.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LOOKUPST.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LRFIELD.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LRFIELD.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LRFLDATR.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LRFLDATR.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LRFLDIDX.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LRFLDIDX.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.LRLFASS.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.LRLFASS.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.MIGRAUDT.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.MIGRAUDT.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.NEXTKEY.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.NEXTKEY.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.PHYSFILE.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.PHYSFILE.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPEV.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPEV.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPJN.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPJN.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPLF.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPLF.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPLR.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPLR.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPPF.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPPF.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPUE.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPUE.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPUR.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPUR.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPVF.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPVF.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPVW.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.SECGRPVW.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.SERVER.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.SERVER.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.USEREXIT.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.USEREXIT.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.USERTS.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.USERTS.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.VDPBATCH.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.VDPBATCH.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.VDPBTCHV.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.VDPBTCHV.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.VFVASS.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.VFVASS.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWCOL.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWCOL.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWFOLD.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWFOLD.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWHDFT.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWHDFT.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWSRC.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWSRC.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWTS.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.VIEWTS.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.VWCOLSRC.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.VWCOLSRC.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.VWLOGDEP.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.VWLOGDEP.PNCH PURGE - DELETE &HLQ..&MLQ..RECEIVE.VWSORTKY.DATA PURGE - DELETE &HLQ..&MLQ..RECEIVE.VWSORTKY.PNCH PURGE - IF LASTCC > 0 THEN /* IF OPERATION FAILED, */ - - SET MAXCC = 0 /* PROCEED AS NORMAL ANYWAY */ -/* -//******************************************************************* -//* RECEIVE FILES: RECEIVE XMIT OF MERGED PDS FILE FIRST -//******************************************************************* -//* -//RECVSTEP EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..COMBINE.PDS.XMIT -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.PDS, -// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=27920), -// UNIT=SYSDA,SPACE=(CYL,(300,20),RLSE), -// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.PDS') -/* -//********************************************************************* -//* CONVERT 6 PDS MEMBERS TO PDS FILES (LOBS) -//********************************************************************* -//RECVLOB1 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM01) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOGIC.LOB, -// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), -// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), -// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOGIC.LOB') -/* -//********************************************************************* -//RECVLOB2 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM02) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWCOL.LOB, -// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), -// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), -// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWCOL.LOB') -/* -//********************************************************************* -//RECVLOB3 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM03) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWSRCF.LOB, -// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), -// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), -// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWSRCF.LOB') -/* -//********************************************************************* -//RECVLOB4 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM04) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWSRCO.LOB, -// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), -// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), -// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWSRCO.LOB') -/* -//********************************************************************* -//RECVLOB5 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM05) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWTS.LOB, -// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), -// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), -// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWTS.LOB') -/* -//********************************************************************* -//RECVLOB6 EXEC PGM=IKJEFT01,PARM='WORK=1600M,SIZE=2000M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM06) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VWCOLSRC.LOB, -// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), -// UNIT=SYSDA,SPACE=(CYL,(1000,50),RLSE), -// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VWCOLSRC.LOB') -/* -//********************************************************************* -//* CONVERT OTHER PDS MEMBERS TO SEQUENTIAL FILES -//********************************************************************* -//RECVSQ07 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM07) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.CODETABL.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.CODETABL.DATA') -/* -//RECVSQ08 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM08) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.CODETABL.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.CODETABL.PNCH') -/* -//********************************************************************* -//RECVSQ09 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM09) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.CONTRLRC.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.CONTRLRC.DATA') -/* -//RECVSQ10 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM10) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.CONTRLRC.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.CONTRLRC.PNCH') -/* -//********************************************************************* -//RECVSQ11 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM11) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.ENVIRON.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.ENVIRON.DATA') -/* -//RECVSQ12 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM12) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.ENVIRON.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.ENVIRON.PNCH') -/* -//********************************************************************* -//RECVSQ13 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM13) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.GLOBAFLD.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.GLOBAFLD.DATA') -/* -//RECVSQ14 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM14) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.GLOBAFLD.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.GLOBAFLD.PNCH') -/* -//********************************************************************* -//RECVSQ15 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM15) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.GROUPTS.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.GROUPTS.DATA') -/* -//RECVSQ16 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM16) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.GROUPTS.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.GROUPTS.PNCH') -/* -//********************************************************************* -//RECVSQ17 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM17) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LFPFASS.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LFPFASS.DATA') -/* -//RECVSQ18 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM18) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LFPFASS.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LFPFASS.PNCH') -/* -//********************************************************************* -//RECVSQ19 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM19) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOGFILE.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOGFILE.DATA') -/* -//RECVSQ20 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM20) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOGFILE.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOGFILE.PNCH') -/* -//********************************************************************* -//RECVSQ21 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM21) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOGIC.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOGIC.DATA') -/* -//RECVSQ22 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM22) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOGIC.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOGIC.PNCH') -/* -//********************************************************************* -//RECVSQ23 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM23) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOGREC.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOGREC.DATA') -/* -//RECVSQ24 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM24) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOGREC.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOGREC.PNCH') -/* -//********************************************************************* -//RECVSQ25 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM25) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOGRECIX.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOGRECIX.DATA') -/* -//RECVSQ26 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM26) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOGRECIX.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOGRECIX.PNCH') -/* -//********************************************************************* -//********************************************************************* -//RECVSQ27 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM27) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOOKUP.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOOKUP.DATA') -/* -//RECVSQ28 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM28) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOOKUP.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOOKUP.PNCH') -/* -//********************************************************************* -//RECVSQ29 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM29) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOOKUPSR.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOOKUPSR.DATA') -/* -//RECVSQ30 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM30) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOOKUPSR.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOOKUPSR.PNCH') -/* -//********************************************************************* -//RECVSQ31 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM31) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOOKUPST.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOOKUPST.DATA') -/* -//RECVSQ32 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM32) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LOOKUPST.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LOOKUPST.PNCH') -/* -//********************************************************************* -//RECVSQ33 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM33) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LRFIELD.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LRFIELD.DATA') -/* -//RECVSQ34 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM34) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LRFIELD.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LRFIELD.PNCH') -/* -//********************************************************************* -//RECVSQ35 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM35) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LRFLDATR.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LRFLDATR.DATA') -/* -//RECVSQ36 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM36) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LRFLDATR.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LRFLDATR.PNCH') -/* -//********************************************************************* -//RECVSQ37 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM37) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LRFLDIDX.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LRFLDIDX.DATA') -/* -//RECVSQ38 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM38) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LRFLDIDX.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LRFLDIDX.PNCH') -/* -//********************************************************************* -//RECVSQ39 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM39) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LRLFASS.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LRLFASS.DATA') -/* -//RECVSQ40 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM40) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.LRLFASS.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.LRLFASS.PNCH') -/* -//********************************************************************* -//RECVSQ41 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM41) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.MIGRAUDT.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.MIGRAUDT.DATA') -/* -//RECVSQ42 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM42) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.MIGRAUDT.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.MIGRAUDT.PNCH') -/* -//********************************************************************* -//********************************************************************* -//RECVSQ43 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM43) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.NEXTKEY.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.NEXTKEY.DATA') -/* -//RECVSQ44 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM44) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.NEXTKEY.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.NEXTKEY.PNCH') -/* -//********************************************************************* -//RECVSQ45 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM45) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.PHYSFILE.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.PHYSFILE.DATA') -/* -//RECVSQ46 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM46) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.PHYSFILE.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.PHYSFILE.PNCH') -/* -//********************************************************************* -//RECVSQ47 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM47) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPEV.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPEV.DATA') -/* -//RECVSQ48 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM48) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPEV.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPEV.PNCH') -/* -//********************************************************************* -//RECVSQ49 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM49) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPJN.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPJN.DATA') -/* -//RECVSQ50 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM50) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPJN.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPJN.PNCH') -/* -//********************************************************************* -//RECVSQ51 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM51) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPLF.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPLF.DATA') -/* -//RECVSQ52 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM52) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPLF.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPLF.PNCH') -/* -//********************************************************************* -//RECVSQ53 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM53) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPLR.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPLR.DATA') -/* -//RECVSQ54 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM54) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPLR.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPLR.PNCH') -/* -//********************************************************************* -//RECVSQ55 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM55) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPPF.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPPF.DATA') -/* -//RECVSQ56 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM56) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPPF.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPPF.PNCH') -/* -//********************************************************************* -//RECVSQ57 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM57) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.USEREXIT.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.USEREXIT.DATA') -/* -//RECVSQ58 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM58) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.USEREXIT.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.USEREXIT.PNCH') -/* -//********************************************************************* -//RECVSQ59 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM59) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.USERTS.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.USERTS.DATA') -/* -//RECVSQ60 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM60) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.USERTS.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.USERTS.PNCH') -/* -//********************************************************************* -//********************************************************************* -//RECVSQ61 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM61) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VDPBATCH.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VDPBATCH.DATA') -/* -//RECVSQ62 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM62) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VDPBATCH.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VDPBATCH.PNCH') -/* -//********************************************************************* -//RECVSQ63 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM63) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VDPBTCHV.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VDPBTCHV.DATA') -/* -//RECVSQ64 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM64) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VDPBTCHV.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VDPBTCHV.PNCH') -/* -//********************************************************************* -//RECVSQ65 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM65) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VFVASS.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VFVASS.DATA') -/* -//RECVSQ66 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM66) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VFVASS.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VFVASS.PNCH') -/* -//********************************************************************* -//RECVSQ67 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM67) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWCOL.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWCOL.DATA') -/* -//RECVSQ68 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM68) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWCOL.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWCOL.PNCH') -/* -//********************************************************************* -//RECVSQ69 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM69) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWFOLD.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWFOLD.DATA') -/* -//RECVSQ70 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM70) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWFOLD.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWFOLD.PNCH') -/* -//********************************************************************* -//RECVSQ71 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM71) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWHDFT.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWHDFT.DATA') -/* -//RECVSQ72 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM72) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWHDFT.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWHDFT.PNCH') -/* -//********************************************************************* -//RECVSQ73 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM73) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWSRC.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWSRC.DATA') -/* -//RECVSQ74 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM74) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWSRC.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWSRC.PNCH') -/* -//********************************************************************* -//RECVSQ75 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM75) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWTS.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWTS.DATA') -/* -//RECVSQ76 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM76) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VIEWTS.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VIEWTS.PNCH') -/* -//********************************************************************* -//RECVSQ77 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM77) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VWCOLSRC.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VWCOLSRC.DATA') -/* -//RECVSQ78 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM78) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VWCOLSRC.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VWCOLSRC.PNCH') -/* -//********************************************************************* -//********************************************************************* -//RECVSQ79 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM79) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VWLOGDEP.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VWLOGDEP.DATA') -/* -//RECVSQ80 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM80) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VWLOGDEP.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VWLOGDEP.PNCH') -/* -//********************************************************************* -//RECVSQ81 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM81) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VWSORTKY.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VWSORTKY.DATA') -/* -//RECVSQ82 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM82) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.VWSORTKY.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.VWSORTKY.PNCH') -/* -//********************************************************************* -//RECVSQ83 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM83) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPUE.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPUE.DATA') -/* -//RECVSQ84 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM84) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPUE.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPUE.PNCH') -/* -//********************************************************************* -//RECVSQ85 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM85) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPUR.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPUR.DATA') -/* -//RECVSQ86 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM86) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPUR.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPUR.PNCH') -/* -//********************************************************************* -//RECVSQ87 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM87) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPVF.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPVF.DATA') -/* -//RECVSQ88 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM88) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPVF.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPVF.PNCH') -/* -//********************************************************************* -//RECVSQ89 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM89) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPVW.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPVW.DATA') -/* -//RECVSQ90 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM90) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SECGRPVW.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SECGRPVW.PNCH') -/* -//********************************************************************* -//RECVSQ91 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM91) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SERVER.DATA, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SERVER.DATA') -/* -//RECVSQ92 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' -//SYSPRINT DD SYSOUT=* -//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..RECEIVE.PDS(MEM92) -//INTOF1 DD DSN=&HLQ..&MLQ..RECEIVE.SERVER.PNCH, -// DCB=DSORG=PS, -// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), -// DISP=(,CATLG,DELETE) -//SYSTSPRT DD SYSOUT=* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - RECEIVE INFILE(FROMF1) - DSNAME('&HLQ..&MLQ..RECEIVE.SERVER.PNCH') -/* -// \ No newline at end of file diff --git a/DB2Schema/JCL/recurmit.jcl b/DB2Schema/JCL/recurmit.jcl deleted file mode 100644 index 347c9ed..0000000 --- a/DB2Schema/JCL/recurmit.jcl +++ /dev/null @@ -1,2550 +0,0 @@ -//NGRAPDB2 JOB (ACCT),'MERGE UNLOAD FILES', -// NOTIFY=&SYSUID., -// CLASS=A, -// MSGLEVEL=(1,1), -// MSGCLASS=H -//******************************************************************** -//* -//* (C) COPYRIGHT IBM CORPORATION 2025. -//* Copyright Contributors to the GenevaERS Project. -//*SPDX-License-Identifier: Apache-2.0 -//* -//******************************************************************** -//* -//* Licensed under the Apache License, Version 2.0 (the "License"); -//* you may not use this file except in compliance with the License. -//* You may obtain a copy of the License at -//* -//* http://www.apache.org/licenses/LICENSE-2.0 -//* -//* Unless required by applicable law or agreed to in writing, software -//* distributed under the License is distributed on an "AS IS" BASIS, -//* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express -//* or implied. -//* See the License for the specific language governing permissions -//* and limitations under the License. -//* -//****************************************************************** -//* RECURSIVE XMIT JCL -//****************************************************************** -//* -//* -//* The following variables will need to be set to match the Db2 -//* subsystem the packages are to reside. -//* -//* . ensure variables are exportable -//* -// EXPORT SYMLIST=* -//* -//******************************************************************* -//* Standard Variables in use -//* -// SET HLQ='GEBT' -// SET MLQ='GENERS.D240708U' -//* -//* Note: -//* 1) This job creates XMIT files from the unloaded DB2 schema -//* used for GenevaERS -//* -//* 2) If any unload files are empty, such as the following ones -//* then RC=12 is returned for each such job step -//* -//* GLOBAFLD -//* SECGRPJN -//* SECGRPLF -//* SECGRPLR -//* SECGRPPF -//* SECGRPUE -//* SECGRPVF -//* SECGRPVW -//* -//******************************************************************** -//* DELETE XMIT-FORMAT DATASETS -//********************************************************************* -//* -//DELFILE EXEC PGM=IDCAMS -//* -//SYSPRINT DD SYSOUT=* -//* -//SYSIN DD *,SYMBOLS=EXECSYS - DELETE &HLQ..&MLQ..LOGIC.LOB.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWCOL.LOB.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWSRCF.LOB.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWSRCO.LOB.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWTS.LOB.XMIT PURGE - DELETE &HLQ..&MLQ..VWCOLSRC.LOB.XMIT PURGE - DELETE &HLQ..&MLQ..CODETABL.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..CODETABL.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..CONTRLRC.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..CONTRLRC.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..ENVIRON.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..ENVIRON.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..GLOBAFLD.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..GLOBAFLD.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..GROUPTS.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..GROUPTS.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LFPFASS.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LFPFASS.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LOGFILE.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LOGFILE.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LOGIC.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LOGIC.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LOGREC.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LOGREC.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LOGRECIX.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LOGRECIX.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LOOKUP.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LOOKUP.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LOOKUPSR.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LOOKUPSR.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LOOKUPST.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LOOKUPST.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LRFIELD.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LRFIELD.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LRFLDATR.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LRFLDATR.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LRFLDIDX.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LRFLDIDX.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..LRLFASS.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..LRLFASS.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..MIGRAUDT.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..MIGRAUDT.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..NEXTKEY.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..NEXTKEY.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..PHYSFILE.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..PHYSFILE.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPEV.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPEV.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPJN.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPJN.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPLF.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPLF.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPLR.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPLR.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPPF.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPPF.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPUE.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPUE.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPUR.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPUR.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPVF.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPVF.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPVW.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..SECGRPVW.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..SERVER.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..SERVER.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..USEREXIT.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..USEREXIT.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..USERTS.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..USERTS.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..VDPBATCH.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..VDPBATCH.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..VDPBTCHV.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..VDPBTCHV.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..VFVASS.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..VFVASS.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWCOL.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWCOL.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWFOLD.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWFOLD.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWHDFT.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWHDFT.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWSRC.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWSRC.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWTS.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..VIEWTS.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..VWCOLSRC.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..VWCOLSRC.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..VWLOGDEP.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..VWLOGDEP.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..VWSORTKY.DATA.XMIT PURGE - DELETE &HLQ..&MLQ..VWSORTKY.PNCH.XMIT PURGE - DELETE &HLQ..&MLQ..COMBINE.PDS PURGE - DELETE &HLQ..&MLQ..COMBINE.PDS.XMIT PURGE - IF LASTCC > 0 THEN /* IF OPERATION FAILED, */ - - SET MAXCC = 0 /* PROCEED AS NORMAL ANYWAY */ -/* -//* -//********************************************************************* -//* CONVERT PDS FILES TO XMIT FORMAT -//********************************************************************* -//* -//XMITFIL1 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOGIC.LOB.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOGIC.LOB) -/* -//* -//XMITFIL2 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWCOL.LOB.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWCOL.LOB) -/* -//* -//XMITFIL3 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWSRCF.LOB.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWSRCF.LOB) -/* -//* -//XMITFIL4 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWSRCO.LOB.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWSRCO.LOB) -/* -//* -//XMITFIL5 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWTS.LOB.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWTS.LOB) -/* -//* -//XMITFIL6 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VWCOLSRC.LOB.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VWCOLSRC.LOB) -/* -//* -//********************************************************************* -//* CONVERT SEQ FILES TO XMIT FORMAT -//********************************************************************* -//* -//XMITSQ01 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..CODETABL.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..CODETABL.DATA) -/* -//* -//XMITSQ02 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..CODETABL.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..CODETABL.PNCH) -/* -//********************************************************************* -//* -//XMITSQ03 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..CONTRLRC.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..CONTRLRC.DATA) -/* -//* -//XMITSQ04 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..CONTRLRC.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..CONTRLRC.PNCH) -/* -//********************************************************************* -//* -//XMITSQ05 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..ENVIRON.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..ENVIRON.DATA) -/* -//* -//XMITSQ06 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..ENVIRON.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..ENVIRON.PNCH) -/* -//********************************************************************* -//* -//XMITSQ07 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..GLOBAFLD.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..GLOBAFLD.DATA) -/* -//* -//XMITSQ08 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..GLOBAFLD.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..GLOBAFLD.PNCH) -/* -//********************************************************************* -//* -//XMITSQ09 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..GROUPTS.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..GROUPTS.DATA) -/* -//* -//XMITSQ10 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..GROUPTS.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..GROUPTS.PNCH) -/* -//********************************************************************* -//* -//XMITSQ11 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LFPFASS.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LFPFASS.DATA) -/* -//* -//XMITSQ12 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LFPFASS.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LFPFASS.PNCH) -/* -//********************************************************************* -//* -//XMITSQ13 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOGFILE.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOGFILE.DATA) -/* -//* -//XMITSQ14 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOGFILE.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOGFILE.PNCH) -/* -//********************************************************************* -//* -//XMITSQ15 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOGIC.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOGIC.DATA) -/* -//* -//XMITSQ16 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOGIC.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOGIC.PNCH) -/* -//********************************************************************* -//* -//XMITSQ17 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOGREC.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOGREC.DATA) -/* -//* -//XMITSQ18 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOGREC.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOGREC.PNCH) -/* -//********************************************************************* -//* -//XMITSQ19 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOGRECIX.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOGRECIX.DATA) -/* -//* -//XMITSQ20 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOGRECIX.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOGRECIX.PNCH) -/* -//********************************************************************* -//* -//XMITSQ21 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUP.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOOKUP.DATA) -/* -//* -//XMITSQ22 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUP.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOOKUP.PNCH) -/* -//********************************************************************* -//* -//XMITSQ23 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUPSR.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOOKUPSR.DATA) -/* -//* -//XMITSQ24 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUPSR.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOOKUPSR.PNCH) -/* -//********************************************************************* -//* -//XMITSQ25 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUPST.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOOKUPST.DATA) -/* -//* -//XMITSQ26 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUPST.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LOOKUPST.PNCH) -/* -//********************************************************************* -//* -//XMITSQ27 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LRFIELD.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LRFIELD.DATA) -/* -//* -//XMITSQ28 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LRFIELD.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LRFIELD.PNCH) -/* -//********************************************************************* -//* -//XMITSQ29 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LRFLDATR.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LRFLDATR.DATA) -/* -//* -//XMITSQ30 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LRFLDATR.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LRFLDATR.PNCH) -/* -//********************************************************************* -//* -//XMITSQ31 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LRFLDIDX.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LRFLDIDX.DATA) -/* -//* -//XMITSQ32 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LRFLDIDX.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LRFLDIDX.PNCH) -/* -//********************************************************************* -//* -//XMITSQ33 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LRLFASS.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LRLFASS.DATA) -/* -//* -//XMITSQ34 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..LRLFASS.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..LRLFASS.PNCH) -/* -//********************************************************************* -//* -//XMITSQ35 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..MIGRAUDT.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..MIGRAUDT.DATA) -/* -//* -//XMITSQ36 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..MIGRAUDT.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..MIGRAUDT.PNCH) -/* -//********************************************************************* -//* -//XMITSQ37 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..NEXTKEY.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..NEXTKEY.DATA) -/* -//* -//XMITSQ38 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..NEXTKEY.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..NEXTKEY.PNCH) -/* -//********************************************************************* -//* -//XMITSQ39 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..PHYSFILE.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..PHYSFILE.DATA) -/* -//* -//XMITSQ40 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..PHYSFILE.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..PHYSFILE.PNCH) -/* -//********************************************************************* -//* -//XMITSQ41 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPEV.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPEV.DATA) -/* -//* -//XMITSQ42 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPEV.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPEV.PNCH) -/* -//********************************************************************* -//* -//XMITSQ43 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPJN.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPJN.DATA) -/* -//* -//XMITSQ44 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPJN.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPJN.PNCH) -/* -//********************************************************************* -//* -//XMITSQ45 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPLF.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPLF.DATA) -/* -//* -//XMITSQ46 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPLF.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPLF.PNCH) -/* -//********************************************************************* -//* -//XMITSQ47 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPLR.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPLR.DATA) -/* -//* -//XMITSQ48 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPLR.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPLR.PNCH) -/* -//********************************************************************* -//* -//XMITSQ49 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPPF.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPPF.DATA) -/* -//* -//XMITSQ50 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPPF.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPPF.PNCH) -/* -//********************************************************************* -//* -//XMITSQ51 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPUE.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPUE.DATA) -/* -//* -//XMITSQ52 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPUE.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPUE.PNCH) -/* -//********************************************************************* -//* -//XMITSQ53 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPUR.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPUR.DATA) -/* -//* -//XMITSQ54 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPUR.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPUR.PNCH) -/* -//********************************************************************* -//* -//XMITSQ55 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPVF.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPVF.DATA) -/* -//* -//XMITSQ56 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPVF.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPVF.PNCH) -/* -//********************************************************************* -//* -//XMITSQ57 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPVW.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPVW.DATA) -/* -//* -//XMITSQ58 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPVW.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SECGRPVW.PNCH) -/* -//********************************************************************* -//* -//XMITSQ59 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SERVER.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SERVER.DATA) -/* -//* -//XMITSQ60 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..SERVER.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..SERVER.PNCH) -/* -//********************************************************************* -//* -//XMITSQ61 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..USEREXIT.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..USEREXIT.DATA) -/* -//* -//XMITSQ62 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..USEREXIT.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..USEREXIT.PNCH) -/* -//********************************************************************* -//* -//XMITSQ63 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..USERTS.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..USERTS.DATA) -/* -//* -//XMITSQ64 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..USERTS.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..USERTS.PNCH) -/* -//********************************************************************* -//* -//XMITSQ65 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VDPBATCH.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VDPBATCH.DATA) -/* -//* -//XMITSQ66 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VDPBATCH.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VDPBATCH.PNCH) -/* -//********************************************************************* -//* -//XMITSQ67 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VDPBTCHV.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VDPBTCHV.DATA) -/* -//* -//XMITSQ68 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VDPBTCHV.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VDPBTCHV.PNCH) -/* -//********************************************************************* -//* -//XMITSQ69 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VFVASS.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VFVASS.DATA) -/* -//* -//XMITSQ70 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VFVASS.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VFVASS.PNCH) -/* -//********************************************************************* -//* -//XMITSQ71 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWCOL.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWCOL.DATA) -/* -//* -//XMITSQ72 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWCOL.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWCOL.PNCH) -/* -//********************************************************************* -//* -//XMITSQ73 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWFOLD.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWFOLD.DATA) -/* -//* -//XMITSQ74 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWFOLD.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWFOLD.PNCH) -/* -//********************************************************************* -//* -//XMITSQ75 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWHDFT.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWHDFT.DATA) -/* -//* -//XMITSQ76 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWHDFT.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWHDFT.PNCH) -/* -//********************************************************************* -//* -//XMITSQ77 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWSRC.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWSRC.DATA) -/* -//* -//XMITSQ78 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWSRC.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWSRC.PNCH) -/* -//********************************************************************* -//* -//XMITSQ79 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWTS.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWTS.DATA) -/* -//* -//XMITSQ80 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VIEWTS.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VIEWTS.PNCH) -/* -//********************************************************************* -//* -//XMITSQ81 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VWCOLSRC.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VWCOLSRC.DATA) -/* -//* -//XMITSQ82 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VWCOLSRC.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VWCOLSRC.PNCH) -/* -//********************************************************************* -//* -//XMITSQ83 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VWLOGDEP.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VWLOGDEP.DATA) -/* -//* -//XMITSQ84 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VWLOGDEP.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VWLOGDEP.PNCH) -/* -//********************************************************************* -//* -//XMITSQ85 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VWSORTKY.DATA.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VWSORTKY.DATA) -/* -//* -//XMITSQ86 EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..VWSORTKY.PNCH.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(TRK,(1000,100),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..VWSORTKY.PNCH) -/* -//* -//********************************************************************* -//* CONVERT SEQUENTIAL FILES INTO A PDS -//********************************************************************* -//* -//MERGEDSN EXEC PGM=IEFBR14 -//DD1 DD DSN=&HLQ..&MLQ..COMBINE.PDS, -// DCB=(RECFM=FB,LRECL=80,DSORG=PO), -// DISP=(,CATLG,DELETE), -// SPACE=(CYL,(100,20,25),RLSE), -// UNIT=SYSDA -//********************************************************************* -//* CONVERT SEQUENTIAL FILES INTO A PDS -//********************************************************************* -//STEP01 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOGIC.LOB.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM01), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP02 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWCOL.LOB.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM02), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP03 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWSRCF.LOB.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM03), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP04 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWSRCO.LOB.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM04), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP05 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWTS.LOB.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM05), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP06 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VWCOLSRC.LOB.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM06), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP07 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..CODETABL.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM07), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP08 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..CODETABL.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM08), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP09 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..CONTRLRC.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM09), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP10 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..CONTRLRC.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM10), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP11 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..ENVIRON.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM11), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP12 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..ENVIRON.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM12), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP13 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..GLOBAFLD.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM13), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP14 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..GLOBAFLD.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM14), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP15 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..GROUPTS.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM15), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP16 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..GROUPTS.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM16), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP17 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LFPFASS.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM17), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP18 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LFPFASS.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM18), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP19 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOGFILE.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM19), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP20 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOGFILE.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM20), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP21 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOGIC.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM21), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP22 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOGIC.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM22), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP23 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOGREC.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM23), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP24 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOGREC.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM24), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP25 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOGRECIX.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM25), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP26 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOGRECIX.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM26), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP27 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUP.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM27), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP28 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUP.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM28), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP29 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUPSR.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM29), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP30 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUPSR.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM30), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP31 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUPST.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM31), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP32 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUPST.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM32), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP33 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LRFIELD.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM33), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP34 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LRFIELD.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM34), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP35 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LRFLDATR.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM35), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP36 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LRFLDATR.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM36), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP37 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LRFLDIDX.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM37), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP38 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LRFLDIDX.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM38), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP39 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LRLFASS.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM39), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP40 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..LRLFASS.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM40), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP41 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..MIGRAUDT.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM41), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP42 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..MIGRAUDT.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM42), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP43 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..NEXTKEY.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM43), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP44 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..NEXTKEY.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM44), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP45 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..PHYSFILE.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM45), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP46 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..PHYSFILE.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM46), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP47 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPEV.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM47), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP48 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPEV.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM48), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP49 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPJN.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM49), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP50 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPJN.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM50), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP51 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPLF.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM51), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP52 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPLF.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM52), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP53 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPLR.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM53), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP54 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPLR.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM54), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP55 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPPF.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM55), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP56 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPPF.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM56), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP57 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..USEREXIT.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM57), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP58 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..USEREXIT.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM58), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP59 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..USERTS.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM59), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP60 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..USERTS.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM60), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP61 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VDPBATCH.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM61), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP62 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VDPBATCH.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM62), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP63 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VDPBTCHV.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM63), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP64 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VDPBTCHV.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM64), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP65 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VFVASS.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM65), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP66 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VFVASS.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM66), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP67 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWCOL.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM67), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP68 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWCOL.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM68), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP69 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWFOLD.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM69), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP70 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWFOLD.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM70), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP71 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWHDFT.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM71), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP72 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWHDFT.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM72), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP73 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWSRC.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM73), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP74 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWSRC.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM74), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP75 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWTS.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM75), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP76 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWTS.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM76), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP77 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VWCOLSRC.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM77), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP78 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VWCOLSRC.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM78), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP79 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VWLOGDEP.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM79), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP80 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VWLOGDEP.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM80), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP81 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VWSORTKY.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM81), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP82 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..VWSORTKY.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM82), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP83 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPUE.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM83), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP84 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPUE.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM84), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP85 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPUR.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM85), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP86 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPUR.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM86), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP87 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPVF.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM87), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP88 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPVF.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM88), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP89 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPVW.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM89), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP90 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPVW.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM90), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP91 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SERVER.DATA.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM91), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//********************************************************************* -//STEP92 EXEC PGM=IEBGENER -//SYSIN DD DUMMY -//SYSUT1 DD DSN=&HLQ..&MLQ..SERVER.PNCH.XMIT, -// DISP=SHR -//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM92), -// DISP=SHR -//SYSPRINT DD SYSOUT=* -//* -//********************************************************************* -//* MAKE FINAL COMBINED XMIT FILE OF EVERYTHING -//********************************************************************* -//XMIFINAL EXEC PGM=IKJEFT1A,DYNAMNBR=30 -//* -//OUTFILE DD DSN=&HLQ..&MLQ..COMBINE.PDS.XMIT, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA, -// SPACE=(CYL,(360,10),RLSE), -// DCB=(DSORG=PS,RECFM=FB,LRECL=80) -//* -//SYSTSPRT DD SYSOUT=* -//* -//SYSTSIN DD *,SYMBOLS=EXECSYS - PROFILE NOPREFIX - XMIT DUMMY.DEST NOLOG - - OUTDDNAME(OUTFILE) - - DA(&HLQ..&MLQ..COMBINE.PDS) -/* -// \ No newline at end of file diff --git a/DB2Schema/JCL/unterse.jcl b/DB2Schema/JCL/unterse.jcl deleted file mode 100644 index 0defda4..0000000 --- a/DB2Schema/JCL/unterse.jcl +++ /dev/null @@ -1,68 +0,0 @@ -//UNTERSE JOB (ACCT),'UNTERSE TRANSFER FILE', -// NOTIFY=&SYSUID., -// CLASS=A, -// MSGLEVEL=(1,1), -// MSGCLASS=H -//******************************************************************** -//* -//* (C) COPYRIGHT IBM CORPORATION 2025. -//* Copyright Contributors to the GenevaERS Project. -//*SPDX-License-Identifier: Apache-2.0 -//* -//******************************************************************** -//* -//* Licensed under the Apache License, Version 2.0 (the "License"); -//* you may not use this file except in compliance with the License. -//* You may obtain a copy of the License at -//* -//* http://www.apache.org/licenses/LICENSE-2.0 -//* -//* Unless required by applicable law or agreed to in writing, software -//* distributed under the License is distributed on an "AS IS" BASIS, -//* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express -//* or implied. -//* See the License for the specific language governing permissions -//* and limitations under the License. -//* -//****************************************************************** -//* UNTERSE TRANSMISSION FILE -//* USED AFTER TRANSFERRING TERSED DATABASE UNLOAD CONTAINED IN A PDSE -//****************************************************************** -//* -//* The following variables will need to be set to match the Db2 -//* subsystem the packages are to reside. -//* -//* . ensure variables are exportable -//* -// EXPORT SYMLIST=* -//* -// SET HLQ='GEBT' -// SET MLQ='GENERS.D240708U' -//* -//********************************************************************* -//* DELETE DATA SET -//********************************************************************* -//* -//DELDS EXEC PGM=IDCAMS -//* -//SYSPRINT DD SYSOUT=*,DCB=(LRECL=133,BLKSIZE=12901,RECFM=FBA) -//* -//SYSIN DD *,SYMBOLS=EXECSYS - DELETE &HLQ.&MLQ.PDS PURGE - IF LASTCC > 0 THEN SET MAXCC = 0 -//* -//********************************************************************* -//* UNPACK DATA SET -//********************************************************************* -//* -//UNPACK EXEC PGM=TRSMAIN,PARM='UNPACK' -//* -//SYSPRINT DD SYSOUT=*,DCB=(LRECL=133,BLKSIZE=12901,RECFM=FBA) -//* -//INFILE DD DISP=OLD,DSN=&HLQ.&MLQ.PDS.TRS -//* -//OUTFILE DD DSN=&HLQ.&MLQ.PDS, -// DISP=(NEW,CATLG,DELETE), -// UNIT=SYSDA,DSNTYPE=LIBRARY,DSORG=PO, -// SPACE=(CYL,(4000,1000),RLSE) -// \ No newline at end of file From ced6be67a2313140087a1496ba12f25cc61d0a9d Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Thu, 11 Dec 2025 17:43:19 -0600 Subject: [PATCH 02/18] remove temporary files Signed-off-by: neilbeesley --- DB2CHECK/temp.sh | 11 ----------- DB2CHECK/temp2.sh | 8 -------- 2 files changed, 19 deletions(-) delete mode 100644 DB2CHECK/temp.sh delete mode 100644 DB2CHECK/temp2.sh diff --git a/DB2CHECK/temp.sh b/DB2CHECK/temp.sh deleted file mode 100644 index c13c9bf..0000000 --- a/DB2CHECK/temp.sh +++ /dev/null @@ -1,11 +0,0 @@ -mvn dependency:get -Dartifact=com.ibm:db2jcc4:4 > /dev/null 2>&1 - if [ $? != 0 ]; - then - - echo "installing db2 jars in repository for Run Control Apps" - mvn install:install-file -Dfile=$GERS_JARS/db2jcc4.jar -DgroupId=com.ibm -DartifactId=db2jcc4 -Dversion=4 -Dpackaging=jar - mvn install:install-file -Dfile=$GERS_JARS/db2jcc_license_cu.jar -DgroupId=com.ibm -DartifactId=db2jcc_license_cu -Dversion=4 -Dpackaging=jar - mvn install:install-file -Dfile=$GERS_JARS/db2jcc_license_cisuz.jar -DgroupId=com.ibm -DartifactId=db2jcc_license_cisuz -Dversion=4 -Dpackaging=jar - else - echo "Jars for db2 in maven repository for Run Control Apps" - fi diff --git a/DB2CHECK/temp2.sh b/DB2CHECK/temp2.sh deleted file mode 100644 index eb37282..0000000 --- a/DB2CHECK/temp2.sh +++ /dev/null @@ -1,8 +0,0 @@ -mvn dependency:get -Dartifact=com.ibm:db2jcc4:4 > /dev/null 2>&1 - if [ $? != 0 ]; - then - - echo "installing db2 jars in repository for Run Control Apps" - mvn install:install-file -Dfile="C/Users/NeilBeesley/git/public/Workbench/database/db2/Java/db2jcc4.jar" -DgroupId=com.ibm.db2 -DartifactId=db2jcc4 -Dversion=4 -Dpackaging=jar - echo "Jars for db2 in maven repository for Run Control Apps" - fi From ab8772b1936003a1bbabeb7972eb47ea6d931fca Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Thu, 11 Dec 2025 18:06:26 -0600 Subject: [PATCH 03/18] format Signed-off-by: neilbeesley --- .../main/java/org/genevaers/db2check/GvbSchemaValidateMain.java | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java index d07e1d5..7fe2cc3 100644 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java @@ -300,7 +300,6 @@ public static void main(String[] args) // Close the connection con.close(); System.out.println("**** Disconnected from data source"); - System.out.println("**** JDBC completed - no DB2 errors"); } catch (SQLException e) { @@ -313,5 +312,6 @@ public static void main(String[] args) //e.printStackTrace(); return; } + return; } } From 2b2f79bb25e8c0f900dc379e9b346732d464d433 Mon Sep 17 00:00:00 2001 From: AswiniBM08 Date: Wed, 14 Jan 2026 11:51:16 -0600 Subject: [PATCH 04/18] Update README with schema definitions note Clarified command line option description in README. Signed-off-by: AswiniBM08 --- DB2CHECK/README.md | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/DB2CHECK/README.md b/DB2CHECK/README.md index bc906b4..64e57dc 100644 --- a/DB2CHECK/README.md +++ b/DB2CHECK/README.md @@ -37,7 +37,8 @@ java -jar db2check-1.0.1-jar-with-dependencies.jar ## Command line options From directory DB2CHECK/target/ use the command: +This generates files containing your schema definitions 
-java -jar db2check-1.0.1-jar-with-dependencies.jar -D   Generates files containing your schema definitions
+java -jar db2check-1.0.1-jar-with-dependencies.jar -D
From 1e07b4a48fff07e52d60e5b4ec33fb66743a29fd Mon Sep 17 00:00:00 2001 From: AswiniBM08 Date: Wed, 14 Jan 2026 11:53:17 -0600 Subject: [PATCH 05/18] Update .gitignore to remove JAR files Removed specific JAR files from .gitignore. Signed-off-by: AswiniBM08 --- .gitignore | 2 -- 1 file changed, 2 deletions(-) diff --git a/.gitignore b/.gitignore index 4fdec7a..ad647b4 100644 --- a/.gitignore +++ b/.gitignore @@ -18,8 +18,6 @@ DB2CHECK/target/maven-archiver/pom.properties DB2CHECK/target/maven-status/maven-compiler-plugin/compile/default-compile/createdFiles.lst DB2CHECK/target/maven-status/maven-compiler-plugin/compile/default-compile/inputFiles.lst DB2CHECK/target/maven-status/maven-compiler-plugin/testCompile/default-testCompile/inputFiles.lst -DB2CHECK/target/db2check-1.0.1-jar-with-dependencies.jar -DB2CHECK/target/db2check-1.0.1.jar DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateMain.class DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaConfig.class DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateA.class From 22da0da8102e8169408f9f830c19fb25187ac0a1 Mon Sep 17 00:00:00 2001 From: Neil Beesley <73969989+neilbeesley@users.noreply.github.com> Date: Wed, 14 Jan 2026 13:40:31 -0600 Subject: [PATCH 06/18] Delete FTL2JCL/.vscode/settings.json Signed-off-by: Neil Beesley <73969989+neilbeesley@users.noreply.github.com> --- FTL2JCL/.vscode/settings.json | 3 --- 1 file changed, 3 deletions(-) delete mode 100644 FTL2JCL/.vscode/settings.json diff --git a/FTL2JCL/.vscode/settings.json b/FTL2JCL/.vscode/settings.json deleted file mode 100644 index c5f3f6b..0000000 --- a/FTL2JCL/.vscode/settings.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "java.configuration.updateBuildConfiguration": "interactive" -} \ No newline at end of file From 482ed039932664edef56c9cc686afa8a648fac56 Mon Sep 17 00:00:00 2001 From: Neil Beesley <73969989+neilbeesley@users.noreply.github.com> Date: Wed, 14 Jan 2026 13:47:27 -0600 Subject: [PATCH 07/18] Delete FTL2JCL/.vscode/launch.json Signed-off-by: Neil Beesley <73969989+neilbeesley@users.noreply.github.com> --- FTL2JCL/.vscode/launch.json | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100644 FTL2JCL/.vscode/launch.json diff --git a/FTL2JCL/.vscode/launch.json b/FTL2JCL/.vscode/launch.json deleted file mode 100644 index 0fe3f20..0000000 --- a/FTL2JCL/.vscode/launch.json +++ /dev/null @@ -1,33 +0,0 @@ -{ - // Use IntelliSense to learn about possible attributes. - // Hover to view descriptions of existing attributes. - // For more information, visit: https://go.microsoft.com/fwlink/?linkid=830387 - "version": "0.2.0", - "configurations": [ - - { - "type": "java", - "name": "Current File", - "request": "launch", - "mainClass": "${file}" - }, - { - "type": "java", - "name": "CommandLineHandler", - "request": "launch", - "mainClass": "org.genevaers.ftl2jcl.CommandLineHandler", - "projectName": "ftl2jcl", - "cwd": "${workspaceFolder}/../../../RunTemplateTest", - "args": "ftls/remoteBanana remoteTable/tables output/remoteBanana.gill" - }, - { - "type": "java", - "name": "RunDown", - "request": "launch", - "mainClass": "org.genevaers.ftl2jcl.CommandLineHandler", - "projectName": "ftl2jcl", - "cwd": "${workspaceFolder}/../../../RunTemplateTest/down", - "args": "../ftls/remoteBanana ../remoteTable/tables ../output/remoteBanana.gill" - } - ] -} \ No newline at end of file From 4ff7f1027bdeb4e3ba5bde54a2ca2f3f7a070698 Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Wed, 14 Jan 2026 17:47:43 -0600 Subject: [PATCH 08/18] add missing directory Signed-off-by: neilbeesley --- DB2Schema/JCL/README.md | 20 + DB2Schema/JCL/e2paxmit.jcl | 1414 ++++++++++++++++++++ DB2Schema/JCL/expaxmit.jcl | 1421 ++++++++++++++++++++ DB2Schema/JCL/recurmit.jcl | 2550 ++++++++++++++++++++++++++++++++++++ DB2Schema/JCL/unterse.jcl | 67 + 5 files changed, 5472 insertions(+) create mode 100644 DB2Schema/JCL/README.md create mode 100644 DB2Schema/JCL/e2paxmit.jcl create mode 100644 DB2Schema/JCL/expaxmit.jcl create mode 100644 DB2Schema/JCL/recurmit.jcl create mode 100644 DB2Schema/JCL/unterse.jcl diff --git a/DB2Schema/JCL/README.md b/DB2Schema/JCL/README.md new file mode 100644 index 0000000..20bae75 --- /dev/null +++ b/DB2Schema/JCL/README.md @@ -0,0 +1,20 @@ +# Helpful JCL for packaging DB2 schema unload files for transmission and performing the reverse operations + +These instructions provide a procedure used to package the schema unload files into a single compressed dataset. Six of the datasets are PDSE files from unloading LOB data. The remainder are DATA and PNCH files pertaining to each DB2 table. The resulting dataset is a TSO XMIT file of a final combined PDSE containing all the data. + +### Note: + +The final output file can be PACKED (TRSMAIN) for compression, depending on your site's file transfer configuration. This step is not part of the packaging process of the database unload datasets (RECURMIT). + +## Package unload data + +**RECURMIT.JCL** involves performing recursive TSO XMIT steps to obtain a single combined PDS dataset containing all DB2 unload files for the schema. The resulting dataset is in TSO XMIT format. + +## Unpackage unload data in XMIT format + +**EXPAXMIT.JCL** This job is used where the transfer dataset is in XMIT format. It involves performing TSO RECEIVE operations starting with an XMIT file of the single combined PDS dataset to obtain the original database unload datasets. + +## Unpackage unload data in TRSMAIN format + +**E2PAXMIT.JCL** This job is used where the transfer dataset is in TRS format. It involves first performing TRSMAIN UNPACK and subsequent TSO RECEIVE operations on the resulting single combined PDS dataset to obtain the original database unload datasets. + diff --git a/DB2Schema/JCL/e2paxmit.jcl b/DB2Schema/JCL/e2paxmit.jcl new file mode 100644 index 0000000..714200b --- /dev/null +++ b/DB2Schema/JCL/e2paxmit.jcl @@ -0,0 +1,1414 @@ +//E2PAXMIT JOB (ACCT),'RECEIVE UNLOADED DB', +// NOTIFY=&SYSUID., +// REGION=0M, +// CLASS=A, +// MSGLEVEL=(1,1), +// MSGCLASS=H +//* +//******************************************************************** +//* +//* (C) COPYRIGHT IBM CORPORATION 2025. +//* Copyright Contributors to the GenevaERS Project. +//*SPDX-License-Identifier: Apache-2.0 +//* +//******************************************************************** +//* +//* Licensed under the Apache License, Version 2.0 (the "License"); +//* you may not use this file except in compliance with the License. +//* You may obtain a copy of the License at +//* +//* http://www.apache.org/licenses/LICENSE-2.0 +//* +//* Unless required by applicable law or agreed to in writing, software +//* distributed under the License is distributed on an "AS IS" BASIS, +//* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express +//* or implied. +//* See the License for the specific language governing permissions +//* and limitations under the License. +//* +//* +//************************************************************* +//* THIS JOB IS USED TO RESTORE ORIGINAL DATABASE UNLOAD +//* FILES THAT WERE PACKAGED INTO A SINGLE FILE BY RECURMIT +//* +//* THIS JOB IS USED AT IBM ON KANPLEX AFTER THE COMBINED +//* DATABASE UNLOAD FILE HAS BEEN UPLOADED FROM WINDOWS +//* TO MVS AND IS IN TRS FORMAT. +//* +//* &HLQ..&MLQ..TRS +//* +//************************************************************* +// EXPORT SYMLIST=* +// SET HLQ='GEBT' +// SET MLQ='GENERS.D240708U' +//* +//************************************************************* +//* DELETE RECEIVE'D FILES FROM LAST RUN +//************************************************************* +//* +//DELFILE EXEC PGM=IDCAMS +//* +//SYSPRINT DD SYSOUT=* +//* +//SYSIN DD *,SYMBOLS=EXECSYS + DELETE &HLQ..&MLQ..PDS PURGE + DELETE &HLQ..&MLQ..LOGIC.LOB PURGE + DELETE &HLQ..&MLQ..VIEWCOL.LOB PURGE + DELETE &HLQ..&MLQ..VIEWSRCF.LOB PURGE + DELETE &HLQ..&MLQ..VIEWSRCO.LOB PURGE + DELETE &HLQ..&MLQ..VIEWTS.LOB PURGE + DELETE &HLQ..&MLQ..VWCOLSRC.LOB PURGE + DELETE &HLQ..&MLQ..CODETABL.DATA PURGE + DELETE &HLQ..&MLQ..CODETABL.PNCH PURGE + DELETE &HLQ..&MLQ..CONTRLRC.DATA PURGE + DELETE &HLQ..&MLQ..CONTRLRC.PNCH PURGE + DELETE &HLQ..&MLQ..ENVIRON.DATA PURGE + DELETE &HLQ..&MLQ..ENVIRON.PNCH PURGE + DELETE &HLQ..&MLQ..GLOBAFLD.DATA PURGE + DELETE &HLQ..&MLQ..GLOBAFLD.PNCH PURGE + DELETE &HLQ..&MLQ..GROUPTS.DATA PURGE + DELETE &HLQ..&MLQ..GROUPTS.PNCH PURGE + DELETE &HLQ..&MLQ..LFPFASS.DATA PURGE + DELETE &HLQ..&MLQ..LFPFASS.PNCH PURGE + DELETE &HLQ..&MLQ..LOGFILE.DATA PURGE + DELETE &HLQ..&MLQ..LOGFILE.PNCH PURGE + DELETE &HLQ..&MLQ..LOGIC.DATA PURGE + DELETE &HLQ..&MLQ..LOGIC.PNCH PURGE + DELETE &HLQ..&MLQ..LOGREC.DATA PURGE + DELETE &HLQ..&MLQ..LOGREC.PNCH PURGE + DELETE &HLQ..&MLQ..LOGRECIX.DATA PURGE + DELETE &HLQ..&MLQ..LOGRECIX.PNCH PURGE + DELETE &HLQ..&MLQ..LOOKUP.DATA PURGE + DELETE &HLQ..&MLQ..LOOKUP.PNCH PURGE + DELETE &HLQ..&MLQ..LOOKUPSR.DATA PURGE + DELETE &HLQ..&MLQ..LOOKUPSR.PNCH PURGE + DELETE &HLQ..&MLQ..LOOKUPST.DATA PURGE + DELETE &HLQ..&MLQ..LOOKUPST.PNCH PURGE + DELETE &HLQ..&MLQ..LRFIELD.DATA PURGE + DELETE &HLQ..&MLQ..LRFIELD.PNCH PURGE + DELETE &HLQ..&MLQ..LRFLDATR.DATA PURGE + DELETE &HLQ..&MLQ..LRFLDATR.PNCH PURGE + DELETE &HLQ..&MLQ..LRFLDIDX.DATA PURGE + DELETE &HLQ..&MLQ..LRFLDIDX.PNCH PURGE + DELETE &HLQ..&MLQ..LRLFASS.DATA PURGE + DELETE &HLQ..&MLQ..LRLFASS.PNCH PURGE + DELETE &HLQ..&MLQ..MIGRAUDT.DATA PURGE + DELETE &HLQ..&MLQ..MIGRAUDT.PNCH PURGE + DELETE &HLQ..&MLQ..NEXTKEY.DATA PURGE + DELETE &HLQ..&MLQ..NEXTKEY.PNCH PURGE + DELETE &HLQ..&MLQ..PHYSFILE.DATA PURGE + DELETE &HLQ..&MLQ..PHYSFILE.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPEV.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPEV.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPJN.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPJN.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPLF.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPLF.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPLR.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPLR.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPPF.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPPF.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPUE.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPUE.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPUR.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPUR.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPVF.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPVF.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPVW.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPVW.PNCH PURGE + DELETE &HLQ..&MLQ..SERVER.DATA PURGE + DELETE &HLQ..&MLQ..SERVER.PNCH PURGE + DELETE &HLQ..&MLQ..USEREXIT.DATA PURGE + DELETE &HLQ..&MLQ..USEREXIT.PNCH PURGE + DELETE &HLQ..&MLQ..USERTS.DATA PURGE + DELETE &HLQ..&MLQ..USERTS.PNCH PURGE + DELETE &HLQ..&MLQ..VDPBATCH.DATA PURGE + DELETE &HLQ..&MLQ..VDPBATCH.PNCH PURGE + DELETE &HLQ..&MLQ..VDPBTCHV.DATA PURGE + DELETE &HLQ..&MLQ..VDPBTCHV.PNCH PURGE + DELETE &HLQ..&MLQ..VFVASS.DATA PURGE + DELETE &HLQ..&MLQ..VFVASS.PNCH PURGE + DELETE &HLQ..&MLQ..VIEWCOL.DATA PURGE + DELETE &HLQ..&MLQ..VIEWCOL.PNCH PURGE + DELETE &HLQ..&MLQ..VIEWFOLD.DATA PURGE + DELETE &HLQ..&MLQ..VIEWFOLD.PNCH PURGE + DELETE &HLQ..&MLQ..VIEWHDFT.DATA PURGE + DELETE &HLQ..&MLQ..VIEWHDFT.PNCH PURGE + DELETE &HLQ..&MLQ..VIEWSRC.DATA PURGE + DELETE &HLQ..&MLQ..VIEWSRC.PNCH PURGE + DELETE &HLQ..&MLQ..VIEWTS.DATA PURGE + DELETE &HLQ..&MLQ..VIEWTS.PNCH PURGE + DELETE &HLQ..&MLQ..VWCOLSRC.DATA PURGE + DELETE &HLQ..&MLQ..VWCOLSRC.PNCH PURGE + DELETE &HLQ..&MLQ..VWLOGDEP.DATA PURGE + DELETE &HLQ..&MLQ..VWLOGDEP.PNCH PURGE + DELETE &HLQ..&MLQ..VWSORTKY.DATA PURGE + DELETE &HLQ..&MLQ..VWSORTKY.PNCH PURGE + IF LASTCC > 0 THEN /* IF OPERATION FAILED, */ - + SET MAXCC = 0 /* PROCEED AS NORMAL ANYWAY */ +/* +//******************************************************************* +//* RECEIVE TRSMAIN VERSION OF MERGED PDS FILE FIRST +//******************************************************************* +//UNTERSE EXEC PGM=TRSMAIN,PARM=UNPACK +//SYSPRINT DD SYSOUT=* +//INFILE DD DSN=&HLQ..&MLQ..TRS, +// DISP=SHR +//OUTFILE DD DSN=&HLQ..&MLQ..PDS, +// DSORG=PO,DSNTYPE=LIBRARY, +// SPACE=(CYL,(500,100),RLSE),DISP=(NEW,CATLG,DELETE) +//* +//********************************************************************* +//* CONVERT 6 PDS MEMBERS TO PDS FILES (LOBS) +//********************************************************************* +//RECVLOB1 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM01) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGIC.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGIC.LOB') +/* +//********************************************************************* +//RECVLOB2 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM02) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWCOL.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWCOL.LOB') +/* +//********************************************************************* +//RECVLOB3 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM03) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWSRCF.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWSRCF.LOB') +/* +//********************************************************************* +//RECVLOB4 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM04) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWSRCO.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWSRCO.LOB') +/* +//********************************************************************* +//RECVLOB5 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM05) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWTS.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWTS.LOB') +/* +//********************************************************************* +//RECVLOB6 EXEC PGM=IKJEFT01,PARM='WORK=1600M,SIZE=2000M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM06) +//INTOF1 DD DSN=&HLQ..&MLQ..VWCOLSRC.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(1000,50),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWCOLSRC.LOB') +/* +//********************************************************************* +//* CONVERT OTHER PDS MEMBERS TO SEQUENTIAL FILES +//********************************************************************* +//RECVSQ07 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM07) +//INTOF1 DD DSN=&HLQ..&MLQ..CODETABL.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..CODETABL.DATA') +/* +//RECVSQ08 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM08) +//INTOF1 DD DSN=&HLQ..&MLQ..CODETABL.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..CODETABL.PNCH') +/* +//********************************************************************* +//RECVSQ09 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM09) +//INTOF1 DD DSN=&HLQ..&MLQ..CONTRLRC.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..CONTRLRC.DATA') +/* +//RECVSQ10 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM10) +//INTOF1 DD DSN=&HLQ..&MLQ..CONTRLRC.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..CONTRLRC.PNCH') +/* +//********************************************************************* +//RECVSQ11 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM11) +//INTOF1 DD DSN=&HLQ..&MLQ..ENVIRON.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..ENVIRON.DATA') +/* +//RECVSQ12 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM12) +//INTOF1 DD DSN=&HLQ..&MLQ..ENVIRON.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..ENVIRON.PNCH') +/* +//********************************************************************* +//RECVSQ13 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM13) +//INTOF1 DD DSN=&HLQ..&MLQ..GLOBAFLD.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..GLOBAFLD.DATA') +/* +//RECVSQ14 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM14) +//INTOF1 DD DSN=&HLQ..&MLQ..GLOBAFLD.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..GLOBAFLD.PNCH') +/* +//********************************************************************* +//RECVSQ15 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM15) +//INTOF1 DD DSN=&HLQ..&MLQ..GROUPTS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..GROUPTS.DATA') +/* +//RECVSQ16 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM16) +//INTOF1 DD DSN=&HLQ..&MLQ..GROUPTS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..GROUPTS.PNCH') +/* +//********************************************************************* +//RECVSQ17 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM17) +//INTOF1 DD DSN=&HLQ..&MLQ..LFPFASS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LFPFASS.DATA') +/* +//RECVSQ18 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM18) +//INTOF1 DD DSN=&HLQ..&MLQ..LFPFASS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LFPFASS.PNCH') +/* +//********************************************************************* +//RECVSQ19 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM19) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGFILE.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGFILE.DATA') +/* +//RECVSQ20 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM20) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGFILE.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGFILE.PNCH') +/* +//********************************************************************* +//RECVSQ21 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM21) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGIC.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGIC.DATA') +/* +//RECVSQ22 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM22) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGIC.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGIC.PNCH') +/* +//********************************************************************* +//RECVSQ23 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM23) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGREC.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGREC.DATA') +/* +//RECVSQ24 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM24) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGREC.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGREC.PNCH') +/* +//********************************************************************* +//RECVSQ25 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM25) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGRECIX.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGRECIX.DATA') +/* +//RECVSQ26 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM26) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGRECIX.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGRECIX.PNCH') +/* +//********************************************************************* +//********************************************************************* +//RECVSQ27 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM27) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUP.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUP.DATA') +/* +//RECVSQ28 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM28) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUP.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUP.PNCH') +/* +//********************************************************************* +//RECVSQ29 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM29) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUPSR.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUPSR.DATA') +/* +//RECVSQ30 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM30) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUPSR.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUPSR.PNCH') +/* +//********************************************************************* +//RECVSQ31 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM31) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUPST.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUPST.DATA') +/* +//RECVSQ32 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM32) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUPST.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUPST.PNCH') +/* +//********************************************************************* +//RECVSQ33 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM33) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFIELD.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFIELD.DATA') +/* +//RECVSQ34 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM34) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFIELD.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFIELD.PNCH') +/* +//********************************************************************* +//RECVSQ35 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM35) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFLDATR.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFLDATR.DATA') +/* +//RECVSQ36 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM36) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFLDATR.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFLDATR.PNCH') +/* +//********************************************************************* +//RECVSQ37 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM37) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFLDIDX.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFLDIDX.DATA') +/* +//RECVSQ38 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM38) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFLDIDX.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFLDIDX.PNCH') +/* +//********************************************************************* +//RECVSQ39 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM39) +//INTOF1 DD DSN=&HLQ..&MLQ..LRLFASS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRLFASS.DATA') +/* +//RECVSQ40 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM40) +//INTOF1 DD DSN=&HLQ..&MLQ..LRLFASS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRLFASS.PNCH') +/* +//********************************************************************* +//RECVSQ41 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM41) +//INTOF1 DD DSN=&HLQ..&MLQ..MIGRAUDT.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..MIGRAUDT.DATA') +/* +//RECVSQ42 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM42) +//INTOF1 DD DSN=&HLQ..&MLQ..MIGRAUDT.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..MIGRAUDT.PNCH') +/* +//********************************************************************* +//********************************************************************* +//RECVSQ43 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM43) +//INTOF1 DD DSN=&HLQ..&MLQ..NEXTKEY.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..NEXTKEY.DATA') +/* +//RECVSQ44 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM44) +//INTOF1 DD DSN=&HLQ..&MLQ..NEXTKEY.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..NEXTKEY.PNCH') +/* +//********************************************************************* +//RECVSQ45 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM45) +//INTOF1 DD DSN=&HLQ..&MLQ..PHYSFILE.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..PHYSFILE.DATA') +/* +//RECVSQ46 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM46) +//INTOF1 DD DSN=&HLQ..&MLQ..PHYSFILE.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..PHYSFILE.PNCH') +/* +//********************************************************************* +//RECVSQ47 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM47) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPEV.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPEV.DATA') +/* +//RECVSQ48 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM48) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPEV.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPEV.PNCH') +/* +//********************************************************************* +//RECVSQ49 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM49) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPJN.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPJN.DATA') +/* +//RECVSQ50 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM50) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPJN.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPJN.PNCH') +/* +//********************************************************************* +//RECVSQ51 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM51) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPLF.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPLF.DATA') +/* +//RECVSQ52 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM52) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPLF.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPLF.PNCH') +/* +//********************************************************************* +//RECVSQ53 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM53) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPLR.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPLR.DATA') +/* +//RECVSQ54 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM54) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPLR.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPLR.PNCH') +/* +//********************************************************************* +//RECVSQ55 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM55) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPPF.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPPF.DATA') +/* +//RECVSQ56 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM56) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPPF.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPPF.PNCH') +/* +//********************************************************************* +//RECVSQ57 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM57) +//INTOF1 DD DSN=&HLQ..&MLQ..USEREXIT.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..USEREXIT.DATA') +/* +//RECVSQ58 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM58) +//INTOF1 DD DSN=&HLQ..&MLQ..USEREXIT.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..USEREXIT.PNCH') +/* +//********************************************************************* +//RECVSQ59 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM59) +//INTOF1 DD DSN=&HLQ..&MLQ..USERTS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..USERTS.DATA') +/* +//RECVSQ60 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM60) +//INTOF1 DD DSN=&HLQ..&MLQ..USERTS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..USERTS.PNCH') +/* +//********************************************************************* +//********************************************************************* +//RECVSQ61 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM61) +//INTOF1 DD DSN=&HLQ..&MLQ..VDPBATCH.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VDPBATCH.DATA') +/* +//RECVSQ62 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM62) +//INTOF1 DD DSN=&HLQ..&MLQ..VDPBATCH.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VDPBATCH.PNCH') +/* +//********************************************************************* +//RECVSQ63 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM63) +//INTOF1 DD DSN=&HLQ..&MLQ..VDPBTCHV.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VDPBTCHV.DATA') +/* +//RECVSQ64 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM64) +//INTOF1 DD DSN=&HLQ..&MLQ..VDPBTCHV.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VDPBTCHV.PNCH') +/* +//********************************************************************* +//RECVSQ65 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM65) +//INTOF1 DD DSN=&HLQ..&MLQ..VFVASS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VFVASS.DATA') +/* +//RECVSQ66 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM66) +//INTOF1 DD DSN=&HLQ..&MLQ..VFVASS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VFVASS.PNCH') +/* +//********************************************************************* +//RECVSQ67 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM67) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWCOL.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWCOL.DATA') +/* +//RECVSQ68 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM68) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWCOL.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWCOL.PNCH') +/* +//********************************************************************* +//RECVSQ69 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM69) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWFOLD.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWFOLD.DATA') +/* +//RECVSQ70 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM70) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWFOLD.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWFOLD.PNCH') +/* +//********************************************************************* +//RECVSQ71 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM71) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWHDFT.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWHDFT.DATA') +/* +//RECVSQ72 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM72) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWHDFT.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWHDFT.PNCH') +/* +//********************************************************************* +//RECVSQ73 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM73) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWSRC.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWSRC.DATA') +/* +//RECVSQ74 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM74) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWSRC.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWSRC.PNCH') +/* +//********************************************************************* +//RECVSQ75 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM75) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWTS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWTS.DATA') +/* +//RECVSQ76 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM76) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWTS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWTS.PNCH') +/* +//********************************************************************* +//RECVSQ77 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM77) +//INTOF1 DD DSN=&HLQ..&MLQ..VWCOLSRC.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWCOLSRC.DATA') +/* +//RECVSQ78 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM78) +//INTOF1 DD DSN=&HLQ..&MLQ..VWCOLSRC.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWCOLSRC.PNCH') +/* +//********************************************************************* +//********************************************************************* +//RECVSQ79 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM79) +//INTOF1 DD DSN=&HLQ..&MLQ..VWLOGDEP.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWLOGDEP.DATA') +/* +//RECVSQ80 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM80) +//INTOF1 DD DSN=&HLQ..&MLQ..VWLOGDEP.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWLOGDEP.PNCH') +/* +//********************************************************************* +//RECVSQ81 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM81) +//INTOF1 DD DSN=&HLQ..&MLQ..VWSORTKY.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWSORTKY.DATA') +/* +//RECVSQ82 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM82) +//INTOF1 DD DSN=&HLQ..&MLQ..VWSORTKY.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWSORTKY.PNCH') +/* +//********************************************************************* +//RECVSQ83 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM83) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPUE.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPUE.DATA') +/* +//RECVSQ84 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM84) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPUE.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPUE.PNCH') +/* +//********************************************************************* +//RECVSQ85 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM85) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPUR.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPUR.DATA') +/* +//RECVSQ86 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM86) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPUR.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPUR.PNCH') +/* +//********************************************************************* +//RECVSQ87 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM87) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPVF.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPVF.DATA') +/* +//RECVSQ88 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM88) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPVF.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPVF.PNCH') +/* +//********************************************************************* +//RECVSQ89 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM89) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPVW.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPVW.DATA') +/* +//RECVSQ90 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM90) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPVW.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPVW.PNCH') +/* +//********************************************************************* +//RECVSQ91 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM91) +//INTOF1 DD DSN=&HLQ..&MLQ..SERVER.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SERVER.DATA') +/* +//RECVSQ92 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM92) +//INTOF1 DD DSN=&HLQ..&MLQ..SERVER.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SERVER.PNCH') +/* +// \ No newline at end of file diff --git a/DB2Schema/JCL/expaxmit.jcl b/DB2Schema/JCL/expaxmit.jcl new file mode 100644 index 0000000..94203ff --- /dev/null +++ b/DB2Schema/JCL/expaxmit.jcl @@ -0,0 +1,1421 @@ +//EXPAXMIT JOB (ACCT),'RECEIVE UNLOADED DB', +// NOTIFY=&SYSUID., +// REGION=0M, +// CLASS=A, +// MSGLEVEL=(1,1), +// MSGCLASS=H +//* +//******************************************************************** +//* +//* (C) COPYRIGHT IBM CORPORATION 2025. +//* Copyright Contributors to the GenevaERS Project. +//*SPDX-License-Identifier: Apache-2.0 +//* +//******************************************************************** +//* +//* Licensed under the Apache License, Version 2.0 (the "License"); +//* you may not use this file except in compliance with the License. +//* You may obtain a copy of the License at +//* +//* http://www.apache.org/licenses/LICENSE-2.0 +//* +//* Unless required by applicable law or agreed to in writing, software +//* distributed under the License is distributed on an "AS IS" BASIS, +//* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express +//* or implied. +//* See the License for the specific language governing permissions +//* and limitations under the License. +//* +//************************************************************* +//* THIS JOB IS USED TO RESTORE ORIGINAL DATABASE UNLOAD +//* FILES THAT WERE PACKAGED INTO A SINGLE FILE BY RECURMIT +//* +//* THIS JOB IS USED WHERE THE THE COMBINED DATABASE UNLOAD +//* FILE TO BE RESTORED IS NOT IN IBM "TRS" FORMAT, +//* BUT RATHER AN XMIT FILE. +//* +//* THE INPUT DATASET IS A PDS IN XMIT FORMAT +//* +//* &HLQ..&MLQ..PDS.XMIT +//* +//************************************************************* +// EXPORT SYMLIST=* +// SET HLQ='GEBT' +// SET MLQ='GENERS.D240708U' +//* +//************************************************************* +//* DELETE RECEIVE'D FILES FROM LAST RUN +//************************************************************* +//* +//DELFILE EXEC PGM=IDCAMS +//* +//SYSPRINT DD SYSOUT=* +//* +//SYSIN DD *,SYMBOLS=EXECSYS + DELETE &HLQ..&MLQ..PDS PURGE + DELETE &HLQ..&MLQ..LOGIC.LOB PURGE + DELETE &HLQ..&MLQ..VIEWCOL.LOB PURGE + DELETE &HLQ..&MLQ..VIEWSRCF.LOB PURGE + DELETE &HLQ..&MLQ..VIEWSRCO.LOB PURGE + DELETE &HLQ..&MLQ..VIEWTS.LOB PURGE + DELETE &HLQ..&MLQ..VWCOLSRC.LOB PURGE + DELETE &HLQ..&MLQ..CODETABL.DATA PURGE + DELETE &HLQ..&MLQ..CODETABL.PNCH PURGE + DELETE &HLQ..&MLQ..CONTRLRC.DATA PURGE + DELETE &HLQ..&MLQ..CONTRLRC.PNCH PURGE + DELETE &HLQ..&MLQ..ENVIRON.DATA PURGE + DELETE &HLQ..&MLQ..ENVIRON.PNCH PURGE + DELETE &HLQ..&MLQ..GLOBAFLD.DATA PURGE + DELETE &HLQ..&MLQ..GLOBAFLD.PNCH PURGE + DELETE &HLQ..&MLQ..GROUPTS.DATA PURGE + DELETE &HLQ..&MLQ..GROUPTS.PNCH PURGE + DELETE &HLQ..&MLQ..LFPFASS.DATA PURGE + DELETE &HLQ..&MLQ..LFPFASS.PNCH PURGE + DELETE &HLQ..&MLQ..LOGFILE.DATA PURGE + DELETE &HLQ..&MLQ..LOGFILE.PNCH PURGE + DELETE &HLQ..&MLQ..LOGIC.DATA PURGE + DELETE &HLQ..&MLQ..LOGIC.PNCH PURGE + DELETE &HLQ..&MLQ..LOGREC.DATA PURGE + DELETE &HLQ..&MLQ..LOGREC.PNCH PURGE + DELETE &HLQ..&MLQ..LOGRECIX.DATA PURGE + DELETE &HLQ..&MLQ..LOGRECIX.PNCH PURGE + DELETE &HLQ..&MLQ..LOOKUP.DATA PURGE + DELETE &HLQ..&MLQ..LOOKUP.PNCH PURGE + DELETE &HLQ..&MLQ..LOOKUPSR.DATA PURGE + DELETE &HLQ..&MLQ..LOOKUPSR.PNCH PURGE + DELETE &HLQ..&MLQ..LOOKUPST.DATA PURGE + DELETE &HLQ..&MLQ..LOOKUPST.PNCH PURGE + DELETE &HLQ..&MLQ..LRFIELD.DATA PURGE + DELETE &HLQ..&MLQ..LRFIELD.PNCH PURGE + DELETE &HLQ..&MLQ..LRFLDATR.DATA PURGE + DELETE &HLQ..&MLQ..LRFLDATR.PNCH PURGE + DELETE &HLQ..&MLQ..LRFLDIDX.DATA PURGE + DELETE &HLQ..&MLQ..LRFLDIDX.PNCH PURGE + DELETE &HLQ..&MLQ..LRLFASS.DATA PURGE + DELETE &HLQ..&MLQ..LRLFASS.PNCH PURGE + DELETE &HLQ..&MLQ..MIGRAUDT.DATA PURGE + DELETE &HLQ..&MLQ..MIGRAUDT.PNCH PURGE + DELETE &HLQ..&MLQ..NEXTKEY.DATA PURGE + DELETE &HLQ..&MLQ..NEXTKEY.PNCH PURGE + DELETE &HLQ..&MLQ..PHYSFILE.DATA PURGE + DELETE &HLQ..&MLQ..PHYSFILE.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPEV.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPEV.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPJN.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPJN.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPLF.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPLF.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPLR.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPLR.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPPF.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPPF.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPUE.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPUE.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPUR.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPUR.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPVF.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPVF.PNCH PURGE + DELETE &HLQ..&MLQ..SECGRPVW.DATA PURGE + DELETE &HLQ..&MLQ..SECGRPVW.PNCH PURGE + DELETE &HLQ..&MLQ..SERVER.DATA PURGE + DELETE &HLQ..&MLQ..SERVER.PNCH PURGE + DELETE &HLQ..&MLQ..USEREXIT.DATA PURGE + DELETE &HLQ..&MLQ..USEREXIT.PNCH PURGE + DELETE &HLQ..&MLQ..USERTS.DATA PURGE + DELETE &HLQ..&MLQ..USERTS.PNCH PURGE + DELETE &HLQ..&MLQ..VDPBATCH.DATA PURGE + DELETE &HLQ..&MLQ..VDPBATCH.PNCH PURGE + DELETE &HLQ..&MLQ..VDPBTCHV.DATA PURGE + DELETE &HLQ..&MLQ..VDPBTCHV.PNCH PURGE + DELETE &HLQ..&MLQ..VFVASS.DATA PURGE + DELETE &HLQ..&MLQ..VFVASS.PNCH PURGE + DELETE &HLQ..&MLQ..VIEWCOL.DATA PURGE + DELETE &HLQ..&MLQ..VIEWCOL.PNCH PURGE + DELETE &HLQ..&MLQ..VIEWFOLD.DATA PURGE + DELETE &HLQ..&MLQ..VIEWFOLD.PNCH PURGE + DELETE &HLQ..&MLQ..VIEWHDFT.DATA PURGE + DELETE &HLQ..&MLQ..VIEWHDFT.PNCH PURGE + DELETE &HLQ..&MLQ..VIEWSRC.DATA PURGE + DELETE &HLQ..&MLQ..VIEWSRC.PNCH PURGE + DELETE &HLQ..&MLQ..VIEWTS.DATA PURGE + DELETE &HLQ..&MLQ..VIEWTS.PNCH PURGE + DELETE &HLQ..&MLQ..VWCOLSRC.DATA PURGE + DELETE &HLQ..&MLQ..VWCOLSRC.PNCH PURGE + DELETE &HLQ..&MLQ..VWLOGDEP.DATA PURGE + DELETE &HLQ..&MLQ..VWLOGDEP.PNCH PURGE + DELETE &HLQ..&MLQ..VWSORTKY.DATA PURGE + DELETE &HLQ..&MLQ..VWSORTKY.PNCH PURGE + IF LASTCC > 0 THEN /* IF OPERATION FAILED, */ - + SET MAXCC = 0 /* PROCEED AS NORMAL ANYWAY */ +/* +//******************************************************************* +//* RECEIVE FILES: RECEIVE XMIT OF MERGED PDS FILE FIRST +//******************************************************************* +//* +//RECVSTEP EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS.XMIT +//INTOF1 DD DSN=&HLQ..&MLQ..PDS, +// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=27920), +// UNIT=SYSDA,SPACE=(CYL,(300,20),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..PDS') +/* +//********************************************************************* +//* CONVERT 6 PDS MEMBERS TO PDS FILES (LOBS) +//********************************************************************* +//RECVLOB1 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM01) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGIC.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGIC.LOB') +/* +//********************************************************************* +//RECVLOB2 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM02) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWCOL.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWCOL.LOB') +/* +//********************************************************************* +//RECVLOB3 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM03) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWSRCF.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWSRCF.LOB') +/* +//********************************************************************* +//RECVLOB4 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM04) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWSRCO.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWSRCO.LOB') +/* +//********************************************************************* +//RECVLOB5 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM05) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWTS.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(200,20),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWTS.LOB') +/* +//********************************************************************* +//RECVLOB6 EXEC PGM=IKJEFT01,PARM='WORK=1600M,SIZE=2000M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM06) +//INTOF1 DD DSN=&HLQ..&MLQ..VWCOLSRC.LOB, +// DCB=(DSORG=PO,RECFM=VB,LRECL=27994,BLKSIZE=27998), +// UNIT=SYSDA,SPACE=(CYL,(1000,50),RLSE), +// DISP=(,CATLG,DELETE),DSNTYPE=LIBRARY +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWCOLSRC.LOB') +/* +//********************************************************************* +//* CONVERT OTHER PDS MEMBERS TO SEQUENTIAL FILES +//********************************************************************* +//RECVSQ07 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM07) +//INTOF1 DD DSN=&HLQ..&MLQ..CODETABL.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..CODETABL.DATA') +/* +//RECVSQ08 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM08) +//INTOF1 DD DSN=&HLQ..&MLQ..CODETABL.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..CODETABL.PNCH') +/* +//********************************************************************* +//RECVSQ09 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM09) +//INTOF1 DD DSN=&HLQ..&MLQ..CONTRLRC.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..CONTRLRC.DATA') +/* +//RECVSQ10 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM10) +//INTOF1 DD DSN=&HLQ..&MLQ..CONTRLRC.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..CONTRLRC.PNCH') +/* +//********************************************************************* +//RECVSQ11 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM11) +//INTOF1 DD DSN=&HLQ..&MLQ..ENVIRON.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..ENVIRON.DATA') +/* +//RECVSQ12 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM12) +//INTOF1 DD DSN=&HLQ..&MLQ..ENVIRON.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..ENVIRON.PNCH') +/* +//********************************************************************* +//RECVSQ13 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM13) +//INTOF1 DD DSN=&HLQ..&MLQ..GLOBAFLD.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..GLOBAFLD.DATA') +/* +//RECVSQ14 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM14) +//INTOF1 DD DSN=&HLQ..&MLQ..GLOBAFLD.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..GLOBAFLD.PNCH') +/* +//********************************************************************* +//RECVSQ15 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM15) +//INTOF1 DD DSN=&HLQ..&MLQ..GROUPTS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..GROUPTS.DATA') +/* +//RECVSQ16 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM16) +//INTOF1 DD DSN=&HLQ..&MLQ..GROUPTS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..GROUPTS.PNCH') +/* +//********************************************************************* +//RECVSQ17 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM17) +//INTOF1 DD DSN=&HLQ..&MLQ..LFPFASS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LFPFASS.DATA') +/* +//RECVSQ18 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM18) +//INTOF1 DD DSN=&HLQ..&MLQ..LFPFASS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LFPFASS.PNCH') +/* +//********************************************************************* +//RECVSQ19 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM19) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGFILE.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGFILE.DATA') +/* +//RECVSQ20 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM20) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGFILE.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGFILE.PNCH') +/* +//********************************************************************* +//RECVSQ21 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM21) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGIC.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGIC.DATA') +/* +//RECVSQ22 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM22) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGIC.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGIC.PNCH') +/* +//********************************************************************* +//RECVSQ23 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM23) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGREC.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGREC.DATA') +/* +//RECVSQ24 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM24) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGREC.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGREC.PNCH') +/* +//********************************************************************* +//RECVSQ25 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM25) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGRECIX.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGRECIX.DATA') +/* +//RECVSQ26 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM26) +//INTOF1 DD DSN=&HLQ..&MLQ..LOGRECIX.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOGRECIX.PNCH') +/* +//********************************************************************* +//********************************************************************* +//RECVSQ27 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM27) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUP.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUP.DATA') +/* +//RECVSQ28 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM28) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUP.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUP.PNCH') +/* +//********************************************************************* +//RECVSQ29 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM29) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUPSR.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUPSR.DATA') +/* +//RECVSQ30 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM30) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUPSR.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUPSR.PNCH') +/* +//********************************************************************* +//RECVSQ31 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM31) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUPST.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUPST.DATA') +/* +//RECVSQ32 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM32) +//INTOF1 DD DSN=&HLQ..&MLQ..LOOKUPST.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LOOKUPST.PNCH') +/* +//********************************************************************* +//RECVSQ33 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM33) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFIELD.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFIELD.DATA') +/* +//RECVSQ34 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM34) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFIELD.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFIELD.PNCH') +/* +//********************************************************************* +//RECVSQ35 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM35) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFLDATR.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFLDATR.DATA') +/* +//RECVSQ36 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM36) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFLDATR.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFLDATR.PNCH') +/* +//********************************************************************* +//RECVSQ37 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM37) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFLDIDX.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFLDIDX.DATA') +/* +//RECVSQ38 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM38) +//INTOF1 DD DSN=&HLQ..&MLQ..LRFLDIDX.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRFLDIDX.PNCH') +/* +//********************************************************************* +//RECVSQ39 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM39) +//INTOF1 DD DSN=&HLQ..&MLQ..LRLFASS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRLFASS.DATA') +/* +//RECVSQ40 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM40) +//INTOF1 DD DSN=&HLQ..&MLQ..LRLFASS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..LRLFASS.PNCH') +/* +//********************************************************************* +//RECVSQ41 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM41) +//INTOF1 DD DSN=&HLQ..&MLQ..MIGRAUDT.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..MIGRAUDT.DATA') +/* +//RECVSQ42 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM42) +//INTOF1 DD DSN=&HLQ..&MLQ..MIGRAUDT.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..MIGRAUDT.PNCH') +/* +//********************************************************************* +//********************************************************************* +//RECVSQ43 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM43) +//INTOF1 DD DSN=&HLQ..&MLQ..NEXTKEY.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..NEXTKEY.DATA') +/* +//RECVSQ44 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM44) +//INTOF1 DD DSN=&HLQ..&MLQ..NEXTKEY.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..NEXTKEY.PNCH') +/* +//********************************************************************* +//RECVSQ45 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM45) +//INTOF1 DD DSN=&HLQ..&MLQ..PHYSFILE.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..PHYSFILE.DATA') +/* +//RECVSQ46 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM46) +//INTOF1 DD DSN=&HLQ..&MLQ..PHYSFILE.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..PHYSFILE.PNCH') +/* +//********************************************************************* +//RECVSQ47 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM47) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPEV.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPEV.DATA') +/* +//RECVSQ48 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM48) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPEV.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPEV.PNCH') +/* +//********************************************************************* +//RECVSQ49 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM49) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPJN.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPJN.DATA') +/* +//RECVSQ50 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM50) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPJN.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPJN.PNCH') +/* +//********************************************************************* +//RECVSQ51 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM51) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPLF.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPLF.DATA') +/* +//RECVSQ52 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM52) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPLF.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPLF.PNCH') +/* +//********************************************************************* +//RECVSQ53 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM53) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPLR.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPLR.DATA') +/* +//RECVSQ54 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM54) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPLR.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPLR.PNCH') +/* +//********************************************************************* +//RECVSQ55 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM55) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPPF.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPPF.DATA') +/* +//RECVSQ56 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM56) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPPF.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPPF.PNCH') +/* +//********************************************************************* +//RECVSQ57 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM57) +//INTOF1 DD DSN=&HLQ..&MLQ..USEREXIT.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..USEREXIT.DATA') +/* +//RECVSQ58 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM58) +//INTOF1 DD DSN=&HLQ..&MLQ..USEREXIT.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..USEREXIT.PNCH') +/* +//********************************************************************* +//RECVSQ59 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM59) +//INTOF1 DD DSN=&HLQ..&MLQ..USERTS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..USERTS.DATA') +/* +//RECVSQ60 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM60) +//INTOF1 DD DSN=&HLQ..&MLQ..USERTS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..USERTS.PNCH') +/* +//********************************************************************* +//********************************************************************* +//RECVSQ61 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM61) +//INTOF1 DD DSN=&HLQ..&MLQ..VDPBATCH.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VDPBATCH.DATA') +/* +//RECVSQ62 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM62) +//INTOF1 DD DSN=&HLQ..&MLQ..VDPBATCH.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VDPBATCH.PNCH') +/* +//********************************************************************* +//RECVSQ63 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM63) +//INTOF1 DD DSN=&HLQ..&MLQ..VDPBTCHV.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VDPBTCHV.DATA') +/* +//RECVSQ64 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM64) +//INTOF1 DD DSN=&HLQ..&MLQ..VDPBTCHV.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VDPBTCHV.PNCH') +/* +//********************************************************************* +//RECVSQ65 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM65) +//INTOF1 DD DSN=&HLQ..&MLQ..VFVASS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VFVASS.DATA') +/* +//RECVSQ66 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM66) +//INTOF1 DD DSN=&HLQ..&MLQ..VFVASS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VFVASS.PNCH') +/* +//********************************************************************* +//RECVSQ67 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM67) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWCOL.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWCOL.DATA') +/* +//RECVSQ68 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM68) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWCOL.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWCOL.PNCH') +/* +//********************************************************************* +//RECVSQ69 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM69) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWFOLD.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWFOLD.DATA') +/* +//RECVSQ70 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM70) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWFOLD.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWFOLD.PNCH') +/* +//********************************************************************* +//RECVSQ71 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM71) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWHDFT.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWHDFT.DATA') +/* +//RECVSQ72 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM72) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWHDFT.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWHDFT.PNCH') +/* +//********************************************************************* +//RECVSQ73 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM73) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWSRC.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWSRC.DATA') +/* +//RECVSQ74 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM74) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWSRC.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWSRC.PNCH') +/* +//********************************************************************* +//RECVSQ75 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM75) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWTS.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWTS.DATA') +/* +//RECVSQ76 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM76) +//INTOF1 DD DSN=&HLQ..&MLQ..VIEWTS.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VIEWTS.PNCH') +/* +//********************************************************************* +//RECVSQ77 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM77) +//INTOF1 DD DSN=&HLQ..&MLQ..VWCOLSRC.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWCOLSRC.DATA') +/* +//RECVSQ78 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM78) +//INTOF1 DD DSN=&HLQ..&MLQ..VWCOLSRC.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWCOLSRC.PNCH') +/* +//********************************************************************* +//********************************************************************* +//RECVSQ79 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM79) +//INTOF1 DD DSN=&HLQ..&MLQ..VWLOGDEP.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWLOGDEP.DATA') +/* +//RECVSQ80 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM80) +//INTOF1 DD DSN=&HLQ..&MLQ..VWLOGDEP.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWLOGDEP.PNCH') +/* +//********************************************************************* +//RECVSQ81 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM81) +//INTOF1 DD DSN=&HLQ..&MLQ..VWSORTKY.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWSORTKY.DATA') +/* +//RECVSQ82 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM82) +//INTOF1 DD DSN=&HLQ..&MLQ..VWSORTKY.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..VWSORTKY.PNCH') +/* +//********************************************************************* +//RECVSQ83 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM83) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPUE.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPUE.DATA') +/* +//RECVSQ84 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM84) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPUE.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPUE.PNCH') +/* +//********************************************************************* +//RECVSQ85 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM85) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPUR.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPUR.DATA') +/* +//RECVSQ86 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM86) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPUR.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPUR.PNCH') +/* +//********************************************************************* +//RECVSQ87 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM87) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPVF.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPVF.DATA') +/* +//RECVSQ88 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM88) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPVF.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPVF.PNCH') +/* +//********************************************************************* +//RECVSQ89 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM89) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPVW.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPVW.DATA') +/* +//RECVSQ90 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM90) +//INTOF1 DD DSN=&HLQ..&MLQ..SECGRPVW.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SECGRPVW.PNCH') +/* +//********************************************************************* +//RECVSQ91 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM91) +//INTOF1 DD DSN=&HLQ..&MLQ..SERVER.DATA, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SERVER.DATA') +/* +//RECVSQ92 EXEC PGM=IKJEFT01,PARM='WORK=160M,SIZE=40M' +//SYSPRINT DD SYSOUT=* +//FROMF1 DD DISP=SHR,DSN=&HLQ..&MLQ..PDS(MEM92) +//INTOF1 DD DSN=&HLQ..&MLQ..SERVER.PNCH, +// DCB=DSORG=PS, +// UNIT=SYSDA,SPACE=(TRK,(1000,1000),RLSE), +// DISP=(,CATLG,DELETE) +//SYSTSPRT DD SYSOUT=* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + RECEIVE INFILE(FROMF1) + DSNAME('&HLQ..&MLQ..SERVER.PNCH') +/* +// \ No newline at end of file diff --git a/DB2Schema/JCL/recurmit.jcl b/DB2Schema/JCL/recurmit.jcl new file mode 100644 index 0000000..d3ac124 --- /dev/null +++ b/DB2Schema/JCL/recurmit.jcl @@ -0,0 +1,2550 @@ +//NGRAPDB2 JOB (ACCT),'MERGE UNLOAD FILES', +// NOTIFY=&SYSUID., +// CLASS=A, +// MSGLEVEL=(1,1), +// MSGCLASS=H +//******************************************************************** +//* +//* (C) COPYRIGHT IBM CORPORATION 2025. +//* Copyright Contributors to the GenevaERS Project. +//*SPDX-License-Identifier: Apache-2.0 +//* +//******************************************************************** +//* +//* Licensed under the Apache License, Version 2.0 (the "License"); +//* you may not use this file except in compliance with the License. +//* You may obtain a copy of the License at +//* +//* http://www.apache.org/licenses/LICENSE-2.0 +//* +//* Unless required by applicable law or agreed to in writing, software +//* distributed under the License is distributed on an "AS IS" BASIS, +//* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express +//* or implied. +//* See the License for the specific language governing permissions +//* and limitations under the License. +//* +//****************************************************************** +//* RECURSIVE XMIT JCL +//****************************************************************** +//* +//* +//* The following variables will need to be set to match the Db2 +//* subsystem the packages are to reside. +//* +//* . ensure variables are exportable +//* +// EXPORT SYMLIST=* +//* +//******************************************************************* +//* Standard Variables in use +//* +// SET HLQ='GEBT' +// SET MLQ='GENERS.D240708U' +//* +//* Note: +//* 1) This job creates XMIT files from the unloaded DB2 schema +//* used for GenevaERS +//* +//* 2) If any unload files are empty, such as the following ones +//* then RC=12 is returned for each such job step +//* +//* GLOBAFLD +//* SECGRPJN +//* SECGRPLF +//* SECGRPLR +//* SECGRPPF +//* SECGRPUE +//* SECGRPVF +//* SECGRPVW +//* +//******************************************************************** +//* DELETE XMIT-FORMAT DATASETS +//********************************************************************* +//* +//DELFILE EXEC PGM=IDCAMS +//* +//SYSPRINT DD SYSOUT=* +//* +//SYSIN DD *,SYMBOLS=EXECSYS + DELETE &HLQ..&MLQ..LOGIC.LOB.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWCOL.LOB.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWSRCF.LOB.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWSRCO.LOB.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWTS.LOB.XMIT PURGE + DELETE &HLQ..&MLQ..VWCOLSRC.LOB.XMIT PURGE + DELETE &HLQ..&MLQ..CODETABL.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..CODETABL.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..CONTRLRC.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..CONTRLRC.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..ENVIRON.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..ENVIRON.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..GLOBAFLD.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..GLOBAFLD.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..GROUPTS.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..GROUPTS.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LFPFASS.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LFPFASS.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LOGFILE.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LOGFILE.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LOGIC.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LOGIC.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LOGREC.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LOGREC.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LOGRECIX.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LOGRECIX.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LOOKUP.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LOOKUP.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LOOKUPSR.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LOOKUPSR.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LOOKUPST.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LOOKUPST.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LRFIELD.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LRFIELD.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LRFLDATR.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LRFLDATR.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LRFLDIDX.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LRFLDIDX.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..LRLFASS.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..LRLFASS.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..MIGRAUDT.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..MIGRAUDT.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..NEXTKEY.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..NEXTKEY.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..PHYSFILE.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..PHYSFILE.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPEV.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPEV.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPJN.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPJN.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPLF.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPLF.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPLR.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPLR.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPPF.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPPF.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPUE.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPUE.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPUR.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPUR.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPVF.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPVF.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPVW.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..SECGRPVW.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..SERVER.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..SERVER.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..USEREXIT.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..USEREXIT.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..USERTS.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..USERTS.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..VDPBATCH.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..VDPBATCH.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..VDPBTCHV.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..VDPBTCHV.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..VFVASS.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..VFVASS.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWCOL.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWCOL.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWFOLD.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWFOLD.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWHDFT.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWHDFT.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWSRC.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWSRC.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWTS.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..VIEWTS.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..VWCOLSRC.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..VWCOLSRC.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..VWLOGDEP.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..VWLOGDEP.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..VWSORTKY.DATA.XMIT PURGE + DELETE &HLQ..&MLQ..VWSORTKY.PNCH.XMIT PURGE + DELETE &HLQ..&MLQ..COMBINE.PDS PURGE + DELETE &HLQ..&MLQ..COMBINE.PDS.XMIT PURGE + IF LASTCC > 0 THEN /* IF OPERATION FAILED, */ - + SET MAXCC = 0 /* PROCEED AS NORMAL ANYWAY */ +/* +//* +//********************************************************************* +//* CONVERT PDS FILES TO XMIT FORMAT +//********************************************************************* +//* +//XMITFIL1 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOGIC.LOB.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOGIC.LOB) +/* +//* +//XMITFIL2 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWCOL.LOB.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWCOL.LOB) +/* +//* +//XMITFIL3 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWSRCF.LOB.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWSRCF.LOB) +/* +//* +//XMITFIL4 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWSRCO.LOB.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWSRCO.LOB) +/* +//* +//XMITFIL5 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWTS.LOB.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWTS.LOB) +/* +//* +//XMITFIL6 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VWCOLSRC.LOB.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VWCOLSRC.LOB) +/* +//* +//********************************************************************* +//* CONVERT SEQ FILES TO XMIT FORMAT +//********************************************************************* +//* +//XMITSQ01 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..CODETABL.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..CODETABL.DATA) +/* +//* +//XMITSQ02 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..CODETABL.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..CODETABL.PNCH) +/* +//********************************************************************* +//* +//XMITSQ03 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..CONTRLRC.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..CONTRLRC.DATA) +/* +//* +//XMITSQ04 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..CONTRLRC.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..CONTRLRC.PNCH) +/* +//********************************************************************* +//* +//XMITSQ05 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..ENVIRON.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..ENVIRON.DATA) +/* +//* +//XMITSQ06 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..ENVIRON.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..ENVIRON.PNCH) +/* +//********************************************************************* +//* +//XMITSQ07 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..GLOBAFLD.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..GLOBAFLD.DATA) +/* +//* +//XMITSQ08 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..GLOBAFLD.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..GLOBAFLD.PNCH) +/* +//********************************************************************* +//* +//XMITSQ09 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..GROUPTS.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..GROUPTS.DATA) +/* +//* +//XMITSQ10 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..GROUPTS.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..GROUPTS.PNCH) +/* +//********************************************************************* +//* +//XMITSQ11 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LFPFASS.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LFPFASS.DATA) +/* +//* +//XMITSQ12 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LFPFASS.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LFPFASS.PNCH) +/* +//********************************************************************* +//* +//XMITSQ13 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOGFILE.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOGFILE.DATA) +/* +//* +//XMITSQ14 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOGFILE.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOGFILE.PNCH) +/* +//********************************************************************* +//* +//XMITSQ15 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOGIC.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOGIC.DATA) +/* +//* +//XMITSQ16 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOGIC.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOGIC.PNCH) +/* +//********************************************************************* +//* +//XMITSQ17 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOGREC.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOGREC.DATA) +/* +//* +//XMITSQ18 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOGREC.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOGREC.PNCH) +/* +//********************************************************************* +//* +//XMITSQ19 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOGRECIX.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOGRECIX.DATA) +/* +//* +//XMITSQ20 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOGRECIX.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOGRECIX.PNCH) +/* +//********************************************************************* +//* +//XMITSQ21 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUP.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOOKUP.DATA) +/* +//* +//XMITSQ22 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUP.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOOKUP.PNCH) +/* +//********************************************************************* +//* +//XMITSQ23 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUPSR.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOOKUPSR.DATA) +/* +//* +//XMITSQ24 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUPSR.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOOKUPSR.PNCH) +/* +//********************************************************************* +//* +//XMITSQ25 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUPST.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOOKUPST.DATA) +/* +//* +//XMITSQ26 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LOOKUPST.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LOOKUPST.PNCH) +/* +//********************************************************************* +//* +//XMITSQ27 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LRFIELD.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LRFIELD.DATA) +/* +//* +//XMITSQ28 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LRFIELD.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LRFIELD.PNCH) +/* +//********************************************************************* +//* +//XMITSQ29 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LRFLDATR.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LRFLDATR.DATA) +/* +//* +//XMITSQ30 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LRFLDATR.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LRFLDATR.PNCH) +/* +//********************************************************************* +//* +//XMITSQ31 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LRFLDIDX.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LRFLDIDX.DATA) +/* +//* +//XMITSQ32 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LRFLDIDX.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LRFLDIDX.PNCH) +/* +//********************************************************************* +//* +//XMITSQ33 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LRLFASS.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LRLFASS.DATA) +/* +//* +//XMITSQ34 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..LRLFASS.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..LRLFASS.PNCH) +/* +//********************************************************************* +//* +//XMITSQ35 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..MIGRAUDT.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..MIGRAUDT.DATA) +/* +//* +//XMITSQ36 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..MIGRAUDT.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..MIGRAUDT.PNCH) +/* +//********************************************************************* +//* +//XMITSQ37 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..NEXTKEY.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..NEXTKEY.DATA) +/* +//* +//XMITSQ38 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..NEXTKEY.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..NEXTKEY.PNCH) +/* +//********************************************************************* +//* +//XMITSQ39 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..PHYSFILE.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..PHYSFILE.DATA) +/* +//* +//XMITSQ40 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..PHYSFILE.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..PHYSFILE.PNCH) +/* +//********************************************************************* +//* +//XMITSQ41 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPEV.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPEV.DATA) +/* +//* +//XMITSQ42 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPEV.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPEV.PNCH) +/* +//********************************************************************* +//* +//XMITSQ43 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPJN.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPJN.DATA) +/* +//* +//XMITSQ44 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPJN.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPJN.PNCH) +/* +//********************************************************************* +//* +//XMITSQ45 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPLF.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPLF.DATA) +/* +//* +//XMITSQ46 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPLF.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPLF.PNCH) +/* +//********************************************************************* +//* +//XMITSQ47 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPLR.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPLR.DATA) +/* +//* +//XMITSQ48 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPLR.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPLR.PNCH) +/* +//********************************************************************* +//* +//XMITSQ49 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPPF.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPPF.DATA) +/* +//* +//XMITSQ50 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPPF.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPPF.PNCH) +/* +//********************************************************************* +//* +//XMITSQ51 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPUE.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPUE.DATA) +/* +//* +//XMITSQ52 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPUE.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPUE.PNCH) +/* +//********************************************************************* +//* +//XMITSQ53 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPUR.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPUR.DATA) +/* +//* +//XMITSQ54 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPUR.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPUR.PNCH) +/* +//********************************************************************* +//* +//XMITSQ55 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPVF.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPVF.DATA) +/* +//* +//XMITSQ56 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPVF.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPVF.PNCH) +/* +//********************************************************************* +//* +//XMITSQ57 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPVW.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPVW.DATA) +/* +//* +//XMITSQ58 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SECGRPVW.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SECGRPVW.PNCH) +/* +//********************************************************************* +//* +//XMITSQ59 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SERVER.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SERVER.DATA) +/* +//* +//XMITSQ60 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..SERVER.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..SERVER.PNCH) +/* +//********************************************************************* +//* +//XMITSQ61 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..USEREXIT.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..USEREXIT.DATA) +/* +//* +//XMITSQ62 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..USEREXIT.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..USEREXIT.PNCH) +/* +//********************************************************************* +//* +//XMITSQ63 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..USERTS.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..USERTS.DATA) +/* +//* +//XMITSQ64 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..USERTS.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..USERTS.PNCH) +/* +//********************************************************************* +//* +//XMITSQ65 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VDPBATCH.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VDPBATCH.DATA) +/* +//* +//XMITSQ66 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VDPBATCH.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VDPBATCH.PNCH) +/* +//********************************************************************* +//* +//XMITSQ67 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VDPBTCHV.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VDPBTCHV.DATA) +/* +//* +//XMITSQ68 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VDPBTCHV.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VDPBTCHV.PNCH) +/* +//********************************************************************* +//* +//XMITSQ69 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VFVASS.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VFVASS.DATA) +/* +//* +//XMITSQ70 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VFVASS.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VFVASS.PNCH) +/* +//********************************************************************* +//* +//XMITSQ71 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWCOL.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWCOL.DATA) +/* +//* +//XMITSQ72 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWCOL.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWCOL.PNCH) +/* +//********************************************************************* +//* +//XMITSQ73 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWFOLD.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWFOLD.DATA) +/* +//* +//XMITSQ74 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWFOLD.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWFOLD.PNCH) +/* +//********************************************************************* +//* +//XMITSQ75 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWHDFT.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWHDFT.DATA) +/* +//* +//XMITSQ76 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWHDFT.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWHDFT.PNCH) +/* +//********************************************************************* +//* +//XMITSQ77 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWSRC.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWSRC.DATA) +/* +//* +//XMITSQ78 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWSRC.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWSRC.PNCH) +/* +//********************************************************************* +//* +//XMITSQ79 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWTS.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWTS.DATA) +/* +//* +//XMITSQ80 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VIEWTS.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VIEWTS.PNCH) +/* +//********************************************************************* +//* +//XMITSQ81 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VWCOLSRC.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VWCOLSRC.DATA) +/* +//* +//XMITSQ82 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VWCOLSRC.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VWCOLSRC.PNCH) +/* +//********************************************************************* +//* +//XMITSQ83 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VWLOGDEP.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VWLOGDEP.DATA) +/* +//* +//XMITSQ84 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VWLOGDEP.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VWLOGDEP.PNCH) +/* +//********************************************************************* +//* +//XMITSQ85 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VWSORTKY.DATA.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VWSORTKY.DATA) +/* +//* +//XMITSQ86 EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..VWSORTKY.PNCH.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(TRK,(1000,100),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..VWSORTKY.PNCH) +/* +//* +//********************************************************************* +//* CONVERT SEQUENTIAL FILES INTO A PDS +//********************************************************************* +//* +//MERGEDSN EXEC PGM=IEFBR14 +//DD1 DD DSN=&HLQ..&MLQ..COMBINE.PDS, +// DCB=(RECFM=FB,LRECL=80,DSORG=PO), +// DISP=(,CATLG,DELETE), +// SPACE=(CYL,(100,20,25),RLSE), +// UNIT=SYSDA +//********************************************************************* +//* CONVERT SEQUENTIAL FILES INTO A PDS +//********************************************************************* +//STEP01 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOGIC.LOB.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM01), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP02 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWCOL.LOB.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM02), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP03 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWSRCF.LOB.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM03), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP04 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWSRCO.LOB.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM04), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP05 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWTS.LOB.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM05), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP06 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VWCOLSRC.LOB.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM06), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP07 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..CODETABL.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM07), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP08 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..CODETABL.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM08), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP09 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..CONTRLRC.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM09), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP10 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..CONTRLRC.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM10), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP11 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..ENVIRON.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM11), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP12 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..ENVIRON.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM12), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP13 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..GLOBAFLD.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM13), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP14 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..GLOBAFLD.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM14), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP15 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..GROUPTS.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM15), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP16 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..GROUPTS.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM16), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP17 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LFPFASS.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM17), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP18 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LFPFASS.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM18), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP19 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOGFILE.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM19), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP20 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOGFILE.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM20), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP21 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOGIC.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM21), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP22 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOGIC.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM22), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP23 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOGREC.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM23), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP24 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOGREC.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM24), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP25 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOGRECIX.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM25), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP26 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOGRECIX.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM26), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP27 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUP.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM27), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP28 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUP.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM28), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP29 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUPSR.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM29), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP30 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUPSR.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM30), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP31 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUPST.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM31), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP32 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LOOKUPST.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM32), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP33 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LRFIELD.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM33), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP34 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LRFIELD.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM34), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP35 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LRFLDATR.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM35), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP36 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LRFLDATR.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM36), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP37 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LRFLDIDX.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM37), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP38 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LRFLDIDX.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM38), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP39 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LRLFASS.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM39), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP40 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..LRLFASS.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM40), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP41 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..MIGRAUDT.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM41), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP42 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..MIGRAUDT.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM42), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP43 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..NEXTKEY.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM43), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP44 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..NEXTKEY.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM44), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP45 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..PHYSFILE.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM45), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP46 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..PHYSFILE.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM46), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP47 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPEV.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM47), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP48 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPEV.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM48), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP49 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPJN.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM49), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP50 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPJN.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM50), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP51 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPLF.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM51), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP52 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPLF.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM52), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP53 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPLR.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM53), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP54 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPLR.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM54), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP55 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPPF.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM55), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP56 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPPF.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM56), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP57 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..USEREXIT.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM57), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP58 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..USEREXIT.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM58), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP59 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..USERTS.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM59), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP60 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..USERTS.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM60), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP61 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VDPBATCH.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM61), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP62 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VDPBATCH.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM62), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP63 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VDPBTCHV.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM63), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP64 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VDPBTCHV.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM64), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP65 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VFVASS.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM65), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP66 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VFVASS.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM66), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP67 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWCOL.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM67), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP68 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWCOL.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM68), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP69 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWFOLD.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM69), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP70 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWFOLD.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM70), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP71 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWHDFT.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM71), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP72 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWHDFT.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM72), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP73 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWSRC.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM73), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP74 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWSRC.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM74), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP75 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWTS.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM75), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP76 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VIEWTS.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM76), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP77 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VWCOLSRC.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM77), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP78 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VWCOLSRC.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM78), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP79 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VWLOGDEP.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM79), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP80 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VWLOGDEP.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM80), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP81 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VWSORTKY.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM81), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP82 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..VWSORTKY.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM82), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP83 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPUE.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM83), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP84 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPUE.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM84), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP85 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPUR.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM85), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP86 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPUR.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM86), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP87 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPVF.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM87), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP88 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPVF.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM88), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP89 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPVW.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM89), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP90 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SECGRPVW.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM90), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP91 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SERVER.DATA.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM91), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//********************************************************************* +//STEP92 EXEC PGM=IEBGENER +//SYSIN DD DUMMY +//SYSUT1 DD DSN=&HLQ..&MLQ..SERVER.PNCH.XMIT, +// DISP=SHR +//SYSUT2 DD DSN=&HLQ..&MLQ..COMBINE.PDS(MEM92), +// DISP=SHR +//SYSPRINT DD SYSOUT=* +//* +//********************************************************************* +//* MAKE FINAL COMBINED XMIT FILE OF EVERYTHING +//********************************************************************* +//XMIFINAL EXEC PGM=IKJEFT1A,DYNAMNBR=30 +//* +//OUTFILE DD DSN=&HLQ..&MLQ..COMBINE.PDS.XMIT, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA, +// SPACE=(CYL,(360,10),RLSE), +// DCB=(DSORG=PS,RECFM=FB,LRECL=80) +//* +//SYSTSPRT DD SYSOUT=* +//* +//SYSTSIN DD *,SYMBOLS=EXECSYS + PROFILE NOPREFIX + XMIT DUMMY.DEST NOLOG - + OUTDDNAME(OUTFILE) - + DA(&HLQ..&MLQ..COMBINE.PDS) +/* +// \ No newline at end of file diff --git a/DB2Schema/JCL/unterse.jcl b/DB2Schema/JCL/unterse.jcl new file mode 100644 index 0000000..4085718 --- /dev/null +++ b/DB2Schema/JCL/unterse.jcl @@ -0,0 +1,67 @@ +//UNTERSE JOB (ACCT),'UNTERSE PDS', +// NOTIFY=&SYSUID., +// CLASS=A, +// MSGLEVEL=(1,1), +// MSGCLASS=H +//******************************************************************** +//* +//* (C) COPYRIGHT IBM CORPORATION 2025. +//* Copyright Contributors to the GenevaERS Project. +//*SPDX-License-Identifier: Apache-2.0 +//* +//******************************************************************** +//* +//* Licensed under the Apache License, Version 2.0 (the "License"); +//* you may not use this file except in compliance with the License. +//* You may obtain a copy of the License at +//* +//* http://www.apache.org/licenses/LICENSE-2.0 +//* +//* Unless required by applicable law or agreed to in writing, software +//* distributed under the License is distributed on an "AS IS" BASIS, +//* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express +//* or implied. +//* See the License for the specific language governing permissions +//* and limitations under the License. +//* +//****************************************************************** +//* UNTERSE TRANSMISSION FILE +//* USED AFTER TRANSFERRING TERSED VERSION OF PDS[E] +//****************************************************************** +//* +//* . ensure variables are exportable +//* +// EXPORT SYMLIST=* +//* +// SET HLQ='GEBT' +// SET MLQ='GENERS' +// SET LLQ='D250101U' +//* +//********************************************************************* +//* DELETE DATA SET +//********************************************************************* +//* +//DELDS EXEC PGM=IDCAMS +//* +//SYSPRINT DD SYSOUT=*,DCB=(LRECL=133,BLKSIZE=12901,RECFM=FBA) +//* +//SYSIN DD *,SYMBOLS=EXECSYS + DELETE &HLQ..&MLQ..&LLQ..PDS PURGE + IF LASTCC > 0 THEN SET MAXCC = 0 +//* +//********************************************************************* +//* UNPACK DATA SET +//********************************************************************* +//* +//UNPACK EXEC PGM=TRSMAIN,PARM='UNPACK' +//* +//SYSPRINT DD SYSOUT=*,DCB=(LRECL=133,BLKSIZE=12901,RECFM=FBA) +//* +//INFILE DD DSN=&HLQ..&MLQ..&LLQ..TRS, +// DISP=OLD +//* +//OUTFILE DD DSN=&HLQ..&MLQ..&LLQ..PDS, +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA,DSNTYPE=LIBRARY,DSORG=PO, +// SPACE=(CYL,(4000,1000),RLSE) +// \ No newline at end of file From d0404c99cf45ffd4f3c9f9a7b3ab2b6ef7103896 Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Wed, 14 Jan 2026 17:57:09 -0600 Subject: [PATCH 09/18] update Signed-off-by: neilbeesley --- DB2CHECK/README.md | 44 --- .../db2check/GvbSchemaValidateMain.java | 317 ------------------ 2 files changed, 361 deletions(-) delete mode 100644 DB2CHECK/README.md delete mode 100644 DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java diff --git a/DB2CHECK/README.md b/DB2CHECK/README.md deleted file mode 100644 index 64e57dc..0000000 --- a/DB2CHECK/README.md +++ /dev/null @@ -1,44 +0,0 @@ -# Validation of GenevaERS DB2 Schema definition - -This application is provided to allow you to validate the DB2 schema has been correctly defined. It is written in Java and uses JDBC driver for DB2. The program uses digest values for each of the following sets of schema definitions to ensure correctlness. This validates the correctness of the schema structure. - -## DB2 schema items checked -
-1) stored procedures
-2) table definitions
-3) index definitions
-4) foreign keys
-
- -## Configuration file - -This contains the userid, password, url of DB2 target and a matching value for the name of schema. It must be located in your home directory. -
-USERID
-RACFPWD
-jdbc:db2://SP13.pok.stglabs.ibm.com:5036/DM13
-SAFR0002
-
- -## Compiling the program - -From directory DB2CHECK/ use the command: -
-mvn install
-
- -## Executing the program - -From directory DB2CHECK/target/ use the command: -
-java -jar db2check-1.0.1-jar-with-dependencies.jar
-
- -## Command line options - -From directory DB2CHECK/target/ use the command: -This generates files containing your schema definitions -
-java -jar db2check-1.0.1-jar-with-dependencies.jar -D
-
- diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java deleted file mode 100644 index 7fe2cc3..0000000 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java +++ /dev/null @@ -1,317 +0,0 @@ -package org.genevaers.db2check; - -import java.io.BufferedReader; -import java.io.FileReader; -import java.io.BufferedWriter; -import java.io.FileWriter; -import java.io.IOException; -import java.util.HashMap; - import java.io.File; - -import java.sql.*; - -public class GvbSchemaValidateMain { - @SuppressWarnings("resource") - public static void main(String[] args) - { - HashMap spmap = new HashMap<>(30); // stored procedures digest - HashMap tbmap = new HashMap<>(100); // table/column digest - HashMap ixmap = new HashMap<>(100); // index digest - HashMap fkmap = new HashMap<>(100); // foreign key digest - - Integer ii = 0; - Integer finalI = 0; - BufferedReader reader; - String url = ""; - String user = ""; - String digestType = "SHA3-512"; - String password = ""; - String schema_mask = ""; - Boolean makeHash = false; - Boolean makeDef = false; - Boolean makeF = false; - BufferedWriter fwriter = null; // general output - BufferedWriter hwriter = null; // digest output - BufferedWriter[] dwriter = new BufferedWriter[4]; // Definition files: stored procedures, table/columns, indexes and foreign keys - dwriter[0] = null; - dwriter[1] = null; - dwriter[2] = null; - dwriter[3] = null; - Connection con; - - String userhome = System.getProperty("user.home"); - - System.out.println ("**** Running GvbSchemaValidateMain: checking DB2 Schema"); - - Integer nArgs =args.length; - Integer n; - - // command line argument[s] - for (n = 0; n < nArgs; n++) { - if (args[n].substring(0,1).equals("-")) { - switch( args[n].substring(1,2)) - { - // generate hash map -- does NOT validate the schema - case "A": - makeHash = true; - break; - // generate DDL statement -- available in all cases - case "D": - makeDef = true; - break; - case "h": - System.out.println("-D (write schema definitions)\n-A (create schema digest map)"); - return; - default: - break; - } - } - } - - // /////////////////////////////////////// - // TEMPORARY ASSIGNMENTS - // makeHash = false; - // makeDef = true; - // /////////////////////////////////////// - - if (makeHash) { - System.out.println("Option to generate Schema digest from DB2 catalog: " + makeHash); - } - if (makeDef) { - System.out.println("Option to generate Schema definitions from DB2 catalog: " + makeDef); - } - - // read configurtion information from home directory - try { - ii = 0; - reader = new BufferedReader(new FileReader(userhome + "/password.txt")); - String line = reader.readLine(); - while (line != null) { - if ( 0 == ii) { - user = line.substring(0); - } - else - { - if ( 1 == ii ) { - password = line.substring(0); - } - else - { - if ( 2 == ii ) { - url = line.substring(0); - } - else - { - if ( 3 == ii ) { - schema_mask = line.substring(0); - } - } - } - } - // read next line - ii = ii + 1; - line = reader.readLine(); - } - finalI = ii; - reader.close(); - } catch (IOException e) { - System.out.println("IO exception encountered in GvbSchemaValidateMain reading configuration file"); - //e.printStackTrace(); - return; - } - // configuration information has been read - System.out.println("User: " + user + " Url: " + url + " Schema mask: " + schema_mask + ". Config lines read: " + finalI); - - - // read Digest information from home directory - if (makeHash) { - // check if our directory exists: if it doesn't create it, if it does fine - File newDir = new File(userhome+"/GenevaERS"); - if (newDir.mkdir()) { - System.out.println("Directory: " + userhome+"/GenevaERS" + " created."); - } else { - // this is ok too - } - } else { - try { - Integer State = -1; - - // check if our directory exists: it MUST - File newDir = new File(userhome+"/GenevaERS"); - if (newDir.mkdir()) { - System.out.println("Directory: " + userhome + "/GenevaERS" + " did not previously exist."); - System.out.println("Digest file does not exist. Terminating application."); - return; - } else { - // this is the happy path - } - - ii = 0; - reader = new BufferedReader(new FileReader(userhome + "/GenevaERS/SchemaDigest.txt")); - String line = reader.readLine(); - while (line != null) { - if (line.contains("// Populate digest map of stored procedures")) { - State = 1; - } - else { - if (line.contains("// Populate digest map of tables")) { - State = 2; - } - else { - if (line.contains("// Populate digest map of indexes")) { - State = 3; - } - else { - if (line.contains("// Populate digest map of foreign")) { - State = 4; - } - else { - //System.out.println("Regexing: " + line); - String[] values = line.split(","); // Split by comma - //System.out.println("Values: " + values[0] + values[1]); - switch (State) { - case -1: - State = 0; - break; - case 1: - spmap.put(values[0], values[1]); - break; - case 2: - tbmap.put(values[0], values[1]); - break; - case 3: - ixmap.put(values[0], values[1]); - break; - case 4: - fkmap.put(values[0], values[1]); - break; - default: - System.out.println("Invalid State:" + State + " Line: " + ii + " record: " + line); - break; - } - } - } - } - } - // read next line - ii = ii + 1; - line = reader.readLine(); - } - finalI = ii; - reader.close(); - } catch (IOException e) { - System.out.println("IO exception encountered in GvbSchemaValidateMain reading schema digest file"); - //e.printStackTrace(); - return; - } - } - - // load db2 jdbc - try { - Class.forName("com.ibm.db2.jcc.DB2Driver"); - } catch (ClassNotFoundException e) { - System.out.println("Error encountered loading DB2 SQLJ driver"); - //e.printStackTrace(); - return; - } - System.out.println("**** Loaded the JDBC driver"); - - // Create the connection using the IBM Data Server Driver for JDBC and SQLJ and open output file[s] - try { - con = DriverManager.getConnection (url, user, password); - con.setAutoCommit(false); - System.out.println("**** Created a JDBC connection to the data source\n"); - - if ( makeF ) { - fwriter = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/Schema_report.txt")); - } - - if (makeHash) { - hwriter = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/SchemaDigest.txt")); - } - - if (makeDef) { - dwriter[0] = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/StoredProcedures.txt")); // stored procedures - dwriter[1] = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/Tabledata.txt")); // tables and columns - dwriter[2] = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/Indexdata.txt")); // indexes - dwriter[3] = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/Foreignkeydata.txt")); // foreign assets - } - - // construct configuration object - GvbSchemaConfig sc= new GvbSchemaConfig(digestType, con, schema_mask, makeHash, makeDef, fwriter, hwriter, dwriter, spmap, tbmap, ixmap, fkmap); - - // call stored procedure validation - GvbSchemaValidateA mA = new GvbSchemaValidateA(sc); - - // call table column validation - GvbSchemaValidateB mB = new GvbSchemaValidateB(sc); - - // call table column validation - GvbSchemaValidateC mC = new GvbSchemaValidateC(sc); - - // call table column validation - GvbSchemaValidateD mD = new GvbSchemaValidateD(sc); - - Integer maxRc = Math.max( mA.getRc(), Math.max( mB.getRc(), Math.max ( mC.getRc(), mD.getRc() ))); - - switch ( maxRc ) { - case 0: - System.out.println("All parts of schema validated successfully\n"); - break; - case 1: - System.out.println("One or more parts of schema failed validation\n"); - break; - case 2: - System.out.println("Schema digest map created\n"); - break; - case 4: - System.out.println("DB2 SQL error\n"); - break; - case 8: - System.out.println("IO error\n"); - break; - case 12: - System.out.println("No such algorithm found: " + digestType + "\n" ); - break; - default: - System.out.println("Incorrect max return code: " + maxRc + "\n"); - break; - } - - if ( makeF ) { - fwriter.close(); - } - - if (makeHash) { - hwriter.close(); - } - - if (makeDef) { - dwriter[0].close(); - dwriter[1].close(); - dwriter[2].close(); - dwriter[3].close(); - } - - // Connection must be on a unit-of-work boundary to allow close - con.commit(); - System.out.println ( "**** SQL statements completed on transaction boundary" ); - - // Close the connection - con.close(); - System.out.println("**** Disconnected from data source"); - System.out.println("**** JDBC completed - no DB2 errors"); - - } catch (SQLException e) { - System.out.println("SQLSTATE: " + e.getSQLState() + " creating database connection for: " + url); - //e.printStackTrace(); - return; - - } catch (IOException e) { - System.out.println("IO exception encountered in GvbSchemaValidateMain"); - //e.printStackTrace(); - return; - } - return; - } -} From bc47f774f2f1244daa34ab842b1c4cfd0c050ae4 Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Wed, 14 Jan 2026 18:00:14 -0600 Subject: [PATCH 10/18] update Signed-off-by: neilbeesley --- .gitignore | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 .gitignore diff --git a/.gitignore b/.gitignore deleted file mode 100644 index ad647b4..0000000 --- a/.gitignore +++ /dev/null @@ -1,30 +0,0 @@ -Ftl2Jcl/target/ftl2jcl-1.0.0-jar-with-dependencies.jar -Ftl2Jcl/target/ftl2jcl-1.0.0.jar -Ftl2Jcl/target/classes/application.properties -Ftl2Jcl/target/classes/org/genevaers/ftl2jcl/CommandLineHandler.class -Ftl2Jcl/target/classes/org/genevaers/ftl2jcl/GersEnvironment.class -Ftl2Jcl/target/classes/org/genevaers/ftl2jcl/TemplateApplier.class -Ftl2Jcl/target/maven-archiver/pom.properties -Ftl2Jcl/target/maven-status/maven-compiler-plugin/compile/default-compile/createdFiles.lst -Ftl2Jcl/target/maven-status/maven-compiler-plugin/compile/default-compile/inputFiles.lst -Ftl2Jcl/target/maven-status/maven-compiler-plugin/testCompile/default-testCompile/inputFiles.lst -DB2CHECK/target/db2check-1.0.0-jar-with-dependencies.jar -DB2CHECK/target/db2check-1.0.0.jar -DB2CHECK/target/classes/application.properties -DB2CHECK/target/classes/org/genevaers/db2check/CommandLineHandler.class -DB2CHECK/target/classes/org/genevaers/db2check/GersEnvironment.class -DB2CHECK/target/classes/org/genevaers/db2check/TemplateApplier.class -DB2CHECK/target/maven-archiver/pom.properties -DB2CHECK/target/maven-status/maven-compiler-plugin/compile/default-compile/createdFiles.lst -DB2CHECK/target/maven-status/maven-compiler-plugin/compile/default-compile/inputFiles.lst -DB2CHECK/target/maven-status/maven-compiler-plugin/testCompile/default-testCompile/inputFiles.lst -DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateMain.class -DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaConfig.class -DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateA.class -DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateB.class -DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateC.class -DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateD.class -DB2CHECK/target/maven-status/maven-compiler-plugin/testCompile/default-testCompile/createdFiles.lst -FTL2JCL/target/ftl2jcl-1.0.1-jar-with-dependencies.jar -FTL2JCL/target/ftl2jcl-1.0.1.jar -FTL2JCL/target/maven-status/maven-compiler-plugin/testCompile/default-testCompile/createdFiles.lst From d2eab10a03c5a7e1dc346a2ad01f64abc16e6c70 Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Wed, 14 Jan 2026 18:04:38 -0600 Subject: [PATCH 11/18] update Signed-off-by: neilbeesley --- .gitignore | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 .gitignore diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..9aa0ca7 --- /dev/null +++ b/.gitignore @@ -0,0 +1,10 @@ +Ftl2Jcl/target/ftl2jcl-1.0.0-jar-with-dependencies.jar +Ftl2Jcl/target/ftl2jcl-1.0.0.jar +Ftl2Jcl/target/classes/application.properties +Ftl2Jcl/target/classes/org/genevaers/ftl2jcl/CommandLineHandler.class +Ftl2Jcl/target/classes/org/genevaers/ftl2jcl/GersEnvironment.class +Ftl2Jcl/target/classes/org/genevaers/ftl2jcl/TemplateApplier.class +Ftl2Jcl/target/maven-archiver/pom.properties +Ftl2Jcl/target/maven-status/maven-compiler-plugin/compile/default-compile/createdFiles.lst +Ftl2Jcl/target/maven-status/maven-compiler-plugin/compile/default-compile/inputFiles.lst +Ftl2Jcl/target/maven-status/maven-compiler-plugin/testCompile/default-testCompile/inputFiles.lst From 8af68d31d7e3064141b61d22235132123a717c3b Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Wed, 14 Jan 2026 18:06:37 -0600 Subject: [PATCH 12/18] update Signed-off-by: neilbeesley --- DB2CHECK/README.md | 44 +++ .../db2check/GvbSchemaValidateMain.java | 317 ++++++++++++++++++ 2 files changed, 361 insertions(+) create mode 100644 DB2CHECK/README.md create mode 100644 DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java diff --git a/DB2CHECK/README.md b/DB2CHECK/README.md new file mode 100644 index 0000000..64e57dc --- /dev/null +++ b/DB2CHECK/README.md @@ -0,0 +1,44 @@ +# Validation of GenevaERS DB2 Schema definition + +This application is provided to allow you to validate the DB2 schema has been correctly defined. It is written in Java and uses JDBC driver for DB2. The program uses digest values for each of the following sets of schema definitions to ensure correctlness. This validates the correctness of the schema structure. + +## DB2 schema items checked +
+1) stored procedures
+2) table definitions
+3) index definitions
+4) foreign keys
+
+ +## Configuration file + +This contains the userid, password, url of DB2 target and a matching value for the name of schema. It must be located in your home directory. +
+USERID
+RACFPWD
+jdbc:db2://SP13.pok.stglabs.ibm.com:5036/DM13
+SAFR0002
+
+ +## Compiling the program + +From directory DB2CHECK/ use the command: +
+mvn install
+
+ +## Executing the program + +From directory DB2CHECK/target/ use the command: +
+java -jar db2check-1.0.1-jar-with-dependencies.jar
+
+ +## Command line options + +From directory DB2CHECK/target/ use the command: +This generates files containing your schema definitions +
+java -jar db2check-1.0.1-jar-with-dependencies.jar -D
+
+ diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java new file mode 100644 index 0000000..7fe2cc3 --- /dev/null +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java @@ -0,0 +1,317 @@ +package org.genevaers.db2check; + +import java.io.BufferedReader; +import java.io.FileReader; +import java.io.BufferedWriter; +import java.io.FileWriter; +import java.io.IOException; +import java.util.HashMap; + import java.io.File; + +import java.sql.*; + +public class GvbSchemaValidateMain { + @SuppressWarnings("resource") + public static void main(String[] args) + { + HashMap spmap = new HashMap<>(30); // stored procedures digest + HashMap tbmap = new HashMap<>(100); // table/column digest + HashMap ixmap = new HashMap<>(100); // index digest + HashMap fkmap = new HashMap<>(100); // foreign key digest + + Integer ii = 0; + Integer finalI = 0; + BufferedReader reader; + String url = ""; + String user = ""; + String digestType = "SHA3-512"; + String password = ""; + String schema_mask = ""; + Boolean makeHash = false; + Boolean makeDef = false; + Boolean makeF = false; + BufferedWriter fwriter = null; // general output + BufferedWriter hwriter = null; // digest output + BufferedWriter[] dwriter = new BufferedWriter[4]; // Definition files: stored procedures, table/columns, indexes and foreign keys + dwriter[0] = null; + dwriter[1] = null; + dwriter[2] = null; + dwriter[3] = null; + Connection con; + + String userhome = System.getProperty("user.home"); + + System.out.println ("**** Running GvbSchemaValidateMain: checking DB2 Schema"); + + Integer nArgs =args.length; + Integer n; + + // command line argument[s] + for (n = 0; n < nArgs; n++) { + if (args[n].substring(0,1).equals("-")) { + switch( args[n].substring(1,2)) + { + // generate hash map -- does NOT validate the schema + case "A": + makeHash = true; + break; + // generate DDL statement -- available in all cases + case "D": + makeDef = true; + break; + case "h": + System.out.println("-D (write schema definitions)\n-A (create schema digest map)"); + return; + default: + break; + } + } + } + + // /////////////////////////////////////// + // TEMPORARY ASSIGNMENTS + // makeHash = false; + // makeDef = true; + // /////////////////////////////////////// + + if (makeHash) { + System.out.println("Option to generate Schema digest from DB2 catalog: " + makeHash); + } + if (makeDef) { + System.out.println("Option to generate Schema definitions from DB2 catalog: " + makeDef); + } + + // read configurtion information from home directory + try { + ii = 0; + reader = new BufferedReader(new FileReader(userhome + "/password.txt")); + String line = reader.readLine(); + while (line != null) { + if ( 0 == ii) { + user = line.substring(0); + } + else + { + if ( 1 == ii ) { + password = line.substring(0); + } + else + { + if ( 2 == ii ) { + url = line.substring(0); + } + else + { + if ( 3 == ii ) { + schema_mask = line.substring(0); + } + } + } + } + // read next line + ii = ii + 1; + line = reader.readLine(); + } + finalI = ii; + reader.close(); + } catch (IOException e) { + System.out.println("IO exception encountered in GvbSchemaValidateMain reading configuration file"); + //e.printStackTrace(); + return; + } + // configuration information has been read + System.out.println("User: " + user + " Url: " + url + " Schema mask: " + schema_mask + ". Config lines read: " + finalI); + + + // read Digest information from home directory + if (makeHash) { + // check if our directory exists: if it doesn't create it, if it does fine + File newDir = new File(userhome+"/GenevaERS"); + if (newDir.mkdir()) { + System.out.println("Directory: " + userhome+"/GenevaERS" + " created."); + } else { + // this is ok too + } + } else { + try { + Integer State = -1; + + // check if our directory exists: it MUST + File newDir = new File(userhome+"/GenevaERS"); + if (newDir.mkdir()) { + System.out.println("Directory: " + userhome + "/GenevaERS" + " did not previously exist."); + System.out.println("Digest file does not exist. Terminating application."); + return; + } else { + // this is the happy path + } + + ii = 0; + reader = new BufferedReader(new FileReader(userhome + "/GenevaERS/SchemaDigest.txt")); + String line = reader.readLine(); + while (line != null) { + if (line.contains("// Populate digest map of stored procedures")) { + State = 1; + } + else { + if (line.contains("// Populate digest map of tables")) { + State = 2; + } + else { + if (line.contains("// Populate digest map of indexes")) { + State = 3; + } + else { + if (line.contains("// Populate digest map of foreign")) { + State = 4; + } + else { + //System.out.println("Regexing: " + line); + String[] values = line.split(","); // Split by comma + //System.out.println("Values: " + values[0] + values[1]); + switch (State) { + case -1: + State = 0; + break; + case 1: + spmap.put(values[0], values[1]); + break; + case 2: + tbmap.put(values[0], values[1]); + break; + case 3: + ixmap.put(values[0], values[1]); + break; + case 4: + fkmap.put(values[0], values[1]); + break; + default: + System.out.println("Invalid State:" + State + " Line: " + ii + " record: " + line); + break; + } + } + } + } + } + // read next line + ii = ii + 1; + line = reader.readLine(); + } + finalI = ii; + reader.close(); + } catch (IOException e) { + System.out.println("IO exception encountered in GvbSchemaValidateMain reading schema digest file"); + //e.printStackTrace(); + return; + } + } + + // load db2 jdbc + try { + Class.forName("com.ibm.db2.jcc.DB2Driver"); + } catch (ClassNotFoundException e) { + System.out.println("Error encountered loading DB2 SQLJ driver"); + //e.printStackTrace(); + return; + } + System.out.println("**** Loaded the JDBC driver"); + + // Create the connection using the IBM Data Server Driver for JDBC and SQLJ and open output file[s] + try { + con = DriverManager.getConnection (url, user, password); + con.setAutoCommit(false); + System.out.println("**** Created a JDBC connection to the data source\n"); + + if ( makeF ) { + fwriter = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/Schema_report.txt")); + } + + if (makeHash) { + hwriter = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/SchemaDigest.txt")); + } + + if (makeDef) { + dwriter[0] = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/StoredProcedures.txt")); // stored procedures + dwriter[1] = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/Tabledata.txt")); // tables and columns + dwriter[2] = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/Indexdata.txt")); // indexes + dwriter[3] = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/Foreignkeydata.txt")); // foreign assets + } + + // construct configuration object + GvbSchemaConfig sc= new GvbSchemaConfig(digestType, con, schema_mask, makeHash, makeDef, fwriter, hwriter, dwriter, spmap, tbmap, ixmap, fkmap); + + // call stored procedure validation + GvbSchemaValidateA mA = new GvbSchemaValidateA(sc); + + // call table column validation + GvbSchemaValidateB mB = new GvbSchemaValidateB(sc); + + // call table column validation + GvbSchemaValidateC mC = new GvbSchemaValidateC(sc); + + // call table column validation + GvbSchemaValidateD mD = new GvbSchemaValidateD(sc); + + Integer maxRc = Math.max( mA.getRc(), Math.max( mB.getRc(), Math.max ( mC.getRc(), mD.getRc() ))); + + switch ( maxRc ) { + case 0: + System.out.println("All parts of schema validated successfully\n"); + break; + case 1: + System.out.println("One or more parts of schema failed validation\n"); + break; + case 2: + System.out.println("Schema digest map created\n"); + break; + case 4: + System.out.println("DB2 SQL error\n"); + break; + case 8: + System.out.println("IO error\n"); + break; + case 12: + System.out.println("No such algorithm found: " + digestType + "\n" ); + break; + default: + System.out.println("Incorrect max return code: " + maxRc + "\n"); + break; + } + + if ( makeF ) { + fwriter.close(); + } + + if (makeHash) { + hwriter.close(); + } + + if (makeDef) { + dwriter[0].close(); + dwriter[1].close(); + dwriter[2].close(); + dwriter[3].close(); + } + + // Connection must be on a unit-of-work boundary to allow close + con.commit(); + System.out.println ( "**** SQL statements completed on transaction boundary" ); + + // Close the connection + con.close(); + System.out.println("**** Disconnected from data source"); + System.out.println("**** JDBC completed - no DB2 errors"); + + } catch (SQLException e) { + System.out.println("SQLSTATE: " + e.getSQLState() + " creating database connection for: " + url); + //e.printStackTrace(); + return; + + } catch (IOException e) { + System.out.println("IO exception encountered in GvbSchemaValidateMain"); + //e.printStackTrace(); + return; + } + return; + } +} From 7da61e14eda12a9daafb5ca55a599c4fb627d1a8 Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Wed, 14 Jan 2026 18:12:51 -0600 Subject: [PATCH 13/18] update Signed-off-by: neilbeesley --- .gitignore | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/.gitignore b/.gitignore index 9aa0ca7..154365f 100644 --- a/.gitignore +++ b/.gitignore @@ -8,3 +8,21 @@ Ftl2Jcl/target/maven-archiver/pom.properties Ftl2Jcl/target/maven-status/maven-compiler-plugin/compile/default-compile/createdFiles.lst Ftl2Jcl/target/maven-status/maven-compiler-plugin/compile/default-compile/inputFiles.lst Ftl2Jcl/target/maven-status/maven-compiler-plugin/testCompile/default-testCompile/inputFiles.lst +DB2CHECK/target/db2check-1.0.0-jar-with-dependencies.jar +DB2CHECK/target/db2check-1.0.0.jar +DB2CHECK/target/classes/application.properties +DB2CHECK/target/classes/org/genevaers/db2check/CommandLineHandler.class +DB2CHECK/target/classes/org/genevaers/db2check/GersEnvironment.class +DB2CHECK/target/classes/org/genevaers/db2check/TemplateApplier.class +DB2CHECK/target/maven-archiver/pom.properties +DB2CHECK/target/maven-status/maven-compiler-plugin/compile/default-compile/createdFiles.lst +DB2CHECK/target/maven-status/maven-compiler-plugin/compile/default-compile/inputFiles.lst +DB2CHECK/target/maven-status/maven-compiler-plugin/testCompile/default-testCompile/inputFiles.lst +DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateMain.class +DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaConfig.class +DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateA.class +DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateB.class +DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateC.class +DB2CHECK/target/classes/org/genevaers/db2check/GvbSchemaValidateD.class +DB2CHECK/target/maven-status/maven-compiler-plugin/testCompile/default-testCompile/createdFiles.lst +FTL2JCL/target/maven-status/maven-compiler-plugin/testCompile/default-testCompile/createdFiles.lst From 88059338222f272a36ba605ccaea6e4181036988 Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Wed, 14 Jan 2026 18:20:51 -0600 Subject: [PATCH 14/18] update Signed-off-by: neilbeesley --- DB2CHECK/README.md | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/DB2CHECK/README.md b/DB2CHECK/README.md index 64e57dc..6c13d3e 100644 --- a/DB2CHECK/README.md +++ b/DB2CHECK/README.md @@ -40,5 +40,4 @@ From directory DB2CHECK/target/ use the command: This generates files containing your schema definitions 
 java -jar db2check-1.0.1-jar-with-dependencies.jar -D
-
- + \ No newline at end of file From b787b5dc024a67fe0452364e18b2138266a37b03 Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Tue, 20 Jan 2026 19:55:10 -0600 Subject: [PATCH 15/18] Tidy up Signed-off-by: neilbeesley --- .../db2check/GvbSchemaValidateA.java | 76 +++++++++++---- .../db2check/GvbSchemaValidateB.java | 69 +++++++++---- .../db2check/GvbSchemaValidateC.java | 69 +++++++++---- .../db2check/GvbSchemaValidateMain.java | 97 ++++++++++++------- 4 files changed, 213 insertions(+), 98 deletions(-) diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateA.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateA.java index c1b7d22..a3a9c81 100644 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateA.java +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateA.java @@ -7,6 +7,9 @@ import java.io.BufferedWriter; import java.io.IOException; import java.util.HashMap; +import java.util.logging.Logger; + +import com.ibm.db2.jcc.a.f; import java.security.MessageDigest; import java.security.NoSuchAlgorithmException; @@ -17,6 +20,7 @@ public class GvbSchemaValidateA { private Integer rc; + private static final Logger logger = Logger.getLogger(GvbSchemaValidateA.class.getName()); public GvbSchemaValidateA(GvbSchemaConfig sc) { @@ -24,6 +28,7 @@ public GvbSchemaValidateA(GvbSchemaConfig sc) BufferedWriter hwriter = sc.getHwriter(); // For writing digest values of hashmaps BufferedWriter[] dwriter = new BufferedWriter[4]; // For writing Schema definitions + BufferedWriter fwriter = sc.getFwriter(); // General output writers dwriter = sc.getDwriter(); String digestType = sc.getDigestType(); Connection con = sc.getCon(); @@ -39,7 +44,8 @@ public GvbSchemaValidateA(GvbSchemaConfig sc) Statement stmt; ResultSet rs; - System.out.println ("**** GvbSchemaValidateA: checking stored procedures for schema: " + schema_mask); + logger.info("**** GvbSchemaValidateA: checking stored procedures for schema: " + schema_mask); + //System.out.println ("**** GvbSchemaValidateA: checking stored procedures for schema: " + schema_mask); String SQLstmt = "SELECT SCHEMA, NAME, VERSION, TEXT FROM SYSIBM.SYSROUTINES WHERE SCHEMA LIKE '"+schema_mask+"' ORDER BY SCHEMA, NAME"; @@ -52,11 +58,15 @@ public GvbSchemaValidateA(GvbSchemaConfig sc) // Create the SQL statement stmt = con.createStatement(); - System.out.println("**** Created JDBC Statement object"); + logger.fine("**** Created JDBC Statement object"); + //System.out.println("**** Created JDBC Statement object"); // Execute a query and generate a ResultSet instance rs = stmt.executeQuery(SQLstmt); - System.out.println("**** Created JDBC ResultSet object"); + logger.fine("**** Created JDBC ResultSet object"); + //System.out.println("**** Created JDBC ResultSet object"); + + fwriter.write("\nStored Procedures Validation Report for schema: " + schema_mask + "\n\n"); MessageDigest md = MessageDigest.getInstance(digestType); while (rs.next()) { @@ -75,8 +85,13 @@ public GvbSchemaValidateA(GvbSchemaConfig sc) else { // report on schema correctness - System.out.println(schema + " " + nname + " " + vversion ); // + "\n " + ttext); - System.out.println(digestType + ": " + encodedHash); + fwriter.write("Stored Procedure: " + nname + " " + vversion + " Digest: " + digestType + ": " + encodedHash + "\n"); + + // report on schema correctness +// fwriter.write(schema + " " + nname + " " + vversion + "\n"); + //System.out.println(schema + " " + nname + " " + vversion ); // + "\n " + ttext); +// fwriter.write(digestType + ": " + encodedHash + "\n"); + //System.out.println(digestType + ": " + encodedHash); } // Print all of the definition data to separate file dwriter if requested -D @@ -93,67 +108,86 @@ public GvbSchemaValidateA(GvbSchemaConfig sc) // Report on correctness of schema definitions String hashvalue = spmap.get(nname); if ( hashvalue == null) { - System.out.println("HASH value mismatch for stored procedure: " + nname); - System.out.println("No stored hash value"); - System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); + logger.warning("HASH value mismatch for stored procedure: " + nname + " - no stored hash value"); + fwriter.write("HASH value mismatch for stored procedure: " + nname + " - no stored hash value\n"); + //System.out.println("HASH value mismatch for stored procedure: " + nname); + //System.out.println("No stored hash value"); + fwriter.write("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n"); + //System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); match = false; } else { if ( hashvalue.equals(encodedHash)) { - System.out.println("HASH value matches for stored procedure: " + nname); + fwriter.write("HASH value matches\n"); + //System.out.println("HASH value matches for stored procedure: " + nname); } else { - System.out.println("HASH value mismatch for stored procedure: " + nname); - System.out.println("Stored hash value: " + hashvalue); - System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); + logger.warning("HASH value mismatch for stored procedure: " + nname); + fwriter.write("HASH value mismatch for stored procedure: " + nname + "\n"); + //System.out.println("HASH value mismatch for stored procedure: " + nname); + fwriter.write("Computed hash value: " + encodedHash + "\n"); + fwriter.write("Stored hash value : " + hashvalue + "\n"); + //System.out.println("Stored hash value: " + hashvalue); + fwriter.write("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n"); + //System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); match = false; } } } } - System.out.println("**** Fetched all rows from JDBC ResultSet"); + logger.fine("**** Fetched all rows from JDBC ResultSet"); + //System.out.println("**** Fetched all rows from JDBC ResultSet"); // Close the ResultSet rs.close(); - System.out.println("**** Closed JDBC ResultSet"); + + logger.fine("**** Closed JDBC ResultSet"); + //System.out.println("**** Closed JDBC ResultSet"); // Close the Statement stmt.close(); - System.out.println("**** Closed JDBC Statement"); + logger.fine("**** Closed JDBC Statement"); + //System.out.println("**** Closed JDBC Statement"); } catch (SQLException e) { - System.out.println("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt); + logger.severe("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt + e.getMessage()); + //System.out.println("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt); //e.printStackTrace(); rc = 4; return; } catch (IOException e) { - System.out.println("IO exception encountered in GvbSchemaValidateA"); + logger.severe("IO exception encountered in GvbSchemaValidateA"); + //System.out.println("IO exception encountered in GvbSchemaValidateA"); //e.printStackTrace(); rc = 8; return; } catch (NoSuchAlgorithmException e) { - System.out.println("Digest algorithm: " + digestType + " not available"); + logger.severe("Digest algorithm: " + digestType + " not available"); + //System.out.println("Digest algorithm: " + digestType + " not available"); //e.printStackTrace(); rc = 12; return; } if (makeHash) { - System.out.println("\nStored procedure digest hashmap created\n"); + logger.info("**** Stored procedure digest hashmap created"); + //System.out.println("\nStored procedure digest hashmap created\n"); rc = 2; return; } else { if ( match ) { - System.out.println("\nAll stored procedure definitions match.\n"); + logger.info("**** All stored procedure definitions match"); + //System.out.println("\nAll stored procedure definitions match.\n"); rc = 0; return; } else { - System.out.println("\nOne or more stored procedures do not match expected definitions !!!\n"); + logger.warning("**** One or more stored procedures do not match expected definitions !!!"); + //System.out.println("\nOne or more stored procedures do not match expected definitions !!!\n"); rc = 1; return; } diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateB.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateB.java index 3391fbd..72804c4 100644 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateB.java +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateB.java @@ -7,7 +7,7 @@ import java.io.BufferedWriter; import java.io.IOException; import java.util.HashMap; - +import java.util.logging.Logger; import java.security.MessageDigest; import java.security.NoSuchAlgorithmException; import java.util.Base64; @@ -17,6 +17,7 @@ public class GvbSchemaValidateB { private Integer rc; + private static final Logger logger = Logger.getLogger(GvbSchemaValidateB.class.getName()); public GvbSchemaValidateB(GvbSchemaConfig sc) { @@ -24,6 +25,7 @@ public GvbSchemaValidateB(GvbSchemaConfig sc) BufferedWriter hwriter = sc.getHwriter(); // For writing digest values of hashmaps BufferedWriter[] dwriter = new BufferedWriter[4]; // For writing Schema definitions + BufferedWriter fwriter = sc.getFwriter(); // General output writers dwriter = sc.getDwriter(); String digestType = sc.getDigestType(); Connection con = sc.getCon(); @@ -42,7 +44,8 @@ public GvbSchemaValidateB(GvbSchemaConfig sc) Statement stmt; ResultSet rs; - System.out.println ("**** GvbSchemaValidateB: checking tables and colums for schema: " + schema_mask); + logger.info("**** GvbSchemaValidateB: checking tables and columns for schema: " + schema_mask); + //System.out.println ("**** GvbSchemaValidateB: checking tables and colums for schema: " + schema_mask); String SQLstmt = "SELECT TBCREATOR, TBNAME, NAME, COLTYPE, LENGTH FROM SYSIBM.SYSCOLUMNS WHERE TBCREATOR LIKE '" + schema_mask + "' ORDER BY TBNAME, NAME"; @@ -56,11 +59,15 @@ public GvbSchemaValidateB(GvbSchemaConfig sc) // Create the SQL statement stmt = con.createStatement(); - System.out.println("**** Created JDBC Statement object"); + logger.fine("**** Created JDBC Statement object"); + //System.out.println("**** Created JDBC Statement object"); // Execute a query and generate a ResultSet instance rs = stmt.executeQuery(SQLstmt); - System.out.println("**** Created JDBC ResultSet object"); + logger.fine("**** Created JDBC ResultSet object"); + //System.out.println("**** Created JDBC ResultSet object"); + + fwriter.write("\nTable and Column Validation Report for schema: " + schema_mask + "\n\n"); MessageDigest md = MessageDigest.getInstance(digestType); while (rs.next()) { @@ -87,25 +94,36 @@ public GvbSchemaValidateB(GvbSchemaConfig sc) } else { // report on schema correctness - System.out.println("Table: " + tname + " Digest: " + digestType + ": " + encodedHash); + fwriter.write("Table: " + tname + " Digest: " + digestType + ": " + encodedHash + "\n"); + //System.out.println("Table: " + tname + " Digest: " + digestType + ": " + encodedHash); String hashvalue = tbmap.get(tname); if (hashvalue == null) { - System.out.println("HASH value mismatch for table: " + tname); - System.out.println("No stored hash value"); - System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); + logger.warning("HASH value mismatch for table: " + tname + " - no stored hash value"); + fwriter.write("HASH value mismatch for table: " + tname + " - no stored hash value\n"); + //System.out.println("HASH value mismatch for table: " + tname); + //System.out.println("No stored hash value"); + fwriter.write("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n"); + //System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); match = false; } else { if ( hashvalue.equals(encodedHash)) { - System.out.println("HASH value matches for table: " + tname); + fwriter.write("HASH value matches for table: " + tname + "\n"); + //System.out.println("HASH value matches for table: " + tname); } else { - System.out.println("HASH value mismatch for table: " + tname); - System.out.println("Stored hash value: " + hashvalue); - System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); + logger.warning("HASH value mismatch for table: " + tname); + fwriter.write("HASH value mismatch for table: " + tname + "\n"); + //System.out.println("HASH value mismatch for table: " + tname); + fwriter.write("Computed hash value: " + encodedHash + "\n"); + //System.out.println("Computed hash value: " + encodedHash); + fwriter.write("Stored hash value : " + hashvalue + "\n"); + //System.out.println("Stored hash value: " + hashvalue); + fwriter.write("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n"); + //System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); match = false; } } @@ -123,35 +141,42 @@ public GvbSchemaValidateB(GvbSchemaConfig sc) } lastTab = tname; } - System.out.println("**** Fetched all rows from JDBC ResultSet"); + logger.fine("**** Fetched all rows from JDBC ResultSet"); + //System.out.println("**** Fetched all rows from JDBC ResultSet"); // Close the ResultSet rs.close(); - System.out.println("**** Closed JDBC ResultSet"); + logger.fine("**** Closed JDBC ResultSet"); + //System.out.println("**** Closed JDBC ResultSet"); // Close the Statement stmt.close(); - System.out.println("**** Closed JDBC Statement"); + logger.fine("**** Closed JDBC Statement"); + //System.out.println("**** Closed JDBC Statement"); } catch (SQLException e) { - System.out.println("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt); + logger.severe("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt + e.getMessage()); + //System.out.println("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt); //e.printStackTrace(); rc = 4; return; } catch (IOException e) { - System.out.println("IO exception encountered in GvbSchemaValidateB"); + logger.severe("IO exception encountered in GvbSchemaValidateB"); + //System.out.println("IO exception encountered in GvbSchemaValidateB"); //e.printStackTrace(); rc = 8; return; } catch (NoSuchAlgorithmException e) { - System.out.println("Digest algorithm: " + digestType + " not available"); + logger.severe("Digest algorithm: " + digestType + " not available"); + //System.out.println("Digest algorithm: " + digestType + " not available"); //e.printStackTrace(); rc = 12; return; } if ( makeHash ) { - System.out.println("\nTable digest hashmap created\n"); + logger.info("Table digest hashmap created"); + //System.out.println("\nTable digest hashmap created\n"); rc = 2; return; } @@ -159,13 +184,15 @@ public GvbSchemaValidateB(GvbSchemaConfig sc) { if ( match ) { - System.out.println("\nAll table definitions match.\n"); + logger.info("**** All table definitions match"); + //System.out.println("\nAll table definitions match.\n"); rc = 0; return; } else { - System.out.println("\nOne or more tables do not match expected definitions !!!\n"); + logger.warning("**** One or more tables do not match expected definitions !!!"); + //System.out.println("\nOne or more tables do not match expected definitions !!!\n"); rc = 1; return; } diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java index ea62031..04cab88 100644 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java @@ -7,7 +7,7 @@ import java.io.BufferedWriter; import java.io.IOException; import java.util.HashMap; - +import java.util.logging.Logger; import java.security.MessageDigest; import java.security.NoSuchAlgorithmException; import java.util.Base64; @@ -17,6 +17,7 @@ public class GvbSchemaValidateC { private Integer rc; + private static final Logger logger = Logger.getLogger(GvbSchemaValidateC.class.getName()); public GvbSchemaValidateC(GvbSchemaConfig sc) { @@ -24,6 +25,7 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) BufferedWriter hwriter = sc.getHwriter(); // For writing digest values of hashmaps BufferedWriter[] dwriter = new BufferedWriter[4]; // For writing Schema definitions + BufferedWriter fwriter = sc.getFwriter(); // General output writers dwriter = sc.getDwriter(); String digestType = sc.getDigestType(); Connection con = sc.getCon(); @@ -41,7 +43,8 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) Statement stmt; ResultSet rs; - System.out.println ("**** GvbSchemaValidateC: checking indexes for schema: " + schema_mask); + logger.info("**** GvbSchemaValidateC: checking indexes for schema: " + schema_mask); + //System.out.println ("**** GvbSchemaValidateC: checking indexes for schema: " + schema_mask); String SQLstmt = "SELECT CREATOR, TBNAME, NAME, UNIQUERULE FROM SYSIBM.SYSINDEXES WHERE CREATOR LIKE '" + schema_mask + "' ORDER BY TBNAME, NAME;"; @@ -55,11 +58,15 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) // Create SQL Statement stmt = con.createStatement(); - System.out.println("**** Created JDBC Statement object"); + logger.fine("**** Created JDBC Statement object"); + //System.out.println("**** Created JDBC Statement object"); // Execute a query and generate a ResultSet instance rs = stmt.executeQuery(SQLstmt); - System.out.println("**** Created JDBC ResultSet object"); + logger.fine("**** Created JDBC ResultSet object"); + //System.out.println("**** Created JDBC ResultSet object"); + + fwriter.write("\nIndex Validation Report by table for schema: " + schema_mask + "\n\n"); MessageDigest md = MessageDigest.getInstance(digestType); while (rs.next()) { @@ -85,24 +92,35 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) } else { // report on schema correctness - System.out.println("Table: " + tname + " Digest: " + digestType + ": " + encodedHash); + fwriter.write("Table: " + tname + " Digest: " + digestType + ": " + encodedHash + "\n"); + //System.out.println("Table: " + tname + " Digest: " + digestType + ": " + encodedHash); String hashvalue = ixmap.get(tname); if (hashvalue == null) { - System.out.println("HASH value mismatch for table: " + tname); - System.out.println("No stored hash value"); - System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); + logger.warning("HASH value mismatch for table: " + tname + " - no stored hash value"); + fwriter.write("HASH value mismatch for table: " + tname + " - no stored hash value\n"); + //System.out.println("HASH value mismatch for table: " + tname); + //System.out.println("No stored hash value"); + fwriter.write("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n"); + //System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); match = false; } else { if ( hashvalue.equals(encodedHash) ) { - System.out.println("HASH value matches for table: " + tname); + fwriter.write("HASH value matches for table: " + tname + "\n"); + //System.out.println("HASH value matches for table: " + tname); } else { - System.out.println("HASH value mismatch for table: " + tname); - System.out.println("Stored hash value: " + hashvalue); - System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); + logger.warning("HASH value mismatch for table: " + tname); + fwriter.write("HASH value mismatch for table: " + tname + "\n"); + //System.out.println("HASH value mismatch for table: " + tname); + fwriter.write("Computed hash value: " + encodedHash + "\n"); + //System.out.println("Computed hash value: " + encodedHash); + fwriter.write("Stored hash value: " + hashvalue + "\n"); + //System.out.println("Stored hash value: " + hashvalue); + fwriter.write("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n"); + //System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); match = false; } } @@ -119,48 +137,57 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) } lastTab = tname; } - System.out.println("**** Fetched all rows from JDBC ResultSet"); + logger.fine("**** Fetched all rows from JDBC ResultSet"); + //System.out.println("**** Fetched all rows from JDBC ResultSet"); // Close the ResultSet rs.close(); - System.out.println("**** Closed JDBC ResultSet"); + logger.fine("**** Closed JDBC ResultSet"); + //System.out.println("**** Closed JDBC ResultSet"); // Close the Statement stmt.close(); - System.out.println("**** Closed JDBC Statement"); + logger.fine("**** Closed JDBC Statement"); + //System.out.println("**** Closed JDBC Statement"); } catch (SQLException e) { - System.out.println("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt); + logger.severe("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt + e.getMessage()); + //System.out.println("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt); //e.printStackTrace(); rc = 4; return; } catch (IOException e) { - System.out.println("IO exception encountered in GvbSchemaValidateC"); + logger.severe("IO exception encountered in GvbSchemaValidateC"); + //System.out.println("IO exception encountered in GvbSchemaValidateC"); //e.printStackTrace(); rc = 8; return; } catch (NoSuchAlgorithmException e) { - System.out.println("Digest algorithm: " + digestType + " not available"); + logger.severe("Digest algorithm: " + digestType + " not available"); + //System.out.println("Digest algorithm: " + digestType + " not available"); //e.printStackTrace(); rc = 12; return; } if ( makeHash ) { - System.out.println("\nIndex digest hashmap created\n"); + logger.info("Index digest hashmap created"); + //System.out.println("\nIndex digest hashmap created\n"); rc = 2; return; } else { if ( match ) { - System.out.println("\nAll index definitions match.\n"); + logger.info("**** All index definitions match"); + //System.out.println("\nAll index definitions match.\n"); rc = 0; return; } else { - System.out.println("\nOne or more indexes do not match expected definitions !!!\n"); + logger.warning("**** One or more indexes do not match expected definitions !!!"); + //System.out.println("\nOne or more indexes do not match expected definitions !!!\n"); rc = 1; return; } diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java index 7fe2cc3..e864780 100644 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java @@ -5,13 +5,18 @@ import java.io.BufferedWriter; import java.io.FileWriter; import java.io.IOException; +//import java.lang.System.Logger; import java.util.HashMap; - import java.io.File; +import java.io.File; +import java.util.logging.Logger; import java.sql.*; public class GvbSchemaValidateMain { @SuppressWarnings("resource") + + private static final Logger logger = Logger.getLogger(GvbSchemaValidateMain.class.getName()); + public static void main(String[] args) { HashMap spmap = new HashMap<>(30); // stored procedures digest @@ -29,7 +34,7 @@ public static void main(String[] args) String schema_mask = ""; Boolean makeHash = false; Boolean makeDef = false; - Boolean makeF = false; + Boolean makeF = true; BufferedWriter fwriter = null; // general output BufferedWriter hwriter = null; // digest output BufferedWriter[] dwriter = new BufferedWriter[4]; // Definition files: stored procedures, table/columns, indexes and foreign keys @@ -41,11 +46,13 @@ public static void main(String[] args) String userhome = System.getProperty("user.home"); - System.out.println ("**** Running GvbSchemaValidateMain: checking DB2 Schema"); + logger.info("**** Running GvbSchemaValidateMain: checking DB2 Schema."); + //System.out.println ("**** Running GvbSchemaValidateMain: checking DB2 Schema"); Integer nArgs =args.length; Integer n; + // parse // command line argument[s] for (n = 0; n < nArgs; n++) { if (args[n].substring(0,1).equals("-")) { @@ -60,7 +67,8 @@ public static void main(String[] args) makeDef = true; break; case "h": - System.out.println("-D (write schema definitions)\n-A (create schema digest map)"); + logger.info("-D (-D (write schema definitions)\n-A (create schema digest map)"); + //System.out.println("-D (write schema definitions)\n-A (create schema digest map)"); return; default: break; @@ -68,23 +76,19 @@ public static void main(String[] args) } } - // /////////////////////////////////////// - // TEMPORARY ASSIGNMENTS - // makeHash = false; - // makeDef = true; - // /////////////////////////////////////// - if (makeHash) { - System.out.println("Option to generate Schema digest from DB2 catalog: " + makeHash); + logger.info("Option set to generate Schema digest from DB2 catalog"); + //System.out.println("Option to generate Schema digest from DB2 catalog: " + makeHash); } if (makeDef) { - System.out.println("Option to generate Schema definitions from DB2 catalog: " + makeDef); + logger.info("Option set to generate Schema definitions from DB2 catalog"); + //System.out.println("Option to generate Schema definitions from DB2 catalog: " + makeDef); } // read configurtion information from home directory try { ii = 0; - reader = new BufferedReader(new FileReader(userhome + "/password.txt")); + reader = new BufferedReader(new FileReader(userhome + "/db2check.config")); String line = reader.readLine(); while (line != null) { if ( 0 == ii) { @@ -115,12 +119,14 @@ public static void main(String[] args) finalI = ii; reader.close(); } catch (IOException e) { - System.out.println("IO exception encountered in GvbSchemaValidateMain reading configuration file"); + logger.severe("IO exception encountered in GvbSchemaValidateMain reading configuration file: " + e.getMessage()); + // System.out.println("IO exception encountered in GvbSchemaValidateMain reading configuration file"); //e.printStackTrace(); return; } // configuration information has been read - System.out.println("User: " + user + " Url: " + url + " Schema mask: " + schema_mask + ". Config lines read: " + finalI); + logger.fine("User: " + user + " Url: " + url + " Schema mask: " + schema_mask + ". Config lines read: " + finalI); + //System.out.println("User: " + user + " Url: " + url + " Schema mask: " + schema_mask + ". Config lines read: " + finalI); // read Digest information from home directory @@ -128,7 +134,8 @@ public static void main(String[] args) // check if our directory exists: if it doesn't create it, if it does fine File newDir = new File(userhome+"/GenevaERS"); if (newDir.mkdir()) { - System.out.println("Directory: " + userhome+"/GenevaERS" + " created."); + logger.info("Directory: " + userhome+"/GenevaERS" + " created"); + //System.out.println("Directory: " + userhome+"/GenevaERS" + " created."); } else { // this is ok too } @@ -139,8 +146,10 @@ public static void main(String[] args) // check if our directory exists: it MUST File newDir = new File(userhome+"/GenevaERS"); if (newDir.mkdir()) { - System.out.println("Directory: " + userhome + "/GenevaERS" + " did not previously exist."); - System.out.println("Digest file does not exist. Terminating application."); + logger.info("Directory: " + userhome + "/GenevaERS" + " did not previously exist"); + logger.severe("Digest file does not exist. Terminating application"); + //System.out.println("Directory: " + userhome + "/GenevaERS" + " did not previously exist."); + //System.out.println("Digest file does not exist. Terminating application."); return; } else { // this is the happy path @@ -186,7 +195,8 @@ public static void main(String[] args) fkmap.put(values[0], values[1]); break; default: - System.out.println("Invalid State:" + State + " Line: " + ii + " record: " + line); + logger.severe("Invalid State:" + State + " Line: " + ii + " record: " + line); + //System.out.println("Invalid State:" + State + " Line: " + ii + " record: " + line); break; } } @@ -200,7 +210,8 @@ public static void main(String[] args) finalI = ii; reader.close(); } catch (IOException e) { - System.out.println("IO exception encountered in GvbSchemaValidateMain reading schema digest file"); + logger.severe("IO exception encountered in GvbSchemaValidateMain reading schema digest file: " + e.getMessage()); + //System.out.println("IO exception encountered in GvbSchemaValidateMain reading schema digest file"); //e.printStackTrace(); return; } @@ -210,20 +221,24 @@ public static void main(String[] args) try { Class.forName("com.ibm.db2.jcc.DB2Driver"); } catch (ClassNotFoundException e) { - System.out.println("Error encountered loading DB2 SQLJ driver"); + logger.severe("Error encountered loading DB2 SQLJ driver: " + e.getMessage()); + //System.out.println("Error encountered loading DB2 SQLJ driver"); //e.printStackTrace(); return; } - System.out.println("**** Loaded the JDBC driver"); + logger.fine("**** Loaded the JDBC driver"); + //System.out.println("**** Loaded the JDBC driver"); // Create the connection using the IBM Data Server Driver for JDBC and SQLJ and open output file[s] try { con = DriverManager.getConnection (url, user, password); con.setAutoCommit(false); - System.out.println("**** Created a JDBC connection to the data source\n"); + logger.fine("**** Created a JDBC connection to the data source\n"); + //System.out.println("**** Created a JDBC connection to the data source\n"); if ( makeF ) { fwriter = new BufferedWriter(new FileWriter(userhome + "/GenevaERS/Schema_report.txt")); + fwriter.write("GenevaERS DB2 Schema Report for: " + schema_mask + "\n"); } if (makeHash) { @@ -256,25 +271,32 @@ public static void main(String[] args) switch ( maxRc ) { case 0: - System.out.println("All parts of schema validated successfully\n"); + logger.info("All parts of schema validated successfully\n"); + //System.out.println("All parts of schema validated successfully\n"); break; case 1: - System.out.println("One or more parts of schema failed validation\n"); + logger.warning("One or more parts of schema failed validation\n"); + //System.out.println("One or more parts of schema failed validation\n"); break; case 2: - System.out.println("Schema digest map created\n"); + logger.info("Schema digest map created\n"); + //System.out.println("Schema digest map created\n"); break; case 4: - System.out.println("DB2 SQL error\n"); + logger.severe("DB2 SQL error\n"); + //System.out.println("DB2 SQL error\n"); break; case 8: - System.out.println("IO error\n"); + logger.severe("IO error\n"); + //System.out.println("IO error\n"); break; case 12: - System.out.println("No such algorithm found: " + digestType + "\n" ); + logger.severe("IO and DB2 SQL error\n"); + //System.out.println("No such algorithm found: " + digestType + "\n" ); break; default: - System.out.println("Incorrect max return code: " + maxRc + "\n"); + logger.severe("Incorrect max return code: " + maxRc + "\n"); + //System.out.println("Incorrect max return code: " + maxRc + "\n"); break; } @@ -295,20 +317,25 @@ public static void main(String[] args) // Connection must be on a unit-of-work boundary to allow close con.commit(); - System.out.println ( "**** SQL statements completed on transaction boundary" ); + logger.fine("**** SQL statements completed on transaction boundary"); + //System.out.println ( "**** SQL statements completed on transaction boundary" ); // Close the connection con.close(); - System.out.println("**** Disconnected from data source"); - System.out.println("**** JDBC completed - no DB2 errors"); + logger.fine(userhome + "**** Disconnected from data source"); + //System.out.println("**** Disconnected from data source"); + logger.fine("**** JDBC completed - no DB2 errors"); + //System.out.println("**** JDBC completed - no DB2 errors"); } catch (SQLException e) { - System.out.println("SQLSTATE: " + e.getSQLState() + " creating database connection for: " + url); + logger.severe("SQLSTATE: " + e.getSQLState() + " creating database connection for: " + url + e.getMessage()); + //System.out.println("SQLSTATE: " + e.getSQLState() + " creating database connection for: " + url); //e.printStackTrace(); return; } catch (IOException e) { - System.out.println("IO exception encountered in GvbSchemaValidateMain"); + logger.severe("IO exception encountered in GvbSchemaValidateMain" + e.getMessage()); + //System.out.println("IO exception encountered in GvbSchemaValidateMain"); //e.printStackTrace(); return; } From afad5dff9b19279297413bdfa472affa1106d3b5 Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Wed, 21 Jan 2026 17:51:06 -0600 Subject: [PATCH 16/18] tidy up Signed-off-by: neilbeesley --- .../org/genevaers/db2check/GvbSchemaValidateC.java | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java index 04cab88..38300f5 100644 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java @@ -92,13 +92,13 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) } else { // report on schema correctness - fwriter.write("Table: " + tname + " Digest: " + digestType + ": " + encodedHash + "\n"); + fwriter.write("Indexes for Table: " + tname + " Digest: " + digestType + ": " + encodedHash + "\n"); //System.out.println("Table: " + tname + " Digest: " + digestType + ": " + encodedHash); String hashvalue = ixmap.get(tname); if (hashvalue == null) { - logger.warning("HASH value mismatch for table: " + tname + " - no stored hash value"); - fwriter.write("HASH value mismatch for table: " + tname + " - no stored hash value\n"); + logger.warning("HASH value mismatch for indexes of table: " + tname + " - no stored hash value"); + fwriter.write("HASH value mismatch for indexes of table: " + tname + " - no stored hash value\n"); //System.out.println("HASH value mismatch for table: " + tname); //System.out.println("No stored hash value"); fwriter.write("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n"); @@ -107,13 +107,13 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) } else { if ( hashvalue.equals(encodedHash) ) { - fwriter.write("HASH value matches for table: " + tname + "\n"); + fwriter.write("HASH value matches for indexes of table: " + tname + "\n"); //System.out.println("HASH value matches for table: " + tname); } else { - logger.warning("HASH value mismatch for table: " + tname); - fwriter.write("HASH value mismatch for table: " + tname + "\n"); + logger.warning("HASH value mismatch for indexes of table: " + tname); + fwriter.write("HASH value mismatch for indexes of table: " + tname + "\n"); //System.out.println("HASH value mismatch for table: " + tname); fwriter.write("Computed hash value: " + encodedHash + "\n"); //System.out.println("Computed hash value: " + encodedHash); From 50c9f8be1a1a674930d1d349c78c6ee1d46de744 Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Wed, 21 Jan 2026 20:50:42 -0600 Subject: [PATCH 17/18] Tidy up Signed-off-by: neilbeesley --- .../db2check/GvbSchemaValidateA.java | 18 ++--- .../db2check/GvbSchemaValidateB.java | 16 ++--- .../db2check/GvbSchemaValidateC.java | 18 ++--- .../db2check/GvbSchemaValidateD.java | 68 +++++++++++++------ .../db2check/GvbSchemaValidateMain.java | 12 ++-- 5 files changed, 79 insertions(+), 53 deletions(-) diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateA.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateA.java index a3a9c81..ab2ad03 100644 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateA.java +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateA.java @@ -44,7 +44,7 @@ public GvbSchemaValidateA(GvbSchemaConfig sc) Statement stmt; ResultSet rs; - logger.info("**** GvbSchemaValidateA: checking stored procedures for schema: " + schema_mask); + logger.info("GvbSchemaValidateA: checking stored procedures for schema: " + schema_mask); //System.out.println ("**** GvbSchemaValidateA: checking stored procedures for schema: " + schema_mask); String SQLstmt = "SELECT SCHEMA, NAME, VERSION, TEXT FROM SYSIBM.SYSROUTINES WHERE SCHEMA LIKE '"+schema_mask+"' ORDER BY SCHEMA, NAME"; @@ -58,12 +58,12 @@ public GvbSchemaValidateA(GvbSchemaConfig sc) // Create the SQL statement stmt = con.createStatement(); - logger.fine("**** Created JDBC Statement object"); + logger.fine("Created JDBC Statement object"); //System.out.println("**** Created JDBC Statement object"); // Execute a query and generate a ResultSet instance rs = stmt.executeQuery(SQLstmt); - logger.fine("**** Created JDBC ResultSet object"); + logger.fine("Created JDBC ResultSet object"); //System.out.println("**** Created JDBC ResultSet object"); fwriter.write("\nStored Procedures Validation Report for schema: " + schema_mask + "\n\n"); @@ -137,18 +137,18 @@ public GvbSchemaValidateA(GvbSchemaConfig sc) } } } - logger.fine("**** Fetched all rows from JDBC ResultSet"); + logger.fine("Fetched all rows from JDBC ResultSet"); //System.out.println("**** Fetched all rows from JDBC ResultSet"); // Close the ResultSet rs.close(); - logger.fine("**** Closed JDBC ResultSet"); + logger.fine("Closed JDBC ResultSet"); //System.out.println("**** Closed JDBC ResultSet"); // Close the Statement stmt.close(); - logger.fine("**** Closed JDBC Statement"); + logger.fine("Closed JDBC Statement"); //System.out.println("**** Closed JDBC Statement"); } catch (SQLException e) { @@ -172,21 +172,21 @@ public GvbSchemaValidateA(GvbSchemaConfig sc) } if (makeHash) { - logger.info("**** Stored procedure digest hashmap created"); + logger.info("Stored procedure digest hashmap created"); //System.out.println("\nStored procedure digest hashmap created\n"); rc = 2; return; } else { if ( match ) { - logger.info("**** All stored procedure definitions match"); + logger.info("All stored procedure definitions match"); //System.out.println("\nAll stored procedure definitions match.\n"); rc = 0; return; } else { - logger.warning("**** One or more stored procedures do not match expected definitions !!!"); + logger.warning("One or more stored procedures do not match expected definitions ***"); //System.out.println("\nOne or more stored procedures do not match expected definitions !!!\n"); rc = 1; return; diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateB.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateB.java index 72804c4..4d47f13 100644 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateB.java +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateB.java @@ -44,7 +44,7 @@ public GvbSchemaValidateB(GvbSchemaConfig sc) Statement stmt; ResultSet rs; - logger.info("**** GvbSchemaValidateB: checking tables and columns for schema: " + schema_mask); + logger.info("GvbSchemaValidateB: checking tables and columns for schema: " + schema_mask); //System.out.println ("**** GvbSchemaValidateB: checking tables and colums for schema: " + schema_mask); String SQLstmt = "SELECT TBCREATOR, TBNAME, NAME, COLTYPE, LENGTH FROM SYSIBM.SYSCOLUMNS WHERE TBCREATOR LIKE '" + schema_mask + "' ORDER BY TBNAME, NAME"; @@ -59,12 +59,12 @@ public GvbSchemaValidateB(GvbSchemaConfig sc) // Create the SQL statement stmt = con.createStatement(); - logger.fine("**** Created JDBC Statement object"); + logger.fine("Created JDBC Statement object"); //System.out.println("**** Created JDBC Statement object"); // Execute a query and generate a ResultSet instance rs = stmt.executeQuery(SQLstmt); - logger.fine("**** Created JDBC ResultSet object"); + logger.fine("Created JDBC ResultSet object"); //System.out.println("**** Created JDBC ResultSet object"); fwriter.write("\nTable and Column Validation Report for schema: " + schema_mask + "\n\n"); @@ -141,17 +141,17 @@ public GvbSchemaValidateB(GvbSchemaConfig sc) } lastTab = tname; } - logger.fine("**** Fetched all rows from JDBC ResultSet"); + logger.fine("Fetched all rows from JDBC ResultSet"); //System.out.println("**** Fetched all rows from JDBC ResultSet"); // Close the ResultSet rs.close(); - logger.fine("**** Closed JDBC ResultSet"); + logger.fine("Closed JDBC ResultSet"); //System.out.println("**** Closed JDBC ResultSet"); // Close the Statement stmt.close(); - logger.fine("**** Closed JDBC Statement"); + logger.fine("Closed JDBC Statement"); //System.out.println("**** Closed JDBC Statement"); } catch (SQLException e) { @@ -184,14 +184,14 @@ public GvbSchemaValidateB(GvbSchemaConfig sc) { if ( match ) { - logger.info("**** All table definitions match"); + logger.info("All table definitions match"); //System.out.println("\nAll table definitions match.\n"); rc = 0; return; } else { - logger.warning("**** One or more tables do not match expected definitions !!!"); + logger.warning("One or more tables do not match expected definitions ***"); //System.out.println("\nOne or more tables do not match expected definitions !!!\n"); rc = 1; return; diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java index 38300f5..017b5ea 100644 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateC.java @@ -43,7 +43,7 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) Statement stmt; ResultSet rs; - logger.info("**** GvbSchemaValidateC: checking indexes for schema: " + schema_mask); + logger.info("GvbSchemaValidateC: checking indexes for schema: " + schema_mask); //System.out.println ("**** GvbSchemaValidateC: checking indexes for schema: " + schema_mask); String SQLstmt = "SELECT CREATOR, TBNAME, NAME, UNIQUERULE FROM SYSIBM.SYSINDEXES WHERE CREATOR LIKE '" + schema_mask + "' ORDER BY TBNAME, NAME;"; @@ -58,12 +58,12 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) // Create SQL Statement stmt = con.createStatement(); - logger.fine("**** Created JDBC Statement object"); + logger.fine("Created JDBC Statement object"); //System.out.println("**** Created JDBC Statement object"); // Execute a query and generate a ResultSet instance rs = stmt.executeQuery(SQLstmt); - logger.fine("**** Created JDBC ResultSet object"); + logger.fine("Created JDBC ResultSet object"); //System.out.println("**** Created JDBC ResultSet object"); fwriter.write("\nIndex Validation Report by table for schema: " + schema_mask + "\n\n"); @@ -117,7 +117,7 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) //System.out.println("HASH value mismatch for table: " + tname); fwriter.write("Computed hash value: " + encodedHash + "\n"); //System.out.println("Computed hash value: " + encodedHash); - fwriter.write("Stored hash value: " + hashvalue + "\n"); + fwriter.write("Stored hash value : " + hashvalue + "\n"); //System.out.println("Stored hash value: " + hashvalue); fwriter.write("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n"); //System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); @@ -137,17 +137,17 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) } lastTab = tname; } - logger.fine("**** Fetched all rows from JDBC ResultSet"); + logger.fine("Fetched all rows from JDBC ResultSet"); //System.out.println("**** Fetched all rows from JDBC ResultSet"); // Close the ResultSet rs.close(); - logger.fine("**** Closed JDBC ResultSet"); + logger.fine("Closed JDBC ResultSet"); //System.out.println("**** Closed JDBC ResultSet"); // Close the Statement stmt.close(); - logger.fine("**** Closed JDBC Statement"); + logger.fine("Closed JDBC Statement"); //System.out.println("**** Closed JDBC Statement"); } catch (SQLException e) { @@ -179,14 +179,14 @@ public GvbSchemaValidateC(GvbSchemaConfig sc) else { if ( match ) { - logger.info("**** All index definitions match"); + logger.info("All index definitions match"); //System.out.println("\nAll index definitions match.\n"); rc = 0; return; } else { - logger.warning("**** One or more indexes do not match expected definitions !!!"); + logger.warning("One or more indexes do not match expected definitions ***"); //System.out.println("\nOne or more indexes do not match expected definitions !!!\n"); rc = 1; return; diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateD.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateD.java index 43bdb10..dce5717 100644 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateD.java +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateD.java @@ -7,7 +7,7 @@ import java.io.BufferedWriter; import java.io.IOException; import java.util.HashMap; - +import java.util.logging.Logger; import java.security.MessageDigest; import java.security.NoSuchAlgorithmException; import java.util.Base64; @@ -17,6 +17,7 @@ public class GvbSchemaValidateD { private Integer rc; + private static final Logger logger = Logger.getLogger(GvbSchemaValidateC.class.getName()); public GvbSchemaValidateD(GvbSchemaConfig sc) { @@ -24,6 +25,7 @@ public GvbSchemaValidateD(GvbSchemaConfig sc) BufferedWriter hwriter = sc.getHwriter(); // For writing digest values of hashmaps BufferedWriter[] dwriter = new BufferedWriter[4]; // For writing Schema definitions + BufferedWriter fwriter = sc.getFwriter(); // General output writers dwriter = sc.getDwriter(); String digestType = sc.getDigestType(); Connection con = sc.getCon(); @@ -41,7 +43,8 @@ public GvbSchemaValidateD(GvbSchemaConfig sc) Statement stmt; ResultSet rs; - System.out.println ("**** GvbSchemaValidateD: checking foreign keys for schema: " + schema_mask); + logger.info("GvbSchemaValidateD: checking foreign keys for schema: " + schema_mask); + //System.out.println ("**** GvbSchemaValidateD: checking foreign keys for schema: " + schema_mask); String SQLstmt = "SELECT CREATOR, TBNAME, RELNAME, COLNAME FROM SYSIBM.SYSFOREIGNKEYS WHERE CREATOR LIKE '" + schema_mask + "' ORDER BY TBNAME, RELNAME, COLNAME;"; @@ -55,11 +58,15 @@ public GvbSchemaValidateD(GvbSchemaConfig sc) // Create the Statement stmt = con.createStatement(); - System.out.println("**** Created JDBC Statement object"); + logger.fine("Created JDBC Statement object"); + //System.out.println("**** Created JDBC Statement object"); // Execute a query and generate a ResultSet instance rs = stmt.executeQuery(SQLstmt); - System.out.println("**** Created JDBC ResultSet object"); + logger.fine("Created JDBC ResultSet object"); + //System.out.println("**** Created JDBC ResultSet object"); + + fwriter.write("\nForeign key Validation Report by table for schema: " + schema_mask + "\n\n"); MessageDigest md = MessageDigest.getInstance(digestType); while (rs.next()) { @@ -85,24 +92,34 @@ public GvbSchemaValidateD(GvbSchemaConfig sc) } else { // report on schema correctness - System.out.println("Table: " + tname + " Digest: " + digestType + ": " + encodedHash); + fwriter.write("Foreign keys of table: " + tname + " Digest: " + digestType + ": " + encodedHash + "\n"); + //System.out.println("Foreign keys of table: " + tname + " Digest: " + digestType + ": " + encodedHash); String hashvalue = fkmap.get(tname); if (hashvalue == null) { - System.out.println("HASH value mismatch for table: " + tname); - System.out.println("No stored hash value"); - System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); + logger.warning("HASH value mismatch for foreign key of table: " + tname + " - no stored hash value"); + fwriter.write("HASH value mismatch for foreign key of table: " + tname + " - no stored hash value\n"); + //System.out.println("HASH value mismatch for foreign key of table: " + tname); + //System.out.println("No stored hash value"); + fwriter.write("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n"); + //System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); match = false; } else { if ( hashvalue.equals(encodedHash) ) { - System.out.println("HASH value matches for table: " + tname); + fwriter.write("HASH value matches for foreign keys of table: " + tname + "\n"); + //System.out.println("HASH value matches for foreign keys of table: " + tname); } else { - System.out.println("HASH value mismatch for table: " + tname); - System.out.println("Stored hash value: " + hashvalue); - System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); + logger.warning("HASH value mismatch for foreign keys of table: " + tname); + fwriter.write("HASH value mismatch for foreign keys of table: " + tname + "\n"); + //System.out.println("HASH value mismatch for foreign keys of table: " + tname); + fwriter.write("Computed hash value: " + encodedHash + "\n"); + fwriter.write("Stored hash value : " + hashvalue + "\n"); + //System.out.println("Stored hash value: " + hashvalue); + fwriter.write("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n"); + //System.out.println("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"); match = false; } } @@ -119,46 +136,55 @@ public GvbSchemaValidateD(GvbSchemaConfig sc) } lastTab = tname; } - System.out.println("**** Fetched all rows from JDBC ResultSet"); + logger.fine("Fetched all rows from JDBC ResultSet"); + //System.out.println("**** Fetched all rows from JDBC ResultSet"); // Close the ResultSet rs.close(); - System.out.println("**** Closed JDBC ResultSet"); + logger.fine("Closed JDBC ResultSet"); + //System.out.println("**** Closed JDBC ResultSet"); // Close the Statement stmt.close(); - System.out.println("**** Closed JDBC Statement"); + logger.fine("Closed JDBC Statement"); + //System.out.println("**** Closed JDBC Statement"); } catch (SQLException e) { - System.out.println("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt); + logger.severe("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt + e.getMessage()); + //System.out.println("SQLSTATE: " + e.getSQLState() + " executing: " + SQLstmt); //e.printStackTrace(); rc = 4; return; } catch (IOException e) { - System.out.println("IO exception encountered in GvbSchemaValidateD"); + logger.severe("IO exception encountered in GvbSchemaValidateD"); + //System.out.println("IO exception encountered in GvbSchemaValidateD"); //e.printStackTrace(); rc = 8; return; } catch (NoSuchAlgorithmException e) { - System.out.println("Digest algorithm: " + digestType + " not available"); + logger.severe("Digest algorithm: " + digestType + " not available"); + //System.out.println("Digest algorithm: " + digestType + " not available"); //e.printStackTrace(); rc = 12; return; } if ( makeHash ) { - System.out.println("\nForeign key digest hashmap created\n"); + logger.info("Foreign key digest hashmap created"); + //System.out.println("\nForeign key digest hashmap created\n"); rc = 2; return; } else { if ( match ) { - System.out.println("\nAll foreign key definitions match.\n"); + logger.info("All foreign key definitions match."); + //System.out.println("\nAll foreign key definitions match.\n"); rc = 0; return; } else { - System.out.println("\nOne or more foreign keys do not match expected definitions !!!\n"); + logger.warning("One or more foreign keys do not match expected definitions ***"); + //System.out.println("\nOne or more foreign keys do not match expected definitions !!!\n"); rc = 1; return; } diff --git a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java index e864780..469fc38 100644 --- a/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java +++ b/DB2CHECK/src/main/java/org/genevaers/db2check/GvbSchemaValidateMain.java @@ -46,7 +46,7 @@ public static void main(String[] args) String userhome = System.getProperty("user.home"); - logger.info("**** Running GvbSchemaValidateMain: checking DB2 Schema."); + logger.info("Running GvbSchemaValidateMain: checking DB2 Schema."); //System.out.println ("**** Running GvbSchemaValidateMain: checking DB2 Schema"); Integer nArgs =args.length; @@ -226,14 +226,14 @@ public static void main(String[] args) //e.printStackTrace(); return; } - logger.fine("**** Loaded the JDBC driver"); + logger.fine("Loaded the JDBC driver"); //System.out.println("**** Loaded the JDBC driver"); // Create the connection using the IBM Data Server Driver for JDBC and SQLJ and open output file[s] try { con = DriverManager.getConnection (url, user, password); con.setAutoCommit(false); - logger.fine("**** Created a JDBC connection to the data source\n"); + logger.fine("Created a JDBC connection to the data source\n"); //System.out.println("**** Created a JDBC connection to the data source\n"); if ( makeF ) { @@ -317,14 +317,14 @@ public static void main(String[] args) // Connection must be on a unit-of-work boundary to allow close con.commit(); - logger.fine("**** SQL statements completed on transaction boundary"); + logger.fine("SQL statements completed on transaction boundary"); //System.out.println ( "**** SQL statements completed on transaction boundary" ); // Close the connection con.close(); - logger.fine(userhome + "**** Disconnected from data source"); + logger.fine(userhome + "Disconnected from data source"); //System.out.println("**** Disconnected from data source"); - logger.fine("**** JDBC completed - no DB2 errors"); + logger.fine("JDBC completed - no DB2 errors"); //System.out.println("**** JDBC completed - no DB2 errors"); } catch (SQLException e) { From 0f805de74c8a9383f56e21660aa10c95b5d3ff04 Mon Sep 17 00:00:00 2001 From: neilbeesley Date: Mon, 2 Feb 2026 15:15:07 -0600 Subject: [PATCH 18/18] Error handling after calling JobSubmitter.sh Signed-off-by: neilbeesley --- SH/Allocate.sh | 1 + SH/DataSetAlias.sh | 1 + SH/SaveJobInfo.sh | 1 + SH/SubBuild.sh | 1 + 4 files changed, 4 insertions(+) diff --git a/SH/Allocate.sh b/SH/Allocate.sh index 1d8240a..25f6b8a 100755 --- a/SH/Allocate.sh +++ b/SH/Allocate.sh @@ -12,6 +12,7 @@ cat ../JCL/ALLOCDONE.jcl >> ../JCL/ALLOC.jcl; echo "$(date) ${BASH_SOURCE##*/} Submit JCL to allocate the build data sets"; . ./JobSubmitter.sh '../JCL/ALLOC.jcl' allocdone 1>> $err_log; +exitIfError; echo "$(date) ${BASH_SOURCE##*/} JobID: $GERS_JOBID" ; . ./JobWaiter.sh 60 allocdone 1>> $err_log; exitIfError; diff --git a/SH/DataSetAlias.sh b/SH/DataSetAlias.sh index 8979a31..8098b2e 100755 --- a/SH/DataSetAlias.sh +++ b/SH/DataSetAlias.sh @@ -12,6 +12,7 @@ cat ../JCL/ALIASDONE.jcl >> ../JCL/ALIAS.jcl; echo "$(date) ${BASH_SOURCE##*/} Submit JCL to set aliases for the build data sets"; . ./JobSubmitter.sh '../JCL/ALIAS.jcl' aliasdone 1>> $err_log; +exitIfError; echo "$(date) ${BASH_SOURCE##*/} JobID: $GERS_JOBID" ; . ./JobWaiter.sh 60 aliasdone 1>> $err_log; exitIfError; diff --git a/SH/SaveJobInfo.sh b/SH/SaveJobInfo.sh index 878eb38..6b187f1 100644 --- a/SH/SaveJobInfo.sh +++ b/SH/SaveJobInfo.sh @@ -11,6 +11,7 @@ cat ../JCL/SAVEDONE.jcl >> ../JCL/SAVEJOB.jcl; echo "$(date) ${BASH_SOURCE##*/} Submit JCL to copy job output"; . ./JobSubmitter.sh '../JCL/SAVEJOB.jcl' savedone 1>> $err_log; +exitIfError; echo "$(date) ${BASH_SOURCE##*/} JobID: $GERS_JOBID" ; . ./JobWaiter.sh 60 savedone 1>> $err_log; exitIfError; diff --git a/SH/SubBuild.sh b/SH/SubBuild.sh index 75ca6a6..252f406 100755 --- a/SH/SubBuild.sh +++ b/SH/SubBuild.sh @@ -12,6 +12,7 @@ cd $save_pwd ; echo "$(date) ${BASH_SOURCE##*/} Submit the generated JCL to assemble and link the load modules"; . ./JobSubmitter.sh '../JCL/BUILDPE.jcl' asmdone 1>> $err_log; +exitIfError; echo "$(date) ${BASH_SOURCE##*/} JobID: $GERS_JOBID" ; . ./JobWaiter.sh 120 asmdone 1>> $err_log ; exitIfError;