Sample JCL for TASCOSTR (Charge-Out Analysis report)
//JOBNAME JOB ..........
//********************************************************
//** EXECUTE THE TRANSACTION ACCOUNTANT *
//********************************************************
//STEP1 EXEC PGM=TASCOSTR,REGION=2048K,PARM='FULL,EXIT'
//STEPLIB DD DSN=IMF.LOAD,DISP=SHR
//RESUTIL DD DSN=IRUF.MONTHS,DISP=(OLD,DELETE)
//DETCOSTS DD DSN=IRUF.COST.MONTHS,DISP=(NEW,KEEP),
// UNIT=TAPE,SPACE=(CYL,(20,5)),
// DCB=(RECFM=VBS,LRECL=30970,BLKSIZE=30974)
//RATEREPT DD SYSOUT=A,DCB=BLKSIZE=133
//CHARGOUT DD SYSOUT=A,DCB=BLKSIZE=133
//DISTREPT DD SYSOUT=A,DCB=BLKSIZE=133
//LISTRREP DD SYSOUT=A,DCB=BLKSIZE=133
//RATEDIT DD *
STDRESC 002000 000000 000000 002000 000000
STDDBDR 010000 015000 010000 010000 010000
STDTERM 050000 001000 001000 001000
//LISTRCNT DD *
CR010102YDIVISION NAME
CR020303NDEPARTMENT CODE
CR030605NPROJECT/APPLICATION
//SYSUDUMP DD SYSOUT=A
//SYSOUT DD SYSOUT=*
//
//********************************************************
//** EXECUTE THE TRANSACTION ACCOUNTANT *
//********************************************************
//STEP1 EXEC PGM=TASCOSTR,REGION=2048K,PARM='FULL,EXIT'
//STEPLIB DD DSN=IMF.LOAD,DISP=SHR
//RESUTIL DD DSN=IRUF.MONTHS,DISP=(OLD,DELETE)
//DETCOSTS DD DSN=IRUF.COST.MONTHS,DISP=(NEW,KEEP),
// UNIT=TAPE,SPACE=(CYL,(20,5)),
// DCB=(RECFM=VBS,LRECL=30970,BLKSIZE=30974)
//RATEREPT DD SYSOUT=A,DCB=BLKSIZE=133
//CHARGOUT DD SYSOUT=A,DCB=BLKSIZE=133
//DISTREPT DD SYSOUT=A,DCB=BLKSIZE=133
//LISTRREP DD SYSOUT=A,DCB=BLKSIZE=133
//RATEDIT DD *
STDRESC 002000 000000 000000 002000 000000
STDDBDR 010000 015000 010000 010000 010000
STDTERM 050000 001000 001000 001000
//LISTRCNT DD *
CR010102YDIVISION NAME
CR020303NDEPARTMENT CODE
CR030605NPROJECT/APPLICATION
//SYSUDUMP DD SYSOUT=A
//SYSOUT DD SYSOUT=*
//
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*