2. Symblic map definition
WBMENUB 01 WBMENUBI REDEFINES MAPS.
05 FILLER PIC X(12).
05 OPTIONL PIC S9(4) COMP.
05 OPTIONF PIC X(1).
05 FILLER REDEFINES OPTIONF.
10 OPTIONA PIC X(1).
05 FILLER PIC X(1).
05 OPTIONI PIC X(1).
05 CUSTNUML PIC S9(4) COMP.
05 CUSTNUMF PIC X(1).
05 FILLER REDEFINES CUSTNUMF.
10 CUSTNUMA PIC X(1).
05 FILLER PIC X(1).
05 CUSTNUMI PIC X(5).
05 MLINEL PIC S9(4) COMP.
05 MLINEF PIC X(1).
05 FILLER REDEFINES MLINEF.
10 MLINEA PIC X(1).
05 FILLER PIC X(1).
05 MLINEI PIC X(72).
01 WBMENUBO REDEFINES WBMENUBI.
05 FILLER PIC X(12).
05 FILLER PIC X(3).
05 OPTIONC PIC X(1).
05 OPTIONO PIC X(1).
05 FILLER PIC X(3).
05 CUSTNUMC PIC X(1).
05 CUSTNUMO PIC X(5).
05 FILLER PIC X(3).
05 MLINEC PIC X(1).
05 MLINEO PIC X(64).
WBCUSTB 01 WBCUSTBI REDEFINES MAPS.
05 FILLER PIC X(12).
05 MESSGEL PIC S9(4) COMP.
05 MESSGEF PIC X(1).
05 FILLER REDEFINES MESSGEF.
10 MESSGEA PIC X(1).
05 FILLER PIC X(1).
05 MESSGEI PIC X(64).
05 LNAMEL PIC S9(4) COMP.
05 LNAMEF PIC X(1).
05 FILLER REDEFINES LNAMEF.
10 LNAMEA PIC X(1).
05 FILLER PIC X(1).
05 LNAMEI PIC X(20).
05 FNAMEL PIC S9(4) COMP.
05 FNAMEF PIC X(1).
05 FILLER REDEFINES FNAMEF.
10 FNAMEA PIC X(1).
05 FILLER PIC X(1).
05 FNAMEI PIC X(15).
05 ADDRESSL PIC S9(4) COMP.
05 ADDRESSF PIC X(1).
05 FILLER REDEFINES ADDRESSF.
10 ADDRESSA PIC X(1).
05 FILLER PIC X(1).
05 ADDRESSI PIC X(40).
05 CITYL PIC S9(4) COMP.
05 CITYF PIC X(1).
05 FILLER REDEFINES CITYF.
10 CITYA PIC X(1).
05 FILLER PIC X(1).
05 CITYI PIC X(20).
05 STATEL PIC S9(4) COMP.
05 STATEF PIC X(1).
05 FILLER REDEFINES STATEF.
10 STATEA PIC X(1).
05 FILLER PIC X(1).
05 STATEI PIC X(8).
05 PCODEL PIC S9(4) COMP.
05 PCODEF PIC X(1).
05 FILLER REDEFINES PCODEF.
10 PCODEA PIC X(1).
05 FILLER PIC X(1).
05 PCODEI PIC X(10).
05 CTRYL PIC S9(4) COMP.
05 CTRYF PIC X(1).
05 FILLER REDEFINES CTRYF.
10 CTRYA PIC X(1).
05 FILLER PIC X(1).
05 CTRYI PIC X(15).
05 EMAILL PIC S9(4) COMP.
05 EMAILF PIC X(1).
05 FILLER REDEFINES EMAILF.
10 EMAILA PIC X(1).
05 FILLER PIC X(1).
05 EMAILI PIC X(50).
05 MLINEL PIC S9(4) COMP.
05 MLINEF PIC X(1).
05 FILLER REDEFINES MLINEF.
10 MLINEA PIC X(1).
05 FILLER PIC X(1).
05 MLINEI PIC X(8).
05 PFKEYSL PIC S9(4) COMP.
05 PFKEYSF PIC X(1).
05 FILLER REDEFINES PFKEYSF.
10 PFKEYSA PIC X(1).
05 FILLER PIC X(1).
05 PFKEYSI PIC X(8).
01 WBCUSTBO REDEFINES WBCUSTBI.
05 FILLER PIC X(12).
05 FILLER PIC X(3).
05 MESSGEC PIC X(1).
05 MESSGEO PIC X(64).
05 FILLER PIC X(3).
05 LNAMEC PIC X(1).
05 LNAMEO PIC X(20).
05 FILLER PIC X(3).
05 FNAMEC PIC X(1).
05 FNAMEO PIC X(15).
05 FILLER PIC X(3).
05 ADDRESSC PIC X(1).
05 ADDRESSO PIC X(40).
05 FILLER PIC X(3).
05 CITYC PIC X(1).
05 CITYO PIC X(20).
05 FILLER PIC X(3).
05 STATEC PIC X(1).
05 STATEO PIC X(08).
05 FILLER PIC X(3).
05 PCODEC PIC X(1).
05 PCODEO PIC X(10).
05 FILLER PIC X(3).
05 CTRYC PIC X(1).
05 CTRYO PIC X(15).
05 FILLER PIC X(3).
05 EMAILC PIC X(1).
05 EMAILO PIC X(50).
05 FILLER PIC X(3).
05 MLINEC PIC X(1).
05 MLINEO PIC X(64).
05 FILLER PIC X(3).
05 PFKEYSC PIC X(1).
05 PFKEYSO PIC X(79).
WBORDRB 01 WBORDRBI REDEFINES MAPS.
05 FILLER PIC X(12).
05 AUTHORL PIC S9(4) COMP.
05 AUTHORF PIC X(1).
05 FILLER REDEFINES AUTHORF.
10 AUTHORA PIC X(1).
05 FILLER PIC X(1).
05 AUTHORI PIC X(20).
05 TITLEL PIC S9(4) COMP.
05 TITLEF PIC X(1).
05 FILLER REDEFINES TITLEF.
10 TITLEA PIC X(1).
05 FILLER PIC X(1).
05 TITLEI PIC X(50).
05 TTLNL PIC S9(4) COMP.
05 TTLNF PIC X(1).
05 FILLER REDEFINES TTLNF.
10 TTLNA PIC X(1).
05 FILLER PIC X(1).
05 TTLNI PIC X(79).
05 BOOKLNK OCCURS 6 TIMES.
10 BOOKLNL PIC S9(4) COMP.
10 BOOKLNF PIC X(1).
10 FILLER REDEFINES BOOKLNF.
15 BOOKLNA PIC X(1).
10 FILLER PIC X(1).
10 BOOKLNI PIC X(79).
05 ORDINFOL PIC S9(4) COMP.
05 ORDINFOF PIC X(1).
05 FILLER REDEFINES ORDINFOF.
10 ORDINFOA PIC X(1).
05 FILLER PIC X(1).
05 ORDINFOI PIC X(79).
05 LNUMTTLL PIC S9(4) COMP.
05 LNUMTTLF PIC X(1).
05 FILLER REDEFINES LNUMTTLF.
10 LNUMTTLA PIC X(1).
05 FILLER PIC X(1).
05 LNUMTTLI PIC X(12).
05 LNUML PIC S9(4) COMP.
05 LNUMF PIC X(1).
05 FILLER REDEFINES LNUMF.
10 LNUMA PIC X(1).
05 FILLER PIC X(1).
05 LNUMI PIC X(1).
05 CUSTTTLL PIC S9(4) COMP.
05 CUSTTTLF PIC X(1).
05 FILLER REDEFINES CUSTTTLF.
10 CUSTTTLA PIC X(1).
05 FILLER PIC X(1).
05 CUSTTTLI PIC X(17).
05 CUSTNOL PIC S9(4) COMP.
05 CUSTNOF PIC X(1).
05 FILLER REDEFINES CUSTNOF.
10 CUSTNOA PIC X(1).
05 FILLER PIC X(1).
05 CUSTNOI PIC X(05).
05 MLINEL PIC S9(4) COMP.
05 MLINEF PIC X(1).
05 FILLER REDEFINES MLINEF.
10 MLINEA PIC X(1).
05 FILLER PIC X(1).
05 MLINEI PIC X(64).
05 PFKEYSL PIC S9(4) COMP.
05 PFKEYSF PIC X(1).
05 FILLER REDEFINES PFKEYSF.
10 PFKEYSA PIC X(1).
05 FILLER PIC X(1).
05 PFKEYSI PIC X(79).
01 WBORDRBO REDEFINES WBORDRBI.
05 FILLER PIC X(12).
05 FILLER PIC X(3).
05 AUTHORC PIC X(01).
05 AUTHORO PIC X(20).
05 FILLER PIC X(3).
05 TITLEC PIC X(01).
05 TITLEO PIC X(50).
05 FILLER PIC X(3).
05 TTLNC PIC X(01).
05 TTLNO PIC X(79).
05 BOOKLNG OCCURS 6 TIMES.
10 FILLER PIC X(3).
10 BOOKLNC PIC X(01).
10 BOOKLNO PIC X(79).
05 FILLER PIC X(3).
05 ORDINFOC PIC X(01).
05 ORDINFOO PIC X(79).
05 FILLER PIC X(3).
05 LNUMTTLC PIC X(01).
05 LNUMTTLO PIC X(12).
05 FILLER PIC X(3).
05 LNUMC PIC X(01).
05 LNUMO PIC X(01).
05 FILLER PIC X(3).
05 CUSTTTLC PIC X(01).
05 CUSTTTLO PIC X(17).
05 FILLER PIC X(3).
05 CUSTNOC PIC X(01).
05 CUSTNOO PIC X(05).
05 FILLER PIC X(3).
05 MLINEC PIC X(01).
05 MLINEO PIC X(64).
05 FILLER PIC X(3).
05 PFKEYSC PIC X(01).
05 PFKEYSO PIC X(79).