//XPTTJ37L JOB (PNBC,PP),'T.V. RAMESH',MSGCLASS=C,CLASS=H,
// NOTIFY=XPTTJ37,MSGLEVEL=(1,1),TIME=(,30),REGION=5120K
/*ROUTE PRINT IOF
/*JOBPARM $=XPTTJ37,LINES=250
//ISPF PROC
//* INVOKE ISPF IN BATCH MODE
//ST1 EXEC PGM=IKJEFT01,DYNAMNBR=95
//STEPLIB DD DISP=SHR,DSN=SYS7.DB2Q.DSNLOAD
//ISPLLIB DD DISP=SHR,DSN=SYS4.PP.ISPLOAD
//SYSPROC DD DISP=SHR,DSN=PN6X.DEVLDE.CLIST,DCB=BUFSIZE=19069
// DD DISP=SHR,DSN=SYS1.CMDPROC
// DD DISP=SHR,DSN=SYS4.PTTPROC
//ISPPLIB DD DISP=SHR,DSN=SYS4.PP.ISPPLIB,DCB=BLKSIZE=6400
// DD DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPPLIB
//ISPMLIB DD DISP=SHR,DSN=PN6X.DEVLDE.MSGS,DCB=BUFSIZE=19040
// DD DISP=SHR,DSN=SYS4.PP.ISPMLIB
// DD DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPMLIB
//ISPSLIB DD DISP=SHR,DSN=PN6X.DEVLDE.SKELS,DCB=BUFSIZE=19040
// DD DISP=SHR,DSN=SYS4.PP.ISPSLIB
// DD DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPSLIB
//ISPTLIB DD DISP=SHR,DSN=PN6X.DEVLDE.TABLES,DCB=BUFSIZE=19040
// DD DISP=SHR,DSN=SYS4.PP.ISPTLIB
// DD DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPTLIB
//ISPTABL DD DISP=SHR,DSN=PN6X.DEVLDE.TABLES,DCB=BUFSIZE=19040
//ISPFILE DD DUMMY N.3 REQUIRES THIS
//ISPPROF DD DSN=&&PROF,
// DISP=(NEW,DELETE),
// DCB=(LRECL=80,BLKSIZE=19040,RECFM=FB,DSORG=PO),
// SPACE=(TRK,(1,1,1)),
// UNIT=TEST80
//ISPLOG DD DSN=&&LOG,
// DISP=(NEW,DELETE),
// DCB=(LRECL=80,BLKSIZE=19040,RECFM=FB,DSORG=PS),
// SPACE=(TRK,(1,1)),
// UNIT=TEST80
//SYSTSPRT DD SYSOUT=*
//ISPF PEND
//**********************************************************************
//TSOATT PROC
//* INVOKE TSO PROCESSOR TO ATTACH TO DB2Q
//DB2 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=2048K
//STEPLIB DD DISP=SHR,DSN=SYS7.DB2Q.DSNLOAD
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TSOATT PEND
//LOAD PROC LPARM='*'
//*--------- LOAD DATA USING CONTROL DECK -----------------------
//LD EXEC PGM=DSNUTILB,PARM='&LPARM',
// REGION=2048K
//STEPLIB DD DISP=SHR,DSN=SYS7.DB2Q.DSNLOAD
//SYSIN DD DISP=(OLD,DELETE),DSN=&LOADCTL
//SYSPRINT DD SYSOUT=*
//DISCRD DD SYSOUT=*,DCB=(RECFM=FB,LRECL=80,BLKSIZE=6400)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SORTLIB DD DISP=SHR,DSN=SYS1.SORTLIB
//SORTOUT DD UNIT=3380,SPACE=(4000,(20,20),,,ROUND)
//SYSUT1 DD UNIT=3380,SPACE=(CYL,(13,1),RLSE,,ROUND)
//SORTWK01 DD UNIT=3380,SPACE=(4000,(20,20),,,ROUND)
//SORTWK02 DD UNIT=3380,SPACE=(4000,(20,20),,,ROUND)
//SORTWK03 DD UNIT=3380,SPACE=(4000,(20,20),,,ROUND)
//SORTWK04 DD UNIT=3380,SPACE=(4000,(20,20),,,ROUND)
//DSNTRACE DD SYSOUT=*
//SYSERR DD UNIT=3380,SPACE=(4000,(20,20),,,ROUND)
//SYSMAP DD UNIT=3380,SPACE=(4000,(20,20),,,ROUND)
//LOAD PEND
//****************************************************************
//* EDIT CONTROL STATEMENTS - RENUMBER SYSREC00 TO 01, 02, ... *
//* AND DELETE DATA FROM ALL SELECTED TABLES . *
//****************************************************************
//PREPCTL EXEC TSOATT
//OUTCTL DD DSN=&CNTL,DISP=(,PASS),UNIT=TEMP80,
// SPACE=(TRK,(3,3)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//INCTL DD * ***** USED TO CHECK CONTENTS OF CNTL DATA SETS *****
CBAB CCA_BLG_ACCT_BAL
CBAC CUST_BLG_ACCT
CCRD CCA_CREDIT
CCRS CCA_CRIS_ACCT
CDAG CCA_DETL_ACCT_GRP
CGAR CCA_GUARANTOR
CLOC CUST_LOC_REFER
CPBD CCA_PRFL_BRDY
CRAR CUST_RPTG_ARRGT
CUST CUST
RCSF CSR_FORMAT
RFLP CRAR_FLOPPY
RFOP CRAR_FRMT_OPTN
RMAG CRAR_MAG_TAPE
//SYSCTL00 DD DSN=BPP2.R010100.CIB2UNT.DB.CBAB.V101.CNTL,DISP=SHR
//SYSCTL01 DD DSN=BPP2.R010100.CIB2UNT.DB.CBAC.V101.CNTL,DISP=SHR
//SYSCTL02 DD DSN=BPP2.R010100.CIB2UNT.DB.CCRD.V101.CNTL,DISP=SHR
//SYSCTL03 DD DSN=BPP2.R010100.CIB2UNT.DB.CCRS.V101.CNTL,DISP=SHR
//SYSCTL04 DD DSN=BPP2.R010100.CIB2UNT.DB.CDAG.V101.CNTL,DISP=SHR
//SYSCTL05 DD DSN=BPP2.R010100.CIB2UNT.DB.CGAR.V101.CNTL,DISP=SHR
//SYSCTL06 DD DSN=BPP2.R010100.CIB2UNT.DB.CLOC.V101.CNTL,DISP=SHR
//SYSCTL07 DD DSN=BPP2.R010100.CIB2UNT.DB.CPBD.V101.CNTL,DISP=SHR
//SYSCTL08 DD DSN=BPP2.R010100.CIB2UNT.DB.CRAR.V101.CNTL,DISP=SHR
//SYSCTL09 DD DSN=BPP2.R010100.CIB2UNT.DB.CUST.V101.CNTL,DISP=SHR
//SYSCTL10 DD DSN=BPP2.R010100.CIB2UNT.DB.RCSF.V101.CNTL,DISP=SHR
//SYSCTL11 DD DSN=BPP2.R010100.CIB2UNT.DB.RFLP.V101.CNTL,DISP=SHR
//SYSCTL12 DD DSN=BPP2.R010100.CIB2UNT.DB.RFOP.V101.CNTL,DISP=SHR
//SYSCTL13 DD DSN=BPP2.R010100.CIB2UNT.DB.RMAG.V101.CNTL,DISP=SHR
//SYSTSIN DD *
EX 'PN6X.DEVLDE.EXECS(VC5500R0)' 'CIB2UNT'
//SYSIN DD *
SET CURRENT SQLID = 'CIB2UNT';
DELETE
FROM CIB2UNT.CCA_BLG_ACCT_BAL;
DELETE
FROM CIB2UNT.CUST_BLG_ACCT;
DELETE
FROM CIB2UNT.CCA_CREDIT;
DELETE
FROM CIB2UNT.CCA_CRIS_ACCT;
DELETE
FROM CIB2UNT.CCA_DETL_ACCT;
DELETE
FROM CIB2UNT.CCA_DETL_ACCT_GRP;
DELETE
FROM CIB2UNT.CCA_GUARANTOR;
DELETE
FROM CIB2UNT.CUST_LOC_REFER;
DELETE
FROM CIB2UNT.CCA_PRFL_BRDY;
DELETE
FROM CIB2UNT.CUST_RPTG_ARRGT;
DELETE
FROM CIB2UNT.CUST;
DELETE
FROM CIB2UNT.CSR_FORMAT;
DELETE
FROM CIB2UNT.CRAR_FLOPPY;
DELETE
FROM CIB2UNT.CRAR_FRMT_OPTN;
DELETE
FROM CIB2UNT.CRAR_MAG_TAPE;
//LOADTBLS EXEC LOAD,LPARM='DB2Q,XPTTJ37L.TABLES',
// COND=(8,LE,PREPCTL.DB2)
//SYSIN DD DSN=&CNTL,DISP=(OLD,DELETE)
//SYSREC00 DD DSN=BPP2.R010100.CIB2UNT.DB.CBAB.V101.DATA,DISP=SHR
//SYSREC01 DD DSN=BPP2.R010100.CIB2UNT.DB.CBAC.V101.DATA,DISP=SHR
//SYSREC02 DD DSN=BPP2.R010100.CIB2UNT.DB.CCRD.V101.DATA,DISP=SHR
//SYSREC03 DD DSN=BPP2.R010100.CIB2UNT.DB.CCRS.V101.DATA,DISP=SHR
//SYSREC04 DD DSN=BPP2.R010100.CIB2UNT.DB.CDAG.V101.DATA,DISP=SHR
//SYSREC05 DD DSN=BPP2.R010100.CIB2UNT.DB.CGAR.V101.DATA,DISP=SHR
//SYSREC06 DD DSN=BPP2.R010100.CIB2UNT.DB.CLOC.V101.DATA,DISP=SHR
//SYSREC07 DD DSN=BPP2.R010100.CIB2UNT.DB.CPBD.V101.DATA,DISP=SHR
//SYSREC08 DD DSN=BPP2.R010100.CIB2UNT.DB.CRAR.V101.DATA,DISP=SHR
//SYSREC09 DD DSN=BPP2.R010100.CIB2UNT.DB.CUST.V101.DATA,DISP=SHR
//SYSREC10 DD DSN=BPP2.R010100.CIB2UNT.DB.RCSF.V101.DATA,DISP=SHR
//SYSREC11 DD DSN=BPP2.R010100.CIB2UNT.DB.RFLP.V101.DATA,DISP=SHR
//SYSREC12 DD DSN=BPP2.R010100.CIB2UNT.DB.RFOP.V101.DATA,DISP=SHR
//SYSREC13 DD DSN=BPP2.R010100.CIB2UNT.DB.RMAG.V101.DATA,DISP=SHR
//***** RECORD SUCCESS ******************************
//SUCCESS EXEC ISPF,
// COND=((8,LE,PREPCTL.DB2),(8,LE,LOADTBLS.LD))
//SYSTSIN DD *
ISPSTART CMD(%VC5500X1 DL BPP2 010100 DB2TBL)
//LOCKINFO DD *
CBAB CIB2UNT 101
CBAC CIB2UNT 101
CCRD CIB2UNT 101
CCRS CIB2UNT 101
CDAG CIB2UNT 101
CGAR CIB2UNT 101
CLOC CIB2UNT 101
CPBD CIB2UNT 101
CRAR CIB2UNT 101
CUST CIB2UNT 101
RCSF CIB2UNT 101
RFLP CIB2UNT 101
RFOP CIB2UNT 101
RMAG CIB2UNT 101
//***** RECORD FAILURE ******************************
//FAILURE EXEC ISPF,COND=((8,GT,LOADTBLS.LD),EVEN)
//SYSTSIN DD *
DSN SYSTEM(DB2Q)
-TERM UTILITY (XPTTJ37L.TABLES)
END
SEND 'TABLE CIB2UNT.CRAR_MAG_TAPE BATCH LOAD FROM CIB2UNT FAILED'+
USER(XPTTJ37) LOGON
ISPSTART CMD(%VC5500X1 AD BPP2 010100 DB2TBL)
//LOCKINFO DD *
CBAB CIB2UNT 101
CBAC CIB2UNT 101
CCRD CIB2UNT 101
CCRS CIB2UNT 101
CDAG CIB2UNT 101
CGAR CIB2UNT 101
CLOC CIB2UNT 101
CPBD CIB2UNT 101
CRAR CIB2UNT 101
CUST CIB2UNT 101
RCSF CIB2UNT 101
RFLP CIB2UNT 101
RFOP CIB2UNT 101
RMAG CIB2UNT 101
/*
ALLOCATE:
//XPTTJ37A JOB (PN6X,PP),'RAMESH',MSGCLASS=C,CLASS=I,
// NOTIFY=XPTTJ37,MSGLEVEL=(1,1),TIME=(,30),REGION=2000K
/*ROUTE PRINT IOF
//ALLOCATE EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//NEWDSN DD DSN=XPTTJ37.TEST.CDR,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(5,10)),
// DCB=(DSORG=PS,LRECL=32760,BLKSIZE=32760,RECFM=FB),
// UNIT=TEST80
//XPTTJ37S JOB (PN8C,XX),CLASS=U,TIME=(10,0),
// MSGCLASS=A,NOTIFY=XPTTJ37
//********************************************************************
//* BE CAREFUL WITH THIS STUFF - IT'S DANGEROUS. *
//* DON'T SORT ANY SOURCE CODE DATASETS!!! *
//********************************************************************
//* THIS JCL PERFORMS SORTS ON THE DATASET SPECIFIED IN SORTIN. *
//* THE RESULT IS PLACED IN SORTOUT. NOTE THE SYSIN CARD: THE *
//* FIRST PARM IS THE STARTING SORT COLUMN, THE SECOND IS THE *
//* ENDING SORT COLUMN, THE THIRD IS THE DATA TYPE, THE FOURTH IS *
//* ASCENDING OR DESCENDING. YOU MAY SPECIFY MULTIPLE STRINGS OF *
//* PARM INFO. YOU MUST DO SO IF YOU HAVE SEVERAL DIFFERENT DATA *
//* TYPES IN THE SAME FILE (ASSUMING YOU WANT TO SORT ON THOSE *
//* COLUMNS). THE DATA TYPES ARE LISTED BELOW: *
//* CH=CHARACTER ZD=ZONED DECIMAL PD=PACKED DECIMAL BI=BINARY *
//* FI=FIXED POINT FL=FLOATING POINT AC=ASCII AQ=EBCDIC *
//* IF YOU HAVE NUMERIC CHARACTERS WITH LEADING OR TRAILING SIGNS, *
//* SEE PAGE 223 OF BROWN'S BLUE JCL BOOK (OR ASK MIKE MCTAGGART). *
//********************************************************************
/*ROUTE PRINT IOF
//SORT01 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SORTIN DD DSN=XPTTJ37.SORTEMP1.CNTL,DISP=OLD
//SORTOUT DD DSN=XPTTJ37.SORTEMP1.CNTL,DISP=OLD
//SYSIN DD *
OMIT COND=(1,1,CH,EQ,C'A')
SORT FIELDS=(1,80,CH,A)
/*
IEBGENER:
//XPTTJ37P JOB (PN8C,XX),'RAMESH',MSGCLASS=S,CLASS=H,
// NOTIFY=XPTTJ37,MSGLEVEL=(1,1),TIME=(,30),REGION=(4000K)
//*OUTE PRINT IOF
/*ROUTE PRINT SR.X4W405
/*JOBPARM $=XPTTJ37,LINES=250
//*
//GENR PROC
//STEP1 EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DSN=&NAME,DISP=SHR
//SYSUT2 DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
// PEND
//*
//STEP01 EXEC GENR,NAME='XPTTY46.BACKUP.COPYLIB(A4240510)'
IEHLIST:
/XPTTJ37B JOB (PNKC,XX),'T.V.Ramesh',MSGCLASS=S,CLASS=I,
// NOTIFY=XPTTJ37,MSGLEVEL=(1,1),TIME=(,30),REGION=(4000K)
/*ROUTE PRINT IOF
/*JOBPARM $=XPTTJ37,LINES=250
//*
//STEP01 EXEC PGM=IEHLIST
//SYSPRINT DD DSN=XPTTJ37.LC800.BINDCARD,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(5,5),RLSE),
// UNIT=3380
//*SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DD1 DD UNIT=SYSDA,VOL=SER=TEST20,DISP=SHR
//SYSIN DD *
LISTPDS DSNAME=PN6X.R010100.TEST.LC800.BINDCARD,VOL=3380=TEST20,DUMP
/*
BATCH QMF:
//QMFBATCH PROC
//******************************************************************
//* PROC BEGINS HERE *
//******************************************************************
//QMF EXEC PGM=IKJEFT01,
// DYNAMNBR=30,TIME=15
//******************************************************************
//* PROGRAM LOAD LIBRARIES *
//******************************************************************
//STEPLIB DD DISP=SHR,DSN=SYS9.QMFP.DSQLOAD *** QMF
// DD DISP=SHR,DSN=SYS1.GDDMLOAD *** GDDM
// DD DISP=SHR,DSN=SYS9.DB2P.DSNLOAD *** DB2
//******************************************************************
//* DATASETS USED BY TSO *
//******************************************************************
//SYSUADS DD DISP=SHR,DSN=SYS1.UADS
//SYSEXEC DD DISP=SHR,DSN=SYS9.QMFP.DSQEXECE
//SYSPROC DD DISP=SHR,DSN=SYS9.DB2P.DSNCLIST
// DD DISP=SHR,DSN=SYS9.QMFP.DSQCLSTE
// DD DISP=SHR,DSN=SYS1.CMDPROC
//SYSLBC DD DISP=SHR,DSN=SYS1.BRODCAST
//******************************************************************
//* DATASETS USED BY ISPF *
//******************************************************************
//ISPPLIB DD DISP=SHR,DSN=SYS4.PP.ISPPLIB
// DD DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPPLIB
// DD DISP=SHR,DSN=SYS9.QMFP.DSQPLIBE
//ISPMLIB DD DISP=SHR,DSN=SYS4.PP.ISPMLIB
// DD DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPMLIB
// DD DISP=SHR,DSN=SYS9.QMFP.DSQMLIBE
//ISPSLIB DD DISP=SHR,DSN=SYS4.PP.ISPSLIB
// DD DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPSLIB
// DD DISP=SHR,DSN=SYS9.QMFP.DSQSLIBE
//ISPTLIB DD DISP=SHR,DSN=SYS4.PP.ISPTLIB
// DD DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPTLIB
//ISPPROF DD UNIT=SYSDA,SPACE=(TRK,(9,1,4)),
// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//SYSUDUMP DD SYSOUT=*
//******************************************************************
//* QMF/GDDM MAPS *
//******************************************************************
//ADMGGMAP DD DISP=SHR,DSN=SYS9.QMFP.DSQMAPE
//******************************************************************
//* DATASETS USED BY QMF *
//******************************************************************
//DSQPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//DSQDEBUG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=1210)
//DSQUDUMP DD SYSOUT=*,DCB=(RECFM=VBA,LRECL=125,BLKSIZE=1632)
//DSQSPILL DD DSN=&&SPILL,DISP=(NEW,DELETE),
// UNIT=TEST80,SPACE=(CYL,(1,1),RLSE),
// DCB=(RECFM=F,LRECL=4096,BLKSIZE=4096)
//SYSTSPRT DD SYSOUT=*
BATCH SAS:
//SASV6 PROC ENTRY=SASXA1,
// PRODFIX='SYS4.SAS.PROD.V6',
// CONFIG=NULLFILE,
// OPTIONS=,
// WORK='200,100'
//*********************************************************************
//* PRODUCT: MVS SAS RELEASE 6.06 ***
//* DOCUMENTATION: SAS COMPANION FOR THE MVS ENVIRONMENT, V6 ***
//* FROM: SAS INSTITUTE INC., BOX 8000, CARY, NC 27512-8000 ***
//*********************************************************************
//S01SAS EXEC PGM=&ENTRY,PARM='&OPTIONS',REGION=4096K
//STEPLIB DD DISP=SHR,DSN=&PRODFIX..LIBRARY
// DD DISP=SHR,DSN=SYS9.DB2P.DSNLOAD
//CONFIG DD DISP=SHR,DSN=&PRODFIX..CONFIG(BATCHXA)
// DD DISP=SHR,DSN=&CONFIG
//SASAUTOS DD DISP=SHR,DSN=&PRODFIX..AUTOLIB
//SASHELP DD DISP=SHR,DSN=&PRODFIX..SASHELP
//SASMSG DD DISP=SHR,DSN=&PRODFIX..SASMSG
//LIBRARY DD DISP=SHR,DSN=XPTTI87.SAS.FORMATS
//WORK DD UNIT=SYSDA,SPACE=(CYL,(&WORK),,,ROUND),
// DCB=(RECFM=FS,DSORG=PS,LRECL=6144,BLKSIZE=6144)
//SASLOG DD SYSOUT=*
//SASLIST DD SYSOUT=*
//SASPARM DD UNIT=SYSDA,SPACE=(400,(100,300)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400,BUFNO=1)
//SYSUDUMP DD SYSOUT=*
//** ADD A LINE LIKE THE FOLLOWING TO CREATE A MACHINE-READABLE DUMP
//*SYSMDUMP DD DSN=DUMP,UNIT=SYSDA,DISP=(NEW,CATLG),SPACE=(TRK,(20,5))
COBOL/DB2 COMPILE:
//XPTTJ37C JOB (PNKC,XX),'DMM ',MSGCLASS=S,CLASS=U,
//* RESTART=BIND,
// NOTIFY=XPTTJ37,MSGLEVEL=(1,1),TIME=(,30),REGION=(4000K)
//*********************************************************************
//** JCL TO COMPILE COBOL/2 WITH DB2 **
//*********************************************************************
//** CHANGE 'IMPACT' TO PROGRAM NAME **
//*********************************************************************
/*ROUTE PRINT IOF
/*JOBPARM $=RAMESH,LINES=25
//*
//PROCLIB DD DSN=PN6X.DEVLDE.PROCLIB,DISP=SHR
//*
//STPCDB2 EXEC BPCDB2,
//* COND.PC=(4,LT,STPXPND.XPND),
// DESTDD='DSN=&&DSNHOUT,DISP=(NEW,PASS)',
// SRCTXT='XPTTJ37.TEST.SRCLIB(IMPACT)',SRCDISP='SHR',
// DBRMDD='DSN=XPTTJ37.DMM.DBRMLIB(IMPACT),DISP=(OLD)'
//SYSLIB DD DUMMY
//SYSCIN DD DSN=&&DSNHOUT,DISP=(NEW,PASS),
// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB),
// SPACE=(TRK,(5,5),RLSE),
// UNIT=DYNASORT
//*
//* END OF SKEL FRAG BPCDB2
//*
//*
//* BEGIN OF SKEL FRAG BPCOB2X
//*
//STPCOB2 EXEC BPCOB2,
// COND.COB2=((4,LT,STPCDB2.PC)),
// OPT=NOOPT,
// SSR=NOSSR,
// FDU=NOFDU,
// NOC='NOC(E)',
//*** APQT=APOST,
// SRCTXT='&&DSNHOUT',
// SRCDISP='(OLD,PASS)'
//SYSLIB DD DISP=SHR,DSN=PN6X.TESTCE.COPYLIB
// DD DISP=SHR,DSN=PN6X.CHNTCE.COPYLIB
// DD DISP=SHR,DSN=PN6X.TESTCE.COPYSRC
// DD DISP=SHR,DSN=PN6X.CHNTCE.COPYSRC
//*
//* END OF SKEL FRAG BPCOB2X
//*
//*
//* BEGIN OF SKEL FRAG BPLINK
//*
//STPLINK EXEC BPLINK,
// COND.LKED=((4,LT,STPCDB2.PC),
// (4,LT,STPCOB2.COB2)),
// CALL=CALL,
// RUID=RENT,
// AMODE=31,
// RMODE=ANY,
// LDLIB='XPTTJ37.TEST.LOADLIB',
// MDL=IMPACT
//SYSLIB DD DISP=SHR,DSN=SYS3.COB2.TEST.COB2LIB
// DD DISP=SHR,DSN=SYS7.DB2Q.DSNLOAD
//LKED.OBJMOD DD DISP=(OLD,PASS),DSN=&&LOADSET
//LKED.SYSLIN DD *
ENTRY IMPACT
INCLUDE OBJMOD
NAME IMPACT(R)
//*
//BIND EXEC PGM=IKJEFT01,COND=(4,LT)
//STEPLIB DD DSN=SYS7.DB2Q.DSNLOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2Q)
BIND PLAN(IMPACT) OWNER(XPTTJ37) MEMBER(IMPACT) +
LIBRARY('XPTTJ37.DMM.DBRMLIB') ACTION(REPLACE ) RETAIN +
VALIDATE(BIND) ISOLATION(CS) FLAG(I) ACQUIRE(USE) +
RELEASE(COMMIT) EXPLAIN(NO)
END
/*
//
IDCAMS:
//S0000R81 JOB (PNKC,PP),CASEY,CLASS=I,MSGCLASS=C,
// TIME=(,30),NOTIFY=XPTTR81
/*ROUTE PRINT IOF
/*JOBPARM COPIES=1,$=FRED
//STEP1 EXEC PGM=IDCAMS
//*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
/*****************************************************************/
/* DEFINE DECODE/ENCODE TABLE WITH 48 BYTE KEY AND */
/* 80 BYTE DATA AREA 7/17-USED FOR LC500 TEST/WORK */
/* OF R010200 AND R010300 */
/* O/L RECORDSIZE = 153 153, BATCH RECORDSIZE = 128,128 */
/* O/L KEY = 13 0 BATCH KEY = 48 0 */
/*****************************************************************/
/* */
DELETE -
(PN6X.R010200.TEST.LC500.CDVSAM.B.KSDS) -
PURGE
DEFINE -
CLUSTER -
(NAME(PN6X.R010200.TEST.LC500.CDVSAM.B.KSDS) -
RECORDS(1000 500) -
RECORDSIZE(128 128) -
VOLUME(TEST74) -
KEYS(48 0) -
FREESPACE(30 30) -
SHAREOPTIONS(2 3) -
SPEED -
NONSPANNED -
INDEXED) -
INDEX -
(NAME(PN6X.R010200.TEST.LC500.CDVSAM.B.INDX)) -
DATA -
(NAME(PN6X.R010200.TEST.LC500.CDVSAM.B.DATA))
XPEDITOR:
//XPXXXXXA JOB (PNKC,XX),'XXXXXXXX',MSGCLASS=C,CLASS=H,
// NOTIFY=XPXXXXX,MSGLEVEL=(1,1),TIME=(,30),REGION=5120K
/*ROUTE PRINT IOF
/*JOBPARM $=XXX,LINES=250
//*********************************************************************
//* PROC VPR0500H
//* XPEDITER COMPILE XPEDITER RELEASE 3.0 ~~~~~~~~~~~~~~~
//* ~~~~~~~~~~~~~~ VS COBOL II - RELEASE 2.0 ~~~~~~~~~~~~
//*********************************************************************
//VPR0500H PROC XSYM=, XPEDITER SYMBOLIC DATA SET
// OPT=NOOPT, DEFAULT NOOPTIMIZE
// LIST=NOLIST, DEFAULT NOLIST - LIST REQD FOR OPTIMIZE
// SSR=NOSSR, DEFAULT NO SSRANGE TEST
// FDU=NOFDU, DEFAULT NO FDUMP
// CALLS=NODYNAM, DEFAULT STATIC CALLS ALLOWED
// NOC='NOC(E)', NO OBJECT W E LEVEL ERROR DEFAULT
// SRCTXT=, SOURCE TEXT DSN
// SRCDISP=SHR, SOURCE TEXT DATASET DISP
// SOUT='*', SYSOUT CLASS
// SYSODU='*', DUMP SYSOUT CLASS
// LC=72, LISTING LINECOUNT
// WUNT=TEMP80, UNIT FOR WORK DATA SETS
// COB2CLB='SYS3.COB2.PROD.COB2COMP', COBOL2 COMPILER LIBRARY
// XPDTLB='SYS2.XPEDITER.PROD.LOADLIB' XPEDITER LOAD LIB
//*********************************************************************
//COB2 EXEC PGM=ADSRA327,REGION=2000K,
// PARM=('NOVBREF,&NOC,&OPT',
// '&LIST,&SSR,&FDU,&CALLS,LINECOUNT(&LC)')
//*********************************************************************
//*
//* THIS STEP PERFORMS AN XPEDITER VS COBOL II COMPILE
//*
//*********************************************************************
//STEPLIB DD DSNAME=&XPDTLB,DISP=SHR
// DD DSNAME=&COB2CLB,DISP=SHR
//SYSLIB DD DUMMY *** WILL BE OVERRIDDEN BY LIB CONCAT ***
//MSGPRINT DD SYSOUT=&SOUT
//SYSIN DD DSN=&SRCTXT,DISP=&SRCDISP
//SYSLIN DD DSN=&&LOADSET,
// DISP=(MOD,PASS),
// UNIT=&WUNT,
// SPACE=(CYL,(1,1))
//*
//SYSPRINT DD SYSOUT=&SOUT
//SYSUT1 DD UNIT=&WUNT,SPACE=(CYL,(5,1))
//SYSUT2 DD UNIT=&WUNT,SPACE=(CYL,(5,1))
//SYSUT3 DD UNIT=&WUNT,SPACE=(CYL,(5,1))
//SYSUT4 DD UNIT=&WUNT,SPACE=(CYL,(5,1))
//SYSUT5 DD UNIT=&WUNT,SPACE=(CYL,(5,1))
//SYSUDUMP DD SYSOUT=&SYSODU
//XCOMPILE DD DSN=&XSYM,DISP=SHR
//XSOURCE DD UNIT=&WUNT,
// DISP=(MOD,PASS),
// SPACE=(CYL,(2,1)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408)
//XTABLE DD UNIT=&WUNT,SPACE=(460,(700,100))
//XUTILITY DD UNIT=&WUNT,
// DISP=(MOD,PASS),
// SPACE=(CYL,(20,10)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408)
//XMSG DD DSN=SYS3V.XPEDITER.PROD.XMESSAGE,DISP=SHR
//XOPTIONS DD DSN=SYS3V.XPEDITER.PROD.XOPTIONS,DISP=SHR
//*
//*--------------- END OF PROC VPR0500H -------------------------------
//VSR0500H PEND
//PROCLIB DD DSN=PN6X.DEVLDE.PROCLIB,DISP=SHR
// DD DSN=CEXX.R010100.TEST.LC500.PROCLIB,DISP=SHR
//*
//STPCDB2 EXEC BPCDB2,
// SRCTXT='PN6X.DEVLDE.COBSRCE(VCB7310A)',
// DBRMDD='DISP=SHR,DSN=XPTTI56.DLG.DBRMLIB(VCB7310A)',
// DESTDD='DISP=SHR,DSN=XPTTI56.DLG.COBSRCE(PARSPREP)'
//SYSLIB DD DISP=SHR,DSN=PN6X.R010100.TEST.LC800.SQLINCL
// DD DISP=SHR,DSN=PN6X.R010100.TEST.LC900.SQLINCL
//*
//* BEGIN OF SKEL FRAG VS0500D
//*
//STPXPND EXEC VPR0500D,
// XPPARM='BAT,DYN',
// SRCTXT='XPTTI56.DLG.COBSRCE(PARSPREP)'
//SYSUT1 DD DISP=SHR,DSN=PN6X.R010100.TEST.LC800.COPYLIB
// DD DISP=SHR,DSN=PN6X.R010100.TEST.LC900.COPYLIB
//*
//* END OF SKEL FRAG VS0500D
//*
//*
//* BEGIN OF SKEL FRAG VS0500E
//*
//STPCCSL EXEC VPR0500E,
// COND.CSL=(4,LT,STPXPND.XPND),
// CSLPARM='COBOL2',
// SRCTXT='&&XOUT',SRCDISP='(OLD,PASS)'
//*CSL.LOGOUT DD DISP=(NEW,DELETE),UNIT=TEST80,DSN=&&CSLLOG,
//* SPACE=(TRK,(3,2)),DCB=BLKSIZE=8000
//*
//* END OF SKEL FRAG VS0500E
//*
//*
//* BEGIN OF SKEL FRAG VS0500H
//*
//STPCOB2 EXEC VPR0500H,
// COND.COB2=((4,LT,STPXPND.XPND),
// (4,LT,STPCCSL.CSL)),
// OPT=NOOPT,
// LIST='LIST,NOOFF,MAP',
// SSR=NOSSR,
// FDU=NOFDU,
// CALLS=NODYNAM,
// NOC='NOC(E)',
// XSYM='XPTTI56.DLG.XSYMBOL(VCB7310A)',
// SRCTXT='&&CSLOUT',
// SRCDISP='(OLD,PASS)'
//SYSLIB DD DISP=SHR,DSN=PN6X.R010100.TEST.LC800.COPYLIB
// DD DISP=SHR,DSN=PN6X.R010100.TEST.LC900.COPYLIB
//*
//* END OF SKEL FRAG VS0500H
//*
//COB2.SYSPRINT DD DSN=&COMPLIST,DISP=(MOD,PASS),
// UNIT=DYNASORT,SPACE=(CYL,(4,2),RLSE),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//*
//* BEGIN OF SKEL FRAG VS0500C
//*
//STPLNKBT EXEC VPR0500C,
// COND.LKED=((4,LT,STPXPND.XPND),
// (4,LT,STPCCSL.CSL),
// (4,LT,STPCOB2.COB2)),
// CALL=CALL,
// RUID=RENT,
// AMODE=31,
// RMODE=ANY,
// LDLIB='XPTTI56.DLG.LOADLIBB',
// MDL=VCB7310A
//SYSLIB DD DISP=SHR,DSN=SYS3.COB2.PROD.COB2LIB
// DD DISP=SHR,DSN=SYS6.TEST.LOADLIB
// DD DISP=SHR,DSN=SYS7.DB2Q.DSNLOAD
// DD DISP=SHR,DSN=CEXX.R010100.TEST.LC700.LINKLIBB
// DD DISP=SHR,DSN=PN6X.R010100.TEST.LC800.LINKLIBB
// DD DISP=SHR,DSN=PN6X.R010100.TEST.LC900.LINKLIBB
//LKED.OBJMOD DD DISP=(OLD,PASS),DSN=&&LOADSET
//*REPLACE DSNHLI(BCE152BT)
//LKED.SYSLIN DD *
SETSSI 02131342
ENTRY VCB7310A
INCLUDE OBJMOD
NAME VCB7310A(R)
//* END OF SKEL FRAG VS0500C
//*
//* BEGIN OF SKEL FRAG VS0500K
//*
//STPDCD3 EXEC VPR0500K,
// CDATADV=NO,
// CPROCDV=NO,
// OTHER=
//COPYLIB DD DISP=SHR,DSN=PN6X.R010100.TEST.LC800.COPYLIB
// DD DISP=SHR,DSN=PN6X.R010100.TEST.LC900.COPYLIB
//*
//* END OF SKEL FRAG VS0500K
//*
//FAILMSG EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,GE,STPLNKBT.LKED)
//*********************************************************************
//** SEND FAILURE MESSAGE TO USER
//*********************************************************************
//STEPLIB DD DSN=SYS7.DB2Q.DSNLOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
SEND '=== JOB SCBUTI56 FAILED FOR MODULE VCB7310A' USER(XPTTI56) NOW
/*
BATCh SAS:
//TVRDMG6 JOB ,'C.FORD3',CLASS=I,MSGCLASS=X
//**********************************************************************
//* DAMG6
//*
//* ****** CONTAINS ONLY STEP2 CUZ IT HAD FAILED IN EARLIER
//* ****** SUBMISSION. SO NEEDED TO RESUBMIT. REPLACED ORIGINAL STEP1
//* ***** NEW STEP1 CONTAINS IEFBR14 TO DELETE DATASET CREATED
//* ***** BY ORIGINAL STEP2
//*
//* THIS PROGRAM CREATES THE TRANSITION CONTROL FILE WHICH IS USED TO
//* GENERATE THE ONLINE DAMAGEABILITY VERSION CONTROL TAPE.
//**** **** I/O SPECS **** ****
//* IO1 : RANDOM SAMPLE FILEKEYS
//* INP1 : MASTER CONTROL
//* OUTP1 : TRANSITION CONTROL FILE.
//*---------------------------------------------------------------------
//* THERE ARE TWO JOBS IN THIS PROGRAM !!
//* FOR JOB: STEP1
//* CHANGE: JCL:IO1, LINE 50: CHANGE CLIENT NAME, YEAR
//* JCL:INP1, LINE 51-62: CHANGE YEAR
//* JCL: OUTP1, LINE 64: CHANGE YEAR
//* FOR JOB: STEP2
//* CHANGE: JCL:IO1, LINE 132: CHANGE CLIENT NAME, YEAR
//* JCL:INP1, LINE 133-144 : CHANGE YEAR
//* JCL: OUTP1, LINE 146 : CHANGE YEAR
//**********************************************************************
//*
//**********************************************************************
//* CREATES THE TRANSITION MANUAL FILE WHICH IS USED TO
//* GENERATE THE DOWNLOAD MANUAL FILE.
//************************* I/0 **********************************
//* IO1 : RANDOM SAMPLE FILEKEYS
//* INP1 : MASTER MANUAL ENTRY FILES
//* OUTP1 : FORD TRANSITION MANUAL FILE.
//**********************************************************************
//*
//STEP1 EXEC PGM=IEFBR14
//IN1 DD DSN=TEST.DAMGP.YR97.MAN.TEMP,DISP=(OLD,DELETE)
//SYSIN DD * CONTROL CARDS
//*
//STEP2 EXEC PGM=SASXA1,PARM='SORT=4',REGION=4096K
//NULLPDS DD DISP=(MOD,PASS),DSN=&&NULLPDS,UNIT=SYSDA,
// SPACE=(TRK,(1,1,1)),DCB=BLKSIZE=6160
//STEPLIB DD DISP=(SHR,PASS),DSN=*.NULLPDS,VOL=REF=*.NULLPDS
// DD DSN=SASI.INSTALL.SAS.V608.LIBRARY,DISP=SHR
//* DD DISP=(SHR,PASS),DSN=*.LIBRARY,VOL=REF=*.LIBRARY
//CONFIG DD DSN=SASI.INSTALL.SAS.V608.INSTALL(BATCHXA),DISP=SHR
// DD DSN=NULLFILE,DISP=SHR
//SASAUTOS DD DSN=*.NULLPDS,VOL=REF=*.NULLPDS,DISP=(SHR,PASS)
// DD DSN=SASI.INSTALL.SAS.V608.AUTOLIB,DISP=SHR
//SASHELP DD DSN=SASI.INSTALL.SAS.V608.SASHELP,DISP=SHR
//SASMSG DD DSN=SASI.INSTALL.SAS.V608.SASMSG,DISP=SHR
//SASLOG DD SYSOUT=*
//SASLIST DD SYSOUT=*
//SASPARM DD UNIT=SYSDA,SPACE=(400,(100,300)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400,BUFNO=1)
//*
//* CHANGE WORK SPACE FOR THIS JOB
//*
//WORK DD DSN=&&SUREWRK,DISP=(,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(800,500),,,ROUND),
// DCB=(RECFM=FS,LRECL=6144,BLKSIZE=6144,DSORG=PS)
//*
//* CAN DEFINE UP TO 6 SORK WORK AREAS
//*
//SORTWK01 DD SPACE=(TRK,(600,500)),UNIT=SYSDA
//SORTWK02 DD SPACE=(TRK,(600,500)),UNIT=SYSDA
//*
//IO1 DD DSN=TEST.STRA.DAMG4.FORD.SELECT.DB1998,DISP=SHR
//INP1 DD DSN=TEST.DAMGP.C.MASTER.MAN.JAN97,DISP=SHR
// DD DSN=TEST.DAMGP.C.MASTER.MAN.FEB97,UNIT=AFF=INP1,DISP=SHR
// DD DSN=TEST.DAMGP.C.MASTER.MAN.MAR97,UNIT=AFF=INP1,DISP=SHR
// DD DSN=TEST.DAMGP.C.MASTER.MAN.APR97,UNIT=AFF=INP1,DISP=SHR
// DD DSN=TEST.DAMGP.C.MASTER.MAN.MAY97,UNIT=AFF=INP1,DISP=SHR
// DD DSN=TEST.DAMGP.C.MASTER.MAN.JUN97,UNIT=AFF=INP1,DISP=SHR
// DD DSN=TEST.DAMGP.C.MASTER.MAN.JUL97,UNIT=AFF=INP1,DISP=SHR
// DD DSN=TEST.DAMGP.C.MASTER.MAN.AUG97,UNIT=AFF=INP1,DISP=SHR
// DD DSN=TEST.DAMGP.C.MASTER.MAN.SEP97,UNIT=AFF=INP1,DISP=SHR
// DD DSN=TEST.DAMGP.C.MASTER.MAN.OCT97,UNIT=AFF=INP1,DISP=SHR
// DD DSN=TEST.DAMGP.C.MASTER.MAN.NOV97,UNIT=AFF=INP1,DISP=SHR
// DD DSN=TEST.DAMGP.C.MASTER.MAN.DEC97,UNIT=AFF=INP1,DISP=SHR
//*
//OUTP1 DD DSN=TEST.DAMGP.YR97.MAN.TEMP,UNIT=TAPE,
// DISP=(,CATLG,DELETE),LABEL=(1,SL,RETPD=7)
//*
//SYSIN DD * CONTROL CARDS
OPTIONS ERRORS=1 MPRINT DQUOTE MISSING = ' ' ;
***************************************************** ;
********* OUTPUT CONTROL FILE USING NEW KEYS DATASET ;
***************************************************** ;
DATA _NULL_ ;
INFILE IO1 ;
INPUT @1 HKEY $7. ;
MANL: INFILE INP1 ;
INPUT @1 MKEY $7. ;
MAIN:
IF HKEY > MKEY THEN GO TO MANL ;
IF HKEY = MKEY THEN DO ;
FILE OUTP1 DCB=INP1 ;
INFILE INP1 ;
PUT _INFILE_ ;
GO TO MANL ;
END ;
IF HKEY < MKEY THEN DO ;
INFILE IO1 ;
INPUT @1 HKEY $7. ;
GO TO MAIN ;
END ;
//*
//
//