|
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: 33134 (0x816e)
Notes: pts_type(SC)
Names: »REMTR.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/REMTR.SC«
IDENT REMTR 820806 NJ DDUM KMD08 PDIV ENTRY TRREAD ENTRY TRRMV ENTRY TRINIT ENTRY TRINS ENTRY TRGET ENTRY TRGETF ENTRY BDTPRT ENTRY BDTSCA ENTRY BDTDEL ENTRY TRUNP EXT YYMMDD EXT RAREAD EXT RAWRIT EXT SPERR 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 * OR NOTE THE DIFFERENCE WHILE REORGANISING * * 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 CBNE GTTRKEY,CBIN0,BDTS09 ANYTHING TO DECLARE? CBE GTREGF(CBIN16),=D'0',BDTS10 SKYLDIGT BELOB MOVE GTREGF(CBIN16),=D'0' MOVE GTREGF(CBIN15),=D'0' KREDITBELOB MOVE GTREGF(CBIN14),=D'0' DEBETBELOB PERF VARWRT REWRITE WITH ZERO AMOUNTS BNOK BDTS95 B BDTS10 BDTS09 TBT TTREST,BDTS111 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) PERF YYMMDD,GSWBCD6 MOVE GTREGF(CBIN13),GSWBCD7 CBG GTREGF(CBIN13),GTPRTDAT,BDTS10 NOT TO BE PAID YET BDTS111 * 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 TBT TTREST,BDTS115 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 TBF TTREST,BDTS1160 CBE GTREGF(CBIN16),GTBSUM1,BDTS10 EDWRT KJTAPE,REOFMT1 MOVE GTREGF(CBIN14),GTBSUM1 MOVE GTREGF(CBIN15),=D'0' MOVE GTREGF(CBIN16),GTBSUM1 PERF VARWRT BNOK BDTS95 B BDTS10 BDTS1160 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 PERF BDTBOG BNOK BDTS95 MOVE GTKFVAL,GTLEVNR SAVE OLD GTLEVNR MOVE GTLEVNR,GTLEVPNR CLEAR GTSWFLAG CBNE GTLEVBFO,=D'5',BDTS34 CBE GTLEVALT,=D'0',BDTS34 MOVE GTDUPF(CBIN2),GTLEVALT TO BE PAID TO SOMEONE ELSE MOVE GTLEVNR,GTLEVALT GET ALT.LEVS BFO PERF LEVRD BNOK BDTS95 MOVE GTLEVNR,GTLEVBFO FOR CORRECT INSERTION OF TRANS 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 CBE GTLEVNR,=D'9999999999',BDTS80 PERF CLEAR8 TBF GTTTPFLG,BDTS96 EDWRT KJTAPE,FLASTLEV BDTS96 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 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 CLEAR GTCHKPR 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 PERF BCHKPR,CBIN4 BDTP43 MOVE GTLEVNR,GTDUPF(CBIN2) PERF LEVRD BOK BDTP44 PERF SETLEV BDTP44 MOVE GSWBCD5,=D'1' BDTP45 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 CBE GTLEVNR,=D'9999999999',BDTP90 TBF GTTTPFLG,BDTP96 EDWRT KJTAPE,FLASTLEV BDTP96 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) PERF WAITF,CLOCK 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'10' LEVNR CBE GTDUPF(CBIN22),=D'0',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 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 * BDTB090 CLEAR CLOCK CMP CBIN0,CBIN0 OK B BDTB099 BDTB085 BDTB095 CLEAR CLOCK 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 SYSTEM LEV 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) * 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 TRPACK PERF RAWRIT,DK11,=D'11',GTREMBUF,PT BNOK TRPUT95 CMP CBIN0,CBIN0 B TRPUT99 TRPUT95 CMP CBIN0,CBIN1 TRPUT99 RET PEND EJECT TRREAD PROC PT * * THE PROCEDURE READS THE TRANSRECORD * WITH THE SPECIFIED RECORDNBR AND UNPACKS IT * MOVE GSWBIN1,=W'39' MOVE GTREMBUF,=' ' PERF RAREAD,DK11,=D'11',GTREMBUF,GSWBIN1,PT BNOK TRREA95 PERF TRUNP CMP CBIN0,CBIN0 B TRREA99 TRREA95 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 CBG GTREGF(CBIN11),=D'50',TRGET80 MOVE GTWBCD2,=D'11' MOVE SPBINW4,CBIN21 MOVE GTWBCD1,=D'50' MOVE GSWSTR9,='DISCFEJL ' 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',GTREMBUF,=W'36' MOVE GTDUPF(CBIN20),GSWBIN1 MOVE GSWBCD7,=D'1' XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN0 MOVE GTDUPF(CBIN2),GSWBCD7 LEVNR MOVE GSWBCD7,=D'1' XCOPY GSWBCD7,CBIN4,CBIN3,GTREMBUF,CBIN5 MOVE GTDUPF(CBIN7),GSWBCD7 VALORDATO XCOPY GSWBIN1,CBIN0,CBIN2,GTREMBUF,CBIN18 MOVE GTDUPF(CBIN15),GSWBIN1 TEXTNR MOVE GSWBIN1,CBIN0 XCOPY GSWBIN1,CBIN1,CBIN1,GTREMBUF,CBIN20 MOVE GTDUPF(CBIN21),GSWBIN1 XCOPY GSWBCD7,CBIN0,CBIN7,GTREMBUF,CBIN21 MOVE GTDUPF(CBIN4),GSWBCD7 UDB. BELOB MOVE GSWBCD7,=D'1' PERF XCOP,GSWBCD7,=W'6',=W'1',GTREMBUF,=W'28' MOVE GTDUPF(CBIN6),GSWBCD7 REGNSKABS]R MOVE GSWBCD7,=D'1' REGKONTONR PERF XCOP,GSWBCD7,=W'2',=W'5',GTREMBUF,=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' XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN8 MOVE GTDUPF(CBIN13),GSWBCD7 B TRU070 TRU030 NR-1 NR-2 MOVE GSWBCD7,=D'1' XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN8 MOVE GTDUPF(CBIN13),GSWBCD7 XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN13 MOVE GTDUPF(CBIN14),GSWBCD7 B TRU070 TRU040 DATO-1 MOVE GSWBCD7,=D'1' XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN8 MOVE GTDUPF(CBIN18),GSWBCD7 B TRU070 TRU050 DATO-1 DATO-2 MOVE GSWBCD7,=D'1' XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN8 MOVE GTDUPF(CBIN18),GSWBCD7 XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN13 MOVE GTDUPF(CBIN19),GSWBCD7 B TRU070 TRU060 NR-1 DATO-1 MOVE GSWBCD7,=D'1' XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN8 MOVE GTDUPF(CBIN13),GSWBCD7 XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN13 MOVE GTDUPF(CBIN18),GSWBCD7 TRU070 PERF XCOP,GSWBIN1,=W'0',=W'2',GTREMBUF,=W'34' MOVE GTDUPF(CBIN22),GSWBIN1 NEXT TRANS POINTER 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,GTREMBUF,=W'36',=W'2',GSWBIN2,=W'0' MOVE GSWBCD7,GTDUPF(CBIN2) LEVNR XCOPY GTREMBUF,CBIN0,CBIN5,GSWBCD7,CBIN2 MOVE GSWBCD6,GTDUPF(CBIN7) PERF YYMMDD,GSWBCD6 XCOPY GTREMBUF,CBIN5,CBIN3,GSWBCD7,CBIN4 MOVE GSWBIN2,GTDUPF(CBIN15) TEXTNR XCOPY GTREMBUF,CBIN18,CBIN2,GSWBIN2,CBIN0 MOVE GSWBIN2,GTTXTTKO TEXTKODE XCOPY GTREMBUF,CBIN20,CBIN1,GSWBIN2,CBIN1 MOVE GSWBCD7,GTDUPF(CBIN4) UDB. BELOB XCOPY GTREMBUF,CBIN21,CBIN7,GSWBCD7,CBIN0 MOVE GSWBCD7,GTDUPF(CBIN6) REGNSKABS]R PERF XCOP,GTREMBUF,=W'28',=W'1',GSWBCD7,=W'6' MOVE GSWBCD7,GTDUPF(CBIN1) REGKONTONR PERF XCOP,GTREMBUF,=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 XCOPY GTREMBUF,CBIN8,CBIN5,GSWBCD7,CBIN2 B TRP070 TRP030 NR-1 NR-2 MOVE GSWBCD7,GTDUPF(CBIN13) XCOPY GTREMBUF,CBIN8,CBIN5,GSWBCD7,CBIN2 MOVE GSWBCD7,GTDUPF(CBIN14) TRP035 XCOPY GTREMBUF,CBIN13,CBIN5,GSWBCD7,CBIN2 B TRP070 TRP040 DATO-1 MOVE GSWBCD7,GTDUPF(CBIN18) B TRP025 TRP050 MOVE GSWBCD7,GTDUPF(CBIN18) XCOPY GTREMBUF,CBIN8,CBIN5,GSWBCD7,CBIN2 MOVE GSWBCD7,GTDUPF(CBIN19) B TRP035 TRP060 MOVE GSWBCD7,GTDUPF(CBIN13) XCOPY GTREMBUF,CBIN8,CBIN5,GSWBCD7,CBIN2 MOVE GSWBCD7,GTDUPF(CBIN18) B TRP035 TRP070 MOVE GSWBIN2,GTDUPF(CBIN22) POINTER PERF XCOP,GTREMBUF,=W'34',=W'2',GSWBIN2,=W'0' RET PEND EJECT SETLEV PROC * INITIATES A LEV FOR PRINT OUT MOVE GTLEVNVN,=' ' EDIT GSWSTR20,FSAMLEV LEV MISSING, INSERT IDENT XCOPY GTLEVNVN,CBIN9,CBIN10,GSWSTR20,CBIN0 MOVE GTLEVADR,=' ' MOVE GTLEVBY,=' ' MOVE GTLEVPDI,=' ' 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 'ZZZZZZZVZZ9,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 'ZZZZ',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 '99V99V99',GTPRTDAT FILLR ' ',5 FCOPY =C'SIDE' FMEL 'ZZZZ',GSWBCD4 FNL FNL FMEND * * REOFMT1 FRMT FILLR ' ',2 FTEXT 'DIFF. P] ' FMEL 'ZZZ9999999',GTLEVNR FTEXT ' OPR.' FMEL 'ZZZZZZZVZZ9,99-',GTREGF(CBIN16) FMEND * * FLASTLEV FRMT FILLR ' ',2 FTEXT 'LOGISK FEJL P] LEVNR.' FMEL 'ZZZ9999999',GTLEVNR FEOR FILLR ' ',2 FTEXT 'REORG. P]KR[VET.' FEOR FMEND END
0x0000…001e (0, 0, 400) Head {h00=0x001a, h01=0x0050, text=» IDENT REMTR 820806 NJ«, t00=0x0000, t01=0x0004}
0x001e…0032 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0022}
0x0032…0040 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0036}
0x0040…0056 Head {h00=0x0012, h01=0x0050, text=» ENTRY TRREAD «, t00=0x0000, t01=0x0044}
0x0056…006a Head {h00=0x0010, h01=0x0050, text=» ENTRY TRRMV«, t00=0x0000, t01=0x005a}
0x006a…0080 Head {h00=0x0012, h01=0x0050, text=» ENTRY TRINIT «, t00=0x0000, t01=0x006e}
0x0080…0094 Head {h00=0x0010, h01=0x0050, text=» ENTRY TRINS«, t00=0x0000, t01=0x0084}
0x0094…00a8 Head {h00=0x0010, h01=0x0050, text=» ENTRY TRGET«, t00=0x0000, t01=0x0098}
0x00a8…00be Head {h00=0x0012, h01=0x0050, text=» ENTRY TRGETF «, t00=0x0000, t01=0x00ac}
0x00be…00d4 Head {h00=0x0012, h01=0x0050, text=» ENTRY BDTPRT «, t00=0x0000, t01=0x00c2}
0x00d4…00ea Head {h00=0x0012, h01=0x0050, text=» ENTRY BDTSCA «, t00=0x0000, t01=0x00d8}
0x00ea…0100 Head {h00=0x0012, h01=0x0050, text=» ENTRY BDTDEL «, t00=0x0000, t01=0x00ee}
0x0100…0114 Head {h00=0x0010, h01=0x0050, text=» ENTRY TRUNP«, t00=0x0000, t01=0x0104}
0x0114…0128 Head {h00=0x0010, h01=0x0050, text=» EXT YYMMDD «, t00=0x0000, t01=0x0118}
0x0128…013c Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x012c}
0x013c…0150 Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0000, t01=0x0140}
0x0150…0162 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x0154}
0x0162…0174 Head {h00=0x000e, h01=0x0050, text=» EXT XCOP «, t00=0x0000, t01=0x0166}
0x0174…0186 Head {h00=0x000e, h01=0x0050, text=» EXT VARRD«, t00=0x0000, t01=0x0178}
0x0186…019a Head {h00=0x0010, h01=0x0050, text=» EXT VARWRT «, t00=0x0000, t01=0x018a}
0x019a…01ae Head {h00=0x0010, h01=0x0050, text=» EXT WCHUPD «, t00=0x0001, t01=0x000e}
0x01ae…01c2 Head {h00=0x0010, h01=0x0050, text=» EXT IDXGET «, t00=0x0001, t01=0x0022}
0x01c2…01d4 Head {h00=0x000e, h01=0x0050, text=» EXT LEVRD«, t00=0x0001, t01=0x0036}
0x01d4…01e8 Head {h00=0x0010, h01=0x0050, text=» EXT GETNXT «, t00=0x0001, t01=0x0048}
0x01e8…01fc Head {h00=0x0010, h01=0x0050, text=» EXT KFREAD «, t00=0x0001, t01=0x005c}
0x01fc…0210 Head {h00=0x0010, h01=0x0050, text=» EXT KFWRIT «, t00=0x0001, t01=0x0070}
0x0210…0224 Head {h00=0x0010, h01=0x0050, text=» EXT NEWLIN «, t00=0x0001, t01=0x0084}
0x0224…0238 Head {h00=0x0010, h01=0x0050, text=» EXT GENWRF «, t00=0x0001, t01=0x0098}
0x0238…024c Head {h00=0x0010, h01=0x0050, text=» EXT BSAMPR «, t00=0x0001, t01=0x00ac}
0x024c…0260 Head {h00=0x0010, h01=0x0050, text=» EXT BCHKPR «, t00=0x0001, t01=0x00c0}
0x0260…0274 Head {h00=0x0010, h01=0x0050, text=» EXT BGIRPR «, t00=0x0001, t01=0x00d4}
0x0274…0288 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x00e8}
0x0288…029c Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0001, t01=0x00fc}
0x029c…02b0 Head {h00=0x0010, h01=0x0050, text=» EXT PRTADJ «, t00=0x0001, t01=0x0110}
0x02b0…02c4 Head {h00=0x0010, h01=0x0050, text=» EXT KBTEST «, t00=0x0001, t01=0x0124}
0x02c4…02d6 Head {h00=0x000e, h01=0x0050, text=» EXT TXTRD«, t00=0x0001, t01=0x0138}
0x02d6…02ea Head {h00=0x0010, h01=0x0050, text=» EXT STREDT «, t00=0x0001, t01=0x014a}
0x02ea…02fc Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0001, t01=0x015e}
0x02fc…030a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0170}
0x030a…031e Head {h00=0x0010, h01=0x0050, text=»BDTSCA PROC «, t00=0x0001, t01=0x017e}
0x031e…0352 (2, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE SCANS LEV - VAR.INFO - TRANS«, t00=0x0002, t01=0x0004}
0x0352…037c Head {h00=0x0026, h01=0x0050, text=»* IN ORDER TO BUILD UP A PRINTLEV «, t00=0x0002, t01=0x0038}
0x037c…0398 Head {h00=0x0018, h01=0x0050, text=»* OR WRITE ADVISLIST«, t00=0x0002, t01=0x0062}
0x0398…03cc Head {h00=0x0030, h01=0x0050, text=»* OR NOTE THE DIFFERENCE WHILE REORGANISING «, t00=0x0002, t01=0x007e}
0x03cc…03d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b2}
0x03d6…03f0 Head {h00=0x0016, h01=0x0050, text=»* LEV 01 : BFO 1,6«, t00=0x0002, t01=0x00bc}
0x03f0…040a Head {h00=0x0016, h01=0x0050, text=»* LEV 02 : BFO 2,7«, t00=0x0002, t01=0x00d6}
0x040a…0424 Head {h00=0x0016, h01=0x0050, text=»* LEV 03 : BFO 3,8«, t00=0x0002, t01=0x00f0}
0x0424…043e Head {h00=0x0016, h01=0x0050, text=»* LEV 04 : BFO 4,9«, t00=0x0002, t01=0x010a}
0x043e…045a Head {h00=0x0018, h01=0x0050, text=»* LEV 10 : FREE LIST«, t00=0x0002, t01=0x0124}
0x045a…0482 Head {h00=0x0024, h01=0x0050, text=»* LEV 11 : SPECIFICATIONS LEV 01«, t00=0x0002, t01=0x0140}
0x0482…04aa Head {h00=0x0024, h01=0x0050, text=»* LEV 12 : SPECIFICATIONS LEV 02«, t00=0x0002, t01=0x0168}
0x04aa…04d2 Head {h00=0x0024, h01=0x0050, text=»* LEV 13 : SPECIFICATIONS LEV 03«, t00=0x0002, t01=0x0190}
0x04d2…04fa Head {h00=0x0024, h01=0x0050, text=»* LEV 14 : SPECIFICATIONS LEV 04«, t00=0x0003, t01=0x0028}
0x04fa…0534 Head {h00=0x0036, h01=0x0050, text=»* TRANSACTIONS ARE MOVED TO LEV 11/12/13/14 IF ANY«, t00=0x0003, t01=0x0050}
0x0534…0552 Head {h00=0x001a, h01=0x0050, text=»* CREDIT AMOUNT OCCURS«, t00=0x0003, t01=0x008a}
0x0552…0572 Head {h00=0x001c, h01=0x0050, text=»* P = 1 : BUILD PRINTLEV«, t00=0x0003, t01=0x00a8}
0x0572…0594 Head {h00=0x001e, h01=0x0050, text=»* P = 2 : ADVISLISTE ONLY «, t00=0x0003, t01=0x00c8}
0x0594…059e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ea}
0x059e…05b2 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0003, t01=0x00f4}
0x05b2…05cc Head {h00=0x0016, h01=0x0050, text=» TBF CADVIS,BDTS05«, t00=0x0003, t01=0x0108}
0x05cc…05e6 Head {h00=0x0016, h01=0x0050, text=» PERF BSAMPR,CBIN0«, t00=0x0003, t01=0x0122}
0x05e6…05f4 Head {h00=0x000a, h01=0x0050, text=»BDTS05«, t00=0x0003, t01=0x013c}
0x05f4…0620 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0003, t01=0x014a}
0x0620…063a Head {h00=0x0016, h01=0x0050, text=» BOK BDTS08 FOUND «, t00=0x0003, t01=0x0176}
0x063a…0648 Head {h00=0x000a, h01=0x0050, text=»BDTS10«, t00=0x0003, t01=0x0190}
0x0648…0662 Head {h00=0x0016, h01=0x0050, text=» PERF KBTEST MAK ?«, t00=0x0004, t01=0x000e}
0x0662…0676 Head {h00=0x0010, h01=0x0050, text=» BOK BDTS90 «, t00=0x0004, t01=0x0028}
0x0676…069e Head {h00=0x0024, h01=0x0050, text=» PERF GETNXT READ NEXT VALID LEV«, t00=0x0004, t01=0x003c}
0x069e…06b2 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS80«, t00=0x0004, t01=0x0064}
0x06b2…06c0 Head {h00=0x000a, h01=0x0050, text=»BDTS08«, t00=0x0004, t01=0x0078}
0x06c0…06de Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GTLEVNR «, t00=0x0004, t01=0x0086}
0x06de…0700 Head {h00=0x001e, h01=0x0050, text=» PERF SPLIN8,CBIN10,CBIN3 «, t00=0x0004, t01=0x00a4}
0x0700…0714 Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x0004, t01=0x00c6}
0x0714…0728 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0004, t01=0x00da}
0x0728…0760 Head {h00=0x0034, h01=0x0050, text=» CBNE GTTRKEY,CBIN0,BDTS09 ANYTHING TO DECLARE? «, t00=0x0004, t01=0x00ee}
0x0760…0798 Head {h00=0x0034, h01=0x0050, text=» CBE GTREGF(CBIN16),=D'0',BDTS10 SKYLDIGT BELOB «, t00=0x0004, t01=0x0126}
0x0798…07ba Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN16),=D'0'«, t00=0x0004, t01=0x015e}
0x07ba…07e8 Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN15),=D'0' KREDITBELOB«, t00=0x0004, t01=0x0180}
0x07e8…0816 Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN14),=D'0' DEBETBELOB «, t00=0x0005, t01=0x001e}
0x0816…0844 Head {h00=0x002a, h01=0x0050, text=» PERF VARWRT REWRITE WITH ZERO AMOUNTS«, t00=0x0005, t01=0x004c}
0x0844…0858 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0005, t01=0x007a}
0x0858…086a Head {h00=0x000e, h01=0x0050, text=» B BDTS10 «, t00=0x0005, t01=0x008e}
0x086a…0878 Head {h00=0x000a, h01=0x0050, text=»BDTS09«, t00=0x0005, t01=0x00a0}
0x0878…0894 Head {h00=0x0018, h01=0x0050, text=» TBT TTREST,BDTS111 «, t00=0x0005, t01=0x00ae}
0x0894…08b6 Head {h00=0x001e, h01=0x0050, text=» PERF LEVRD READ STAMINFO «, t00=0x0005, t01=0x00ca}
0x08b6…08ca Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0005, t01=0x00ec}
0x08ca…08f8 Head {h00=0x002a, h01=0x0050, text=» CBL GTPRTFRA,=D'1',BDTS11 FOR ALL BFO«, t00=0x0005, t01=0x0100}
0x08f8…091e Head {h00=0x0022, h01=0x0050, text=» CBE GTLEVBFO,GTPRTFRA,BDTS11 «, t00=0x0005, t01=0x012e}
0x091e…093a Head {h00=0x0018, h01=0x0050, text=» SUB GTLEVBFO,=D'5' «, t00=0x0005, t01=0x0154}
0x093a…0960 Head {h00=0x0022, h01=0x0050, text=» CBNE GTLEVBFO,GTPRTFRA,BDTS10«, t00=0x0005, t01=0x0170}
0x0960…096e Head {h00=0x000a, h01=0x0050, text=»BDTS11«, t00=0x0006, t01=0x0008}
0x096e…0992 Head {h00=0x0020, h01=0x0050, text=»* CHECK MIN VALOER DATO «, t00=0x0006, t01=0x0016}
0x0992…09b6 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD6,GTREGF(CBIN13)«, t00=0x0006, t01=0x003a}
0x09b6…09d2 Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GSWBCD6«, t00=0x0006, t01=0x005e}
0x09d2…09f6 Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(CBIN13),GSWBCD7«, t00=0x0006, t01=0x007a}
0x09f6…0a34 Head {h00=0x003a, h01=0x0050, text=» CBG GTREGF(CBIN13),GTPRTDAT,BDTS10 NOT TO BE PAID YET«, t00=0x0006, t01=0x009e}
0x0a34…0a44 Head {h00=0x000c, h01=0x0050, text=»BDTS111 «, t00=0x0006, t01=0x00dc}
0x0a44…0a68 Head {h00=0x0020, h01=0x0050, text=»* INITIATE READING TRANS«, t00=0x0006, t01=0x00ec}
0x0a68…0a9a Head {h00=0x002e, h01=0x0050, text=» MOVE GTBSUM1,=D'0' TOTAL VALUE TO BE PAID«, t00=0x0006, t01=0x0110}
0x0a9a…0acc Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN9,CBIN0 NO OF TRANS TO BE PAID«, t00=0x0006, t01=0x0142}
0x0acc…0afe Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN6,GTTRKEY SET POINTER TO TRANS«, t00=0x0006, t01=0x0174}
0x0afe…0b24 Head {h00=0x0022, h01=0x0050, text=» CLEAR CKRESP FLAG FOR KREDIT «, t00=0x0007, t01=0x0016}
0x0b24…0b4e Head {h00=0x0026, h01=0x0050, text=» CLEAR CSPECFLG FLAG FOR >3 TRANS «, t00=0x0007, t01=0x003c}
0x0b4e…0b5e Head {h00=0x000c, h01=0x0050, text=»BDTS114 «, t00=0x0007, t01=0x0066}
0x0b5e…0b76 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0007, t01=0x0076}
0x0b76…0b9e Head {h00=0x0024, h01=0x0050, text=» PERF TRREAD,GSWBIN6 READ TRANS «, t00=0x0007, t01=0x008e}
0x0b9e…0bb2 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0007, t01=0x00b6}
0x0bb2…0bce Head {h00=0x0018, h01=0x0050, text=» TBT TTREST,BDTS115 «, t00=0x0007, t01=0x00ca}
0x0bce…0c06 Head {h00=0x0034, h01=0x0050, text=» CBG GTDUPF(CBIN7),GTPRTDAT,BDTS116 NOT PAY YET «, t00=0x0007, t01=0x00e6}
0x0c06…0c3c Head {h00=0x0032, h01=0x0050, text=» CBNL GTDUPF(CBIN4),=D'0',BDTS115 CHECK AMOUNT«, t00=0x0007, t01=0x011e}
0x0c3c…0c5e Head {h00=0x001e, h01=0x0050, text=» SET CKRESP KREDIT AMOUNT «, t00=0x0007, t01=0x0154}
0x0c5e…0c6e Head {h00=0x000c, h01=0x0050, text=»BDTS115 «, t00=0x0007, t01=0x0176}
0x0c6e…0c9c Head {h00=0x002a, h01=0x0050, text=» ADD GTBSUM1,GTDUPF(CBIN4) ADD AMOUNT «, t00=0x0007, t01=0x0186}
0x0c9c…0cc0 Head {h00=0x0020, h01=0x0050, text=» ADD GSWBIN9,CBIN1 ADD COUNT«, t00=0x0008, t01=0x0024}
0x0cc0…0cd0 Head {h00=0x000c, h01=0x0050, text=»BDTS116 «, t00=0x0008, t01=0x0048}
0x0cd0…0d0a Head {h00=0x0036, h01=0x0050, text=» MOVE GSWBIN6,GTDUPF(CBIN22) POINTER TO NEXT TRANS«, t00=0x0008, t01=0x0058}
0x0d0a…0d3e Head {h00=0x0030, h01=0x0050, text=» CBNE GSWBIN6,CBIN0,BDTS114 READ NEXT TRANS «, t00=0x0008, t01=0x0092}
0x0d3e…0d5a Head {h00=0x0018, h01=0x0050, text=»* NO MORE TRANS «, t00=0x0008, t01=0x00c6}
0x0d5a…0d76 Head {h00=0x0018, h01=0x0050, text=» TBF TTREST,BDTS1160«, t00=0x0008, t01=0x00e2}
0x0d76…0da0 Head {h00=0x0026, h01=0x0050, text=» CBE GTREGF(CBIN16),GTBSUM1,BDTS10«, t00=0x0008, t01=0x00fe}
0x0da0…0dbe Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT1 «, t00=0x0008, t01=0x0128}
0x0dbe…0de2 Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(CBIN14),GTBSUM1«, t00=0x0008, t01=0x0146}
0x0de2…0e04 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN15),=D'0'«, t00=0x0008, t01=0x016a}
0x0e04…0e28 Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(CBIN16),GTBSUM1«, t00=0x0008, t01=0x018c}
0x0e28…0e3c Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x0009, t01=0x0020}
0x0e3c…0e50 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0009, t01=0x0034}
0x0e50…0e62 Head {h00=0x000e, h01=0x0050, text=» B BDTS10 «, t00=0x0009, t01=0x0048}
0x0e62…0e72 Head {h00=0x000c, h01=0x0050, text=»BDTS1160«, t00=0x0009, t01=0x005a}
0x0e72…0eaa Head {h00=0x0034, h01=0x0050, text=» CBL GSWBIN9,CBIN1,BDTS10 TO NEXT LEV, NO TRANS «, t00=0x0009, t01=0x006a}
0x0eaa…0ed2 Head {h00=0x0024, h01=0x0050, text=» TBT C821FLG,BDTS117 HJORRING ? «, t00=0x0009, t01=0x00a2}
0x0ed2…0ef4 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN9,CBIN4,BDTS117«, t00=0x0009, t01=0x00ca}
0x0ef4…0f12 Head {h00=0x001a, h01=0x0050, text=» SET CSPECFLG >3 TRANS«, t00=0x0009, t01=0x00ec}
0x0f12…0f22 Head {h00=0x000c, h01=0x0050, text=»BDTS117 «, t00=0x0009, t01=0x010a}
0x0f22…0f5a Head {h00=0x0034, h01=0x0050, text=» CBL GTBSUM1,=D'1',BDTS12 AMOUNT<=0, ONLY SPEC. «, t00=0x0009, t01=0x011a}
0x0f5a…0f8c Head {h00=0x002e, h01=0x0050, text=» TBF CSPECFLG,BDTS15 NO SPEC, IF <3 TRANS «, t00=0x0009, t01=0x0152}
0x0f8c…0fb6 Head {h00=0x0026, h01=0x0050, text=» TBT CKRESP,BDTS12 SPEC IF KREDIT «, t00=0x0009, t01=0x0184}
0x0fb6…0fde Head {h00=0x0024, h01=0x0050, text=»* >3, ALWAYS SPEC IF CSPEC=T«, t00=0x000a, t01=0x001e}
0x0fde…0ff6 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPECFLG «, t00=0x000a, t01=0x0046}
0x0ff6…102e Head {h00=0x0034, h01=0x0050, text=» CBNE GTLEVBFO,=D'1',BDTS15 NO SPEC IF NOT CHECK«, t00=0x000a, t01=0x005e}
0x102e…105a Head {h00=0x0028, h01=0x0050, text=» TBF CSPEC,BDTS15 NO SPEC IF NO KRE «, t00=0x000a, t01=0x0096}
0x105a…1072 Head {h00=0x0014, h01=0x0050, text=»BDTS12 CREDIT «, t00=0x000a, t01=0x00c2}
0x1072…1096 Head {h00=0x0020, h01=0x0050, text=» SET CSPECFLG SPECIFICATION «, t00=0x000a, t01=0x00da}
0x1096…10ba Head {h00=0x0020, h01=0x0050, text=» TBT CADVIS,BDTS20 IF ADVIS «, t00=0x000a, t01=0x00fe}
0x10ba…10fa Head {h00=0x003c, h01=0x0050, text=»* IF CREDIT AMOUNTS, AN EXTRA TRANS MUST BE INSERTED «, t00=0x000a, t01=0x0122}
0x10fa…1134 Head {h00=0x0036, h01=0x0050, text=»* ON PRINTLEV, WITH THE TOTAL AMOUNT (IF >0). «, t00=0x000a, t01=0x0162}
0x1134…1164 Head {h00=0x002c, h01=0x0050, text=»* IF AMOUNT IS <= 0 NOTHING IS DONE «, t00=0x000b, t01=0x000c}
0x1164…1194 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTBSUM1 TOTAL AMOUNT«, t00=0x000b, t01=0x003c}
0x1194…11c8 Head {h00=0x0030, h01=0x0050, text=» CBL GTBSUM1,=D'1',BDTS15 ONLY SPECIFICATION«, t00=0x000b, t01=0x006c}
0x11c8…11ec Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN2),GTLEVNR «, t00=0x000b, t01=0x00a0}
0x11ec…120e Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN7),GTDATO«, t00=0x000b, t01=0x00c4}
0x120e…123c Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'9' TEKST NR 9 «, t00=0x000b, t01=0x00e6}
0x123c…1262 Head {h00=0x0022, h01=0x0050, text=» MOVE GTDUPF(CBIN18),GTPRTDAT «, t00=0x000b, t01=0x0114}
0x1262…1288 Head {h00=0x0022, h01=0x0050, text=» MOVE GTTXTTKO,=D'4' TEXT CODE«, t00=0x000b, t01=0x013a}
0x1288…12b8 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTDATO REGNSKABSAAR «, t00=0x000b, t01=0x0160}
0x12b8…12da Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN1),=D'0' «, t00=0x000b, t01=0x0190}
0x12da…1304 Head {h00=0x0026, h01=0x0050, text=» MOVE GTKFVAL,GTLEVNR SAVE GTLEVNR«, t00=0x000c, t01=0x0022}
0x1304…1332 Head {h00=0x002a, h01=0x0050, text=» PERF TRGETF,GSWBIN8 GET A FREE RECORD«, t00=0x000c, t01=0x004c}
0x1332…1346 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000c, t01=0x007a}
0x1346…1372 Head {h00=0x0028, h01=0x0050, text=» MOVE GTLEVNR,GTLEVBFO SET PRINT LEV«, t00=0x000c, t01=0x008e}
0x1372…138a Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x000c, t01=0x00ba}
0x138a…13ac Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVALT,=D'1',BDTS13«, t00=0x000c, t01=0x00d2}
0x13ac…13d0 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN2),GTLEVALT«, t00=0x000c, t01=0x00f4}
0x13d0…13de Head {h00=0x000a, h01=0x0050, text=»BDTS13«, t00=0x000c, t01=0x0118}
0x13de…13f2 Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x000c, t01=0x0126}
0x13f2…1406 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000c, t01=0x013a}
0x1406…1422 Head {h00=0x0018, h01=0x0050, text=» PERF TRINS,GSWBIN8 «, t00=0x000c, t01=0x014e}
0x1422…1436 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000c, t01=0x016a}
0x1436…1460 Head {h00=0x0026, h01=0x0050, text=» MOVE GTLEVNR,GTKFVAL RESTORE LEV «, t00=0x000c, t01=0x017e}
0x1460…147e Head {h00=0x001a, h01=0x0050, text=» PERF VARRD REREAD LEV«, t00=0x000d, t01=0x0018}
0x147e…1492 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000d, t01=0x0036}
0x1492…14a0 Head {h00=0x000a, h01=0x0050, text=»BDTS15«, t00=0x000d, t01=0x004a}
0x14a0…14da Head {h00=0x0036, h01=0x0050, text=»* SET PRINTLEV NO IN GTLEVPNR (SAME FOR ALL TRANS)«, t00=0x000d, t01=0x0058}
0x14da…14fa Head {h00=0x001c, h01=0x0050, text=» MOVE GTLEVPNR,GTLEVBFO «, t00=0x000d, t01=0x0092}
0x14fa…151e Head {h00=0x0020, h01=0x0050, text=» CBNG GTLEVPNR,=D'5',BDTS205«, t00=0x000d, t01=0x00b2}
0x151e…153a Head {h00=0x0018, h01=0x0050, text=» SUB GTLEVPNR,=D'5' «, t00=0x000d, t01=0x00d6}
0x153a…154a Head {h00=0x000c, h01=0x0050, text=»BDTS205 «, t00=0x000d, t01=0x00f2}
0x154a…1568 Head {h00=0x001a, h01=0x0050, text=» TBF CSPECFLG,BDTS208 «, t00=0x000d, t01=0x0102}
0x1568…1596 Head {h00=0x002a, h01=0x0050, text=» ADD GTLEVPNR,=D'10' SPECIFICATION LEV«, t00=0x000d, t01=0x0120}
0x1596…15a6 Head {h00=0x000c, h01=0x0050, text=»BDTS208 «, t00=0x000d, t01=0x014e}
0x15a6…15b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015e}
0x15b0…15be Head {h00=0x000a, h01=0x0050, text=»BDTS20«, t00=0x000d, t01=0x0168}
0x15be…15de Head {h00=0x001c, h01=0x0050, text=» MOVE GTBSUM1,=D'999999'«, t00=0x000d, t01=0x0176}
0x15de…15fa Head {h00=0x0018, h01=0x0050, text=» MOVE GTKFVAL,=D'0' «, t00=0x000e, t01=0x0008}
0x15fa…1616 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN9,CBIN0 «, t00=0x000e, t01=0x0024}
0x1616…1634 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GTTRKEY «, t00=0x000e, t01=0x0040}
0x1634…1650 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,CBIN0 «, t00=0x000e, t01=0x005e}
0x1650…165e Head {h00=0x000a, h01=0x0050, text=»BDTS21«, t00=0x000e, t01=0x007a}
0x165e…1676 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x000e, t01=0x0088}
0x1676…169e Head {h00=0x0024, h01=0x0050, text=» PERF TRREAD,GSWBIN6 READ TRANS «, t00=0x000e, t01=0x00a0}
0x169e…16b2 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000e, t01=0x00c8}
0x16b2…16cc Head {h00=0x0016, h01=0x0050, text=» TBT CADVIS,BDTS40«, t00=0x000e, t01=0x00dc}
0x16cc…170c Head {h00=0x003c, h01=0x0050, text=» CBG GTDUPF(CBIN7),GTPRTDAT,BDTS70 NOT TO BE PAID; NEXT «, t00=0x000e, t01=0x00f6}
0x170c…171a Head {h00=0x000a, h01=0x0050, text=»BDTS30«, t00=0x000e, t01=0x0136}
0x171a…172e Head {h00=0x0010, h01=0x0050, text=» PERF TRRMV «, t00=0x000e, t01=0x0144}
0x172e…175c Head {h00=0x002a, h01=0x0050, text=»* NOW GSWBIN3 POINTS TO NEXT RECORD «, t00=0x000e, t01=0x0158}
0x175c…1770 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000e, t01=0x0186}
0x1770…179c Head {h00=0x0028, h01=0x0050, text=»* NOW WE HAVE A TRANS TO BE INSERTED«, t00=0x000f, t01=0x000a}
0x179c…17b0 Head {h00=0x0010, h01=0x0050, text=» PERF BDTBOG«, t00=0x000f, t01=0x0036}
0x17b0…17c4 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000f, t01=0x004a}
0x17c4…17f2 Head {h00=0x002a, h01=0x0050, text=» MOVE GTKFVAL,GTLEVNR SAVE OLD GTLEVNR«, t00=0x000f, t01=0x005e}
0x17f2…1810 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GTLEVPNR«, t00=0x000f, t01=0x008c}
0x1810…1828 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x000f, t01=0x00aa}
0x1828…184c Head {h00=0x0020, h01=0x0050, text=» CBNE GTLEVBFO,=D'5',BDTS34 «, t00=0x000f, t01=0x00c2}
0x184c…186e Head {h00=0x001e, h01=0x0050, text=» CBE GTLEVALT,=D'0',BDTS34«, t00=0x000f, t01=0x00e6}
0x186e…18ae Head {h00=0x003c, h01=0x0050, text=» MOVE GTDUPF(CBIN2),GTLEVALT TO BE PAID TO SOMEONE ELSE «, t00=0x000f, t01=0x0108}
0x18ae…18de Head {h00=0x002c, h01=0x0050, text=» MOVE GTLEVNR,GTLEVALT GET ALT.LEVS BFO «, t00=0x000f, t01=0x0148}
0x18de…18f2 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x000f, t01=0x0178}
0x18f2…1906 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x000f, t01=0x018c}
0x1906…1944 Head {h00=0x003a, h01=0x0050, text=» MOVE GTLEVNR,GTLEVBFO FOR CORRECT INSERTION OF TRANS «, t00=0x0010, t01=0x0010}
0x1944…1952 Head {h00=0x000a, h01=0x0050, text=»BDTS34«, t00=0x0010, t01=0x004e}
0x1952…1974 Head {h00=0x001e, h01=0x0050, text=» PERF VARRD READ PRINTLEV «, t00=0x0010, t01=0x005c}
0x1974…1988 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0010, t01=0x007e}
0x1988…19b6 Head {h00=0x002a, h01=0x0050, text=» PERF TRINS,GSWBIN6 INSERT ON PRINTLEV«, t00=0x0010, t01=0x0092}
0x19b6…19ca Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0010, t01=0x00c0}
0x19ca…19f6 Head {h00=0x0028, h01=0x0050, text=» MOVE GTLEVNR,GTKFVAL REREAD OLD LEV«, t00=0x0010, t01=0x00d4}
0x19f6…1a0a Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x0010, t01=0x0100}
0x1a0a…1a1e Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0010, t01=0x0114}
0x1a1e…1a50 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN6,GSWBIN3 SET POINTER TO NEXT «, t00=0x0010, t01=0x0128}
0x1a50…1a62 Head {h00=0x000e, h01=0x0050, text=» B BDTS60 «, t00=0x0010, t01=0x015a}
0x1a62…1a70 Head {h00=0x000a, h01=0x0050, text=»BDTS40«, t00=0x0010, t01=0x016c}
0x1a70…1a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017a}
0x1a7a…1aba Head {h00=0x003c, h01=0x0050, text=» CBG GTDUPF(CBIN7),GTPRTDAT,BDTS55 NOT TO BE PAID; NEXT «, t00=0x0010, t01=0x0184}
0x1aba…1ac8 Head {h00=0x000a, h01=0x0050, text=»BDTS45«, t00=0x0011, t01=0x0034}
0x1ac8…1ae2 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN9,CBIN1«, t00=0x0011, t01=0x0042}
0x1ae2…1b00 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD5,GSWBIN9 «, t00=0x0011, t01=0x005c}
0x1b00…1b1c Head {h00=0x0018, h01=0x0050, text=» PERF BSAMPR,GSWBIN9«, t00=0x0011, t01=0x007a}
0x1b1c…1b3e Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN9,CBIN3,BDTS55 «, t00=0x0011, t01=0x0096}
0x1b3e…1b5a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN9,CBIN0 «, t00=0x0011, t01=0x00b8}
0x1b5a…1b6c Head {h00=0x000e, h01=0x0050, text=» B BDTS55 «, t00=0x0011, t01=0x00d4}
0x1b6c…1b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e6}
0x1b76…1b84 Head {h00=0x000a, h01=0x0050, text=»BDTS50«, t00=0x0011, t01=0x00f0}
0x1b84…1bb8 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN7,GSWBIN6 SET PREVIOUS RECORD NO«, t00=0x0011, t01=0x00fe}
0x1bb8…1bc6 Head {h00=0x000a, h01=0x0050, text=»BDTS55«, t00=0x0011, t01=0x0132}
0x1bc6…1bfe Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBIN6,GTDUPF(CBIN22) POINT TO NEXT TRANS«, t00=0x0011, t01=0x0140}
0x1bfe…1c0c Head {h00=0x000a, h01=0x0050, text=»BDTS60«, t00=0x0011, t01=0x0178}
0x1c0c…1c36 Head {h00=0x0026, h01=0x0050, text=» CBNE GSWBIN6,CBIN0,BDTS21 IF ANY «, t00=0x0011, t01=0x0186}
0x1c36…1c5e Head {h00=0x0024, h01=0x0050, text=» TBT CADVIS,BDTS65 ADVISLISTE ? «, t00=0x0012, t01=0x0020}
0x1c5e…1c86 Head {h00=0x0024, h01=0x0050, text=» CBNE GTBSUM1,=D'999999',BDTS61 «, t00=0x0012, t01=0x0048}
0x1c86…1ca2 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0012, t01=0x0070}
0x1ca2…1cb0 Head {h00=0x000a, h01=0x0050, text=»BDTS61«, t00=0x0012, t01=0x008c}
0x1cb0…1cd4 Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(CBIN13),GTBSUM1«, t00=0x0012, t01=0x009a}
0x1cd4…1ce8 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x0012, t01=0x00be}
0x1ce8…1cfc Head {h00=0x0010, h01=0x0050, text=» BNOK BDTS95«, t00=0x0012, t01=0x00d2}
0x1cfc…1d1c Head {h00=0x001c, h01=0x0050, text=» MOVE GTBSUM1,=D'999999'«, t00=0x0012, t01=0x00e6}
0x1d1c…1d36 Head {h00=0x0016, h01=0x0050, text=» B BDTS10 CONTINUE«, t00=0x0012, t01=0x0106}
0x1d36…1d44 Head {h00=0x000a, h01=0x0050, text=»BDTS65«, t00=0x0012, t01=0x0120}
0x1d44…1d62 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD5,GSWBIN9 «, t00=0x0012, t01=0x012e}
0x1d62…1d8a Head {h00=0x0024, h01=0x0050, text=» IB GSWBIN9,BDTS66,BDTS67,BDTS67«, t00=0x0012, t01=0x014c}
0x1d8a…1d9c Head {h00=0x000e, h01=0x0050, text=» B BDTS68 «, t00=0x0012, t01=0x0174}
0x1d9c…1daa Head {h00=0x000a, h01=0x0050, text=»BDTS66«, t00=0x0012, t01=0x0186}
0x1daa…1de2 (19, 0, 398) Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD5,=D'2' MAKE SURE A LINE IS PRINTED «, t00=0x0013, t01=0x0004}
0x1de2…1df0 Head {h00=0x000a, h01=0x0050, text=»BDTS67«, t00=0x0013, t01=0x003c}
0x1df0…1e0a Head {h00=0x0016, h01=0x0050, text=» PERF BSAMPR,CBIN4«, t00=0x0013, t01=0x004a}
0x1e0a…1e18 Head {h00=0x000a, h01=0x0050, text=»BDTS68«, t00=0x0013, t01=0x0064}
0x1e18…1e2e Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0013, t01=0x0072}
0x1e2e…1e40 Head {h00=0x000e, h01=0x0050, text=» B BDTS10 «, t00=0x0013, t01=0x0088}
0x1e40…1e4e Head {h00=0x000a, h01=0x0050, text=»BDTS70«, t00=0x0013, t01=0x009a}
0x1e4e…1e8a Head {h00=0x0038, h01=0x0050, text=» CBNG GTBSUM1,GTDUPF(CBIN7),BDTS50 LOWER VALORDATO? «, t00=0x0013, t01=0x00a8}
0x1e8a…1eae Head {h00=0x0020, h01=0x0050, text=» MOVE GTBSUM1,GTDUPF(CBIN7) «, t00=0x0013, t01=0x00e4}
0x1eae…1ec0 Head {h00=0x000e, h01=0x0050, text=» B BDTS50 «, t00=0x0013, t01=0x0108}
0x1ec0…1ece Head {h00=0x000a, h01=0x0050, text=»BDTS80«, t00=0x0013, t01=0x011a}
0x1ece…1ee8 Head {h00=0x0016, h01=0x0050, text=» TBF CADVIS,BDTS90«, t00=0x0013, t01=0x0128}
0x1ee8…1f02 Head {h00=0x0016, h01=0x0050, text=» PERF BSAMPR,CBIN5«, t00=0x0013, t01=0x0142}
0x1f02…1f10 Head {h00=0x000a, h01=0x0050, text=»BDTS90«, t00=0x0013, t01=0x015c}
0x1f10…1f24 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0013, t01=0x016a}
0x1f24…1f3c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0013, t01=0x017e}
0x1f3c…1f48 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x0008}
0x1f48…1f56 Head {h00=0x000a, h01=0x0050, text=»BDTS95«, t00=0x0014, t01=0x0014}
0x1f56…1f80 Head {h00=0x0026, h01=0x0050, text=» CBE GTLEVNR,=D'9999999999',BDTS80«, t00=0x0014, t01=0x0022}
0x1f80…1f94 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0014, t01=0x004c}
0x1f94…1fb0 Head {h00=0x0018, h01=0x0050, text=» TBF GTTTPFLG,BDTS96«, t00=0x0014, t01=0x0060}
0x1fb0…1fce Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,FLASTLEV«, t00=0x0014, t01=0x007c}
0x1fce…1fdc Head {h00=0x000a, h01=0x0050, text=»BDTS96«, t00=0x0014, t01=0x009a}
0x1fdc…1ff4 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0014, t01=0x00a8}
0x1ff4…2000 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x00c0}
0x2000…200e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x00cc}
0x200e…201c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00da}
0x201c…2032 Head {h00=0x0012, h01=0x0050, text=»BDTPRT PROC P «, t00=0x0014, t01=0x00e8}
0x2032…2066 Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE LISTS ALL TRANSES CONNECTED «, t00=0x0014, t01=0x00fe}
0x2066…2090 Head {h00=0x0026, h01=0x0050, text=»* TO THE SPEC. LEVNR IN <GTLEVNR> «, t00=0x0014, t01=0x0132}
0x2090…20ac Head {h00=0x0018, h01=0x0050, text=»* P = 1: CHECK/GIRO «, t00=0x0014, t01=0x015c}
0x20ac…20c8 Head {h00=0x0018, h01=0x0050, text=»* P = 2: BUNDTLISTE «, t00=0x0014, t01=0x0178}
0x20c8…20ee (21, 0, 398) Head {h00=0x0022, h01=0x0050, text=»* P = 3: KREDIT SPECIFICATION «, t00=0x0015, t01=0x0004}
0x20ee…2106 Head {h00=0x0014, h01=0x0050, text=» MOVE GSWBIN1,P «, t00=0x0015, t01=0x002a}
0x2106…212e Head {h00=0x0024, h01=0x0050, text=» IB GSWBIN1,BDTP10,BDTP20,BDTP30«, t00=0x0015, t01=0x0042}
0x212e…213c Head {h00=0x000a, h01=0x0050, text=»BDTP10«, t00=0x0015, t01=0x006a}
0x213c…215a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTPRTTIL«, t00=0x0015, t01=0x0078}
0x215a…218c Head {h00=0x002e, h01=0x0050, text=» IB GSWBIN1,BDTP40,BDTP60 USE BFO AS INDEX«, t00=0x0015, t01=0x0096}
0x218c…219e Head {h00=0x000e, h01=0x0050, text=» B BDTP90 «, t00=0x0015, t01=0x00c8}
0x219e…21a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00da}
0x21a8…21b6 Head {h00=0x000a, h01=0x0050, text=»BDTP20«, t00=0x0015, t01=0x00e4}
0x21b6…21de Head {h00=0x0024, h01=0x0050, text=» PERF BSAMPR,CBIN0 PRINT HEADER «, t00=0x0015, t01=0x00f2}
0x21de…21f2 Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x0015, t01=0x011a}
0x21f2…2206 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x0015, t01=0x012e}
0x2206…2222 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x0015, t01=0x0142}
0x2222…2240 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x0015, t01=0x015e}
0x2240…225a Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN8,CBIN0«, t00=0x0015, t01=0x017c}
0x225a…227c Head {h00=0x001e, h01=0x0050, text=» BE BDTP90 NO TRANSACTIONS«, t00=0x0016, t01=0x0008}
0x227c…228a Head {h00=0x000a, h01=0x0050, text=»BDTP21«, t00=0x0016, t01=0x002a}
0x228a…22ae Head {h00=0x0020, h01=0x0050, text=» PERF KBTEST <MAK> PRESSED ?«, t00=0x0016, t01=0x0038}
0x22ae…22d6 Head {h00=0x0024, h01=0x0050, text=» BOK BDTP90 YES, OUT OF ROUTINE «, t00=0x0016, t01=0x005c}
0x22d6…22ee Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0016, t01=0x0084}
0x22ee…230a Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x0016, t01=0x009c}
0x230a…231e Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x0016, t01=0x00b8}
0x231e…2348 Head {h00=0x0026, h01=0x0050, text=» CBE GTLEVNR,GTDUPF(CBIN2),BDTP25 «, t00=0x0016, t01=0x00cc}
0x2348…236a Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVNR,=D'19',BDTP23«, t00=0x0016, t01=0x00f6}
0x236a…2384 Head {h00=0x0016, h01=0x0050, text=» PERF BSAMPR,CBIN4«, t00=0x0016, t01=0x0118}
0x2384…2392 Head {h00=0x000a, h01=0x0050, text=»BDTP23«, t00=0x0016, t01=0x0132}
0x2392…23b6 Head {h00=0x0020, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN2) «, t00=0x0016, t01=0x0140}
0x23b6…23ca Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0016, t01=0x0164}
0x23ca…23de Head {h00=0x0010, h01=0x0050, text=» BOK BDTP24 «, t00=0x0016, t01=0x0178}
0x23de…23f2 Head {h00=0x0010, h01=0x0050, text=» PERF SETLEV«, t00=0x0016, t01=0x018c}
0x23f2…2400 Head {h00=0x000a, h01=0x0050, text=»BDTP24«, t00=0x0017, t01=0x0010}
0x2400…241c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x0017, t01=0x001e}
0x241c…242a Head {h00=0x000a, h01=0x0050, text=»BDTP25«, t00=0x0017, t01=0x003a}
0x242a…2448 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GSWBCD5 «, t00=0x0017, t01=0x0048}
0x2448…2476 Head {h00=0x002a, h01=0x0050, text=» PERF BSAMPR,GSWBIN4 PRINT NEXT INFO «, t00=0x0017, t01=0x0066}
0x2476…2490 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x0017, t01=0x0094}
0x2490…24c2 Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD5,=D'4',BDTP27 LINE FILLED UP ?«, t00=0x0017, t01=0x00ae}
0x24c2…24de Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x0017, t01=0x00e0}
0x24de…24ec Head {h00=0x000a, h01=0x0050, text=»BDTP27«, t00=0x0017, t01=0x00fc}
0x24ec…2510 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x0017, t01=0x010a}
0x2510…2532 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN8,CBIN0,BDTP29 «, t00=0x0017, t01=0x012e}
0x2532…2544 Head {h00=0x000e, h01=0x0050, text=» B BDTP21 «, t00=0x0017, t01=0x0150}
0x2544…2552 Head {h00=0x000a, h01=0x0050, text=»BDTP29«, t00=0x0017, t01=0x0162}
0x2552…257c Head {h00=0x0026, h01=0x0050, text=» PERF BSAMPR,CBIN4 WRITE LAST LINE«, t00=0x0017, t01=0x0170}
0x257c…25a2 Head {h00=0x0022, h01=0x0050, text=» PERF BSAMPR,CBIN5 WRITE TOTAL«, t00=0x0018, t01=0x000a}
0x25a2…25b4 Head {h00=0x000e, h01=0x0050, text=» B BDTP90 «, t00=0x0018, t01=0x0030}
0x25b4…25be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0042}
0x25be…25c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004c}
0x25c8…25ee Head {h00=0x0022, h01=0x0050, text=»BDTP30 KREDIT SPECIFICATION «, t00=0x0018, t01=0x0056}
0x25ee…2610 Head {h00=0x001e, h01=0x0050, text=» PERF VARRD READ PRINTLEV «, t00=0x0018, t01=0x007c}
0x2610…2624 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x0018, t01=0x009e}
0x2624…2642 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x0018, t01=0x00b2}
0x2642…265c Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN8,CBIN0«, t00=0x0018, t01=0x00d0}
0x265c…267e Head {h00=0x001e, h01=0x0050, text=» BE BDTP90 NO TRANSACTIONS«, t00=0x0018, t01=0x00ea}
0x267e…2688 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x010c}
0x2688…2696 Head {h00=0x000a, h01=0x0050, text=»BDTP31«, t00=0x0018, t01=0x0116}
0x2696…26ba Head {h00=0x0020, h01=0x0050, text=» PERF KBTEST <MAK> PRESSED? «, t00=0x0018, t01=0x0124}
0x26ba…26e2 Head {h00=0x0024, h01=0x0050, text=» BOK BDTP90 YES, OUT OF ROUTINE «, t00=0x0018, t01=0x0148}
0x26e2…26fa Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0018, t01=0x0170}
0x26fa…2728 Head {h00=0x002a, h01=0x0050, text=» PERF TRREAD,GSWBIN8 READ TRANSACTION «, t00=0x0018, t01=0x0188}
0x2728…273c Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x0019, t01=0x0026}
0x273c…2770 Head {h00=0x0030, h01=0x0050, text=» CBE GTLEVNR,GTDUPF(CBIN2),BDTP36 SAME LEV? «, t00=0x0019, t01=0x003a}
0x2770…27a0 Head {h00=0x002c, h01=0x0050, text=» CBL GTLEVNR,=D'19',BDTP325 FIRST TIME? «, t00=0x0019, t01=0x006e}
0x27a0…27be Head {h00=0x001a, h01=0x0050, text=»BDTP320 WRITE TOTAL «, t00=0x0019, t01=0x009e}
0x27be…27d2 Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0019, t01=0x00bc}
0x27d2…27ec Head {h00=0x0016, h01=0x0050, text=» PERF NEWLIN,CBIN1«, t00=0x0019, t01=0x00d0}
0x27ec…280a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBIN10«, t00=0x0019, t01=0x00ea}
0x280a…283c Head {h00=0x002e, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FBDTSLUT WRITE TOTAL «, t00=0x0019, t01=0x0108}
0x283c…2856 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN2«, t00=0x0019, t01=0x013a}
0x2856…2872 Head {h00=0x0018, h01=0x0050, text=» PERF NEWLIN,GSWBIN3«, t00=0x0019, t01=0x0154}
0x2872…2896 Head {h00=0x0020, h01=0x0050, text=» CMP GSWBIN8,CBIN0 FINISHED?«, t00=0x0019, t01=0x0170}
0x2896…28ac (26, 0, 398) Head {h00=0x0012, h01=0x0050, text=» BE BDTP90 YES«, t00=0x001a, t01=0x0004}
0x28ac…28b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x001a}
0x28b6…28c6 Head {h00=0x000c, h01=0x0050, text=»BDTP325 «, t00=0x001a, t01=0x0024}
0x28c6…28ec Head {h00=0x0022, h01=0x0050, text=»* NULSTIL COUNTERS, SET PAGE«, t00=0x001a, t01=0x0034}
0x28ec…290e Head {h00=0x001e, h01=0x0050, text=» MOVE GTBSUM3,=D'0' TOTAL «, t00=0x001a, t01=0x005a}
0x290e…292a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN10,CBIN0«, t00=0x001a, t01=0x007c}
0x292a…2934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0098}
0x2934…2952 Head {h00=0x001a, h01=0x0050, text=»BDTP33 WRITE HEADING«, t00=0x001a, t01=0x00a2}
0x2952…2982 Head {h00=0x002c, h01=0x0050, text=» MOVE GTKFVAL,GTDUPF(CBIN2) SAVE LEV NO «, t00=0x001a, t01=0x00c0}
0x2982…29ae Head {h00=0x0028, h01=0x0050, text=» MOVE GTLEVNR,GTPRTTIL SET PRINTLEV «, t00=0x001a, t01=0x00f0}
0x29ae…29c2 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x001a, t01=0x011c}
0x29c2…29d6 Head {h00=0x0010, h01=0x0050, text=» BOK BDTP34 «, t00=0x001a, t01=0x0130}
0x29d6…29ea Head {h00=0x0010, h01=0x0050, text=» PERF SETLEV«, t00=0x001a, t01=0x0144}
0x29ea…29f8 Head {h00=0x000a, h01=0x0050, text=»BDTP34«, t00=0x001a, t01=0x0158}
0x29f8…2a28 Head {h00=0x002c, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FRMTNVN WRITE NAME «, t00=0x001a, t01=0x0166}
0x2a28…2a52 Head {h00=0x0026, h01=0x0050, text=» MOVE GTLEVNR,GTKFVAL RESET LEV NO«, t00=0x001b, t01=0x0008}
0x2a52…2a66 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x001b, t01=0x0032}
0x2a66…2a7a Head {h00=0x0010, h01=0x0050, text=» BOK BDTP35 «, t00=0x001b, t01=0x0046}
0x2a7a…2a8e Head {h00=0x0010, h01=0x0050, text=» PERF SETLEV«, t00=0x001b, t01=0x005a}
0x2a8e…2a9c Head {h00=0x000a, h01=0x0050, text=»BDTP35«, t00=0x001b, t01=0x006e}
0x2a9c…2ab8 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN10,CBIN1 «, t00=0x001b, t01=0x007c}
0x2ab8…2ae0 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,GSWBIN10 NEXT PAGE«, t00=0x001b, t01=0x0098}
0x2ae0…2b10 Head {h00=0x002c, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FKRE10 WRITE LEV NO«, t00=0x001b, t01=0x00c0}
0x2b10…2b40 Head {h00=0x002c, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FRMTNVN WRITE NAME «, t00=0x001b, t01=0x00f0}
0x2b40…2b6e Head {h00=0x002a, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FKRE20 WRITE DATE«, t00=0x001b, t01=0x0120}
0x2b6e…2b98 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN3,=W'30' SET LINECOUNT«, t00=0x001b, t01=0x014e}
0x2b98…2baa Head {h00=0x000e, h01=0x0050, text=» B BDTP37 «, t00=0x001b, t01=0x0178}
0x2baa…2bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x018a}
0x2bb4…2bd6 (28, 0, 400) Head {h00=0x001e, h01=0x0050, text=»BDTP36 CHEC FOR NEW PAGE«, t00=0x001c, t01=0x0004}
0x2bd6…2bf8 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN3,CBIN4,BDTP37 «, t00=0x001c, t01=0x0026}
0x2bf8…2c14 Head {h00=0x0018, h01=0x0050, text=» PERF NEWLIN,CBIN10 «, t00=0x001c, t01=0x0048}
0x2c14…2c26 Head {h00=0x000e, h01=0x0050, text=» B BDTP33 «, t00=0x001c, t01=0x0064}
0x2c26…2c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0076}
0x2c30…2c54 Head {h00=0x0020, h01=0x0050, text=»BDTP37 WRITE SPECIFICATION«, t00=0x001c, t01=0x0080}
0x2c54…2c80 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN7,GTDUPF(CBIN15) TEXT NR«, t00=0x001c, t01=0x00a4}
0x2c80…2c9c Head {h00=0x0018, h01=0x0050, text=» PERF TXTRD,GSWBIN7 «, t00=0x001c, t01=0x00d0}
0x2c9c…2cb0 Head {h00=0x0010, h01=0x0050, text=» PERF STREDT«, t00=0x001c, t01=0x00ec}
0x2cb0…2cde Head {h00=0x002a, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FRMSPE WRITE LINE«, t00=0x001c, t01=0x0100}
0x2cde…2d06 Head {h00=0x0024, h01=0x0050, text=» SUB GSWBIN3,CBIN1 SET LINECOUNT«, t00=0x001c, t01=0x012e}
0x2d06…2d36 Head {h00=0x002c, h01=0x0050, text=» ADD GTBSUM3,GTDUPF(CBIN4) ADD TO TOTAL «, t00=0x001c, t01=0x0156}
0x2d36…2d64 Head {h00=0x002a, h01=0x0050, text=»* SET POINTER TO NEXT TRANSACTION «, t00=0x001c, t01=0x0186}
0x2d64…2d88 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x001d, t01=0x0024}
0x2d88…2daa Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN8,CBIN0,BDTP31«, t00=0x001d, t01=0x0048}
0x2daa…2dbc Head {h00=0x000e, h01=0x0050, text=» B BDTP320«, t00=0x001d, t01=0x006a}
0x2dbc…2dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x007c}
0x2dc6…2dd4 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x001d, t01=0x0086}
0x2dd4…2dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0094}
0x2dde…2dfa Head {h00=0x0018, h01=0x0050, text=»BDTP40 CHECK PRINT«, t00=0x001d, t01=0x009e}
0x2dfa…2e10 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTCHKPR«, t00=0x001d, t01=0x00ba}
0x2e10…2e2a Head {h00=0x0016, h01=0x0050, text=» PERF BCHKPR,CBIN0«, t00=0x001d, t01=0x00d0}
0x2e2a…2e44 Head {h00=0x0016, h01=0x0050, text=» PERF BCHKPR,CBIN0«, t00=0x001d, t01=0x00ea}
0x2e44…2e58 Head {h00=0x0010, h01=0x0050, text=» PERF PRTADJ«, t00=0x001d, t01=0x0104}
0x2e58…2e6a Head {h00=0x000e, h01=0x0050, text=» BL BDTP40«, t00=0x001d, t01=0x0118}
0x2e6a…2e7c Head {h00=0x000e, h01=0x0050, text=» BG BDTP90«, t00=0x001d, t01=0x012a}
0x2e7c…2e90 Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x001d, t01=0x013c}
0x2e90…2ea4 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x001d, t01=0x0150}
0x2ea4…2ec0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x001d, t01=0x0164}
0x2ec0…2ede Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x001d, t01=0x0180}
0x2ede…2ef8 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN8,CBIN0«, t00=0x001e, t01=0x000e}
0x2ef8…2f0a Head {h00=0x000e, h01=0x0050, text=» BE BDTP90«, t00=0x001e, t01=0x0028}
0x2f0a…2f18 Head {h00=0x000a, h01=0x0050, text=»BDTP41«, t00=0x001e, t01=0x003a}
0x2f18…2f2c Head {h00=0x0010, h01=0x0050, text=» PERF KBTEST«, t00=0x001e, t01=0x0048}
0x2f2c…2f40 Head {h00=0x0010, h01=0x0050, text=» BOK BDTP90 «, t00=0x001e, t01=0x005c}
0x2f40…2f58 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001e, t01=0x0070}
0x2f58…2f74 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x001e, t01=0x0088}
0x2f74…2f88 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x001e, t01=0x00a4}
0x2f88…2fb2 Head {h00=0x0026, h01=0x0050, text=» CBG GTDUPF(CBIN2),GTPRTFRA,BDTP47«, t00=0x001e, t01=0x00b8}
0x2fb2…2fdc Head {h00=0x0026, h01=0x0050, text=» CBE GTLEVNR,GTDUPF(CBIN2),BDTP45 «, t00=0x001e, t01=0x00e2}
0x2fdc…2ffe Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVNR,=D'19',BDTP43«, t00=0x001e, t01=0x010c}
0x2ffe…3014 Head {h00=0x0012, h01=0x0050, text=» CLEAR CWORK1 «, t00=0x001e, t01=0x012e}
0x3014…302e Head {h00=0x0016, h01=0x0050, text=» PERF BCHKPR,CBIN4«, t00=0x001e, t01=0x0144}
0x302e…303c Head {h00=0x000a, h01=0x0050, text=»BDTP43«, t00=0x001e, t01=0x015e}
0x303c…3060 Head {h00=0x0020, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN2) «, t00=0x001e, t01=0x016c}
0x3060…3074 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x001e, t01=0x0190}
0x3074…3088 Head {h00=0x0010, h01=0x0050, text=» BOK BDTP44 «, t00=0x001f, t01=0x0014}
0x3088…309c Head {h00=0x0010, h01=0x0050, text=» PERF SETLEV«, t00=0x001f, t01=0x0028}
0x309c…30aa Head {h00=0x000a, h01=0x0050, text=»BDTP44«, t00=0x001f, t01=0x003c}
0x30aa…30c6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x001f, t01=0x004a}
0x30c6…30d4 Head {h00=0x000a, h01=0x0050, text=»BDTP45«, t00=0x001f, t01=0x0066}
0x30d4…30e8 Head {h00=0x0010, h01=0x0050, text=» SET CWORK1 «, t00=0x001f, t01=0x0074}
0x30e8…3106 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GSWBCD5 «, t00=0x001f, t01=0x0088}
0x3106…3122 Head {h00=0x0018, h01=0x0050, text=» PERF BCHKPR,GSWBIN4«, t00=0x001f, t01=0x00a6}
0x3122…313c Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x001f, t01=0x00c2}
0x313c…3158 Head {h00=0x0018, h01=0x0050, text=» TBT C821FLG,BDTP47 «, t00=0x001f, t01=0x00dc}
0x3158…317a Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD5,=D'4',BDTP47 «, t00=0x001f, t01=0x00f8}
0x317a…3196 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x001f, t01=0x011a}
0x3196…31a4 Head {h00=0x000a, h01=0x0050, text=»BDTP47«, t00=0x001f, t01=0x0136}
0x31a4…31c8 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x001f, t01=0x0144}
0x31c8…31ea Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN8,CBIN0,BDTP49 «, t00=0x001f, t01=0x0168}
0x31ea…31fc Head {h00=0x000e, h01=0x0050, text=» B BDTP41 «, t00=0x001f, t01=0x018a}
0x31fc…320a Head {h00=0x000a, h01=0x0050, text=»BDTP49«, t00=0x0020, t01=0x000c}
0x320a…3220 Head {h00=0x0012, h01=0x0050, text=» CLEAR CWORK1 «, t00=0x0020, t01=0x001a}
0x3220…323a Head {h00=0x0016, h01=0x0050, text=» PERF BCHKPR,CBIN4«, t00=0x0020, t01=0x0030}
0x323a…324c Head {h00=0x000e, h01=0x0050, text=» B BDTP90 «, t00=0x0020, t01=0x004a}
0x324c…3256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x005c}
0x3256…3264 Head {h00=0x000a, h01=0x0050, text=»BDTP60«, t00=0x0020, t01=0x0066}
0x3264…327e Head {h00=0x0016, h01=0x0050, text=» PERF BGIRPR,CBIN0«, t00=0x0020, t01=0x0074}
0x327e…3292 Head {h00=0x0010, h01=0x0050, text=» PERF PRTADJ«, t00=0x0020, t01=0x008e}
0x3292…32a4 Head {h00=0x000e, h01=0x0050, text=» BL BDTP60«, t00=0x0020, t01=0x00a2}
0x32a4…32b6 Head {h00=0x000e, h01=0x0050, text=» BG BDTP90«, t00=0x0020, t01=0x00b4}
0x32b6…32ca Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x0020, t01=0x00c6}
0x32ca…32de Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x0020, t01=0x00da}
0x32de…32fa Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x0020, t01=0x00ee}
0x32fa…3318 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x0020, t01=0x010a}
0x3318…333a Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN8,CBIN0,BDTP90 «, t00=0x0020, t01=0x0128}
0x333a…3348 Head {h00=0x000a, h01=0x0050, text=»BDTP61«, t00=0x0020, t01=0x014a}
0x3348…335c Head {h00=0x0010, h01=0x0050, text=» PERF KBTEST«, t00=0x0020, t01=0x0158}
0x335c…3370 Head {h00=0x0010, h01=0x0050, text=» BOK BDTP90 «, t00=0x0020, t01=0x016c}
0x3370…3388 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0020, t01=0x0180}
0x3388…33a4 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x0021, t01=0x0008}
0x33a4…33b8 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTP95«, t00=0x0021, t01=0x0024}
0x33b8…33e2 Head {h00=0x0026, h01=0x0050, text=» CBG GTDUPF(CBIN2),GTPRTFRA,BDTP67«, t00=0x0021, t01=0x0038}
0x33e2…340c Head {h00=0x0026, h01=0x0050, text=» CBE GTLEVNR,GTDUPF(CBIN2),BDTP65 «, t00=0x0021, t01=0x0062}
0x340c…342e Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVNR,=D'19',BDTP64«, t00=0x0021, t01=0x008c}
0x342e…3462 Head {h00=0x0030, h01=0x0050, text=»* DEPENDING ON THE VALUE OF GSWBIN4 (W LINE)«, t00=0x0021, t01=0x00ae}
0x3462…349e Head {h00=0x0038, h01=0x0050, text=»* WE HAVE TO DECIDE IF WE HAVE TO SHIFT TO THE RIGHT«, t00=0x0021, t01=0x00e2}
0x349e…34d4 Head {h00=0x0032, h01=0x0050, text=»* HALF OF THE GIROFORM, OR START ON A NEW ONE «, t00=0x0021, t01=0x011e}
0x34d4…34f2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GSWBCD5 «, t00=0x0021, t01=0x0154}
0x34f2…350a Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN4, C «, t00=0x0021, t01=0x0172}
0x350a…353e Head {h00=0x0030, h01=0x0050, text=» BDTP64,BDTP62,BDTP62,BDTP62,BDTP63,BDTP63 «, t00=0x0021, t01=0x018a}
0x353e…354c Head {h00=0x000a, h01=0x0050, text=»BDTP62«, t00=0x0022, t01=0x002e}
0x354c…357c Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD5,=D'4' START ON RIGHT HALF «, t00=0x0022, t01=0x003c}
0x357c…358e Head {h00=0x000e, h01=0x0050, text=» B BDTP650«, t00=0x0022, t01=0x006c}
0x358e…359c Head {h00=0x000a, h01=0x0050, text=»BDTP63«, t00=0x0022, t01=0x007e}
0x359c…35d2 Head {h00=0x0032, h01=0x0050, text=» PERF BGIRPR,CBIN7 PRINT AND START ON NEW FORM«, t00=0x0022, t01=0x008c}
0x35d2…35e0 Head {h00=0x000a, h01=0x0050, text=»BDTP64«, t00=0x0022, t01=0x00c2}
0x35e0…35fc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x0022, t01=0x00d0}
0x35fc…360c Head {h00=0x000c, h01=0x0050, text=»BDTP650 «, t00=0x0022, t01=0x00ec}
0x360c…3630 Head {h00=0x0020, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN2) «, t00=0x0022, t01=0x00fc}
0x3630…3644 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0022, t01=0x0120}
0x3644…3658 Head {h00=0x0010, h01=0x0050, text=» BOK BDTP65 «, t00=0x0022, t01=0x0134}
0x3658…366c Head {h00=0x0010, h01=0x0050, text=» PERF SETLEV«, t00=0x0022, t01=0x0148}
0x366c…367a Head {h00=0x000a, h01=0x0050, text=»BDTP65«, t00=0x0022, t01=0x015c}
0x367a…3698 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GSWBCD5 «, t00=0x0022, t01=0x016a}
0x3698…36b4 Head {h00=0x0018, h01=0x0050, text=» PERF BGIRPR,GSWBIN4«, t00=0x0022, t01=0x0188}
0x36b4…36ce Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x0023, t01=0x0014}
0x36ce…36f0 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD5,=D'7',BDTP67 «, t00=0x0023, t01=0x002e}
0x36f0…370c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'1' «, t00=0x0023, t01=0x0050}
0x370c…371a Head {h00=0x000a, h01=0x0050, text=»BDTP67«, t00=0x0023, t01=0x006c}
0x371a…373e Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x0023, t01=0x007a}
0x373e…3760 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN8,CBIN0,BDTP69 «, t00=0x0023, t01=0x009e}
0x3760…3772 Head {h00=0x000e, h01=0x0050, text=» B BDTP61 «, t00=0x0023, t01=0x00c0}
0x3772…3780 Head {h00=0x000a, h01=0x0050, text=»BDTP69«, t00=0x0023, t01=0x00d2}
0x3780…37ae Head {h00=0x002a, h01=0x0050, text=» CBE GSWBCD5,=D'1',BDTP90 EMPTY FORM ?«, t00=0x0023, t01=0x00e0}
0x37ae…37d8 Head {h00=0x0026, h01=0x0050, text=» PERF BGIRPR,CBIN7 PRINT LAST FORM«, t00=0x0023, t01=0x010e}
0x37d8…37ea Head {h00=0x000e, h01=0x0050, text=» B BDTP90 «, t00=0x0023, t01=0x0138}
0x37ea…37f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x014a}
0x37f4…3802 Head {h00=0x000a, h01=0x0050, text=»BDTP90«, t00=0x0023, t01=0x0154}
0x3802…381a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0023, t01=0x0162}
0x381a…3826 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x017a}
0x3826…3830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0186}
0x3830…383e Head {h00=0x000a, h01=0x0050, text=»BDTP95«, t00=0x0023, t01=0x0190}
0x383e…3868 Head {h00=0x0026, h01=0x0050, text=» CBE GTLEVNR,=D'9999999999',BDTP90«, t00=0x0024, t01=0x000e}
0x3868…3884 Head {h00=0x0018, h01=0x0050, text=» TBF GTTTPFLG,BDTP96«, t00=0x0024, t01=0x0038}
0x3884…38a2 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,FLASTLEV«, t00=0x0024, t01=0x0054}
0x38a2…38b0 Head {h00=0x000a, h01=0x0050, text=»BDTP96«, t00=0x0024, t01=0x0072}
0x38b0…38c8 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0024, t01=0x0080}
0x38c8…38d4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0098}
0x38d4…38e2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x00a4}
0x38e2…38f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00b2}
0x38f0…3904 Head {h00=0x0010, h01=0x0050, text=»BDTBOG PROC «, t00=0x0024, t01=0x00c0}
0x3904…390e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d4}
0x390e…3934 Head {h00=0x0022, h01=0x0050, text=»* BOOKKEEPING OF A TRANSACTION«, t00=0x0024, t01=0x00de}
0x3934…3962 Head {h00=0x002a, h01=0x0050, text=»* DURING THE MOVE FROM LEV TO PRINTLEV«, t00=0x0024, t01=0x0104}
0x3962…397a Head {h00=0x0014, h01=0x0050, text=»* ADD TO VERSUR «, t00=0x0024, t01=0x0132}
0x397a…3992 Head {h00=0x0014, h01=0x0050, text=»* SUB FROM PENGE«, t00=0x0024, t01=0x014a}
0x3992…39ac Head {h00=0x0016, h01=0x0050, text=»* UPDAT VAR. INFO «, t00=0x0024, t01=0x0162}
0x39ac…39b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x017c}
0x39b6…39e4 Head {h00=0x002a, h01=0x0050, text=» CBL GTDUPF(CBIN4),=D'0',BDTB30 KREDIT«, t00=0x0024, t01=0x0186}
0x39e4…3a00 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN2 «, t00=0x0025, t01=0x0024}
0x3a00…3a34 Head {h00=0x0030, h01=0x0050, text=» SUB GTREGF(CBIN14),GTDUPF(CBIN4) VENT DEBET«, t00=0x0025, t01=0x0040}
0x3a34…3a46 Head {h00=0x000e, h01=0x0050, text=» B BDTB40 «, t00=0x0025, t01=0x0074}
0x3a46…3a54 Head {h00=0x000a, h01=0x0050, text=»BDTB30«, t00=0x0025, t01=0x0086}
0x3a54…3a70 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0025, t01=0x0094}
0x3a70…3aa6 Head {h00=0x0032, h01=0x0050, text=» SUB GTREGF(CBIN15),GTDUPF(CBIN4) VENT KREDIT «, t00=0x0025, t01=0x00b0}
0x3aa6…3ab4 Head {h00=0x000a, h01=0x0050, text=»BDTB40«, t00=0x0025, t01=0x00e6}
0x3ab4…3ac8 Head {h00=0x0010, h01=0x0050, text=»* BOGFORING «, t00=0x0025, t01=0x00f4}
0x3ac8…3ae6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GTLEVBFO«, t00=0x0025, t01=0x0108}
0x3ae6…3b08 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN5,CBIN5,BDTB45 «, t00=0x0025, t01=0x0126}
0x3b08…3b38 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN5,CBIN5 ADJUST FOR BUNDT ONLY«, t00=0x0025, t01=0x0148}
0x3b38…3b46 Head {h00=0x000a, h01=0x0050, text=»BDTB45«, t00=0x0025, t01=0x0178}
0x3b46…3b78 Head {h00=0x002e, h01=0x0050, text=» PERF KFREAD,CBIN3,GSWBIN4,GSWBIN5,GTKFVAL«, t00=0x0025, t01=0x0186}
0x3b78…3ba8 Head {h00=0x002c, h01=0x0050, text=» ADD GTKFVAL,GTDUPF(CBIN4) ADD TO VERSUR«, t00=0x0026, t01=0x0028}
0x3ba8…3bdc Head {h00=0x0030, h01=0x0050, text=» PERF KFWRIT,CBIN3,GSWBIN4,GSWBIN5,GTKFVAL «, t00=0x0026, t01=0x0058}
0x3bdc…3c0c Head {h00=0x002c, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN1,GSWBIN5,GTKFVAL«, t00=0x0026, t01=0x008c}
0x3c0c…3c3e Head {h00=0x002e, h01=0x0050, text=» SUB GTKFVAL,GTDUPF(CBIN4) SUB FROM PENGE «, t00=0x0026, t01=0x00bc}
0x3c3e…3c6e Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN2,CBIN1,GSWBIN5,GTKFVAL«, t00=0x0026, t01=0x00ee}
0x3c6e…3c82 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x0026, t01=0x011e}
0x3c82…3c96 Head {h00=0x0010, h01=0x0050, text=» BNOK BDTB95«, t00=0x0026, t01=0x0132}
0x3c96…3cae Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0026, t01=0x0146}
0x3cae…3cba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x015e}
0x3cba…3cc8 Head {h00=0x000a, h01=0x0050, text=»BDTB95«, t00=0x0026, t01=0x016a}
0x3cc8…3ce0 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0026, t01=0x0178}
0x3ce0…3cec Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0190}
0x3cec…3cfa Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x000c}
0x3cfa…3d08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x001a}
0x3d08…3d1c Head {h00=0x0010, h01=0x0050, text=»BDTDEL PROC «, t00=0x0027, t01=0x0028}
0x3d1c…3d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x003c}
0x3d26…3d50 Head {h00=0x0026, h01=0x0050, text=»* THE PROCEDURE MOVES ALL RECORDS «, t00=0x0027, t01=0x0046}
0x3d50…3d80 Head {h00=0x002c, h01=0x0050, text=»* FROM A GIVEN PRINTLEV TO THE FREE LEV «, t00=0x0027, t01=0x0070}
0x3d80…3d8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a0}
0x3d8a…3dac Head {h00=0x001e, h01=0x0050, text=»* 1) READ PRINTLEV AR.INFO«, t00=0x0027, t01=0x00aa}
0x3dac…3de6 Head {h00=0x0036, h01=0x0050, text=»* 2) UPDATE ALL RECORDS, APART FROM LAST-IN-CHAIN «, t00=0x0027, t01=0x00cc}
0x3de6…3e0a Head {h00=0x0020, h01=0x0050, text=»* 3) READ FREE LEV VAR.INFO «, t00=0x0027, t01=0x0106}
0x3e0a…3e42 Head {h00=0x0034, h01=0x0050, text=»* 4) UPDATE LAST TRANS WITH GTTRKEY, AND REWRITE«, t00=0x0027, t01=0x012a}
0x3e42…3e7a Head {h00=0x0034, h01=0x0050, text=»* 5) UPDATE FREE LEV WITH GTTRKEY FROM PRINTLEV «, t00=0x0027, t01=0x0162}
0x3e7a…3eac Head {h00=0x002e, h01=0x0050, text=»* 6) UPDATE PRINTLEV WITH GTTRKEY := ZERO «, t00=0x0028, t01=0x000a}
0x3eac…3eb8 Head {h00=0x0008, h01=0x0050, text=»* 1)«, t00=0x0028, t01=0x003c}
0x3eb8…3ed2 Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CLOCK «, t00=0x0028, t01=0x0048}
0x3ed2…3eee Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0028, t01=0x0062}
0x3eee…3f20 Head {h00=0x002e, h01=0x0050, text=» MOVE GTKFVAL,GTLEVNR SAVE PRINTLEV IDENT «, t00=0x0028, t01=0x007e}
0x3f20…3f4c Head {h00=0x0028, h01=0x0050, text=» PERF VARRD READ POINTER TO 1. TRANS«, t00=0x0028, t01=0x00b0}
0x3f4c…3f62 Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB095 «, t00=0x0028, t01=0x00dc}
0x3f62…3f96 Head {h00=0x0030, h01=0x0050, text=» CBE GTTRKEY,CBIN0,BDTB090 NOTHING TO DELETE«, t00=0x0028, t01=0x00f2}
0x3f96…3fb4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,GTTRKEY «, t00=0x0028, t01=0x0126}
0x3fb4…3fd2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x0028, t01=0x0144}
0x3fd2…3fee Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'10'«, t00=0x0028, t01=0x0162}
0x3fee…3ffa Head {h00=0x0008, h01=0x0050, text=»* 2)«, t00=0x0028, t01=0x017e}
0x3ffa…400a Head {h00=0x000c, h01=0x0050, text=»BDTB020 «, t00=0x0028, t01=0x018a}
0x400a…402c Head {h00=0x001e, h01=0x0050, text=» SET GTSWFLAG POINTER ONLY«, t00=0x0029, t01=0x000a}
0x402c…4054 Head {h00=0x0024, h01=0x0050, text=» PERF TRREAD,GSWBIN8 READ TRANS «, t00=0x0029, t01=0x002c}
0x4054…406a Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB095 «, t00=0x0029, t01=0x0054}
0x406a…4084 Head {h00=0x0016, h01=0x0050, text=» ADD GTBSUM1,=D'1'«, t00=0x0029, t01=0x006a}
0x4084…40b0 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN7),=D'0' VALORDATO «, t00=0x0029, t01=0x0084}
0x40b0…40d2 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN13),=D'0'«, t00=0x0029, t01=0x00b0}
0x40d2…40f4 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN14),=D'0'«, t00=0x0029, t01=0x00d2}
0x40f4…4116 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN18),=D'0'«, t00=0x0029, t01=0x00f4}
0x4116…4138 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN19),=D'0'«, t00=0x0029, t01=0x0116}
0x4138…4162 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'0' TEXTNR «, t00=0x0029, t01=0x0138}
0x4162…418e Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN21),=D'0' TEXTCODE «, t00=0x0029, t01=0x0162}
0x418e…41ba Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN4),=D'0' UDB. BELOB«, t00=0x0029, t01=0x018e}
0x41ba…41e8 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN6),=D'0' REGNSKABS]R «, t00=0x002a, t01=0x002a}
0x41e8…4214 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN1),=D'0' REGKONTONR«, t00=0x002a, t01=0x0058}
0x4214…423c Head {h00=0x0024, h01=0x0050, text=» MOVE GTDUPF(CBIN2),=D'10' LEVNR«, t00=0x002a, t01=0x0084}
0x423c…4274 Head {h00=0x0034, h01=0x0050, text=» CBE GTDUPF(CBIN22),=D'0',BDTB030 LAST IN CHAIN?«, t00=0x002a, t01=0x00ac}
0x4274…428c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x002a, t01=0x00e4}
0x428c…42b0 Head {h00=0x0020, h01=0x0050, text=» PERF TRPUT,GSWBIN8 REWRITE «, t00=0x002a, t01=0x00fc}
0x42b0…42c6 Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB095 «, t00=0x002a, t01=0x0120}
0x42c6…42ea Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x002a, t01=0x0136}
0x42ea…42fc Head {h00=0x000e, h01=0x0050, text=» B BDTB020«, t00=0x002a, t01=0x015a}
0x42fc…4308 Head {h00=0x0008, h01=0x0050, text=»* 3)«, t00=0x002a, t01=0x016c}
0x4308…432c Head {h00=0x0020, h01=0x0050, text=»BDTB030 MOVE GTLEVNR,=D'10' «, t00=0x002a, t01=0x0178}
0x432c…434e Head {h00=0x001e, h01=0x0050, text=» PERF VARRD READ FREE LEV «, t00=0x002b, t01=0x000c}
0x434e…4364 Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB085 «, t00=0x002b, t01=0x002e}
0x4364…4370 Head {h00=0x0008, h01=0x0050, text=»* 4)«, t00=0x002b, t01=0x0044}
0x4370…4394 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GTTRKEY«, t00=0x002b, t01=0x0050}
0x4394…43ac Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x002b, t01=0x0074}
0x43ac…43dc Head {h00=0x002c, h01=0x0050, text=» PERF TRPUT,GSWBIN8 REWRITE LAST TRANS; «, t00=0x002b, t01=0x008c}
0x43dc…440c Head {h00=0x002c, h01=0x0050, text=» BNOK BDTB085 POINTS NOW TO 'OLD' FIRST «, t00=0x002b, t01=0x00bc}
0x440c…442a Head {h00=0x001a, h01=0x0050, text=» RECORD IN FREE LEV «, t00=0x002b, t01=0x00ec}
0x442a…4436 Head {h00=0x0008, h01=0x0050, text=»* 5)«, t00=0x002b, t01=0x010a}
0x4436…4468 Head {h00=0x002e, h01=0x0050, text=» ADD GTREGF(CBIN11),GTBSUM1 AVAIL. RECORDS«, t00=0x002b, t01=0x0116}
0x4468…449e Head {h00=0x0032, h01=0x0050, text=» MOVE GTTRKEY,GSWBIN7 POINT TO FIRST RECORD IN«, t00=0x002b, t01=0x0148}
0x449e…44c2 Head {h00=0x0020, h01=0x0050, text=» PERF VARWRT ORIG. PRINTLEV «, t00=0x002b, t01=0x017e}
0x44c2…44e4 Head {h00=0x001e, h01=0x0050, text=» BNOK BDTB085 AND REWRITE «, t00=0x002c, t01=0x0012}
0x44e4…44f0 Head {h00=0x0008, h01=0x0050, text=»* 6)«, t00=0x002c, t01=0x0034}
0x44f0…450e Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GTKFVAL «, t00=0x002c, t01=0x0040}
0x450e…4530 Head {h00=0x001e, h01=0x0050, text=» PERF VARRD READ PRINTLEV «, t00=0x002c, t01=0x005e}
0x4530…4546 Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB085 «, t00=0x002c, t01=0x0080}
0x4546…4568 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN10),=D'0'«, t00=0x002c, t01=0x0096}
0x4568…458a Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN11),=D'0'«, t00=0x002c, t01=0x00b8}
0x458a…45ac Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN12),=D'0'«, t00=0x002c, t01=0x00da}
0x45ac…45ce Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN13),=D'0'«, t00=0x002c, t01=0x00fc}
0x45ce…45f0 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN14),=D'0'«, t00=0x002c, t01=0x011e}
0x45f0…4612 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN15),=D'0'«, t00=0x002c, t01=0x0140}
0x4612…462e Head {h00=0x0018, h01=0x0050, text=» MOVE GTTRKEY,CBIN0 «, t00=0x002c, t01=0x0162}
0x462e…4642 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x002c, t01=0x017e}
0x4642…4658 (45, 0, 398) Head {h00=0x0012, h01=0x0050, text=» BNOK BDTB085 «, t00=0x002d, t01=0x0004}
0x4658…4662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001a}
0x4662…4672 Head {h00=0x000c, h01=0x0050, text=»BDTB090 «, t00=0x002d, t01=0x0024}
0x4672…4686 Head {h00=0x0010, h01=0x0050, text=» CLEAR CLOCK«, t00=0x002d, t01=0x0034}
0x4686…46a2 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x002d, t01=0x0048}
0x46a2…46b4 Head {h00=0x000e, h01=0x0050, text=» B BDTB099«, t00=0x002d, t01=0x0064}
0x46b4…46c4 Head {h00=0x000c, h01=0x0050, text=»BDTB085 «, t00=0x002d, t01=0x0076}
0x46c4…46d4 Head {h00=0x000c, h01=0x0050, text=»BDTB095 «, t00=0x002d, t01=0x0086}
0x46d4…46e8 Head {h00=0x0010, h01=0x0050, text=» CLEAR CLOCK«, t00=0x002d, t01=0x0096}
0x46e8…4700 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x002d, t01=0x00aa}
0x4700…4710 Head {h00=0x000c, h01=0x0050, text=»BDTB099 «, t00=0x002d, t01=0x00c2}
0x4710…471c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x00d2}
0x471c…472a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x00de}
0x472a…4738 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00ec}
0x4738…474c Head {h00=0x0010, h01=0x0050, text=»TRINIT PROC «, t00=0x002d, t01=0x00fa}
0x474c…4756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x010e}
0x4756…478a Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE MOVES ALL TRANSACTIONRECORDS«, t00=0x002d, t01=0x0118}
0x478a…47ba Head {h00=0x002c, h01=0x0050, text=»* TO THE SPECIAL SUPPLIER CONTAINING ALL«, t00=0x002d, t01=0x014c}
0x47ba…47d0 Head {h00=0x0012, h01=0x0050, text=»* FREE RECORDS«, t00=0x002d, t01=0x017c}
0x47d0…47fa (46, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* GTDUPF(15) CONTAINS KEY OF LAST «, t00=0x002e, t01=0x0004}
0x47fa…4820 Head {h00=0x0022, h01=0x0050, text=»* READABLE/WRITABLE RECORD«, t00=0x002e, t01=0x002e}
0x4820…482a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0054}
0x482a…4846 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'10'«, t00=0x002e, t01=0x005e}
0x4846…485a Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x002e, t01=0x007a}
0x485a…4876 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN8,CBIN1 «, t00=0x002e, t01=0x008e}
0x4876…4898 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN17),=D'0'«, t00=0x002e, t01=0x00aa}
0x4898…48c2 Head {h00=0x0026, h01=0x0050, text=» PERF TRREAD,GSWBIN8 READ 1. TRANS«, t00=0x002e, t01=0x00cc}
0x48c2…48d6 Head {h00=0x0010, h01=0x0050, text=» BOK TRIN10 «, t00=0x002e, t01=0x00f6}
0x48d6…48e8 Head {h00=0x000e, h01=0x0050, text=» B TRIN95 «, t00=0x002e, t01=0x010a}
0x48e8…48f6 Head {h00=0x000a, h01=0x0050, text=»TRIN10«, t00=0x002e, t01=0x011c}
0x48f6…4918 Head {h00=0x001e, h01=0x0050, text=» CBNE GTWBCD1,=D'4',TRIN90«, t00=0x002e, t01=0x012a}
0x4918…492a Head {h00=0x000e, h01=0x0050, text=» B TRIN30 «, t00=0x002e, t01=0x014c}
0x492a…4938 Head {h00=0x000a, h01=0x0050, text=»TRIN20«, t00=0x002e, t01=0x015e}
0x4938…4954 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x002e, t01=0x016c}
0x4954…4968 Head {h00=0x0010, h01=0x0050, text=» BOK TRIN30 «, t00=0x002e, t01=0x0188}
0x4968…4996 Head {h00=0x002a, h01=0x0050, text=» CBE GTWBCD1,=D'10',TRIN25 END MEDIUM «, t00=0x002f, t01=0x000c}
0x4996…49a8 Head {h00=0x000e, h01=0x0050, text=» B TRIN40 «, t00=0x002f, t01=0x003a}
0x49a8…49ce Head {h00=0x0022, h01=0x0050, text=» CHANGE LAST POINTER TO ZERO«, t00=0x002f, t01=0x004c}
0x49ce…49dc Head {h00=0x000a, h01=0x0050, text=»TRIN25«, t00=0x002f, t01=0x0072}
0x49dc…4a00 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN17)«, t00=0x002f, t01=0x0080}
0x4a00…4a16 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x002f, t01=0x00a4}
0x4a16…4a32 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x002f, t01=0x00ba}
0x4a32…4a46 Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN95«, t00=0x002f, t01=0x00d6}
0x4a46…4a68 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN22),=D'0'«, t00=0x002f, t01=0x00ea}
0x4a68…4a84 Head {h00=0x0018, h01=0x0050, text=» PERF TRPUT,GSWBIN8 «, t00=0x002f, t01=0x010c}
0x4a84…4a98 Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN95«, t00=0x002f, t01=0x0128}
0x4a98…4abc Head {h00=0x0020, h01=0x0050, text=»* UPDATE VAR.INFO TO REFLECT«, t00=0x002f, t01=0x013c}
0x4abc…4af0 Head {h00=0x0030, h01=0x0050, text=»* 1) POINTER TO FIRST FREE RECORD (ALWAYS 1)«, t00=0x002f, t01=0x0160}
0x4af0…4b2c (48, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* 2) NUMBER OF FREE RECORDS (DEPENDING ON FILE SIZE)«, t00=0x0030, t01=0x0004}
0x4b2c…4b5c Head {h00=0x002c, h01=0x0050, text=» MOVE GTLEVNR,=D'10' FREE-LIST SUPPLIER «, t00=0x0030, t01=0x0040}
0x4b5c…4b7e Head {h00=0x001e, h01=0x0050, text=» PERF VARRD READ VAR.INFO «, t00=0x0030, t01=0x0070}
0x4b7e…4b92 Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN95«, t00=0x0030, t01=0x0092}
0x4b92…4bc0 Head {h00=0x002a, h01=0x0050, text=» MOVE GTTRKEY,CBIN1 FIRST IN FREE LIST«, t00=0x0030, t01=0x00a6}
0x4bc0…4bf8 Head {h00=0x0034, h01=0x0050, text=» MOVE GTREGF(CBIN11),GSWBIN8 NBR OF FREE RECORDS«, t00=0x0030, t01=0x00d4}
0x4bf8…4c1c Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(CBIN12),GSWBIN8«, t00=0x0030, t01=0x010c}
0x4c1c…4c38 Head {h00=0x0018, h01=0x0050, text=» PERF VARWRT REWRITE«, t00=0x0030, t01=0x0130}
0x4c38…4c4c Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN95«, t00=0x0030, t01=0x014c}
0x4c4c…4c5e Head {h00=0x000e, h01=0x0050, text=» B TRIN90 «, t00=0x0030, t01=0x0160}
0x4c5e…4c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0172}
0x4c68…4c76 Head {h00=0x000a, h01=0x0050, text=»TRIN30«, t00=0x0030, t01=0x017c}
0x4c76…4c94 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GSWBIN8 «, t00=0x0030, t01=0x018a}
0x4c94…4cb6 Head {h00=0x001e, h01=0x0050, text=» PERF SPLIN8,CBIN10,CBIN3 «, t00=0x0031, t01=0x0018}
0x4cb6…4ce0 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN2),=D'10' LEVNR «, t00=0x0031, t01=0x003a}
0x4ce0…4d0c Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN7),=D'0' VALORDATO «, t00=0x0031, t01=0x0064}
0x4d0c…4d34 Head {h00=0x0024, h01=0x0050, text=» MOVE GTDUPF(CBIN13),=D'0' NR-1 «, t00=0x0031, t01=0x0090}
0x4d34…4d5c Head {h00=0x0024, h01=0x0050, text=» MOVE GTDUPF(CBIN14),=D'0' NR-2 «, t00=0x0031, t01=0x00b8}
0x4d5c…4d86 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN18),=D'0' DATO-1 «, t00=0x0031, t01=0x00e0}
0x4d86…4db0 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN19),=D'0' DATO-2 «, t00=0x0031, t01=0x010a}
0x4db0…4dda Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'0' TEXTNR «, t00=0x0031, t01=0x0134}
0x4dda…4e06 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN21),=D'3' TEXTCODE «, t00=0x0031, t01=0x015e}
0x4e06…4e32 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN4),=D'0' UDB. BELOB«, t00=0x0031, t01=0x018a}
0x4e32…4e60 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN6),=D'0' REGNSKABS]R «, t00=0x0032, t01=0x0026}
0x4e60…4e8c Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN1),=D'0' REGKONTONR«, t00=0x0032, t01=0x0054}
0x4e8c…4ebc Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GSWBIN8 SYSTEM LEV «, t00=0x0032, t01=0x0080}
0x4ebc…4ef8 Head {h00=0x0038, h01=0x0050, text=» ADD GTDUPF(CBIN22),=D'1' PLUS ONE GIVES NEW POINTER«, t00=0x0032, t01=0x00b0}
0x4ef8…4f10 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0032, t01=0x00ec}
0x4f10…4f2c Head {h00=0x0018, h01=0x0050, text=» PERF TRPUT,GSWBIN8 «, t00=0x0032, t01=0x0104}
0x4f2c…4f40 Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN95«, t00=0x0032, t01=0x0120}
0x4f40…4f7e Head {h00=0x003a, h01=0x0050, text=» MOVE GTDUPF(CBIN17),GSWBIN8 SAVE LAST USEABLE POINTER«, t00=0x0032, t01=0x0134}
0x4f7e…4f98 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN8,CBIN1«, t00=0x0032, t01=0x0172}
0x4f98…4faa Head {h00=0x000e, h01=0x0050, text=» B TRIN20 «, t00=0x0032, t01=0x018c}
0x4faa…4fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x000e}
0x4fb4…4fe4 Head {h00=0x002c, h01=0x0050, text=»TRIN40 READ ERROR, DROP THE RECORD(S) «, t00=0x0033, t01=0x0018}
0x4fe4…5010 Head {h00=0x0028, h01=0x0050, text=» ADD GSWBIN8,CBIN1 CONTINUE TO READ «, t00=0x0033, t01=0x0048}
0x5010…5044 Head {h00=0x0030, h01=0x0050, text=» PERF TRREAD,GSWBIN8 UNTIL NO ERROR IS FOUND«, t00=0x0033, t01=0x0074}
0x5044…5058 Head {h00=0x0010, h01=0x0050, text=» BOK TRIN40A«, t00=0x0033, t01=0x00a8}
0x5058…507a Head {h00=0x001e, h01=0x0050, text=» CBE GTWBCD1,=D'10',TRIN25«, t00=0x0033, t01=0x00bc}
0x507a…508c Head {h00=0x000e, h01=0x0050, text=» B TRIN40 «, t00=0x0033, t01=0x00de}
0x508c…509c Head {h00=0x000c, h01=0x0050, text=»TRIN40A «, t00=0x0033, t01=0x00f0}
0x509c…50d4 Head {h00=0x0034, h01=0x0050, text=» MOVE GTDUPF(CBIN16),GSWBIN8 SAVE NEW RECORDNBR «, t00=0x0033, t01=0x0100}
0x50d4…50f8 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN17)«, t00=0x0033, t01=0x0138}
0x50f8…5106 Head {h00=0x000a, h01=0x0050, text=»TRIN41«, t00=0x0033, t01=0x015c}
0x5106…5134 Head {h00=0x002a, h01=0x0050, text=» PERF TRREAD,GSWBIN8 THE LAST USEABLE «, t00=0x0033, t01=0x016a}
0x5134…515a Head {h00=0x0022, h01=0x0050, text=» BOK TRIN43 HAS TO BE UPDATED «, t00=0x0034, t01=0x0008}
0x515a…5168 Head {h00=0x000a, h01=0x0050, text=»TRIN42«, t00=0x0034, t01=0x002e}
0x5168…5182 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN8,CBIN1«, t00=0x0034, t01=0x003c}
0x5182…51a2 Head {h00=0x001c, h01=0x0050, text=» B TRIN41 ONE MORE ERROR«, t00=0x0034, t01=0x0056}
0x51a2…51b0 Head {h00=0x000a, h01=0x0050, text=»TRIN43«, t00=0x0034, t01=0x0076}
0x51b0…51dc Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GTDUPF(CBIN16) «, t00=0x0034, t01=0x0084}
0x51dc…51f8 Head {h00=0x0018, h01=0x0050, text=» PERF TRPUT,GSWBIN8 «, t00=0x0034, t01=0x00b0}
0x51f8…520c Head {h00=0x0010, h01=0x0050, text=» BNOK TRIN42«, t00=0x0034, t01=0x00cc}
0x520c…5230 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN16)«, t00=0x0034, t01=0x00e0}
0x5230…5242 Head {h00=0x000e, h01=0x0050, text=» B TRIN20 «, t00=0x0034, t01=0x0104}
0x5242…524c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0116}
0x524c…525a Head {h00=0x000a, h01=0x0050, text=»TRIN90«, t00=0x0034, t01=0x0120}
0x525a…526e Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0034, t01=0x012e}
0x526e…528e Head {h00=0x001c, h01=0x0050, text=» CMP CBIN0,CBIN0 ALL OK «, t00=0x0034, t01=0x0142}
0x528e…52a0 Head {h00=0x000e, h01=0x0050, text=» B TRIN99 «, t00=0x0034, t01=0x0162}
0x52a0…52ae Head {h00=0x000a, h01=0x0050, text=»TRIN95«, t00=0x0034, t01=0x0174}
0x52ae…52c2 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0034, t01=0x0182}
0x52c2…52da Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0035, t01=0x0008}
0x52da…52e8 Head {h00=0x000a, h01=0x0050, text=»TRIN99«, t00=0x0035, t01=0x0020}
0x52e8…52f4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0035, t01=0x002e}
0x52f4…5302 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0035, t01=0x003a}
0x5302…5310 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0048}
0x5310…5326 Head {h00=0x0012, h01=0x0050, text=»TRINS PROC PT «, t00=0x0035, t01=0x0056}
0x5326…5366 Head {h00=0x003c, h01=0x0050, text=»* THE PROCEDURE INSERTS A TRANSACTION INTO THE TRANSFILE«, t00=0x0035, t01=0x006c}
0x5366…5392 Head {h00=0x0028, h01=0x0050, text=»* <PT> POINTS TO A FREE RECORD«, t00=0x0035, t01=0x00ac}
0x5392…53b0 Head {h00=0x001a, h01=0x0050, text=»* 1) LEV ALREADY READ «, t00=0x0035, t01=0x00d8}
0x53b0…53e4 Head {h00=0x0030, h01=0x0050, text=»* 2) MOVE POINTER FROM LEV TO 'FREE' RECORD «, t00=0x0035, t01=0x00f6}
0x53e4…5404 Head {h00=0x001c, h01=0x0050, text=»* 3) MOVE POINTER TO LEV«, t00=0x0035, t01=0x012a}
0x5404…543e Head {h00=0x0036, h01=0x0050, text=»* 4) WRITE 'FREE' RECORD AFTER PACKING FROM GTDUPF«, t00=0x0035, t01=0x014a}
0x543e…5456 Head {h00=0x0014, h01=0x0050, text=»* 5) UPDATE LEV «, t00=0x0035, t01=0x0184}
0x5456…546e Head {h00=0x0014, h01=0x0050, text=»* 6) REWRITE LEV«, t00=0x0036, t01=0x000c}
0x546e…547a Head {h00=0x0008, h01=0x0050, text=»* 1)«, t00=0x0036, t01=0x0024}
0x547a…5486 Head {h00=0x0008, h01=0x0050, text=»* 2)«, t00=0x0036, t01=0x0030}
0x5486…54aa Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GTTRKEY«, t00=0x0036, t01=0x003c}
0x54aa…54b6 Head {h00=0x0008, h01=0x0050, text=»* 3)«, t00=0x0036, t01=0x0060}
0x54b6…54ce Head {h00=0x0014, h01=0x0050, text=» MOVE GTTRKEY,PT«, t00=0x0036, t01=0x006c}
0x54ce…54da Head {h00=0x0008, h01=0x0050, text=»* 4)«, t00=0x0036, t01=0x0084}
0x54da…54f8 Head {h00=0x001a, h01=0x0050, text=» PERF TRPUT,PT INSERT «, t00=0x0036, t01=0x0090}
0x54f8…550e Head {h00=0x0012, h01=0x0050, text=» BNOK TRINS95 «, t00=0x0036, t01=0x00ae}
0x550e…551a Head {h00=0x0008, h01=0x0050, text=»* 5)«, t00=0x0036, t01=0x00c4}
0x551a…552e Head {h00=0x0010, h01=0x0050, text=» PERF WCHUPD«, t00=0x0036, t01=0x00d0}
0x552e…553a Head {h00=0x0008, h01=0x0050, text=»* 6)«, t00=0x0036, t01=0x00e4}
0x553a…555e Head {h00=0x0020, h01=0x0050, text=» CBNE GTLEVNR,=D'10',TRINS50«, t00=0x0036, t01=0x00f0}
0x555e…5592 Head {h00=0x0030, h01=0x0050, text=» ADD GTREGF(CBIN11),=D'1' AVAILABLE RECORDS «, t00=0x0036, t01=0x0114}
0x5592…55a2 Head {h00=0x000c, h01=0x0050, text=»TRINS50 «, t00=0x0036, t01=0x0148}
0x55a2…55b6 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x0036, t01=0x0158}
0x55b6…55cc Head {h00=0x0012, h01=0x0050, text=» BNOK TRINS95 «, t00=0x0036, t01=0x016c}
0x55cc…55e4 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0036, t01=0x0182}
0x55e4…55f6 Head {h00=0x000e, h01=0x0050, text=» B TRINS99«, t00=0x0037, t01=0x000a}
0x55f6…5606 Head {h00=0x000c, h01=0x0050, text=»TRINS95 «, t00=0x0037, t01=0x001c}
0x5606…561e Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0037, t01=0x002c}
0x561e…562e Head {h00=0x000c, h01=0x0050, text=»TRINS99 «, t00=0x0037, t01=0x0044}
0x562e…563a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0037, t01=0x0054}
0x563a…5648 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0037, t01=0x0060}
0x5648…5656 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x006e}
0x5656…566c Head {h00=0x0012, h01=0x0050, text=»TRGETF PROC PT«, t00=0x0037, t01=0x007c}
0x566c…56a4 Head {h00=0x0034, h01=0x0050, text=»* THE PROCEDURE GETS A RECORD FROM THE FREE LEV.«, t00=0x0037, t01=0x0092}
0x56a4…56ce Head {h00=0x0026, h01=0x0050, text=»* THE POINTER IS RETURNED IN <PT> «, t00=0x0037, t01=0x00ca}
0x56ce…56ea Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CVAREXFL«, t00=0x0037, t01=0x00f4}
0x56ea…5706 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'10'«, t00=0x0037, t01=0x0110}
0x5706…571a Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x0037, t01=0x012c}
0x571a…5730 Head {h00=0x0012, h01=0x0050, text=» BNOK TRGETF95«, t00=0x0037, t01=0x0140}
0x5730…574c Head {h00=0x0018, h01=0x0050, text=» PERF TRGET,CBIN0,PT«, t00=0x0037, t01=0x0156}
0x574c…5762 Head {h00=0x0012, h01=0x0050, text=» BNOK TRGETF95«, t00=0x0037, t01=0x0172}
0x5762…577a Head {h00=0x0014, h01=0x0050, text=» CLEAR CVAREXFL «, t00=0x0037, t01=0x0188}
0x577a…5792 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0038, t01=0x0010}
0x5792…57a6 Head {h00=0x0010, h01=0x0050, text=» B TRGETF99 «, t00=0x0038, t01=0x0028}
0x57a6…57b6 Head {h00=0x000c, h01=0x0050, text=»TRGETF95«, t00=0x0038, t01=0x003c}
0x57b6…57ce Head {h00=0x0014, h01=0x0050, text=» CLEAR CVAREXFL «, t00=0x0038, t01=0x004c}
0x57ce…57e6 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0038, t01=0x0064}
0x57e6…57f6 Head {h00=0x000c, h01=0x0050, text=»TRGETF99«, t00=0x0038, t01=0x007c}
0x57f6…5802 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x008c}
0x5802…5810 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x0098}
0x5810…5818 Head {h00=0x0004, h01=0x0050, t00=0x0038, t01=0x00a6}
0x5818…582e Head {h00=0x0012, h01=0x0050, text=»TRPUT PROC PT «, t00=0x0038, t01=0x00ae}
0x582e…586e Head {h00=0x003c, h01=0x0050, text=»* THE PROC WRITES THE RECORD TO THE SPECIFIED RECORDNBR «, t00=0x0038, t01=0x00c4}
0x586e…5882 Head {h00=0x0010, h01=0x0050, text=» PERF TRPACK«, t00=0x0038, t01=0x0104}
0x5882…58ae Head {h00=0x0028, h01=0x0050, text=» PERF RAWRIT,DK11,=D'11',GTREMBUF,PT«, t00=0x0038, t01=0x0118}
0x58ae…58c4 Head {h00=0x0012, h01=0x0050, text=» BNOK TRPUT95 «, t00=0x0038, t01=0x0144}
0x58c4…58dc Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0038, t01=0x015a}
0x58dc…58ee Head {h00=0x000e, h01=0x0050, text=» B TRPUT99«, t00=0x0038, t01=0x0172}
0x58ee…58fe Head {h00=0x000c, h01=0x0050, text=»TRPUT95 «, t00=0x0038, t01=0x0184}
0x58fe…5916 (57, 0, 400) Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0039, t01=0x0004}
0x5916…5926 Head {h00=0x000c, h01=0x0050, text=»TRPUT99 «, t00=0x0039, t01=0x001c}
0x5926…5932 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0039, t01=0x002c}
0x5932…5940 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0039, t01=0x0038}
0x5940…594e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0046}
0x594e…5964 Head {h00=0x0012, h01=0x0050, text=»TRREAD PROC PT«, t00=0x0039, t01=0x0054}
0x5964…596e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x006a}
0x596e…599c Head {h00=0x002a, h01=0x0050, text=»* THE PROCEDURE READS THE TRANSRECORD «, t00=0x0039, t01=0x0074}
0x599c…59d2 Head {h00=0x0032, h01=0x0050, text=»* WITH THE SPECIFIED RECORDNBR AND UNPACKS IT «, t00=0x0039, t01=0x00a2}
0x59d2…59dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d8}
0x59dc…59f8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'39'«, t00=0x0039, t01=0x00e2}
0x59f8…5a14 Head {h00=0x0018, h01=0x0050, text=» MOVE GTREMBUF,=' ' «, t00=0x0039, t01=0x00fe}
0x5a14…5a48 Head {h00=0x0030, h01=0x0050, text=» PERF RAREAD,DK11,=D'11',GTREMBUF,GSWBIN1,PT«, t00=0x0039, t01=0x011a}
0x5a48…5a5e Head {h00=0x0012, h01=0x0050, text=» BNOK TRREA95 «, t00=0x0039, t01=0x014e}
0x5a5e…5a72 Head {h00=0x0010, h01=0x0050, text=» PERF TRUNP «, t00=0x0039, t01=0x0164}
0x5a72…5a8a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0039, t01=0x0178}
0x5a8a…5a9c Head {h00=0x000e, h01=0x0050, text=» B TRREA99«, t00=0x0039, t01=0x0190}
0x5a9c…5aac Head {h00=0x000c, h01=0x0050, text=»TRREA95 «, t00=0x003a, t01=0x0012}
0x5aac…5ac4 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x003a, t01=0x0022}
0x5ac4…5ad4 Head {h00=0x000c, h01=0x0050, text=»TRREA99 «, t00=0x003a, t01=0x003a}
0x5ad4…5ae0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003a, t01=0x004a}
0x5ae0…5aee Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003a, t01=0x0056}
0x5aee…5afc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0064}
0x5afc…5b0e Head {h00=0x000e, h01=0x0050, text=»TRRMV PROC«, t00=0x003a, t01=0x0072}
0x5b0e…5b50 Head {h00=0x003e, h01=0x0050, text=»* THE PROCEDURE REMOVES THE CURRENT RECORD FROM THE CHAIN «, t00=0x003a, t01=0x0084}
0x5b50…5b8a Head {h00=0x0036, h01=0x0050, text=»* IN GTKFVAL A POINTER TO THE PREVIOUS RECORD MUST«, t00=0x003a, t01=0x00c6}
0x5b8a…5bbe Head {h00=0x0030, h01=0x0050, text=»* BE AVAILABLE, IN ORDER TO BE ABLE TO COPY «, t00=0x003a, t01=0x0100}
0x5bbe…5bfe Head {h00=0x003c, h01=0x0050, text=»* THE POINTER FROM THE REMOVED RECORD INTO THE PREVIOUS.«, t00=0x003a, t01=0x0134}
0x5bfe…5c22 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN3,GTDUPF(CBIN22)«, t00=0x003a, t01=0x0174}
0x5c22…5c52 Head {h00=0x002c, h01=0x0050, text=» CBE GSWBIN7,CBIN0,TRR10 FIRST IN CHAIN?«, t00=0x003b, t01=0x0008}
0x5c52…5c68 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x003b, t01=0x0038}
0x5c68…5c86 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GSWBIN7 «, t00=0x003b, t01=0x004e}
0x5c86…5ca2 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x003b, t01=0x006c}
0x5ca2…5cb6 Head {h00=0x0010, h01=0x0050, text=» BNOK TRR95 «, t00=0x003b, t01=0x0088}
0x5cb6…5cda Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GSWBIN3«, t00=0x003b, t01=0x009c}
0x5cda…5cf6 Head {h00=0x0018, h01=0x0050, text=» PERF TRPUT,GSWBIN8 «, t00=0x003b, t01=0x00c0}
0x5cf6…5d0a Head {h00=0x0010, h01=0x0050, text=» BNOK TRR95 «, t00=0x003b, t01=0x00dc}
0x5d0a…5d1a Head {h00=0x000c, h01=0x0050, text=» B TRR90«, t00=0x003b, t01=0x00f0}
0x5d1a…5d28 Head {h00=0x000a, h01=0x0050, text=»TRR10 «, t00=0x003b, t01=0x0100}
0x5d28…5d4c Head {h00=0x0020, h01=0x0050, text=» MOVE GTTRKEY,GTDUPF(CBIN22)«, t00=0x003b, t01=0x010e}
0x5d4c…5d60 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x003b, t01=0x0132}
0x5d60…5d74 Head {h00=0x0010, h01=0x0050, text=» BNOK TRR95 «, t00=0x003b, t01=0x0146}
0x5d74…5d84 Head {h00=0x000c, h01=0x0050, text=» B TRR90«, t00=0x003b, t01=0x015a}
0x5d84…5d92 Head {h00=0x000a, h01=0x0050, text=»TRR90 «, t00=0x003b, t01=0x016a}
0x5d92…5daa Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x003b, t01=0x0178}
0x5daa…5dba Head {h00=0x000c, h01=0x0050, text=» B TRR99«, t00=0x003b, t01=0x0190}
0x5dba…5dc8 Head {h00=0x000a, h01=0x0050, text=»TRR95 «, t00=0x003c, t01=0x0010}
0x5dc8…5de0 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x003c, t01=0x001e}
0x5de0…5dee Head {h00=0x000a, h01=0x0050, text=»TRR99 «, t00=0x003c, t01=0x0036}
0x5dee…5dfa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003c, t01=0x0044}
0x5dfa…5e08 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003c, t01=0x0050}
0x5e08…5e16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x005e}
0x5e16…5e30 Head {h00=0x0016, h01=0x0050, text=»TRGET PROC OLD,PT «, t00=0x003c, t01=0x006c}
0x5e30…5e64 Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE REMOVES THE TRANS POINTED AT«, t00=0x003c, t01=0x0086}
0x5e64…5e86 Head {h00=0x001e, h01=0x0050, text=»* BY <OLD> FROM THE CHAIN.«, t00=0x003c, t01=0x00ba}
0x5e86…5ebe Head {h00=0x0034, h01=0x0050, text=»* IF <OLD> = 0, THE VAR.INFO POINTER IS UPDATED.«, t00=0x003c, t01=0x00dc}
0x5ebe…5ed4 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x003c, t01=0x0114}
0x5ed4…5ef2 Head {h00=0x001a, h01=0x0050, text=» CBE OLD,CBIN0,TRGET30«, t00=0x003c, t01=0x012a}
0x5ef2…5f0a Head {h00=0x0014, h01=0x0050, text=» PERF TRREAD,OLD«, t00=0x003c, t01=0x0148}
0x5f0a…5f20 Head {h00=0x0012, h01=0x0050, text=» BNOK TRGET95 «, t00=0x003c, t01=0x0160}
0x5f20…5f64 Head {h00=0x0040, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22) MOVE THE POINTER RECENTLY READ «, t00=0x003c, t01=0x0176}
0x5f64…5f84 Head {h00=0x001c, h01=0x0050, text=» MOVE PT,GTDUPF(CBIN22) «, t00=0x003d, t01=0x002a}
0x5f84…5fa0 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x003d, t01=0x004a}
0x5fa0…5fb6 Head {h00=0x0012, h01=0x0050, text=» BNOK TRGET95 «, t00=0x003d, t01=0x0066}
0x5fb6…5fec Head {h00=0x0032, h01=0x0050, text=» PERF TRPUT,OLD UPDATE OLD WITH <PT>'S POINTER«, t00=0x003d, t01=0x007c}
0x5fec…6002 Head {h00=0x0012, h01=0x0050, text=» BNOK TRGET95 «, t00=0x003d, t01=0x00b2}
0x6002…6014 Head {h00=0x000e, h01=0x0050, text=» B TRGET90«, t00=0x003d, t01=0x00c8}
0x6014…603a Head {h00=0x0022, h01=0x0050, text=»TRGET30 FIRST TRANS IN CHAIN«, t00=0x003d, t01=0x00da}
0x603a…6058 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY «, t00=0x003d, t01=0x0100}
0x6058…6070 Head {h00=0x0014, h01=0x0050, text=» MOVE PT,GTTRKEY«, t00=0x003d, t01=0x011e}
0x6070…608c Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x003d, t01=0x0136}
0x608c…60a2 Head {h00=0x0012, h01=0x0050, text=» BNOK TRGET95 «, t00=0x003d, t01=0x0152}
0x60a2…60c6 Head {h00=0x0020, h01=0x0050, text=» MOVE GTTRKEY,GTDUPF(CBIN22)«, t00=0x003d, t01=0x0168}
0x60c6…60ea Head {h00=0x0020, h01=0x0050, text=» CBNE GTLEVNR,=D'10',TRGET80«, t00=0x003d, t01=0x018c}
0x60ea…611e Head {h00=0x0030, h01=0x0050, text=» SUB GTREGF(CBIN11),=D'1' AVAILABLE RECORDS «, t00=0x003e, t01=0x0020}
0x611e…6148 Head {h00=0x0026, h01=0x0050, text=» CBG GTREGF(CBIN11),=D'50',TRGET80«, t00=0x003e, t01=0x0054}
0x6148…6164 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'11'«, t00=0x003e, t01=0x007e}
0x6164…6180 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x003e, t01=0x009a}
0x6180…619c Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'50'«, t00=0x003e, t01=0x00b6}
0x619c…61be Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,='DISCFEJL '«, t00=0x003e, t01=0x00d2}
0x61be…61d2 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x003e, t01=0x00f4}
0x61d2…61e2 Head {h00=0x000c, h01=0x0050, text=»TRGET80 «, t00=0x003e, t01=0x0108}
0x61e2…61f6 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x003e, t01=0x0118}
0x61f6…620c Head {h00=0x0012, h01=0x0050, text=» BNOK TRGET95 «, t00=0x003e, t01=0x012c}
0x620c…621c Head {h00=0x000c, h01=0x0050, text=»TRGET90 «, t00=0x003e, t01=0x0142}
0x621c…6234 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x003e, t01=0x0152}
0x6234…6246 Head {h00=0x000e, h01=0x0050, text=» B TRGET99«, t00=0x003e, t01=0x016a}
0x6246…6256 Head {h00=0x000c, h01=0x0050, text=»TRGET95 «, t00=0x003e, t01=0x017c}
0x6256…626e Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x003e, t01=0x018c}
0x626e…627e Head {h00=0x000c, h01=0x0050, text=»TRGET99 «, t00=0x003f, t01=0x0014}
0x627e…628a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003f, t01=0x0024}
0x628a…6298 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003f, t01=0x0030}
0x6298…62a0 Head {h00=0x0004, h01=0x0050, t00=0x003f, t01=0x003e}
0x62a0…62a8 Head {h00=0x0004, h01=0x0050, t00=0x003f, t01=0x0046}
0x62a8…62b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x004e}
0x62b6…62c8 Head {h00=0x000e, h01=0x0050, text=»TRUNP PROC«, t00=0x003f, t01=0x005c}
0x62c8…62e8 Head {h00=0x001c, h01=0x0050, text=»* UNPACK INFO FROM TRANS«, t00=0x003f, t01=0x006e}
0x62e8…631e Head {h00=0x0032, h01=0x0050, text=»* IF GTSWFLAG IS SET, ONLY THE POINTER WILL BE«, t00=0x003f, t01=0x008e}
0x631e…6354 Head {h00=0x0032, h01=0x0050, text=»* UNPACKED, TO AVOID OVERWRITING THE OLD INFO «, t00=0x003f, t01=0x00c4}
0x6354…6370 Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,TRU070«, t00=0x003f, t01=0x00fa}
0x6370…63a6 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBIN1,=W'0',=W'2',GTREMBUF,=W'36'«, t00=0x003f, t01=0x0116}
0x63a6…63ca Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN20),GSWBIN1«, t00=0x003f, t01=0x014c}
0x63ca…63e6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x003f, t01=0x0170}
0x63e6…6418 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN0 «, t00=0x003f, t01=0x018c}
0x6418…6442 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN2),GSWBCD7 LEVNR «, t00=0x0040, t01=0x002e}
0x6442…645e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0040, t01=0x0058}
0x645e…6490 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN4,CBIN3,GTREMBUF,CBIN5 «, t00=0x0040, t01=0x0074}
0x6490…64be Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN7),GSWBCD7 VALORDATO «, t00=0x0040, t01=0x00a6}
0x64be…64f0 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBIN1,CBIN0,CBIN2,GTREMBUF,CBIN18«, t00=0x0040, t01=0x00d4}
0x64f0…651c Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN15),GSWBIN1 TEXTNR «, t00=0x0040, t01=0x0106}
0x651c…6538 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0040, t01=0x0132}
0x6538…656a Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBIN1,CBIN1,CBIN1,GTREMBUF,CBIN20«, t00=0x0040, t01=0x014e}
0x656a…658e Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN21),GSWBIN1«, t00=0x0040, t01=0x0180}
0x658e…65c0 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN0,CBIN7,GTREMBUF,CBIN21«, t00=0x0041, t01=0x0014}
0x65c0…65ee Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GSWBCD7 UDB. BELOB«, t00=0x0041, t01=0x0046}
0x65ee…660a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0041, t01=0x0074}
0x660a…6640 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'6',=W'1',GTREMBUF,=W'28'«, t00=0x0041, t01=0x0090}
0x6640…6670 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GSWBCD7 REGNSKABS]R «, t00=0x0041, t01=0x00c6}
0x6670…6696 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD7,=D'1' REGKONTONR«, t00=0x0041, t01=0x00f6}
0x6696…66cc Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'2',=W'5',GTREMBUF,=W'29'«, t00=0x0041, t01=0x011c}
0x66cc…66f0 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GSWBCD7 «, t00=0x0041, t01=0x0152}
0x66f0…6712 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN13),=D'0'«, t00=0x0041, t01=0x0176}
0x6712…6734 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN14),=D'0'«, t00=0x0042, t01=0x0008}
0x6734…6756 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN18),=D'0'«, t00=0x0042, t01=0x002a}
0x6756…6778 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN19),=D'0'«, t00=0x0042, t01=0x004c}
0x6778…6794 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0042, t01=0x006e}
0x6794…67ca Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,GTDUPF(CBIN21) TEXTCODE GOVERNS «, t00=0x0042, t01=0x008a}
0x67ca…67f2 Head {h00=0x0024, h01=0x0050, text=» UNPACKING OF TEXTINFO1 AND -2«, t00=0x0042, t01=0x00c0}
0x67f2…6810 Head {h00=0x001a, h01=0x0050, text=» MOVE GTTXTTKO,GSWBIN1«, t00=0x0042, t01=0x00e8}
0x6810…684e Head {h00=0x003a, h01=0x0050, text=» IB GSWBIN1,TRU010,TRU020,TRU030,TRU040,TRU050,TRU060 «, t00=0x0042, t01=0x0106}
0x684e…6874 Head {h00=0x0022, h01=0x0050, text=»TRU010 B TRU070 NO EXTRA INFO «, t00=0x0042, t01=0x0144}
0x6874…688a Head {h00=0x0012, h01=0x0050, text=»TRU020 NR-1 «, t00=0x0042, t01=0x016a}
0x688a…68a6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0042, t01=0x0180}
0x68a6…68d8 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN8 «, t00=0x0043, t01=0x000c}
0x68d8…68fc Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN13),GSWBCD7«, t00=0x0043, t01=0x003e}
0x68fc…690e Head {h00=0x000e, h01=0x0050, text=» B TRU070 «, t00=0x0043, t01=0x0062}
0x690e…6928 Head {h00=0x0016, h01=0x0050, text=»TRU030 NR-1 NR-2«, t00=0x0043, t01=0x0074}
0x6928…6944 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0043, t01=0x008e}
0x6944…6976 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN8 «, t00=0x0043, t01=0x00aa}
0x6976…699a Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN13),GSWBCD7«, t00=0x0043, t01=0x00dc}
0x699a…69cc Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN13«, t00=0x0043, t01=0x0100}
0x69cc…69f0 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN14),GSWBCD7«, t00=0x0043, t01=0x0132}
0x69f0…6a02 Head {h00=0x000e, h01=0x0050, text=» B TRU070 «, t00=0x0043, t01=0x0156}
0x6a02…6a1a Head {h00=0x0014, h01=0x0050, text=»TRU040 DATO-1 «, t00=0x0043, t01=0x0168}
0x6a1a…6a36 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0043, t01=0x0180}
0x6a36…6a68 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN8 «, t00=0x0044, t01=0x000c}
0x6a68…6a8c Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN18),GSWBCD7«, t00=0x0044, t01=0x003e}
0x6a8c…6a9e Head {h00=0x000e, h01=0x0050, text=» B TRU070 «, t00=0x0044, t01=0x0062}
0x6a9e…6abc Head {h00=0x001a, h01=0x0050, text=»TRU050 DATO-1 DATO-2«, t00=0x0044, t01=0x0074}
0x6abc…6ad8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0044, t01=0x0092}
0x6ad8…6b0a Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN8 «, t00=0x0044, t01=0x00ae}
0x6b0a…6b2e Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN18),GSWBCD7«, t00=0x0044, t01=0x00e0}
0x6b2e…6b60 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN13«, t00=0x0044, t01=0x0104}
0x6b60…6b84 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN19),GSWBCD7«, t00=0x0044, t01=0x0136}
0x6b84…6b96 Head {h00=0x000e, h01=0x0050, text=» B TRU070 «, t00=0x0044, t01=0x015a}
0x6b96…6bb2 Head {h00=0x0018, h01=0x0050, text=»TRU060 NR-1 DATO-1«, t00=0x0044, t01=0x016c}
0x6bb2…6bce Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0044, t01=0x0188}
0x6bce…6c00 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN8 «, t00=0x0045, t01=0x0014}
0x6c00…6c24 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN13),GSWBCD7«, t00=0x0045, t01=0x0046}
0x6c24…6c56 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,GTREMBUF,CBIN13«, t00=0x0045, t01=0x006a}
0x6c56…6c7a Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN18),GSWBCD7«, t00=0x0045, t01=0x009c}
0x6c7a…6c88 Head {h00=0x000a, h01=0x0050, text=»TRU070«, t00=0x0045, t01=0x00c0}
0x6c88…6cbe Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBIN1,=W'0',=W'2',GTREMBUF,=W'34'«, t00=0x0045, t01=0x00ce}
0x6cbe…6cf6 Head {h00=0x0034, h01=0x0050, text=» MOVE GTDUPF(CBIN22),GSWBIN1 NEXT TRANS POINTER «, t00=0x0045, t01=0x0104}
0x6cf6…6d02 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0045, t01=0x013c}
0x6d02…6d10 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0045, t01=0x0148}
0x6d10…6d1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0156}
0x6d1e…6d32 Head {h00=0x0010, h01=0x0050, text=»TRPACK PROC «, t00=0x0045, t01=0x0164}
0x6d32…6d70 Head {h00=0x003a, h01=0x0050, text=»* IF GTSWFLAG IS SET, ONLY THE POINTER WILL BE MOVED, «, t00=0x0045, t01=0x0178}
0x6d70…6d9a Head {h00=0x0026, h01=0x0050, text=»* TO AVOID OVERWRITING THE BUFFER «, t00=0x0046, t01=0x0026}
0x6d9a…6db6 Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,TRP070«, t00=0x0046, t01=0x0050}
0x6db6…6dd2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN0 «, t00=0x0046, t01=0x006c}
0x6dd2…6df4 Head {h00=0x001e, h01=0x0050, text=» CBG GTLEVNR,=D'18',TRP005«, t00=0x0046, t01=0x0088}
0x6df4…6e12 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GTLEVNR «, t00=0x0046, t01=0x00aa}
0x6e12…6e20 Head {h00=0x000a, h01=0x0050, text=»TRP005«, t00=0x0046, t01=0x00c8}
0x6e20…6e56 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'36',=W'2',GSWBIN2,=W'0'«, t00=0x0046, t01=0x00d6}
0x6e56…6e80 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN2) LEVNR «, t00=0x0046, t01=0x010c}
0x6e80…6eb2 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN0,CBIN5,GSWBCD7,CBIN2 «, t00=0x0046, t01=0x0136}
0x6eb2…6ed6 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD6,GTDUPF(CBIN7) «, t00=0x0046, t01=0x0168}
0x6ed6…6ef2 Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GSWBCD6«, t00=0x0046, t01=0x018c}
0x6ef2…6f24 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN5,CBIN3,GSWBCD7,CBIN4 «, t00=0x0047, t01=0x0018}
0x6f24…6f50 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN2,GTDUPF(CBIN15) TEXTNR «, t00=0x0047, t01=0x004a}
0x6f50…6f82 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN18,CBIN2,GSWBIN2,CBIN0«, t00=0x0047, t01=0x0076}
0x6f82…6faa Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN2,GTTXTTKO TEXTKODE «, t00=0x0047, t01=0x00a8}
0x6faa…6fdc Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN20,CBIN1,GSWBIN2,CBIN1«, t00=0x0047, t01=0x00d0}
0x6fdc…700a Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN4) UDB. BELOB«, t00=0x0047, t01=0x0102}
0x700a…703c Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN21,CBIN7,GSWBCD7,CBIN0«, t00=0x0047, t01=0x0130}
0x703c…706c Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN6) REGNSKABS]R «, t00=0x0047, t01=0x0162}
0x706c…70a2 (72, 0, 400) Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'28',=W'1',GSWBCD7,=W'6'«, t00=0x0048, t01=0x0004}
0x70a2…70d0 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN1) REGKONTONR«, t00=0x0048, t01=0x003a}
0x70d0…7106 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'29',=W'5',GSWBCD7,=W'2'«, t00=0x0048, t01=0x0068}
0x7106…7124 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTTXTTKO«, t00=0x0048, t01=0x009e}
0x7124…7162 Head {h00=0x003a, h01=0x0050, text=» IB GSWBIN1,TRP010,TRP020,TRP030,TRP040,TRP050,TRP060 «, t00=0x0048, t01=0x00bc}
0x7162…7174 Head {h00=0x000e, h01=0x0050, text=» B TRP070 «, t00=0x0048, t01=0x00fa}
0x7174…7192 Head {h00=0x001a, h01=0x0050, text=»TRP010 NO EXTRA INFO«, t00=0x0048, t01=0x010c}
0x7192…71a4 Head {h00=0x000e, h01=0x0050, text=» B TRP070 «, t00=0x0048, t01=0x012a}
0x71a4…71ba Head {h00=0x0012, h01=0x0050, text=»TRP020 NR-1 «, t00=0x0048, t01=0x013c}
0x71ba…71de Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN13)«, t00=0x0048, t01=0x0152}
0x71de…71ec Head {h00=0x000a, h01=0x0050, text=»TRP025«, t00=0x0048, t01=0x0176}
0x71ec…721e Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN8,CBIN5,GSWBCD7,CBIN2 «, t00=0x0048, t01=0x0184}
0x721e…7230 Head {h00=0x000e, h01=0x0050, text=» B TRP070 «, t00=0x0049, t01=0x0026}
0x7230…724a Head {h00=0x0016, h01=0x0050, text=»TRP030 NR-1 NR-2«, t00=0x0049, t01=0x0038}
0x724a…726e Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN13)«, t00=0x0049, t01=0x0052}
0x726e…72a0 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN8,CBIN5,GSWBCD7,CBIN2 «, t00=0x0049, t01=0x0076}
0x72a0…72c4 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN14)«, t00=0x0049, t01=0x00a8}
0x72c4…72d2 Head {h00=0x000a, h01=0x0050, text=»TRP035«, t00=0x0049, t01=0x00cc}
0x72d2…7304 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN13,CBIN5,GSWBCD7,CBIN2«, t00=0x0049, t01=0x00da}
0x7304…7316 Head {h00=0x000e, h01=0x0050, text=» B TRP070 «, t00=0x0049, t01=0x010c}
0x7316…732e Head {h00=0x0014, h01=0x0050, text=»TRP040 DATO-1 «, t00=0x0049, t01=0x011e}
0x732e…7352 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN18)«, t00=0x0049, t01=0x0136}
0x7352…7364 Head {h00=0x000e, h01=0x0050, text=» B TRP025 «, t00=0x0049, t01=0x015a}
0x7364…7372 Head {h00=0x000a, h01=0x0050, text=»TRP050«, t00=0x0049, t01=0x016c}
0x7372…7396 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN18)«, t00=0x0049, t01=0x017a}
0x7396…73c8 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN8,CBIN5,GSWBCD7,CBIN2 «, t00=0x004a, t01=0x000e}
0x73c8…73ec Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN19)«, t00=0x004a, t01=0x0040}
0x73ec…73fe Head {h00=0x000e, h01=0x0050, text=» B TRP035 «, t00=0x004a, t01=0x0064}
0x73fe…740c Head {h00=0x000a, h01=0x0050, text=»TRP060«, t00=0x004a, t01=0x0076}
0x740c…7430 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN13)«, t00=0x004a, t01=0x0084}
0x7430…7462 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN8,CBIN5,GSWBCD7,CBIN2 «, t00=0x004a, t01=0x00a8}
0x7462…7486 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN18)«, t00=0x004a, t01=0x00da}
0x7486…7498 Head {h00=0x000e, h01=0x0050, text=» B TRP035 «, t00=0x004a, t01=0x00fe}
0x7498…74a6 Head {h00=0x000a, h01=0x0050, text=»TRP070«, t00=0x004a, t01=0x0110}
0x74a6…74d2 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN2,GTDUPF(CBIN22) POINTER«, t00=0x004a, t01=0x011e}
0x74d2…7508 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTREMBUF,=W'34',=W'2',GSWBIN2,=W'0'«, t00=0x004a, t01=0x014a}
0x7508…7514 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x0180}
0x7514…7522 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004a, t01=0x018c}
0x7522…7530 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x000a}
0x7530…7544 Head {h00=0x0010, h01=0x0050, text=»SETLEV PROC «, t00=0x004b, t01=0x0018}
0x7544…756e Head {h00=0x0026, h01=0x0050, text=»* INITIATES A LEV FOR PRINT OUT «, t00=0x004b, t01=0x002c}
0x756e…758a Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNVN,=' ' «, t00=0x004b, t01=0x0056}
0x758a…75c2 Head {h00=0x0034, h01=0x0050, text=» EDIT GSWSTR20,FSAMLEV LEV MISSING, INSERT IDENT«, t00=0x004b, t01=0x0072}
0x75c2…75f6 Head {h00=0x0030, h01=0x0050, text=» XCOPY GTLEVNVN,CBIN9,CBIN10,GSWSTR20,CBIN0 «, t00=0x004b, t01=0x00aa}
0x75f6…7612 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVADR,=' ' «, t00=0x004b, t01=0x00de}
0x7612…762c Head {h00=0x0016, h01=0x0050, text=» MOVE GTLEVBY,=' '«, t00=0x004b, t01=0x00fa}
0x762c…7648 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVPDI,=' ' «, t00=0x004b, t01=0x0114}
0x7648…7664 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVPNR,=D'0'«, t00=0x004b, t01=0x0130}
0x7664…7670 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004b, t01=0x014c}
0x7670…767e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004b, t01=0x0158}
0x767e…7686 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0166}
0x7686…769a Head {h00=0x0010, h01=0x0050, text=»FSAMLEV FRMT«, t00=0x004b, t01=0x016e}
0x769a…76bc Head {h00=0x001e, h01=0x0050, text=» FMEL '9999999999',GTLEVNR«, t00=0x004b, t01=0x0182}
0x76bc…76ca Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004c, t01=0x0014}
0x76ca…76d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x0022}
0x76d8…76e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0030}
0x76e2…76f8 Head {h00=0x0012, h01=0x0050, text=»* FORMATS «, t00=0x004c, t01=0x003a}
0x76f8…7702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0050}
0x7702…7716 Head {h00=0x0010, h01=0x0050, text=»FRMSPE FRMT «, t00=0x004c, t01=0x005a}
0x7716…7722 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004c, t01=0x006e}
0x7722…773a Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVTXT «, t00=0x004c, t01=0x007a}
0x773a…774e Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x004c, t01=0x0092}
0x774e…7764 Head {h00=0x0012, h01=0x0050, text=» FCOPY SPINPUT«, t00=0x004c, t01=0x00a6}
0x7764…7778 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x004c, t01=0x00bc}
0x7778…77a6 Head {h00=0x002a, h01=0x0050, text=» FMEL 'ZZZZZZZVZZ9,99-',GTDUPF(CBIN4) «, t00=0x004c, t01=0x00d0}
0x77a6…77b4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004c, t01=0x00fe}
0x77b4…77bc Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x010c}
0x77bc…77d2 Head {h00=0x0012, h01=0x0050, text=»FBDTSLUT FRMT «, t00=0x004c, t01=0x0114}
0x77d2…77de Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004c, t01=0x012a}
0x77de…780a Head {h00=0x0028, h01=0x0050, text=» FBT CSWFLAG,FBDTSL10 GRAND TOTAL ? «, t00=0x004c, t01=0x0136}
0x780a…7816 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004c, t01=0x0162}
0x7816…783e Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZZZZZVZZ9,99-',GTBSUM2 «, t00=0x004c, t01=0x016e}
0x783e…7854 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x004d, t01=0x0008}
0x7854…786a Head {h00=0x0012, h01=0x0050, text=» FCOPY ='SIDE'«, t00=0x004d, t01=0x001e}
0x786a…7882 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='TOTAL' «, t00=0x004d, t01=0x0034}
0x7882…7896 Head {h00=0x0010, h01=0x0050, text=» FB FBDTSL99«, t00=0x004d, t01=0x004c}
0x7896…78a6 Head {h00=0x000c, h01=0x0050, text=»FBDTSL10«, t00=0x004d, t01=0x0060}
0x78a6…78d8 Head {h00=0x002e, h01=0x0050, text=» FMEL 'ZZZZZZZVZZ9,99-',GTBSUM3 PAGETOTAL «, t00=0x004d, t01=0x0070}
0x78d8…78ee Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x004d, t01=0x00a2}
0x78ee…7906 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='TOTAL' «, t00=0x004d, t01=0x00b8}
0x7906…791c Head {h00=0x0012, h01=0x0050, text=» FTEXT ' IALT'«, t00=0x004d, t01=0x00d0}
0x791c…7938 Head {h00=0x0018, h01=0x0050, text=» FMEL 'ZZZZ',GSWBCD4«, t00=0x004d, t01=0x00e6}
0x7938…7952 Head {h00=0x0016, h01=0x0050, text=» FTEXT ' SIDE(R)' «, t00=0x004d, t01=0x0102}
0x7952…7962 Head {h00=0x000c, h01=0x0050, text=»FBDTSL99«, t00=0x004d, t01=0x011c}
0x7962…796e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x012c}
0x796e…797a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x0138}
0x797a…7988 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004d, t01=0x0144}
0x7988…7990 Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0152}
0x7990…799a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x015a}
0x799a…79ae Head {h00=0x0010, h01=0x0050, text=»FRMTNVN FRMT«, t00=0x004d, t01=0x0164}
0x79ae…79c2 Head {h00=0x0010, h01=0x0050, text=» FILLR '+',2«, t00=0x004d, t01=0x0178}
0x79c2…79da Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVNVN «, t00=0x004d, t01=0x018c}
0x79da…79e6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x0014}
0x79e6…79fe Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVADR «, t00=0x004e, t01=0x0020}
0x79fe…7a0a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x0038}
0x7a0a…7a20 Head {h00=0x0012, h01=0x0050, text=» FCOPY GTLEVBY«, t00=0x004e, t01=0x0044}
0x7a20…7a2c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x005a}
0x7a2c…7a4a Head {h00=0x001a, h01=0x0050, text=» FMEL 'ZZZZ',GTLEVPNR «, t00=0x004e, t01=0x0066}
0x7a4a…7a5e Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004e, t01=0x0084}
0x7a5e…7a76 Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVPDI «, t00=0x004e, t01=0x0098}
0x7a76…7a84 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004e, t01=0x00b0}
0x7a84…7a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00be}
0x7a8e…7a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00c8}
0x7a98…7aac Head {h00=0x0010, h01=0x0050, text=»FKRE10 FRMT «, t00=0x004e, t01=0x00d2}
0x7aac…7ab8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x00e6}
0x7ab8…7ace Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',47 «, t00=0x004e, t01=0x00f2}
0x7ace…7af0 Head {h00=0x001e, h01=0x0050, text=» FMEL 'ZZZ9999999',GTLEVNR«, t00=0x004e, t01=0x0108}
0x7af0…7b06 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',10 «, t00=0x004e, t01=0x012a}
0x7b06…7b26 Head {h00=0x001c, h01=0x0050, text=» FMEL 'ZZZZZZZ',GTLEVGI «, t00=0x004e, t01=0x0140}
0x7b26…7b32 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x0160}
0x7b32…7b3e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x016c}
0x7b3e…7b4c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004e, t01=0x0178}
0x7b4c…7b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0186}
0x7b56…7b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0190}
0x7b60…7b74 Head {h00=0x0010, h01=0x0050, text=»FKRE20 FRMT «, t00=0x004f, t01=0x000a}
0x7b74…7b80 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004f, t01=0x001e}
0x7b80…7b8c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004f, t01=0x002a}
0x7b8c…7b98 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004f, t01=0x0036}
0x7b98…7ba4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004f, t01=0x0042}
0x7ba4…7bc4 Head {h00=0x001c, h01=0x0050, text=» FCOPY ='SPECIFIKATION '«, t00=0x004f, t01=0x004e}
0x7bc4…7be6 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'AF FREMSENDT BEL' «, t00=0x004f, t01=0x006e}
0x7be6…7bfc Head {h00=0x0012, h01=0x0050, text=» FILLR X'5C',1«, t00=0x004f, t01=0x0090}
0x7bfc…7c14 Head {h00=0x0014, h01=0x0050, text=» FTEXT 'B PR. ' «, t00=0x004f, t01=0x00a6}
0x7c14…7c30 Head {h00=0x0018, h01=0x0050, text=» FBT CBDTGIR,FKREL21«, t00=0x004f, t01=0x00be}
0x7c30…7c48 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'CHECK'«, t00=0x004f, t01=0x00da}
0x7c48…7c5c Head {h00=0x0010, h01=0x0050, text=» FB FKREL22 «, t00=0x004f, t01=0x00f2}
0x7c5c…7c6c Head {h00=0x000c, h01=0x0050, text=»FKREL21 «, t00=0x004f, t01=0x0106}
0x7c6c…7c84 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'GIRO '«, t00=0x004f, t01=0x0116}
0x7c84…7c94 Head {h00=0x000c, h01=0x0050, text=»FKREL22 «, t00=0x004f, t01=0x012e}
0x7c94…7ca8 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004f, t01=0x013e}
0x7ca8…7cc0 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'DATO' «, t00=0x004f, t01=0x0152}
0x7cc0…7cd4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004f, t01=0x016a}
0x7cd4…7cf6 Head {h00=0x001e, h01=0x0050, text=» FMEL '99V99V99',GTPRTDAT «, t00=0x004f, t01=0x017e}
0x7cf6…7d0a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',5«, t00=0x0050, t01=0x0010}
0x7d0a…7d22 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'SIDE' «, t00=0x0050, t01=0x0024}
0x7d22…7d3e Head {h00=0x0018, h01=0x0050, text=» FMEL 'ZZZZ',GSWBCD4«, t00=0x0050, t01=0x003c}
0x7d3e…7d4a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0050, t01=0x0058}
0x7d4a…7d56 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0050, t01=0x0064}
0x7d56…7d64 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0050, t01=0x0070}
0x7d64…7d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x007e}
0x7d6e…7d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0088}
0x7d78…7d8c Head {h00=0x0010, h01=0x0050, text=»REOFMT1 FRMT«, t00=0x0050, t01=0x0092}
0x7d8c…7da0 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0050, t01=0x00a6}
0x7da0…7dba Head {h00=0x0016, h01=0x0050, text=» FTEXT 'DIFF. P] '«, t00=0x0050, t01=0x00ba}
0x7dba…7ddc Head {h00=0x001e, h01=0x0050, text=» FMEL 'ZZZ9999999',GTLEVNR«, t00=0x0050, t01=0x00d4}
0x7ddc…7df2 Head {h00=0x0012, h01=0x0050, text=» FTEXT ' OPR.'«, t00=0x0050, t01=0x00f6}
0x7df2…7e20 Head {h00=0x002a, h01=0x0050, text=» FMEL 'ZZZZZZZVZZ9,99-',GTREGF(CBIN16)«, t00=0x0050, t01=0x010c}
0x7e20…7e2e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0050, t01=0x013a}
0x7e2e…7e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0148}
0x7e38…7e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0152}
0x7e42…7e58 Head {h00=0x0012, h01=0x0050, text=»FLASTLEV FRMT «, t00=0x0050, t01=0x015c}
0x7e58…7e6c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0050, t01=0x0172}
0x7e6c…7e92 Head {h00=0x0022, h01=0x0050, text=» FTEXT 'LOGISK FEJL P] LEVNR.'«, t00=0x0050, t01=0x0186}
0x7e92…7eb4 Head {h00=0x001e, h01=0x0050, text=» FMEL 'ZZZ9999999',GTLEVNR«, t00=0x0051, t01=0x001c}
0x7eb4…7ec2 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0051, t01=0x003e}
0x7ec2…7ed6 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0051, t01=0x004c}
0x7ed6…7ef8 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'REORG. P]KR[VET.' «, t00=0x0051, t01=0x0060}
0x7ef8…7f06 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0051, t01=0x0082}
0x7f06…7f14 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0051, t01=0x0090}
0x7f14…7f20 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0051, t01=0x009e}
0x7f20…7f24 Head {h00=0x4004, h01=0x0000}
0x7f24…7f28 00 51 00 aa ┆ Q ┆
0x7f28…7f30 (82, 1, 8) 20 04 00 00 00 52 00 04 ┆ R ┆
0x7f30…7f80 (83, 2, 176) 00 00 00 02 94 d6 ff f4 01 00 87 1c 50 00 01 02 82 56 00 02 e1 49 ff fe 81 40 00 24 87 25 a0 41 00 47 01 88 00 0c 00 08 02 03 a2 49 3a 52 54 31 00 48 00 28 00 2c 00 28 03 13 80 00 00 b5 20 00 00 00 8f 20 00 00 00 08 e3 26 e3 23 91 a0 00 01 ┆ P V I @ $ % A G I:RT1 H ( , ( & # ┆
0x7f80…7fd0 90 a0 00 01 19 01 54 00 f0 3a 1d 01 59 16 03 20 00 48 00 38 00 0e 00 0a 03 04 00 00 00 d3 00 00 5f 18 00 48 00 68 00 1c 00 18 04 0b 60 00 00 2b 50 12 00 6b 00 ba 00 83 00 ba 00 a1 50 02 00 c9 54 02 00 48 00 7a 00 0e 00 0a 07 04 00 00 00 00 ┆ T : Y H 8 _ H h ` +P k P T H z ┆
0x7fd0…7fe0 00 d4 00 00 00 48 00 9a 40 04 00 00 00 48 00 ac ┆ H @ H ┆
0x7fe0…8030 (84, 0, 398) 00 34 00 46 20 20 49 44 45 4e 54 20 20 54 3a 44 4d 52 20 20 20 20 50 2c 52 45 4c 3d 34 2e 32 2c 37 39 31 31 31 36 2c 38 37 30 31 33 36 39 34 30 34 32 30 20 00 4d 00 04 00 26 00 22 01 10 c4 54 3a 52 52 45 41 4b c4 54 3a 52 52 45 31 00 c4 54 ┆ 4 F IDENT T:DMR P,REL=4.2,791116,870136940420 M & " T:RREAK T:RRE1 T┆
0x8030…8080 3a 52 57 52 49 c4 c4 54 3a 52 57 52 31 00 00 4d 00 3c 00 10 00 0c 05 05 dc 54 3a 52 52 45 41 4b 00 00 00 4d 00 66 00 0e 00 0a 02 04 c2 54 3a 46 44 53 50 d3 00 4d 00 7a 00 10 00 0c 05 05 dc 54 3a 52 52 45 31 00 00 04 00 4d 00 8c 00 0e 00 0a ┆:RWRI T:RWR1 M < T:RREAK M f T:FDSP M z T:RRE1 M ┆
0x8080…80d0 02 04 c2 49 3a 45 56 41 30 ff 00 4d 00 a0 00 0e 00 0a 02 04 c2 54 3a 53 54 43 57 a0 00 4d 00 b2 00 2c 00 28 03 13 00 00 00 01 41 00 f6 a1 00 00 00 02 f6 a1 00 00 86 14 f6 a1 00 00 00 04 81 c3 00 0e 81 26 50 04 81 43 00 04 f6 a1 00 4d 00 c4 ┆ I:EVA0 M T:STCW M , ( A &P C M ┆
0x80d0…8120 00 0c 00 08 02 03 a2 54 3a 49 4f 32 00 4d 00 f4 00 10 00 0c 05 05 dc 54 3a 52 57 52 49 c4 00 24 00 4d 01 04 00 10 00 0c 05 05 dc 54 3a 52 57 52 31 00 00 28 00 4d 01 18 00 0c 00 08 02 03 a2 54 3a 49 4f 31 00 4d 01 2c 00 2c 00 28 03 13 00 00 ┆ T:IO2 M T:RWRI $ M T:RWR1 ( M T:IO1 M , , ( ┆
0x8120…816e 00 1d 89 08 00 00 00 06 2f 0a 8f 20 00 00 00 08 f6 a1 00 00 00 02 f6 a1 00 00 f6 a1 00 00 00 06 2f 0b 8f 20 00 4d 01 3c 00 22 00 1e 03 0e 00 00 00 35 90 00 00 00 00 0a f6 a1 00 00 00 04 81 c3 00 02 9d 06 85 43 00 04 f0 3a 00 4d 01 6c ┆ / / M < " 5 C : M l┆