//TBWM01A4 JOB (0306,TEST,1,20,0),'MCNULTY.B',
//         CLASS=K,NOTIFY=TBWM01A,LINES=99,
//         MSGCLASS=Q,REGION=1300K
//* ------------------------------------------------------------- *
//*
//ULJX06   EXEC  PGM=EZTPA00,REGION=2M
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSSNAP  DD  SYSOUT=*
//DSLJO01  DD  SYSOUT=*
//FILEB    DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK05 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK06 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK07 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//EZTR001  DD  UNIT=SYSDA,SPACE=(CYL,10)
//EZTVFM   DD  UNIT=SYSDA,SPACE=(CYL,10)
//******* 135 BYTE RECORD **************
//FILEA    DD  DSN=JFPACCNT.JRLJ.R05.TRANSL(0),                         00112
//             DISP=SHR
//SYSIN    DD  *
FILE FILEA
SOURCE     1    3    A
ITEM       4    5    A
DIV       16    2    A
STORE     18    4    A
CORP      22    3    A
POOL      25    3    A
STRATA    28    3    A
DEPT      31    2    A
COMM      33    3    A
SUB       36    3    A
DESC      43   27    A
PACK      74    5    N
SIZZE     79    7    A
COST      90    8    N 2
VENDOR   114    9    A
VENDNAME 123   20    A
FILE DSLJO01 PRINTER
JOB
*IF POOL = '001' AND STRATA = '001'
PRINT LIFO-REPORT1
*END-IF
REPORT LIFO-REPORT1 SUMMARY +
   SPACE 1 +
   PRINTER DSLJO01
SEQUENCE POOL STRATA STORE SOURCE
CONTROL  POOL STRATA STORE SOURCE
TITLE 1 'JEWEL LIFO REPORT '
TITLE 2 '==================='
LINE 1 POOL STRATA STORE SOURCE TALLY
/*
//*
