CA 7 Page

The following jcl and proc will be used for executing ca7 commands
in batch.


-------------------------------------------------------------
//CA7DUMMY JOB (00-803-$$$$$$,GHS),'CA-7 CENDANT',
// CLASS=A,MSGCLASS=X,NOTIFY=TMO0PF3
//*
//STEP1 EXEC CA7BTI
//UCC7CMDS DD DISP=SHR,DSN=CA7.HFS.COMMDS
//SYSIN DD *
DEMAND,JOB=PGL900DH,SCHID=1,SET=NTR,DEPJOB=PAP360DH,DOTM=2200
DEMAND,JOB=PGL830YH,SCHID=1,SET=NTR,DEPJOB=PGL900DH,DOTM=2400
DEMAND,JOB=PGL901DH,SCHID=1,SET=NTR,DEPJOB=PGL830YH,DOTM=0100
/*
--------------------------------------------------------------
//CA7BTCH JOB (03-801-000000,EKW),'EXCEPTION',
// CLASS=A,MSGCLASS=J,MSGLEVEL=(0,0)
//STEP1 EXEC CA7BTI
//**********************************************
//*THIS BTI TRACJS CRITICAL CORPFIN JOBS
//**********************************************
//ERRORS DD SYSOUT=*,DCB=BLKSIZE=133
//SYSPRINT DD DSN=ESLR.HFS513.BATCH,DISP=(,CATLG),
// UNIT=EXT3480,
// DCB=BLKSIZE=133
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
LRLOG,JOB=PAP100DI,DATE=*
LRLOG,JOB=PAP100DH,DATE=*
LRLOG,JOB=PAP100DS,DATE=*
LRLOG,JOB=PAP100DU,DATE=*
LRLOG,JOB=PAR120RC,DATE=*
LRLOG,JOB=PAR120RI,DATE=*
//GENER EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DSN=ESLR.HFS513.BATCH,DISP=SHR
//SYSUT2 DD DSN=ESLR.HFS.PERF.DATAZ,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSALLDA,
// VOL=SER=(SLR009,SLR008,SLR007),BUFNO=10,
// SPACE=(CYL,(1000,500),RLSE)
//* DCB=BLKSIZE=133
/*
------------------------------------------------------------
Batch Interface Procedure:
//*------------------------------------------------***
//* CA-7 BATCH TERMINAL INTERFACE (BTI) PROCEDURE ***
//*------------------------------------------------***
//CA7BTI PROC ID=0,POOL='1-8',DSNPFX=,OPT=,PG=SASSBSTR
//BTERM EXEC PGM=&PG,
// PARM='&ID,POOL=(&POOL),DSNPFX=&DSNPFX,&OPT'
//STEPLIB DD DISP=SHR,DSN=SYS3.CA7.CAILIB
//UCC7CMDS DD DISP=SHR,DSN=CA7.HFS.COMMDS
//ERRORS DD SYSOUT=*,DCB=BLKSIZE=133
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSUDUMP DD SYSOUT=*