//TBWM01AW JOB (0306,TEST,1,20,0),'MCNULTY.B',
//         CLASS=1,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=*
//DSLJO02  DD  SYSOUT=*
//DSLJO03  DD  SYSOUT=*
//DSLJO04  DD  SYSOUT=*
//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)
//*******
//FILEN    DD  DSN=SYSTCFI.DRLJ.R05.TRANSL(0),                          00112
//             DISP=SHR
//*FILEN    DD  DSN=SYSPCFI.DRLJ.R05.TRANSL.G0010V00,                   00112
//*             DISP=SHR
//SYSIN    DD  *
FILE FILEN
NSOURCE        1    3  A
NITEM          4   12  A
NDIV          16    2  A
NSTORE        18    4  A
NCORP         22    3  A
NPOOL         25    3  A
NSTRATUM      28    3  A
NDEPT         31    2  A
NCOMM         33    3  A
NSUB          36    3  A
NCOMMU        39    3  A
NSTWHSE       42    1  A
NDESC         43   15  A
NOWNER        73    1  A
NPACK         74    5  N
NSIZE         79   10  A
NDIVIDE       89    1  A
NBOYCOST      90    8  N 3
NCURCOST      98    8  N 3
NLASTPO      106    8  N 3
NVENDOR      114    8  A
NVENDORNM    122   10  A
NVENDORAR    132    3  A
NVENDORLN    135    3  A
NDATECR      138    6  A
NINACTIVE    144    2  A
NCHECKDGT    146    1  A
NMANUFACT    147   10  A
NACCOUNTCD   157    2  A
NBUYER       159    3  A
NMERCHDIVIS  162    2  A
NCOSTCENTER  164    4  A
NITEMSTATUS  168    1  A
NKEYBUY      169    1  A
NBETTERVALU  170    1  A
NNEWLOWPRIC  171    1  A
NVENDORSTOC  172   13  A
NSHELFRETAI  185    9  N 2
NITEMCODE    194    1  A
NDATEDISCON  195    3  P
NDATEFIRST   198    3  P
NWHSEQUANTI  201    5  P 2
NSUPPLYFLAG  206    1  A
NRESTRICTOR  207    1  A
NLIFORANDOM  208    6  A
NEOYCOST     214    8  N 3
NSYSRET      251    5  P 2
NTOTAL       W      9  N 2
COST    W   9 N 2
EXTEND  W   9 N 2        HEADING('EXTENDED COST')
EXTEND2 W   9 N 2        HEADING('EXTENDED RETAIL')
FILE DSLJO01 PRINTER
JOB INPUT FILEN
IF NWHSEQUANTI > 0 OR NWHSEQUANTI < 0
   NTOTAL = NEOYCOST * NWHSEQUANTI
   PRINT LIFO-REPORT1
END-IF
REPORT LIFO-REPORT1 SUMMARY +
   SPACE 1 +
   PRINTER DSLJO01
SEQUENCE NSTORE NPOOL
CONTROL NSTORE NPOOL
TITLE 1 '================================================='
TITLE 2 '=                 LIFO REPORT                   ='
TITLE 3 '=                                               ='
TITLE 4 '================================================='
LINE 1 NSTORE NPOOL +
NCURCOST    +
NEOYCOST    +
NWHSEQUANTI +
NTOTAL +
TALLY
/*
//*
NITEM        +
NDESC        +
