//TBWM01AW JOB (0306,TEST,1,20,0),'MCNULTY.B',
//         CLASS=B,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=*
//*SLJO01  DD  SYSOUT=*
//*SLJO02  DD  SYSOUT=*
//*SLJO03  DD  SYSOUT=*
//*SLJO04  DD  SYSOUT=*
//DSLJO01  DD DSN=SYSTCFI.SRLJ.FONTANA.REPORT1,
//         DISP=(NEW,CATLG,DELETE),
//         UNIT=SYSDA,
//         SPACE=(CYL,(10,2),RLSE),
//         DCB=(RECFM=FB,LRECL=133,BLKSIZE=0)
//DSLJO02  DD DSN=SYSTCFI.SRLJ.FONTANA.REPORT3,
//         DISP=(NEW,CATLG,DELETE),
//         UNIT=SYSDA,
//         SPACE=(CYL,(10,2),RLSE),
//         DCB=(RECFM=FB,LRECL=133,BLKSIZE=0)
//DSLJO03  DD DSN=SYSTCFI.SRLJ.FONTANA.REPORT4,
//         DISP=(NEW,CATLG,DELETE),
//         UNIT=SYSDA,
//         SPACE=(CYL,(10,2),RLSE),
//         DCB=(RECFM=FB,LRECL=133,BLKSIZE=0)
//DSLJO04  DD DSN=SYSTCFI.SRLJ.FONTANA.REPORT2,
//         DISP=(NEW,CATLG,DELETE),
//         UNIT=SYSDA,
//         SPACE=(CYL,(10,2),RLSE),
//         DCB=(RECFM=FB,LRECL=133,BLKSIZE=0)
//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.SRLJ.FONTANA.NEW.WHSEMDSE,                   00112
//             DISP=SHR
//FILEO    DD  DSN=SYSTCFI.SRLJ.FONTANA.WHSEMDSE,                       00112
//             DISP=SHR
//SYSIN    DD  *
FILE FILEN
NSOURCE        1    3  A
NITEM          9    7  A  HEADING('NITEM' '-------')
NDIV          16    2  A  HEADING('DIV' '---')
NSTORE        18    4  A  HEADING('NSTORE' '------')
NCORP         22    3  A
NPOOL         25    3  A
NSTRATUM      28    3  A
NDEPT         31    2  A  HEADING('DPT' '---')
NCOMM         33    3  A  HEADING('COM' '---')
NSUB          36    3  A  HEADING('SUB' '---')
NCOMMU        39    3  A
NSTWHSE       42    1  A
NDESC         43   25  A  HEADING('DESC' '-------------------------')
NOWNER        73    1  A
NPACK         74    5  A  HEADING('NPACK' '-----')
NSIZE         79   10  A  HEADING('NSIZE' '----------')
NDIVIDE       89    1  A
NBOYCOST      90    8  N 3  HEADING('NBOYCOST' '----------')
NCURCOST      98    8  N 3  HEADING('NCURCOST' '----------')
NLASTPO      106    8  N 3
NVENDOR      116    6  A  HEADING('NVNDR' '------')
NVENDORNM    122   10  A  HEADING('VNDR NAME' '----------')
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  HEADING('NBUYER' '------')
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  HEADING ('NVENDORSTOC' '-------------')
NSHELFRETAI  185    9  N 2
NITEMCODE    194    1  A
NDATEDISCON  195    3  P  HEADING('DATE DISC' '---------')
NDATEFIRST   198    3  P  HEADING('DATE 1ST' '--------')
NWHSEQUANTI  201    5  P 2  HEADING('NWHSEQUANTI' '-----------')
NSUPPLYFLAG  206    1  A  HEADING('NSUPPLY' '-------')
NRESTRICTOR  207    1  A
NLIFORANDOM  208    6  A
NEOYCOST     214    8  N 3
FILE FILEO
OSOURCE        1    3  A
OITEM          9    7  A HEADING('OITEM' '-------')
ODIV          16    2  A HEADING('DIV' '---')
OSTORE        18    4  A HEADING('OSTORE' '------')
OCORP         22    3  A
OPOOL         25    3  A
OSTRATUM      28    3  A
ODEPT         31    2  A  HEADING('DPT' '---')
OCOMM         33    3  A  HEADING('COM' '---')
OSUB          36    3  A  HEADING('SUB' '---')
OCOMMU        39    3  A
OSTWHSE       42    1  A
ODESC         43   25  A HEADING('DESC' '-------------------------')
OOWNER        73    1  A
OPACK         74    5  A HEADING('OPACK' '-----')
OSIZE         79   10  A HEADING('OSIZE' '----------')
ODIVIDE       89    1  A
OBOYCOST      90    8  N 3  HEADING('OBOYCOST' '----------')
OCURCOST      98    8  N 3  HEADING('OCURCOST' '----------')
OLASTPO      106    8  N 3
OVENDOR      116    6  A  HEADING('OVNDR' '------')
OVENDORNM    122   10  A HEADING('VNDR NAME' '----------')
OVENDORAR    132    3  A
OVENDORLN    135    3  A
ODATECR      138    6  A
OINACTIVE    144    2  A
OCHECKDGT    146    1  A
OMANUFACT    147   10  A
OACCOUNTCD   157    2  A
OBUYER       159    3  A  HEADING('OBUYER' '------')
OMERCHDIVIS  162    2  A
OCOSTCENTER  164    4  A
OITEMSTATUS  168    1  A
OKEYBUY      169    1  A
OBETTERVALU  170    1  A
ONEWLOWPRIC  171    1  A
OVENDORSTOC  172   13  A  HEADING ('OVENDORSTOC' '-------------')
OSHELFRETAI  185    9  N 2
OITEMCODE    194    1  A
ODATEDISCON  195    3  P  HEADING('DATE DISC' '---------')
ODATEFIRST   198    3  P  HEADING('DATE 1ST' '--------')
OWHSEQUANTI  201    5  P 2  HEADING('OWHSEQUANTI' '-----------')
OSUPPLYFLAG  206    1  A  HEADING('OSUPPLY' '-------')
ORESTRICTOR  207    1  A
OLIFORANDOM  208    6  A
OEOYCOST     214    8  N 3
FILE DSLJO01 PRINTER
FILE DSLJO02 PRINTER
FILE DSLJO03 PRINTER
FILE DSLJO04 PRINTER
JOB INPUT (FILEN KEY (NITEM) +
           FILEO KEY (OITEM)) +
           NAME MATCH-FILE
