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). |