|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 33212 (0x81bc)
Notes: pts_type(SC)
Names: »REMLEV.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/REMLEV.SC«
IDENT REMLEV 820804 NJ DDUM KMD08 PDIV ENTRY LEVOPR ENTRY LEVRD ENTRY VARRD ENTRY VARWRT ENTRY GETNXT ENTRY IDXGET ENTRY LEVDEL ENTRY SETIDX ENTRY LEVSPG ENTRY LEVPRT ENTRY LEVIN ENTRY RESTIX EXT DIVRUT EXT FMTREM EXT SPCLRA EXT SPCLRN EXT RAREAD EXT RAWRIT EXT RADEL EXT SETKEY EXT SPERR EXT SPLIN8 EXT CLEAR8 EXT TRREAD EXT TXTRD EXT KBTEST EXT TRINIT EXT REPL00 EXT WAITF EXT BDTDEL EXT NEWLIN EXT MEMIX1 EXT MEMIX2 EXT UPDMEM EXT YYMMDD EXT XCOP INCLUDE EQUATE EJECT LEVIN PROC * THE PROCEDURE GETS A LEVERANDOR FROM KBAN LEVIN00 MOVE SPKEY,CBIN2 MOVE GSWSTR9,='STRAKSLEV' MOVE GTLEVNR,GTREGF(CBIN2) CLEAR GTSPGFLG CLEAR GTDYFLG CLEAR GTSWFLAG SET SPPROMPT PERF FMTREM,CBIN3 PERF SPCLRA IB SPBINW2,LEVIN95,LEVIN95,LEVIN10 B LEVIN00 LEVIN10 PERF SETKEY MOVE GSWBIN7,=W'30' PERF REPL00,GTLEVNVN,GSWBIN7 MOVE GSWBIN7,=W'32' PERF REPL00,GTLEVADR,GSWBIN7 PERF REPL00,GTLEVBY,CBIN20 PERF REPL00,GTLEVPDI,CBIN13 CMP CBIN0,CBIN0 B LEVIN99 LEVIN95 PERF SETKEY CMP CBIN0,CBIN1 LEVIN99 RET PEND EJECT LEVOPR PROC **************************************** * * THE PROCEDURE CREATES/CHANGES A LEVERAND R. * ALL DISKFILES CONCERNED ARE UPDATED, * AS WELL AS THE MASTERINDEX IN CORE. * ***************************************** OPR000 MOVE SPKEY,CBIN2 PERF YYMMDD,CMASKDAT MOVE GTLEVDAT,GSWBCD7 MOVE GSWSTR9,=C'VEDLIGEH.' SET SPPROMPT SET GTDYFLG 1. TIME PERF FMTREM,CBIN3 ATTACH FORMAT PERF SPCLRA WRITE ON SCREEN IB SPBINW2,OPROK,OPROK,OPR010 B OPR000 OPR010 LOOK FOR NUMBER PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 - LEVINDX GSWBIN4 - INDEX BERR OPRNOK DISKERROR BNOK OPR020 NOT FOUND PERF LEVRD FOUND BNOK OPRNOK OPR015 FOUND, DISPLAY INFO CLEAR GTSWFLAG CLEAR GTDYFLG PERF FMTREM,CBIN3 PERF SPCLRN IB SPBINW2,OPR000,OPR000,OPR030 B OPR015 OPR020 NOT FOUND, DISPLAY BLANKS CBL GTLEVNR,=D'19',OPR000 CLEAR GTSWFLAG CLEAR GTDYFLG PERF FMTREM,CBIN3 PERF SPCLRA IB SPBINW2,OPR000,OPR000,OPR030 B OPR020 OPR030 LEV INFO KEYED IN, INSERT * FIELD CHECK * IF BFO = 2,3,7,8 GIRONR MUST BE PRESENT CBNE GTLEVGI,=D'0',OPR040 MOVE GSWBIN1,GTLEVBFO IB GSWBIN1, C OPR040,OPR035,OPR035,OPR040,OPR040, C OPR040,OPR035,OPR035,OPR040 B OPR040 OPR035 MOVE SPBINW4,CBIN5 'FEJL 5' PERF SPERR NOK B OPR015 OPR040 PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 BERR OPRNOK BNOK OPR050 ALREADY EXISTING PERF LEVWRT WRITE STAM-INFO BNOK OPRNOK B OPR000 OPR050 CREATE NEW PERF IDXINS INSERT NEW INDEX BNOK OPR000 PERF LEVWRT BNOK OPR070 PERF VARINT PERF VARWRT WRITE VAR-LEV-INFORMATION BOK OPR000 OPR070 SOMETHING WRONG PERF IDXDEL DELETE LEV-ENTRY COMPLETELY B OPR000 OPRNOK PERF SETKEY CMP CBIN1,CBIN0 NOT OK RET OPROK PERF SETKEY CMP CBIN0,CBIN0 RET PEND EJECT LEVDEL PROC MOVE SPKEY,CBIN2 DEL000 MOVE GSWSTR9,=C'SLETNING ' SET SPPROMPT SET GTDYFLG 1. TIME PERF FMTREM,CBIN3 ATTACH FORMAT PERF SPCLRA WRITE ON SCREEN IB SPBINW2,DELOK,DELOK,DEL010 B DEL000 DEL010 LOOK FOR NO CBL GTLEVNR,=D'19',DELNOK DONT DELETE SYSTEMLEV'S PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 BERR DELNOK ERROR BNOK DEL000 NOT FOUND FOUND CHECK IF DELETION ALLOWED I.E. REFERENCES TO TRANSFILE ? CBE GSWBIN4,=W'-1',DELNOK FOUND IN SLAVEARRAY ? IF SO, DONT DELETE PERF LEVRD READ STAMOPL BNOK DELNOK PERF VARRD READ VARIABLE INFO TO CHECK BNOK DELNOK IF DELETION ALLOWED SET GTSWFLAG CBNE GTTRKEY,CBIN0,DEL020 ANY TRANS REFERENCE? CLEAR GTSWFLAG NO B DEL030 DEL020 CBNE GTREGF(CBIN16),=D'0',DELNOK PERF BDTDEL ALLOWED WHEN ZERO-AMOUNT BNOK DELNOK CLEAR GTSWFLAG DEL030 CLEAR GTDYFLG SET GTSPGFLG PERF FMTREM,CBIN3 PERF SPCLRN CLEAR GTSPGFLG IB SPBINW2,DEL000,DEL000,DEL050 B DEL030 DEL050 TBT GTSWFLAG,DELOK ANY TRANSACTIONS PERF IDXDEL DELETE LEV B DELOK DELNOK PERF SETKEY CMP CBIN1,CBIN0 RET DELOK PERF SETKEY CMP CBIN0,CBIN0 RET PEND EJECT LEVRD PROC ********** * * READ AND UNPACK LEVERAND INFORMATION * FOR LEVERAND NO GTLEVNR * ********** PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 - LEV INDX GSWBIN4 - INDEX BNOK LEVR090 NOT FOUND MOVE GSWBIN4,=W'128' RECORD SIZE MOVE GTREMBUF,=' ' PERF RAREAD,DK08,=D'8',GTREMBUF,GSWBIN4,GSWBIN5 BNOK LEVR080 CBNE GTWBCD1,=D'4',LEVR020 NO DATA? PERF LEVINT B LEVR050 LEVR020 * UNPACK LEV INFO MOVE GSWBCD7,GTLEVNR STORE LEVNR XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 CBE GTLEVNR,GSWBCD7,LEVR030 MOVE GTLEVNR,GSWBCD7 B LEVR080 LEVR030 PERF XCOP,GTLEVNVN,=W'0',=W'30',GTREMBUF,=W'6' PERF XCOP,GTLEVADR,=W'0',=W'32',GTREMBUF,=W'36' PERF XCOP,GTLEVBY,=W'0',=W'20',GTREMBUF,=W'68' PERF XCOP,GTLEVPNR,=W'0',=W'3',GTREMBUF,=W'88' PERF XCOP,GTLEVPDI,=W'0',=W'13',GTREMBUF,=W'91' MOVE GSWBIN7,=W'30' PERF REPL00,GTLEVNVN,GSWBIN7 MOVE GSWBIN7,=W'32' PERF REPL00,GTLEVADR,GSWBIN7 PERF REPL00,GTLEVBY,CBIN20 PERF REPL00,GTLEVPDI,CBIN13 PERF XCOP,GTLEVBFO,=W'0',=W'1',GTREMBUF,=W'104' PERF XCOP,GTLEVGI,=W'0',=W'4',GTREMBUF,=W'105' PERF XCOP,GTLEVALT,=W'0',=W'6',GTREMBUF,=W'109' MOVE GTLEVDAT,=D'1' SET SIGN PERF XCOP,GTLEVDAT,=W'1',=W'3',GTREMBUF,=W'115' PERF YYMMDD,GTLEVDAT MOVE GTLEVDAT,GSWBCD7 LEVR050 CMP CBIN0,CBIN0 OK RET * LEVR080 LEVR090 CMP CBIN1,CBIN0 NOK RET PEND EJECT LEVWRT PROC ********** * PACK AND WRITE LEV INFORMATION FOR * LEVERAND NR GTLEVNR ********** ADD GTLEVNR,=D'0' PERF WAITF,CREMIO PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN10 BERR LEVW090 DISK ERROR BNOK LEVW090 NOT FOUND MOVE GTREMBUF,=' ' XCOPY GTREMBUF,CBIN0,CBIN6,GTLEVNR,CBIN0 PERF XCOP,GTREMBUF,=W'6',=W'30',GTLEVNVN,=W'0' PERF XCOP,GTREMBUF,=W'36',=W'32',GTLEVADR,=W'0' PERF XCOP,GTREMBUF,=W'68',=W'20',GTLEVBY,=W'0' PERF XCOP,GTREMBUF,=W'88',=W'3',GTLEVPNR,=W'0' PERF XCOP,GTREMBUF,=W'91',=W'13',GTLEVPDI,=W'0' PERF XCOP,GTREMBUF,=W'104',=W'1',GTLEVBFO,=W'0' PERF XCOP,GTREMBUF,=W'105',=W'4',GTLEVGI,=W'0' PERF XCOP,GTREMBUF,=W'109',=W'6',GTLEVALT,=W'0' PERF YYMMDD,CMASKDAT MOVE GTLEVDAT,GSWBCD7 PERF XCOP,GTREMBUF,=W'115',=W'3',GTLEVDAT,=W'1' PERF RAWRIT,DK08,=D'8',GTREMBUF,GSWBIN10 BNOK LEVW080 CLEAR CREMIO CMP CBIN0,CBIN0 OK RET LEVW080 LEVW090 CLEAR CREMIO CMP CBIN1,CBIN0 NOK RET PEND EJECT LEVINT PROC ********** * * INITIATE STAM INFORMATION FOR * LEVERAND NR GTLEVNR * ********** * MOVE GTLEVNVN,=' ' MOVE GTLEVADR,=' ' MOVE GTLEVBY,=' ' MOVE GTLEVPNR,=D'0' MOVE GTLEVPDI,=' ' MOVE GTLEVBFO,=D'0' MOVE GTLEVGI,=D'0' MOVE GTLEVALT,=D'0' PERF YYMMDD,CMASKDAT MOVE GTLEVDAT,GSWBCD7 RET PEND EJECT LEVSPG PROC ******************************************* * * PROCEDURE FOR FORESP RGSEL P] * LEVERAND RER * ******************************************** LSPG000 MOVE GSWSTR9,='FORESPG. ' SET SPPROMPT SET GTSPGFLG 1. TIME SET GTDYFLG FORESPG TBF GTCYFLG,LSPG005 I CYKEL/STABEL ? TBT GTBDTFLG,LSPG003 YES, BUNDT ? TBF GTSTRFLG,LSPG005 STRAKS ? LSPG003 MOVE GTLEVNR,GTDUPF(CBIN2) CYKEL/STABEL,STRAKS/BUNDT B LSPG010 LSPG005 PERF FMTREM,CBIN3 ATTACH FORMAT PERF SPCLRA WRITE ON SCREEN IB SPBINW2,LSPGOK,LSPGOK,LSPG010 B LSPG000 LSPG010 PERF LEVRD READ STAMINFO BNOK LSPGNOK PERF VARRD READ VARIABLE INFO BNOK LSPGNOK LSPG015 CLEAR GTSWFLAG CLEAR GTDYFLG DISPLAY INFO PERF FMTREM,CBIN3 PERF SPCLRN IB SPBINW2,LSPG000,LSPG000,LSPG100 B LSPG015 LSPG100 OK CONTINUE TO VARIABLE INFO TBT GTVDUFLG,LSPG200 PERF FMTREM,CBIN4 VARIABLE INFO PERF SPCLRN IB SPBINW2,LSPG015,LSPG015,LSPG200 B LSPG100 LSPG200 CBE GTTRKEY,CBIN0,LSPG500 NO TRANS * READ TRANS MOVE GSWBIN8,GTTRKEY POINTER TO FIRST TRANS LSPG205 CLEAR GTSWFLAG PERF TRREAD,GSWBIN8 BNOK LSPG500 MOVE GSWBIN8,GTDUPF(CBIN15) MOVE TEXTNR CBE GSWBIN8,CBIN0,LSPG210 PERF TXTRD,GSWBIN8 AND READ IT LSPG210 PERF FMTREM,CBIN5 PERF SPCLRN IB SPBINW2,LSPG500,LSPG500,LSPG300 B LSPG210 LSPG300 MOVE GSWBIN8,GTDUPF(CBIN22) CBNE GSWBIN8,CBIN0,LSPG205 LSPG500 TBF GTCYFLG,LSPG510 TBT GTBDTFLG,LSPGOK TBT GTSTRFLG,LSPGOK LSPG510 PERF GETNXT GET NEXT LEVNR BNOK LSPG000 B LSPG010 LSPGNOK LSPGOK RET PEND EJECT LEVPRT PROC ********** * PRINT LEVERANDS * ********** TBT GTGTPFLG,LPRT000 TBF GTLPFLG,LPRTRET LPRT000 SET SPPROMPT PERF FMTREM,CBIN6 CLEAR GTZERO MOVE GTBSUM1,=D'51' PHYSICAL HEIGTH OF A PAGE PERF SPCLRA CBNE SPBINW2,CBIN3,LPRTRET NOT <SLUT>? CBNE GTLEVNR,=D'1',LPRT015 SET GTZERO LPRT015 CBNL GTPRTFRA,=D'1',LPRT020 MOVE GTPRTFRA,=D'1' LPRT020 CBNL GTPRTTIL,GTPRTFRA,LPRT030 MOVE GTPRTTIL,=D'9999999998' LAST TO PRINT LPRT030 CLEAR GTSWFLAG SET GTDYFLG CBE GTLEVBFO,=D'1',LPRT040 CLEAR GTDYFLG NOT VAR INFO LPRT040 TBF GTLPFLG,LPRT045 EDWRT DSHCLP,FFEED FORM FEED LPRT045 PERF YYMMDD,GTPRTDAT MOVE GTPRTDAT,GSWBCD7 GTPRTDAT: YYMMDD MOVE GTLEVNR,GTPRTFRA SET FIRST NO. TO PRINT SUB GTLEVNR,=D'1' LPRT049 PERF GETNXT BNOK LPRTRET CBG GTLEVNR,GTPRTTIL,LPRTRET PERF LEVRD BNOK LPRT110 NOT FOUND PERF YYMMDD,GTLEVDAT CBL GSWBCD7,GTPRTDAT,LPRT100 TBF GTDYFLG,LPRT080 SUB GTBSUM1,=D'3' 7 LINES PERF VARRD BNOK LPRT110 LPRT080 SUB GTBSUM1,=D'4' 4 LINES TBT GTLPFLG,LPRT095 EDWRT DSHCGP,FLEVPRT GTP CBG GTBSUM1,=D'8',LPRT100 MORE ROOM? MOVE GSWBIN7,GTBSUM1 PERF NEWLIN,GSWBIN7 SKIP REST OF PAGE MOVE GTBSUM1,=D'51' B LPRT100 LPRT095 EDWRT DSHCLP,FLEVPRT LP CBG GTBSUM1,=D'8',LPRT100 EDWRT DSHCLP,FFEED MOVE GTBSUM1,=D'51' LPRT100 TO NEXT TBF GTDYFLG,LPRT110 TBF GTZERO,LPRT110 MOVE GTREGF(CBIN12),=D'0' PERF VARWRT REWRITE WITH SALE YTD = 0 BNOK LPRTRET LPRT110 PERF KBTEST BNOK LPRT049 LPRTRET RET PEND EJECT VARRD PROC ********** * * READ AND UNPACK VARIABLE INFORMATION * FOR LEVERAND NR GTLEVNR * ********** * PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 LEV INDEX GSWBIN4 INDEX BERR VARR090 DISK ERROR BNOK VARR090 NOT FOUND FOUND MOVE GSWBIN4,=W'49' RECORD SIZE MOVE GTREMBUF,=' ' PERF RAREAD,DK09,=D'9',GTREMBUF,GSWBIN4,GSWBIN5 BNOK VARR080 CBE GTWBCD1,=D'4',VARR040 * UNPACK VAR INFO MOVE GSWBCD7,GTLEVNR STORE LEVNR XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 CBE GTLEVNR,GSWBCD7,VARR030 MOVE GTLEVNR,GSWBCD7 NOT CORRECT RECORD B VARR080 VARR030 MOVE GSWBCD7,=D'1' INITIATE RECEIVING FIELD XCOPY GSWBCD7,CBIN4,CBIN3,GTREMBUF,CBIN6 MOVE GTREGF(CBIN10),GSWBCD7 UDB DATO XCOPY GSWBCD7,CBIN0,CBIN7,GTREMBUF,CBIN9 MOVE GTREGF(CBIN11),GSWBCD7 UDB BELOB XCOPY GSWBCD7,CBIN0,CBIN7,GTREMBUF,CBIN16 MOVE GTREGF(CBIN12),GSWBCD7 UDB ]TD PERF XCOP,GSWBCD7,=W'0',=W'7',GTREMBUF,=W'23' MOVE GTREGF(CBIN14),GSWBCD7 VENT DEBET PERF XCOP,GSWBCD7,=W'0',=W'7',GTREMBUF,=W'30' MOVE GTREGF(CBIN15),GSWBCD7 VENT KREDIT MOVE GTREGF(CBIN16),GSWBCD7 SKYLDIGT BEL. ADD GTREGF(CBIN16),GTREGF(CBIN14) MOVE GSWBCD7,=D'1' SET SIGN PERF XCOP,GSWBCD7,=W'4',=W'3',GTREMBUF,=W'37' MOVE GTREGF(CBIN13),GSWBCD7 VAL DATO PERF XCOP,GTTRKEY,=W'0',=W'2',GTREMBUF,=W'47' B VARR050 VARR040 PERF VARINT VARR050 CMP CBIN0,CBIN0 OK RET * VARR080 VARR090 CMP CBIN1,CBIN0 NOK RET PEND EJECT VARWRT PROC ********** * PACK AND WRITE VARIABLE INFORMATION FOR * LEVERAND NO GTLEVNR ********** PERF WAITF,CREMIO PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN10 BNOK VARW090 MOVE GTREMBUF,=' ' ADD GTLEVNR,=D'0' XCOPY GTREMBUF,CBIN0,CBIN6,GTLEVNR,CBIN0 MOVE GSWBCD6,GTREGF(CBIN10) UDB DATO PERF YYMMDD,GSWBCD6 XCOPY GTREMBUF,CBIN6,CBIN3,GSWBCD7,CBIN4 MOVE GSWBCD7,GTREGF(CBIN11) UDB BELOB XCOPY GTREMBUF,CBIN9,CBIN7,GSWBCD7,CBIN0 MOVE GSWBCD7,GTREGF(CBIN12) UDB ]TD XCOPY GTREMBUF,CBIN16,CBIN7,GSWBCD7,CBIN0 MOVE GSWBCD7,GTREGF(CBIN14) VENT DEBET PERF XCOP,GTREMBUF,=W'23',=W'7',GSWBCD7,=W'0' MOVE GSWBCD7,GTREGF(CBIN15) VENT KREDIT PERF XCOP,GTREMBUF,=W'30',=W'7',GSWBCD7,=W'0' MOVE GSWBCD7,GTREGF(CBIN13) VAL DATO PERF XCOP,GTREMBUF,=W'37',=W'3',GSWBCD7,=W'4' PERF XCOP,GTREMBUF,=W'47',=W'2',GTTRKEY,=W'0' PERF RAWRIT,DK09,=D'9',GTREMBUF,GSWBIN10 BNOK VARW090 CLEAR CREMIO CMP CBIN0,CBIN0 OK RET VARW090 CLEAR CREMIO CMP CBIN1,CBIN0 NOK RET PEND EJECT VARINT PROC ********** * * INITIATE VARIABLE INFO FOR * LEVERAND NR GTLEVNR * ********** MOVE GTREGF(CBIN10),=D'0' UDB DATO MOVE GTREGF(CBIN11),=D'0' UDB BELOB MOVE GTREGF(CBIN12),=D'0' UDB ]TD MOVE GTREGF(CBIN14),=D'0' VENT DEBET MOVE GTREGF(CBIN15),=D'0' VENT KREDIT MOVE GTREGF(CBIN16),=D'0' MOVE GTREGF(CBIN13),=D'0' VAL DATO MOVE GTTRKEY,CBIN0 TRANS POINTER RET PEND EJECT IDXGET PROC LEVNR,INDX,LEVDEX ******************************************** * * PROCEDURE FOR SEARCHING IN INDEXFILE FOR * A GIVE LEVNO. * LYNGBY SPECIAL: * THIS KOMMUNE HAS A SPECIAL FORM FOR INDEXFILE, AS THEY HAVE * A SLAVEFILE, CONTAINING THE ADDITIONS SINCE LAST <ADM 46>. * IF A LEVNR IS FOUND IN THIS SLAVEFILE,<INDX> WILL BE * SET TO -1. * * IF FOUND - CONDITION REGISTER IS SET TO OK * INDX RELATIVE RECORD IN INDEXFILE * LEVDEX POINTER INTO STAM/VAR * * IF NOT FOUND - CONDITION REGISTER IS SET TO NOK = 1 * INDX INDEX TO PLACE TO INSERT * LEVDEX 0 * * IF DISKERR - CONDITION REGISTER IS SET TO ERR = 2 * INDEX 0 * LEVDEX =0 * ******************************************** IGET000 TBF C173FLG,IGET008 LYNGBY? PERF MEMIX1,LEVNR,INDX,LEVDEX BOK IGET400 IGET008 MOVE GSWBIN5,CBIN0 GROUP MOVE GSWBIN4,CBIN0 RECORD IGET010 ADD GSWBIN4,=W'48' ADD GSWBIN5,CBIN1 SEARCH FOR GROUP CBG GSWBIN4,CIXLAST,IGET020 RETURN NOT FOUND CBL CIXINDX(GSWBIN5),LEVNR,IGET010 B IGET030 TRY NEXT IGET020 NOT FOUND MOVE INDX,CIXFREE PLACE TO INSERT MOVE LEVDEX,CBIN0 CMP CBIN1,CBIN0 NOK RET IGET030 GROUP FOUND LEVNR WITHIN THIS GROUP GROUP GSWBIN5 SUB GSWBIN4,=W'48' * FIND INDEX, USING BINARY SEARCH INITIATE BINARY SERCH MOVE GTSCHLOW,CBIN1 LOWER LIMIT- GTSCHLOW MOVE GTSCHHGH,=W'48' UPPER LIMIT - GTSCHHGH IGET110 CBL GTSCHHGH,GTSCHLOW,IGETNOK1 UPPER<LOWER, NOT FOUND MOVE GTSCHMID,GTSCHLOW INDEX=LOWER ADD GTSCHMID,GTSCHHGH ADD UPPER DIV GTSCHMID,CBIN2 FIND MIDPOINT * READ LEV INFO, TO GSWBCD7 ADD GSWBIN4,GTSCHMID GSWBIN4=RECORD NUMBER MOVE GSWBIN5,CBIN7 SIZE MOVE GTREMBUF,=' ' PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN5,GSWBIN4 BNOK IGET300 MOVE GSWBCD7,=D'1' SET SIGN XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN0 SUB GSWBIN4,GTSCHMID GSWBIN4= START OF SECTOR CMP GSWBCD7,LEVNR BE IGET200 FOUND BL IGET130 LOOK UP MOVE GTSCHHGH,GTSCHMID MOVE MIDPOINT TO DOWNPER SUB GTSCHHGH,CBIN1 -1 B IGET110 IGET130 MOVE GTSCHLOW,GTSCHMID MOVE MIDPOINT TO LOWER ADD GTSCHLOW,CBIN1 +1 B IGET110 IGET200 FOUND ADD GSWBIN4,GTSCHMID GSWBIN4=RECORD NUMBER MOVE INDX,GSWBIN4 SET INDEX XCOPY GSWBIN5,CBIN0,CBIN2,GTREMBUF,CBIN5 MOVE LEVDEX,GSWBIN5 SET LEV INDX CMP CBIN0,CBIN0 RETURN OK RET IGETNOK1 ADD GSWBIN4,GTSCHLOW RECORD NUMBER FOR INSERT MOVE LEVDEX,CBIN0 MOVE INDX,GSWBIN4 PLACE TO INSERT CMP CBIN1,CBIN0 NOK RET IGET300 SET COND = ERR MOVE LEVDEX,CBIN0 MOVE INDX,CBIN0 CMP CBIN0,CBIN1 IGET400 RET PEND EJECT IDXINS PROC ********** * * INSERT GTLEVNR IN INDEXFILE * ********** CBG CIXFREE,CIXLAST,XINSNOK2 NO ROOM PERF WAITF,CREMIO PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 LEV INDEX GSWBIN4 INDEX BERR XINSNOK1 DISK ERROR BOK XINSNOK1 ALREADY PRESENT * NOT FOUND, INSERT TBF C173FLG,XINS000 CBNG GTLEVNR,=D'15',XINS000 PERF UPDMEM UPDATE SLAVEARRAY ON BOK XINSOK DISK AND IN MEMORY B XINSNOK XINS000 MOVE GSWBIN8,GSWBIN4 PLACE FOR INSERTION MOVE GSWBIN1,CBIN7 PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,CIXFREE BNOK XINSNOK XCOPY GSWBIN7,CBIN0,CBIN2,GTREMBUF,CBIN5 MOVE GSWBIN4,CIXFREE START OF LOOP ADD CIXFREE,CBIN1 NEW FIRST FREE SUB GSWBIN4,CBIN1 * XINS100 CBL GSWBIN4,GSWBIN8,XINS200 ALL MOVED? NO. MOVE GSWBIN1,CBIN7 PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,GSWBIN4 BNOK XINSNOK ADD GSWBIN4,CBIN1 PERF RAWRIT,DK07,=D'7',GTREMBUF,GSWBIN4 BNOK XINSNOK SUB GSWBIN4,CBIN2 B XINS100 * XINS200 * ALL MOVED, INSERT LEVNR+INDEX ADD GTLEVNR,=D'0' XCOPY GTREMBUF,CBIN0,CBIN5,GTLEVNR,CBIN1 XCOPY GTREMBUF,CBIN5,CBIN2,GSWBIN7,CBIN0 PERF RAWRIT,DK07,=D'7',GTREMBUF,GSWBIN8 MOVE GSWBIN4,GSWBIN8 PLACE FOR INSERTION PERF RESTIX XINSOK CLEAR CREMIO CMP CBIN0,CBIN0 OK RET XINSNOK PERF RESTIX XINSNOK1 CLEAR CREMIO XINSNOK2 CMP CBIN1,CBIN0 NOK RET PEND EJECT SETIDX PROC ************************************* * * INITIATE MASTER INDEX FOR LEV-REGISTER * IF INDEX EMPTY, SET UP ALL ENTRIES AND * INITIATE SPECIAL ENTRIES * * SETS: * CIXLAST - LAST RECORD NO. * CIXFREE - FIRST FREE ENTRY * ************************************** MOVE GSWBIN4,CBIN1 MOVE GSWBIN5,CBIN7 MOVE GTREMBUF,=' ' PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN5,GSWBIN4 CBE GTWBCD1,=D'4',SIDX005 NO DATA ? MOVE GSWBCD7,=D'1' > 0 XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN0 GET 1. LEV CBE GSWBCD7,=D'1',SIDX100 IF NOT LEVNR 1 SIDX005 INITIATE INDEX FILE * INITIATE INDEX FILE WITH BLANK ENTRIES MOVE GSWBIN4,CBIN0 SIDX050 ADD GSWBIN4,CBIN1 MOVE GTWBCD2,GSWBIN4 PERF SPLIN8,CBIN10,CBIN3 MOVE GTREMBUF,=X'99' XCOPY GTREMBUF,CBIN5,CBIN2,GSWBIN4,CBIN0 SET INDEX PERF RAWRIT,DK07,=D'7',GTREMBUF,GSWBIN4 BOK SIDX050 PERF CLEAR8 TBF C173FLG,SIDX100 MOVE GSWBIN4,=W'48' ADD GSWBIN4,CBIN1 MOVE CMEMIX(GSWBIN4),=D'9999999999' MOVE CMEMPT(GSWBIN4),=X'7FFF' MOVE GSWBIN4,=W'48' SIDX060 MOVE GTREMBUF,=X'99' PERF RAWRIT,DK17,=D'17',GTREMBUF,GSWBIN4 SUB GSWBIN4,CBIN1 BP SIDX060 SIDX100 * OK, FIRST LEV = 0000000000 * LOOP THROUGH INDEX FILE TO SET UP * MASTER INDEX IN CORE, AND TO FIND * SIZE OF INDEX FILE MOVE CIXLAST,=X'7FFF' MOVE CIXFREE,CBIN0 MOVE GSWBIN4,CBIN1 SIDX110 MOVE GTWBCD2,GSWBIN4 PERF SPLIN8,CBIN10,CBIN3 MOVE GSWBIN5,CBIN7 MOVE CIXLAST,GSWBIN4 MOVE GTREMBUF,=' ' PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN5,GSWBIN4 READ RECORD CBE GTWBCD1,=D'10',SIDX130 END OF DEVICE CBE GTWBCD1,=D'4',SIDX120 NO-DATA ? MOVE GSWSTR9,=' ' XCOPY GSWSTR20,CBIN0,CBIN5,GTREMBUF,CBIN0 MOVE GSWBIN5,CBIN0 REPLACE SPACE WITH 9999999999 MATCH GSWSTR9,GSWBIN5,CBIN5,GSWSTR20,CBIN0,CBIN5 BNE SIDX125 NOT 2020202020 THIS TIME SIDX120 MOVE GSWSTR9,=X'99' FOR NO-DATA AND 2020202020 XCOPY GTREMBUF,CBIN0,CBIN5,GSWSTR9,CBIN0 XCOPY GTREMBUF,CBIN5,CBIN2,GSWBIN4,CBIN0 CREATE INDEX PERF RAWRIT,DK07,=D'7',GTREMBUF,GSWBIN4 REWRITE RECORD B SIDX127 SIDX125 MOVE GSWBIN5,CBIN0 MOVE GSWSTR9,=X'99' MATCH GTREMBUF,GSWBIN5,CBIN5,GSWSTR9,CBIN0,CBIN5 BE SIDX130 FIRST FREE SIDX127 ADD GSWBIN4,CBIN1 B SIDX110 SIDX130 BLANK OR EOF MOVE CIXFREE,GSWBIN4 FIRST FREE ENTRY MOVE GSWBIN8,CBIN1 FIRST ENTRY IN CIXINDX MOVE GSWBIN5,=W'48' CORR. TO THE 48. RECORD SIDX150 MOVE GTWBCD2,GSWBIN5 PERF SPLIN8,CBIN10,CBIN3 MOVE GSWBIN1,CBIN7 LENGTH PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,GSWBIN5 CBE GTWBCD1,=D'10',SIDX160 EOD? ADD GSWBIN5,=W'48' B SIDX150 SIDX160 SUB GSWBIN5,=W'48' MOVE CIXLAST,GSWBIN5 TBF C173FLG,SIDX162 MOVE GSWBIN1,=W'50' MOVE CMEMPT(GSWBIN1),CIXLAST SORRY AGAIN! PERF MEMIX2 SLAVE ARRAY INTO MEMORY SIDX162 PERF RESTIX MASTER INDEX INTO MEMORY PERF CLEAR8 PERF INITIX COLD START STAM+VAR+TRANS? RET PEND EJECT IDXDEL PROC ********** * * DELETE ALL ENTRIES FOR LEV NR. * GTLEVNR, IN * INDEXFILE, STAM, AND VAR FILE * ********** * PERF WAITF,CREMIO PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 LEV INDX GSWBIN4 INDEX BERR XDEL300 DISK ERROR BNOK XDEL300 NOT FOUND * FOUND CBE GSWBIN4,=W'-1',XDEL300 DONT DELETE IF IN SLAVE MOVE GSWBIN7,GSWBIN5 KEEP LEVDEX XDEL100 ADD GSWBIN4,CBIN1 NEXT RECORD TO MOVE CBNL GSWBIN4,CIXFREE,XDEL200 MOVE GSWBIN1,CBIN7 LENGTH PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,GSWBIN4 BNOK XDELNOK SUB GSWBIN4,CBIN1 WHERE TO MOVE PERF RAWRIT,DK07,=D'7',GTREMBUF,GSWBIN4 BNOK XDELNOK ADD GSWBIN4,CBIN1 B XDEL100 * XDEL200 INSERT NEW FREE SUB CIXFREE,CBIN1 PERF RADEL,DK09,GSWBIN5 DELETE VAR RECORD PERF RADEL,DK08,GSWBIN5 MOVE GTREMBUF,=X'99' XCOPY GTREMBUF,CBIN5,CBIN2,GSWBIN7,CBIN0 PERF RAWRIT,DK07,=D'7',GTREMBUF,CIXFREE BNOK XDELNOK PERF RESTIX CLEAR CREMIO CMP CBIN0,CBIN0 OK RET * XDELNOK PERF RESTIX XDEL300 CLEAR CREMIO CMP CBIN1,CBIN0 NOK RET PEND EJECT RESTIX PROC ********************************************** * * ********************************************** MOVE GSWBIN8,CBIN1 MOVE GSWBIN5,=W'48' RIX010 TBF C173FLG,RIX012 MOVE GSWBIN1,=W'50' CBG GSWBIN5,CMEMPT(GSWBIN1),RIX020 RIX012 MOVE GSWBIN1,CBIN7 PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,GSWBIN5 CBE GTWBCD1,=D'10',RIX020 MOVE GSWBCD7,=D'1' XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN0 MOVE CIXINDX(GSWBIN8),GSWBCD7 ADD GSWBIN5,=W'48' ADD GSWBIN8,CBIN1 B RIX010 RIX020 SUB GSWBIN8,CBIN1 RIX055 CBNE CIXINDX(GSWBIN8),=D'0',RIXOK MOVE CIXINDX(GSWBIN8),=D'9999999999' SUB GSWBIN8,CBIN1 BP RIX055 RIXOK CMP CBIN0,CBIN0 RET PEND EJECT INITIX PROC **************************************** * * SET UP INDEXFILE 1. TIME * CHECK IF SYSTEM DEFINED ENTRIES * ARE PRESENT, ELSE INSERT THEM * * NEXT 15 RECORDS, LEV 1-15, POINTS TO * DIFFERENT SYSTEM DEFINED LISTS, * 01 - PRINT LIST CHECK * 02 - PRINT LIST GIRO * 03 - * 04 - * 05 - "HOMELESS" TRANSACTIONS AFTER REORG * 06 - AS 01 * 07 - AS 02 * 08 - AS 03 * 09 - AS 02 * 10 - LIST CONTAINING ALL FREE RECORDS * 11 - PRINT LIST CHECK (CREDITLINES) * 12 - PRINT LIST GIRO (CREDITLINES) * 13 - * 14 - * 15 - NOT USED * **************************************** MOVE GTLEVNR,=D'1' PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 LEV INDEX GSWBIN4 INDEX BERR INITNOK DISK ERROR BOK INITOK * INIT100 * INSERT SYSTEMENTRIES (LEVNR 0 -> 15) PERF IDXINS PERF LEVINT PERF LEVWRT PERF VARINT PERF VARWRT INIT150 ADD GTLEVNR,=D'1' CBNG GTLEVNR,=D'15',INIT100 * INIT300 * INIT TRANSFILE IE LOOP THROUGH FILE * AND SET ALL RECORDS ON FREE LIST INITOK PERF TRINIT BNOK INITNOK PERF RESTIX CMP CBIN0,CBIN0 OK RET INITNOK PERF RESTIX CMP CBIN1,CBIN0 NOK RET PEND EJECT GETNXT PROC ********************************* * * GET LEVNR FOR LEV FOLLOWING GTLEVNR * ********************************* TBF C173FLG,GNXT000 PERF DIVRUT,CBIN1 LYNGBYVERSION OF GETNXT RET GNXT000 PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 BERR GNXTNOK BOK GNXT100 SUB GSWBIN4,CBIN1 NOT FOUND GNXT100 ADD GSWBIN4,CBIN1 CBNL GSWBIN4,CIXFREE,GNXT200 MOVE GSWBIN1,CBIN7 MOVE GTREMBUF,=' ' PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,GSWBIN4 BNOK GNXT200 MOVE GTLEVNR,=D'1' XCOPY GTLEVNR,CBIN1,CBIN5,GTREMBUF,CBIN0 CMP CBIN0,CBIN0 RET GNXT200 GNXTNOK CMP CBIN1,CBIN0 RET PEND EJECT FLEVPRT FRMT PRINT OF LEVERAND. FNL FILLR '*',1 FMEL '9999999999',GTLEVNR FTEXT ' * ' FMEL '99V99V99',CMASKDAT FILLR ' ',2 FMEL '99V99V99',GTLEVDAT FILLR ' ',4 FMEL '9',GTLEVBFO FILLR ' ',2 FMEL 'XXXXXXX',GTLEVGI FILLR ' ',2 FMEL 'XXXXXXXXXX',GTLEVALT FNL FCOPY GTLEVNVN FILLR ' ',2 FCOPY GTLEVADR FILLR ' ',2 FCOPY GTLEVBY FILLR ' ',2 FMEL '9999',GTLEVPNR FILLR ' ',2 FCOPY GTLEVPDI FNL FBF GTDYFLG,FLEV190 FNL FTEXT ']TD:' FILLR ' ',3 FMEL '99V99V99',GTREGF(CBIN10) FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN11) FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN12) FNL FCOPY ='REMIT: ' FMEL '99V99V99',GTREGF(CBIN13) FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN14) FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN15) FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN16) FNL FLEV190 FNL FMEND * * * FFEED FRMT FILLR '1',2 FMEND * * * * END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT REMLEV 820804 NJ «, t00=0x0000, t01=0x0004}
0x0020…0034 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0058 Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVOPR «, t00=0x0000, t01=0x0046}
0x0058…006c Head {h00=0x0010, h01=0x0050, text=» ENTRY LEVRD«, t00=0x0000, t01=0x005c}
0x006c…0080 Head {h00=0x0010, h01=0x0050, text=» ENTRY VARRD«, t00=0x0000, t01=0x0070}
0x0080…0096 Head {h00=0x0012, h01=0x0050, text=» ENTRY VARWRT «, t00=0x0000, t01=0x0084}
0x0096…00ac Head {h00=0x0012, h01=0x0050, text=» ENTRY GETNXT «, t00=0x0000, t01=0x009a}
0x00ac…00c2 Head {h00=0x0012, h01=0x0050, text=» ENTRY IDXGET «, t00=0x0000, t01=0x00b0}
0x00c2…00d8 Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVDEL «, t00=0x0000, t01=0x00c6}
0x00d8…00ee Head {h00=0x0012, h01=0x0050, text=» ENTRY SETIDX «, t00=0x0000, t01=0x00dc}
0x00ee…0104 Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVSPG «, t00=0x0000, t01=0x00f2}
0x0104…011a Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVPRT «, t00=0x0000, t01=0x0108}
0x011a…012e Head {h00=0x0010, h01=0x0050, text=» ENTRY LEVIN«, t00=0x0000, t01=0x011e}
0x012e…0144 Head {h00=0x0012, h01=0x0050, text=» ENTRY RESTIX «, t00=0x0000, t01=0x0132}
0x0144…0158 Head {h00=0x0010, h01=0x0050, text=» EXT DIVRUT «, t00=0x0000, t01=0x0148}
0x0158…016c Head {h00=0x0010, h01=0x0050, text=» EXT FMTREM «, t00=0x0000, t01=0x015c}
0x016c…0180 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x0170}
0x0180…0194 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0000, t01=0x0184}
0x0194…01a8 Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0001, t01=0x0008}
0x01a8…01bc Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0001, t01=0x001c}
0x01bc…01ce Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0001, t01=0x0030}
0x01ce…01e2 Head {h00=0x0010, h01=0x0050, text=» EXT SETKEY «, t00=0x0001, t01=0x0042}
0x01e2…01f4 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0056}
0x01f4…0208 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x0068}
0x0208…021c Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0001, t01=0x007c}
0x021c…0230 Head {h00=0x0010, h01=0x0050, text=» EXT TRREAD «, t00=0x0001, t01=0x0090}
0x0230…0242 Head {h00=0x000e, h01=0x0050, text=» EXT TXTRD«, t00=0x0001, t01=0x00a4}
0x0242…0256 Head {h00=0x0010, h01=0x0050, text=» EXT KBTEST «, t00=0x0001, t01=0x00b6}
0x0256…026a Head {h00=0x0010, h01=0x0050, text=» EXT TRINIT «, t00=0x0001, t01=0x00ca}
0x026a…027e Head {h00=0x0010, h01=0x0050, text=» EXT REPL00 «, t00=0x0001, t01=0x00de}
0x027e…0290 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0001, t01=0x00f2}
0x0290…02a4 Head {h00=0x0010, h01=0x0050, text=» EXT BDTDEL «, t00=0x0001, t01=0x0104}
0x02a4…02b8 Head {h00=0x0010, h01=0x0050, text=» EXT NEWLIN «, t00=0x0001, t01=0x0118}
0x02b8…02cc Head {h00=0x0010, h01=0x0050, text=» EXT MEMIX1 «, t00=0x0001, t01=0x012c}
0x02cc…02e0 Head {h00=0x0010, h01=0x0050, text=» EXT MEMIX2 «, t00=0x0001, t01=0x0140}
0x02e0…02f4 Head {h00=0x0010, h01=0x0050, text=» EXT UPDMEM «, t00=0x0001, t01=0x0154}
0x02f4…0308 Head {h00=0x0010, h01=0x0050, text=» EXT YYMMDD «, t00=0x0001, t01=0x0168}
0x0308…031a Head {h00=0x000e, h01=0x0050, text=» EXT XCOP «, t00=0x0001, t01=0x017c}
0x031a…0332 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x018e}
0x0332…0340 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0016}
0x0340…0352 Head {h00=0x000e, h01=0x0050, text=»LEVIN PROC«, t00=0x0002, t01=0x0024}
0x0352…0386 Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE GETS A LEVERANDOR FROM KBAN «, t00=0x0002, t01=0x0036}
0x0386…0396 Head {h00=0x000c, h01=0x0050, text=»LEVIN00 «, t00=0x0002, t01=0x006a}
0x0396…03b0 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0002, t01=0x007a}
0x03b0…03d2 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,='STRAKSLEV'«, t00=0x0002, t01=0x0094}
0x03d2…03f6 Head {h00=0x0020, h01=0x0050, text=» MOVE GTLEVNR,GTREGF(CBIN2) «, t00=0x0002, t01=0x00b6}
0x03f6…040e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSPGFLG «, t00=0x0002, t01=0x00da}
0x040e…0424 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0002, t01=0x00f2}
0x0424…043c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0002, t01=0x0108}
0x043c…0452 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0002, t01=0x0120}
0x0452…046c Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x0002, t01=0x0136}
0x046c…0480 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0002, t01=0x0150}
0x0480…04ac Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LEVIN95,LEVIN95,LEVIN10 «, t00=0x0002, t01=0x0164}
0x04ac…04be Head {h00=0x000e, h01=0x0050, text=» B LEVIN00«, t00=0x0002, t01=0x0190}
0x04be…04ce Head {h00=0x000c, h01=0x0050, text=»LEVIN10 «, t00=0x0003, t01=0x0012}
0x04ce…04e2 Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x0003, t01=0x0022}
0x04e2…04fe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'30'«, t00=0x0003, t01=0x0036}
0x04fe…0524 Head {h00=0x0022, h01=0x0050, text=» PERF REPL00,GTLEVNVN,GSWBIN7 «, t00=0x0003, t01=0x0052}
0x0524…0540 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'32'«, t00=0x0003, t01=0x0078}
0x0540…0566 Head {h00=0x0022, h01=0x0050, text=» PERF REPL00,GTLEVADR,GSWBIN7 «, t00=0x0003, t01=0x0094}
0x0566…058a Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,GTLEVBY,CBIN20 «, t00=0x0003, t01=0x00ba}
0x058a…05ae Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,GTLEVPDI,CBIN13«, t00=0x0003, t01=0x00de}
0x05ae…05c6 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0003, t01=0x0102}
0x05c6…05d8 Head {h00=0x000e, h01=0x0050, text=» B LEVIN99«, t00=0x0003, t01=0x011a}
0x05d8…05e8 Head {h00=0x000c, h01=0x0050, text=»LEVIN95 «, t00=0x0003, t01=0x012c}
0x05e8…05fc Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x0003, t01=0x013c}
0x05fc…0614 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0003, t01=0x0150}
0x0614…0624 Head {h00=0x000c, h01=0x0050, text=»LEVIN99 «, t00=0x0003, t01=0x0168}
0x0624…0630 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0178}
0x0630…063e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x0184}
0x063e…064c (4, 0, 398) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0004}
0x064c…0660 Head {h00=0x0010, h01=0x0050, text=»LEVOPR PROC «, t00=0x0004, t01=0x0012}
0x0660…0690 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0004, t01=0x0026}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0056}
0x069a…06d0 Head {h00=0x0032, h01=0x0050, text=»* THE PROCEDURE CREATES/CHANGES A LEVERAND R. «, t00=0x0004, t01=0x0060}
0x06d0…06fe Head {h00=0x002a, h01=0x0050, text=»* ALL DISKFILES CONCERNED ARE UPDATED,«, t00=0x0004, t01=0x0096}
0x06fe…072c Head {h00=0x002a, h01=0x0050, text=»* AS WELL AS THE MASTERINDEX IN CORE. «, t00=0x0004, t01=0x00c4}
0x072c…0736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f2}
0x0736…0768 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x00fc}
0x0768…0776 Head {h00=0x000a, h01=0x0050, text=»OPR000«, t00=0x0004, t01=0x012e}
0x0776…0790 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0004, t01=0x013c}
0x0790…07ae Head {h00=0x001a, h01=0x0050, text=» PERF YYMMDD,CMASKDAT «, t00=0x0004, t01=0x0156}
0x07ae…07cc Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVDAT,GSWBCD7«, t00=0x0004, t01=0x0174}
0x07cc…07f0 (5, 0, 400) Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'VEDLIGEH.' «, t00=0x0005, t01=0x0004}
0x07f0…0806 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0005, t01=0x0028}
0x0806…0822 Head {h00=0x0018, h01=0x0050, text=» SET GTDYFLG 1. TIME«, t00=0x0005, t01=0x003e}
0x0822…084a Head {h00=0x0024, h01=0x0050, text=» PERF FMTREM,CBIN3 ATTACH FORMAT«, t00=0x0005, t01=0x005a}
0x084a…086e Head {h00=0x0020, h01=0x0050, text=» PERF SPCLRA WRITE ON SCREEN«, t00=0x0005, t01=0x0082}
0x086e…0894 Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,OPROK,OPROK,OPR010«, t00=0x0005, t01=0x00a6}
0x0894…08a6 Head {h00=0x000e, h01=0x0050, text=» B OPR000 «, t00=0x0005, t01=0x00cc}
0x08a6…08c6 Head {h00=0x001c, h01=0x0050, text=»OPR010 LOOK FOR NUMBER«, t00=0x0005, t01=0x00de}
0x08c6…08f2 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0005, t01=0x00fe}
0x08f2…090e Head {h00=0x0018, h01=0x0050, text=» GSWBIN5 - LEVINDX«, t00=0x0005, t01=0x012a}
0x090e…0928 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 - INDEX«, t00=0x0005, t01=0x0146}
0x0928…0946 Head {h00=0x001a, h01=0x0050, text=» BERR OPRNOK DISKERROR«, t00=0x0005, t01=0x0160}
0x0946…0964 Head {h00=0x001a, h01=0x0050, text=» BNOK OPR020 NOT FOUND«, t00=0x0005, t01=0x017e}
0x0964…097e Head {h00=0x0016, h01=0x0050, text=» PERF LEVRD FOUND «, t00=0x0006, t01=0x000c}
0x097e…0992 Head {h00=0x0010, h01=0x0050, text=» BNOK OPRNOK«, t00=0x0006, t01=0x0026}
0x0992…09b6 Head {h00=0x0020, h01=0x0050, text=»OPR015 FOUND, DISPLAY INFO«, t00=0x0006, t01=0x003a}
0x09b6…09ce Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0006, t01=0x005e}
0x09ce…09e4 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0006, t01=0x0076}
0x09e4…09fe Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x0006, t01=0x008c}
0x09fe…0a12 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0006, t01=0x00a6}
0x0a12…0a3a Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,OPR000,OPR000,OPR030«, t00=0x0006, t01=0x00ba}
0x0a3a…0a4c Head {h00=0x000e, h01=0x0050, text=» B OPR015 «, t00=0x0006, t01=0x00e2}
0x0a4c…0a76 Head {h00=0x0026, h01=0x0050, text=»OPR020 NOT FOUND, DISPLAY BLANKS«, t00=0x0006, t01=0x00f4}
0x0a76…0a98 Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVNR,=D'19',OPR000«, t00=0x0006, t01=0x011e}
0x0a98…0ab0 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0006, t01=0x0140}
0x0ab0…0ac6 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0006, t01=0x0158}
0x0ac6…0ae0 Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x0006, t01=0x016e}
0x0ae0…0af4 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0006, t01=0x0188}
0x0af4…0b1c Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,OPR000,OPR000,OPR030«, t00=0x0007, t01=0x000c}
0x0b1c…0b2e Head {h00=0x000e, h01=0x0050, text=» B OPR020 «, t00=0x0007, t01=0x0034}
0x0b2e…0b36 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0046}
0x0b36…0b60 Head {h00=0x0026, h01=0x0050, text=»OPR030 LEV INFO KEYED IN, INSERT«, t00=0x0007, t01=0x004e}
0x0b60…0b7a Head {h00=0x0016, h01=0x0050, text=»* FIELD CHECK «, t00=0x0007, t01=0x0078}
0x0b7a…0bb0 Head {h00=0x0032, h01=0x0050, text=»* IF BFO = 2,3,7,8 GIRONR MUST BE PRESENT«, t00=0x0007, t01=0x0092}
0x0bb0…0bd2 Head {h00=0x001e, h01=0x0050, text=» CBNE GTLEVGI,=D'0',OPR040«, t00=0x0007, t01=0x00c8}
0x0bd2…0bf0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTLEVBFO«, t00=0x0007, t01=0x00ea}
0x0bf0…0c08 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0007, t01=0x0108}
0x0c08…0c38 Head {h00=0x002c, h01=0x0050, text=» OPR040,OPR035,OPR035,OPR040,OPR040, C«, t00=0x0007, t01=0x0120}
0x0c38…0c5e Head {h00=0x0022, h01=0x0050, text=» OPR040,OPR035,OPR035,OPR040 «, t00=0x0007, t01=0x0150}
0x0c5e…0c70 Head {h00=0x000e, h01=0x0050, text=» B OPR040 «, t00=0x0007, t01=0x0176}
0x0c70…0c7e Head {h00=0x000a, h01=0x0050, text=»OPR035«, t00=0x0007, t01=0x0188}
0x0c7e…0ca2 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW4,CBIN5 'FEJL 5'«, t00=0x0008, t01=0x0008}
0x0ca2…0cba Head {h00=0x0014, h01=0x0050, text=» PERF SPERR NOK «, t00=0x0008, t01=0x002c}
0x0cba…0ccc Head {h00=0x000e, h01=0x0050, text=» B OPR015 «, t00=0x0008, t01=0x0044}
0x0ccc…0cda Head {h00=0x000a, h01=0x0050, text=»OPR040«, t00=0x0008, t01=0x0056}
0x0cda…0d06 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0008, t01=0x0064}
0x0d06…0d1a Head {h00=0x0010, h01=0x0050, text=» BERR OPRNOK«, t00=0x0008, t01=0x0090}
0x0d1a…0d2e Head {h00=0x0010, h01=0x0050, text=» BNOK OPR050«, t00=0x0008, t01=0x00a4}
0x0d2e…0d4a Head {h00=0x0018, h01=0x0050, text=» ALREADY EXISTING «, t00=0x0008, t01=0x00b8}
0x0d4a…0d6e Head {h00=0x0020, h01=0x0050, text=» PERF LEVWRT WRITE STAM-INFO«, t00=0x0008, t01=0x00d4}
0x0d6e…0d82 Head {h00=0x0010, h01=0x0050, text=» BNOK OPRNOK«, t00=0x0008, t01=0x00f8}
0x0d82…0d94 Head {h00=0x000e, h01=0x0050, text=» B OPR000 «, t00=0x0008, t01=0x010c}
0x0d94…0db0 Head {h00=0x0018, h01=0x0050, text=»OPR050 CREATE NEW «, t00=0x0008, t01=0x011e}
0x0db0…0dd6 Head {h00=0x0022, h01=0x0050, text=» PERF IDXINS INSERT NEW INDEX «, t00=0x0008, t01=0x013a}
0x0dd6…0dea Head {h00=0x0010, h01=0x0050, text=» BNOK OPR000«, t00=0x0008, t01=0x0160}
0x0dea…0dfe Head {h00=0x0010, h01=0x0050, text=» PERF LEVWRT«, t00=0x0008, t01=0x0174}
0x0dfe…0e12 Head {h00=0x0010, h01=0x0050, text=» BNOK OPR070«, t00=0x0008, t01=0x0188}
0x0e12…0e26 Head {h00=0x0010, h01=0x0050, text=» PERF VARINT«, t00=0x0009, t01=0x000c}
0x0e26…0e54 Head {h00=0x002a, h01=0x0050, text=» PERF VARWRT WRITE VAR-LEV-INFORMATION«, t00=0x0009, t01=0x0020}
0x0e54…0e68 Head {h00=0x0010, h01=0x0050, text=» BOK OPR000 «, t00=0x0009, t01=0x004e}
0x0e68…0e70 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0062}
0x0e70…0e90 Head {h00=0x001c, h01=0x0050, text=»OPR070 SOMETHING WRONG«, t00=0x0009, t01=0x006a}
0x0e90…0ec0 Head {h00=0x002c, h01=0x0050, text=» PERF IDXDEL DELETE LEV-ENTRY COMPLETELY«, t00=0x0009, t01=0x008a}
0x0ec0…0ed2 Head {h00=0x000e, h01=0x0050, text=» B OPR000 «, t00=0x0009, t01=0x00ba}
0x0ed2…0ee0 Head {h00=0x000a, h01=0x0050, text=»OPRNOK«, t00=0x0009, t01=0x00cc}
0x0ee0…0ef4 Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x0009, t01=0x00da}
0x0ef4…0f14 Head {h00=0x001c, h01=0x0050, text=» CMP CBIN1,CBIN0 NOT OK «, t00=0x0009, t01=0x00ee}
0x0f14…0f20 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x010e}
0x0f20…0f2e Head {h00=0x000a, h01=0x0050, text=»OPROK «, t00=0x0009, t01=0x011a}
0x0f2e…0f42 Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x0009, t01=0x0128}
0x0f42…0f5a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x013c}
0x0f5a…0f66 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0154}
0x0f66…0f74 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0160}
0x0f74…0f82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x016e}
0x0f82…0f96 Head {h00=0x0010, h01=0x0050, text=»LEVDEL PROC «, t00=0x0009, t01=0x017c}
0x0f96…0fb0 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0009, t01=0x0190}
0x0fb0…0fbe Head {h00=0x000a, h01=0x0050, text=»DEL000«, t00=0x000a, t01=0x001a}
0x0fbe…0fe2 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SLETNING ' «, t00=0x000a, t01=0x0028}
0x0fe2…0ff8 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x000a, t01=0x004c}
0x0ff8…1014 Head {h00=0x0018, h01=0x0050, text=» SET GTDYFLG 1. TIME«, t00=0x000a, t01=0x0062}
0x1014…103c Head {h00=0x0024, h01=0x0050, text=» PERF FMTREM,CBIN3 ATTACH FORMAT«, t00=0x000a, t01=0x007e}
0x103c…1060 Head {h00=0x0020, h01=0x0050, text=» PERF SPCLRA WRITE ON SCREEN«, t00=0x000a, t01=0x00a6}
0x1060…1086 Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,DELOK,DELOK,DEL010«, t00=0x000a, t01=0x00ca}
0x1086…1098 Head {h00=0x000e, h01=0x0050, text=» B DEL000 «, t00=0x000a, t01=0x00f0}
0x1098…10b4 Head {h00=0x0018, h01=0x0050, text=»DEL010 LOOK FOR NO«, t00=0x000a, t01=0x0102}
0x10b4…10ee Head {h00=0x0036, h01=0x0050, text=» CBL GTLEVNR,=D'19',DELNOK DONT DELETE SYSTEMLEV'S«, t00=0x000a, t01=0x011e}
0x10ee…111a Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x000a, t01=0x0158}
0x111a…1134 Head {h00=0x0016, h01=0x0050, text=» BERR DELNOK ERROR«, t00=0x000a, t01=0x0184}
0x1134…1152 Head {h00=0x001a, h01=0x0050, text=» BNOK DEL000 NOT FOUND«, t00=0x000b, t01=0x000e}
0x1152…1162 Head {h00=0x000c, h01=0x0050, text=» FOUND«, t00=0x000b, t01=0x002c}
0x1162…1186 Head {h00=0x0020, h01=0x0050, text=» CHECK IF DELETION ALLOWED«, t00=0x000b, t01=0x003c}
0x1186…11b0 Head {h00=0x0026, h01=0x0050, text=» I.E. REFERENCES TO TRANSFILE ? «, t00=0x000b, t01=0x0060}
0x11b0…11e8 Head {h00=0x0034, h01=0x0050, text=» CBE GSWBIN4,=W'-1',DELNOK FOUND IN SLAVEARRAY ?«, t00=0x000b, t01=0x008a}
0x11e8…1206 Head {h00=0x001a, h01=0x0050, text=» IF SO, DONT DELETE «, t00=0x000b, t01=0x00c2}
0x1206…1226 Head {h00=0x001c, h01=0x0050, text=» PERF LEVRD READ STAMOPL«, t00=0x000b, t01=0x00e0}
0x1226…123a Head {h00=0x0010, h01=0x0050, text=» BNOK DELNOK«, t00=0x000b, t01=0x0100}
0x123a…126a Head {h00=0x002c, h01=0x0050, text=» PERF VARRD READ VARIABLE INFO TO CHECK «, t00=0x000b, t01=0x0114}
0x126a…1292 Head {h00=0x0024, h01=0x0050, text=» BNOK DELNOK IF DELETION ALLOWED«, t00=0x000b, t01=0x0144}
0x1292…12a8 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x000b, t01=0x016c}
0x12a8…12e0 Head {h00=0x0034, h01=0x0050, text=» CBNE GTTRKEY,CBIN0,DEL020 ANY TRANS REFERENCE? «, t00=0x000b, t01=0x0182}
0x12e0…12fa Head {h00=0x0016, h01=0x0050, text=» CLEAR GTSWFLAG NO«, t00=0x000c, t01=0x002a}
0x12fa…130c Head {h00=0x000e, h01=0x0050, text=» B DEL030 «, t00=0x000c, t01=0x0044}
0x130c…131a Head {h00=0x000a, h01=0x0050, text=»DEL020«, t00=0x000c, t01=0x0056}
0x131a…1344 Head {h00=0x0026, h01=0x0050, text=» CBNE GTREGF(CBIN16),=D'0',DELNOK «, t00=0x000c, t01=0x0064}
0x1344…1372 Head {h00=0x002a, h01=0x0050, text=» PERF BDTDEL ALLOWED WHEN ZERO-AMOUNT «, t00=0x000c, t01=0x008e}
0x1372…1386 Head {h00=0x0010, h01=0x0050, text=» BNOK DELNOK«, t00=0x000c, t01=0x00bc}
0x1386…139e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x000c, t01=0x00d0}
0x139e…13ac Head {h00=0x000a, h01=0x0050, text=»DEL030«, t00=0x000c, t01=0x00e8}
0x13ac…13c2 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x000c, t01=0x00f6}
0x13c2…13d8 Head {h00=0x0012, h01=0x0050, text=» SET GTSPGFLG «, t00=0x000c, t01=0x010c}
0x13d8…13f2 Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x000c, t01=0x0122}
0x13f2…1406 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x000c, t01=0x013c}
0x1406…141e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSPGFLG «, t00=0x000c, t01=0x0150}
0x141e…1446 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,DEL000,DEL000,DEL050«, t00=0x000c, t01=0x0168}
0x1446…1458 Head {h00=0x000e, h01=0x0050, text=» B DEL030 «, t00=0x000c, t01=0x0190}
0x1458…1466 Head {h00=0x000a, h01=0x0050, text=»DEL050«, t00=0x000d, t01=0x0012}
0x1466…1492 Head {h00=0x0028, h01=0x0050, text=» TBT GTSWFLAG,DELOK ANY TRANSACTIONS«, t00=0x000d, t01=0x0020}
0x1492…14b2 Head {h00=0x001c, h01=0x0050, text=» PERF IDXDEL DELETE LEV «, t00=0x000d, t01=0x004c}
0x14b2…14c2 Head {h00=0x000c, h01=0x0050, text=» B DELOK«, t00=0x000d, t01=0x006c}
0x14c2…14d0 Head {h00=0x000a, h01=0x0050, text=»DELNOK«, t00=0x000d, t01=0x007c}
0x14d0…14e4 Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x000d, t01=0x008a}
0x14e4…14fc Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x000d, t01=0x009e}
0x14fc…1508 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00b6}
0x1508…1516 Head {h00=0x000a, h01=0x0050, text=»DELOK «, t00=0x000d, t01=0x00c2}
0x1516…152a Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x000d, t01=0x00d0}
0x152a…1542 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x000d, t01=0x00e4}
0x1542…154e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00fc}
0x154e…155c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0108}
0x155c…1564 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0116}
0x1564…1572 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x011e}
0x1572…1584 Head {h00=0x000e, h01=0x0050, text=»LEVRD PROC«, t00=0x000d, t01=0x012c}
0x1584…1596 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x013e}
0x1596…15a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0150}
0x15a0…15d2 Head {h00=0x002e, h01=0x0050, text=»* READ AND UNPACK LEVERAND INFORMATION«, t00=0x000d, t01=0x015a}
0x15d2…15f8 Head {h00=0x0022, h01=0x0050, text=»* FOR LEVERAND NO GTLEVNR «, t00=0x000d, t01=0x018c}
0x15f8…1602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0022}
0x1602…1614 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x002c}
0x1614…1640 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x000e, t01=0x003e}
0x1640…165e Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 - LEV INDX «, t00=0x000e, t01=0x006a}
0x165e…1678 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 - INDEX«, t00=0x000e, t01=0x0088}
0x1678…1698 Head {h00=0x001c, h01=0x0050, text=» BNOK LEVR090 NOT FOUND «, t00=0x000e, t01=0x00a2}
0x1698…16c2 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN4,=W'128' RECORD SIZE «, t00=0x000e, t01=0x00c2}
0x16c2…16de Head {h00=0x0018, h01=0x0050, text=» MOVE GTREMBUF,=' '«, t00=0x000e, t01=0x00ec}
0x16de…1716 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK08,=D'8',GTREMBUF,GSWBIN4,GSWBIN5«, t00=0x000e, t01=0x0108}
0x1716…172c Head {h00=0x0012, h01=0x0050, text=» BNOK LEVR080 «, t00=0x000e, t01=0x0140}
0x172c…1758 Head {h00=0x0028, h01=0x0050, text=» CBNE GTWBCD1,=D'4',LEVR020 NO DATA?«, t00=0x000e, t01=0x0156}
0x1758…176c Head {h00=0x0010, h01=0x0050, text=» PERF LEVINT«, t00=0x000e, t01=0x0182}
0x176c…177e Head {h00=0x000e, h01=0x0050, text=» B LEVR050«, t00=0x000f, t01=0x0008}
0x177e…178e Head {h00=0x000c, h01=0x0050, text=»LEVR020 «, t00=0x000f, t01=0x001a}
0x178e…17ac Head {h00=0x001a, h01=0x0050, text=»* UNPACK LEV INFO «, t00=0x000f, t01=0x002a}
0x17ac…17d6 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD7,GTLEVNR STORE LEVNR «, t00=0x000f, t01=0x0048}
0x17d6…1808 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 «, t00=0x000f, t01=0x0072}
0x1808…182c Head {h00=0x0020, h01=0x0050, text=» CBE GTLEVNR,GSWBCD7,LEVR030«, t00=0x000f, t01=0x00a4}
0x182c…184a Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD7 «, t00=0x000f, t01=0x00c8}
0x184a…185c Head {h00=0x000e, h01=0x0050, text=» B LEVR080«, t00=0x000f, t01=0x00e6}
0x185c…186c Head {h00=0x000c, h01=0x0050, text=»LEVR030 «, t00=0x000f, t01=0x00f8}
0x186c…18a4 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVNVN,=W'0',=W'30',GTREMBUF,=W'6' «, t00=0x000f, t01=0x0108}
0x18a4…18dc Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVADR,=W'0',=W'32',GTREMBUF,=W'36'«, t00=0x000f, t01=0x0140}
0x18dc…1914 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVBY,=W'0',=W'20',GTREMBUF,=W'68' «, t00=0x000f, t01=0x0178}
0x1914…194c Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVPNR,=W'0',=W'3',GTREMBUF,=W'88' «, t00=0x0010, t01=0x0020}
0x194c…1984 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVPDI,=W'0',=W'13',GTREMBUF,=W'91'«, t00=0x0010, t01=0x0058}
0x1984…19a0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'30'«, t00=0x0010, t01=0x0090}
0x19a0…19c6 Head {h00=0x0022, h01=0x0050, text=» PERF REPL00,GTLEVNVN,GSWBIN7 «, t00=0x0010, t01=0x00ac}
0x19c6…19e2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'32'«, t00=0x0010, t01=0x00d2}
0x19e2…1a08 Head {h00=0x0022, h01=0x0050, text=» PERF REPL00,GTLEVADR,GSWBIN7 «, t00=0x0010, t01=0x00ee}
0x1a08…1a2c Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,GTLEVBY,CBIN20 «, t00=0x0010, t01=0x0114}
0x1a2c…1a50 Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,GTLEVPDI,CBIN13«, t00=0x0010, t01=0x0138}
0x1a50…1a88 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVBFO,=W'0',=W'1',GTREMBUF,=W'104'«, t00=0x0010, t01=0x015c}
0x1a88…1ac0 (17, 0, 400) Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVGI,=W'0',=W'4',GTREMBUF,=W'105' «, t00=0x0011, t01=0x0004}
0x1ac0…1af8 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVALT,=W'0',=W'6',GTREMBUF,=W'109'«, t00=0x0011, t01=0x003c}
0x1af8…1b1e Head {h00=0x0022, h01=0x0050, text=» MOVE GTLEVDAT,=D'1' SET SIGN «, t00=0x0011, t01=0x0074}
0x1b1e…1b56 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVDAT,=W'1',=W'3',GTREMBUF,=W'115'«, t00=0x0011, t01=0x009a}
0x1b56…1b74 Head {h00=0x001a, h01=0x0050, text=» PERF YYMMDD,GTLEVDAT «, t00=0x0011, t01=0x00d2}
0x1b74…1b92 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVDAT,GSWBCD7«, t00=0x0011, t01=0x00f0}
0x1b92…1ba2 Head {h00=0x000c, h01=0x0050, text=»LEVR050 «, t00=0x0011, t01=0x010e}
0x1ba2…1bbe Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0011, t01=0x011e}
0x1bbe…1bca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x013a}
0x1bca…1bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0146}
0x1bd4…1be4 Head {h00=0x000c, h01=0x0050, text=»LEVR080 «, t00=0x0011, t01=0x0150}
0x1be4…1bf4 Head {h00=0x000c, h01=0x0050, text=»LEVR090 «, t00=0x0011, t01=0x0160}
0x1bf4…1c10 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0011, t01=0x0170}
0x1c10…1c1c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x018c}
0x1c1c…1c2a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0008}
0x1c2a…1c38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0016}
0x1c38…1c4c Head {h00=0x0010, h01=0x0050, text=»LEVWRT PROC «, t00=0x0012, t01=0x0024}
0x1c4c…1c5e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0038}
0x1c5e…1c8e Head {h00=0x002c, h01=0x0050, text=»* PACK AND WRITE LEV INFORMATION FOR«, t00=0x0012, t01=0x004a}
0x1c8e…1cb0 Head {h00=0x001e, h01=0x0050, text=»* LEVERAND NR GTLEVNR «, t00=0x0012, t01=0x007a}
0x1cb0…1cc2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x009c}
0x1cc2…1cdc Head {h00=0x0016, h01=0x0050, text=» ADD GTLEVNR,=D'0'«, t00=0x0012, t01=0x00ae}
0x1cdc…1cf6 Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CREMIO«, t00=0x0012, t01=0x00c8}
0x1cf6…1d24 Head {h00=0x002a, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN10 «, t00=0x0012, t01=0x00e2}
0x1d24…1d44 Head {h00=0x001c, h01=0x0050, text=» BERR LEVW090 DISK ERROR«, t00=0x0012, t01=0x0110}
0x1d44…1d64 Head {h00=0x001c, h01=0x0050, text=» BNOK LEVW090 NOT FOUND «, t00=0x0012, t01=0x0130}
0x1d64…1d80 Head {h00=0x0018, h01=0x0050, text=» MOVE GTREMBUF,=' '«, t00=0x0012, t01=0x0150}
0x1d80…1db2 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN0,CBIN6,GTLEVNR,CBIN0 «, t00=0x0012, t01=0x016c}
0x1db2…1dea Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'6',=W'30',GTLEVNVN,=W'0' «, t00=0x0013, t01=0x000e}
0x1dea…1e22 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'36',=W'32',GTLEVADR,=W'0'«, t00=0x0013, t01=0x0046}
0x1e22…1e5a Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'68',=W'20',GTLEVBY,=W'0' «, t00=0x0013, t01=0x007e}
0x1e5a…1e92 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'88',=W'3',GTLEVPNR,=W'0' «, t00=0x0013, t01=0x00b6}
0x1e92…1eca Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'91',=W'13',GTLEVPDI,=W'0'«, t00=0x0013, t01=0x00ee}
0x1eca…1f02 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'104',=W'1',GTLEVBFO,=W'0'«, t00=0x0013, t01=0x0126}
0x1f02…1f3a Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'105',=W'4',GTLEVGI,=W'0' «, t00=0x0013, t01=0x015e}
0x1f3a…1f72 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'109',=W'6',GTLEVALT,=W'0'«, t00=0x0014, t01=0x0008}
0x1f72…1f90 Head {h00=0x001a, h01=0x0050, text=» PERF YYMMDD,CMASKDAT «, t00=0x0014, t01=0x0040}
0x1f90…1fae Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVDAT,GSWBCD7«, t00=0x0014, t01=0x005e}
0x1fae…1fe6 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'115',=W'3',GTLEVDAT,=W'1'«, t00=0x0014, t01=0x007c}
0x1fe6…2018 Head {h00=0x002e, h01=0x0050, text=» PERF RAWRIT,DK08,=D'8',GTREMBUF,GSWBIN10 «, t00=0x0014, t01=0x00b4}
0x2018…202e Head {h00=0x0012, h01=0x0050, text=» BNOK LEVW080 «, t00=0x0014, t01=0x00e6}
0x202e…2044 Head {h00=0x0012, h01=0x0050, text=» CLEAR CREMIO «, t00=0x0014, t01=0x00fc}
0x2044…2060 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0014, t01=0x0112}
0x2060…206c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x012e}
0x206c…207c Head {h00=0x000c, h01=0x0050, text=»LEVW080 «, t00=0x0014, t01=0x013a}
0x207c…208c Head {h00=0x000c, h01=0x0050, text=»LEVW090 «, t00=0x0014, t01=0x014a}
0x208c…20a2 Head {h00=0x0012, h01=0x0050, text=» CLEAR CREMIO «, t00=0x0014, t01=0x015a}
0x20a2…20be Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0014, t01=0x0170}
0x20be…20ca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x018c}
0x20ca…20d8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x0008}
0x20d8…20e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0016}
0x20e6…20fa Head {h00=0x0010, h01=0x0050, text=»LEVINT PROC «, t00=0x0015, t01=0x0024}
0x20fa…210c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0015, t01=0x0038}
0x210c…2116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004a}
0x2116…2142 Head {h00=0x0028, h01=0x0050, text=»* INITIATE STAM INFORMATION FOR «, t00=0x0015, t01=0x0054}
0x2142…2164 Head {h00=0x001e, h01=0x0050, text=»* LEVERAND NR GTLEVNR «, t00=0x0015, t01=0x0080}
0x2164…216e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a2}
0x216e…2180 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0015, t01=0x00ac}
0x2180…218a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00be}
0x218a…21a6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNVN,=' '«, t00=0x0015, t01=0x00c8}
0x21a6…21c2 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVADR,=' '«, t00=0x0015, t01=0x00e4}
0x21c2…21de Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVBY,=' ' «, t00=0x0015, t01=0x0100}
0x21de…21fa Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVPNR,=D'0'«, t00=0x0015, t01=0x011c}
0x21fa…2216 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVPDI,=' '«, t00=0x0015, t01=0x0138}
0x2216…2232 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVBFO,=D'0'«, t00=0x0015, t01=0x0154}
0x2232…224e Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVGI,=D'0' «, t00=0x0015, t01=0x0170}
0x224e…226a Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVALT,=D'0'«, t00=0x0015, t01=0x018c}
0x226a…2288 Head {h00=0x001a, h01=0x0050, text=» PERF YYMMDD,CMASKDAT «, t00=0x0016, t01=0x0018}
0x2288…22a6 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVDAT,GSWBCD7«, t00=0x0016, t01=0x0036}
0x22a6…22b2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0054}
0x22b2…22c0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x0060}
0x22c0…22ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x006e}
0x22ce…22e2 Head {h00=0x0010, h01=0x0050, text=»LEVSPG PROC «, t00=0x0016, t01=0x007c}
0x22e2…2316 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0016, t01=0x0090}
0x2316…2320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c4}
0x2320…2348 Head {h00=0x0024, h01=0x0050, text=»* PROCEDURE FOR FORESP RGSEL P] «, t00=0x0016, t01=0x00ce}
0x2348…235e Head {h00=0x0012, h01=0x0050, text=»* LEVERAND RER«, t00=0x0016, t01=0x00f6}
0x235e…2368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x010c}
0x2368…239c Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0016, t01=0x0116}
0x239c…23ac Head {h00=0x000c, h01=0x0050, text=»LSPG000 «, t00=0x0016, t01=0x014a}
0x23ac…23ce Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,='FORESPG. '«, t00=0x0016, t01=0x015a}
0x23ce…23e4 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0016, t01=0x017c}
0x23e4…2402 (23, 0, 400) Head {h00=0x001a, h01=0x0050, text=» SET GTSPGFLG 1. TIME «, t00=0x0017, t01=0x0004}
0x2402…241e Head {h00=0x0018, h01=0x0050, text=» SET GTDYFLG FORESPG«, t00=0x0017, t01=0x0022}
0x241e…244c Head {h00=0x002a, h01=0x0050, text=» TBF GTCYFLG,LSPG005 I CYKEL/STABEL ? «, t00=0x0017, t01=0x003e}
0x244c…2476 Head {h00=0x0026, h01=0x0050, text=» TBT GTBDTFLG,LSPG003 YES, BUNDT ?«, t00=0x0017, t01=0x006c}
0x2476…249c Head {h00=0x0022, h01=0x0050, text=» TBF GTSTRFLG,LSPG005 STRAKS ?«, t00=0x0017, t01=0x0096}
0x249c…24ac Head {h00=0x000c, h01=0x0050, text=»LSPG003 «, t00=0x0017, t01=0x00bc}
0x24ac…24ea Head {h00=0x003a, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN2) CYKEL/STABEL,STRAKS/BUNDT «, t00=0x0017, t01=0x00cc}
0x24ea…24fc Head {h00=0x000e, h01=0x0050, text=» B LSPG010«, t00=0x0017, t01=0x010a}
0x24fc…250c Head {h00=0x000c, h01=0x0050, text=»LSPG005 «, t00=0x0017, t01=0x011c}
0x250c…2534 Head {h00=0x0024, h01=0x0050, text=» PERF FMTREM,CBIN3 ATTACH FORMAT«, t00=0x0017, t01=0x012c}
0x2534…2558 Head {h00=0x0020, h01=0x0050, text=» PERF SPCLRA WRITE ON SCREEN«, t00=0x0017, t01=0x0154}
0x2558…2582 Head {h00=0x0026, h01=0x0050, text=» IB SPBINW2,LSPGOK,LSPGOK,LSPG010 «, t00=0x0017, t01=0x0178}
0x2582…2594 Head {h00=0x000e, h01=0x0050, text=» B LSPG000«, t00=0x0018, t01=0x0012}
0x2594…25a4 Head {h00=0x000c, h01=0x0050, text=»LSPG010 «, t00=0x0018, t01=0x0024}
0x25a4…25c6 Head {h00=0x001e, h01=0x0050, text=» PERF LEVRD READ STAMINFO «, t00=0x0018, t01=0x0034}
0x25c6…25dc Head {h00=0x0012, h01=0x0050, text=» BNOK LSPGNOK «, t00=0x0018, t01=0x0056}
0x25dc…2602 Head {h00=0x0022, h01=0x0050, text=» PERF VARRD READ VARIABLE INFO«, t00=0x0018, t01=0x006c}
0x2602…2618 Head {h00=0x0012, h01=0x0050, text=» BNOK LSPGNOK «, t00=0x0018, t01=0x0092}
0x2618…2628 Head {h00=0x000c, h01=0x0050, text=»LSPG015 «, t00=0x0018, t01=0x00a8}
0x2628…2640 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0018, t01=0x00b8}
0x2640…2664 Head {h00=0x0020, h01=0x0050, text=» CLEAR GTDYFLG DISPLAY INFO «, t00=0x0018, t01=0x00d0}
0x2664…267e Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x0018, t01=0x00f4}
0x267e…2692 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0018, t01=0x010e}
0x2692…26be Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LSPG000,LSPG000,LSPG100 «, t00=0x0018, t01=0x0122}
0x26be…26d0 Head {h00=0x000e, h01=0x0050, text=» B LSPG015«, t00=0x0018, t01=0x014e}
0x26d0…26fe Head {h00=0x002a, h01=0x0050, text=»LSPG100 OK CONTINUE TO VARIABLE INFO«, t00=0x0018, t01=0x0160}
0x26fe…271c Head {h00=0x001a, h01=0x0050, text=» TBT GTVDUFLG,LSPG200 «, t00=0x0018, t01=0x018e}
0x271c…2744 Head {h00=0x0024, h01=0x0050, text=» PERF FMTREM,CBIN4 VARIABLE INFO«, t00=0x0019, t01=0x001c}
0x2744…2758 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0019, t01=0x0044}
0x2758…2784 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LSPG015,LSPG015,LSPG200 «, t00=0x0019, t01=0x0058}
0x2784…2796 Head {h00=0x000e, h01=0x0050, text=» B LSPG100«, t00=0x0019, t01=0x0084}
0x2796…27a6 Head {h00=0x000c, h01=0x0050, text=»LSPG200 «, t00=0x0019, t01=0x0096}
0x27a6…27d2 Head {h00=0x0028, h01=0x0050, text=» CBE GTTRKEY,CBIN0,LSPG500 NO TRANS «, t00=0x0019, t01=0x00a6}
0x27d2…27e6 Head {h00=0x0010, h01=0x0050, text=»* READ TRANS«, t00=0x0019, t01=0x00d2}
0x27e6…281a Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY POINTER TO FIRST TRANS«, t00=0x0019, t01=0x00e6}
0x281a…282a Head {h00=0x000c, h01=0x0050, text=»LSPG205 «, t00=0x0019, t01=0x011a}
0x282a…2842 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0019, t01=0x012a}
0x2842…285e Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x0019, t01=0x0142}
0x285e…2874 Head {h00=0x0012, h01=0x0050, text=» BNOK LSPG500 «, t00=0x0019, t01=0x015e}
0x2874…28a4 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN15) MOVE TEXTNR«, t00=0x0019, t01=0x0174}
0x28a4…28c6 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN8,CBIN0,LSPG210«, t00=0x001a, t01=0x0014}
0x28c6…28ee Head {h00=0x0024, h01=0x0050, text=» PERF TXTRD,GSWBIN8 AND READ IT «, t00=0x001a, t01=0x0036}
0x28ee…28fe Head {h00=0x000c, h01=0x0050, text=»LSPG210 «, t00=0x001a, t01=0x005e}
0x28fe…2918 Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN5«, t00=0x001a, t01=0x006e}
0x2918…292c Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x001a, t01=0x0088}
0x292c…2958 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LSPG500,LSPG500,LSPG300 «, t00=0x001a, t01=0x009c}
0x2958…296a Head {h00=0x000e, h01=0x0050, text=» B LSPG210«, t00=0x001a, t01=0x00c8}
0x296a…297a Head {h00=0x000c, h01=0x0050, text=»LSPG300 «, t00=0x001a, t01=0x00da}
0x297a…299e Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x001a, t01=0x00ea}
0x299e…29c2 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBIN8,CBIN0,LSPG205 «, t00=0x001a, t01=0x010e}
0x29c2…29d2 Head {h00=0x000c, h01=0x0050, text=»LSPG500 «, t00=0x001a, t01=0x0132}
0x29d2…29ee Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,LSPG510«, t00=0x001a, t01=0x0142}
0x29ee…2a0a Head {h00=0x0018, h01=0x0050, text=» TBT GTBDTFLG,LSPGOK«, t00=0x001a, t01=0x015e}
0x2a0a…2a26 Head {h00=0x0018, h01=0x0050, text=» TBT GTSTRFLG,LSPGOK«, t00=0x001a, t01=0x017a}
0x2a26…2a36 Head {h00=0x000c, h01=0x0050, text=»LSPG510 «, t00=0x001b, t01=0x0008}
0x2a36…2a5a Head {h00=0x0020, h01=0x0050, text=» PERF GETNXT GET NEXT LEVNR «, t00=0x001b, t01=0x0018}
0x2a5a…2a70 Head {h00=0x0012, h01=0x0050, text=» BNOK LSPG000 «, t00=0x001b, t01=0x003c}
0x2a70…2a82 Head {h00=0x000e, h01=0x0050, text=» B LSPG010«, t00=0x001b, t01=0x0052}
0x2a82…2a92 Head {h00=0x000c, h01=0x0050, text=»LSPGNOK «, t00=0x001b, t01=0x0064}
0x2a92…2aa0 Head {h00=0x000a, h01=0x0050, text=»LSPGOK«, t00=0x001b, t01=0x0074}
0x2aa0…2aac Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0082}
0x2aac…2aba Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x008e}
0x2aba…2ac8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x009c}
0x2ac8…2adc Head {h00=0x0010, h01=0x0050, text=»LEVPRT PROC «, t00=0x001b, t01=0x00aa}
0x2adc…2aee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001b, t01=0x00be}
0x2aee…2b0c Head {h00=0x001a, h01=0x0050, text=»* PRINT LEVERANDS «, t00=0x001b, t01=0x00d0}
0x2b0c…2b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ee}
0x2b16…2b28 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001b, t01=0x00f8}
0x2b28…2b46 Head {h00=0x001a, h01=0x0050, text=» TBT GTGTPFLG,LPRT000 «, t00=0x001b, t01=0x010a}
0x2b46…2b62 Head {h00=0x0018, h01=0x0050, text=» TBF GTLPFLG,LPRTRET«, t00=0x001b, t01=0x0128}
0x2b62…2b72 Head {h00=0x000c, h01=0x0050, text=»LPRT000 «, t00=0x001b, t01=0x0144}
0x2b72…2b88 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x001b, t01=0x0154}
0x2b88…2ba2 Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN6«, t00=0x001b, t01=0x016a}
0x2ba2…2bb8 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTZERO «, t00=0x001b, t01=0x0184}
0x2bb8…2bee Head {h00=0x0032, h01=0x0050, text=» MOVE GTBSUM1,=D'51' PHYSICAL HEIGTH OF A PAGE«, t00=0x001c, t01=0x000a}
0x2bee…2c02 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x001c, t01=0x0040}
0x2c02…2c32 Head {h00=0x002c, h01=0x0050, text=» CBNE SPBINW2,CBIN3,LPRTRET NOT <SLUT>? «, t00=0x001c, t01=0x0054}
0x2c32…2c56 Head {h00=0x0020, h01=0x0050, text=» CBNE GTLEVNR,=D'1',LPRT015 «, t00=0x001c, t01=0x0084}
0x2c56…2c6a Head {h00=0x0010, h01=0x0050, text=» SET GTZERO «, t00=0x001c, t01=0x00a8}
0x2c6a…2c7a Head {h00=0x000c, h01=0x0050, text=»LPRT015 «, t00=0x001c, t01=0x00bc}
0x2c7a…2c9e Head {h00=0x0020, h01=0x0050, text=» CBNL GTPRTFRA,=D'1',LPRT020«, t00=0x001c, t01=0x00cc}
0x2c9e…2cba Head {h00=0x0018, h01=0x0050, text=» MOVE GTPRTFRA,=D'1'«, t00=0x001c, t01=0x00f0}
0x2cba…2cca Head {h00=0x000c, h01=0x0050, text=»LPRT020 «, t00=0x001c, t01=0x010c}
0x2cca…2cf2 Head {h00=0x0024, h01=0x0050, text=» CBNL GTPRTTIL,GTPRTFRA,LPRT030 «, t00=0x001c, t01=0x011c}
0x2cf2…2d26 Head {h00=0x0030, h01=0x0050, text=» MOVE GTPRTTIL,=D'9999999998' LAST TO PRINT «, t00=0x001c, t01=0x0144}
0x2d26…2d36 Head {h00=0x000c, h01=0x0050, text=»LPRT030 «, t00=0x001c, t01=0x0178}
0x2d36…2d4e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001c, t01=0x0188}
0x2d4e…2d62 Head {h00=0x0010, h01=0x0050, text=» SET GTDYFLG«, t00=0x001d, t01=0x0010}
0x2d62…2d86 Head {h00=0x0020, h01=0x0050, text=» CBE GTLEVBFO,=D'1',LPRT040 «, t00=0x001d, t01=0x0024}
0x2d86…2daa Head {h00=0x0020, h01=0x0050, text=» CLEAR GTDYFLG NOT VAR INFO «, t00=0x001d, t01=0x0048}
0x2daa…2dba Head {h00=0x000c, h01=0x0050, text=»LPRT040 «, t00=0x001d, t01=0x006c}
0x2dba…2dd6 Head {h00=0x0018, h01=0x0050, text=» TBF GTLPFLG,LPRT045«, t00=0x001d, t01=0x007c}
0x2dd6…2dfc Head {h00=0x0022, h01=0x0050, text=» EDWRT DSHCLP,FFEED FORM FEED «, t00=0x001d, t01=0x0098}
0x2dfc…2e0c Head {h00=0x000c, h01=0x0050, text=»LPRT045 «, t00=0x001d, t01=0x00be}
0x2e0c…2e2a Head {h00=0x001a, h01=0x0050, text=» PERF YYMMDD,GTPRTDAT «, t00=0x001d, t01=0x00ce}
0x2e2a…2e5a Head {h00=0x002c, h01=0x0050, text=» MOVE GTPRTDAT,GSWBCD7 GTPRTDAT: YYMMDD «, t00=0x001d, t01=0x00ec}
0x2e5a…2e90 Head {h00=0x0032, h01=0x0050, text=» MOVE GTLEVNR,GTPRTFRA SET FIRST NO. TO PRINT «, t00=0x001d, t01=0x011c}
0x2e90…2eaa Head {h00=0x0016, h01=0x0050, text=» SUB GTLEVNR,=D'1'«, t00=0x001d, t01=0x0152}
0x2eaa…2eba Head {h00=0x000c, h01=0x0050, text=»LPRT049 «, t00=0x001d, t01=0x016c}
0x2eba…2ece Head {h00=0x0010, h01=0x0050, text=» PERF GETNXT«, t00=0x001d, t01=0x017c}
0x2ece…2ee4 Head {h00=0x0012, h01=0x0050, text=» BNOK LPRTRET «, t00=0x001d, t01=0x0190}
0x2ee4…2f0a Head {h00=0x0022, h01=0x0050, text=» CBG GTLEVNR,GTPRTTIL,LPRTRET «, t00=0x001e, t01=0x0016}
0x2f0a…2f1e Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x001e, t01=0x003c}
0x2f1e…2f3e Head {h00=0x001c, h01=0x0050, text=» BNOK LPRT110 NOT FOUND «, t00=0x001e, t01=0x0050}
0x2f3e…2f5c Head {h00=0x001a, h01=0x0050, text=» PERF YYMMDD,GTLEVDAT «, t00=0x001e, t01=0x0070}
0x2f5c…2f82 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD7,GTPRTDAT,LPRT100 «, t00=0x001e, t01=0x008e}
0x2f82…2f9e Head {h00=0x0018, h01=0x0050, text=» TBF GTDYFLG,LPRT080«, t00=0x001e, t01=0x00b4}
0x2f9e…2fc0 Head {h00=0x001e, h01=0x0050, text=» SUB GTBSUM1,=D'3' 7 LINES«, t00=0x001e, t01=0x00d0}
0x2fc0…2fd4 Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x001e, t01=0x00f2}
0x2fd4…2fea Head {h00=0x0012, h01=0x0050, text=» BNOK LPRT110 «, t00=0x001e, t01=0x0106}
0x2fea…2ffa Head {h00=0x000c, h01=0x0050, text=»LPRT080 «, t00=0x001e, t01=0x011c}
0x2ffa…301c Head {h00=0x001e, h01=0x0050, text=» SUB GTBSUM1,=D'4' 4 LINES«, t00=0x001e, t01=0x012c}
0x301c…3038 Head {h00=0x0018, h01=0x0050, text=» TBT GTLPFLG,LPRT095«, t00=0x001e, t01=0x014e}
0x3038…305a Head {h00=0x001e, h01=0x0050, text=» EDWRT DSHCGP,FLEVPRT GTP «, t00=0x001e, t01=0x016a}
0x305a…3088 Head {h00=0x002a, h01=0x0050, text=» CBG GTBSUM1,=D'8',LPRT100 MORE ROOM? «, t00=0x001e, t01=0x018c}
0x3088…30a6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,GTBSUM1 «, t00=0x001f, t01=0x002a}
0x30a6…30d4 Head {h00=0x002a, h01=0x0050, text=» PERF NEWLIN,GSWBIN7 SKIP REST OF PAGE«, t00=0x001f, t01=0x0048}
0x30d4…30f0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'51'«, t00=0x001f, t01=0x0076}
0x30f0…3102 Head {h00=0x000e, h01=0x0050, text=» B LPRT100«, t00=0x001f, t01=0x0092}
0x3102…3112 Head {h00=0x000c, h01=0x0050, text=»LPRT095 «, t00=0x001f, t01=0x00a4}
0x3112…3132 Head {h00=0x001c, h01=0x0050, text=» EDWRT DSHCLP,FLEVPRT LP«, t00=0x001f, t01=0x00b4}
0x3132…3154 Head {h00=0x001e, h01=0x0050, text=» CBG GTBSUM1,=D'8',LPRT100«, t00=0x001f, t01=0x00d4}
0x3154…3170 Head {h00=0x0018, h01=0x0050, text=» EDWRT DSHCLP,FFEED «, t00=0x001f, t01=0x00f6}
0x3170…318c Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'51'«, t00=0x001f, t01=0x0112}
0x318c…31a6 Head {h00=0x0016, h01=0x0050, text=»LPRT100 TO NEXT «, t00=0x001f, t01=0x012e}
0x31a6…31c2 Head {h00=0x0018, h01=0x0050, text=» TBF GTDYFLG,LPRT110«, t00=0x001f, t01=0x0148}
0x31c2…31de Head {h00=0x0018, h01=0x0050, text=» TBF GTZERO,LPRT110 «, t00=0x001f, t01=0x0164}
0x31de…3200 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN12),=D'0'«, t00=0x001f, t01=0x0180}
0x3200…322e Head {h00=0x002a, h01=0x0050, text=» PERF VARWRT REWRITE WITH SALE YTD = 0«, t00=0x0020, t01=0x0012}
0x322e…3244 Head {h00=0x0012, h01=0x0050, text=» BNOK LPRTRET «, t00=0x0020, t01=0x0040}
0x3244…3254 Head {h00=0x000c, h01=0x0050, text=»LPRT110 «, t00=0x0020, t01=0x0056}
0x3254…3268 Head {h00=0x0010, h01=0x0050, text=» PERF KBTEST«, t00=0x0020, t01=0x0066}
0x3268…327e Head {h00=0x0012, h01=0x0050, text=» BNOK LPRT049 «, t00=0x0020, t01=0x007a}
0x327e…328e Head {h00=0x000c, h01=0x0050, text=»LPRTRET «, t00=0x0020, t01=0x0090}
0x328e…329a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0020, t01=0x00a0}
0x329a…32a8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0020, t01=0x00ac}
0x32a8…32b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00ba}
0x32b6…32c8 Head {h00=0x000e, h01=0x0050, text=»VARRD PROC«, t00=0x0020, t01=0x00c8}
0x32c8…32da Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0020, t01=0x00da}
0x32da…32e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ec}
0x32e4…3316 Head {h00=0x002e, h01=0x0050, text=»* READ AND UNPACK VARIABLE INFORMATION«, t00=0x0020, t01=0x00f6}
0x3316…333c Head {h00=0x0022, h01=0x0050, text=»* FOR LEVERAND NR GTLEVNR «, t00=0x0020, t01=0x0128}
0x333c…3346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x014e}
0x3346…3358 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0020, t01=0x0158}
0x3358…3362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016a}
0x3362…338e Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0020, t01=0x0174}
0x338e…33ac Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 LEV INDEX«, t00=0x0021, t01=0x0010}
0x33ac…33c6 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x0021, t01=0x002e}
0x33c6…33e6 Head {h00=0x001c, h01=0x0050, text=» BERR VARR090 DISK ERROR«, t00=0x0021, t01=0x0048}
0x33e6…3406 Head {h00=0x001c, h01=0x0050, text=» BNOK VARR090 NOT FOUND «, t00=0x0021, t01=0x0068}
0x3406…3416 Head {h00=0x000c, h01=0x0050, text=» FOUND«, t00=0x0021, t01=0x0088}
0x3416…343e Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN4,=W'49' RECORD SIZE«, t00=0x0021, t01=0x0098}
0x343e…345a Head {h00=0x0018, h01=0x0050, text=» MOVE GTREMBUF,=' '«, t00=0x0021, t01=0x00c0}
0x345a…3492 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK09,=D'9',GTREMBUF,GSWBIN4,GSWBIN5«, t00=0x0021, t01=0x00dc}
0x3492…34a8 Head {h00=0x0012, h01=0x0050, text=» BNOK VARR080 «, t00=0x0021, t01=0x0114}
0x34a8…34ca Head {h00=0x001e, h01=0x0050, text=» CBE GTWBCD1,=D'4',VARR040«, t00=0x0021, t01=0x012a}
0x34ca…34e8 Head {h00=0x001a, h01=0x0050, text=»* UNPACK VAR INFO «, t00=0x0021, t01=0x014c}
0x34e8…3512 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD7,GTLEVNR STORE LEVNR «, t00=0x0021, t01=0x016a}
0x3512…3544 (34, 0, 400) Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 «, t00=0x0022, t01=0x0004}
0x3544…3568 Head {h00=0x0020, h01=0x0050, text=» CBE GTLEVNR,GSWBCD7,VARR030«, t00=0x0022, t01=0x0036}
0x3568…3598 Head {h00=0x002c, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD7 NOT CORRECT RECORD«, t00=0x0022, t01=0x005a}
0x3598…35aa Head {h00=0x000e, h01=0x0050, text=» B VARR080«, t00=0x0022, t01=0x008a}
0x35aa…35ba Head {h00=0x000c, h01=0x0050, text=»VARR030 «, t00=0x0022, t01=0x009c}
0x35ba…35ee Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD7,=D'1' INITIATE RECEIVING FIELD«, t00=0x0022, t01=0x00ac}
0x35ee…3620 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN4,CBIN3,GTREMBUF,CBIN6 «, t00=0x0022, t01=0x00e0}
0x3620…364e Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN10),GSWBCD7 UDB DATO «, t00=0x0022, t01=0x0112}
0x364e…3680 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN0,CBIN7,GTREMBUF,CBIN9 «, t00=0x0022, t01=0x0140}
0x3680…36ae Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN11),GSWBCD7 UDB BELOB«, t00=0x0022, t01=0x0172}
0x36ae…36e0 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN0,CBIN7,GTREMBUF,CBIN16«, t00=0x0023, t01=0x0010}
0x36e0…370c Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN12),GSWBCD7 UDB ]TD«, t00=0x0023, t01=0x0042}
0x370c…3742 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'0',=W'7',GTREMBUF,=W'23'«, t00=0x0023, t01=0x006e}
0x3742…3772 Head {h00=0x002c, h01=0x0050, text=» MOVE GTREGF(CBIN14),GSWBCD7 VENT DEBET «, t00=0x0023, t01=0x00a4}
0x3772…37a8 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'0',=W'7',GTREMBUF,=W'30'«, t00=0x0023, t01=0x00d4}
0x37a8…37d8 Head {h00=0x002c, h01=0x0050, text=» MOVE GTREGF(CBIN15),GSWBCD7 VENT KREDIT«, t00=0x0023, t01=0x010a}
0x37d8…380a Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN16),GSWBCD7 SKYLDIGT BEL.«, t00=0x0023, t01=0x013a}
0x380a…3834 Head {h00=0x0026, h01=0x0050, text=» ADD GTREGF(CBIN16),GTREGF(CBIN14)«, t00=0x0023, t01=0x016c}
0x3834…3858 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,=D'1' SET SIGN«, t00=0x0024, t01=0x0008}
0x3858…388e Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'4',=W'3',GTREMBUF,=W'37'«, t00=0x0024, t01=0x002c}
0x388e…38bc Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN13),GSWBCD7 VAL DATO «, t00=0x0024, t01=0x0062}
0x38bc…38f2 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTTRKEY,=W'0',=W'2',GTREMBUF,=W'47'«, t00=0x0024, t01=0x0090}
0x38f2…3904 Head {h00=0x000e, h01=0x0050, text=» B VARR050«, t00=0x0024, t01=0x00c6}
0x3904…3914 Head {h00=0x000c, h01=0x0050, text=»VARR040 «, t00=0x0024, t01=0x00d8}
0x3914…3928 Head {h00=0x0010, h01=0x0050, text=» PERF VARINT«, t00=0x0024, t01=0x00e8}
0x3928…3938 Head {h00=0x000c, h01=0x0050, text=»VARR050 «, t00=0x0024, t01=0x00fc}
0x3938…3954 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0024, t01=0x010c}
0x3954…3960 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0128}
0x3960…396a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0134}
0x396a…397a Head {h00=0x000c, h01=0x0050, text=»VARR080 «, t00=0x0024, t01=0x013e}
0x397a…398a Head {h00=0x000c, h01=0x0050, text=»VARR090 «, t00=0x0024, t01=0x014e}
0x398a…39a6 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0024, t01=0x015e}
0x39a6…39b2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x017a}
0x39b2…39c0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x0186}
0x39c0…39ce (37, 0, 398) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0004}
0x39ce…39e2 Head {h00=0x0010, h01=0x0050, text=»VARWRT PROC «, t00=0x0025, t01=0x0012}
0x39e2…39f4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x0026}
0x39f4…3a2a Head {h00=0x0032, h01=0x0050, text=»* PACK AND WRITE VARIABLE INFORMATION FOR «, t00=0x0025, t01=0x0038}
0x3a2a…3a4c Head {h00=0x001e, h01=0x0050, text=»* LEVERAND NO GTLEVNR «, t00=0x0025, t01=0x006e}
0x3a4c…3a5e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x0090}
0x3a5e…3a78 Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CREMIO«, t00=0x0025, t01=0x00a2}
0x3a78…3aa6 Head {h00=0x002a, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN10 «, t00=0x0025, t01=0x00bc}
0x3aa6…3abc Head {h00=0x0012, h01=0x0050, text=» BNOK VARW090 «, t00=0x0025, t01=0x00ea}
0x3abc…3ad8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTREMBUF,=' '«, t00=0x0025, t01=0x0100}
0x3ad8…3af2 Head {h00=0x0016, h01=0x0050, text=» ADD GTLEVNR,=D'0'«, t00=0x0025, t01=0x011c}
0x3af2…3b24 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN0,CBIN6,GTLEVNR,CBIN0 «, t00=0x0025, t01=0x0136}
0x3b24…3b52 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD6,GTREGF(CBIN10) UDB DATO «, t00=0x0025, t01=0x0168}
0x3b52…3b6e Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GSWBCD6«, t00=0x0026, t01=0x0008}
0x3b6e…3ba0 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN6,CBIN3,GSWBCD7,CBIN4 «, t00=0x0026, t01=0x0024}
0x3ba0…3bce Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN11) UDB BELOB«, t00=0x0026, t01=0x0056}
0x3bce…3c00 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN9,CBIN7,GSWBCD7,CBIN0 «, t00=0x0026, t01=0x0084}
0x3c00…3c2c Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN12) UDB ]TD«, t00=0x0026, t01=0x00b6}
0x3c2c…3c5e Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN16,CBIN7,GSWBCD7,CBIN0«, t00=0x0026, t01=0x00e2}
0x3c5e…3c8e Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN14) VENT DEBET «, t00=0x0026, t01=0x0114}
0x3c8e…3cc4 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'23',=W'7',GSWBCD7,=W'0'«, t00=0x0026, t01=0x0144}
0x3cc4…3cf4 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN15) VENT KREDIT«, t00=0x0026, t01=0x017a}
0x3cf4…3d2a Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'30',=W'7',GSWBCD7,=W'0'«, t00=0x0027, t01=0x001a}
0x3d2a…3d58 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN13) VAL DATO «, t00=0x0027, t01=0x0050}
0x3d58…3d8e Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'37',=W'3',GSWBCD7,=W'4'«, t00=0x0027, t01=0x007e}
0x3d8e…3dc4 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'47',=W'2',GTTRKEY,=W'0'«, t00=0x0027, t01=0x00b4}
0x3dc4…3df6 Head {h00=0x002e, h01=0x0050, text=» PERF RAWRIT,DK09,=D'9',GTREMBUF,GSWBIN10 «, t00=0x0027, t01=0x00ea}
0x3df6…3e0c Head {h00=0x0012, h01=0x0050, text=» BNOK VARW090 «, t00=0x0027, t01=0x011c}
0x3e0c…3e22 Head {h00=0x0012, h01=0x0050, text=» CLEAR CREMIO «, t00=0x0027, t01=0x0132}
0x3e22…3e3e Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0027, t01=0x0148}
0x3e3e…3e4a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x0164}
0x3e4a…3e5a Head {h00=0x000c, h01=0x0050, text=»VARW090 «, t00=0x0027, t01=0x0170}
0x3e5a…3e70 Head {h00=0x0012, h01=0x0050, text=» CLEAR CREMIO «, t00=0x0027, t01=0x0180}
0x3e70…3e8c Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0028, t01=0x0008}
0x3e8c…3e98 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x0024}
0x3e98…3ea6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x0030}
0x3ea6…3eb4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x003e}
0x3eb4…3ec8 Head {h00=0x0010, h01=0x0050, text=»VARINT PROC «, t00=0x0028, t01=0x004c}
0x3ec8…3eda Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0028, t01=0x0060}
0x3eda…3ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0072}
0x3ee4…3f0c Head {h00=0x0024, h01=0x0050, text=»* INITIATE VARIABLE INFO FOR«, t00=0x0028, t01=0x007c}
0x3f0c…3f2e Head {h00=0x001e, h01=0x0050, text=»* LEVERAND NR GTLEVNR «, t00=0x0028, t01=0x00a4}
0x3f2e…3f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00c6}
0x3f38…3f4a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0028, t01=0x00d0}
0x3f4a…3f76 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN10),=D'0' UDB DATO «, t00=0x0028, t01=0x00e2}
0x3f76…3fa2 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN11),=D'0' UDB BELOB«, t00=0x0028, t01=0x010e}
0x3fa2…3fcc Head {h00=0x0026, h01=0x0050, text=» MOVE GTREGF(CBIN12),=D'0' UDB ]TD«, t00=0x0028, t01=0x013a}
0x3fcc…3ffa Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN14),=D'0' VENT DEBET «, t00=0x0028, t01=0x0164}
0x3ffa…4028 (41, 0, 400) Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN15),=D'0' VENT KREDIT«, t00=0x0029, t01=0x0004}
0x4028…404a Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN16),=D'0'«, t00=0x0029, t01=0x0032}
0x404a…4076 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN13),=D'0' VAL DATO «, t00=0x0029, t01=0x0054}
0x4076…40a0 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTRKEY,CBIN0 TRANS POINTER «, t00=0x0029, t01=0x0080}
0x40a0…40ac Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0029, t01=0x00aa}
0x40ac…40ba Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x00b6}
0x40ba…40c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00c4}
0x40c8…40ee Head {h00=0x0022, h01=0x0050, text=»IDXGET PROC LEVNR,INDX,LEVDEX «, t00=0x0029, t01=0x00d2}
0x40ee…4122 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0029, t01=0x00f8}
0x4122…412c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x012c}
0x412c…415e Head {h00=0x002e, h01=0x0050, text=»* PROCEDURE FOR SEARCHING IN INDEXFILE FOR«, t00=0x0029, t01=0x0136}
0x415e…4176 Head {h00=0x0014, h01=0x0050, text=»* A GIVE LEVNO. «, t00=0x0029, t01=0x0168}
0x4176…4190 Head {h00=0x0016, h01=0x0050, text=»* LYNGBY SPECIAL: «, t00=0x0029, t01=0x0180}
0x4190…41d6 Head {h00=0x0042, h01=0x0050, text=»* THIS KOMMUNE HAS A SPECIAL FORM FOR INDEXFILE, AS THEY HAVE «, t00=0x002a, t01=0x000a}
0x41d6…421a Head {h00=0x0040, h01=0x0050, text=»* A SLAVEFILE, CONTAINING THE ADDITIONS SINCE LAST <ADM 46>.«, t00=0x002a, t01=0x0050}
0x421a…4258 Head {h00=0x003a, h01=0x0050, text=»* IF A LEVNR IS FOUND IN THIS SLAVEFILE,<INDX> WILL BE«, t00=0x002a, t01=0x0094}
0x4258…426c Head {h00=0x0010, h01=0x0050, text=»* SET TO -1.«, t00=0x002a, t01=0x00d2}
0x426c…4276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e6}
0x4276…42aa Head {h00=0x0030, h01=0x0050, text=»* IF FOUND - CONDITION REGISTER IS SET TO OK«, t00=0x002a, t01=0x00f0}
0x42aa…42e4 Head {h00=0x0036, h01=0x0050, text=»* INDX RELATIVE RECORD IN INDEXFILE«, t00=0x002a, t01=0x0124}
0x42e4…4318 Head {h00=0x0030, h01=0x0050, text=»* LEVDEX POINTER INTO STAM/VAR «, t00=0x002a, t01=0x015e}
0x4318…4322 (43, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0004}
0x4322…4360 Head {h00=0x003a, h01=0x0050, text=»* IF NOT FOUND - CONDITION REGISTER IS SET TO NOK = 1 «, t00=0x002b, t01=0x000e}
0x4360…4396 Head {h00=0x0032, h01=0x0050, text=»* INDX INDEX TO PLACE TO INSERT «, t00=0x002b, t01=0x004c}
0x4396…43b6 Head {h00=0x001c, h01=0x0050, text=»* LEVDEX 0 «, t00=0x002b, t01=0x0082}
0x43b6…43c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a2}
0x43c0…43fc Head {h00=0x0038, h01=0x0050, text=»* IF DISKERR - CONDITION REGISTER IS SET TO ERR = 2«, t00=0x002b, t01=0x00ac}
0x43fc…441a Head {h00=0x001a, h01=0x0050, text=»* INDEX 0«, t00=0x002b, t01=0x00e8}
0x441a…443a Head {h00=0x001c, h01=0x0050, text=»* LEVDEX =0«, t00=0x002b, t01=0x0106}
0x443a…4444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0126}
0x4444…4478 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x002b, t01=0x0130}
0x4478…4488 Head {h00=0x000c, h01=0x0050, text=»IGET000 «, t00=0x002b, t01=0x0164}
0x4488…44ac Head {h00=0x0020, h01=0x0050, text=» TBF C173FLG,IGET008 LYNGBY?«, t00=0x002b, t01=0x0174}
0x44ac…44d2 Head {h00=0x0022, h01=0x0050, text=» PERF MEMIX1,LEVNR,INDX,LEVDEX«, t00=0x002c, t01=0x0008}
0x44d2…44e6 Head {h00=0x0010, h01=0x0050, text=» BOK IGET400«, t00=0x002c, t01=0x002e}
0x44e6…44f6 Head {h00=0x000c, h01=0x0050, text=»IGET008 «, t00=0x002c, t01=0x0042}
0x44f6…4518 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 GROUP «, t00=0x002c, t01=0x0052}
0x4518…453a Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 RECORD«, t00=0x002c, t01=0x0074}
0x453a…454a Head {h00=0x000c, h01=0x0050, text=»IGET010 «, t00=0x002c, t01=0x0096}
0x454a…4566 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN4,=W'48' «, t00=0x002c, t01=0x00a6}
0x4566…4592 Head {h00=0x0028, h01=0x0050, text=» ADD GSWBIN5,CBIN1 SEARCH FOR GROUP «, t00=0x002c, t01=0x00c2}
0x4592…45c8 Head {h00=0x0032, h01=0x0050, text=» CBG GSWBIN4,CIXLAST,IGET020 RETURN NOT FOUND «, t00=0x002c, t01=0x00ee}
0x45c8…45f4 Head {h00=0x0028, h01=0x0050, text=» CBL CIXINDX(GSWBIN5),LEVNR,IGET010 «, t00=0x002c, t01=0x0124}
0x45f4…4610 Head {h00=0x0018, h01=0x0050, text=» B IGET030 TRY NEXT «, t00=0x002c, t01=0x0150}
0x4610…462c Head {h00=0x0018, h01=0x0050, text=»IGET020 NOT FOUND «, t00=0x002c, t01=0x016c}
0x462c…4656 Head {h00=0x0026, h01=0x0050, text=» MOVE INDX,CIXFREE PLACE TO INSERT«, t00=0x002c, t01=0x0188}
0x4656…4670 Head {h00=0x0016, h01=0x0050, text=» MOVE LEVDEX,CBIN0«, t00=0x002d, t01=0x0022}
0x4670…468c Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x002d, t01=0x003c}
0x468c…4698 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x0058}
0x4698…46a0 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x0064}
0x46a0…46be Head {h00=0x001a, h01=0x0050, text=»IGET030 GROUP FOUND «, t00=0x002d, t01=0x006c}
0x46be…46e0 Head {h00=0x001e, h01=0x0050, text=» LEVNR WITHIN THIS GROUP«, t00=0x002d, t01=0x008a}
0x46e0…46f8 Head {h00=0x0014, h01=0x0050, text=» GROUP GSWBIN5«, t00=0x002d, t01=0x00ac}
0x46f8…4714 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,=W'48' «, t00=0x002d, t01=0x00c4}
0x4714…4742 Head {h00=0x002a, h01=0x0050, text=»* FIND INDEX, USING BINARY SEARCH «, t00=0x002d, t01=0x00e0}
0x4742…4762 Head {h00=0x001c, h01=0x0050, text=» INITIATE BINARY SERCH«, t00=0x002d, t01=0x010e}
0x4762…4794 Head {h00=0x002e, h01=0x0050, text=» MOVE GTSCHLOW,CBIN1 LOWER LIMIT- GTSCHLOW«, t00=0x002d, t01=0x012e}
0x4794…47c8 Head {h00=0x0030, h01=0x0050, text=» MOVE GTSCHHGH,=W'48' UPPER LIMIT - GTSCHHGH«, t00=0x002d, t01=0x0160}
0x47c8…47d8 (46, 0, 400) Head {h00=0x000c, h01=0x0050, text=»IGET110 «, t00=0x002e, t01=0x0004}
0x47d8…4816 Head {h00=0x003a, h01=0x0050, text=» CBL GTSCHHGH,GTSCHLOW,IGETNOK1 UPPER<LOWER, NOT FOUND«, t00=0x002e, t01=0x0014}
0x4816…4842 Head {h00=0x0028, h01=0x0050, text=» MOVE GTSCHMID,GTSCHLOW INDEX=LOWER «, t00=0x002e, t01=0x0052}
0x4842…486a Head {h00=0x0024, h01=0x0050, text=» ADD GTSCHMID,GTSCHHGH ADD UPPER«, t00=0x002e, t01=0x007e}
0x486a…4894 Head {h00=0x0026, h01=0x0050, text=» DIV GTSCHMID,CBIN2 FIND MIDPOINT «, t00=0x002e, t01=0x00a6}
0x4894…48bc Head {h00=0x0024, h01=0x0050, text=»* READ LEV INFO, TO GSWBCD7 «, t00=0x002e, t01=0x00d0}
0x48bc…48f0 Head {h00=0x0030, h01=0x0050, text=» ADD GSWBIN4,GTSCHMID GSWBIN4=RECORD NUMBER «, t00=0x002e, t01=0x00f8}
0x48f0…4910 Head {h00=0x001c, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 SIZE«, t00=0x002e, t01=0x012c}
0x4910…492c Head {h00=0x0018, h01=0x0050, text=» MOVE GTREMBUF,=' '«, t00=0x002e, t01=0x014c}
0x492c…4964 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN5,GSWBIN4«, t00=0x002e, t01=0x0168}
0x4964…497a Head {h00=0x0012, h01=0x0050, text=» BNOK IGET300 «, t00=0x002f, t01=0x0010}
0x497a…499e Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,=D'1' SET SIGN«, t00=0x002f, t01=0x0026}
0x499e…49d0 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN0 «, t00=0x002f, t01=0x004a}
0x49d0…4a06 Head {h00=0x0032, h01=0x0050, text=» SUB GSWBIN4,GTSCHMID GSWBIN4= START OF SECTOR«, t00=0x002f, t01=0x007c}
0x4a06…4a20 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBCD7,LEVNR«, t00=0x002f, t01=0x00b2}
0x4a20…4a3a Head {h00=0x0016, h01=0x0050, text=» BE IGET200 FOUND «, t00=0x002f, t01=0x00cc}
0x4a3a…4a56 Head {h00=0x0018, h01=0x0050, text=» BL IGET130 LOOK UP «, t00=0x002f, t01=0x00e6}
0x4a56…4a8e Head {h00=0x0034, h01=0x0050, text=» MOVE GTSCHHGH,GTSCHMID MOVE MIDPOINT TO DOWNPER«, t00=0x002f, t01=0x0102}
0x4a8e…4aac Head {h00=0x001a, h01=0x0050, text=» SUB GTSCHHGH,CBIN1 -1«, t00=0x002f, t01=0x013a}
0x4aac…4abe Head {h00=0x000e, h01=0x0050, text=» B IGET110«, t00=0x002f, t01=0x0158}
0x4abe…4ace Head {h00=0x000c, h01=0x0050, text=»IGET130 «, t00=0x002f, t01=0x016a}
0x4ace…4b04 Head {h00=0x0032, h01=0x0050, text=» MOVE GTSCHLOW,GTSCHMID MOVE MIDPOINT TO LOWER«, t00=0x002f, t01=0x017a}
0x4b04…4b22 Head {h00=0x001a, h01=0x0050, text=» ADD GTSCHLOW,CBIN1 +1«, t00=0x0030, t01=0x0020}
0x4b22…4b34 Head {h00=0x000e, h01=0x0050, text=» B IGET110«, t00=0x0030, t01=0x003e}
0x4b34…4b4c Head {h00=0x0014, h01=0x0050, text=»IGET200 FOUND«, t00=0x0030, t01=0x0050}
0x4b4c…4b80 Head {h00=0x0030, h01=0x0050, text=» ADD GSWBIN4,GTSCHMID GSWBIN4=RECORD NUMBER «, t00=0x0030, t01=0x0068}
0x4b80…4ba4 Head {h00=0x0020, h01=0x0050, text=» MOVE INDX,GSWBIN4 SET INDEX«, t00=0x0030, t01=0x009c}
0x4ba4…4bd6 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBIN5,CBIN0,CBIN2,GTREMBUF,CBIN5 «, t00=0x0030, t01=0x00c0}
0x4bd6…4c00 Head {h00=0x0026, h01=0x0050, text=» MOVE LEVDEX,GSWBIN5 SET LEV INDX «, t00=0x0030, t01=0x00f2}
0x4c00…4c22 Head {h00=0x001e, h01=0x0050, text=» CMP CBIN0,CBIN0 RETURN OK«, t00=0x0030, t01=0x011c}
0x4c22…4c2e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x013e}
0x4c2e…4c36 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x014a}
0x4c36…4c46 Head {h00=0x000c, h01=0x0050, text=»IGETNOK1«, t00=0x0030, t01=0x0152}
0x4c46…4c7c Head {h00=0x0032, h01=0x0050, text=» ADD GSWBIN4,GTSCHLOW RECORD NUMBER FOR INSERT«, t00=0x0030, t01=0x0162}
0x4c7c…4c96 Head {h00=0x0016, h01=0x0050, text=» MOVE LEVDEX,CBIN0«, t00=0x0031, t01=0x0008}
0x4c96…4cc0 Head {h00=0x0026, h01=0x0050, text=» MOVE INDX,GSWBIN4 PLACE TO INSERT«, t00=0x0031, t01=0x0022}
0x4cc0…4cdc Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0031, t01=0x004c}
0x4cdc…4ce8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x0068}
0x4ce8…4d08 Head {h00=0x001c, h01=0x0050, text=»IGET300 SET COND = ERR«, t00=0x0031, t01=0x0074}
0x4d08…4d22 Head {h00=0x0016, h01=0x0050, text=» MOVE LEVDEX,CBIN0«, t00=0x0031, t01=0x0094}
0x4d22…4d3a Head {h00=0x0014, h01=0x0050, text=» MOVE INDX,CBIN0«, t00=0x0031, t01=0x00ae}
0x4d3a…4d52 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0031, t01=0x00c6}
0x4d52…4d62 Head {h00=0x000c, h01=0x0050, text=»IGET400 «, t00=0x0031, t01=0x00de}
0x4d62…4d6e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x00ee}
0x4d6e…4d7c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0031, t01=0x00fa}
0x4d7c…4d8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0108}
0x4d8a…4d9e Head {h00=0x0010, h01=0x0050, text=»IDXINS PROC «, t00=0x0031, t01=0x0116}
0x4d9e…4db0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x012a}
0x4db0…4dba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x013c}
0x4dba…4de4 Head {h00=0x0026, h01=0x0050, text=»* INSERT GTLEVNR IN INDEXFILE «, t00=0x0031, t01=0x0146}
0x4de4…4dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0170}
0x4dee…4e00 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x017a}
0x4e00…4e2e Head {h00=0x002a, h01=0x0050, text=» CBG CIXFREE,CIXLAST,XINSNOK2 NO ROOM «, t00=0x0031, t01=0x018c}
0x4e2e…4e48 Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CREMIO«, t00=0x0032, t01=0x002a}
0x4e48…4e74 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0032, t01=0x0044}
0x4e74…4e92 Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 LEV INDEX«, t00=0x0032, t01=0x0070}
0x4e92…4eac Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x0032, t01=0x008e}
0x4eac…4ece Head {h00=0x001e, h01=0x0050, text=» BERR XINSNOK1 DISK ERROR «, t00=0x0032, t01=0x00a8}
0x4ece…4ef4 Head {h00=0x0022, h01=0x0050, text=» BOK XINSNOK1 ALREADY PRESENT «, t00=0x0032, t01=0x00ca}
0x4ef4…4f14 Head {h00=0x001c, h01=0x0050, text=»* NOT FOUND, INSERT «, t00=0x0032, t01=0x00f0}
0x4f14…4f30 Head {h00=0x0018, h01=0x0050, text=» TBF C173FLG,XINS000«, t00=0x0032, t01=0x0110}
0x4f30…4f54 Head {h00=0x0020, h01=0x0050, text=» CBNG GTLEVNR,=D'15',XINS000«, t00=0x0032, t01=0x012c}
0x4f54…4f7e Head {h00=0x0026, h01=0x0050, text=» PERF UPDMEM UPDATE SLAVEARRAY ON «, t00=0x0032, t01=0x0150}
0x4f7e…4fa4 Head {h00=0x0022, h01=0x0050, text=» BOK XINSOK DISK AND IN MEMORY«, t00=0x0032, t01=0x017a}
0x4fa4…4fb6 Head {h00=0x000e, h01=0x0050, text=» B XINSNOK«, t00=0x0033, t01=0x0010}
0x4fb6…4fc6 Head {h00=0x000c, h01=0x0050, text=»XINS000 «, t00=0x0033, t01=0x0022}
0x4fc6…4ff8 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN8,GSWBIN4 PLACE FOR INSERTION «, t00=0x0033, t01=0x0032}
0x4ff8…5014 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x0033, t01=0x0064}
0x5014…504c Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,CIXFREE«, t00=0x0033, t01=0x0080}
0x504c…5062 Head {h00=0x0012, h01=0x0050, text=» BNOK XINSNOK «, t00=0x0033, t01=0x00b8}
0x5062…5094 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBIN7,CBIN0,CBIN2,GTREMBUF,CBIN5 «, t00=0x0033, t01=0x00ce}
0x5094…50c0 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN4,CIXFREE START OF LOOP «, t00=0x0033, t01=0x0100}
0x50c0…50ea Head {h00=0x0026, h01=0x0050, text=» ADD CIXFREE,CBIN1 NEW FIRST FREE «, t00=0x0033, t01=0x012c}
0x50ea…5104 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0033, t01=0x0156}
0x5104…510e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0170}
0x510e…511e Head {h00=0x000c, h01=0x0050, text=»XINS100 «, t00=0x0033, t01=0x017a}
0x511e…514e Head {h00=0x002c, h01=0x0050, text=» CBL GSWBIN4,GSWBIN8,XINS200 ALL MOVED? «, t00=0x0033, t01=0x018a}
0x514e…515c Head {h00=0x000a, h01=0x0050, text=» NO.«, t00=0x0034, t01=0x002a}
0x515c…5178 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x0034, t01=0x0038}
0x5178…51b0 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,GSWBIN4«, t00=0x0034, t01=0x0054}
0x51b0…51c6 Head {h00=0x0012, h01=0x0050, text=» BNOK XINSNOK «, t00=0x0034, t01=0x008c}
0x51c6…51e0 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0034, t01=0x00a2}
0x51e0…5210 Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',GTREMBUF,GSWBIN4«, t00=0x0034, t01=0x00bc}
0x5210…5226 Head {h00=0x0012, h01=0x0050, text=» BNOK XINSNOK «, t00=0x0034, t01=0x00ec}
0x5226…5240 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN2«, t00=0x0034, t01=0x0102}
0x5240…5252 Head {h00=0x000e, h01=0x0050, text=» B XINS100«, t00=0x0034, t01=0x011c}
0x5252…525c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x012e}
0x525c…526c Head {h00=0x000c, h01=0x0050, text=»XINS200 «, t00=0x0034, t01=0x0138}
0x526c…5298 Head {h00=0x0028, h01=0x0050, text=»* ALL MOVED, INSERT LEVNR+INDEX «, t00=0x0034, t01=0x0148}
0x5298…52b2 Head {h00=0x0016, h01=0x0050, text=» ADD GTLEVNR,=D'0'«, t00=0x0034, t01=0x0174}
0x52b2…52e4 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN0,CBIN5,GTLEVNR,CBIN1 «, t00=0x0034, t01=0x018e}
0x52e4…5316 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN5,CBIN2,GSWBIN7,CBIN0 «, t00=0x0035, t01=0x0030}
0x5316…5346 Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',GTREMBUF,GSWBIN8«, t00=0x0035, t01=0x0062}
0x5346…5378 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN4,GSWBIN8 PLACE FOR INSERTION «, t00=0x0035, t01=0x0092}
0x5378…538c Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x0035, t01=0x00c4}
0x538c…539a Head {h00=0x000a, h01=0x0050, text=»XINSOK«, t00=0x0035, t01=0x00d8}
0x539a…53b0 Head {h00=0x0012, h01=0x0050, text=» CLEAR CREMIO «, t00=0x0035, t01=0x00e6}
0x53b0…53cc Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0035, t01=0x00fc}
0x53cc…53d8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0035, t01=0x0118}
0x53d8…53e8 Head {h00=0x000c, h01=0x0050, text=»XINSNOK «, t00=0x0035, t01=0x0124}
0x53e8…53fc Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x0035, t01=0x0134}
0x53fc…540c Head {h00=0x000c, h01=0x0050, text=»XINSNOK1«, t00=0x0035, t01=0x0148}
0x540c…5422 Head {h00=0x0012, h01=0x0050, text=» CLEAR CREMIO «, t00=0x0035, t01=0x0158}
0x5422…5432 Head {h00=0x000c, h01=0x0050, text=»XINSNOK2«, t00=0x0035, t01=0x016e}
0x5432…544e Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0035, t01=0x017e}
0x544e…545a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x000a}
0x545a…5468 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x0016}
0x5468…5476 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0024}
0x5476…548a Head {h00=0x0010, h01=0x0050, text=»SETIDX PROC «, t00=0x0036, t01=0x0032}
0x548a…54b8 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0036, t01=0x0046}
0x54b8…54c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0074}
0x54c2…54f2 Head {h00=0x002c, h01=0x0050, text=»* INITIATE MASTER INDEX FOR LEV-REGISTER«, t00=0x0036, t01=0x007e}
0x54f2…5522 Head {h00=0x002c, h01=0x0050, text=»* IF INDEX EMPTY, SET UP ALL ENTRIES AND«, t00=0x0036, t01=0x00ae}
0x5522…5544 Head {h00=0x001e, h01=0x0050, text=»* INITIATE SPECIAL ENTRIES«, t00=0x0036, t01=0x00de}
0x5544…554e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0100}
0x554e…5562 Head {h00=0x0010, h01=0x0050, text=»* SETS: «, t00=0x0036, t01=0x010a}
0x5562…558a Head {h00=0x0024, h01=0x0050, text=»* CIXLAST - LAST RECORD NO. «, t00=0x0036, t01=0x011e}
0x558a…55b2 Head {h00=0x0024, h01=0x0050, text=»* CIXFREE - FIRST FREE ENTRY«, t00=0x0036, t01=0x0146}
0x55b2…55bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x016e}
0x55bc…55ea Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0036, t01=0x0178}
0x55ea…55f2 Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x0016}
0x55f2…560e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0037, t01=0x001e}
0x560e…562a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 «, t00=0x0037, t01=0x003a}
0x562a…5646 Head {h00=0x0018, h01=0x0050, text=» MOVE GTREMBUF,=' '«, t00=0x0037, t01=0x0056}
0x5646…567e Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN5,GSWBIN4«, t00=0x0037, t01=0x0072}
0x567e…56aa Head {h00=0x0028, h01=0x0050, text=» CBE GTWBCD1,=D'4',SIDX005 NO DATA ?«, t00=0x0037, t01=0x00aa}
0x56aa…56ca Head {h00=0x001c, h01=0x0050, text=» MOVE GSWBCD7,=D'1' > 0 «, t00=0x0037, t01=0x00d6}
0x56ca…5706 Head {h00=0x0038, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN0 GET 1. LEV«, t00=0x0037, t01=0x00f6}
0x5706…5738 Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD7,=D'1',SIDX100 IF NOT LEVNR 1 «, t00=0x0037, t01=0x0132}
0x5738…575e Head {h00=0x0022, h01=0x0050, text=»SIDX005 INITIATE INDEX FILE «, t00=0x0037, t01=0x0164}
0x575e…578e Head {h00=0x002c, h01=0x0050, text=»* INITIATE INDEX FILE WITH BLANK ENTRIES«, t00=0x0037, t01=0x018a}
0x578e…57aa Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0038, t01=0x002a}
0x57aa…57ba Head {h00=0x000c, h01=0x0050, text=»SIDX050 «, t00=0x0038, t01=0x0046}
0x57ba…57d4 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0038, t01=0x0056}
0x57d4…57f2 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GSWBIN4 «, t00=0x0038, t01=0x0070}
0x57f2…5814 Head {h00=0x001e, h01=0x0050, text=» PERF SPLIN8,CBIN10,CBIN3 «, t00=0x0038, t01=0x008e}
0x5814…5832 Head {h00=0x001a, h01=0x0050, text=» MOVE GTREMBUF,=X'99' «, t00=0x0038, t01=0x00b0}
0x5832…586e Head {h00=0x0038, h01=0x0050, text=» XCOPY GTREMBUF,CBIN5,CBIN2,GSWBIN4,CBIN0 SET INDEX «, t00=0x0038, t01=0x00ce}
0x586e…589e Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',GTREMBUF,GSWBIN4«, t00=0x0038, t01=0x010a}
0x589e…58b2 Head {h00=0x0010, h01=0x0050, text=» BOK SIDX050«, t00=0x0038, t01=0x013a}
0x58b2…58c6 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0038, t01=0x014e}
0x58c6…58e2 Head {h00=0x0018, h01=0x0050, text=» TBF C173FLG,SIDX100«, t00=0x0038, t01=0x0162}
0x58e2…58fe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,=W'48'«, t00=0x0038, t01=0x017e}
0x58fe…5918 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0039, t01=0x000a}
0x5918…5944 Head {h00=0x0028, h01=0x0050, text=» MOVE CMEMIX(GSWBIN4),=D'9999999999'«, t00=0x0039, t01=0x0024}
0x5944…596a Head {h00=0x0022, h01=0x0050, text=» MOVE CMEMPT(GSWBIN4),=X'7FFF'«, t00=0x0039, t01=0x0050}
0x596a…5986 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,=W'48'«, t00=0x0039, t01=0x0076}
0x5986…5996 Head {h00=0x000c, h01=0x0050, text=»SIDX060 «, t00=0x0039, t01=0x0092}
0x5996…59b4 Head {h00=0x001a, h01=0x0050, text=» MOVE GTREMBUF,=X'99' «, t00=0x0039, t01=0x00a2}
0x59b4…59e6 Head {h00=0x002e, h01=0x0050, text=» PERF RAWRIT,DK17,=D'17',GTREMBUF,GSWBIN4 «, t00=0x0039, t01=0x00c0}
0x59e6…5a00 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0039, t01=0x00f2}
0x5a00…5a14 Head {h00=0x0010, h01=0x0050, text=» BP SIDX060 «, t00=0x0039, t01=0x010c}
0x5a14…5a24 Head {h00=0x000c, h01=0x0050, text=»SIDX100 «, t00=0x0039, t01=0x0120}
0x5a24…5a48 Head {h00=0x0020, h01=0x0050, text=»* OK, FIRST LEV = 0000000000«, t00=0x0039, t01=0x0130}
0x5a48…5a74 Head {h00=0x0028, h01=0x0050, text=»* LOOP THROUGH INDEX FILE TO SET UP «, t00=0x0039, t01=0x0154}
0x5a74…5aa0 Head {h00=0x0028, h01=0x0050, text=»* MASTER INDEX IN CORE, AND TO FIND «, t00=0x0039, t01=0x0180}
0x5aa0…5abc Head {h00=0x0018, h01=0x0050, text=»* SIZE OF INDEX FILE«, t00=0x003a, t01=0x001c}
0x5abc…5ada Head {h00=0x001a, h01=0x0050, text=» MOVE CIXLAST,=X'7FFF'«, t00=0x003a, t01=0x0038}
0x5ada…5af6 Head {h00=0x0018, h01=0x0050, text=» MOVE CIXFREE,CBIN0 «, t00=0x003a, t01=0x0056}
0x5af6…5b12 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x003a, t01=0x0072}
0x5b12…5b22 Head {h00=0x000c, h01=0x0050, text=»SIDX110 «, t00=0x003a, t01=0x008e}
0x5b22…5b40 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GSWBIN4 «, t00=0x003a, t01=0x009e}
0x5b40…5b62 Head {h00=0x001e, h01=0x0050, text=» PERF SPLIN8,CBIN10,CBIN3 «, t00=0x003a, t01=0x00bc}
0x5b62…5b7e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 «, t00=0x003a, t01=0x00de}
0x5b7e…5b9c Head {h00=0x001a, h01=0x0050, text=» MOVE CIXLAST,GSWBIN4 «, t00=0x003a, t01=0x00fa}
0x5b9c…5bb8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTREMBUF,=' '«, t00=0x003a, t01=0x0118}
0x5bb8…5bfc Head {h00=0x0040, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN5,GSWBIN4 READ RECORD«, t00=0x003a, t01=0x0134}
0x5bfc…5c2e Head {h00=0x002e, h01=0x0050, text=» CBE GTWBCD1,=D'10',SIDX130 END OF DEVICE «, t00=0x003a, t01=0x0178}
0x5c2e…5c5a Head {h00=0x0028, h01=0x0050, text=» CBE GTWBCD1,=D'4',SIDX120 NO-DATA ?«, t00=0x003b, t01=0x001a}
0x5c5a…5c76 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR9,=' ' «, t00=0x003b, t01=0x0046}
0x5c76…5ca8 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN5,GTREMBUF,CBIN0«, t00=0x003b, t01=0x0062}
0x5ca8…5ce2 Head {h00=0x0036, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 REPLACE SPACE WITH 9999999999 «, t00=0x003b, t01=0x0094}
0x5ce2…5d1c Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR9,GSWBIN5,CBIN5,GSWSTR20,CBIN0,CBIN5 «, t00=0x003b, t01=0x00ce}
0x5d1c…5d4a Head {h00=0x002a, h01=0x0050, text=» BNE SIDX125 NOT 2020202020 THIS TIME «, t00=0x003b, t01=0x0108}
0x5d4a…5d5a Head {h00=0x000c, h01=0x0050, text=»SIDX120 «, t00=0x003b, t01=0x0136}
0x5d5a…5d92 Head {h00=0x0034, h01=0x0050, text=» MOVE GSWSTR9,=X'99' FOR NO-DATA AND 2020202020 «, t00=0x003b, t01=0x0146}
0x5d92…5dc4 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN0,CBIN5,GSWSTR9,CBIN0 «, t00=0x003b, t01=0x017e}
0x5dc4…5e02 Head {h00=0x003a, h01=0x0050, text=» XCOPY GTREMBUF,CBIN5,CBIN2,GSWBIN4,CBIN0 CREATE INDEX«, t00=0x003c, t01=0x0020}
0x5e02…5e42 Head {h00=0x003c, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',GTREMBUF,GSWBIN4 REWRITE RECORD «, t00=0x003c, t01=0x005e}
0x5e42…5e54 Head {h00=0x000e, h01=0x0050, text=» B SIDX127«, t00=0x003c, t01=0x009e}
0x5e54…5e64 Head {h00=0x000c, h01=0x0050, text=»SIDX125 «, t00=0x003c, t01=0x00b0}
0x5e64…5e80 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x003c, t01=0x00c0}
0x5e80…5e9c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR9,=X'99'«, t00=0x003c, t01=0x00dc}
0x5e9c…5ed6 Head {h00=0x0036, h01=0x0050, text=» MATCH GTREMBUF,GSWBIN5,CBIN5,GSWSTR9,CBIN0,CBIN5 «, t00=0x003c, t01=0x00f8}
0x5ed6…5ef4 Head {h00=0x001a, h01=0x0050, text=» BE SIDX130 FIRST FREE«, t00=0x003c, t01=0x0132}
0x5ef4…5f04 Head {h00=0x000c, h01=0x0050, text=»SIDX127 «, t00=0x003c, t01=0x0150}
0x5f04…5f1e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x003c, t01=0x0160}
0x5f1e…5f30 Head {h00=0x000e, h01=0x0050, text=» B SIDX110«, t00=0x003c, t01=0x017a}
0x5f30…5f4e Head {h00=0x001a, h01=0x0050, text=»SIDX130 BLANK OR EOF«, t00=0x003c, t01=0x018c}
0x5f4e…5f7c Head {h00=0x002a, h01=0x0050, text=» MOVE CIXFREE,GSWBIN4 FIRST FREE ENTRY«, t00=0x003d, t01=0x001a}
0x5f7c…5fae Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN8,CBIN1 FIRST ENTRY IN CIXINDX«, t00=0x003d, t01=0x0048}
0x5fae…5fe2 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN5,=W'48' CORR. TO THE 48. RECORD«, t00=0x003d, t01=0x007a}
0x5fe2…5ff2 Head {h00=0x000c, h01=0x0050, text=»SIDX150 «, t00=0x003d, t01=0x00ae}
0x5ff2…6010 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GSWBIN5 «, t00=0x003d, t01=0x00be}
0x6010…6032 Head {h00=0x001e, h01=0x0050, text=» PERF SPLIN8,CBIN10,CBIN3 «, t00=0x003d, t01=0x00dc}
0x6032…6054 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 LENGTH«, t00=0x003d, t01=0x00fe}
0x6054…608c Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,GSWBIN5«, t00=0x003d, t01=0x0120}
0x608c…60b4 Head {h00=0x0024, h01=0x0050, text=» CBE GTWBCD1,=D'10',SIDX160 EOD?«, t00=0x003d, t01=0x0158}
0x60b4…60d0 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN5,=W'48' «, t00=0x003d, t01=0x0180}
0x60d0…60e2 Head {h00=0x000e, h01=0x0050, text=» B SIDX150«, t00=0x003e, t01=0x000c}
0x60e2…60f2 Head {h00=0x000c, h01=0x0050, text=»SIDX160 «, t00=0x003e, t01=0x001e}
0x60f2…610e Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN5,=W'48' «, t00=0x003e, t01=0x002e}
0x610e…612c Head {h00=0x001a, h01=0x0050, text=» MOVE CIXLAST,GSWBIN5 «, t00=0x003e, t01=0x004a}
0x612c…614a Head {h00=0x001a, h01=0x0050, text=» TBF C173FLG,SIDX162 «, t00=0x003e, t01=0x0068}
0x614a…6166 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'50'«, t00=0x003e, t01=0x0086}
0x6166…6198 Head {h00=0x002e, h01=0x0050, text=» MOVE CMEMPT(GSWBIN1),CIXLAST SORRY AGAIN!«, t00=0x003e, t01=0x00a2}
0x6198…61c4 Head {h00=0x0028, h01=0x0050, text=» PERF MEMIX2 SLAVE ARRAY INTO MEMORY«, t00=0x003e, t01=0x00d4}
0x61c4…61d4 Head {h00=0x000c, h01=0x0050, text=»SIDX162 «, t00=0x003e, t01=0x0100}
0x61d4…6202 Head {h00=0x002a, h01=0x0050, text=» PERF RESTIX MASTER INDEX INTO MEMORY «, t00=0x003e, t01=0x0110}
0x6202…6216 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x003e, t01=0x013e}
0x6216…6246 Head {h00=0x002c, h01=0x0050, text=» PERF INITIX COLD START STAM+VAR+TRANS? «, t00=0x003e, t01=0x0152}
0x6246…6252 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003e, t01=0x0182}
0x6252…6260 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003e, t01=0x018e}
0x6260…626e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x000c}
0x626e…6282 Head {h00=0x0010, h01=0x0050, text=»IDXDEL PROC «, t00=0x003f, t01=0x001a}
0x6282…6294 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x002e}
0x6294…629e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0040}
0x629e…62ca Head {h00=0x0028, h01=0x0050, text=»* DELETE ALL ENTRIES FOR LEV NR.«, t00=0x003f, t01=0x004a}
0x62ca…62e4 Head {h00=0x0016, h01=0x0050, text=»* GTLEVNR, IN «, t00=0x003f, t01=0x0076}
0x62e4…6310 Head {h00=0x0028, h01=0x0050, text=»* INDEXFILE, STAM, AND VAR FILE «, t00=0x003f, t01=0x0090}
0x6310…631a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00bc}
0x631a…632c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x00c6}
0x632c…6336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00d8}
0x6336…6350 Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CREMIO«, t00=0x003f, t01=0x00e2}
0x6350…637c Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x003f, t01=0x00fc}
0x637c…639a Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 LEV INDX «, t00=0x003f, t01=0x0128}
0x639a…63b4 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x003f, t01=0x0146}
0x63b4…63d4 Head {h00=0x001c, h01=0x0050, text=» BERR XDEL300 DISK ERROR«, t00=0x003f, t01=0x0160}
0x63d4…63f4 Head {h00=0x001c, h01=0x0050, text=» BNOK XDEL300 NOT FOUND «, t00=0x003f, t01=0x0180}
0x63f4…6408 Head {h00=0x0010, h01=0x0050, text=»* FOUND «, t00=0x0040, t01=0x0010}
0x6408…6444 Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN4,=W'-1',XDEL300 DONT DELETE IF IN SLAVE «, t00=0x0040, t01=0x0024}
0x6444…646e Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN7,GSWBIN5 KEEP LEVDEX «, t00=0x0040, t01=0x0060}
0x646e…647e Head {h00=0x000c, h01=0x0050, text=»XDEL100 «, t00=0x0040, t01=0x008a}
0x647e…64ac Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN4,CBIN1 NEXT RECORD TO MOVE«, t00=0x0040, t01=0x009a}
0x64ac…64d2 Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN4,CIXFREE,XDEL200 «, t00=0x0040, t01=0x00c8}
0x64d2…64f4 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 LENGTH«, t00=0x0040, t01=0x00ee}
0x64f4…652c Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,GSWBIN4«, t00=0x0040, t01=0x0110}
0x652c…6542 Head {h00=0x0012, h01=0x0050, text=» BNOK XDELNOK «, t00=0x0040, t01=0x0148}
0x6542…656a Head {h00=0x0024, h01=0x0050, text=» SUB GSWBIN4,CBIN1 WHERE TO MOVE«, t00=0x0040, t01=0x015e}
0x656a…659a Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',GTREMBUF,GSWBIN4«, t00=0x0040, t01=0x0186}
0x659a…65b0 Head {h00=0x0012, h01=0x0050, text=» BNOK XDELNOK «, t00=0x0041, t01=0x0026}
0x65b0…65ca Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0041, t01=0x003c}
0x65ca…65dc Head {h00=0x000e, h01=0x0050, text=» B XDEL100«, t00=0x0041, t01=0x0056}
0x65dc…65e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0068}
0x65e6…6608 Head {h00=0x001e, h01=0x0050, text=»XDEL200 INSERT NEW FREE «, t00=0x0041, t01=0x0072}
0x6608…6622 Head {h00=0x0016, h01=0x0050, text=» SUB CIXFREE,CBIN1«, t00=0x0041, t01=0x0094}
0x6622…6654 Head {h00=0x002e, h01=0x0050, text=» PERF RADEL,DK09,GSWBIN5 DELETE VAR RECORD«, t00=0x0041, t01=0x00ae}
0x6654…6674 Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK08,GSWBIN5«, t00=0x0041, t01=0x00e0}
0x6674…6692 Head {h00=0x001a, h01=0x0050, text=» MOVE GTREMBUF,=X'99' «, t00=0x0041, t01=0x0100}
0x6692…66c4 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN5,CBIN2,GSWBIN7,CBIN0 «, t00=0x0041, t01=0x011e}
0x66c4…66f4 Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',GTREMBUF,CIXFREE«, t00=0x0041, t01=0x0150}
0x66f4…670a Head {h00=0x0012, h01=0x0050, text=» BNOK XDELNOK «, t00=0x0041, t01=0x0180}
0x670a…671e Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x0042, t01=0x0008}
0x671e…6734 Head {h00=0x0012, h01=0x0050, text=» CLEAR CREMIO «, t00=0x0042, t01=0x001c}
0x6734…6750 Head {h00=0x0018, h01=0x0013, text=» CMP CBIN0,CBIN0 OK «, t00=0x0042, t01=0x0032}
0x6750…675c Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0042, t01=0x004e}
0x675c…6766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x005a}
0x6766…6776 Head {h00=0x000c, h01=0x0007, text=»XDELNOK «, t00=0x0042, t01=0x0064}
0x6776…678a Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x0042, t01=0x0074}
0x678a…679a Head {h00=0x000c, h01=0x0050, text=»XDEL300 «, t00=0x0042, t01=0x0088}
0x679a…67b0 Head {h00=0x0012, h01=0x0050, text=» CLEAR CREMIO «, t00=0x0042, t01=0x0098}
0x67b0…67cc Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0042, t01=0x00ae}
0x67cc…67d8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0042, t01=0x00ca}
0x67d8…67e6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0042, t01=0x00d6}
0x67e6…67f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x00e4}
0x67f4…67fc Head {h00=0x0004, h01=0x0000, t00=0x0042, t01=0x00f2}
0x67fc…6810 Head {h00=0x0010, h01=0x000b, text=»RESTIX PROC «, t00=0x0042, t01=0x00fa}
0x6810…6846 Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x0042, t01=0x010e}
0x6846…6850 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0042, t01=0x0144}
0x6850…685a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0042, t01=0x014e}
0x685a…6890 Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x0042, t01=0x0158}
0x6890…6898 Head {h00=0x0004, h01=0x0001, t00=0x0042, t01=0x018e}
0x6898…68b4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN8,CBIN1 «, t00=0x0043, t01=0x0008}
0x68b4…68d0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,=W'48'«, t00=0x0043, t01=0x0024}
0x68d0…68de Head {h00=0x000a, h01=0x0050, text=»RIX010«, t00=0x0043, t01=0x0040}
0x68de…68fa Head {h00=0x0018, h01=0x0050, text=» TBF C173FLG,RIX012 «, t00=0x0043, t01=0x004e}
0x68fa…6916 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'50'«, t00=0x0043, t01=0x006a}
0x6916…6942 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN5,CMEMPT(GSWBIN1),RIX020 «, t00=0x0043, t01=0x0086}
0x6942…6950 Head {h00=0x000a, h01=0x0050, text=»RIX012«, t00=0x0043, t01=0x00b2}
0x6950…696c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x0043, t01=0x00c0}
0x696c…69a4 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,GSWBIN5«, t00=0x0043, t01=0x00dc}
0x69a4…69c6 Head {h00=0x001e, h01=0x0050, text=» CBE GTWBCD1,=D'10',RIX020«, t00=0x0043, t01=0x0114}
0x69c6…69e2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0043, t01=0x0136}
0x69e2…6a14 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN0 «, t00=0x0043, t01=0x0152}
0x6a14…6a3a Head {h00=0x0022, h01=0x0050, text=» MOVE CIXINDX(GSWBIN8),GSWBCD7«, t00=0x0043, t01=0x0184}
0x6a3a…6a56 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN5,=W'48' «, t00=0x0044, t01=0x001a}
0x6a56…6a70 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN8,CBIN1«, t00=0x0044, t01=0x0036}
0x6a70…6a82 Head {h00=0x000e, h01=0x0050, text=» B RIX010 «, t00=0x0044, t01=0x0050}
0x6a82…6a90 Head {h00=0x000a, h01=0x0050, text=»RIX020«, t00=0x0044, t01=0x0062}
0x6a90…6aaa Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN8,CBIN1«, t00=0x0044, t01=0x0070}
0x6aaa…6ab8 Head {h00=0x000a, h01=0x0050, text=»RIX055«, t00=0x0044, t01=0x008a}
0x6ab8…6ae2 Head {h00=0x0026, h01=0x0050, text=» CBNE CIXINDX(GSWBIN8),=D'0',RIXOK«, t00=0x0044, t01=0x0098}
0x6ae2…6b10 Head {h00=0x002a, h01=0x0050, text=» MOVE CIXINDX(GSWBIN8),=D'9999999999' «, t00=0x0044, t01=0x00c2}
0x6b10…6b2a Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN8,CBIN1«, t00=0x0044, t01=0x00f0}
0x6b2a…6b3c Head {h00=0x000e, h01=0x0050, text=» BP RIX055«, t00=0x0044, t01=0x010a}
0x6b3c…6b4a Head {h00=0x000a, h01=0x0050, text=»RIXOK «, t00=0x0044, t01=0x011c}
0x6b4a…6b62 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0044, t01=0x012a}
0x6b62…6b6e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0044, t01=0x0142}
0x6b6e…6b7c Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0044, t01=0x014e}
0x6b7c…6b8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x015c}
0x6b8a…6b92 Head {h00=0x0004, h01=0x0000, t00=0x0044, t01=0x016a}
0x6b92…6ba6 Head {h00=0x0010, h01=0x000b, text=»INITIX PROC «, t00=0x0044, t01=0x0172}
0x6ba6…6bd6 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0044, t01=0x0186}
0x6bd6…6be0 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0045, t01=0x0026}
0x6be0…6c02 Head {h00=0x001e, h01=0x0050, text=»* SET UP INDEXFILE 1. TIME«, t00=0x0045, t01=0x0030}
0x6c02…6c30 Head {h00=0x002a, h01=0x0050, text=»* CHECK IF SYSTEM DEFINED ENTRIES «, t00=0x0045, t01=0x0052}
0x6c30…6c5c Head {h00=0x0028, h01=0x0050, text=»* ARE PRESENT, ELSE INSERT THEM «, t00=0x0045, t01=0x0080}
0x6c5c…6c66 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0045, t01=0x00ac}
0x6c66…6c98 Head {h00=0x002e, h01=0x0050, text=»* NEXT 15 RECORDS, LEV 1-15, POINTS TO«, t00=0x0045, t01=0x00b6}
0x6c98…6cc6 Head {h00=0x002a, h01=0x0050, text=»* DIFFERENT SYSTEM DEFINED LISTS, «, t00=0x0045, t01=0x00e8}
0x6cc6…6cea Head {h00=0x0020, h01=0x0050, text=»* 01 - PRINT LIST CHECK «, t00=0x0045, t01=0x0116}
0x6cea…6d0c Head {h00=0x001e, h01=0x0050, text=»* 02 - PRINT LIST GIRO«, t00=0x0045, t01=0x013a}
0x6d0c…6d1e Head {h00=0x000e, h01=0x0050, text=»* 03 -«, t00=0x0045, t01=0x015c}
0x6d1e…6d30 Head {h00=0x000e, h01=0x0050, text=»* 04 -«, t00=0x0045, t01=0x016e}
0x6d30…6d66 Head {h00=0x0032, h01=0x0050, text=»* 05 - "HOMELESS" TRANSACTIONS AFTER REORG«, t00=0x0045, t01=0x0180}
0x6d66…6d7e Head {h00=0x0014, h01=0x0050, text=»* 06 - AS 01«, t00=0x0046, t01=0x0026}
0x6d7e…6d96 Head {h00=0x0014, h01=0x0050, text=»* 07 - AS 02«, t00=0x0046, t01=0x003e}
0x6d96…6dae Head {h00=0x0014, h01=0x0050, text=»* 08 - AS 03«, t00=0x0046, t01=0x0056}
0x6dae…6dc6 Head {h00=0x0014, h01=0x0050, text=»* 09 - AS 02«, t00=0x0046, t01=0x006e}
0x6dc6…6dfa Head {h00=0x0030, h01=0x0050, text=»* 10 - LIST CONTAINING ALL FREE RECORDS «, t00=0x0046, t01=0x0086}
0x6dfa…6e2c Head {h00=0x002e, h01=0x0050, text=»* 11 - PRINT LIST CHECK (CREDITLINES) «, t00=0x0046, t01=0x00ba}
0x6e2c…6e5c Head {h00=0x002c, h01=0x0050, text=»* 12 - PRINT LIST GIRO (CREDITLINES)«, t00=0x0046, t01=0x00ec}
0x6e5c…6e6e Head {h00=0x000e, h01=0x0050, text=»* 13 -«, t00=0x0046, t01=0x011c}
0x6e6e…6e80 Head {h00=0x000e, h01=0x0050, text=»* 14 -«, t00=0x0046, t01=0x012e}
0x6e80…6e9c Head {h00=0x0018, h01=0x0050, text=»* 15 - NOT USED «, t00=0x0046, t01=0x0140}
0x6e9c…6ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x015c}
0x6ea6…6ed6 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0046, t01=0x0166}
0x6ed6…6ede Head {h00=0x0004, h01=0x0000, t00=0x0047, t01=0x0008}
0x6ede…6efa Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'1' «, t00=0x0047, t01=0x0010}
0x6efa…6f26 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0047, t01=0x002c}
0x6f26…6f44 Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 LEV INDEX«, t00=0x0047, t01=0x0058}
0x6f44…6f5e Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x0047, t01=0x0076}
0x6f5e…6f7e Head {h00=0x001c, h01=0x0050, text=» BERR INITNOK DISK ERROR«, t00=0x0047, t01=0x0090}
0x6f7e…6f92 Head {h00=0x0010, h01=0x0050, text=» BOK INITOK «, t00=0x0047, t01=0x00b0}
0x6f92…6f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00c4}
0x6f9c…6fac Head {h00=0x000c, h01=0x0050, text=»INIT100 «, t00=0x0047, t01=0x00ce}
0x6fac…6fde Head {h00=0x002e, h01=0x0050, text=»* INSERT SYSTEMENTRIES (LEVNR 0 -> 15)«, t00=0x0047, t01=0x00de}
0x6fde…6ff2 Head {h00=0x0010, h01=0x0050, text=» PERF IDXINS«, t00=0x0047, t01=0x0110}
0x6ff2…7006 Head {h00=0x0010, h01=0x0050, text=» PERF LEVINT«, t00=0x0047, t01=0x0124}
0x7006…701a Head {h00=0x0010, h01=0x0050, text=» PERF LEVWRT«, t00=0x0047, t01=0x0138}
0x701a…702e Head {h00=0x0010, h01=0x0050, text=» PERF VARINT«, t00=0x0047, t01=0x014c}
0x702e…7042 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x0047, t01=0x0160}
0x7042…7052 Head {h00=0x000c, h01=0x0050, text=»INIT150 «, t00=0x0047, t01=0x0174}
0x7052…706c Head {h00=0x0016, h01=0x0050, text=» ADD GTLEVNR,=D'1'«, t00=0x0047, t01=0x0184}
0x706c…7090 Head {h00=0x0020, h01=0x0050, text=» CBNG GTLEVNR,=D'15',INIT100«, t00=0x0048, t01=0x000e}
0x7090…709a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0032}
0x709a…70aa Head {h00=0x000c, h01=0x0050, text=»INIT300 «, t00=0x0048, t01=0x003c}
0x70aa…70d8 Head {h00=0x002a, h01=0x0050, text=»* INIT TRANSFILE IE LOOP THROUGH FILE «, t00=0x0048, t01=0x004c}
0x70d8…7102 Head {h00=0x0026, h01=0x0050, text=»* AND SET ALL RECORDS ON FREE LIST«, t00=0x0048, t01=0x007a}
0x7102…7110 Head {h00=0x000a, h01=0x0050, text=»INITOK«, t00=0x0048, t01=0x00a4}
0x7110…7124 Head {h00=0x0010, h01=0x0050, text=» PERF TRINIT«, t00=0x0048, t01=0x00b2}
0x7124…713a Head {h00=0x0012, h01=0x0050, text=» BNOK INITNOK «, t00=0x0048, t01=0x00c6}
0x713a…714e Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x0048, t01=0x00dc}
0x714e…716a Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0048, t01=0x00f0}
0x716a…7176 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0048, t01=0x010c}
0x7176…7186 Head {h00=0x000c, h01=0x0050, text=»INITNOK «, t00=0x0048, t01=0x0118}
0x7186…719a Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x0048, t01=0x0128}
0x719a…71b6 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0048, t01=0x013c}
0x71b6…71c2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0048, t01=0x0158}
0x71c2…71d0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0048, t01=0x0164}
0x71d0…71de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0172}
0x71de…71f2 Head {h00=0x0010, h01=0x0050, text=»GETNXT PROC «, t00=0x0048, t01=0x0180}
0x71f2…721c (73, 0, 400) Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0049, t01=0x0004}
0x721c…7226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x002e}
0x7226…7254 Head {h00=0x002a, h01=0x0050, text=»* GET LEVNR FOR LEV FOLLOWING GTLEVNR «, t00=0x0049, t01=0x0038}
0x7254…725e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0066}
0x725e…7288 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0049, t01=0x0070}
0x7288…72a4 Head {h00=0x0018, h01=0x0050, text=» TBF C173FLG,GNXT000«, t00=0x0049, t01=0x009a}
0x72a4…72d6 Head {h00=0x002e, h01=0x0050, text=» PERF DIVRUT,CBIN1 LYNGBYVERSION OF GETNXT«, t00=0x0049, t01=0x00b6}
0x72d6…72e2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0049, t01=0x00e8}
0x72e2…72f2 Head {h00=0x000c, h01=0x0050, text=»GNXT000 «, t00=0x0049, t01=0x00f4}
0x72f2…731e Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0049, t01=0x0104}
0x731e…7334 Head {h00=0x0012, h01=0x0050, text=» BERR GNXTNOK «, t00=0x0049, t01=0x0130}
0x7334…7348 Head {h00=0x0010, h01=0x0050, text=» BOK GNXT100«, t00=0x0049, t01=0x0146}
0x7348…736c Head {h00=0x0020, h01=0x0050, text=» SUB GSWBIN4,CBIN1 NOT FOUND«, t00=0x0049, t01=0x015a}
0x736c…737c Head {h00=0x000c, h01=0x0050, text=»GNXT100 «, t00=0x0049, t01=0x017e}
0x737c…7396 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0049, t01=0x018e}
0x7396…73bc Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN4,CIXFREE,GNXT200 «, t00=0x004a, t01=0x0018}
0x73bc…73d8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x004a, t01=0x003e}
0x73d8…73f4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTREMBUF,=' '«, t00=0x004a, t01=0x005a}
0x73f4…742c Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,GSWBIN4«, t00=0x004a, t01=0x0076}
0x742c…7442 Head {h00=0x0012, h01=0x0050, text=» BNOK GNXT200 «, t00=0x004a, t01=0x00ae}
0x7442…745e Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'1' «, t00=0x004a, t01=0x00c4}
0x745e…7490 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNR,CBIN1,CBIN5,GTREMBUF,CBIN0 «, t00=0x004a, t01=0x00e0}
0x7490…74a8 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x004a, t01=0x0112}
0x74a8…74b4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x012a}
0x74b4…74c4 Head {h00=0x000c, h01=0x0050, text=»GNXT200 «, t00=0x004a, t01=0x0136}
0x74c4…74d4 Head {h00=0x000c, h01=0x0050, text=»GNXTNOK «, t00=0x004a, t01=0x0146}
0x74d4…74ec Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x004a, t01=0x0156}
0x74ec…74f8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x016e}
0x74f8…7506 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004a, t01=0x017a}
0x7506…7514 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0188}
0x7514…753c Head {h00=0x0024, h01=0x0050, text=»FLEVPRT FRMT PRINT OF LEVERAND.«, t00=0x004b, t01=0x0008}
0x753c…7548 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004b, t01=0x0030}
0x7548…755c Head {h00=0x0010, h01=0x0050, text=» FILLR '*',1«, t00=0x004b, t01=0x003c}
0x755c…757e Head {h00=0x001e, h01=0x0050, text=» FMEL '9999999999',GTLEVNR«, t00=0x004b, t01=0x0050}
0x757e…7592 Head {h00=0x0010, h01=0x0050, text=» FTEXT ' * '«, t00=0x004b, t01=0x0072}
0x7592…75b4 Head {h00=0x001e, h01=0x0050, text=» FMEL '99V99V99',CMASKDAT «, t00=0x004b, t01=0x0086}
0x75b4…75c8 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004b, t01=0x00a8}
0x75c8…75ea Head {h00=0x001e, h01=0x0050, text=» FMEL '99V99V99',GTLEVDAT «, t00=0x004b, t01=0x00bc}
0x75ea…75fe Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x004b, t01=0x00de}
0x75fe…7618 Head {h00=0x0016, h01=0x0050, text=» FMEL '9',GTLEVBFO«, t00=0x004b, t01=0x00f2}
0x7618…762c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004b, t01=0x010c}
0x762c…764c Head {h00=0x001c, h01=0x0050, text=» FMEL 'XXXXXXX',GTLEVGI «, t00=0x004b, t01=0x0120}
0x764c…7660 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004b, t01=0x0140}
0x7660…7684 Head {h00=0x0020, h01=0x0050, text=» FMEL 'XXXXXXXXXX',GTLEVALT «, t00=0x004b, t01=0x0154}
0x7684…7690 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004b, t01=0x0178}
0x7690…76a8 Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVNVN «, t00=0x004b, t01=0x0184}
0x76a8…76bc Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004c, t01=0x000c}
0x76bc…76d4 Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVADR «, t00=0x004c, t01=0x0020}
0x76d4…76e8 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004c, t01=0x0038}
0x76e8…76fe Head {h00=0x0012, h01=0x0050, text=» FCOPY GTLEVBY«, t00=0x004c, t01=0x004c}
0x76fe…7712 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004c, t01=0x0062}
0x7712…7730 Head {h00=0x001a, h01=0x0050, text=» FMEL '9999',GTLEVPNR «, t00=0x004c, t01=0x0076}
0x7730…7744 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004c, t01=0x0094}
0x7744…775c Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVPDI «, t00=0x004c, t01=0x00a8}
0x775c…7768 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004c, t01=0x00c0}
0x7768…7784 Head {h00=0x0018, h01=0x0050, text=» FBF GTDYFLG,FLEV190«, t00=0x004c, t01=0x00cc}
0x7784…7790 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004c, t01=0x00e8}
0x7790…77a6 Head {h00=0x0012, h01=0x0050, text=» FTEXT ']TD:' «, t00=0x004c, t01=0x00f4}
0x77a6…77ba Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',3«, t00=0x004c, t01=0x010a}
0x77ba…77e2 Head {h00=0x0024, h01=0x0050, text=» FMEL '99V99V99',GTREGF(CBIN10) «, t00=0x004c, t01=0x011e}
0x77e2…7812 Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN11)«, t00=0x004c, t01=0x0146}
0x7812…7842 Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN12)«, t00=0x004c, t01=0x0176}
0x7842…784e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x0016}
0x784e…7868 Head {h00=0x0016, h01=0x0050, text=» FCOPY ='REMIT: ' «, t00=0x004d, t01=0x0022}
0x7868…7890 Head {h00=0x0024, h01=0x0050, text=» FMEL '99V99V99',GTREGF(CBIN13) «, t00=0x004d, t01=0x003c}
0x7890…78c0 Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN14)«, t00=0x004d, t01=0x0064}
0x78c0…78f0 Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN15)«, t00=0x004d, t01=0x0094}
0x78f0…7920 Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN16)«, t00=0x004d, t01=0x00c4}
0x7920…792c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x00f4}
0x792c…793c Head {h00=0x000c, h01=0x0050, text=»FLEV190 «, t00=0x004d, t01=0x0100}
0x793c…7948 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x0110}
0x7948…7956 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004d, t01=0x011c}
0x7956…7960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x012a}
0x7960…796a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0134}
0x796a…7974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x013e}
0x7974…7986 Head {h00=0x000e, h01=0x0050, text=»FFEED FRMT«, t00=0x004d, t01=0x0148}
0x7986…799a Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x004d, t01=0x015a}
0x799a…79a8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004d, t01=0x016e}
0x79a8…79b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x017c}
0x79b2…79bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0186}
0x79bc…79c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0190}
0x79c6…79d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x000a}
0x79d0…79dc Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004e, t01=0x0014}
0x79dc…79e0 Head {h00=0x4004, h01=0x0000}
0x79e0…79e4 00 4e 00 20 ┆ N ┆
0x79e4…79ec (79, 1, 8) 20 04 00 00 00 4f 00 04 ┆ O ┆
0x79ec…7a3c (80, 0, 400) 00 93 24 3f 03 01 93 27 3f 03 20 99 1a 05 49 d8 02 3f 08 00 93 27 3f 03 25 aa ab 06 23 aa ac 02 3f 08 00 93 13 3f 03 00 a0 90 24 a0 13 65 41 a1 00 84 ad 25 84 b8 0a 41 a2 23 84 ba 06 40 a2 57 02 40 a1 49 c2 16 49 c4 02 3f 08 00 b0 84 80 05 ┆ $? '? I ? '? % # ? ? $ eA % A # @ W @ I I ? ┆
0x7a3c…7a8c 50 04 41 95 3f 08 23 b2 74 19 57 0e 49 5e 19 00 b0 84 80 05 54 0d 21 b2 a3 09 48 84 04 00 9d 12 11 3f 08 00 93 1b 3f 03 01 93 1c 3f 03 01 af 8e 00 a0 1a 04 a0 90 64 ad 90 a0 af 10 00 90 1a 3f 08 3f 07 00 90 10 00 86 ad 07 91 2b 38 03 07 91 ┆P A ? # t W I^ T ! H ? ? ? d ? ? +8 ┆
0x7a8c…7adc 80 38 03 00 a0 11 49 89 06 23 86 a9 08 57 15 25 86 a9 02 57 0f 20 86 4e a0 11 0e 02 a0 11 19 4e a0 11 a4 0f 00 93 19 3f 03 20 91 23 0d 20 91 22 09 20 91 13 05 00 93 14 3f 03 49 84 14 40 c2 40 c4 25 86 a8 04 41 c2 57 24 25 86 a6 20 41 c4 57 ┆ 8 I # W % W N N ? # " ? I @ @ % A W$% A W┆
0x7adc…7b2c 1c 48 c2 06 15 86 a8 34 57 13 49 c4 06 13 86 7c 3d 57 0a 15 86 a6 43 25 86 a8 02 5f 49 20 91 23 02 57 04 80 06 57 02 80 07 00 aa 86 00 99 a0 41 83 41 d7 01 91 2e 3f 03 40 dc 00 86 ad 29 86 ae 02 41 dc 28 99 13 08 21 86 ae 6a 21 86 af 66 00 ┆ H 4W I |=W C% _I # W W A A .? @ ) A ( ! j! f ┆
0x7b2c…7b7c a0 10 62 ee 10 15 4d a0 00 86 ee 00 a1 86 01 ee 8d 00 a0 15 00 a2 10 2a 90 12 03 00 a2 11 04 a0 17 02 a0 17 22 a0 a1 3a 68 4d a0 12 ad a2 12 5c 10 02 a0 12 62 ee 10 15 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ b M * " :hM b ┆
0x7b7c…7bcc (81, 0, 400) 4d a0 28 99 13 2c 02 a0 15 01 8e 8d 62 8e 11 11 4d a0 00 86 8e 25 86 71 19 25 df 12 b8 06 21 86 71 10 57 09 21 86 72 0a 57 03 49 10 05 00 93 1b 3f 03 3f 08 20 99 13 10 20 99 14 0c 48 d0 07 48 c2 04 00 9d 17 11 3f 08 4a 5d 05 00 89 ad 80 08 ┆M ( , b M % q % ! q W ! r W I ? ? H H ? J] ┆
0x7bcc…7c1c 89 00 84 8a 80 08 dc 06 84 8a 3d 08 00 93 17 3f 03 00 89 ad 25 89 b0 15 00 84 dc 01 86 72 62 86 14 12 84 1c 03 86 72 22 89 86 02 3f 08 00 93 1b 3f 03 00 86 ad 23 86 75 0a 25 86 a3 06 00 9d 1c 11 3f 08 00 93 1a 3f 03 00 87 ad 23 87 b6 06 25 ┆ = ? % rb r" ? ? # u % ? ? # %┆
0x7c1c…7c6c 87 b5 02 3f 08 00 93 1b 3f 03 06 90 13 3a 38 00 86 ad 00 d9 ad 05 86 b4 00 a0 86 22 a0 78 9c 12 10 25 86 71 0c 02 a0 78 9c 11 25 6b a0 71 02 3f 03 00 93 23 3f 03 00 92 17 00 90 12 49 a1 05 01 ad 94 3f 06 01 ad 95 3f 06 00 92 15 3f 08 00 92 ┆ ? ? :8 " x % q x %k q ? #? I ? ? ? ┆
0x7c6c…7cbc 15 00 a0 d9 05 a0 87 02 a0 78 9c 11 00 ad 6b a0 00 90 1a 3f 08 00 92 15 00 94 12 24 90 13 27 20 90 1a 05 00 93 13 3f 03 00 84 ad 80 04 84 c8 00 a0 c8 06 a0 17 38 39 28 a0 18 05 48 d8 02 3f 3a 80 09 3c 03 3f 08 00 90 10 07 91 2b 38 03 07 91 ┆ x k ? $ ' ? 89( H ?: < ? +8 ┆
0x7cbc…7d0c 80 38 03 00 93 14 3f 03 00 92 16 00 94 11 22 90 12 05 00 93 13 3f 03 41 a1 00 84 ad 25 84 b8 0a 41 a2 23 84 b9 06 40 a2 57 02 40 a1 80 09 3c 03 3f 08 00 92 26 00 94 16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ 8 ? " ? A % A # @ W @ < ? & ┆
0x7d0c…7d5c (82, 0, 400) 28 91 13 03 00 91 22 80 09 3c 03 3f 08 00 92 16 14 90 13 56 24 90 17 21 00 94 14 41 a1 00 84 ad 25 84 b8 0a 41 a2 23 84 b9 06 40 a2 57 02 40 a1 80 09 3c 03 00 91 13 3f 08 00 93 13 3f 03 00 92 17 00 94 13 28 91 13 03 00 91 22 00 84 ad 21 84 ┆( " < ? V$ ! A % A # @ W @ < ? ? ( " ! ┆
0x7d5c…7dac ae 0a 21 84 af 06 80 09 3c 03 3f 06 00 94 14 5f 0b 00 92 15 14 90 13 aa 20 90 1a 05 00 93 13 3f 03 06 91 13 54 23 00 84 ad 80 04 84 c8 00 a0 c8 20 a0 16 0e 06 a0 17 38 39 28 a0 18 0a 48 d8 07 3f 3a 00 93 25 3f 03 3f 08 00 93 14 3f 03 00 92 ┆ ! < ? _ ? T# 89( H ?: %? ? ? ┆
0x7dac…7dfc 16 00 94 18 06 90 12 59 ca 00 93 13 3f 03 00 92 26 00 94 19 5f b6 00 92 17 01 91 2e 00 90 12 49 a1 05 01 ad 94 3f 06 01 ad 95 3f 06 00 92 16 3f 08 40 8a 40 81 00 91 22 00 90 10 3f 03 06 91 13 3c 03 00 91 22 3f 03 80 0a 00 cd 11 ad 3f 08 80 ┆ Y ? & _ . I ? ? ? @ @ " ? < "? ? ┆
0x7dfc…7e4c 0a 00 cd 12 ad 3f 08 80 0a 00 cd 13 ad 3f 08 80 0a 00 cd 14 ad 3f 08 80 0a 00 cd 15 ad 3f 08 00 84 ad 05 84 b4 00 81 84 24 81 11 0d 22 81 78 9c 12 07 02 81 78 9c 11 3f 03 00 93 1b 3f 03 00 84 ad 25 84 71 10 00 81 84 22 81 76 9c 12 07 02 81 ┆ ? ? ? ? $ " x x ? ? % q " v ┆
0x7e4c…7e9c 76 9c 11 3f 03 00 93 1b 3f 03 00 8a 7e 01 88 72 01 86 71 00 a1 18 62 86 14 12 8a a1 02 88 86 02 a1 12 62 86 14 12 8a a1 05 86 71 09 86 a9 02 88 86 00 86 ad 05 88 75 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆v ? ? ~ r q b b q u$ ┆
0x7e9c…7eec (83, 0, 400) 86 88 09 03 88 7a 22 86 88 02 57 03 00 93 1b 01 86 a5 3f 03 00 86 ad 00 81 86 02 81 76 a0 11 23 81 83 19 20 a0 1c 0b 02 a0 11 00 76 a0 11 81 04 a0 11 00 81 86 00 76 a0 12 81 3f 03 00 93 1b 3f 03 00 87 ad 00 81 87 02 81 78 a0 11 23 81 83 19 ┆ z" W ? v # v v ? ? x # ┆
0x7eec…7f3c 20 a0 1c 0b 02 a0 11 00 78 a0 11 81 04 a0 11 00 81 87 00 78 a0 12 81 3f 03 00 93 1b 3f 03 00 89 ad 20 91 13 05 06 91 22 3c 03 00 a0 90 00 a1 1d 01 88 a3 01 86 a3 62 86 15 11 89 a1 04 a1 11 08 86 1f a1 02 88 86 04 a0 11 12 a0 10 1a 00 87 88 ┆ x x ? ? "< b ┆
0x7f3c…7f8c 0b 88 7b 09 88 7b 04 87 88 2d 87 71 03 01 87 7b 01 88 7b 04 88 87 3f 03 00 8a ad 28 8a 7e 02 3f 03 41 95 3f 03 01 89 75 3f 03 01 89 76 3f 03 01 89 78 3f 03 00 89 ad 23 89 b1 05 01 8a a3 3f 03 00 93 1b 3f 03 00 89 ad 00 83 89 80 0b 83 54 20 ┆ { { - q { { ? ( ~ ? A ? u? v? x? # ? ? T ┆
0x7f8c…7fdc 21 8b 7a 1c 25 b7 71 18 40 a7 01 92 7f 48 d0 0e 49 c2 03 48 c4 08 00 a0 2b 92 00 9d a0 11 57 b8 00 93 1b 57 f3 01 92 28 5f 1d 01 92 7e 5f 22 01 92 2f 5f 27 01 92 82 5f 2c 00 84 7e 00 85 7e 0b 84 b4 09 84 b4 04 85 84 00 84 85 05 84 71 03 85 ┆! z % q @ H I H + W W (_ ~_" /_' _, ~ ~ q ┆
0x7fdc…802c 71 00 86 ad 24 86 84 06 22 86 85 02 57 7a 00 93 1b 57 b5 00 86 ad 00 a0 86 36 a0 03 05 0a 0f 00 93 1b 57 a4 01 8f 9f 57 08 01 8f a0 57 03 01 8f a1 01 a0 8a 30 08 95 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆q $ " Wz W 6 W W W 0 ┆
0x802c…807c (84, 0, 400) a0 31 1f 95 8f 57 89 00 86 ad 00 a0 86 36 a0 03 05 0a 0f 00 93 1b 57 78 01 8f 9d 57 08 01 8f 9b 57 03 01 8f 9a 01 a0 8b 30 08 95 06 a0 31 1f 95 8f 57 5d 00 84 ad 01 a0 89 30 08 95 06 a0 61 7f 12 92 61 7f 13 91 61 7f 14 90 31 1f 95 95 57 40 ┆ 1 W 6 Wx W W 0 1 W] 0 a a a 1 W@┆
0x807c…80cc 48 d7 0d 20 92 15 03 01 c8 a3 80 0c 80 0d 41 93 00 a0 2b 92 00 9f a0 92 57 26 48 d7 09 01 c8 a3 80 0c 80 0d 41 93 49 92 09 00 89 ad 08 89 ab 00 ad 89 00 a0 2b 92 00 9f a0 92 09 9f a0 8c 57 00 00 92 11 24 93 13 03 00 92 13 34 00 01 a0 81 80 ┆H A + W&H A I + W $ 4 ┆
0x80cc…811c 0e ad a0 34 00 01 e1 93 01 ab a4 01 d4 71 00 d0 11 34 00 01 e1 92 01 ab 71 01 d4 72 00 d0 12 34 00 20 91 13 4a 20 91 23 0c 20 91 22 0c 00 93 14 06 11 10 34 00 80 06 57 02 80 07 00 a0 c8 36 a0 05 02 02 1e 02 02 57 1c 36 94 09 10 00 10 10 10 ┆ 4 q 4 q r 4 J # " 4 W 6 W 6 ┆
0x811c…816c 10 10 00 10 24 a0 13 04 41 95 57 08 00 93 24 06 11 10 34 00 00 aa 94 00 99 94 01 91 2e 41 8c 06 10 10 34 00 00 8a 00 23 00 b7 0f 00 89 00 6a 8a 16 11 89 14 6a 8a 14 11 89 16 34 01 00 8a 89 6a 8a 16 11 89 14 6a 8a 14 11 89 16 34 00 01 a0 01 ┆ $ A W $ 4 .A 4 # j j 4 j j 4 ┆
0x816c…81bc 01 a3 02 01 80 04 6a 00 a0 a3 03 80 34 05 49 5e 46 41 5e 48 2e 3f 41 90 31 2b 98 80 0f 28 91 13 34 25 bf 71 13 41 30 01 ca a3 01 cb a3 01 cc a3 49 9c 08 49 9d 05 57 12 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ j 4 I^FA^H.?A 1+ ( 4% q A0 I I W ┆