IF MATCHED FILEN FILEO
   PRINT LIFO-REPORT1
   PRINT LIFO-REPORT4
END-IF
IF NOT MATCHED FILEN FILEO AND FILEO
   PRINT LIFO-REPORT2
END-IF
IF NOT MATCHED FILEN FILEO AND FILEN
   PRINT LIFO-REPORT3
END-IF
REPORT LIFO-REPORT1         +
   SPACE 1 +
   PRINTER DSLJO01
TITLE 1 '================================================='
TITLE 2 '=             FONTANA WAREHOUSE INFO            ='
TITLE 3 '=     LEGACY INFO (OLD) VS. DB2 INFO (NEW)      ='
TITLE 4 '================================================='
LINE 1 NITEM +
NDESC        +
ODEPT        +
OCOMM        +
OSUB         +
OBOYCOST     +
OCURCOST     +
NBOYCOST     +
NCURCOST     +
NWHSEQUANTI  +
OVENDOR      +
NVENDOR      +
NVENDORNM
REPORT LIFO-REPORT2         +
   SPACE 1 +
   PRINTER DSLJO02
TITLE 1 '#################################################'
TITLE 2 '#             FONTANA WAREHOUSE INFO            #'
TITLE 3 '# LEGACY INFO (OLD) WITH MISSING DB2 INFO (NEW) #'
TITLE 4 '#################################################'
LINE 1 OITEM +
ODIV         +
OSTORE       +
ODESC        +
ODEPT        +
OCOMM        +
OSUB         +
OBOYCOST     +
OCURCOST     +
OWHSEQUANTI  +
OPACK        +
OSIZE        +
ODATEDISCON  +
ODATEFIRST
REPORT LIFO-REPORT3         +
   SPACE 1 +
   PRINTER DSLJO03
TITLE 1 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
TITLE 2 '%             FONTANA WAREHOUSE INFO            %'
TITLE 3 '% DB2 INFO (NEW) WITH MISSING LEGACY INFO (OLD) %'
TITLE 4 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
LINE 1 NITEM +
NDIV         +
NSTORE       +
NDESC        +
NDEPT        +
NCOMM        +
NSUB         +
NBOYCOST     +
NCURCOST     +
NWHSEQUANTI  +
NPACK        +
NSIZE        +
NDATEDISCON  +
NDATEFIRST
REPORT LIFO-REPORT4         +
   SPACE 1 +
   PRINTER DSLJO04
TITLE 1 '================================================='
TITLE 2 '=             FONTANA WAREHOUSE INFO            ='
TITLE 3 '=     LEGACY INFO (OLD) VS. DB2 INFO (NEW)      ='
TITLE 4 '================================================='
LINE 1 NITEM +
NDESC        +
OPACK        +
NPACK        +
OSIZE        +
NSIZE        +
OBUYER       +
NBUYER       +
OVENDORSTOC  +
NVENDORSTOC  +
OSUPPLYFLAG  +
NSUPPLYFLAG
/*
//*
