46 lines
1.5 KiB
Plaintext
46 lines
1.5 KiB
Plaintext
//DTSRT720 JOB (UI,4300,3400,T),JHP.PROD.SAMPL720,
|
|
// CLASS=A,MSGCLASS=X,
|
|
//**** TYPRUN=SCAN,
|
|
//**** USER=#DOADTS,
|
|
// NOTIFY=&SYSUID
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**
|
|
// SET LVLNODE='PROD'
|
|
// SET TPSFILE1='DOESTAX.PROD.RPT720.QTR242' /RATED (1)
|
|
// SET TPSFILE2='DOESTAX.PROD.RPT721.QTR242' /SI DATA (2)
|
|
// SET PRINTER1='DOESTAX.PROD.DEBIT2.QTR242'
|
|
//* SET LDEST=U@PRT65
|
|
//****
|
|
//* JOB: TPS RUN FROM RPT720 - REPORT DEBITS/BILLINGS (RATED+SI)
|
|
//* (RPT720 & RPT721 ARE PRODUCED BY RUNRQ720)
|
|
//*
|
|
//* THE PRINTER FILE IS NOW CREATED ON DASD. SEE SET STATEMENT
|
|
//* FOR THE DATASET NAME. DOWNLOAD THE FILE FOR INPUT TO A SPREAD SHEET
|
|
//* 3RD NOD OF DATASET DEBITS1 = RATED
|
|
//* 3RD NOD OF DATASET DEBITS2 = REIMBURSING
|
|
//* GEORGE BROWN 4/15/2004
|
|
//*
|
|
//*
|
|
//****
|
|
//* DEFINITION FOR PARMIN:
|
|
//* COLS 1-1 TRANSACTION TYPE (1 OR 2)
|
|
//* - 1 = RATED (CONTRB), 2 = SELF-INS. (REIMB)
|
|
//* 3-5 RANDOM NUMBER
|
|
//* 7-10 NUMBER TO BE SAMPLED
|
|
//* - 4 DIGITS RIGHT JUSTIFIED
|
|
//* - ENTER LEADING ZEROES IF NEEDED
|
|
//* 12-13 SAMPLE TYPE
|
|
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA)
|
|
//* 15-19 YYYYQ
|
|
//*----------------------------------------------------------------+
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//**
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//**
|
|
//STEP0100 EXEC DTSTP720
|
|
//STEP0100.PARMIN DD *
|
|
2,876,0060,A1,20242
|
|
/*
|
|
//*TEP0500.PRINTER DD DISP=SHR
|
|
//**
|