|
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: 33248 (0x81e0)
Notes: pts_type(SC)
Names: »REMTR.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/REMTR.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/REMTR.SC«
IDENT REMTR DDUM KMD08 PDIV ENTRY TRREAD ENTRY TRRMV ENTRY TRINIT ENTRY TRINS ENTRY TRGET ENTRY TRGETF ENTRY BDTPRT ENTRY BDTSCA ENTRY BDTDEL EXT RAREAD EXT RAWRIT EXT SPERR EXT CHDATO EXT XCOP EXT VARRD EXT VARWRT EXT WCHUPD EXT IDXGET EXT LEVRD EXT GETNXT EXT KFREAD EXT KFWRIT EXT NEWLIN EXT GENWRF EXT BSAMPR EXT BCHKPR EXT BGIRPR EXT SPLIN8 EXT CLEAR8 EXT PRTADJ EXT KBTEST EXT TXTRD EXT STREDT EXT WAITF EJECT BDTSCA PROC * * THE PROCEDURE SCANS LEV - VAR.INFO - TRANS * IN ORDER TO BUILD UP A PRINTLEV * OR WRITE ADVISLIST * * LEV 01 : BFO 1,6 * LEV 02 : BFO 2,7 * LEV 03 : BFO 3,8 * LEV 04 : BFO 4,9 * LEV 10 : FREE LIST * LEV 11 : SPECIFICATIONS LEV 01 * LEV 12 : SPECIFICATIONS LEV 02 * LEV 13 : SPECIFICATIONS LEV 03 * LEV 14 : SPECIFICATIONS LEV 04 * TRANSACTIONS ARE MOVED TO LEV 11/12/13/14 IF ANY * CREDIT AMOUNT OCCURS * P = 1 : BUILD PRINTLEV * P = 2 : ADVISLISTE ONLY * PERF CLEAR8 TBF CADVIS,BDTS05 PERF BSAMPR,CBIN0 BDTS05 PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 BOK BDTS08 FOUND BDTS10 PERF KBTEST MAK ? BOK BDTS90 PERF GETNXT READ NEXT VALID LEV BNOK BDTS80 BDTS08 MOVE GTWBCD2,GTLEVNR PERF SPLIN8,CBIN10,CBIN3 PERF VARRD BNOK BDTS95 CBE GTTRKEY,CBIN0,BDTS10 NOTHING TO DECLARE PERF LEVRD READ STAMINFO BNOK BDTS95 CBL GTPRTFRA,=D'1',BDTS11 FOR ALL BFO CBE GTLEVBFO,GTPRTFRA,BDTS11 SUB GTLEVBFO,=D'5' CBNE GTLEVBFO,GTPRTFRA,BDTS10 BDTS11 * CHECK MIN VALOER DATO MOVE GSWBCD6,GTREGF(CBIN13) GET MIN VALOER DATO CBNL GSWBCD6,=D'800000',BDTS112 PERF CHDATO MOVE GTREGF(CBIN13),GSWBCD7 BDTS112 CBG GTREGF(CBIN13),GTPRTDAT,BDTS10 NOT TO BE PAID YET * INITIATE READING TRANS MOVE GTBSUM1,=D'0' TOTAL VALUE TO BE PAID MOVE GSWBIN9,CBIN0 NO OF TRANS TO BE PAID MOVE GSWBIN6,GTTRKEY SET POINTER TO TRANS CLEAR CKRESP FLAG FOR KREDIT CLEAR CSPECFLG FLAG FOR >3 TRANS BDTS114 CLEAR GTSWFLAG PERF TRREAD,GSWBIN6 READ TRANS BNOK BDTS95 CBG GTDUPF(CBIN7),GTPRTDAT,BDTS116 NOT PAY YET CBNL GTDUPF(CBIN4),=D'0',BDTS115 CHECK AMOUNT SET CKRESP KREDIT AMOUNT BDTS115 ADD GTBSUM1,GTDUPF(CBIN4) ADD AMOUNT ADD GSWBIN9,CBIN1 ADD COUNT BDTS116 MOVE GSWBIN6,GTDUPF(CBIN22) POINTER TO NEXT TRANS CBNE GSWBIN6,CBIN0,BDTS114 READ NEXT TRANS * NO MORE TRANS CBL GSWBIN9,CBIN1,BDTS10 TO NEXT LEV, NO TRANS TBT C821FLG,BDTS117 HJORRING ? CBL GSWBIN9,CBIN4,BDTS117 SET CSPECFLG >3 TRANS BDTS117 CBL GTBSUM1,=D'1',BDTS12 AMOUNT<=0, ONLY SPEC. TBF CSPECFLG,BDTS15 NO SPEC, IF <3 TRANS TBT CKRESP,BDTS12 SPEC IF KREDIT * >3, ALWAYS SPEC IF CSPEC=T CLEAR CSPECFLG CBNE GTLEVBFO,=D'1',BDTS15 NO SPEC IF NOT CHECK TBF CSPEC,BDTS15 NO SPEC IF NO KRE BDTS12 CREDIT SET CSPECFLG SPECIFICATION TBT CADVIS,BDTS20 IF ADVIS * IF CREDIT AMOUNTS, AN EXTRA TRANS MUST BE INSERTED * ON PRINTLEV, WITH THE TOTAL AMOUNT (IF >0). * IF AMOUNT IS <= 0 NOTHING IS DONE MOVE GTDUPF(CBIN4),GTBSUM1 TOTAL AMOUNT CBL GTBSUM1,=D'1',BDTS15 ONLY SPECIFICATION MOVE GTDUPF(CBIN2),GTLEVNR MOVE GTDUPF(CBIN7),GTDATO MOVE GTDUPF(CBIN15),=D'9' TEKST NR 9 MOVE GTDUPF(CBIN18),GTPRTDAT MOVE GTTXTTKO,=D'4' TEXT CODE MOVE GTDUPF(CBIN6),GTDATO REGNSKABSAAR MOVE GTDUPF(CBIN1),=D'0' MOVE GTKFVAL,GTLEVNR SAVE GTLEVNR PERF TRGETF,GSWBIN8 GET A FREE RECORD BNOK BDTS95 MOVE GTLEVNR,GTLEVBFO SET PRINT LEV CLEAR GTSWFLAG CBL GTLEVALT,=D'1',BDTS13 MOVE GTDUPF(CBIN2),GTLEVALT BDTS13 PERF VARRD BNOK BDTS95 PERF TRINS,GSWBIN8 BNOK BDTS95 MOVE GTLEVNR,GTKFVAL RESTORE LEV PERF VARRD REREAD LEV BNOK BDTS95 BDTS15 * SET PRINTLEV NO IN GTLEVPNR (SAME FOR ALL TRANS) MOVE GTLEVPNR,GTLEVBFO CBNG GTLEVPNR,=D'5',BDTS205 SUB GTLEVPNR,=D'5' BDTS205 TBF CSPECFLG,BDTS208 ADD GTLEVPNR,=D'10' SPECIFICATION LEV BDTS208 * BDTS20 MOVE GTBSUM1,=D'999999' MOVE GTKFVAL,=D'0' MOVE GSWBIN9,CBIN0 MOVE GSWBIN6,GTTRKEY MOVE GSWBIN7,CBIN0 BDTS21 CLEAR GTSWFLAG PERF TRREAD,GSWBIN6 READ TRANS BNOK BDTS95 TBT CADVIS,BDTS40 CBG GTDUPF(CBIN7),GTPRTDAT,BDTS70 NOT TO BE PAID; NEXT BDTS30 PERF TRRMV * NOW GSWBIN3 POINTS TO NEXT RECORD BNOK BDTS95 * NOW WE HAVE A TRANS TO BE INSERTED * INTO THE PRINTLEV PERF BDTBOG BNOK BDTS95 MOVE GTKFVAL,GTLEVNR SAVE OLD GTLEVNR MOVE GTLEVNR,GTLEVPNR CLEAR GTSWFLAG CBL GTLEVALT,=D'1',BDTS34 MOVE GTDUPF(CBIN2),GTLEVALT TO BE PAID TO SOMEONE ELSE BDTS34 PERF VARRD READ PRINTLEV BNOK BDTS95 PERF TRINS,GSWBIN6 INSERT ON PRINTLEV BNOK BDTS95 MOVE GTLEVNR,GTKFVAL REREAD OLD LEV PERF VARRD BNOK BDTS95 MOVE GSWBIN6,GSWBIN3 SET POINTER TO NEXT B BDTS60 BDTS40 * CBG GTDUPF(CBIN7),GTPRTDAT,BDTS55 NOT TO BE PAID; NEXT BDTS45 ADD GSWBIN9,CBIN1 MOVE GSWBCD5,GSWBIN9 PERF BSAMPR,GSWBIN9 CBL GSWBIN9,CBIN3,BDTS55 MOVE GSWBIN9,CBIN0 B BDTS55 * BDTS50 MOVE GSWBIN7,GSWBIN6 SET PREVIOUS RECORD NO BDTS55 MOVE GSWBIN6,GTDUPF(CBIN22) POINT TO NEXT TRANS BDTS60 CBNE GSWBIN6,CBIN0,BDTS21 IF ANY TBT CADVIS,BDTS65 ADVISLISTE ? CBNE GTBSUM1,=D'999999',BDTS61 MOVE GTBSUM1,=D'0' BDTS61 MOVE GTREGF(CBIN13),GTBSUM1 PERF VARWRT BNOK BDTS95 MOVE GTBSUM1,=D'999999' B BDTS10 CONTINUE BDTS65 MOVE GSWBCD5,GSWBIN9 IB GSWBIN9,BDTS66,BDTS67,BDTS67 B BDTS68 BDTS66 MOVE GSWBCD5,=D'2' MAKE SURE A LINE IS PRINTED BDTS67 PERF BSAMPR,CBIN4 BDTS68 CLEAR CSWFLAG B BDTS10 BDTS70 CBNG GTBSUM1,GTDUPF(CBIN7),BDTS50 LOWER VALORDATO? MOVE GTBSUM1,GTDUPF(CBIN7) B BDTS50 BDTS80 TBF CADVIS,BDTS90 PERF BSAMPR,CBIN5 BDTS90 PERF CLEAR8 CMP CBIN0,CBIN0 RET BDTS95 PERF CLEAR8 CMP CBIN0,CBIN1 RET PEND EJECT BDTPRT PROC P * THE PROCEDURE LISTS ALL TRANSES CONNECTED * TO THE SPEC. LEVNR IN <GTLEVNR> * P = 1: CHECK/GIRO * P = 2: BUNDTLISTE * P = 3: KREDIT SPECIFICATION MOVE GSWBIN1,P IB GSWBIN1,BDTP10,BDTP20,BDTP30 BDTP10 MOVE GSWBIN1,GTPRTTIL IB GSWBIN1,BDTP40,BDTP60 USE BFO AS INDEX B BDTP90 * BDTP20 PERF BSAMPR,CBIN0 PRINT HEADER PERF VARRD BNOK BDTP95 MOVE GSWBCD5,=D'1' MOVE GSWBIN8,GTTRKEY CMP GSWBIN8,CBIN0 BE BDTP90 NO TRANSACTIONS BDTP21 PERF KBTEST <MAK> PRESSED ? BOK BDTP90 YES, OUT OF ROUTINE CLEAR GTSWFLAG PERF TRREAD,GSWBIN8 BNOK BDTP95 CBE GTLEVNR,GTDUPF(CBIN2),BDTP25 CBL GTLEVNR,=D'19',BDTP23 PERF BSAMPR,CBIN4 BDTP23 MOVE GTLEVNR,GTDUPF(CBIN2) PERF LEVRD BOK BDTP24 PERF SETLEV BDTP24 MOVE GSWBCD5,=D'1' BDTP25 MOVE GSWBIN4,GSWBCD5 PERF BSAMPR,GSWBIN4 PRINT NEXT INFO ADD GSWBCD5,=D'1' CBL GSWBCD5,=D'4',BDTP27 LINE FILLED UP ? MOVE GSWBCD5,=D'1' BDTP27 MOVE GSWBIN8,GTDUPF(CBIN22) CBE GSWBIN8,CBIN0,BDTP29 B BDTP21 BDTP29 PERF BSAMPR,CBIN4 WRITE LAST LINE PERF BSAMPR,CBIN5 WRITE TOTAL B BDTP90 * * BDTP30 KREDIT SPECIFICATION PERF VARRD READ PRINTLEV BNOK BDTP95 MOVE GSWBIN8,GTTRKEY CMP GSWBIN8,CBIN0 BE BDTP90 NO TRANSACTIONS * BDTP31 PERF KBTEST <MAK> PRESSED? BOK BDTP90 YES, OUT OF ROUTINE CLEAR GTSWFLAG PERF TRREAD,GSWBIN8 READ TRANSACTION BNOK BDTP95 CBE GTLEVNR,GTDUPF(CBIN2),BDTP36 SAME LEV? CBL GTLEVNR,=D'19',BDTP325 FIRST TIME? BDTP320 WRITE TOTAL SET CSWFLAG PERF NEWLIN,CBIN1 MOVE GSWBCD4,GSWBIN10 PERF GENWRF,GTHCDEV,FBDTSLUT WRITE TOTAL ADD GSWBIN3,CBIN2 PERF NEWLIN,GSWBIN3 CMP GSWBIN8,CBIN0 FINISHED? BE BDTP90 YES * BDTP325 * NULSTIL COUNTERS, SET PAGE MOVE GTBSUM3,=D'0' TOTAL MOVE GSWBIN10,CBIN0 * BDTP33 WRITE HEADING MOVE GTKFVAL,GTDUPF(CBIN2) SAVE LEV NO MOVE GTLEVNR,GTPRTTIL SET PRINTLEV ADD GTLEVNR,=D'10' KREDIT SPECIFICATION PERF LEVRD BOK BDTP34 PERF SETLEV BDTP34 PERF GENWRF,GTHCDEV,FRMTNVN WRITE NAME MOVE GTLEVNR,GTKFVAL RESET LEV NO PERF LEVRD BOK BDTP35 PERF SETLEV BDTP35 ADD GSWBIN10,CBIN1 MOVE GSWBCD4,GSWBIN10 NEXT PAGE PERF GENWRF,GTHCDEV,FKRE10 WRITE LEV NO PERF GENWRF,GTHCDEV,FRMTNVN WRITE NAME PERF GENWRF,GTHCDEV,FKRE20 WRITE DATE MOVE GSWBIN3,=W'30' SET LINECOUNT B BDTP37 * BDTP36 CHEC FOR NEW PAGE CBG GSWBIN3,CBIN4,BDTP37 PERF NEWLIN,CBIN10 B BDTP33 * BDTP37 WRITE SPECIFICATION MOVE GSWBIN7,GTDUPF(CBIN15) TEXT NR PERF TXTRD,GSWBIN7 PERF STREDT PERF GENWRF,GTHCDEV,FRMSPE WRITE LINE SUB GSWBIN3,CBIN1 SET LINECOUNT ADD GTBSUM3,GTDUPF(CBIN4) ADD TO TOTAL * SET POINTER TO NEXT TRANSACTION MOVE GSWBIN8,GTDUPF(CBIN22) CBNE GSWBIN8,CBIN0,BDTP31 B BDTP320 * ***** * BDTP40 CHECK PRINT PERF BCHKPR,CBIN0 PERF BCHKPR,CBIN0 PERF PRTADJ BL BDTP40 BG BDTP90 PERF VARRD BNOK BDTP95 MOVE GSWBCD5,=D'1' MOVE GSWBIN8,GTTRKEY CMP GSWBIN8,CBIN0 BE BDTP90 BDTP41 PERF KBTEST BOK BDTP90 CLEAR GTSWFLAG PERF TRREAD,GSWBIN8 BNOK BDTP95 CBG GTDUPF(CBIN2),GTPRTFRA,BDTP47 CBE GTLEVNR,GTDUPF(CBIN2),BDTP45 CBL GTLEVNR,=D'19',BDTP43 CLEAR CWORK1 CLEAR CWORK1 PERF BCHKPR,CBIN4 BDTP43 MOVE GTLEVNR,GTDUPF(CBIN2) PERF LEVRD BOK BDTP44 PERF SETLEV BDTP44 MOVE GSWBCD5,=D'1' BDTP45 SET CWORK1 SET CWORK1 MOVE GSWBIN4,GSWBCD5 PERF BCHKPR,GSWBIN4 ADD GSWBCD5,=D'1' TBT C821FLG,BDTP47 CBL GSWBCD5,=D'4',BDTP47 MOVE GSWBCD5,=D'1' BDTP47 MOVE GSWBIN8,GTDUPF(CBIN22) CBE GSWBIN8,CBIN0,BDTP49 B BDTP41 BDTP49 CLEAR CWORK1 PERF BCHKPR,CBIN4 B BDTP90 * BDTP60 PERF BGIRPR,CBIN0 PERF PRTADJ BL BDTP60 BG BDTP90 PERF VARRD BNOK BDTP95 MOVE GSWBCD5,=D'1' MOVE GSWBIN8,GTTRKEY CBE GSWBIN8,CBIN0,BDTP90 BDTP61 PERF KBTEST BOK BDTP90 CLEAR GTSWFLAG PERF TRREAD,GSWBIN8 BNOK BDTP95 CBG GTDUPF(CBIN2),GTPRTFRA,BDTP67 CBE GTLEVNR,GTDUPF(CBIN2),BDTP65 CBL GTLEVNR,=D'19',BDTP64 * DEPENDING ON THE VALUE OF GSWBIN4 (W LINE) * WE HAVE TO DECIDE IF WE HAVE TO SHIFT TO THE RIGHT * HALF OF THE GIROFORM, OR START ON A NEW ONE MOVE GSWBIN4,GSWBCD5 IB GSWBIN4, C BDTP64,BDTP62,BDTP62,BDTP62,BDTP63,BDTP63 BDTP62 MOVE GSWBCD5,=D'4' START ON RIGHT HALF B BDTP650 BDTP63 PERF BGIRPR,CBIN7 PRINT AND START ON NEW FORM BDTP64 MOVE GSWBCD5,=D'1' BDTP650 MOVE GTLEVNR,GTDUPF(CBIN2) PERF LEVRD BOK BDTP65 PERF SETLEV BDTP65 MOVE GSWBIN4,GSWBCD5 PERF BGIRPR,GSWBIN4 ADD GSWBCD5,=D'1' CBL GSWBCD5,=D'7',BDTP67 MOVE GSWBCD5,=D'1' BDTP67 MOVE GSWBIN8,GTDUPF(CBIN22) CBE GSWBIN8,CBIN0,BDTP69 B BDTP61 BDTP69 CBE GSWBCD5,=D'1',BDTP90 EMPTY FORM ? PERF BGIRPR,CBIN7 PRINT LAST FORM B BDTP90 * BDTP90 CMP CBIN0,CBIN0 RET * BDTP95 CMP CBIN0,CBIN1 RET PEND EJECT BDTBOG PROC * * BOOKKEEPING OF A TRANSACTION * DURING THE MOVE FROM LEV TO PRINTLEV * ADD TO VERSUR * SUB FROM PENGE * UPDAT VAR. INFO * CBL GTDUPF(CBIN4),=D'0',BDTB30 KREDIT MOVE GSWBIN4,CBIN2 SUB GTREGF(CBIN14),GTDUPF(CBIN4) VENT DEBET B BDTB40 BDTB30 MOVE GSWBIN4,CBIN1 SUB GTREGF(CBIN15),GTDUPF(CBIN4) VENT KREDIT BDTB40 * BOGFORING MOVE GSWBIN5,GTLEVBFO CBL GSWBIN5,CBIN5,BDTB45 SUB GSWBIN5,CBIN5 ADJUST FOR BUNDT ONLY BDTB45 PERF KFREAD,CBIN3,GSWBIN4,GSWBIN5,GTKFVAL ADD GTKFVAL,GTDUPF(CBIN4) ADD TO VERSUR PERF KFWRIT,CBIN3,GSWBIN4,GSWBIN5,GTKFVAL PERF KFREAD,CBIN2,CBIN1,GSWBIN5,GTKFVAL SUB GTKFVAL,GTDUPF(CBIN4) SUB FROM PENGE PERF KFWRIT,CBIN2,CBIN1,GSWBIN5,GTKFVAL PERF VARWRT BNOK BDTB95 CMP CBIN0,CBIN0 RET BDTB95 CMP CBIN0,CBIN1 RET PEND EJECT BDTDEL PROC * * THE PROCEDURE MOVES ALL RECORDS * FROM A GIVEN PRINTLEV TO THE FREE LEV * * 1) READ PRINTLEV AR.INFO * 2) UPDATE ALL RECORDS, APART FROM LAST-IN-CHAIN * 3) READ FREE LEV VAR.INFO * 4) UPDATE LAST TRANS WITH GTTRKEY, AND REWRITE * 5) UPDATE FREE LEV WITH GTTRKEY FROM PRINTLEV * 6) UPDATE PRINTLEV WITH GTTRKEY := ZERO * 1) MOVE GTBSUM1,=D'0' MOVE GTKFVAL,GTLEVNR SAVE PRINTLEV IDENT PERF VARRD READ POINTER TO 1. TRANS BNOK BDTB095 CBE GTTRKEY,CBIN0,BDTB090 NOTHING TO DELETE MOVE GSWBIN7,GTTRKEY MOVE GSWBIN8,GTTRKEY MOVE GTLEVNR,=D'10' * 2) BDTB020 SET GTSWFLAG POINTER ONLY PERF TRREAD,GSWBIN8 READ TRANS BNOK BDTB095 ADD GTBSUM1,=D'1' MOVE GTDUPF(CBIN7),=D'0' VALORDATO MOVE GTDUPF(CBIN13),=D'0' MOVE GTDUPF(CBIN14),=D'0' MOVE GTDUPF(CBIN18),=D'0' MOVE GTDUPF(CBIN19),=D'0' MOVE GTDUPF(CBIN15),=D'0' TEXTNR MOVE GTDUPF(CBIN21),=D'0' TEXTCODE MOVE GTDUPF(CBIN4),=D'0' UDB. BELOB MOVE GTDUPF(CBIN6),=D'0' REGNSKABS]R MOVE GTDUPF(CBIN1),=D'0' REGKONTONR MOVE GTDUPF(CBIN2),=D'0' LEVNR CBL GTDUPF(CBIN22),=D'1',BDTB030 LAST IN CHAIN? CLEAR GTSWFLAG PERF TRPUT,GSWBIN8 REWRITE BNOK BDTB095 MOVE GSWBIN8,GTDUPF(CBIN22) B BDTB020 * 3) BDTB030 MOVE GTLEVNR,=D'10' PERF WAITF,CVAREXFL WAIT FOR ACCESS TO VARRD PERF VARRD READ FREE LEV BNOK BDTB085 * 4) MOVE GTDUPF(CBIN22),GTTRKEY CLEAR GTSWFLAG PERF TRPUT,GSWBIN8 REWRITE LAST TRANS; BNOK BDTB085 POINTS NOW TO 'OLD' FIRST RECORD IN FREE LEV * 5) ADD GTREGF(CBIN11),GTBSUM1 AVAIL. RECORDS MOVE GTTRKEY,GSWBIN7 POINT TO FIRST RECORD IN PERF VARWRT ORIG. PRINTLEV BNOK BDTB085 AND REWRITE * 6) MOVE GTLEVNR,GTKFVAL PERF VARRD READ PRINTLEV BNOK BDTB085 MOVE GTREGF(CBIN10),=D'0' MOVE GTREGF(CBIN11),=D'0' MOVE GTREGF(CBIN12),=D'0' MOVE GTREGF(CBIN13),=D'0' MOVE GTREGF(CBIN14),=D'0' MOVE GTREGF(CBIN15),=D'0' MOVE GTTRKEY,CBIN0 PERF VARWRT BNOK BDTB085 * CLEAR CVAREXFL B BDTB090 BDTB085 CLEAR CVAREXFL B BDTB095 * BDTB090 CMP CBIN0,CBIN0 OK B BDTB099 BDTB095 CMP CBIN0,CBIN1 BDTB099 RET PEND EJECT TRINIT PROC * * THE PROCEDURE MOVES ALL TRANSACTIONRECORDS * TO THE SPECIAL SUPPLIER CONTAINING ALL * FREE RECORDS * GTDUPF(15) CONTAINS KEY OF LAST * READABLE/WRITABLE RECORD * MOVE GTLEVNR,=D'10' PERF CLEAR8 MOVE GSWBIN8,CBIN1 MOVE GTDUPF(CBIN17),=D'0' PERF TRREAD,GSWBIN8 READ 1. TRANS BOK TRIN10 B TRIN95 TRIN10 CBNE GTWBCD1,=D'4',TRIN90 B TRIN30 TRIN20 PERF TRREAD,GSWBIN8 BOK TRIN30 CBE GTWBCD1,=D'10',TRIN25 END MEDIUM B TRIN40 CHANGE LAST POINTER TO ZERO TRIN25 MOVE GSWBIN8,GTDUPF(CBIN17) SET GTSWFLAG PERF TRREAD,GSWBIN8 BNOK TRIN95 MOVE GTDUPF(CBIN22),=D'0' PERF TRPUT,GSWBIN8 BNOK TRIN95 * UPDATE VAR.INFO TO REFLECT * 1) POINTER TO FIRST FREE RECORD (ALWAYS 1) * 2) NUMBER OF FREE RECORDS (DEPENDING ON FILE SIZE) MOVE GTLEVNR,=D'10' FREE-LIST SUPPLIER PERF VARRD READ VAR.INFO BNOK TRIN95 MOVE GTTRKEY,CBIN1 FIRST IN FREE LIST MOVE GTREGF(CBIN11),GSWBIN8 NBR OF FREE RECORDS MOVE GTREGF(CBIN12),GSWBIN8 PERF VARWRT REWRITE BNOK TRIN95 B TRIN90 * TRIN30 MOVE GTWBCD2,GSWBIN8 PERF SPLIN8,CBIN10,CBIN3 MOVE GTDUPF(CBIN2),=D'10' LEVNR MOVE GTDUPF(CBIN7),=D'0' VALORDATO MOVE GTDUPF(CBIN13),=D'0' NR-1 MOVE GTDUPF(CBIN14),=D'0' NR-2 MOVE GTDUPF(CBIN18),=D'0' DATO-1 MOVE GTDUPF(CBIN19),=D'0' DATO-2 MOVE GTDUPF(CBIN15),=D'0' TEXTNR MOVE GTDUPF(CBIN21),=D'3' TEXTCODE MOVE GTDUPF(CBIN4),=D'0' UDB. BELOB MOVE GTDUPF(CBIN6),=D'0' REGNSKABS]R MOVE GTDUPF(CBIN1),=D'0' REGKONTONR MOVE GTDUPF(CBIN22),GSWBIN8 OLD POINTER ADD GTDUPF(CBIN22),=D'1' PLUS ONE GIVES NEW POINTER CLEAR GTSWFLAG PERF TRPUT,GSWBIN8 BNOK TRIN95 MOVE GTDUPF(CBIN17),GSWBIN8 SAVE LAST USEABLE POINTER ADD GSWBIN8,CBIN1 B TRIN20 * TRIN40 READ ERROR, DROP THE RECORD(S) ADD GSWBIN8,CBIN1 CONTINUE TO READ PERF TRREAD,GSWBIN8 UNTIL NO ERROR IS FOUND BOK TRIN40A CBE GTWBCD1,=D'10',TRIN25 B TRIN40 TRIN40A MOVE GTDUPF(CBIN16),GSWBIN8 SAVE NEW RECORDNBR MOVE GSWBIN8,GTDUPF(CBIN17) TRIN41 PERF TRREAD,GSWBIN8 THE LAST USEABLE BOK TRIN43 HAS TO BE UPDATED TRIN42 SUB GSWBIN8,CBIN1 B TRIN41 ONE MORE ERROR TRIN43 MOVE GTDUPF(CBIN22),GTDUPF(CBIN16) PERF TRPUT,GSWBIN8 BNOK TRIN42 MOVE GSWBIN8,GTDUPF(CBIN16) B TRIN20 * TRIN90 PERF CLEAR8 CMP CBIN0,CBIN0 ALL OK B TRIN99 TRIN95 PERF CLEAR8 CMP CBIN0,CBIN1 TRIN99 RET PEND EJECT TRINS PROC PT * * THE PROCEDURE INSERTS A TRANSACTION INTO THE TRANSFILE * <PT> POINTS TO A FREE RECORD * 1) LEV ALREADY READ * 2) MOVE POINTER FROM LEV TO 'FREE' RECORD * 3) MOVE POINTER TO LEV * 4) WRITE 'FREE' RECORD AFTER PACKING FROM GTDUPF * 5) UPDATE LEV * 6) REWRITE LEV * * 1) * LEV READ BEFORE ENTRY * 2) MOVE GTDUPF(CBIN22),GTTRKEY * 3) MOVE GTTRKEY,PT * 4) PERF TRPUT,PT INSERT BNOK TRINS95 * 5) PERF WCHUPD * 6) CBNE GTLEVNR,=D'10',TRINS50 ADD GTREGF(CBIN11),=D'1' AVAILABLE RECORDS TRINS50 PERF VARWRT BNOK TRINS95 CMP CBIN0,CBIN0 B TRINS99 TRINS95 CMP CBIN1,CBIN0 TRINS99 RET PEND EJECT TRGETF PROC PT * THE PROCEDURE GETS A RECORD FROM THE FREE LEV. * THE POINTER IS RETURNED IN <PT> PERF WAITF,CVAREXFL MOVE GTLEVNR,=D'10' PERF VARRD BNOK TRGETF95 PERF TRGET,CBIN0,PT BNOK TRGETF95 CLEAR CVAREXFL CMP CBIN0,CBIN0 B TRGETF99 TRGETF95 CLEAR CVAREXFL CMP CBIN0,CBIN1 TRGETF99 RET PEND TRPUT PROC PT * THE PROC WRITES THE RECORD TO THE SPECIFIED RECORDNBR PERF WAITF,CTRFFLG PERF TRPACK PERF RAWRIT,DK11,=D'11',CTRBUF,PT BNOK TRPUT95 CLEAR CTRFFLG CMP CBIN0,CBIN0 B TRPUT99 TRPUT95 CLEAR CTRFFLG CMP CBIN0,CBIN1 TRPUT99 RET PEND EJECT TRREAD PROC PT * * THE PROCEDURE READS THE TRANSRECORD * WITH THE SPECIFIED RECORDNBR AND UNPACKS IT * PERF WAITF,CTRFFLG MOVE GSWBIN1,=W'39' MOVE CTRBUF,CBLANKS PERF RAREAD,DK11,=D'11',CTRBUF,GSWBIN1,PT BNOK TRREA95 PERF TRUNP CLEAR CTRFFLG CMP CBIN0,CBIN0 B TRREA99 TRREA95 CLEAR CTRFFLG CMP CBIN0,CBIN1 TRREA99 RET PEND EJECT TRRMV PROC * THE PROCEDURE REMOVES THE CURRENT RECORD FROM THE CHAIN * IN GTKFVAL A POINTER TO THE PREVIOUS RECORD MUST * BE AVAILABLE, IN ORDER TO BE ABLE TO COPY * THE POINTER FROM THE REMOVED RECORD INTO THE PREVIOUS. MOVE GSWBIN3,GTDUPF(CBIN22) CBE GSWBIN7,CBIN0,TRR10 FIRST IN CHAIN? SET GTSWFLAG MOVE GSWBIN8,GSWBIN7 PERF TRREAD,GSWBIN8 BNOK TRR95 MOVE GTDUPF(CBIN22),GSWBIN3 PERF TRPUT,GSWBIN8 BNOK TRR95 B TRR90 TRR10 MOVE GTTRKEY,GTDUPF(CBIN22) PERF VARWRT BNOK TRR95 B TRR90 TRR90 CMP CBIN0,CBIN0 B TRR99 TRR95 CMP CBIN0,CBIN1 TRR99 RET PEND EJECT TRGET PROC OLD,PT * THE PROCEDURE REMOVES THE TRANS POINTED AT * BY <OLD> FROM THE CHAIN. * IF <OLD> = 0, THE VAR.INFO POINTER IS UPDATED. SET GTSWFLAG CBE OLD,CBIN0,TRGET30 PERF TRREAD,OLD BNOK TRGET95 MOVE GSWBIN8,GTDUPF(CBIN22) MOVE THE POINTER RECENTLY READ MOVE PT,GTDUPF(CBIN22) PERF TRREAD,GSWBIN8 BNOK TRGET95 PERF TRPUT,OLD UPDATE OLD WITH <PT>'S POINTER BNOK TRGET95 B TRGET90 TRGET30 FIRST TRANS IN CHAIN MOVE GSWBIN8,GTTRKEY MOVE PT,GTTRKEY PERF TRREAD,GSWBIN8 BNOK TRGET95 MOVE GTTRKEY,GTDUPF(CBIN22) CBNE GTLEVNR,=D'10',TRGET80 SUB GTREGF(CBIN11),=D'1' AVAILABLE RECORDS MOVE GSWBCD6,GTREGF(CBIN11) MUL GSWBCD6,=D'20' CBL GTREGF(CBIN12),GSWBCD6,TRGET80 MOVE GTWBCD2,=D'11' MOVE SPBINW4,CBIN21 MOVE GTWBCD1,=D'50' MOVE GSWSTR9,='DISKFEJL ' PERF SPERR TRGET80 PERF VARWRT BNOK TRGET95 TRGET90 CMP CBIN0,CBIN0 B TRGET99 TRGET95 CMP CBIN0,CBIN1 TRGET99 RET PEND EJECT TRUNP PROC * UNPACK INFO FROM TRANS * IF GTSWFLAG IS SET, ONLY THE POINTER WILL BE * UNPACKED, TO AVOID OVERWRITING THE OLD INFO TBT GTSWFLAG,TRU070 PERF XCOP,GSWBIN1,=W'0',=W'2',CTRBUF,=W'36' MOVE GTDUPF(CBIN20),GSWBIN1 MOVE GSWBCD7,=D'1' PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'0' MOVE GTDUPF(CBIN2),GSWBCD7 LEVNR MOVE GSWBCD7,=D'1' PERF XCOP,GSWBCD7,=W'4',=W'3',CTRBUF,=W'5' MOVE GTDUPF(CBIN7),GSWBCD7 VALORDATO PERF XCOP,GSWBIN1,=W'0',=W'2',CTRBUF,=W'18' MOVE GTDUPF(CBIN15),GSWBIN1 TEXTNR MOVE GSWBIN1,CBIN0 PERF XCOP,GSWBIN1,=W'1',=W'1',CTRBUF,=W'20' MOVE GTDUPF(CBIN21),GSWBIN1 PERF XCOP,GSWBCD7,=W'0',=W'7',CTRBUF,=W'21' MOVE GTDUPF(CBIN4),GSWBCD7 UDB. BELOB MOVE GSWBCD7,=D'1' PERF XCOP,GSWBCD7,=W'6',=W'1',CTRBUF,=W'28' MOVE GTDUPF(CBIN6),GSWBCD7 REGNSKABS]R MOVE GSWBCD7,=D'1' REGKONTONR PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'29' MOVE GTDUPF(CBIN1),GSWBCD7 MOVE GTDUPF(CBIN13),=D'0' MOVE GTDUPF(CBIN14),=D'0' MOVE GTDUPF(CBIN18),=D'0' MOVE GTDUPF(CBIN19),=D'0' MOVE GSWBCD7,=D'1' MOVE GSWBIN1,GTDUPF(CBIN21) TEXTCODE GOVERNS UNPACKING OF TEXTINFO1 AND -2 MOVE GTTXTTKO,GSWBIN1 IB GSWBIN1,TRU010,TRU020,TRU030,TRU040,TRU050,TRU060 TRU010 B TRU070 NO EXTRA INFO TRU020 NR-1 MOVE GSWBCD7,=D'1' PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'8' MOVE GTDUPF(CBIN13),GSWBCD7 B TRU070 TRU030 NR-1 NR-2 MOVE GSWBCD7,=D'1' PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'8' MOVE GTDUPF(CBIN13),GSWBCD7 PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'13' MOVE GTDUPF(CBIN14),GSWBCD7 B TRU070 TRU040 DATO-1 MOVE GSWBCD7,=D'1' PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'8' MOVE GTDUPF(CBIN18),GSWBCD7 B TRU070 TRU050 DATO-1 DATO-2 MOVE GSWBCD7,=D'1' PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'8' MOVE GTDUPF(CBIN18),GSWBCD7 PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'13' MOVE GTDUPF(CBIN19),GSWBCD7 B TRU070 TRU060 NR-1 DATO-1 MOVE GSWBCD7,=D'1' PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'8' MOVE GTDUPF(CBIN13),GSWBCD7 PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'13' MOVE GTDUPF(CBIN18),GSWBCD7 TRU070 PERF XCOP,GSWBIN1,=W'0',=W'2',CTRBUF,=W'34' MOVE GTDUPF(CBIN22),GSWBIN1 NEXT TRANS POINTER CLEAR CTRFFLG RELEASE BUFFER RET PEND EJECT TRPACK PROC * IF GTSWFLAG IS SET, ONLY THE POINTER WILL BE MOVED, * TO AVOID OVERWRITING THE BUFFER TBT GTSWFLAG,TRP070 MOVE GSWBIN2,CBIN0 CBG GTLEVNR,=D'18',TRP005 MOVE GSWBIN2,GTLEVNR TRP005 PERF XCOP,CTRBUF,=W'36',=W'2',GSWBIN2,=W'0' MOVE GSWBCD7,GTDUPF(CBIN2) LEVNR PERF XCOP,CTRBUF,=W'0',=W'5',GSWBCD7,=W'2' MOVE GSWBCD7,GTDUPF(CBIN7) VALORDATO MOVE GSWBCD6,GSWBCD7 PERF CHDATO PERF XCOP,CTRBUF,=W'5',=W'3',GSWBCD7,=W'4' MOVE GSWBIN2,GTDUPF(CBIN15) TEXTNR PERF XCOP,CTRBUF,=W'18',=W'2',GSWBIN2,=W'0' MOVE GSWBIN2,GTTXTTKO TEXTKODE PERF XCOP,CTRBUF,=W'20',=W'1',GSWBIN2,=W'1' MOVE GSWBCD7,GTDUPF(CBIN4) UDB. BELOB PERF XCOP,CTRBUF,=W'21',=W'7',GSWBCD7,=W'0' MOVE GSWBCD7,GTDUPF(CBIN6) REGNSKABS]R PERF XCOP,CTRBUF,=W'28',=W'1',GSWBCD7,=W'6' MOVE GSWBCD7,GTDUPF(CBIN1) REGKONTONR PERF XCOP,CTRBUF,=W'29',=W'5',GSWBCD7,=W'2' MOVE GSWBIN1,GTTXTTKO IB GSWBIN1,TRP010,TRP020,TRP030,TRP040,TRP050,TRP060 B TRP070 TRP010 NO EXTRA INFO B TRP070 TRP020 NR-1 MOVE GSWBCD7,GTDUPF(CBIN13) TRP025 PERF XCOP,CTRBUF,=W'8',=W'5',GSWBCD7,=W'2' B TRP070 TRP030 NR-1 NR-2 MOVE GSWBCD7,GTDUPF(CBIN13) PERF XCOP,CTRBUF,=W'8',=W'5',GSWBCD7,=W'2' MOVE GSWBCD7,GTDUPF(CBIN14) TRP035 PERF XCOP,CTRBUF,=W'13',=W'5',GSWBCD7,=W'2' B TRP070 TRP040 DATO-1 MOVE GSWBCD7,GTDUPF(CBIN18) B TRP025 TRP050 MOVE GSWBCD7,GTDUPF(CBIN18) PERF XCOP,CTRBUF,=W'8',=W'5',GSWBCD7,=W'2' MOVE GSWBCD7,GTDUPF(CBIN19) B TRP035 TRP060 MOVE GSWBCD7,GTDUPF(CBIN13) PERF XCOP,CTRBUF,=W'8',=W'5',GSWBCD7,=W'2' MOVE GSWBCD7,GTDUPF(CBIN18) B TRP035 TRP070 MOVE GSWBIN2,GTDUPF(CBIN22) POINTER PERF XCOP,CTRBUF,=W'34',=W'2',GSWBIN2,=W'0' RET PEND EJECT SETLEV PROC * INITIATES A LEV FOR PRINT OUT MOVE GTLEVNVN,CBLANKS EDIT GSWSTR20,FSAMLEV LEV MISSING, INSERT IDENT PERF XCOP,GTLEVNVN,=W'0',=W'10',GSWSTR20,=W'0' MOVE GTLEVADR,CBLANKS MOVE GTLEVBY,CBLANKS MOVE GTLEVPDI,CBLANKS MOVE GTLEVPNR,=D'0' RET PEND FSAMLEV FRMT FMEL '9999999999',GTLEVNR FMEND EJECT * * FORMATS * FRMSPE FRMT FNL FCOPY GTLEVTXT FILLR ' ',1 FCOPY SPINPUT FILLR ' ',1 FMEL 'ZZZVZZZVZZZVZZ9E,99-',GTDUPF(CBIN4) FMEND FBDTSLUT FRMT FNL FBT CSWFLAG,FBDTSL10 GRAND TOTAL ? FNL FMEL 'ZZZZZZZVZZ9,99-',GTBSUM2 FILLR ' ',14 FCOPY ='SIDE' FCOPY ='TOTAL' FB FBDTSL99 FBDTSL10 FMEL 'ZZZZZZZVZZ9,99-',GTBSUM3 PAGETOTAL FILLR ' ',14 FCOPY ='TOTAL' FTEXT ' IALT' FMEL 'ZZ9',GSWBCD4 FTEXT ' SIDE(R)' FBDTSL99 FNL FNL FMEND * FRMTNVN FRMT FILLR '+',2 FCOPY GTLEVNVN FNL FCOPY GTLEVADR FNL FCOPY GTLEVBY FNL FMEL 'ZZZZ',GTLEVPNR FILLR ' ',2 FCOPY GTLEVPDI FMEND * * FKRE10 FRMT FNL FILLR ' ',47 FMEL 'ZZZ9999999',GTLEVNR FILLR ' ',10 FMEL 'ZZZZZZZ',GTLEVGI FNL FNL FMEND * * FKRE20 FRMT FNL FNL FNL FNL FCOPY ='SPECIFIKATION ' FTEXT 'AF FREMSENDT BEL' FILLR X'5C',1 FTEXT 'B PR. ' FBT CBDTGIR,FKREL21 FCOPY =C'CHECK' FB FKREL22 FKREL21 FCOPY =C'GIRO ' FKREL22 FILLR ' ',2 FCOPY =C'DATO' FILLR ' ',2 FMEL '99E-99E-99',GTPRTDAT FILLR ' ',5 FCOPY =C'SIDE' FMEL 'ZZZZ',GSWBCD4 FNL FNL FMEND * * END
0x0000…0014 (0, 0, 400) Head {h00=0x0010, h01=0x0050, text=» IDENT REMTR«, t00=0x0000, t01=0x0004}
0x0014…0028 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0018}
0x0028…0036 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x002c}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0054 Head {h00=0x0012, h01=0x0050, text=» ENTRY TRREAD «, t00=0x0000, t01=0x0042}
0x0054…0068 Head {h00=0x0010, h01=0x0050, text=» ENTRY TRRMV«, t00=0x0000, t01=0x0058}
0x0068…007e Head {h00=0x0012, h01=0x0050, text=» ENTRY TRINIT «, t00=0x0000, t01=0x006c}
0x007e…0092 Head {h00=0x0010, h01=0x0050, text=» ENTRY TRINS«, t00=0x0000, t01=0x0082}
0x0092…00a6 Head {h00=0x0010, h01=0x0050, text=» ENTRY TRGET«, t00=0x0000, t01=0x0096}
0x00a6…00bc Head {h00=0x0012, h01=0x0050, text=» ENTRY TRGETF «, t00=0x0000, t01=0x00aa}
0x00bc…00d2 Head {h00=0x0012, h01=0x0050, text=» ENTRY BDTPRT «, t00=0x0000, t01=0x00c0}
0x00d2…00e8 Head {h00=0x0012, h01=0x0050, text=» ENTRY BDTSCA «, t00=0x0000, t01=0x00d6}
0x00e8…00fe Head {h00=0x0012, h01=0x0050, text=» ENTRY BDTDEL «, t00=0x0000, t01=0x00ec}
0x00fe…0112 Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x0102}
0x0112…0126 Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0000, t01=0x0116}
0x0126…0138 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x012a}
0x0138…014c Head {h00=0x0010, h01=0x0050, text=» EXT CHDATO «, t00=0x0000, t01=0x013c}
0x014c…015e Head {h00=0x000e, h01=0x0050, text=» EXT XCOP «, t00=0x0000, t01=0x0150}
0x015e…0170 Head {h00=0x000e, h01=0x0050, text=» EXT VARRD«, t00=0x0000, t01=0x0162}
0x0170…0184 Head {h00=0x0010, h01=0x0050, text=» EXT VARWRT «, t00=0x0000, t01=0x0174}
0x0184…0198 Head {h00=0x0010, h01=0x0050, text=» EXT WCHUPD «, t00=0x0000, t01=0x0188}
0x0198…01ac Head {h00=0x0010, h01=0x0050, text=» EXT IDXGET «, t00=0x0001, t01=0x000c}
0x01ac…01be Head {h00=0x000e, h01=0x0050, text=» EXT LEVRD«, t00=0x0001, t01=0x0020}
0x01be…01d2 Head {h00=0x0010, h01=0x0050, text=» EXT GETNXT «, t00=0x0001, t01=0x0032}
0x01d2…01e6 Head {h00=0x0010, h01=0x0050, text=» EXT KFREAD «, t00=0x0001, t01=0x0046}
0x01e6…01fa Head {h00=0x0010, h01=0x0050, text=» EXT KFWRIT «, t00=0x0001, t01=0x005a}
0x01fa…020e Head {h00=0x0010, h01=0x0050, text=» EXT NEWLIN «, t00=0x0001, t01=0x006e}
0x020e…0222 Head {h00=0x0010, h01=0x0050, text=» EXT GENWRF «, t00=0x0001, t01=0x0082}
0x0222…0236 Head {h00=0x0010, h01=0x0050, text=» EXT BSAMPR «, t00=0x0001, t01=0x0096}
0x0236…024a Head {h00=0x0010, h01=0x0050, text=» EXT BCHKPR «, t00=0x0001, t01=0x00aa}
0x024a…025e Head {h00=0x0010, h01=0x0050, text=» EXT BGIRPR «, t00=0x0001, t01=0x00be}
0x025e…0272 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x00d2}
0x0272…0286 Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0001, t01=0x00e6}
0x0286…029a Head {h00=0x0010, h01=0x0050, text=» EXT PRTADJ «, t00=0x0001, t01=0x00fa}
0x029a…02ae Head {h00=0x0010, h01=0x0050, text=» EXT KBTEST «, t00=0x0001, t01=0x010e}
0x02ae…02c0 Head {h00=0x000e, h01=0x0050, text=» EXT TXTRD«, t00=0x0001, t01=0x0122}
0x02c0…02d4 Head {h00=0x0010, h01=0x0050, text=» EXT STREDT «, t00=0x0001, t01=0x0134}
0x02d4…02e6 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0001, t01=0x0148}
0x02e6…02f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x015a}
0x02f4…0308 Head {h00=0x0010, h01=0x0050, text=»BDTSCA PROC «, t00=0x0001, t01=0x0168}
0x0308…0312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017c}
0x0312…0346 Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE SCANS LEV - VAR.INFO - TRANS«, t00=0x0001, t01=0x0186}
0x0346…0370 Head {h00=0x0026, h01=0x0050, text=»* IN ORDER TO BUILD UP A PRINTLEV «, t00=0x0002, t01=0x002a}
0x0370…038c Head {h00=0x0018, h01=0x0050, text=»* OR WRITE ADVISLIST«, t00=0x0002, t01=0x0054}
0x038c…0396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0070}
0x0396…03b0 Head {h00=0x0016, h01=0x0050, text=»* LEV 01 : BFO 1,6«, t00=0x0002, t01=0x007a}
0x03b0…03ca Head {h00=0x0016, h01=0x0050, text=»* LEV 02 : BFO 2,7«, t00=0x0002, t01=0x0094}
0x03ca…03e4 Head {h00=0x0016, h01=0x0050, text=»* LEV 03 : BFO 3,8«, t00=0x0002, t01=0x00ae}
0x03e4…03fe Head {h00=0x0016, h01=0x0050, text=»* LEV 04 : BFO 4,9«, t00=0x0002, t01=0x00c8}
0x03fe…041a Head {h00=0x0018, h01=0x0050, text=»* LEV 10 : FREE LIST«, t00=0x0002, t01=0x00e2}
0x041a…0442 Head {h00=0x0024, h01=0x0050, text=»* LEV 11 : SPECIFICATIONS LEV 01«, t00=0x0002, t01=0x00fe}
0x0442…046a Head {h00=0x0024, h01=0x0050, text=»* LEV 12 : SPECIFICATIONS LEV 02«, t00=0x0002, t01=0x0126}
0x046a…0492 Head {h00=0x0024, h01=0x0050, text=»* LEV 13 : SPECIFICATIONS LEV 03«, t00=0x0002, t01=0x014e}
0x0492…04ba Head {h00=0x0024, h01=0x0050, text=»* LEV 14 : SPECIFICATIONS LEV 04«, t00=0x0002, t01=0x0176}
0x04ba…04f4 Head {h00=0x0036, h01=0x0050, text=»* TRANSACTIONS ARE MOVED TO LEV 11/12/13/14 IF ANY«, t00=0x0003, t01=0x000e}
0x04f4…0512 Head {h00=0x001a, h01=0x0050, text=»* CREDIT AMOUNT OCCURS«, t00=0x0003, t01=0x0048}
0x0512…0532 Head {h00=0x001c, h01=0x0050, text=»* P = 1 : BUILD PRINTLEV«, t00=0x0003, t01=0x0066}
0x0532…0554 Head {h00=0x001e, h01=0x0050, text=»* P = 2 : ADVISLISTE ONLY «, t00=0x0003, t01=0x0086}
0x0554…055e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a8}
0x055e…0572 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0003, t01=0x00b2}
0x0572…058c Head {h00=0x0016, h01=0x0050, text=» TBF CADVIS,BDTS05«, t00=0x0003, t01=0x00c6}
0x058c…05a6 Head {h00=0x0016, h01=0x0050, text=» PERF BSAMPR,CBIN0«, t00=0x0003, t01=0x00e0}
0x05a6…05b4 Head {h00=0x000a, h01=0x0050, text=»BDTS05«, t00=0x0003, t01=0x00fa}
0x05b4…05e0 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0003, t01=0x0108}
0x05e0…05fa Head {h00=0x0016, h01=0x0050, text=» BOK BDTS08 FOUND «, t00=0x0003, t01=0x0134}
0x05fa…0608 Head {h00=0x000a, h01=0x0050, text=»BDTS10«, t00=0x0003, t01=0x014e}
0x0608…0622 Head {h00=0x0016, h01=0x0050, text=» PERF KBTEST MAK ?«, t00=0x0003, t01=0x015c}
0x0622…0636 Head {h00=0x0010, h01=0x0050, text=» BOK BDTS90 «, t00=0x0003, t01=0x0176}
0x0636…065e Head {h00=0x0024, h01=0x0050, text=» PERF GETNXT READ NEXT VALID LEV«, t00=0x0003, t01=0x018a}
0x065e…0672 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS80«, t00=0x0004, t01=0x0022}
0x0672…0680 Head {h00=0x000a, h01=0x0050, text=»BDTS08«, t00=0x0004, t01=0x0036}
0x0680…069e Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GTLEVNR «, t00=0x0004, t01=0x0044}
0x069e…06c0 Head {h00=0x001e, h01=0x0050, text=» PERF SPLIN8,CBIN10,CBIN3 «, t00=0x0004, t01=0x0062}
0x06c0…06d4 Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x0004, t01=0x0084}
0x06d4…06e8 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0004, t01=0x0098}
0x06e8…071c Head {h00=0x0030, h01=0x0050, text=» CBE GTTRKEY,CBIN0,BDTS10 NOTHING TO DECLARE«, t00=0x0004, t01=0x00ac}
0x071c…073e Head {h00=0x001e, h01=0x0050, text=» PERF LEVRD READ STAMINFO «, t00=0x0004, t01=0x00e0}
0x073e…0752 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0004, t01=0x0102}
0x0752…0780 Head {h00=0x002a, h01=0x0050, text=» CBL GTPRTFRA,=D'1',BDTS11 FOR ALL BFO«, t00=0x0004, t01=0x0116}
0x0780…07a6 Head {h00=0x0022, h01=0x0050, text=» CBE GTLEVBFO,GTPRTFRA,BDTS11 «, t00=0x0004, t01=0x0144}
0x07a6…07c2 Head {h00=0x0018, h01=0x0050, text=» SUB GTLEVBFO,=D'5' «, t00=0x0004, t01=0x016a}
0x07c2…07e8 Head {h00=0x0022, h01=0x0050, text=» CBNE GTLEVBFO,GTPRTFRA,BDTS10«, t00=0x0004, t01=0x0186}
0x07e8…07f6 Head {h00=0x000a, h01=0x0050, text=»BDTS11«, t00=0x0005, t01=0x001c}
0x07f6…081a Head {h00=0x0020, h01=0x0050, text=»* CHECK MIN VALOER DATO «, t00=0x0005, t01=0x002a}
0x081a…0852 Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD6,GTREGF(CBIN13) GET MIN VALOER DATO«, t00=0x0005, t01=0x004e}
0x0852…087a Head {h00=0x0024, h01=0x0050, text=» CBNL GSWBCD6,=D'800000',BDTS112«, t00=0x0005, t01=0x0086}
0x087a…088e Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0005, t01=0x00ae}
0x088e…08b2 Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(CBIN13),GSWBCD7«, t00=0x0005, t01=0x00c2}
0x08b2…08c2 Head {h00=0x000c, h01=0x0050, text=»BDTS112 «, t00=0x0005, t01=0x00e6}
0x08c2…0900 Head {h00=0x003a, h01=0x0050, text=» CBG GTREGF(CBIN13),GTPRTDAT,BDTS10 NOT TO BE PAID YET«, t00=0x0005, t01=0x00f6}
0x0900…0924 Head {h00=0x0020, h01=0x0050, text=»* INITIATE READING TRANS«, t00=0x0005, t01=0x0134}
0x0924…0956 Head {h00=0x002e, h01=0x0050, text=» MOVE GTBSUM1,=D'0' TOTAL VALUE TO BE PAID«, t00=0x0005, t01=0x0158}
0x0956…0988 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN9,CBIN0 NO OF TRANS TO BE PAID«, t00=0x0005, t01=0x018a}
0x0988…09ba Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN6,GTTRKEY SET POINTER TO TRANS«, t00=0x0006, t01=0x002c}
0x09ba…09e0 Head {h00=0x0022, h01=0x0050, text=» CLEAR CKRESP FLAG FOR KREDIT «, t00=0x0006, t01=0x005e}
0x09e0…0a0a Head {h00=0x0026, h01=0x0050, text=» CLEAR CSPECFLG FLAG FOR >3 TRANS «, t00=0x0006, t01=0x0084}
0x0a0a…0a1a Head {h00=0x000c, h01=0x0050, text=»BDTS114 «, t00=0x0006, t01=0x00ae}
0x0a1a…0a32 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0006, t01=0x00be}
0x0a32…0a5a Head {h00=0x0024, h01=0x0050, text=» PERF TRREAD,GSWBIN6 READ TRANS «, t00=0x0006, t01=0x00d6}
0x0a5a…0a6e Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0006, t01=0x00fe}
0x0a6e…0aa6 Head {h00=0x0034, h01=0x0050, text=» CBG GTDUPF(CBIN7),GTPRTDAT,BDTS116 NOT PAY YET «, t00=0x0006, t01=0x0112}
0x0aa6…0adc Head {h00=0x0032, h01=0x0050, text=» CBNL GTDUPF(CBIN4),=D'0',BDTS115 CHECK AMOUNT«, t00=0x0006, t01=0x014a}
0x0adc…0afe Head {h00=0x001e, h01=0x0050, text=» SET CKRESP KREDIT AMOUNT «, t00=0x0006, t01=0x0180}
0x0afe…0b0e Head {h00=0x000c, h01=0x0050, text=»BDTS115 «, t00=0x0007, t01=0x0012}
0x0b0e…0b3c Head {h00=0x002a, h01=0x0050, text=» ADD GTBSUM1,GTDUPF(CBIN4) ADD AMOUNT «, t00=0x0007, t01=0x0022}
0x0b3c…0b60 Head {h00=0x0020, h01=0x0050, text=» ADD GSWBIN9,CBIN1 ADD COUNT«, t00=0x0007, t01=0x0050}
0x0b60…0b70 Head {h00=0x000c, h01=0x0050, text=»BDTS116 «, t00=0x0007, t01=0x0074}
0x0b70…0baa Head {h00=0x0036, h01=0x0050, text=» MOVE GSWBIN6,GTDUPF(CBIN22) POINTER TO NEXT TRANS«, t00=0x0007, t01=0x0084}
0x0baa…0bde Head {h00=0x0030, h01=0x0050, text=» CBNE GSWBIN6,CBIN0,BDTS114 READ NEXT TRANS «, t00=0x0007, t01=0x00be}
0x0bde…0bfa Head {h00=0x0018, h01=0x0050, text=»* NO MORE TRANS «, t00=0x0007, t01=0x00f2}
0x0bfa…0c32 Head {h00=0x0034, h01=0x0050, text=» CBL GSWBIN9,CBIN1,BDTS10 TO NEXT LEV, NO TRANS «, t00=0x0007, t01=0x010e}
0x0c32…0c5a Head {h00=0x0024, h01=0x0050, text=» TBT C821FLG,BDTS117 HJORRING ? «, t00=0x0007, t01=0x0146}
0x0c5a…0c7c Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN9,CBIN4,BDTS117«, t00=0x0007, t01=0x016e}
0x0c7c…0c9a Head {h00=0x001a, h01=0x0050, text=» SET CSPECFLG >3 TRANS«, t00=0x0007, t01=0x0190}
0x0c9a…0caa Head {h00=0x000c, h01=0x0050, text=»BDTS117 «, t00=0x0008, t01=0x001e}
0x0caa…0ce2 Head {h00=0x0034, h01=0x0050, text=» CBL GTBSUM1,=D'1',BDTS12 AMOUNT<=0, ONLY SPEC. «, t00=0x0008, t01=0x002e}
0x0ce2…0d14 Head {h00=0x002e, h01=0x0050, text=» TBF CSPECFLG,BDTS15 NO SPEC, IF <3 TRANS «, t00=0x0008, t01=0x0066}
0x0d14…0d3e Head {h00=0x0026, h01=0x0050, text=» TBT CKRESP,BDTS12 SPEC IF KREDIT «, t00=0x0008, t01=0x0098}
0x0d3e…0d66 Head {h00=0x0024, h01=0x0050, text=»* >3, ALWAYS SPEC IF CSPEC=T«, t00=0x0008, t01=0x00c2}
0x0d66…0d7e Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPECFLG «, t00=0x0008, t01=0x00ea}
0x0d7e…0db6 Head {h00=0x0034, h01=0x0050, text=» CBNE GTLEVBFO,=D'1',BDTS15 NO SPEC IF NOT CHECK«, t00=0x0008, t01=0x0102}
0x0db6…0de2 Head {h00=0x0028, h01=0x0050, text=» TBF CSPEC,BDTS15 NO SPEC IF NO KRE «, t00=0x0008, t01=0x013a}
0x0de2…0dfa Head {h00=0x0014, h01=0x0050, text=»BDTS12 CREDIT «, t00=0x0008, t01=0x0166}
0x0dfa…0e1e Head {h00=0x0020, h01=0x0050, text=» SET CSPECFLG SPECIFICATION «, t00=0x0008, t01=0x017e}
0x0e1e…0e42 Head {h00=0x0020, h01=0x0050, text=» TBT CADVIS,BDTS20 IF ADVIS «, t00=0x0009, t01=0x0012}
0x0e42…0e82 Head {h00=0x003c, h01=0x0050, text=»* IF CREDIT AMOUNTS, AN EXTRA TRANS MUST BE INSERTED «, t00=0x0009, t01=0x0036}
0x0e82…0ebc Head {h00=0x0036, h01=0x0050, text=»* ON PRINTLEV, WITH THE TOTAL AMOUNT (IF >0). «, t00=0x0009, t01=0x0076}
0x0ebc…0eec Head {h00=0x002c, h01=0x0050, text=»* IF AMOUNT IS <= 0 NOTHING IS DONE «, t00=0x0009, t01=0x00b0}
0x0eec…0f1c Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTBSUM1 TOTAL AMOUNT«, t00=0x0009, t01=0x00e0}
0x0f1c…0f50 Head {h00=0x0030, h01=0x0050, text=» CBL GTBSUM1,=D'1',BDTS15 ONLY SPECIFICATION«, t00=0x0009, t01=0x0110}
0x0f50…0f74 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN2),GTLEVNR «, t00=0x0009, t01=0x0144}
0x0f74…0f96 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN7),GTDATO«, t00=0x0009, t01=0x0168}
0x0f96…0fc4 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'9' TEKST NR 9 «, t00=0x0009, t01=0x018a}
0x0fc4…0fea Head {h00=0x0022, h01=0x0050, text=» MOVE GTDUPF(CBIN18),GTPRTDAT «, t00=0x000a, t01=0x0028}
0x0fea…1010 Head {h00=0x0022, h01=0x0050, text=» MOVE GTTXTTKO,=D'4' TEXT CODE«, t00=0x000a, t01=0x004e}
0x1010…1040 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTDATO REGNSKABSAAR «, t00=0x000a, t01=0x0074}
0x1040…1062 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN1),=D'0' «, t00=0x000a, t01=0x00a4}
0x1062…108c Head {h00=0x0026, h01=0x0050, text=» MOVE GTKFVAL,GTLEVNR SAVE GTLEVNR«, t00=0x000a, t01=0x00c6}
0x108c…10ba Head {h00=0x002a, h01=0x0050, text=» PERF TRGETF,GSWBIN8 GET A FREE RECORD«, t00=0x000a, t01=0x00f0}
0x10ba…10ce Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000a, t01=0x011e}
0x10ce…10fa Head {h00=0x0028, h01=0x0050, text=» MOVE GTLEVNR,GTLEVBFO SET PRINT LEV«, t00=0x000a, t01=0x0132}
0x10fa…1112 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x000a, t01=0x015e}
0x1112…1134 Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVALT,=D'1',BDTS13«, t00=0x000a, t01=0x0176}
0x1134…1158 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN2),GTLEVALT«, t00=0x000b, t01=0x0008}
0x1158…1166 Head {h00=0x000a, h01=0x0050, text=»BDTS13«, t00=0x000b, t01=0x002c}
0x1166…117a Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x000b, t01=0x003a}
0x117a…118e Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000b, t01=0x004e}
0x118e…11aa Head {h00=0x0018, h01=0x0050, text=» PERF TRINS,GSWBIN8 «, t00=0x000b, t01=0x0062}
0x11aa…11be Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000b, t01=0x007e}
0x11be…11e8 Head {h00=0x0026, h01=0x0050, text=» MOVE GTLEVNR,GTKFVAL RESTORE LEV «, t00=0x000b, t01=0x0092}
0x11e8…1206 Head {h00=0x001a, h01=0x0050, text=» PERF VARRD REREAD LEV«, t00=0x000b, t01=0x00bc}
0x1206…121a Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000b, t01=0x00da}
0x121a…1228 Head {h00=0x000a, h01=0x0050, text=»BDTS15«, t00=0x000b, t01=0x00ee}
0x1228…1262 Head {h00=0x0036, h01=0x0050, text=»* SET PRINTLEV NO IN GTLEVPNR (SAME FOR ALL TRANS)«, t00=0x000b, t01=0x00fc}
0x1262…1282 Head {h00=0x001c, h01=0x0050, text=» MOVE GTLEVPNR,GTLEVBFO «, t00=0x000b, t01=0x0136}
0x1282…12a6 Head {h00=0x0020, h01=0x0050, text=» CBNG GTLEVPNR,=D'5',BDTS205«, t00=0x000b, t01=0x0156}
0x12a6…12c2 Head {h00=0x0018, h01=0x0050, text=» SUB GTLEVPNR,=D'5' «, t00=0x000b, t01=0x017a}
0x12c2…12d2 Head {h00=0x000c, h01=0x0050, text=»BDTS205 «, t00=0x000c, t01=0x0008}
0x12d2…12f0 Head {h00=0x001a, h01=0x0050, text=» TBF CSPECFLG,BDTS208 «, t00=0x000c, t01=0x0018}
0x12f0…131e Head {h00=0x002a, h01=0x0050, text=» ADD GTLEVPNR,=D'10' SPECIFICATION LEV«, t00=0x000c, t01=0x0036}
0x131e…132e Head {h00=0x000c, h01=0x0050, text=»BDTS208 «, t00=0x000c, t01=0x0064}
0x132e…1338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0074}
0x1338…1346 Head {h00=0x000a, h01=0x0050, text=»BDTS20«, t00=0x000c, t01=0x007e}
0x1346…1366 Head {h00=0x001c, h01=0x0050, text=» MOVE GTBSUM1,=D'999999'«, t00=0x000c, t01=0x008c}
0x1366…1382 Head {h00=0x0018, h01=0x0050, text=» MOVE GTKFVAL,=D'0' «, t00=0x000c, t01=0x00ac}
0x1382…139e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN9,CBIN0 «, t00=0x000c, t01=0x00c8}
0x139e…13bc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GTTRKEY «, t00=0x000c, t01=0x00e4}
0x13bc…13d8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,CBIN0 «, t00=0x000c, t01=0x0102}
0x13d8…13e6 Head {h00=0x000a, h01=0x0050, text=»BDTS21«, t00=0x000c, t01=0x011e}
0x13e6…13fe Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x000c, t01=0x012c}
0x13fe…1426 Head {h00=0x0024, h01=0x0050, text=» PERF TRREAD,GSWBIN6 READ TRANS «, t00=0x000c, t01=0x0144}
0x1426…143a Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000c, t01=0x016c}
0x143a…1454 Head {h00=0x0016, h01=0x0050, text=» TBT CADVIS,BDTS40«, t00=0x000c, t01=0x0180}
0x1454…1494 Head {h00=0x003c, h01=0x0050, text=» CBG GTDUPF(CBIN7),GTPRTDAT,BDTS70 NOT TO BE PAID; NEXT «, t00=0x000d, t01=0x000a}
0x1494…14a2 Head {h00=0x000a, h01=0x0050, text=»BDTS30«, t00=0x000d, t01=0x004a}
0x14a2…14b6 Head {h00=0x0010, h01=0x0050, text=» PERF TRRMV «, t00=0x000d, t01=0x0058}
0x14b6…14e4 Head {h00=0x002a, h01=0x0050, text=»* NOW GSWBIN3 POINTS TO NEXT RECORD «, t00=0x000d, t01=0x006c}
0x14e4…14f8 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000d, t01=0x009a}
0x14f8…1524 Head {h00=0x0028, h01=0x0050, text=»* NOW WE HAVE A TRANS TO BE INSERTED«, t00=0x000d, t01=0x00ae}
0x1524…1540 Head {h00=0x0018, h01=0x0050, text=»* INTO THE PRINTLEV «, t00=0x000d, t01=0x00da}
0x1540…1554 Head {h00=0x0010, h01=0x0050, text=» PERF BDTBOG«, t00=0x000d, t01=0x00f6}
0x1554…1568 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000d, t01=0x010a}
0x1568…1596 Head {h00=0x002a, h01=0x0050, text=» MOVE GTKFVAL,GTLEVNR SAVE OLD GTLEVNR«, t00=0x000d, t01=0x011e}
0x1596…15b4 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GTLEVPNR«, t00=0x000d, t01=0x014c}
0x15b4…15cc Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x000d, t01=0x016a}
0x15cc…15ee Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVALT,=D'1',BDTS34«, t00=0x000d, t01=0x0182}
0x15ee…162e Head {h00=0x003c, h01=0x0050, text=» MOVE GTDUPF(CBIN2),GTLEVALT TO BE PAID TO SOMEONE ELSE «, t00=0x000e, t01=0x0014}
0x162e…163c Head {h00=0x000a, h01=0x0050, text=»BDTS34«, t00=0x000e, t01=0x0054}
0x163c…165e Head {h00=0x001e, h01=0x0050, text=» PERF VARRD READ PRINTLEV «, t00=0x000e, t01=0x0062}
0x165e…1672 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000e, t01=0x0084}
0x1672…16a0 Head {h00=0x002a, h01=0x0050, text=» PERF TRINS,GSWBIN6 INSERT ON PRINTLEV«, t00=0x000e, t01=0x0098}
0x16a0…16b4 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000e, t01=0x00c6}
0x16b4…16e0 Head {h00=0x0028, h01=0x0050, text=» MOVE GTLEVNR,GTKFVAL REREAD OLD LEV«, t00=0x000e, t01=0x00da}
0x16e0…16f4 Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x000e, t01=0x0106}
0x16f4…1708 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000e, t01=0x011a}
0x1708…173a Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN6,GSWBIN3 SET POINTER TO NEXT «, t00=0x000e, t01=0x012e}
0x173a…174c Head {h00=0x000e, h01=0x0050, text=» B BDTS60 «, t00=0x000e, t01=0x0160}
0x174c…175a Head {h00=0x000a, h01=0x0050, text=»BDTS40«, t00=0x000e, t01=0x0172}
0x175a…1764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0180}
0x1764…17a4 Head {h00=0x003c, h01=0x0050, text=» CBG GTDUPF(CBIN7),GTPRTDAT,BDTS55 NOT TO BE PAID; NEXT «, t00=0x000e, t01=0x018a}
0x17a4…17b2 Head {h00=0x000a, h01=0x0050, text=»BDTS45«, t00=0x000f, t01=0x003a}
0x17b2…17cc Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN9,CBIN1«, t00=0x000f, t01=0x0048}
0x17cc…17ea Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD5,GSWBIN9 «, t00=0x000f, t01=0x0062}
0x17ea…1806 Head {h00=0x0018, h01=0x0050, text=» PERF BSAMPR,GSWBIN9«, t00=0x000f, t01=0x0080}
0x1806…1828 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN9,CBIN3,BDTS55 «, t00=0x000f, t01=0x009c}
0x1828…1844 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN9,CBIN0 «, t00=0x000f, t01=0x00be}
0x1844…1856 Head {h00=0x000e, h01=0x0050, text=» B BDTS55 «, t00=0x000f, t01=0x00da}
0x1856…1860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ec}
0x1860…186e Head {h00=0x000a, h01=0x0050, text=»BDTS50«, t00=0x000f, t01=0x00f6}
0x186e…18a2 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN7,GSWBIN6 SET PREVIOUS RECORD NO«, t00=0x000f, t01=0x0104}
0x18a2…18b0 Head {h00=0x000a, h01=0x0050, text=»BDTS55«, t00=0x000f, t01=0x0138}
0x18b0…18e8 Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBIN6,GTDUPF(CBIN22) POINT TO NEXT TRANS«, t00=0x000f, t01=0x0146}
0x18e8…18f6 Head {h00=0x000a, h01=0x0050, text=»BDTS60«, t00=0x000f, t01=0x017e}
0x18f6…1920 Head {h00=0x0026, h01=0x0050, text=» CBNE GSWBIN6,CBIN0,BDTS21 IF ANY «, t00=0x000f, t01=0x018c}
0x1920…1948 Head {h00=0x0024, h01=0x0050, text=» TBT CADVIS,BDTS65 ADVISLISTE ? «, t00=0x0010, t01=0x0026}
0x1948…1970 Head {h00=0x0024, h01=0x0050, text=» CBNE GTBSUM1,=D'999999',BDTS61 «, t00=0x0010, t01=0x004e}
0x1970…198c Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0010, t01=0x0076}
0x198c…199a Head {h00=0x000a, h01=0x0050, text=»BDTS61«, t00=0x0010, t01=0x0092}
0x199a…19be Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(CBIN13),GTBSUM1«, t00=0x0010, t01=0x00a0}
0x19be…19d2 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x0010, t01=0x00c4}
0x19d2…19e6 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0010, t01=0x00d8}
0x19e6…1a06 Head {h00=0x001c, h01=0x0050, text=» MOVE GTBSUM1,=D'999999'«, t00=0x0010, t01=0x00ec}
0x1a06…1a20 Head {h00=0x0016, h01=0x0050, text=» B BDTS10 CONTINUE«, t00=0x0010, t01=0x010c}
0x1a20…1a2e Head {h00=0x000a, h01=0x0050, text=»BDTS65«, t00=0x0010, t01=0x0126}
0x1a2e…1a4c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD5,GSWBIN9 «, t00=0x0010, t01=0x0134}
0x1a4c…1a74 Head {h00=0x0024, h01=0x0050, text=» IB GSWBIN9,BDTS66,BDTS67,BDTS67«, t00=0x0010, t01=0x0152}
0x1a74…1a86 Head {h00=0x000e, h01=0x0050, text=» B BDTS68 «, t00=0x0010, t01=0x017a}
0x1a86…1a94 Head {h00=0x000a, h01=0x0050, text=»BDTS66«, t00=0x0010, t01=0x018c}
0x1a94…1acc Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD5,=D'2' MAKE SURE A LINE IS PRINTED «, t00=0x0011, t01=0x000a}
0x1acc…1ada Head {h00=0x000a, h01=0x0050, text=»BDTS67«, t00=0x0011, t01=0x0042}
0x1ada…1af4 Head {h00=0x0016, h01=0x0050, text=» PERF BSAMPR,CBIN4«, t00=0x0011, t01=0x0050}
0x1af4…1b02 Head {h00=0x000a, h01=0x0050, text=»BDTS68«, t00=0x0011, t01=0x006a}
0x1b02…1b18 Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0011, t01=0x0078}
0x1b18…1b2a Head {h00=0x000e, h01=0x0050, text=» B BDTS10 «, t00=0x0011, t01=0x008e}
0x1b2a…1b38 Head {h00=0x000a, h01=0x0050, text=»BDTS70«, t00=0x0011, t01=0x00a0}
0x1b38…1b74 Head {h00=0x0038, h01=0x0050, text=» CBNG GTBSUM1,GTDUPF(CBIN7),BDTS50 LOWER VALORDATO? «, t00=0x0011, t01=0x00ae}
0x1b74…1b98 Head {h00=0x0020, h01=0x0050, text=» MOVE GTBSUM1,GTDUPF(CBIN7) «, t00=0x0011, t01=0x00ea}
0x1b98…1baa Head {h00=0x000e, h01=0x0050, text=» B BDTS50 «, t00=0x0011, t01=0x010e}
0x1baa…1bb8 Head {h00=0x000a, h01=0x0050, text=»BDTS80«, t00=0x0011, t01=0x0120}
0x1bb8…1bd2 Head {h00=0x0016, h01=0x0050, text=» TBF CADVIS,BDTS90«, t00=0x0011, t01=0x012e}
0x1bd2…1bec Head {h00=0x0016, h01=0x0050, text=» PERF BSAMPR,CBIN5«, t00=0x0011, t01=0x0148}
0x1bec…1bfa Head {h00=0x000a, h01=0x0050, text=»BDTS90«, t00=0x0011, t01=0x0162}
0x1bfa…1c0e Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0011, t01=0x0170}
0x1c0e…1c26 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0011, t01=0x0184}
0x1c26…1c32 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x000c}
0x1c32…1c40 Head {h00=0x000a, h01=0x0050, text=»BDTS95«, t00=0x0012, t01=0x0018}
0x1c40…1c54 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0012, t01=0x0026}
0x1c54…1c6c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0012, t01=0x003a}
0x1c6c…1c78 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x0052}
0x1c78…1c86 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x005e}
0x1c86…1c94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x006c}
0x1c94…1caa Head {h00=0x0012, h01=0x0050, text=»BDTPRT PROC P «, t00=0x0012, t01=0x007a}
0x1caa…1cde Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE LISTS ALL TRANSES CONNECTED «, t00=0x0012, t01=0x0090}
0x1cde…1d08 Head {h00=0x0026, h01=0x0050, text=»* TO THE SPEC. LEVNR IN <GTLEVNR> «, t00=0x0012, t01=0x00c4}
0x1d08…1d24 Head {h00=0x0018, h01=0x0050, text=»* P = 1: CHECK/GIRO «, t00=0x0012, t01=0x00ee}
0x1d24…1d40 Head {h00=0x0018, h01=0x0050, text=»* P = 2: BUNDTLISTE «, t00=0x0012, t01=0x010a}
0x1d40…1d66 Head {h00=0x0022, h01=0x0050, text=»* P = 3: KREDIT SPECIFICATION «, t00=0x0012, t01=0x0126}
0x1d66…1d7e Head {h00=0x0014, h01=0x0050, text=» MOVE GSWBIN1,P «, t00=0x0012, t01=0x014c}
0x1d7e…1da6 Head {h00=0x0024, h01=0x0050, text=» IB GSWBIN1,BDTP10,BDTP20,BDTP30«, t00=0x0012, t01=0x0164}
0x1da6…1db4 Head {h00=0x000a, h01=0x0050, text=»BDTP10«, t00=0x0012, t01=0x018c}
0x1db4…1dd2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTPRTTIL«, t00=0x0013, t01=0x000a}
0x1dd2…1e04 Head {h00=0x002e, h01=0x0050, text=» IB GSWBIN1,BDTP40,BDTP60 USE BFO AS INDEX«, t00=0x0013, t01=0x0028}
0x1e04…1e16 Head {h00=0x000e, h01=0x0050, text=» B BDTP90 «, t00=0x0013, t01=0x005a}
0x1e16…1e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x006c}
0x1e20…1e2e Head {h00=0x000a, h01=0x0050, text=»BDTP20«, t00=0x0013, t01=0x0076}
0x1e2e…1e56 Head {h00=0x0024, h01=0x0050, text=» PERF BSAMPR,CBIN0 PRINT HEADER «, t00=0x0013, t01=0x0084}
0x1e56…1e6a Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x0013, t01=0x00ac}
0x1e6a…1e7e Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x0013, t01=0x00c0}
0x1e7e…1e9a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x0013, t01=0x00d4}
0x1e9a…1eb8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x0013, t01=0x00f0}
0x1eb8…1ed2 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN8,CBIN0«, t00=0x0013, t01=0x010e}
0x1ed2…1ef4 Head {h00=0x001e, h01=0x0050, text=» BE BDTP90 NO TRANSACTIONS«, t00=0x0013, t01=0x0128}
0x1ef4…1f02 Head {h00=0x000a, h01=0x0050, text=»BDTP21«, t00=0x0013, t01=0x014a}
0x1f02…1f26 Head {h00=0x0020, h01=0x0050, text=» PERF KBTEST <MAK> PRESSED ?«, t00=0x0013, t01=0x0158}
0x1f26…1f4e Head {h00=0x0024, h01=0x0050, text=» BOK BDTP90 YES, OUT OF ROUTINE «, t00=0x0013, t01=0x017c}
0x1f4e…1f66 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0014, t01=0x0014}
0x1f66…1f82 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x0014, t01=0x002c}
0x1f82…1f96 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x0014, t01=0x0048}
0x1f96…1fc0 Head {h00=0x0026, h01=0x0050, text=» CBE GTLEVNR,GTDUPF(CBIN2),BDTP25 «, t00=0x0014, t01=0x005c}
0x1fc0…1fe2 Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVNR,=D'19',BDTP23«, t00=0x0014, t01=0x0086}
0x1fe2…1ffc Head {h00=0x0016, h01=0x0050, text=» PERF BSAMPR,CBIN4«, t00=0x0014, t01=0x00a8}
0x1ffc…200a Head {h00=0x000a, h01=0x0050, text=»BDTP23«, t00=0x0014, t01=0x00c2}
0x200a…202e Head {h00=0x0020, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN2) «, t00=0x0014, t01=0x00d0}
0x202e…2042 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0014, t01=0x00f4}
0x2042…2056 Head {h00=0x0010, h01=0x0050, text=» BOK BDTP24 «, t00=0x0014, t01=0x0108}
0x2056…206a Head {h00=0x0010, h01=0x0050, text=» PERF SETLEV«, t00=0x0014, t01=0x011c}
0x206a…2078 Head {h00=0x000a, h01=0x0050, text=»BDTP24«, t00=0x0014, t01=0x0130}
0x2078…2094 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x0014, t01=0x013e}
0x2094…20a2 Head {h00=0x000a, h01=0x0050, text=»BDTP25«, t00=0x0014, t01=0x015a}
0x20a2…20c0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GSWBCD5 «, t00=0x0014, t01=0x0168}
0x20c0…20ee Head {h00=0x002a, h01=0x0050, text=» PERF BSAMPR,GSWBIN4 PRINT NEXT INFO «, t00=0x0014, t01=0x0186}
0x20ee…2108 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x0015, t01=0x0024}
0x2108…213a Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD5,=D'4',BDTP27 LINE FILLED UP ?«, t00=0x0015, t01=0x003e}
0x213a…2156 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x0015, t01=0x0070}
0x2156…2164 Head {h00=0x000a, h01=0x0050, text=»BDTP27«, t00=0x0015, t01=0x008c}
0x2164…2188 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x0015, t01=0x009a}
0x2188…21aa Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN8,CBIN0,BDTP29 «, t00=0x0015, t01=0x00be}
0x21aa…21bc Head {h00=0x000e, h01=0x0050, text=» B BDTP21 «, t00=0x0015, t01=0x00e0}
0x21bc…21ca Head {h00=0x000a, h01=0x0050, text=»BDTP29«, t00=0x0015, t01=0x00f2}
0x21ca…21f4 Head {h00=0x0026, h01=0x0050, text=» PERF BSAMPR,CBIN4 WRITE LAST LINE«, t00=0x0015, t01=0x0100}
0x21f4…221a Head {h00=0x0022, h01=0x0050, text=» PERF BSAMPR,CBIN5 WRITE TOTAL«, t00=0x0015, t01=0x012a}
0x221a…222c Head {h00=0x000e, h01=0x0050, text=» B BDTP90 «, t00=0x0015, t01=0x0150}
0x222c…2236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0162}
0x2236…2240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016c}
0x2240…2266 Head {h00=0x0022, h01=0x0050, text=»BDTP30 KREDIT SPECIFICATION «, t00=0x0015, t01=0x0176}
0x2266…2288 Head {h00=0x001e, h01=0x0050, text=» PERF VARRD READ PRINTLEV «, t00=0x0016, t01=0x000c}
0x2288…229c Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x0016, t01=0x002e}
0x229c…22ba Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x0016, t01=0x0042}
0x22ba…22d4 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN8,CBIN0«, t00=0x0016, t01=0x0060}
0x22d4…22f6 Head {h00=0x001e, h01=0x0050, text=» BE BDTP90 NO TRANSACTIONS«, t00=0x0016, t01=0x007a}
0x22f6…2300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x009c}
0x2300…230e Head {h00=0x000a, h01=0x0050, text=»BDTP31«, t00=0x0016, t01=0x00a6}
0x230e…2332 Head {h00=0x0020, h01=0x0050, text=» PERF KBTEST <MAK> PRESSED? «, t00=0x0016, t01=0x00b4}
0x2332…235a Head {h00=0x0024, h01=0x0050, text=» BOK BDTP90 YES, OUT OF ROUTINE «, t00=0x0016, t01=0x00d8}
0x235a…2372 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0016, t01=0x0100}
0x2372…23a0 Head {h00=0x002a, h01=0x0050, text=» PERF TRREAD,GSWBIN8 READ TRANSACTION «, t00=0x0016, t01=0x0118}
0x23a0…23b4 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x0016, t01=0x0146}
0x23b4…23e8 Head {h00=0x0030, h01=0x0050, text=» CBE GTLEVNR,GTDUPF(CBIN2),BDTP36 SAME LEV? «, t00=0x0016, t01=0x015a}
0x23e8…2418 Head {h00=0x002c, h01=0x0050, text=» CBL GTLEVNR,=D'19',BDTP325 FIRST TIME? «, t00=0x0016, t01=0x018e}
0x2418…2436 Head {h00=0x001a, h01=0x0050, text=»BDTP320 WRITE TOTAL «, t00=0x0017, t01=0x002e}
0x2436…244a Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0017, t01=0x004c}
0x244a…2464 Head {h00=0x0016, h01=0x0050, text=» PERF NEWLIN,CBIN1«, t00=0x0017, t01=0x0060}
0x2464…2482 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBIN10«, t00=0x0017, t01=0x007a}
0x2482…24b4 Head {h00=0x002e, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FBDTSLUT WRITE TOTAL «, t00=0x0017, t01=0x0098}
0x24b4…24ce Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN2«, t00=0x0017, t01=0x00ca}
0x24ce…24ea Head {h00=0x0018, h01=0x0050, text=» PERF NEWLIN,GSWBIN3«, t00=0x0017, t01=0x00e4}
0x24ea…250e Head {h00=0x0020, h01=0x0050, text=» CMP GSWBIN8,CBIN0 FINISHED?«, t00=0x0017, t01=0x0100}
0x250e…2524 Head {h00=0x0012, h01=0x0050, text=» BE BDTP90 YES«, t00=0x0017, t01=0x0124}
0x2524…252e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x013a}
0x252e…253e Head {h00=0x000c, h01=0x0050, text=»BDTP325 «, t00=0x0017, t01=0x0144}
0x253e…2564 Head {h00=0x0022, h01=0x0050, text=»* NULSTIL COUNTERS, SET PAGE«, t00=0x0017, t01=0x0154}
0x2564…2586 Head {h00=0x001e, h01=0x0050, text=» MOVE GTBSUM3,=D'0' TOTAL «, t00=0x0017, t01=0x017a}
0x2586…25a2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN10,CBIN0«, t00=0x0018, t01=0x000c}
0x25a2…25ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0028}
0x25ac…25ca Head {h00=0x001a, h01=0x0050, text=»BDTP33 WRITE HEADING«, t00=0x0018, t01=0x0032}
0x25ca…25fa Head {h00=0x002c, h01=0x0050, text=» MOVE GTKFVAL,GTDUPF(CBIN2) SAVE LEV NO «, t00=0x0018, t01=0x0050}
0x25fa…2626 Head {h00=0x0028, h01=0x0050, text=» MOVE GTLEVNR,GTPRTTIL SET PRINTLEV «, t00=0x0018, t01=0x0080}
0x2626…2656 Head {h00=0x002c, h01=0x0050, text=» ADD GTLEVNR,=D'10' KREDIT SPECIFICATION«, t00=0x0018, t01=0x00ac}
0x2656…266a Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0018, t01=0x00dc}
0x266a…267e Head {h00=0x0010, h01=0x0050, text=» BOK BDTP34 «, t00=0x0018, t01=0x00f0}
0x267e…2692 Head {h00=0x0010, h01=0x0050, text=» PERF SETLEV«, t00=0x0018, t01=0x0104}
0x2692…26a0 Head {h00=0x000a, h01=0x0050, text=»BDTP34«, t00=0x0018, t01=0x0118}
0x26a0…26d0 Head {h00=0x002c, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FRMTNVN WRITE NAME «, t00=0x0018, t01=0x0126}
0x26d0…26fa Head {h00=0x0026, h01=0x0050, text=» MOVE GTLEVNR,GTKFVAL RESET LEV NO«, t00=0x0018, t01=0x0156}
0x26fa…270e Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0018, t01=0x0180}
0x270e…2722 (25, 0, 398) Head {h00=0x0010, h01=0x0050, text=» BOK BDTP35 «, t00=0x0019, t01=0x0004}
0x2722…2736 Head {h00=0x0010, h01=0x0050, text=» PERF SETLEV«, t00=0x0019, t01=0x0018}
0x2736…2744 Head {h00=0x000a, h01=0x0050, text=»BDTP35«, t00=0x0019, t01=0x002c}
0x2744…2760 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN10,CBIN1 «, t00=0x0019, t01=0x003a}
0x2760…2788 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,GSWBIN10 NEXT PAGE«, t00=0x0019, t01=0x0056}
0x2788…27b8 Head {h00=0x002c, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FKRE10 WRITE LEV NO«, t00=0x0019, t01=0x007e}
0x27b8…27e8 Head {h00=0x002c, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FRMTNVN WRITE NAME «, t00=0x0019, t01=0x00ae}
0x27e8…2816 Head {h00=0x002a, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FKRE20 WRITE DATE«, t00=0x0019, t01=0x00de}
0x2816…2840 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN3,=W'30' SET LINECOUNT«, t00=0x0019, t01=0x010c}
0x2840…2852 Head {h00=0x000e, h01=0x0050, text=» B BDTP37 «, t00=0x0019, t01=0x0136}
0x2852…285c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0148}
0x285c…287e Head {h00=0x001e, h01=0x0050, text=»BDTP36 CHEC FOR NEW PAGE«, t00=0x0019, t01=0x0152}
0x287e…28a0 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN3,CBIN4,BDTP37 «, t00=0x0019, t01=0x0174}
0x28a0…28bc Head {h00=0x0018, h01=0x0050, text=» PERF NEWLIN,CBIN10 «, t00=0x001a, t01=0x0008}
0x28bc…28ce Head {h00=0x000e, h01=0x0050, text=» B BDTP33 «, t00=0x001a, t01=0x0024}
0x28ce…28d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0036}
0x28d8…28fc Head {h00=0x0020, h01=0x0050, text=»BDTP37 WRITE SPECIFICATION«, t00=0x001a, t01=0x0040}
0x28fc…2928 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN7,GTDUPF(CBIN15) TEXT NR«, t00=0x001a, t01=0x0064}
0x2928…2944 Head {h00=0x0018, h01=0x0050, text=» PERF TXTRD,GSWBIN7 «, t00=0x001a, t01=0x0090}
0x2944…2958 Head {h00=0x0010, h01=0x0050, text=» PERF STREDT«, t00=0x001a, t01=0x00ac}
0x2958…2986 Head {h00=0x002a, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FRMSPE WRITE LINE«, t00=0x001a, t01=0x00c0}
0x2986…29ae Head {h00=0x0024, h01=0x0050, text=» SUB GSWBIN3,CBIN1 SET LINECOUNT«, t00=0x001a, t01=0x00ee}
0x29ae…29de Head {h00=0x002c, h01=0x0050, text=» ADD GTBSUM3,GTDUPF(CBIN4) ADD TO TOTAL «, t00=0x001a, t01=0x0116}
0x29de…2a0c Head {h00=0x002a, h01=0x0050, text=»* SET POINTER TO NEXT TRANSACTION «, t00=0x001a, t01=0x0146}
0x2a0c…2a30 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x001a, t01=0x0174}
0x2a30…2a52 Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN8,CBIN0,BDTP31«, t00=0x001b, t01=0x0008}
0x2a52…2a64 Head {h00=0x000e, h01=0x0050, text=» B BDTP320«, t00=0x001b, t01=0x002a}
0x2a64…2a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x003c}
0x2a6e…2a7c Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x001b, t01=0x0046}
0x2a7c…2a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0054}
0x2a86…2aa2 Head {h00=0x0018, h01=0x0050, text=»BDTP40 CHECK PRINT«, t00=0x001b, t01=0x005e}
0x2aa2…2abc Head {h00=0x0016, h01=0x0050, text=» PERF BCHKPR,CBIN0«, t00=0x001b, t01=0x007a}
0x2abc…2ad6 Head {h00=0x0016, h01=0x0050, text=» PERF BCHKPR,CBIN0«, t00=0x001b, t01=0x0094}
0x2ad6…2aea Head {h00=0x0010, h01=0x0050, text=» PERF PRTADJ«, t00=0x001b, t01=0x00ae}
0x2aea…2afc Head {h00=0x000e, h01=0x0050, text=» BL BDTP40«, t00=0x001b, t01=0x00c2}
0x2afc…2b0e Head {h00=0x000e, h01=0x0050, text=» BG BDTP90«, t00=0x001b, t01=0x00d4}
0x2b0e…2b22 Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x001b, t01=0x00e6}
0x2b22…2b36 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x001b, t01=0x00fa}
0x2b36…2b52 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x001b, t01=0x010e}
0x2b52…2b70 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x001b, t01=0x012a}
0x2b70…2b8a Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN8,CBIN0«, t00=0x001b, t01=0x0148}
0x2b8a…2b9c Head {h00=0x000e, h01=0x0050, text=» BE BDTP90«, t00=0x001b, t01=0x0162}
0x2b9c…2baa Head {h00=0x000a, h01=0x0050, text=»BDTP41«, t00=0x001b, t01=0x0174}
0x2baa…2bbe Head {h00=0x0010, h01=0x0050, text=» PERF KBTEST«, t00=0x001b, t01=0x0182}
0x2bbe…2bd2 Head {h00=0x0010, h01=0x0050, text=» BOK BDTP90 «, t00=0x001c, t01=0x0008}
0x2bd2…2bea Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001c, t01=0x001c}
0x2bea…2c06 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x001c, t01=0x0034}
0x2c06…2c1a Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x001c, t01=0x0050}
0x2c1a…2c44 Head {h00=0x0026, h01=0x0050, text=» CBG GTDUPF(CBIN2),GTPRTFRA,BDTP47«, t00=0x001c, t01=0x0064}
0x2c44…2c6e Head {h00=0x0026, h01=0x0050, text=» CBE GTLEVNR,GTDUPF(CBIN2),BDTP45 «, t00=0x001c, t01=0x008e}
0x2c6e…2c90 Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVNR,=D'19',BDTP43«, t00=0x001c, t01=0x00b8}
0x2c90…2ca6 Head {h00=0x0012, h01=0x0050, text=» CLEAR CWORK1 «, t00=0x001c, t01=0x00da}
0x2ca6…2cbc Head {h00=0x0012, h01=0x0050, text=» CLEAR CWORK1 «, t00=0x001c, t01=0x00f0}
0x2cbc…2cd6 Head {h00=0x0016, h01=0x0050, text=» PERF BCHKPR,CBIN4«, t00=0x001c, t01=0x0106}
0x2cd6…2ce4 Head {h00=0x000a, h01=0x0050, text=»BDTP43«, t00=0x001c, t01=0x0120}
0x2ce4…2d08 Head {h00=0x0020, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN2) «, t00=0x001c, t01=0x012e}
0x2d08…2d1c Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x001c, t01=0x0152}
0x2d1c…2d30 Head {h00=0x0010, h01=0x0050, text=» BOK BDTP44 «, t00=0x001c, t01=0x0166}
0x2d30…2d44 Head {h00=0x0010, h01=0x0050, text=» PERF SETLEV«, t00=0x001c, t01=0x017a}
0x2d44…2d52 Head {h00=0x000a, h01=0x0050, text=»BDTP44«, t00=0x001c, t01=0x018e}
0x2d52…2d6e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x001d, t01=0x000c}
0x2d6e…2d7c Head {h00=0x000a, h01=0x0050, text=»BDTP45«, t00=0x001d, t01=0x0028}
0x2d7c…2d90 Head {h00=0x0010, h01=0x0050, text=» SET CWORK1 «, t00=0x001d, t01=0x0036}
0x2d90…2da4 Head {h00=0x0010, h01=0x0050, text=» SET CWORK1 «, t00=0x001d, t01=0x004a}
0x2da4…2dc2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GSWBCD5 «, t00=0x001d, t01=0x005e}
0x2dc2…2dde Head {h00=0x0018, h01=0x0050, text=» PERF BCHKPR,GSWBIN4«, t00=0x001d, t01=0x007c}
0x2dde…2df8 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x001d, t01=0x0098}
0x2df8…2e14 Head {h00=0x0018, h01=0x0050, text=» TBT C821FLG,BDTP47 «, t00=0x001d, t01=0x00b2}
0x2e14…2e36 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD5,=D'4',BDTP47 «, t00=0x001d, t01=0x00ce}
0x2e36…2e52 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x001d, t01=0x00f0}
0x2e52…2e60 Head {h00=0x000a, h01=0x0050, text=»BDTP47«, t00=0x001d, t01=0x010c}
0x2e60…2e84 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x001d, t01=0x011a}
0x2e84…2ea6 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN8,CBIN0,BDTP49 «, t00=0x001d, t01=0x013e}
0x2ea6…2eb8 Head {h00=0x000e, h01=0x0050, text=» B BDTP41 «, t00=0x001d, t01=0x0160}
0x2eb8…2ec6 Head {h00=0x000a, h01=0x0050, text=»BDTP49«, t00=0x001d, t01=0x0172}
0x2ec6…2edc Head {h00=0x0012, h01=0x0050, text=» CLEAR CWORK1 «, t00=0x001d, t01=0x0180}
0x2edc…2ef6 Head {h00=0x0016, h01=0x0050, text=» PERF BCHKPR,CBIN4«, t00=0x001e, t01=0x0008}
0x2ef6…2f08 Head {h00=0x000e, h01=0x0050, text=» B BDTP90 «, t00=0x001e, t01=0x0022}
0x2f08…2f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0034}
0x2f12…2f20 Head {h00=0x000a, h01=0x0050, text=»BDTP60«, t00=0x001e, t01=0x003e}
0x2f20…2f3a Head {h00=0x0016, h01=0x0050, text=» PERF BGIRPR,CBIN0«, t00=0x001e, t01=0x004c}
0x2f3a…2f4e Head {h00=0x0010, h01=0x0050, text=» PERF PRTADJ«, t00=0x001e, t01=0x0066}
0x2f4e…2f60 Head {h00=0x000e, h01=0x0050, text=» BL BDTP60«, t00=0x001e, t01=0x007a}
0x2f60…2f72 Head {h00=0x000e, h01=0x0050, text=» BG BDTP90«, t00=0x001e, t01=0x008c}
0x2f72…2f86 Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x001e, t01=0x009e}
0x2f86…2f9a Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x001e, t01=0x00b2}
0x2f9a…2fb6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x001e, t01=0x00c6}
0x2fb6…2fd4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x001e, t01=0x00e2}
0x2fd4…2ff6 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN8,CBIN0,BDTP90 «, t00=0x001e, t01=0x0100}
0x2ff6…3004 Head {h00=0x000a, h01=0x0050, text=»BDTP61«, t00=0x001e, t01=0x0122}
0x3004…3018 Head {h00=0x0010, h01=0x0050, text=» PERF KBTEST«, t00=0x001e, t01=0x0130}
0x3018…302c Head {h00=0x0010, h01=0x0050, text=» BOK BDTP90 «, t00=0x001e, t01=0x0144}
0x302c…3044 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001e, t01=0x0158}
0x3044…3060 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x001e, t01=0x0170}
0x3060…3074 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x001e, t01=0x018c}
0x3074…309e Head {h00=0x0026, h01=0x0050, text=» CBG GTDUPF(CBIN2),GTPRTFRA,BDTP67«, t00=0x001f, t01=0x0010}
0x309e…30c8 Head {h00=0x0026, h01=0x0050, text=» CBE GTLEVNR,GTDUPF(CBIN2),BDTP65 «, t00=0x001f, t01=0x003a}
0x30c8…30ea Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVNR,=D'19',BDTP64«, t00=0x001f, t01=0x0064}
0x30ea…311e Head {h00=0x0030, h01=0x0050, text=»* DEPENDING ON THE VALUE OF GSWBIN4 (W LINE)«, t00=0x001f, t01=0x0086}
0x311e…315a Head {h00=0x0038, h01=0x0050, text=»* WE HAVE TO DECIDE IF WE HAVE TO SHIFT TO THE RIGHT«, t00=0x001f, t01=0x00ba}
0x315a…3190 Head {h00=0x0032, h01=0x0050, text=»* HALF OF THE GIROFORM, OR START ON A NEW ONE «, t00=0x001f, t01=0x00f6}
0x3190…31ae Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GSWBCD5 «, t00=0x001f, t01=0x012c}
0x31ae…31c6 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN4, C «, t00=0x001f, t01=0x014a}
0x31c6…31fa Head {h00=0x0030, h01=0x0050, text=» BDTP64,BDTP62,BDTP62,BDTP62,BDTP63,BDTP63 «, t00=0x001f, t01=0x0162}
0x31fa…3208 Head {h00=0x000a, h01=0x0050, text=»BDTP62«, t00=0x0020, t01=0x0008}
0x3208…3238 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD5,=D'4' START ON RIGHT HALF «, t00=0x0020, t01=0x0016}
0x3238…324a Head {h00=0x000e, h01=0x0050, text=» B BDTP650«, t00=0x0020, t01=0x0046}
0x324a…3258 Head {h00=0x000a, h01=0x0050, text=»BDTP63«, t00=0x0020, t01=0x0058}
0x3258…328e Head {h00=0x0032, h01=0x0050, text=» PERF BGIRPR,CBIN7 PRINT AND START ON NEW FORM«, t00=0x0020, t01=0x0066}
0x328e…329c Head {h00=0x000a, h01=0x0050, text=»BDTP64«, t00=0x0020, t01=0x009c}
0x329c…32b8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x0020, t01=0x00aa}
0x32b8…32c8 Head {h00=0x000c, h01=0x0050, text=»BDTP650 «, t00=0x0020, t01=0x00c6}
0x32c8…32ec Head {h00=0x0020, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN2) «, t00=0x0020, t01=0x00d6}
0x32ec…3300 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0020, t01=0x00fa}
0x3300…3314 Head {h00=0x0010, h01=0x0050, text=» BOK BDTP65 «, t00=0x0020, t01=0x010e}
0x3314…3328 Head {h00=0x0010, h01=0x0050, text=» PERF SETLEV«, t00=0x0020, t01=0x0122}
0x3328…3336 Head {h00=0x000a, h01=0x0050, text=»BDTP65«, t00=0x0020, t01=0x0136}
0x3336…3354 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GSWBCD5 «, t00=0x0020, t01=0x0144}
0x3354…3370 Head {h00=0x0018, h01=0x0050, text=» PERF BGIRPR,GSWBIN4«, t00=0x0020, t01=0x0162}
0x3370…338a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x0020, t01=0x017e}
0x338a…33ac Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD5,=D'7',BDTP67 «, t00=0x0021, t01=0x0008}
0x33ac…33c8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x0021, t01=0x002a}
0x33c8…33d6 Head {h00=0x000a, h01=0x0050, text=»BDTP67«, t00=0x0021, t01=0x0046}
0x33d6…33fa Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x0021, t01=0x0054}
0x33fa…341c Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN8,CBIN0,BDTP69 «, t00=0x0021, t01=0x0078}
0x341c…342e Head {h00=0x000e, h01=0x0050, text=» B BDTP61 «, t00=0x0021, t01=0x009a}
0x342e…343c Head {h00=0x000a, h01=0x0050, text=»BDTP69«, t00=0x0021, t01=0x00ac}
0x343c…346a Head {h00=0x002a, h01=0x0050, text=» CBE GSWBCD5,=D'1',BDTP90 EMPTY FORM ?«, t00=0x0021, t01=0x00ba}
0x346a…3494 Head {h00=0x0026, h01=0x0050, text=» PERF BGIRPR,CBIN7 PRINT LAST FORM«, t00=0x0021, t01=0x00e8}
0x3494…34a6 Head {h00=0x000e, h01=0x0050, text=» B BDTP90 «, t00=0x0021, t01=0x0112}
0x34a6…34b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0124}
0x34b0…34be Head {h00=0x000a, h01=0x0050, text=»BDTP90«, t00=0x0021, t01=0x012e}
0x34be…34d6 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0021, t01=0x013c}
0x34d6…34e2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0154}
0x34e2…34ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0160}
0x34ec…34fa Head {h00=0x000a, h01=0x0050, text=»BDTP95«, t00=0x0021, t01=0x016a}
0x34fa…3512 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0021, t01=0x0178}
0x3512…351e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0190}
0x351e…352c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x000c}
0x352c…353a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x001a}
0x353a…354e Head {h00=0x0010, h01=0x0050, text=»BDTBOG PROC «, t00=0x0022, t01=0x0028}
0x354e…3558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x003c}
0x3558…357e Head {h00=0x0022, h01=0x0050, text=»* BOOKKEEPING OF A TRANSACTION«, t00=0x0022, t01=0x0046}
0x357e…35ac Head {h00=0x002a, h01=0x0050, text=»* DURING THE MOVE FROM LEV TO PRINTLEV«, t00=0x0022, t01=0x006c}
0x35ac…35c4 Head {h00=0x0014, h01=0x0050, text=»* ADD TO VERSUR «, t00=0x0022, t01=0x009a}
0x35c4…35dc Head {h00=0x0014, h01=0x0050, text=»* SUB FROM PENGE«, t00=0x0022, t01=0x00b2}
0x35dc…35f6 Head {h00=0x0016, h01=0x0050, text=»* UPDAT VAR. INFO «, t00=0x0022, t01=0x00ca}
0x35f6…3600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e4}
0x3600…362e Head {h00=0x002a, h01=0x0050, text=» CBL GTDUPF(CBIN4),=D'0',BDTB30 KREDIT«, t00=0x0022, t01=0x00ee}
0x362e…364a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN2 «, t00=0x0022, t01=0x011c}
0x364a…367e Head {h00=0x0030, h01=0x0050, text=» SUB GTREGF(CBIN14),GTDUPF(CBIN4) VENT DEBET«, t00=0x0022, t01=0x0138}
0x367e…3690 Head {h00=0x000e, h01=0x0050, text=» B BDTB40 «, t00=0x0022, t01=0x016c}
0x3690…369e Head {h00=0x000a, h01=0x0050, text=»BDTB30«, t00=0x0022, t01=0x017e}
0x369e…36ba Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0022, t01=0x018c}
0x36ba…36f0 Head {h00=0x0032, h01=0x0050, text=» SUB GTREGF(CBIN15),GTDUPF(CBIN4) VENT KREDIT «, t00=0x0023, t01=0x0018}
0x36f0…36fe Head {h00=0x000a, h01=0x0050, text=»BDTB40«, t00=0x0023, t01=0x004e}
0x36fe…3712 Head {h00=0x0010, h01=0x0050, text=»* BOGFORING «, t00=0x0023, t01=0x005c}
0x3712…3730 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GTLEVBFO«, t00=0x0023, t01=0x0070}
0x3730…3752 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN5,CBIN5,BDTB45 «, t00=0x0023, t01=0x008e}
0x3752…3782 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN5,CBIN5 ADJUST FOR BUNDT ONLY«, t00=0x0023, t01=0x00b0}
0x3782…3790 Head {h00=0x000a, h01=0x0050, text=»BDTB45«, t00=0x0023, t01=0x00e0}
0x3790…37c2 Head {h00=0x002e, h01=0x0050, text=» PERF KFREAD,CBIN3,GSWBIN4,GSWBIN5,GTKFVAL«, t00=0x0023, t01=0x00ee}
0x37c2…37f2 Head {h00=0x002c, h01=0x0050, text=» ADD GTKFVAL,GTDUPF(CBIN4) ADD TO VERSUR«, t00=0x0023, t01=0x0120}
0x37f2…3826 Head {h00=0x0030, h01=0x0050, text=» PERF KFWRIT,CBIN3,GSWBIN4,GSWBIN5,GTKFVAL «, t00=0x0023, t01=0x0150}
0x3826…3856 Head {h00=0x002c, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN1,GSWBIN5,GTKFVAL«, t00=0x0023, t01=0x0184}
0x3856…3888 Head {h00=0x002e, h01=0x0050, text=» SUB GTKFVAL,GTDUPF(CBIN4) SUB FROM PENGE «, t00=0x0024, t01=0x0024}
0x3888…38b8 Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN2,CBIN1,GSWBIN5,GTKFVAL«, t00=0x0024, t01=0x0056}
0x38b8…38cc Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x0024, t01=0x0086}
0x38cc…38e0 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTB95«, t00=0x0024, t01=0x009a}
0x38e0…38f8 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0024, t01=0x00ae}
0x38f8…3904 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x00c6}
0x3904…3912 Head {h00=0x000a, h01=0x0050, text=»BDTB95«, t00=0x0024, t01=0x00d2}
0x3912…392a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0024, t01=0x00e0}
0x392a…3936 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x00f8}
0x3936…3944 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x0104}
0x3944…3952 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0112}
0x3952…3966 Head {h00=0x0010, h01=0x0050, text=»BDTDEL PROC «, t00=0x0024, t01=0x0120}
0x3966…3970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0134}
0x3970…399a Head {h00=0x0026, h01=0x0050, text=»* THE PROCEDURE MOVES ALL RECORDS «, t00=0x0024, t01=0x013e}
0x399a…39ca Head {h00=0x002c, h01=0x0050, text=»* FROM A GIVEN PRINTLEV TO THE FREE LEV «, t00=0x0024, t01=0x0168}
0x39ca…39d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0008}
0x39d4…39f6 Head {h00=0x001e, h01=0x0050, text=»* 1) READ PRINTLEV AR.INFO«, t00=0x0025, t01=0x0012}
0x39f6…3a30 Head {h00=0x0036, h01=0x0050, text=»* 2) UPDATE ALL RECORDS, APART FROM LAST-IN-CHAIN «, t00=0x0025, t01=0x0034}
0x3a30…3a54 Head {h00=0x0020, h01=0x0050, text=»* 3) READ FREE LEV VAR.INFO «, t00=0x0025, t01=0x006e}
0x3a54…3a8c Head {h00=0x0034, h01=0x0050, text=»* 4) UPDATE LAST TRANS WITH GTTRKEY, AND REWRITE«, t00=0x0025, t01=0x0092}
0x3a8c…3ac4 Head {h00=0x0034, h01=0x0050, text=»* 5) UPDATE FREE LEV WITH GTTRKEY FROM PRINTLEV «, t00=0x0025, t01=0x00ca}
0x3ac4…3af6 Head {h00=0x002e, h01=0x0050, text=»* 6) UPDATE PRINTLEV WITH GTTRKEY := ZERO «, t00=0x0025, t01=0x0102}
0x3af6…3b02 Head {h00=0x0008, h01=0x0050, text=»* 1)«, t00=0x0025, t01=0x0134}
0x3b02…3b1e Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0025, t01=0x0140}
0x3b1e…3b50 Head {h00=0x002e, h01=0x0050, text=» MOVE GTKFVAL,GTLEVNR SAVE PRINTLEV IDENT «, t00=0x0025, t01=0x015c}
0x3b50…3b7c Head {h00=0x0028, h01=0x0050, text=» PERF VARRD READ POINTER TO 1. TRANS«, t00=0x0025, t01=0x018e}
0x3b7c…3b92 Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB095 «, t00=0x0026, t01=0x002a}
0x3b92…3bc6 Head {h00=0x0030, h01=0x0050, text=» CBE GTTRKEY,CBIN0,BDTB090 NOTHING TO DELETE«, t00=0x0026, t01=0x0040}
0x3bc6…3be4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,GTTRKEY «, t00=0x0026, t01=0x0074}
0x3be4…3c02 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x0026, t01=0x0092}
0x3c02…3c1e Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'10'«, t00=0x0026, t01=0x00b0}
0x3c1e…3c2a Head {h00=0x0008, h01=0x0050, text=»* 2)«, t00=0x0026, t01=0x00cc}
0x3c2a…3c3a Head {h00=0x000c, h01=0x0050, text=»BDTB020 «, t00=0x0026, t01=0x00d8}
0x3c3a…3c5c Head {h00=0x001e, h01=0x0050, text=» SET GTSWFLAG POINTER ONLY«, t00=0x0026, t01=0x00e8}
0x3c5c…3c84 Head {h00=0x0024, h01=0x0050, text=» PERF TRREAD,GSWBIN8 READ TRANS «, t00=0x0026, t01=0x010a}
0x3c84…3c9a Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB095 «, t00=0x0026, t01=0x0132}
0x3c9a…3cb4 Head {h00=0x0016, h01=0x0050, text=» ADD GTBSUM1,=D'1'«, t00=0x0026, t01=0x0148}
0x3cb4…3ce0 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN7),=D'0' VALORDATO «, t00=0x0026, t01=0x0162}
0x3ce0…3d02 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN13),=D'0'«, t00=0x0026, t01=0x018e}
0x3d02…3d24 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN14),=D'0'«, t00=0x0027, t01=0x0020}
0x3d24…3d46 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN18),=D'0'«, t00=0x0027, t01=0x0042}
0x3d46…3d68 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN19),=D'0'«, t00=0x0027, t01=0x0064}
0x3d68…3d92 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'0' TEXTNR «, t00=0x0027, t01=0x0086}
0x3d92…3dbe Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN21),=D'0' TEXTCODE «, t00=0x0027, t01=0x00b0}
0x3dbe…3dea Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN4),=D'0' UDB. BELOB«, t00=0x0027, t01=0x00dc}
0x3dea…3e18 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN6),=D'0' REGNSKABS]R «, t00=0x0027, t01=0x0108}
0x3e18…3e44 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN1),=D'0' REGKONTONR«, t00=0x0027, t01=0x0136}
0x3e44…3e6c Head {h00=0x0024, h01=0x0050, text=» MOVE GTDUPF(CBIN2),=D'0' LEVNR «, t00=0x0027, t01=0x0162}
0x3e6c…3ea4 Head {h00=0x0034, h01=0x0050, text=» CBL GTDUPF(CBIN22),=D'1',BDTB030 LAST IN CHAIN?«, t00=0x0027, t01=0x018a}
0x3ea4…3ebc Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0028, t01=0x0032}
0x3ebc…3ee0 Head {h00=0x0020, h01=0x0050, text=» PERF TRPUT,GSWBIN8 REWRITE «, t00=0x0028, t01=0x004a}
0x3ee0…3ef6 Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB095 «, t00=0x0028, t01=0x006e}
0x3ef6…3f1a Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x0028, t01=0x0084}
0x3f1a…3f2c Head {h00=0x000e, h01=0x0050, text=» B BDTB020«, t00=0x0028, t01=0x00a8}
0x3f2c…3f38 Head {h00=0x0008, h01=0x0050, text=»* 3)«, t00=0x0028, t01=0x00ba}
0x3f38…3f5c Head {h00=0x0020, h01=0x0050, text=»BDTB030 MOVE GTLEVNR,=D'10' «, t00=0x0028, t01=0x00c6}
0x3f5c…3f92 Head {h00=0x0032, h01=0x0050, text=» PERF WAITF,CVAREXFL WAIT FOR ACCESS TO VARRD «, t00=0x0028, t01=0x00ea}
0x3f92…3fb4 Head {h00=0x001e, h01=0x0050, text=» PERF VARRD READ FREE LEV «, t00=0x0028, t01=0x0120}
0x3fb4…3fca Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB085 «, t00=0x0028, t01=0x0142}
0x3fca…3fd6 Head {h00=0x0008, h01=0x0050, text=»* 4)«, t00=0x0028, t01=0x0158}
0x3fd6…3ffa Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GTTRKEY«, t00=0x0028, t01=0x0164}
0x3ffa…4012 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0028, t01=0x0188}
0x4012…4042 Head {h00=0x002c, h01=0x0050, text=» PERF TRPUT,GSWBIN8 REWRITE LAST TRANS; «, t00=0x0029, t01=0x0010}
0x4042…4072 Head {h00=0x002c, h01=0x0050, text=» BNOK BDTB085 POINTS NOW TO 'OLD' FIRST «, t00=0x0029, t01=0x0040}
0x4072…4090 Head {h00=0x001a, h01=0x0050, text=» RECORD IN FREE LEV «, t00=0x0029, t01=0x0070}
0x4090…409c Head {h00=0x0008, h01=0x0050, text=»* 5)«, t00=0x0029, t01=0x008e}
0x409c…40ce Head {h00=0x002e, h01=0x0050, text=» ADD GTREGF(CBIN11),GTBSUM1 AVAIL. RECORDS«, t00=0x0029, t01=0x009a}
0x40ce…4104 Head {h00=0x0032, h01=0x0050, text=» MOVE GTTRKEY,GSWBIN7 POINT TO FIRST RECORD IN«, t00=0x0029, t01=0x00cc}
0x4104…4128 Head {h00=0x0020, h01=0x0050, text=» PERF VARWRT ORIG. PRINTLEV «, t00=0x0029, t01=0x0102}
0x4128…414a Head {h00=0x001e, h01=0x0050, text=» BNOK BDTB085 AND REWRITE «, t00=0x0029, t01=0x0126}
0x414a…4156 Head {h00=0x0008, h01=0x0050, text=»* 6)«, t00=0x0029, t01=0x0148}
0x4156…4174 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GTKFVAL «, t00=0x0029, t01=0x0154}
0x4174…4196 Head {h00=0x001e, h01=0x0050, text=» PERF VARRD READ PRINTLEV «, t00=0x0029, t01=0x0172}
0x4196…41ac (42, 0, 400) Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB085 «, t00=0x002a, t01=0x0004}
0x41ac…41ce Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN10),=D'0'«, t00=0x002a, t01=0x001a}
0x41ce…41f0 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN11),=D'0'«, t00=0x002a, t01=0x003c}
0x41f0…4212 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN12),=D'0'«, t00=0x002a, t01=0x005e}
0x4212…4234 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN13),=D'0'«, t00=0x002a, t01=0x0080}
0x4234…4256 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN14),=D'0'«, t00=0x002a, t01=0x00a2}
0x4256…4278 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN15),=D'0'«, t00=0x002a, t01=0x00c4}
0x4278…4294 Head {h00=0x0018, h01=0x0050, text=» MOVE GTTRKEY,CBIN0 «, t00=0x002a, t01=0x00e6}
0x4294…42a8 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x002a, t01=0x0102}
0x42a8…42be Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB085 «, t00=0x002a, t01=0x0116}
0x42be…42c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012c}
0x42c8…42e0 Head {h00=0x0014, h01=0x0050, text=» CLEAR CVAREXFL «, t00=0x002a, t01=0x0136}
0x42e0…42f2 Head {h00=0x000e, h01=0x0050, text=» B BDTB090«, t00=0x002a, t01=0x014e}
0x42f2…4302 Head {h00=0x000c, h01=0x0050, text=»BDTB085 «, t00=0x002a, t01=0x0160}
0x4302…431a Head {h00=0x0014, h01=0x0050, text=» CLEAR CVAREXFL «, t00=0x002a, t01=0x0170}
0x431a…432c Head {h00=0x000e, h01=0x0050, text=» B BDTB095«, t00=0x002a, t01=0x0188}
0x432c…4336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x000a}
0x4336…4346 Head {h00=0x000c, h01=0x0050, text=»BDTB090 «, t00=0x002b, t01=0x0014}
0x4346…4362 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x002b, t01=0x0024}
0x4362…4374 Head {h00=0x000e, h01=0x0050, text=» B BDTB099«, t00=0x002b, t01=0x0040}
0x4374…4384 Head {h00=0x000c, h01=0x0050, text=»BDTB095 «, t00=0x002b, t01=0x0052}
0x4384…439c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x002b, t01=0x0062}
0x439c…43ac Head {h00=0x000c, h01=0x0050, text=»BDTB099 «, t00=0x002b, t01=0x007a}
0x43ac…43b8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x008a}
0x43b8…43c6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x0096}
0x43c6…43d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00a4}
0x43d4…43e8 Head {h00=0x0010, h01=0x0050, text=»TRINIT PROC «, t00=0x002b, t01=0x00b2}
0x43e8…43f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00c6}
0x43f2…4426 Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE MOVES ALL TRANSACTIONRECORDS«, t00=0x002b, t01=0x00d0}
0x4426…4456 Head {h00=0x002c, h01=0x0050, text=»* TO THE SPECIAL SUPPLIER CONTAINING ALL«, t00=0x002b, t01=0x0104}
0x4456…446c Head {h00=0x0012, h01=0x0050, text=»* FREE RECORDS«, t00=0x002b, t01=0x0134}
0x446c…4496 Head {h00=0x0026, h01=0x0050, text=»* GTDUPF(15) CONTAINS KEY OF LAST «, t00=0x002b, t01=0x014a}
0x4496…44bc Head {h00=0x0022, h01=0x0050, text=»* READABLE/WRITABLE RECORD«, t00=0x002b, t01=0x0174}
0x44bc…44c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x000a}
0x44c6…44e2 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'10'«, t00=0x002c, t01=0x0014}
0x44e2…44f6 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x002c, t01=0x0030}
0x44f6…4512 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN8,CBIN1 «, t00=0x002c, t01=0x0044}
0x4512…4534 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN17),=D'0'«, t00=0x002c, t01=0x0060}
0x4534…455e Head {h00=0x0026, h01=0x0050, text=» PERF TRREAD,GSWBIN8 READ 1. TRANS«, t00=0x002c, t01=0x0082}
0x455e…4572 Head {h00=0x0010, h01=0x0050, text=» BOK TRIN10 «, t00=0x002c, t01=0x00ac}
0x4572…4584 Head {h00=0x000e, h01=0x0050, text=» B TRIN95 «, t00=0x002c, t01=0x00c0}
0x4584…4592 Head {h00=0x000a, h01=0x0050, text=»TRIN10«, t00=0x002c, t01=0x00d2}
0x4592…45b4 Head {h00=0x001e, h01=0x0050, text=» CBNE GTWBCD1,=D'4',TRIN90«, t00=0x002c, t01=0x00e0}
0x45b4…45c6 Head {h00=0x000e, h01=0x0050, text=» B TRIN30 «, t00=0x002c, t01=0x0102}
0x45c6…45d4 Head {h00=0x000a, h01=0x0050, text=»TRIN20«, t00=0x002c, t01=0x0114}
0x45d4…45f0 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x002c, t01=0x0122}
0x45f0…4604 Head {h00=0x0010, h01=0x0050, text=» BOK TRIN30 «, t00=0x002c, t01=0x013e}
0x4604…4632 Head {h00=0x002a, h01=0x0050, text=» CBE GTWBCD1,=D'10',TRIN25 END MEDIUM «, t00=0x002c, t01=0x0152}
0x4632…4644 Head {h00=0x000e, h01=0x0050, text=» B TRIN40 «, t00=0x002c, t01=0x0180}
0x4644…466a (45, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CHANGE LAST POINTER TO ZERO«, t00=0x002d, t01=0x0004}
0x466a…4678 Head {h00=0x000a, h01=0x0050, text=»TRIN25«, t00=0x002d, t01=0x002a}
0x4678…469c Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN17)«, t00=0x002d, t01=0x0038}
0x469c…46b2 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x002d, t01=0x005c}
0x46b2…46ce Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x002d, t01=0x0072}
0x46ce…46e2 Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN95«, t00=0x002d, t01=0x008e}
0x46e2…4704 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN22),=D'0'«, t00=0x002d, t01=0x00a2}
0x4704…4720 Head {h00=0x0018, h01=0x0050, text=» PERF TRPUT,GSWBIN8 «, t00=0x002d, t01=0x00c4}
0x4720…4734 Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN95«, t00=0x002d, t01=0x00e0}
0x4734…4758 Head {h00=0x0020, h01=0x0050, text=»* UPDATE VAR.INFO TO REFLECT«, t00=0x002d, t01=0x00f4}
0x4758…478c Head {h00=0x0030, h01=0x0050, text=»* 1) POINTER TO FIRST FREE RECORD (ALWAYS 1)«, t00=0x002d, t01=0x0118}
0x478c…47c8 Head {h00=0x0038, h01=0x0050, text=»* 2) NUMBER OF FREE RECORDS (DEPENDING ON FILE SIZE)«, t00=0x002d, t01=0x014c}
0x47c8…47f8 Head {h00=0x002c, h01=0x0050, text=» MOVE GTLEVNR,=D'10' FREE-LIST SUPPLIER «, t00=0x002d, t01=0x0188}
0x47f8…481a Head {h00=0x001e, h01=0x0050, text=» PERF VARRD READ VAR.INFO «, t00=0x002e, t01=0x0028}
0x481a…482e Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN95«, t00=0x002e, t01=0x004a}
0x482e…485c Head {h00=0x002a, h01=0x0050, text=» MOVE GTTRKEY,CBIN1 FIRST IN FREE LIST«, t00=0x002e, t01=0x005e}
0x485c…4894 Head {h00=0x0034, h01=0x0050, text=» MOVE GTREGF(CBIN11),GSWBIN8 NBR OF FREE RECORDS«, t00=0x002e, t01=0x008c}
0x4894…48b8 Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(CBIN12),GSWBIN8«, t00=0x002e, t01=0x00c4}
0x48b8…48d4 Head {h00=0x0018, h01=0x0050, text=» PERF VARWRT REWRITE«, t00=0x002e, t01=0x00e8}
0x48d4…48e8 Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN95«, t00=0x002e, t01=0x0104}
0x48e8…48fa Head {h00=0x000e, h01=0x0050, text=» B TRIN90 «, t00=0x002e, t01=0x0118}
0x48fa…4904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012a}
0x4904…4912 Head {h00=0x000a, h01=0x0050, text=»TRIN30«, t00=0x002e, t01=0x0134}
0x4912…4930 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GSWBIN8 «, t00=0x002e, t01=0x0142}
0x4930…4952 Head {h00=0x001e, h01=0x0050, text=» PERF SPLIN8,CBIN10,CBIN3 «, t00=0x002e, t01=0x0160}
0x4952…497c Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN2),=D'10' LEVNR «, t00=0x002e, t01=0x0182}
0x497c…49a8 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN7),=D'0' VALORDATO «, t00=0x002f, t01=0x001c}
0x49a8…49d0 Head {h00=0x0024, h01=0x0050, text=» MOVE GTDUPF(CBIN13),=D'0' NR-1 «, t00=0x002f, t01=0x0048}
0x49d0…49f8 Head {h00=0x0024, h01=0x0050, text=» MOVE GTDUPF(CBIN14),=D'0' NR-2 «, t00=0x002f, t01=0x0070}
0x49f8…4a22 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN18),=D'0' DATO-1 «, t00=0x002f, t01=0x0098}
0x4a22…4a4c Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN19),=D'0' DATO-2 «, t00=0x002f, t01=0x00c2}
0x4a4c…4a76 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'0' TEXTNR «, t00=0x002f, t01=0x00ec}
0x4a76…4aa2 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN21),=D'3' TEXTCODE «, t00=0x002f, t01=0x0116}
0x4aa2…4ace Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN4),=D'0' UDB. BELOB«, t00=0x002f, t01=0x0142}
0x4ace…4afc Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN6),=D'0' REGNSKABS]R «, t00=0x002f, t01=0x016e}
0x4afc…4b28 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN1),=D'0' REGKONTONR«, t00=0x0030, t01=0x000c}
0x4b28…4b58 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GSWBIN8 OLD POINTER«, t00=0x0030, t01=0x0038}
0x4b58…4b94 Head {h00=0x0038, h01=0x0050, text=» ADD GTDUPF(CBIN22),=D'1' PLUS ONE GIVES NEW POINTER«, t00=0x0030, t01=0x0068}
0x4b94…4bac Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0030, t01=0x00a4}
0x4bac…4bc8 Head {h00=0x0018, h01=0x0050, text=» PERF TRPUT,GSWBIN8 «, t00=0x0030, t01=0x00bc}
0x4bc8…4bdc Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN95«, t00=0x0030, t01=0x00d8}
0x4bdc…4c1a Head {h00=0x003a, h01=0x0050, text=» MOVE GTDUPF(CBIN17),GSWBIN8 SAVE LAST USEABLE POINTER«, t00=0x0030, t01=0x00ec}
0x4c1a…4c34 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN8,CBIN1«, t00=0x0030, t01=0x012a}
0x4c34…4c46 Head {h00=0x000e, h01=0x0050, text=» B TRIN20 «, t00=0x0030, t01=0x0144}
0x4c46…4c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0156}
0x4c50…4c80 Head {h00=0x002c, h01=0x0050, text=»TRIN40 READ ERROR, DROP THE RECORD(S) «, t00=0x0030, t01=0x0160}
0x4c80…4cac Head {h00=0x0028, h01=0x0050, text=» ADD GSWBIN8,CBIN1 CONTINUE TO READ «, t00=0x0030, t01=0x0190}
0x4cac…4ce0 Head {h00=0x0030, h01=0x0050, text=» PERF TRREAD,GSWBIN8 UNTIL NO ERROR IS FOUND«, t00=0x0031, t01=0x002c}
0x4ce0…4cf4 Head {h00=0x0010, h01=0x0050, text=» BOK TRIN40A«, t00=0x0031, t01=0x0060}
0x4cf4…4d16 Head {h00=0x001e, h01=0x0050, text=» CBE GTWBCD1,=D'10',TRIN25«, t00=0x0031, t01=0x0074}
0x4d16…4d28 Head {h00=0x000e, h01=0x0050, text=» B TRIN40 «, t00=0x0031, t01=0x0096}
0x4d28…4d38 Head {h00=0x000c, h01=0x0050, text=»TRIN40A «, t00=0x0031, t01=0x00a8}
0x4d38…4d70 Head {h00=0x0034, h01=0x0050, text=» MOVE GTDUPF(CBIN16),GSWBIN8 SAVE NEW RECORDNBR «, t00=0x0031, t01=0x00b8}
0x4d70…4d94 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN17)«, t00=0x0031, t01=0x00f0}
0x4d94…4da2 Head {h00=0x000a, h01=0x0050, text=»TRIN41«, t00=0x0031, t01=0x0114}
0x4da2…4dd0 Head {h00=0x002a, h01=0x0050, text=» PERF TRREAD,GSWBIN8 THE LAST USEABLE «, t00=0x0031, t01=0x0122}
0x4dd0…4df6 Head {h00=0x0022, h01=0x0050, text=» BOK TRIN43 HAS TO BE UPDATED «, t00=0x0031, t01=0x0150}
0x4df6…4e04 Head {h00=0x000a, h01=0x0050, text=»TRIN42«, t00=0x0031, t01=0x0176}
0x4e04…4e1e Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN8,CBIN1«, t00=0x0031, t01=0x0184}
0x4e1e…4e3e Head {h00=0x001c, h01=0x0050, text=» B TRIN41 ONE MORE ERROR«, t00=0x0032, t01=0x000e}
0x4e3e…4e4c Head {h00=0x000a, h01=0x0050, text=»TRIN43«, t00=0x0032, t01=0x002e}
0x4e4c…4e78 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GTDUPF(CBIN16) «, t00=0x0032, t01=0x003c}
0x4e78…4e94 Head {h00=0x0018, h01=0x0050, text=» PERF TRPUT,GSWBIN8 «, t00=0x0032, t01=0x0068}
0x4e94…4ea8 Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN42«, t00=0x0032, t01=0x0084}
0x4ea8…4ecc Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN16)«, t00=0x0032, t01=0x0098}
0x4ecc…4ede Head {h00=0x000e, h01=0x0050, text=» B TRIN20 «, t00=0x0032, t01=0x00bc}
0x4ede…4ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ce}
0x4ee8…4ef6 Head {h00=0x000a, h01=0x0050, text=»TRIN90«, t00=0x0032, t01=0x00d8}
0x4ef6…4f0a Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0032, t01=0x00e6}
0x4f0a…4f2a Head {h00=0x001c, h01=0x0050, text=» CMP CBIN0,CBIN0 ALL OK «, t00=0x0032, t01=0x00fa}
0x4f2a…4f3c Head {h00=0x000e, h01=0x0050, text=» B TRIN99 «, t00=0x0032, t01=0x011a}
0x4f3c…4f4a Head {h00=0x000a, h01=0x0050, text=»TRIN95«, t00=0x0032, t01=0x012c}
0x4f4a…4f5e Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0032, t01=0x013a}
0x4f5e…4f76 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0032, t01=0x014e}
0x4f76…4f84 Head {h00=0x000a, h01=0x0050, text=»TRIN99«, t00=0x0032, t01=0x0166}
0x4f84…4f90 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x0174}
0x4f90…4f9e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0032, t01=0x0180}
0x4f9e…4fac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x018e}
0x4fac…4fc2 Head {h00=0x0012, h01=0x0050, text=»TRINS PROC PT «, t00=0x0033, t01=0x000c}
0x4fc2…4fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0022}
0x4fcc…500c Head {h00=0x003c, h01=0x0050, text=»* THE PROCEDURE INSERTS A TRANSACTION INTO THE TRANSFILE«, t00=0x0033, t01=0x002c}
0x500c…5038 Head {h00=0x0028, h01=0x0050, text=»* <PT> POINTS TO A FREE RECORD«, t00=0x0033, t01=0x006c}
0x5038…5056 Head {h00=0x001a, h01=0x0050, text=»* 1) LEV ALREADY READ «, t00=0x0033, t01=0x0098}
0x5056…508a Head {h00=0x0030, h01=0x0050, text=»* 2) MOVE POINTER FROM LEV TO 'FREE' RECORD «, t00=0x0033, t01=0x00b6}
0x508a…50aa Head {h00=0x001c, h01=0x0050, text=»* 3) MOVE POINTER TO LEV«, t00=0x0033, t01=0x00ea}
0x50aa…50e4 Head {h00=0x0036, h01=0x0050, text=»* 4) WRITE 'FREE' RECORD AFTER PACKING FROM GTDUPF«, t00=0x0033, t01=0x010a}
0x50e4…50fc Head {h00=0x0014, h01=0x0050, text=»* 5) UPDATE LEV «, t00=0x0033, t01=0x0144}
0x50fc…5114 Head {h00=0x0014, h01=0x0050, text=»* 6) REWRITE LEV«, t00=0x0033, t01=0x015c}
0x5114…511e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0174}
0x511e…512a Head {h00=0x0008, h01=0x0050, text=»* 1)«, t00=0x0033, t01=0x017e}
0x512a…514a Head {h00=0x001c, h01=0x0050, text=»* LEV READ BEFORE ENTRY «, t00=0x0033, t01=0x018a}
0x514a…5156 Head {h00=0x0008, h01=0x0050, text=»* 2)«, t00=0x0034, t01=0x001a}
0x5156…517a Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GTTRKEY«, t00=0x0034, t01=0x0026}
0x517a…5186 Head {h00=0x0008, h01=0x0050, text=»* 3)«, t00=0x0034, t01=0x004a}
0x5186…519e Head {h00=0x0014, h01=0x0050, text=» MOVE GTTRKEY,PT«, t00=0x0034, t01=0x0056}
0x519e…51aa Head {h00=0x0008, h01=0x0050, text=»* 4)«, t00=0x0034, t01=0x006e}
0x51aa…51c8 Head {h00=0x001a, h01=0x0050, text=» PERF TRPUT,PT INSERT «, t00=0x0034, t01=0x007a}
0x51c8…51de Head {h00=0x0012, h01=0x0050, text=» BNOK TRINS95 «, t00=0x0034, t01=0x0098}
0x51de…51ea Head {h00=0x0008, h01=0x0050, text=»* 5)«, t00=0x0034, t01=0x00ae}
0x51ea…51fe Head {h00=0x0010, h01=0x0050, text=» PERF WCHUPD«, t00=0x0034, t01=0x00ba}
0x51fe…520a Head {h00=0x0008, h01=0x0050, text=»* 6)«, t00=0x0034, t01=0x00ce}
0x520a…522e Head {h00=0x0020, h01=0x0050, text=» CBNE GTLEVNR,=D'10',TRINS50«, t00=0x0034, t01=0x00da}
0x522e…5262 Head {h00=0x0030, h01=0x0050, text=» ADD GTREGF(CBIN11),=D'1' AVAILABLE RECORDS «, t00=0x0034, t01=0x00fe}
0x5262…5272 Head {h00=0x000c, h01=0x0050, text=»TRINS50 «, t00=0x0034, t01=0x0132}
0x5272…5286 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x0034, t01=0x0142}
0x5286…529c Head {h00=0x0012, h01=0x0050, text=» BNOK TRINS95 «, t00=0x0034, t01=0x0156}
0x529c…52b4 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0034, t01=0x016c}
0x52b4…52c6 Head {h00=0x000e, h01=0x0050, text=» B TRINS99«, t00=0x0034, t01=0x0184}
0x52c6…52d6 Head {h00=0x000c, h01=0x0050, text=»TRINS95 «, t00=0x0035, t01=0x0008}
0x52d6…52ee Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0035, t01=0x0018}
0x52ee…52fe Head {h00=0x000c, h01=0x0050, text=»TRINS99 «, t00=0x0035, t01=0x0030}
0x52fe…530a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0035, t01=0x0040}
0x530a…5318 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0035, t01=0x004c}
0x5318…5326 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x005a}
0x5326…533c Head {h00=0x0012, h01=0x0050, text=»TRGETF PROC PT«, t00=0x0035, t01=0x0068}
0x533c…5374 Head {h00=0x0034, h01=0x0050, text=»* THE PROCEDURE GETS A RECORD FROM THE FREE LEV.«, t00=0x0035, t01=0x007e}
0x5374…539e Head {h00=0x0026, h01=0x0050, text=»* THE POINTER IS RETURNED IN <PT> «, t00=0x0035, t01=0x00b6}
0x539e…53ba Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CVAREXFL«, t00=0x0035, t01=0x00e0}
0x53ba…53d6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'10'«, t00=0x0035, t01=0x00fc}
0x53d6…53ea Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x0035, t01=0x0118}
0x53ea…5400 Head {h00=0x0012, h01=0x0050, text=» BNOK TRGETF95«, t00=0x0035, t01=0x012c}
0x5400…541c Head {h00=0x0018, h01=0x0050, text=» PERF TRGET,CBIN0,PT«, t00=0x0035, t01=0x0142}
0x541c…5432 Head {h00=0x0012, h01=0x0050, text=» BNOK TRGETF95«, t00=0x0035, t01=0x015e}
0x5432…544a Head {h00=0x0014, h01=0x0050, text=» CLEAR CVAREXFL «, t00=0x0035, t01=0x0174}
0x544a…5462 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0035, t01=0x018c}
0x5462…5476 Head {h00=0x0010, h01=0x0050, text=» B TRGETF99 «, t00=0x0036, t01=0x0014}
0x5476…5486 Head {h00=0x000c, h01=0x0050, text=»TRGETF95«, t00=0x0036, t01=0x0028}
0x5486…549e Head {h00=0x0014, h01=0x0050, text=» CLEAR CVAREXFL «, t00=0x0036, t01=0x0038}
0x549e…54b6 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0036, t01=0x0050}
0x54b6…54c6 Head {h00=0x000c, h01=0x0050, text=»TRGETF99«, t00=0x0036, t01=0x0068}
0x54c6…54d2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x0078}
0x54d2…54e0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x0084}
0x54e0…54e8 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x0092}
0x54e8…54fe Head {h00=0x0012, h01=0x0050, text=»TRPUT PROC PT «, t00=0x0036, t01=0x009a}
0x54fe…553e Head {h00=0x003c, h01=0x0050, text=»* THE PROC WRITES THE RECORD TO THE SPECIFIED RECORDNBR «, t00=0x0036, t01=0x00b0}
0x553e…555a Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CTRFFLG «, t00=0x0036, t01=0x00f0}
0x555a…556e Head {h00=0x0010, h01=0x0050, text=» PERF TRPACK«, t00=0x0036, t01=0x010c}
0x556e…5598 Head {h00=0x0026, h01=0x0050, text=» PERF RAWRIT,DK11,=D'11',CTRBUF,PT«, t00=0x0036, t01=0x0120}
0x5598…55ae Head {h00=0x0012, h01=0x0050, text=» BNOK TRPUT95 «, t00=0x0036, t01=0x014a}
0x55ae…55c4 Head {h00=0x0012, h01=0x0050, text=» CLEAR CTRFFLG«, t00=0x0036, t01=0x0160}
0x55c4…55dc Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0036, t01=0x0176}
0x55dc…55ee Head {h00=0x000e, h01=0x0050, text=» B TRPUT99«, t00=0x0036, t01=0x018e}
0x55ee…55fe Head {h00=0x000c, h01=0x0050, text=»TRPUT95 «, t00=0x0037, t01=0x0010}
0x55fe…5614 Head {h00=0x0012, h01=0x0050, text=» CLEAR CTRFFLG«, t00=0x0037, t01=0x0020}
0x5614…562c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0037, t01=0x0036}
0x562c…563c Head {h00=0x000c, h01=0x0050, text=»TRPUT99 «, t00=0x0037, t01=0x004e}
0x563c…5648 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0037, t01=0x005e}
0x5648…5656 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0037, t01=0x006a}
0x5656…5664 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0078}
0x5664…567a Head {h00=0x0012, h01=0x0050, text=»TRREAD PROC PT«, t00=0x0037, t01=0x0086}
0x567a…5684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x009c}
0x5684…56b2 Head {h00=0x002a, h01=0x0050, text=»* THE PROCEDURE READS THE TRANSRECORD «, t00=0x0037, t01=0x00a6}
0x56b2…56e8 Head {h00=0x0032, h01=0x0050, text=»* WITH THE SPECIFIED RECORDNBR AND UNPACKS IT «, t00=0x0037, t01=0x00d4}
0x56e8…56f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x010a}
0x56f2…570e Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CTRFFLG «, t00=0x0037, t01=0x0114}
0x570e…572a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'39'«, t00=0x0037, t01=0x0130}
0x572a…5746 Head {h00=0x0018, h01=0x0050, text=» MOVE CTRBUF,CBLANKS«, t00=0x0037, t01=0x014c}
0x5746…5778 Head {h00=0x002e, h01=0x0050, text=» PERF RAREAD,DK11,=D'11',CTRBUF,GSWBIN1,PT«, t00=0x0037, t01=0x0168}
0x5778…578e Head {h00=0x0012, h01=0x0050, text=» BNOK TRREA95 «, t00=0x0038, t01=0x000a}
0x578e…57a2 Head {h00=0x0010, h01=0x0050, text=» PERF TRUNP «, t00=0x0038, t01=0x0020}
0x57a2…57b8 Head {h00=0x0012, h01=0x0050, text=» CLEAR CTRFFLG«, t00=0x0038, t01=0x0034}
0x57b8…57d0 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0038, t01=0x004a}
0x57d0…57e2 Head {h00=0x000e, h01=0x0050, text=» B TRREA99«, t00=0x0038, t01=0x0062}
0x57e2…57f2 Head {h00=0x000c, h01=0x0050, text=»TRREA95 «, t00=0x0038, t01=0x0074}
0x57f2…5808 Head {h00=0x0012, h01=0x0050, text=» CLEAR CTRFFLG«, t00=0x0038, t01=0x0084}
0x5808…5820 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0038, t01=0x009a}
0x5820…5830 Head {h00=0x000c, h01=0x0050, text=»TRREA99 «, t00=0x0038, t01=0x00b2}
0x5830…583c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x00c2}
0x583c…584a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x00ce}
0x584a…5858 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00dc}
0x5858…586a Head {h00=0x000e, h01=0x0050, text=»TRRMV PROC«, t00=0x0038, t01=0x00ea}
0x586a…58ac Head {h00=0x003e, h01=0x0050, text=»* THE PROCEDURE REMOVES THE CURRENT RECORD FROM THE CHAIN «, t00=0x0038, t01=0x00fc}
0x58ac…58e6 Head {h00=0x0036, h01=0x0050, text=»* IN GTKFVAL A POINTER TO THE PREVIOUS RECORD MUST«, t00=0x0038, t01=0x013e}
0x58e6…591a Head {h00=0x0030, h01=0x0050, text=»* BE AVAILABLE, IN ORDER TO BE ABLE TO COPY «, t00=0x0038, t01=0x0178}
0x591a…595a Head {h00=0x003c, h01=0x0050, text=»* THE POINTER FROM THE REMOVED RECORD INTO THE PREVIOUS.«, t00=0x0039, t01=0x001c}
0x595a…597e Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN3,GTDUPF(CBIN22)«, t00=0x0039, t01=0x005c}
0x597e…59ae Head {h00=0x002c, h01=0x0050, text=» CBE GSWBIN7,CBIN0,TRR10 FIRST IN CHAIN?«, t00=0x0039, t01=0x0080}
0x59ae…59c4 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x0039, t01=0x00b0}
0x59c4…59e2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GSWBIN7 «, t00=0x0039, t01=0x00c6}
0x59e2…59fe Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x0039, t01=0x00e4}
0x59fe…5a12 Head {h00=0x0010, h01=0x0050, text=» BNOK TRR95 «, t00=0x0039, t01=0x0100}
0x5a12…5a36 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GSWBIN3«, t00=0x0039, t01=0x0114}
0x5a36…5a52 Head {h00=0x0018, h01=0x0050, text=» PERF TRPUT,GSWBIN8 «, t00=0x0039, t01=0x0138}
0x5a52…5a66 Head {h00=0x0010, h01=0x0050, text=» BNOK TRR95 «, t00=0x0039, t01=0x0154}
0x5a66…5a76 Head {h00=0x000c, h01=0x0050, text=» B TRR90«, t00=0x0039, t01=0x0168}
0x5a76…5a84 Head {h00=0x000a, h01=0x0050, text=»TRR10 «, t00=0x0039, t01=0x0178}
0x5a84…5aa8 Head {h00=0x0020, h01=0x0050, text=» MOVE GTTRKEY,GTDUPF(CBIN22)«, t00=0x0039, t01=0x0186}
0x5aa8…5abc Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x003a, t01=0x001a}
0x5abc…5ad0 Head {h00=0x0010, h01=0x0050, text=» BNOK TRR95 «, t00=0x003a, t01=0x002e}
0x5ad0…5ae0 Head {h00=0x000c, h01=0x0050, text=» B TRR90«, t00=0x003a, t01=0x0042}
0x5ae0…5aee Head {h00=0x000a, h01=0x0050, text=»TRR90 «, t00=0x003a, t01=0x0052}
0x5aee…5b06 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x003a, t01=0x0060}
0x5b06…5b16 Head {h00=0x000c, h01=0x0050, text=» B TRR99«, t00=0x003a, t01=0x0078}
0x5b16…5b24 Head {h00=0x000a, h01=0x0050, text=»TRR95 «, t00=0x003a, t01=0x0088}
0x5b24…5b3c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x003a, t01=0x0096}
0x5b3c…5b4a Head {h00=0x000a, h01=0x0050, text=»TRR99 «, t00=0x003a, t01=0x00ae}
0x5b4a…5b56 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003a, t01=0x00bc}
0x5b56…5b64 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003a, t01=0x00c8}
0x5b64…5b72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00d6}
0x5b72…5b8c Head {h00=0x0016, h01=0x0050, text=»TRGET PROC OLD,PT «, t00=0x003a, t01=0x00e4}
0x5b8c…5bc0 Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE REMOVES THE TRANS POINTED AT«, t00=0x003a, t01=0x00fe}
0x5bc0…5be2 Head {h00=0x001e, h01=0x0050, text=»* BY <OLD> FROM THE CHAIN.«, t00=0x003a, t01=0x0132}
0x5be2…5c1a Head {h00=0x0034, h01=0x0050, text=»* IF <OLD> = 0, THE VAR.INFO POINTER IS UPDATED.«, t00=0x003a, t01=0x0154}
0x5c1a…5c30 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x003a, t01=0x018c}
0x5c30…5c4e Head {h00=0x001a, h01=0x0050, text=» CBE OLD,CBIN0,TRGET30«, t00=0x003b, t01=0x0012}
0x5c4e…5c66 Head {h00=0x0014, h01=0x0050, text=» PERF TRREAD,OLD«, t00=0x003b, t01=0x0030}
0x5c66…5c7c Head {h00=0x0012, h01=0x0050, text=» BNOK TRGET95 «, t00=0x003b, t01=0x0048}
0x5c7c…5cc0 Head {h00=0x0040, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22) MOVE THE POINTER RECENTLY READ «, t00=0x003b, t01=0x005e}
0x5cc0…5ce0 Head {h00=0x001c, h01=0x0050, text=» MOVE PT,GTDUPF(CBIN22) «, t00=0x003b, t01=0x00a2}
0x5ce0…5cfc Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x003b, t01=0x00c2}
0x5cfc…5d12 Head {h00=0x0012, h01=0x0050, text=» BNOK TRGET95 «, t00=0x003b, t01=0x00de}
0x5d12…5d48 Head {h00=0x0032, h01=0x0050, text=» PERF TRPUT,OLD UPDATE OLD WITH <PT>'S POINTER«, t00=0x003b, t01=0x00f4}
0x5d48…5d5e Head {h00=0x0012, h01=0x0050, text=» BNOK TRGET95 «, t00=0x003b, t01=0x012a}
0x5d5e…5d70 Head {h00=0x000e, h01=0x0050, text=» B TRGET90«, t00=0x003b, t01=0x0140}
0x5d70…5d96 Head {h00=0x0022, h01=0x0050, text=»TRGET30 FIRST TRANS IN CHAIN«, t00=0x003b, t01=0x0152}
0x5d96…5db4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x003b, t01=0x0178}
0x5db4…5dcc Head {h00=0x0014, h01=0x0050, text=» MOVE PT,GTTRKEY«, t00=0x003c, t01=0x0008}
0x5dcc…5de8 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x003c, t01=0x0020}
0x5de8…5dfe Head {h00=0x0012, h01=0x0050, text=» BNOK TRGET95 «, t00=0x003c, t01=0x003c}
0x5dfe…5e22 Head {h00=0x0020, h01=0x0050, text=» MOVE GTTRKEY,GTDUPF(CBIN22)«, t00=0x003c, t01=0x0052}
0x5e22…5e46 Head {h00=0x0020, h01=0x0050, text=» CBNE GTLEVNR,=D'10',TRGET80«, t00=0x003c, t01=0x0076}
0x5e46…5e7a Head {h00=0x0030, h01=0x0050, text=» SUB GTREGF(CBIN11),=D'1' AVAILABLE RECORDS «, t00=0x003c, t01=0x009a}
0x5e7a…5e9e Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD6,GTREGF(CBIN11)«, t00=0x003c, t01=0x00ce}
0x5e9e…5eba Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD6,=D'20' «, t00=0x003c, t01=0x00f2}
0x5eba…5ee6 Head {h00=0x0028, h01=0x0050, text=» CBL GTREGF(CBIN12),GSWBCD6,TRGET80 «, t00=0x003c, t01=0x010e}
0x5ee6…5f02 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'11'«, t00=0x003c, t01=0x013a}
0x5f02…5f1e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x003c, t01=0x0156}
0x5f1e…5f3a Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'50'«, t00=0x003c, t01=0x0172}
0x5f3a…5f5c Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,='DISKFEJL '«, t00=0x003c, t01=0x018e}
0x5f5c…5f70 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x003d, t01=0x0020}
0x5f70…5f80 Head {h00=0x000c, h01=0x0050, text=»TRGET80 «, t00=0x003d, t01=0x0034}
0x5f80…5f94 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x003d, t01=0x0044}
0x5f94…5faa Head {h00=0x0012, h01=0x0050, text=» BNOK TRGET95 «, t00=0x003d, t01=0x0058}
0x5faa…5fba Head {h00=0x000c, h01=0x0050, text=»TRGET90 «, t00=0x003d, t01=0x006e}
0x5fba…5fd2 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x003d, t01=0x007e}
0x5fd2…5fe4 Head {h00=0x000e, h01=0x0050, text=» B TRGET99«, t00=0x003d, t01=0x0096}
0x5fe4…5ff4 Head {h00=0x000c, h01=0x0050, text=»TRGET95 «, t00=0x003d, t01=0x00a8}
0x5ff4…600c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x003d, t01=0x00b8}
0x600c…601c Head {h00=0x000c, h01=0x0050, text=»TRGET99 «, t00=0x003d, t01=0x00d0}
0x601c…6028 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003d, t01=0x00e0}
0x6028…6036 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003d, t01=0x00ec}
0x6036…6044 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00fa}
0x6044…6056 Head {h00=0x000e, h01=0x0050, text=»TRUNP PROC«, t00=0x003d, t01=0x0108}
0x6056…6076 Head {h00=0x001c, h01=0x0050, text=»* UNPACK INFO FROM TRANS«, t00=0x003d, t01=0x011a}
0x6076…60ac Head {h00=0x0032, h01=0x0050, text=»* IF GTSWFLAG IS SET, ONLY THE POINTER WILL BE«, t00=0x003d, t01=0x013a}
0x60ac…60e2 Head {h00=0x0032, h01=0x0050, text=»* UNPACKED, TO AVOID OVERWRITING THE OLD INFO «, t00=0x003d, t01=0x0170}
0x60e2…60fe Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,TRU070«, t00=0x003e, t01=0x0016}
0x60fe…6132 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBIN1,=W'0',=W'2',CTRBUF,=W'36'«, t00=0x003e, t01=0x0032}
0x6132…6156 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN20),GSWBIN1«, t00=0x003e, t01=0x0066}
0x6156…6172 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x003e, t01=0x008a}
0x6172…61a6 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'0' «, t00=0x003e, t01=0x00a6}
0x61a6…61d0 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN2),GSWBCD7 LEVNR «, t00=0x003e, t01=0x00da}
0x61d0…61ec Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x003e, t01=0x0104}
0x61ec…6220 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'4',=W'3',CTRBUF,=W'5' «, t00=0x003e, t01=0x0120}
0x6220…624e Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN7),GSWBCD7 VALORDATO «, t00=0x003e, t01=0x0154}
0x624e…6282 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBIN1,=W'0',=W'2',CTRBUF,=W'18'«, t00=0x003e, t01=0x0182}
0x6282…62ae Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN15),GSWBIN1 TEXTNR «, t00=0x003f, t01=0x0026}
0x62ae…62ca Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x003f, t01=0x0052}
0x62ca…62fe Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBIN1,=W'1',=W'1',CTRBUF,=W'20'«, t00=0x003f, t01=0x006e}
0x62fe…6322 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN21),GSWBIN1«, t00=0x003f, t01=0x00a2}
0x6322…6356 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'0',=W'7',CTRBUF,=W'21'«, t00=0x003f, t01=0x00c6}
0x6356…6384 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GSWBCD7 UDB. BELOB«, t00=0x003f, t01=0x00fa}
0x6384…63a0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x003f, t01=0x0128}
0x63a0…63d4 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'6',=W'1',CTRBUF,=W'28'«, t00=0x003f, t01=0x0144}
0x63d4…6404 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GSWBCD7 REGNSKABS]R «, t00=0x003f, t01=0x0178}
0x6404…642a Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD7,=D'1' REGKONTONR«, t00=0x0040, t01=0x0018}
0x642a…645e Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'29'«, t00=0x0040, t01=0x003e}
0x645e…6482 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GSWBCD7 «, t00=0x0040, t01=0x0072}
0x6482…64a4 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN13),=D'0'«, t00=0x0040, t01=0x0096}
0x64a4…64c6 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN14),=D'0'«, t00=0x0040, t01=0x00b8}
0x64c6…64e8 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN18),=D'0'«, t00=0x0040, t01=0x00da}
0x64e8…650a Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN19),=D'0'«, t00=0x0040, t01=0x00fc}
0x650a…6526 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0040, t01=0x011e}
0x6526…655c Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,GTDUPF(CBIN21) TEXTCODE GOVERNS «, t00=0x0040, t01=0x013a}
0x655c…6584 Head {h00=0x0024, h01=0x0050, text=» UNPACKING OF TEXTINFO1 AND -2«, t00=0x0040, t01=0x0170}
0x6584…65a2 Head {h00=0x001a, h01=0x0050, text=» MOVE GTTXTTKO,GSWBIN1«, t00=0x0041, t01=0x0008}
0x65a2…65e0 Head {h00=0x003a, h01=0x0050, text=» IB GSWBIN1,TRU010,TRU020,TRU030,TRU040,TRU050,TRU060 «, t00=0x0041, t01=0x0026}
0x65e0…6606 Head {h00=0x0022, h01=0x0050, text=»TRU010 B TRU070 NO EXTRA INFO «, t00=0x0041, t01=0x0064}
0x6606…661c Head {h00=0x0012, h01=0x0050, text=»TRU020 NR-1 «, t00=0x0041, t01=0x008a}
0x661c…6638 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0041, t01=0x00a0}
0x6638…666c Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'8' «, t00=0x0041, t01=0x00bc}
0x666c…6690 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN13),GSWBCD7«, t00=0x0041, t01=0x00f0}
0x6690…66a2 Head {h00=0x000e, h01=0x0050, text=» B TRU070 «, t00=0x0041, t01=0x0114}
0x66a2…66bc Head {h00=0x0016, h01=0x0050, text=»TRU030 NR-1 NR-2«, t00=0x0041, t01=0x0126}
0x66bc…66d8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0041, t01=0x0140}
0x66d8…670c Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'8' «, t00=0x0041, t01=0x015c}
0x670c…6730 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN13),GSWBCD7«, t00=0x0041, t01=0x0190}
0x6730…6764 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'13'«, t00=0x0042, t01=0x0024}
0x6764…6788 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN14),GSWBCD7«, t00=0x0042, t01=0x0058}
0x6788…679a Head {h00=0x000e, h01=0x0050, text=» B TRU070 «, t00=0x0042, t01=0x007c}
0x679a…67b2 Head {h00=0x0014, h01=0x0050, text=»TRU040 DATO-1 «, t00=0x0042, t01=0x008e}
0x67b2…67ce Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0042, t01=0x00a6}
0x67ce…6802 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'8' «, t00=0x0042, t01=0x00c2}
0x6802…6826 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN18),GSWBCD7«, t00=0x0042, t01=0x00f6}
0x6826…6838 Head {h00=0x000e, h01=0x0050, text=» B TRU070 «, t00=0x0042, t01=0x011a}
0x6838…6856 Head {h00=0x001a, h01=0x0050, text=»TRU050 DATO-1 DATO-2«, t00=0x0042, t01=0x012c}
0x6856…6872 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0042, t01=0x014a}
0x6872…68a6 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'8' «, t00=0x0042, t01=0x0166}
0x68a6…68ca Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN18),GSWBCD7«, t00=0x0043, t01=0x000a}
0x68ca…68fe Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'13'«, t00=0x0043, t01=0x002e}
0x68fe…6922 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN19),GSWBCD7«, t00=0x0043, t01=0x0062}
0x6922…6934 Head {h00=0x000e, h01=0x0050, text=» B TRU070 «, t00=0x0043, t01=0x0086}
0x6934…6950 Head {h00=0x0018, h01=0x0050, text=»TRU060 NR-1 DATO-1«, t00=0x0043, t01=0x0098}
0x6950…696c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0043, t01=0x00b4}
0x696c…69a0 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'8' «, t00=0x0043, t01=0x00d0}
0x69a0…69c4 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN13),GSWBCD7«, t00=0x0043, t01=0x0104}
0x69c4…69f8 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'2',=W'5',CTRBUF,=W'13'«, t00=0x0043, t01=0x0128}
0x69f8…6a1c Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN18),GSWBCD7«, t00=0x0043, t01=0x015c}
0x6a1c…6a2a Head {h00=0x000a, h01=0x0050, text=»TRU070«, t00=0x0043, t01=0x0180}
0x6a2a…6a5e Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBIN1,=W'0',=W'2',CTRBUF,=W'34'«, t00=0x0043, t01=0x018e}
0x6a5e…6a96 Head {h00=0x0034, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GSWBIN1 NEXT TRANS POINTER «, t00=0x0044, t01=0x0032}
0x6a96…6abc Head {h00=0x0022, h01=0x0050, text=» CLEAR CTRFFLG RELEASE BUFFER «, t00=0x0044, t01=0x006a}
0x6abc…6ac8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0044, t01=0x0090}
0x6ac8…6ad6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0044, t01=0x009c}
0x6ad6…6ae4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x00aa}
0x6ae4…6af8 Head {h00=0x0010, h01=0x0050, text=»TRPACK PROC «, t00=0x0044, t01=0x00b8}
0x6af8…6b36 Head {h00=0x003a, h01=0x0050, text=»* IF GTSWFLAG IS SET, ONLY THE POINTER WILL BE MOVED, «, t00=0x0044, t01=0x00cc}
0x6b36…6b60 Head {h00=0x0026, h01=0x0050, text=»* TO AVOID OVERWRITING THE BUFFER «, t00=0x0044, t01=0x010a}
0x6b60…6b7c Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,TRP070«, t00=0x0044, t01=0x0134}
0x6b7c…6b98 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN0 «, t00=0x0044, t01=0x0150}
0x6b98…6bba Head {h00=0x001e, h01=0x0050, text=» CBG GTLEVNR,=D'18',TRP005«, t00=0x0044, t01=0x016c}
0x6bba…6bd8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GTLEVNR «, t00=0x0044, t01=0x018e}
0x6bd8…6be6 Head {h00=0x000a, h01=0x0050, text=»TRP005«, t00=0x0045, t01=0x001c}
0x6be6…6c1a Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'36',=W'2',GSWBIN2,=W'0'«, t00=0x0045, t01=0x002a}
0x6c1a…6c44 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN2) LEVNR «, t00=0x0045, t01=0x005e}
0x6c44…6c78 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'0',=W'5',GSWBCD7,=W'2' «, t00=0x0045, t01=0x0088}
0x6c78…6ca6 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN7) VALORDATO «, t00=0x0045, t01=0x00bc}
0x6ca6…6cc4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,GSWBCD7 «, t00=0x0045, t01=0x00ea}
0x6cc4…6cd8 Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0045, t01=0x0108}
0x6cd8…6d0c Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'5',=W'3',GSWBCD7,=W'4' «, t00=0x0045, t01=0x011c}
0x6d0c…6d38 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN2,GTDUPF(CBIN15) TEXTNR «, t00=0x0045, t01=0x0150}
0x6d38…6d6c Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'18',=W'2',GSWBIN2,=W'0'«, t00=0x0045, t01=0x017c}
0x6d6c…6d94 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN2,GTTXTTKO TEXTKODE «, t00=0x0046, t01=0x0020}
0x6d94…6dc8 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'20',=W'1',GSWBIN2,=W'1'«, t00=0x0046, t01=0x0048}
0x6dc8…6df6 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN4) UDB. BELOB«, t00=0x0046, t01=0x007c}
0x6df6…6e2a Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'21',=W'7',GSWBCD7,=W'0'«, t00=0x0046, t01=0x00aa}
0x6e2a…6e5a Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN6) REGNSKABS]R «, t00=0x0046, t01=0x00de}
0x6e5a…6e8e Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'28',=W'1',GSWBCD7,=W'6'«, t00=0x0046, t01=0x010e}
0x6e8e…6ebc Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN1) REGKONTONR«, t00=0x0046, t01=0x0142}
0x6ebc…6ef0 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'29',=W'5',GSWBCD7,=W'2'«, t00=0x0046, t01=0x0170}
0x6ef0…6f0e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTTXTTKO«, t00=0x0047, t01=0x0014}
0x6f0e…6f4c Head {h00=0x003a, h01=0x0050, text=» IB GSWBIN1,TRP010,TRP020,TRP030,TRP040,TRP050,TRP060 «, t00=0x0047, t01=0x0032}
0x6f4c…6f5e Head {h00=0x000e, h01=0x0050, text=» B TRP070 «, t00=0x0047, t01=0x0070}
0x6f5e…6f7c Head {h00=0x001a, h01=0x0050, text=»TRP010 NO EXTRA INFO«, t00=0x0047, t01=0x0082}
0x6f7c…6f8e Head {h00=0x000e, h01=0x0050, text=» B TRP070 «, t00=0x0047, t01=0x00a0}
0x6f8e…6fa4 Head {h00=0x0012, h01=0x0050, text=»TRP020 NR-1 «, t00=0x0047, t01=0x00b2}
0x6fa4…6fc8 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN13)«, t00=0x0047, t01=0x00c8}
0x6fc8…7002 Head {h00=0x0036, h01=0x0050, text=»TRP025 PERF XCOP,CTRBUF,=W'8',=W'5',GSWBCD7,=W'2' «, t00=0x0047, t01=0x00ec}
0x7002…7014 Head {h00=0x000e, h01=0x0050, text=» B TRP070 «, t00=0x0047, t01=0x0126}
0x7014…702e Head {h00=0x0016, h01=0x0050, text=»TRP030 NR-1 NR-2«, t00=0x0047, t01=0x0138}
0x702e…7052 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN13)«, t00=0x0047, t01=0x0152}
0x7052…7086 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'8',=W'5',GSWBCD7,=W'2' «, t00=0x0047, t01=0x0176}
0x7086…70aa Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN14)«, t00=0x0048, t01=0x001a}
0x70aa…70e4 Head {h00=0x0036, h01=0x0050, text=»TRP035 PERF XCOP,CTRBUF,=W'13',=W'5',GSWBCD7,=W'2'«, t00=0x0048, t01=0x003e}
0x70e4…70f6 Head {h00=0x000e, h01=0x0050, text=» B TRP070 «, t00=0x0048, t01=0x0078}
0x70f6…710e Head {h00=0x0014, h01=0x0050, text=»TRP040 DATO-1 «, t00=0x0048, t01=0x008a}
0x710e…7132 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN18)«, t00=0x0048, t01=0x00a2}
0x7132…7144 Head {h00=0x000e, h01=0x0050, text=» B TRP025 «, t00=0x0048, t01=0x00c6}
0x7144…7152 Head {h00=0x000a, h01=0x0050, text=»TRP050«, t00=0x0048, t01=0x00d8}
0x7152…7176 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN18)«, t00=0x0048, t01=0x00e6}
0x7176…71aa Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'8',=W'5',GSWBCD7,=W'2' «, t00=0x0048, t01=0x010a}
0x71aa…71ce Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN19)«, t00=0x0048, t01=0x013e}
0x71ce…71e0 Head {h00=0x000e, h01=0x0050, text=» B TRP035 «, t00=0x0048, t01=0x0162}
0x71e0…71ee Head {h00=0x000a, h01=0x0050, text=»TRP060«, t00=0x0048, t01=0x0174}
0x71ee…7212 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN13)«, t00=0x0048, t01=0x0182}
0x7212…7246 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'8',=W'5',GSWBCD7,=W'2' «, t00=0x0049, t01=0x0016}
0x7246…726a Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN18)«, t00=0x0049, t01=0x004a}
0x726a…727c Head {h00=0x000e, h01=0x0050, text=» B TRP035 «, t00=0x0049, t01=0x006e}
0x727c…728a Head {h00=0x000a, h01=0x0050, text=»TRP070«, t00=0x0049, t01=0x0080}
0x728a…72b6 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN2,GTDUPF(CBIN22) POINTER«, t00=0x0049, t01=0x008e}
0x72b6…72ea Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CTRBUF,=W'34',=W'2',GSWBIN2,=W'0'«, t00=0x0049, t01=0x00ba}
0x72ea…72f6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0049, t01=0x00ee}
0x72f6…7304 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0049, t01=0x00fa}
0x7304…730c Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0108}
0x730c…7314 Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0110}
0x7314…731c Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0118}
0x731c…732a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0120}
0x732a…733e Head {h00=0x0010, h01=0x0050, text=»SETLEV PROC «, t00=0x0049, t01=0x012e}
0x733e…7368 Head {h00=0x0026, h01=0x0050, text=»* INITIATES A LEV FOR PRINT OUT «, t00=0x0049, t01=0x0142}
0x7368…7386 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNVN,CBLANKS«, t00=0x0049, t01=0x016c}
0x7386…73be Head {h00=0x0034, h01=0x0050, text=» EDIT GSWSTR20,FSAMLEV LEV MISSING, INSERT IDENT«, t00=0x0049, t01=0x018a}
0x73be…73f6 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVNVN,=W'0',=W'10',GSWSTR20,=W'0' «, t00=0x004a, t01=0x0032}
0x73f6…7414 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVADR,CBLANKS«, t00=0x004a, t01=0x006a}
0x7414…7432 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVBY,CBLANKS «, t00=0x004a, t01=0x0088}
0x7432…7450 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVPDI,CBLANKS«, t00=0x004a, t01=0x00a6}
0x7450…746c Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVPNR,=D'0'«, t00=0x004a, t01=0x00c4}
0x746c…7478 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x00e0}
0x7478…7486 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004a, t01=0x00ec}
0x7486…748e Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x00fa}
0x748e…74a2 Head {h00=0x0010, h01=0x0050, text=»FSAMLEV FRMT«, t00=0x004a, t01=0x0102}
0x74a2…74c4 Head {h00=0x001e, h01=0x0050, text=» FMEL '9999999999',GTLEVNR«, t00=0x004a, t01=0x0116}
0x74c4…74d2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004a, t01=0x0138}
0x74d2…74e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0146}
0x74e0…74ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0154}
0x74ea…7500 Head {h00=0x0012, h01=0x0050, text=»* FORMATS «, t00=0x004a, t01=0x015e}
0x7500…750a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0174}
0x750a…751e Head {h00=0x0010, h01=0x0050, text=»FRMSPE FRMT «, t00=0x004a, t01=0x017e}
0x751e…752a (75, 0, 400) Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004b, t01=0x0004}
0x752a…7542 Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVTXT «, t00=0x004b, t01=0x0010}
0x7542…7556 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x004b, t01=0x0028}
0x7556…756c Head {h00=0x0012, h01=0x0050, text=» FCOPY SPINPUT«, t00=0x004b, t01=0x003c}
0x756c…7580 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x004b, t01=0x0052}
0x7580…75b2 Head {h00=0x002e, h01=0x0050, text=» FMEL 'ZZZVZZZVZZZVZZ9E,99-',GTDUPF(CBIN4)«, t00=0x004b, t01=0x0066}
0x75b2…75c0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004b, t01=0x0098}
0x75c0…75c8 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x00a6}
0x75c8…75de Head {h00=0x0012, h01=0x0050, text=»FBDTSLUT FRMT «, t00=0x004b, t01=0x00ae}
0x75de…75ea Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004b, t01=0x00c4}
0x75ea…7616 Head {h00=0x0028, h01=0x0050, text=» FBT CSWFLAG,FBDTSL10 GRAND TOTAL ? «, t00=0x004b, t01=0x00d0}
0x7616…7622 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004b, t01=0x00fc}
0x7622…764a Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZZZZZVZZ9,99-',GTBSUM2 «, t00=0x004b, t01=0x0108}
0x764a…7660 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x004b, t01=0x0130}
0x7660…7676 Head {h00=0x0012, h01=0x0050, text=» FCOPY ='SIDE'«, t00=0x004b, t01=0x0146}
0x7676…768e Head {h00=0x0014, h01=0x0050, text=» FCOPY ='TOTAL' «, t00=0x004b, t01=0x015c}
0x768e…76a2 Head {h00=0x0010, h01=0x0050, text=» FB FBDTSL99«, t00=0x004b, t01=0x0174}
0x76a2…76b2 Head {h00=0x000c, h01=0x0050, text=»FBDTSL10«, t00=0x004b, t01=0x0188}
0x76b2…76e4 Head {h00=0x002e, h01=0x0050, text=» FMEL 'ZZZZZZZVZZ9,99-',GTBSUM3 PAGETOTAL «, t00=0x004c, t01=0x0008}
0x76e4…76fa Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x004c, t01=0x003a}
0x76fa…7712 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='TOTAL' «, t00=0x004c, t01=0x0050}
0x7712…7728 Head {h00=0x0012, h01=0x0050, text=» FTEXT ' IALT'«, t00=0x004c, t01=0x0068}
0x7728…7744 Head {h00=0x0018, h01=0x0050, text=» FMEL 'ZZ9',GSWBCD4 «, t00=0x004c, t01=0x007e}
0x7744…775e Head {h00=0x0016, h01=0x0050, text=» FTEXT ' SIDE(R)' «, t00=0x004c, t01=0x009a}
0x775e…776e Head {h00=0x000c, h01=0x0050, text=»FBDTSL99«, t00=0x004c, t01=0x00b4}
0x776e…777a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004c, t01=0x00c4}
0x777a…7786 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004c, t01=0x00d0}
0x7786…7794 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004c, t01=0x00dc}
0x7794…779c Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x00ea}
0x779c…77a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00f2}
0x77a6…77ba Head {h00=0x0010, h01=0x0050, text=»FRMTNVN FRMT«, t00=0x004c, t01=0x00fc}
0x77ba…77ce Head {h00=0x0010, h01=0x0050, text=» FILLR '+',2«, t00=0x004c, t01=0x0110}
0x77ce…77e6 Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVNVN «, t00=0x004c, t01=0x0124}
0x77e6…77f2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004c, t01=0x013c}
0x77f2…780a Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVADR «, t00=0x004c, t01=0x0148}
0x780a…7816 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004c, t01=0x0160}
0x7816…782c Head {h00=0x0012, h01=0x0050, text=» FCOPY GTLEVBY«, t00=0x004c, t01=0x016c}
0x782c…7838 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004c, t01=0x0182}
0x7838…7856 Head {h00=0x001a, h01=0x0050, text=» FMEL 'ZZZZ',GTLEVPNR «, t00=0x004c, t01=0x018e}
0x7856…786a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004d, t01=0x001c}
0x786a…7882 Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVPDI «, t00=0x004d, t01=0x0030}
0x7882…7890 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004d, t01=0x0048}
0x7890…789a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0056}
0x789a…78a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0060}
0x78a4…78b8 Head {h00=0x0010, h01=0x0050, text=»FKRE10 FRMT «, t00=0x004d, t01=0x006a}
0x78b8…78c4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x007e}
0x78c4…78da Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',47 «, t00=0x004d, t01=0x008a}
0x78da…78fc Head {h00=0x001e, h01=0x0050, text=» FMEL 'ZZZ9999999',GTLEVNR«, t00=0x004d, t01=0x00a0}
0x78fc…7912 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',10 «, t00=0x004d, t01=0x00c2}
0x7912…7932 Head {h00=0x001c, h01=0x0050, text=» FMEL 'ZZZZZZZ',GTLEVGI «, t00=0x004d, t01=0x00d8}
0x7932…793e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x00f8}
0x793e…794a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x0104}
0x794a…7958 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004d, t01=0x0110}
0x7958…7962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x011e}
0x7962…796c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0128}
0x796c…7980 Head {h00=0x0010, h01=0x0050, text=»FKRE20 FRMT «, t00=0x004d, t01=0x0132}
0x7980…798c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x0146}
0x798c…7998 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x0152}
0x7998…79a4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x015e}
0x79a4…79b0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x016a}
0x79b0…79d0 Head {h00=0x001c, h01=0x0050, text=» FCOPY ='SPECIFIKATION '«, t00=0x004d, t01=0x0176}
0x79d0…79f2 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'AF FREMSENDT BEL' «, t00=0x004e, t01=0x0008}
0x79f2…7a08 Head {h00=0x0012, h01=0x0050, text=» FILLR X'5C',1«, t00=0x004e, t01=0x002a}
0x7a08…7a20 Head {h00=0x0014, h01=0x0050, text=» FTEXT 'B PR. ' «, t00=0x004e, t01=0x0040}
0x7a20…7a3c Head {h00=0x0018, h01=0x0050, text=» FBT CBDTGIR,FKREL21«, t00=0x004e, t01=0x0058}
0x7a3c…7a54 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'CHECK'«, t00=0x004e, t01=0x0074}
0x7a54…7a68 Head {h00=0x0010, h01=0x0050, text=» FB FKREL22 «, t00=0x004e, t01=0x008c}
0x7a68…7a78 Head {h00=0x000c, h01=0x0050, text=»FKREL21 «, t00=0x004e, t01=0x00a0}
0x7a78…7a90 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'GIRO '«, t00=0x004e, t01=0x00b0}
0x7a90…7aa0 Head {h00=0x000c, h01=0x0050, text=»FKREL22 «, t00=0x004e, t01=0x00c8}
0x7aa0…7ab4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004e, t01=0x00d8}
0x7ab4…7acc Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'DATO' «, t00=0x004e, t01=0x00ec}
0x7acc…7ae0 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004e, t01=0x0104}
0x7ae0…7b04 Head {h00=0x0020, h01=0x0050, text=» FMEL '99E-99E-99',GTPRTDAT «, t00=0x004e, t01=0x0118}
0x7b04…7b18 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',5«, t00=0x004e, t01=0x013c}
0x7b18…7b30 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'SIDE' «, t00=0x004e, t01=0x0150}
0x7b30…7b4c Head {h00=0x0018, h01=0x0050, text=» FMEL 'ZZZZ',GSWBCD4«, t00=0x004e, t01=0x0168}
0x7b4c…7b58 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x0184}
0x7b58…7b64 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x0190}
0x7b64…7b72 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004f, t01=0x000c}
0x7b72…7b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x001a}
0x7b7c…7b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0024}
0x7b86…7b92 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x004f, t01=0x002e}
0x7b92…7b96 Head {h00=0x4004, h01=0x0000}
0x7b96…7b9a 00 4f 00 3a ┆ O :┆
0x7b9a…7ba2 (80, 1, 8) 20 04 00 00 00 50 00 04 ┆ P ┆
0x7ba2…7bf2 (81, 0, 400) 00 0c 01 86 00 0c 00 08 00 03 02 06 02 97 02 9c 00 0d 00 08 00 0c 00 08 00 03 02 06 02 98 04 c1 00 0d 00 18 00 0c 00 08 00 03 02 06 02 99 04 c5 00 0d 00 28 00 0c 00 08 00 03 02 06 02 9a 04 c9 00 0d 00 38 00 0c 00 08 00 03 02 06 02 9b 02 9c ┆ ( 8 ┆
0x7bf2…7c42 00 0d 00 48 00 0c 00 08 00 03 07 06 02 9f 00 1a 00 0d 00 58 00 0c 00 08 00 03 02 06 02 a1 04 d1 00 0d 00 68 00 0c 00 08 00 03 07 06 02 a3 00 14 00 0d 00 78 00 0c 00 08 00 03 02 06 02 a5 04 d1 00 0d 00 88 00 0c 00 08 00 03 07 06 02 a7 00 18 ┆ H X h x ┆
0x7c42…7c92 00 0d 00 98 00 0c 00 08 00 03 02 06 02 a9 04 d1 00 0d 00 a8 00 0c 00 08 00 03 05 06 02 b0 00 6c 00 0d 00 b8 00 0c 00 08 00 03 08 06 02 b1 00 2d 00 0d 00 c8 00 0c 00 08 00 03 07 06 02 b3 00 60 00 0d 00 d8 00 0c 00 08 00 03 02 06 02 b5 04 d1 ┆ l - ` ┆
0x7c92…7ce2 00 0d 00 e8 00 0c 00 08 00 03 07 06 02 b7 00 3e 00 0d 00 f8 00 0c 00 08 00 03 02 06 02 b9 04 d1 00 0d 01 08 00 0c 00 08 00 03 06 06 02 bb 00 00 00 0d 01 18 00 0c 00 08 00 03 02 06 02 be 04 d1 00 0d 01 28 00 0e 00 09 00 04 14 07 02 c1 30 01 ┆ > ( 0 ┆
0x7ce2…7d32 00 41 00 0d 01 38 00 4a 00 46 00 22 00 44 02 80 52 52 52 52 52 52 52 52 32 a0 11 52 52 52 52 52 52 52 52 52 52 52 52 52 52 52 52 52 5f 60 80 52 3f 52 80 52 3f 52 80 52 3f 52 00 86 73 41 90 31 58 46 80 52 3f 52 80 52 3f 52 80 52 12 3f 52 01 ┆ A 8 J F " D RRRRRRRR2 RRRRRRRRRRRRRRRRR_` R?R R?R R?R sA 1XF R?R R?R R ?R ┆
0x7d32…7d82 (82, 0, 400) 00 0d 01 4a 00 0e 00 09 00 04 14 07 02 c7 30 01 00 52 00 0e 00 08 00 0c 00 08 00 03 07 06 02 cb 00 34 00 0e 00 1a 00 0c 00 08 00 03 07 06 02 d4 00 34 00 0e 00 2a 00 0c 00 08 00 03 07 06 02 dd 00 34 00 0e 00 3a 00 0e 00 09 00 04 14 07 02 e7 ┆ J 0 R 4 4 * 4 : ┆
0x7d82…7dd2 30 01 b1 52 00 0e 00 4a 00 0e 00 09 00 04 14 07 02 ea 30 01 b5 52 00 0e 00 5c 00 0e 00 09 00 04 14 07 02 ee 30 01 d1 52 00 0e 00 6e 00 0e 00 09 00 04 14 07 02 f1 30 01 d1 52 00 0e 00 80 00 0c 00 08 00 03 05 06 02 fe 00 6c 00 0e 00 92 00 0c ┆0 R J 0 R 0 R n 0 R l ┆
0x7dd2…7e22 00 08 00 03 08 06 02 ff 00 4f 00 0e 00 a2 00 4a 00 46 00 22 00 44 02 c0 8a 4c 48 2d 2a 01 88 4c 57 12 80 52 13 11 88 c9 02 8a c9 80 52 13 12 88 c9 02 8a c9 80 52 12 11 88 c9 02 8a c9 03 88 4c 15 88 4c 22 09 8a 4c 09 da 4c 00 89 fb 02 89 da ┆ O J F " D LH-* LW R R R L L" L L ┆
0x7e22…7e72 02 89 8a 41 90 31 58 46 00 0e 00 b2 00 0c 00 08 00 03 07 06 03 01 00 60 00 0e 01 00 00 0e 00 09 00 04 14 07 03 04 30 01 d1 2d 00 0e 01 10 00 0c 00 08 00 03 02 06 03 06 04 d1 00 0e 01 22 00 0c 00 08 00 03 05 06 03 13 00 6c 00 0e 01 32 00 0c ┆ A 1XF ` 0 - " l 2 ┆
0x7e72…7ec2 00 08 00 03 08 06 03 14 00 3c 00 0e 01 42 00 0c 00 08 00 03 07 06 03 16 00 60 00 0e 01 52 00 0c 00 08 00 03 07 06 03 3e 00 58 00 0e 01 62 00 0e 00 09 00 04 15 07 03 40 30 01 b2 2d 00 0e 01 72 00 4a 00 46 00 22 00 44 03 00 80 52 09 da 4c 3f ┆ < B ` R > X b @0 - r J F " D R L?┆
0x7ec2…7f12 (83, 0, 400) 52 49 ab 25 43 89 50 c3 40 ad 41 90 31 58 46 80 52 36 91 03 b4 b4 02 5f 0f 00 95 13 41 ab 49 ad 05 00 a6 74 57 03 00 a6 75 04 a6 11 2a a6 11 91 49 ad 0d 2c a6 74 8a 80 52 18 00 0e 01 84 00 0c 00 08 00 03 07 06 03 4b 00 58 00 0f 00 42 00 0e ┆RI %C P @ A 1XF R6 _ A I tW u * I , t R K X B ┆
0x7f12…7f62 00 09 00 04 15 07 03 4d 30 01 b5 da 00 0f 00 52 00 0e 00 0a 00 04 14 08 03 53 30 02 b0 12 00 0f 00 64 00 0c 00 08 00 03 05 06 03 56 00 26 00 0f 00 76 00 0e 00 09 00 04 14 07 03 71 30 01 00 12 00 0f 00 86 00 0e 00 09 00 04 14 07 03 77 30 01 ┆ M0 R S0 d V & v q0 w0 ┆
0x7f62…7fb2 00 12 00 0f 00 98 00 4a 00 46 00 22 00 44 03 40 4c 11 5c 15 57 0b 2c a6 75 7d 80 52 20 4c 11 5c 22 11 aa 4c 26 30 52 a8 54 15 06 a7 a8 52 10 50 14 00 a0 a7 04 a6 a0 00 a0 a8 02 a6 a0 5f 3d 21 89 4c 54 57 04 21 89 4c 21 00 a0 89 00 a1 2b a0 ┆ J F " D @L W , u} R L " L&0R T R P _=! LTW ! L! + ┆
0x7fb2…8002 00 0f 00 aa 00 0e 00 0a 00 04 10 08 03 8a 20 02 ff ff 00 0f 00 f8 00 0e 00 09 00 04 14 07 03 9c 00 01 4b ff 00 0f 01 0a 00 0e 00 09 00 04 14 07 03 a3 00 01 44 ff 00 0f 01 1c 00 0e 00 09 00 04 14 07 03 be 00 01 53 ff 00 0f 01 2e 00 0c 00 08 ┆ K D S . ┆
0x8002…8052 00 03 07 06 03 c0 00 7c 00 0f 01 40 00 4a 00 46 00 22 00 44 03 80 00 a1 9f a1 20 a0 a1 09 09 a1 4c 20 a0 a1 02 5f 62 00 a1 2b a0 18 8a ef a1 6b 01 ec 4c 20 d0 11 03 01 ec 4c 40 d8 00 e3 44 20 9f 16 10 11 00 dd dc 00 84 ef 16 04 84 dd 50 05 ┆ | @ J F " D L _b + k L L@ D P ┆
0x8052…80a2 (84, 0, 398) 41 d8 01 e3 4c 80 00 0f 01 50 00 0c 00 08 00 03 02 06 03 c6 04 d1 00 10 00 0e 00 0c 00 08 00 03 05 06 03 f0 00 6c 00 10 00 1e 00 0c 00 08 00 03 08 06 03 f1 00 47 00 10 00 2e 00 0c 00 08 00 03 07 06 03 f3 00 60 00 10 00 3e 00 4a 00 46 00 22 ┆A L P l G . ` > J F "┆
0x80a2…80f2 00 44 03 c0 52 41 8b 40 83 3f 52 00 95 11 40 ab 40 d8 00 e3 44 57 fe 48 1e 07 48 89 04 41 ad 5f cd 57 f2 43 84 54 c6 43 d2 54 c2 43 89 50 be 40 ad 41 90 31 58 46 80 52 36 91 03 af af 02 5f 0f 41 ab 40 d4 00 10 00 4e 00 0c 00 08 00 03 07 06 ┆ D RA @ ?R @ @ DW H H A _ W C T C T C P @ A 1XF R6 _ A @ N ┆
0x80f2…8142 04 1a 00 58 00 10 00 9c 00 0e 00 09 00 04 15 07 04 1c 30 01 b2 40 00 10 00 ac 00 0c 00 08 00 03 07 06 04 27 00 58 00 10 00 be 00 0e 00 09 00 04 15 07 04 29 30 01 b5 40 00 10 00 ce 00 0e 00 0a 00 04 14 08 04 2f 30 02 b0 12 00 10 00 e0 00 4a ┆ X 0 @ ' X )0 @ /0 J┆
0x8142…8192 00 46 00 22 00 44 04 00 49 ad 05 00 a6 74 57 03 00 a6 75 04 a6 11 2a a6 11 83 49 ad 0d 2c a6 74 7c 80 52 18 4c 11 5c 15 57 0b 2c a6 75 6f 80 52 20 4c 11 5c 22 11 aa 4c 26 24 a7 8a 60 06 a7 a8 52 10 50 0e 00 a0 a7 04 00 10 00 f2 00 0e 00 09 ┆ F " D I tW u * I , t| R L W , uo R L " L&$ ` R P ┆
0x8192…81e0 00 04 14 07 04 4c 00 01 4b 00 00 10 01 40 00 0e 00 09 00 04 14 07 04 53 00 01 44 00 00 10 01 52 00 0e 00 09 00 04 14 07 04 58 00 01 53 00 00 10 01 64 00 0c 00 08 00 03 07 06 04 69 00 66 00 10 01 76 00 0c 00 08 00 03 07 06 04 6d 00 32 ┆ L K @ S D R X S d i f v m 2┆