//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
/*
//