45 lines
1.6 KiB
Plaintext
45 lines
1.6 KiB
Plaintext
//DTSTPCHG JOB (UI,4300,3400,T),TPS.CHARGING,
|
|
// CLASS=A,MSGCLASS=X,
|
|
//**** TYPRUN=SCAN,
|
|
// NOTIFY=ECNTSUP
|
|
//**
|
|
// SET LVLNODE='PROD'
|
|
// SET QTRLY='QTR243'
|
|
// SET LDEST='LOCAL'
|
|
//**
|
|
//*** ALL EMPLOYERS ARE INCLUDED FOR CHARGING TPS REPORTS
|
|
//**
|
|
//** 1ST QUARTER CHARGES MUST BE COMPLETED BEFORE RUNNING THIS JOB
|
|
//** NORMALLY RUNS FIRST WEEK IN MAY ZL1
|
|
//************************************************************
|
|
// SET TPSFILE1='DOESTAX.PROD.TPSCHG'
|
|
// SET PRINTER1='DOESTAX.PROD.CHARGE.QTR243'
|
|
// SET CHECK1='DOESTAX.PROD.CHRG.QTR243'
|
|
//**
|
|
//*----------------------------------------------------------------+
|
|
//* JOB: TPS RUN FROM CHGTPS - REPORT QUARTERLY CHARGES
|
|
//* (CHGTPS IS PRODUCED BY DTSCHGRT)
|
|
//* THE PRINTER IS NOW CREATED ON DASD. SEE SET STATEMENT
|
|
//* FOR THE DATASETNAME. DOWNLOAD THE FILE FOR INPUT TO A SPREAD SHEET
|
|
//* GEORGE BROWN 4/15/2004
|
|
//*
|
|
//*
|
|
//**---------------------------------------------------------------+
|
|
//* DEFINITION FOR PARMIN:
|
|
//* COLS 1-3 RANDOM NUMBER
|
|
//* 5-8 NUMBER TO BE SAMPLED
|
|
//* - 4 DIGITS RIGHT JUSTIFIED
|
|
//* - ENTER LEADING ZEROES IF NEEDED
|
|
//* 10-11 SAMPLE TYPE
|
|
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA)
|
|
//* 13-17 YYYYQ
|
|
//**---------------------------------------------------------------+
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//**
|
|
//STEP0100 EXEC DTSTPCHG
|
|
//STEP0100.PARMIN DD *
|
|
862,0060,A1,20243
|
|
/*
|
|
//
|