CA JARS is executed using the basic capabilities of the z/OS operating system. The amount of temporary work area needed on DASD units varies depending upon the volume of accounting data to be processed and the type of DASD units used.
The JCL below illustrates a typical run deck setup.
//JARS JOB (1234,ABCD),'I.M. PROGRAMMER',MSGLEVEL=1,CLASS=D
// EXEC PGM=JSIMAIN,REGION=4096K
//STEPLIB DD DSN=CAI.JARS.CAJRLOAD,DISP=SHR
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//CAIJSNAP DD SYSOUT=*
//CAIJSSMF DD DSN=SMF.JAN94,UNIT=(TAPE,,DEFER),DISP=OLD,VOL=SER=001039
// DD DSN=CAI.JARS.SUSPEND(0),DISP=OLD
//CAIJSACT DD UNIT=SYSDA,SPACE=(TRK,(200,20)),DISP=(,DELETE)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20),,CONTIG)
//SORTWK02 DD UNIT=(SYSDA,,,SEP=(SORTWK01)),SPACE=(CYL,(20),,CONTIG)
//SORTWK03 DD UNIT=(SYSDA,,,SEP=(SORTWK01,SORTWK02)),
// SPACE=(CYL,(20),,CONTIG)
//CAIJSCT1 DD UNIT=SYSDA,SPACE=(TRK,(2,1))
//CAIJSCT2 DD UNIT=SYSDA,SPACE=(TRK,(2,1))
//CAIJSPRT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//CAIJSSPN DD DSN=CAI.JARS.SUSPEND(+1),DISP=(,CATLG)
// SPACE=(TRK,(30,15),RLSE),UNIT=SYSDA.
//
//CAIJSCIN DD *
REPORT CONTROL CARDS
/*
//
Note: Additional DD statements may be required depending upon processing options selected.
| Copyright © 2012 CA. All rights reserved. |
|