//TBWM01AX JOB (0371,PROD,,999),'71P000',CLASS=T,NOTIFY=TBWM01A,
//         MSGCLASS=Q,REGION=1300K
/*ROUTE    PRINT R364
/*JOBPARM  PROCLIB=PROCPROD
//*
//EZTPLUS  EXEC  PGM=EZTPA00,
//             COND=(0,NE),
//             REGION=2M
//*                                                                    *
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//DSLJO01  DD  SYSOUT=*
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,10)
//EZTR001  DD  UNIT=SYSDA,SPACE=(CYL,10)
//EZTVFM   DD  UNIT=SYSDA,SPACE=(CYL,10)
//FILEA    DD  DSN=SYSTSFI.SRQA.VPIHIST.TAPE.SORTED,
//             DISP=(OLD,KEEP,KEEP)
//SYSIN    DD  *
FILE FILEA
MRCHDEPT   1    3    A
STORE      4    4    A
VENDOR     8    6    A
VNDRNAME  14   25    A
NULL1     39    1    A
VNDRINV   40   16    A
RECEIPT   56    9    A
RECDATE   65   10    A
NULL2     75    1    A
DATEAPP   76   10    A
NULL3     86    1    A
GLEFDATE  87   10    A
NULL4     97    1    A
GLEFFMO   98    2    A
NULL5    100    1    A
INVSTAT  101    2    A
INVTYPE  103    1    A
REASONCD 104    2    A
ITEM     106    7    A
BITMNUM  113    5    P
NULL6    118    1    A
ITEMDEPT 119    3    A
ITEMDESC 122   30    A
PACK     152    3    P
ITEMSIZE 155    9    A
RETLAMT  164    5    P 4
RANDOMWT 169    5    P 2
RECQTY   174    6    P 4
CRQTY    180    6    P 4
LISTCOST 186    6    P 4
ITMALLOW 192    6    P 4
DEPAMT   198    6    P 4
DEPIND   204    1    A
ITMBLBAK 205    6    P 4
ACCTNUM  211    9    A
ACCTCODE 220    2    A
SBILLCST 222    5    P 2
SBILLRTL 227    5    P 2
FILE DSLJO01 PRINTER
JOB
PRINT HIST-REPORT
REPORT HIST-REPORT LIMIT 3000 +
   SPACE 1 +
   PRINTER DSLJO01
   TITLE 1 '  HERE IS THE REPORT.'
LINE 1 VENDOR   +
       STORE    +
       VNDRINV  +
       RECEIPT  +
       SBILLCST +
       SBILLRTL
/*
//*
