|
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: 30344 (0x7688)
Notes: pts_type(SC)
Names: »RGKLAR.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/RGKLAR.SC«
IDENT RGKLAR 820615 NJ DDUM KMD08 PDIV ENTRY RGKLAR ENTRY CLEJ ENTRY CLEDB ENTRY CLBEH ENTRY CLKF ENTRY RGA120 ENTRY ZERO ENTRY SKIFT ENTRY STRTWR ENTRY STRTID ENTRY SLUTID ENTRY BCKUP ENTRY KLRFMT * EXT ADM EXT SOPRD EXT LAMPON EXT LAMPOF EXT WRITJT EXT SPCLRN EXT SPCLRA EXT PACKCL EXT CLEAR8 EXT SPLIN8 EXT GRASPV EXT FRMXVO EXT KORT EXT TCONFW EXT RAREAD EXT RAWRIT EXT ASGVOL EXT CLSVOL EXT WRITID EXT CNFWRT EXT RADEL EXT SETKRE EXT SETDEB EXT INITRG EXT SLUT EXT CONFWR EXT WRITFD EXT CRKJ EXT BACKUP EXT CONRDX EXT RSTORE EXT KFWRIT EXT KFREAD EXT KTPLAN EXT WAITF INCLUDE EQUATE EJECT RGKLAR SET SPPROMPT MOVE SPKEY,CBIN2 ATTFMT ADFRM01 PERF SPCLRA IB SPBINW2, C RGKLAR,RGKLAR,RGKLAR,RGKLAR,RGA100, C RGA200,RGA300,RGKLAR,RGKLAR,RGA007 B RGKLAR * RGA007 GO ONLINE TBT CCONVERT,RGKLAR PERF ADM,CBIN7 B RGKLAR * RGA100 * ******************************************************** * * OPEN ROUTINE * ******************************************************** * TBT CCONVERT,RGKLAR TBF GTTTPFLG,RGKLAR NO TTP TBT CCONVFLG,RGKLAR CLEAR GTDYFLG SET SPPROMPT SET SPME MOVE GSWBCD3,=X'FF' ERASE CBG GTDATO,=D'1',RGA105 MOVE GTDATO,=X'FF' RGA105 ATTFMT OPENFRM PERF SPCLRN IB SPBINW2,RGKLAR,RGKLAR,RGA110 B RGKLAR RGA110 MOVE TTEJEDB,=D'0' MUL TTSTLBNR,=D'-1' SET POSITIVE (OPEN) MUL CMASK(TTASKNR),=D'-1' SET CMASK >0, OPEN MOVE TTCASH,TTSTCASH CBNE TTSTLBNR,=D'0',RGA115 MOVE TTSTLBNR,=D'1' RGA115 MOVE TTLBNR,TTSTLBNR SUB TTLBNR,=D'1' MOVE TTRECOPN,CRECBCD PERF ZERO PERF TCONFW,TTASKNR STORE INF FROM ADM FUNC. PERF CONFWR PERF WRITJT,=W'5' OPEN MES ON JT SET GTKASSE ADD CTASKNR,CBIN1 RGA120 PERF INITRG START REGISTRATION PERF TCLOSE CLOSE BNOK RGA120 SUB CTASKNR,CBIN1 B RGKLAR EJECT TCLOSE PROC MOVE SPKEY,CBIN2 TCL000 SET SPPROMPT ATTFMT CLFRM01 PERF SPCLRA IB SPBINW2,TCLMAK,TCLMAK,TCL010 B TCL000 TCL010 * CLEAR FLAGS CLEAR GTSUMKEY CLEAR TTTSTFLG CLEAR TTCY1FLG CLEAR TTCY2FLG CLEAR TTLSTFLG CLEAR TTPSEFLG CLEAR TTSUMFLG CLEAR TTSUPFLG CLEAR GTCYFLG CLEAR GTSUBFLG CLEAR GTBDTFLG CLEAR GTSTRFLG CLEAR GTKORTFL MOVE TTSUPMRK,=' ' MOVE GTTEXT,=' ' MOVE GTSUM,=D'0' WAIT KVOUCH DSC0 KVOUCH,RLEAS * TR12 ACCUMULATORS MOVE GTREGNR,=D'2' MOVE GTREGDEX,CBIN2 PERF PACKCL MOVE GSWBIN1,CBIN1 TCL025 MOVE GTDUPF(GSWBIN1),=X'FF' ADD GSWBIN1,CBIN1 CBL GSWBIN1,CBINMAX,TCL025 MOVE GSWBCD5,=D'0' TCL030 ADD GSWBCD5,=D'1' ACC NR TCL035 MOVE GSWBIN5,GSWBCD5 CONVERT CBG GSWBIN5,CTR12(TTASKNR,CBIN2),TCL090 ADD GSWBIN5,CTR12(TTASKNR,CBIN1) MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5) CBE GTDUPF(CBIN1),=D'0',TCL030 MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATED MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) CBE GTDUPF(CBIN4),=D'0',TCL040 MOVE GTUSED(CBIN4),=W'-8' MOVE GSWSTR20,=C'EJ-EDB T[LLER ' MOVE GTWBCD1,GSWBCD5 PERF TR2GEN,CBIN1 GENERATE TR2 WITH KREDIT BNOK TCL035 TCL040 MOVE GSWBIN5,GSWBCD5 ADD GSWBIN5,CTR12(TTASKNR,CBIN1) MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2) CBE GTDUPF(CBIN4),=D'0',TCL030 MOVE GTUSED(CBIN4),=W'-8' MOVE GSWSTR20,=C'EJ-EDB T[LLER ' MOVE GTWBCD1,GSWBCD5 PERF TR2GEN,CBIN2 GENERATE TR2 WITH DEBET BNOK TCL040 B TCL030 TCL090 MOVE GSWSTR9,=C'TOTAL ' PERF CLEJ EJ EDB MOVE TTEJEDB,=D'0' EJECT * VERSUR AND PENGEKONTI TBF CSTRKFLG,TCL150 MOVE GSWBCD5,=D'0' B TCL130 TCL110 * VERSUR MOVE GSWBIN5,GSWBCD5 PERF KFREAD,CBIN3,CBIN0,GSWBIN5,GTKFVAL KONTONR BNOK TCL130 CBE GTKFVAL,=D'0',TCL130 MOVE GTDUPF(CBIN1),GTKFVAL MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATE PERF KFREAD,CBIN3,CBIN1,GSWBIN5,GTKFVAL KREDIT BNOK TCL120 CBE GTKFVAL,=D'0',TCL120 MOVE GTDUPF(CBIN4),GTKFVAL MOVE GTUSED(CBIN4),=W'-8' MOVE GTWBCD1,GSWBCD5 BFO NR MOVE GSWSTR20,=C'VERSUR KONTO ' PERF TR2GEN,CBIN1 GENERATE TR2 DEBET BNOK TCL120 TCL120 MOVE GSWBIN5,GSWBCD5 PERF KFREAD,CBIN3,CBIN2,GSWBIN5,GTKFVAL DEBET BNOK TCL130 CBE GTKFVAL,=D'0',TCL130 MOVE GTDUPF(CBIN4),GTKFVAL MOVE GTUSED(CBIN4),=W'-8' MOVE GTWBCD1,GSWBCD5 BFONR MOVE GSWSTR20,=C'VERSUR KONTO ' PERF TR2GEN,CBIN2 GENERATE TR2 KREDIT BNOK TCL130 TCL130 * PENGE MOVE GSWBIN5,GSWBCD5 PERF KFREAD,CBIN2,CBIN0,GSWBIN5,GTKFVAL KONTONR BNOK TCL140 CBE GTKFVAL,=D'0',TCL140 MOVE GTDUPF(CBIN1),GTKFVAL MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATE PERF KFREAD,CBIN2,CBIN1,GSWBIN5,GTKFVAL BEV BNOK TCL140 CBE GTKFVAL,=D'0',TCL140 MOVE GTDUPF(CBIN4),GTKFVAL MOVE GTUSED(CBIN4),=W'-8' MOVE GTWBCD1,GSWBCD5 BFONR MOVE GSWSTR20,=C'PENGE KONTO ' PERF TR2GEN,CBIN0 GENERATE TR 2 BNOK TCL140 TCL140 ADD GSWBCD5,=D'1' CBL GSWBCD5,=D'5',TCL110 TCL150 EJECT * VERSUR - KASSE TCL205 SET GTTFLG CBE TVERSUR,=D'0',TCL235 MOVE GTDUPF(CBIN1),TVERSUR REMIT ACC MOVE GTDUPF(CBIN4),TTACC(CBIN6,CBIN1) ADD GTDUPF(CBIN4),TTACC(CBIN6,CBIN2) CBE GTDUPF(CBIN4),=D'0',TCL235 MOVE GTUSED(CBIN1),CBIN5 MOVE GTUSED(CBIN4),=W'-8' MUL GTDUPF(CBIN4),=D'-1' MOVE GSWSTR20,=C'VERSUR KONTONR REMIT ' MOVE GTWBCD1,=D'0' PERF TR2GEN,CBIN0 BNOK TCL205 TCL235 CASH MOVEMENT MOVE GTDUPF(CBIN1),TTCASHAC ACCOUNTNR MOVE GTDUPF(CBIN4),TTCASH CURRENT CASH SUB GTDUPF(CBIN4),TTSTCASH INITIAL CASH MOVE GTUSED(CBIN1),CBIN5 MOVE GTUSED(CBIN4),=W'-8' MOVE GSWSTR20,=C'KASSE-KONTO ' MOVE GTWBCD1,=D'0' PERF TR2GEN,CBIN0 BNOK TCL235 * * WRITING OF DISC JOURNAL AND VOUCHER * MOVE GSWSTR9,=C'TOTAL ' PERF CLEDB * PRINT KONTOFILE MOVE GSWSTR9,=C'TOTAL ' PERF CLKF * * BEHOLDNINGST[LLERE * PERF CLBEH * MOVE TTSTCASH,TTCASH MOVE TTSTLBNR,TTLBNR ADD TTSTLBNR,=D'1' MUL TTSTLBNR,=D'-1' SET NEGATIVE (CLOSE) MUL CMASK(TTASKNR),=D'-1' SET CMASK < 0, CLOSE CLEAR GTTFLG TCL550 MOVE TTRECOPN,CRECBCD PERF ZERO PERF TCONFW,TTASKNR STORE NEW INITIAL VALUES PERF CONFWR BNOK TCL550 CLEAR GTKASSE * ZERONIZE COUNTERS * TRANS 12 COUNTERS MOVE GSWSTR20,=C'*' PERF WRITJT,=W'12' CMP CBIN0,CBIN0 DUMMY RET TCLMAK CMP CBIN0,CBIN1 RET PEND EJECT RGA200 ************************************************ * * PERFORM OF SELECTED ADM ROUTINE * ************************************************* * MOVE GSWBIN1,GSWBCD3 PERF ADM,GSWBIN1 B RGKLAR EJECT ZERO PROC * * ZERONIZE COUNTERS * TRANS 12 COUNTERS MOVE GSWBIN3,CTR12(TTASKNR,CBIN1) MOVE GSWBIN2,GSWBIN3 ADD GSWBIN2,CTR12(TTASKNR,CBIN2) TCL610 ADD GSWBIN3,CBIN1 CBG GSWBIN3,GSWBIN2,TCL615 MOVE C12ACC(GSWBIN3,CBIN1),=D'0' MOVE C12ACC(GSWBIN3,CBIN2),=D'0' MOVE GTKFVAL,=D'0' PERF KFWRIT,CBIN1,CBIN1,GSWBIN3,GTKFVAL PERF KFWRIT,CBIN1,CBIN2,GSWBIN3,GTKFVAL B TCL610 TCL615 * ACCUMULATORS MOVE GSWBIN1,CBIN0 TCL620 ADD GSWBIN1,CBIN1 MOVE TTACC(GSWBIN1,CBIN1),=D'0' MOVE TTACC(GSWBIN1,CBIN2),=D'0' CBL GSWBIN1,CBIN8,TCL620 RET PEND EJECT CLEJ PROC ***************************************************** * * NOW ALL ACCUMULATORS NOT = 0 * HAS BEEN REGISTRATED * A VOUCHER PRINT OF ALL TR12 ACC * IS NOW PERFORMED ** ******************************************************** MOVE TTLINNR,=D'25' MOVE GSWSTR20,='EJ-EDB T[LLER ' CBE CTR12(TTASKNR,CBIN2),CBIN0,CLEJRET PERF WAHEAD,CBIN8 MOVE GTWBCD1,=D'0' CLEJ10 ADD GTWBCD1,=D'1' MOVE GSWBIN5,GTWBCD1 CONVERT CBG GSWBIN5,CTR12(TTASKNR,CBIN2),CLEJ90 ADD GSWBIN5,CTR12(TTASKNR,CBIN1) MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) ADD GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2) MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5) CBE GTDUPF(CBIN1),=D'0',CLEJ10 CBG TTLINNR,=D'0',CLEJ20 DSC0 KVOUCH,RLEAS MOVE TTLINNR,=D'25' PERF WAHEAD,CBIN8 CLEJ20 PERF WALINE,CBIN9 B CLEJ10 CLEJ90 DSC0 KVOUCH,RLEAS CLEJRET RET PEND EJECT CLKF PROC ********************* * CLOSE KONTOFILE * UDSKRIV OG NULSTIL VERSUR OG PENGEKONTI ********************* TBF CREMITFL,CLKFRET MOVE GSWSTR20,=C'LOKAL REMITTERING ' CLEAR GTDYFLG CLEAR GTSWFLAG PERF WAHEAD,CBIN8 MOVE GSWBCD5,=D'0' LOOP ON BFO MOVE GTREGF(CBIN1),=D'0' TOTAL KREDIT-VERSUR MOVE GTREGF(CBIN2),=D'0' TOTAL DEBET - VERSUR MOVE GTREGF(CBIN3),=D'0' TOTAL BEV-PENGE B CLKF100 CLKF010 MOVE GSWBIN5,GSWBCD5 BFO NR PERF KFREAD,CBIN3,CBIN0,GSWBIN5,GTKFVAL KONTONR MOVE GTDUPF(CBIN1),GTKFVAL PERF KFREAD,CBIN3,CBIN1,GSWBIN5,GTKFVAL KREDIT MOVE GTDUPF(CBIN6),GTKFVAL PUT INTO KREDIT ADD GTREGF(CBIN2),GTKFVAL ADD TO TOTAL PERF KFREAD,CBIN3,CBIN2,GSWBIN5,GTKFVAL DEBET MOVE GTDUPF(CBIN5),GTKFVAL PUT INTO DEBET ADD GTREGF(CBIN1),GTKFVAL ADD TO TOTAL MOVE GTWBCD1,GSWBCD5 MOVE GSWBIN5,GSWBCD5 SET GTSWFLAG PERF WALINE,CBIN20 CLKF100 PENGE MOVE GSWBIN5,GSWBCD5 PERF KFREAD,CBIN2,CBIN0,GSWBIN5,GTKFVAL KONTONR MOVE GTDUPF(CBIN1),GTKFVAL PERF KFREAD,CBIN2,CBIN1,GSWBIN5,GTKFVAL BEV ADD GTREGF(CBIN3),GTKFVAL ADD TO TOTAL MOVE GTDUPF(CBIN4),GTKFVAL CLEAR GTSWFLAG MOVE GTWBCD1,GSWBCD5 MOVE GSWBIN5,GSWBCD5 PERF WALINE,CBIN20 ADD GSWBCD5,=D'1' CBL GSWBCD5,=D'5',CLKF010 * WRITE TOTAL MOVE GTDUPF(CBIN1),=X'FF' CLEAR KONTONR MOVE GTWBCD1,=X'FF' CLEAR BFUND MOVE GTDUPF(CBIN4),GTREGF(CBIN3) TOTAL BEV MOVE GTDUPF(CBIN5),GTREGF(CBIN1) KREDIT MOVE GTDUPF(CBIN6),GTREGF(CBIN2) DEBET SET GTDYFLG SET GTSWFLAG PERF WALINE,CBIN20 VERSUR CLEAR GTDYFLG CLEAR GTSWFLAG PERF WALINE,CBIN20 BEV DSC0 KVOUCH,RLEAS TBT GTSPGFLG,CLKFRET * NULSTIL VERSUR + PENGE MOVE GSWBCD5,=D'0' MOVE GTKFVAL,=D'0' B CLKF210 CLKF200 MOVE GSWBIN5,GSWBCD5 PERF KFWRIT,CBIN3,CBIN1,GSWBIN5,GTKFVAL PERF KFWRIT,CBIN3,CBIN2,GSWBIN5,GTKFVAL CLKF210 MOVE GSWBIN5,GSWBCD5 PERF KFWRIT,CBIN2,CBIN1,GSWBIN5,GTKFVAL ADD GSWBCD5,=D'1' CBL GSWBCD5,=D'5',CLKF200 CLKFRET RET PEND EJECT CLEDB PROC * * WRITING OF DISC JOURNAL AND VOUCHER * MOVE GSWSTR20,=C'EDB-T[LLERE ' PERF WRITJT,=W'6' PERF WAHEAD,CBIN8 MOVE GSWBCD5,=D'0' MOVE GTREGF(CBIN1),=D'0' TOTAL MOVE GTREGF(CBIN2),=D'0' CLEDB010 TBT GTSPGFLG,CLEDB020 MOVE GTREGNR,=D'11' CLEDB020 ADD GSWBCD5,=D'1' CLEDB030 MOVE GSWBIN5,GSWBCD5 CBG GSWBIN5,CBIN6,CLEDB100 ADD GTREGF(CBIN1),TTACC(GSWBIN5,CBIN1) ADD GTREGF(CBIN2),TTACC(GSWBIN5,CBIN2) MOVE GTUSED(CBIN4),CBIN0 MOVE GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN1) ADD GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN2) MOVE GTDUPF(CBIN6),TTACC(GSWBIN5,CBIN1) MOVE GTDUPF(CBIN5),TTACC(GSWBIN5,CBIN2) DEBET TBT GTSPGFLG,CLEDB040 MOVE GTUSED(CBIN6),=W'-53' MOVE GTUSED(CBIN5),=W'-52' MOVE GTDUPF(CBIN1),GSWBCD5 MOVE GTUSED(CBIN1),=W'50' MOVE GTDUPF(CBIN2),=D'2' MARK FOR TOTAL MOVE GTUSED(CBIN2),=W'51' PERF CRKJ PERF WRITFD BNOK CLEDB030 CLEDB040 MOVE GSWBIN5,GSWBCD5 RESTORE MOVE GTWBCD1,GSWBCD5 PERF WRITJT,=W'7' PERF WALINE,CBIN10 B CLEDB010 CLEDB100 PERF PACKCL MOVE GTDUPF(CBIN4),GTREGF(CBIN1) ADD GTDUPF(CBIN4),GTREGF(CBIN2) MOVE GTDUPF(CBIN5),TTACC(CBIN8,CBIN1) ADD GTDUPF(CBIN5),TTACC(CBIN8,CBIN2) PERF WALINE,CBIN11 MOVE GTDUPF(CBIN5),TTACC(CBIN1,CBIN1) MOVE GTDUPF(CBIN6),TTACC(CBIN1,CBIN2) MOVE GSWBIN1,CBIN1 CLEDB110 ADD GSWBIN1,CBIN1 CBG GSWBIN1,CBIN4,CLEDB120 ADD GTDUPF(CBIN5),TTACC(GSWBIN1,CBIN1) ADD GTDUPF(CBIN6),TTACC(GSWBIN1,CBIN2) B CLEDB110 CLEDB120 TBT GTSPGFLG,CLEDB160 * ADJUST FOR 'KASSE INDBERETNING' MOVE GSWBCD1,TTCASH SUB GSWBCD1,TTSTCASH CBL GSWBCD1,=D'0',CLEDB130 SUB GTDUPF(CBIN6),GSWBCD1 B CLEDB140 CLEDB130 SUB GTDUPF(CBIN5),GSWBCD1 CLEDB140 * ADJUST FOR 'VERSUR INDBERETNING' MOVE GSWBCD1,TTACC(CBIN6,CBIN1) ADD GSWBCD1,TTACC(CBIN6,CBIN2) MUL GSWBCD1,=D'-1' 'VEND' CBL GSWBCD1,=D'0',CLEDB150 SUB GTDUPF(CBIN6),GSWBCD1 B CLEDB160 CLEDB150 SUB GTDUPF(CBIN5),GSWBCD1 CLEDB160 MUL GTDUPF(CBIN5),=D'-1' MUL GTDUPF(CBIN6),=D'-1' MOVE GSWBCD1,TTCASH SUB GSWBCD1,TTSTCASH MOVE GTDUPF(CBIN4),GSWBCD1 PERF WALINE,CBIN12 DSC0 KVOUCH,RLEAS RET PEND EJECT CLBEH PROC * * BEHOLDNINGST[LLERE * CLBEH010 MOVE TTLINNR,=D'25' MOVE GSWBIN2,CBEH(TTASKNR,CBIN2) CMP GSWBIN2,CBIN0 BE CLBEHRET ADD GSWBIN2,CBEH(TTASKNR,CBIN1) MOVE GTWBCD2,GSWBIN2 ATTFMT CLFRM04 SET SPPROMPT PERF SPCLRA IB SPBINW2, C CLBEH030,CLBEH030,CLBEH050,CLBEH040,CLBEH030, C CLBEH030,CLBEH030,CLBEH030,CLBEH060,CLBEH030, C CLBEH030,CLBEH030,CLBEH060 CLBEH030 B CLBEH010 CLBEH040 TBT GTSPGFLG,CLBEH010 MOVE GSWSTR20,=C'SLET SALDO ' MOVE GSWBIN6,CBIN1 B CLBEH100 CLBEH050 TBT GTSPGFLG,CLBEH010 MOVE GSWSTR20,=C'SLET PERIODE ' MOVE GSWBIN6,CBIN2 B CLBEH100 CLBEH060 MOVE GSWSTR20,=C'SUBTOTAL ' MOVE GSWBIN6,CBIN3 B CLBEH100 CLBEH100 MOVE GTWBCD1,=D'0' MOVE GSWBCD6,=D'0' MOVE GSWBCD7,=D'0' CLBEH110 PERF GRASPV MOVE GSWBIN3,CVOUTOP ADD GSWBIN3,CBIN6 DSC1 KVOUCH,POS,GSWBIN3 PERF CLEAR8 PERF FRMXVO,CBIN13 HEAD ON VOUCHER EDWRT KVOUCH,GTSTRFMT CLBEH120 ADD GTWBCD1,=D'1' MOVE GSWBIN3,GTWBCD1 ADD GSWBIN3,CBEH(TTASKNR,CBIN1) MOVE GSWBIN4,GTWBCD2 CBG GSWBIN3,GSWBIN4,CLBEH160 CBE CBACC(GSWBIN3,CBIN1),=D'0',CLBEH120 * ADD TO TOTAL, PERIODE AND SALDO ADD GSWBCD6,CBACC(GSWBIN3,CBIN2) PERIODE ADD GSWBCD7,CBACC(GSWBIN3,CBIN3) SALDO PERF FRMXVO,CBIN14 EDWRT KVOUCH,GTSTRFMT TBT GTTESTFL,CLBEH150 IB GSWBIN6,CLBEH130,CLBEH140,CLBEH150 B CLBEH150 CLBEH130 MOVE CBACC(GSWBIN3,CBIN3),=D'0' SALDO CLBEH140 MOVE CBACC(GSWBIN3,CBIN2),=D'0' PERIODE CLBEH150 SUB TTLINNR,=D'1' CBG TTLINNR,=D'0',CLBEH120 DSC0 KVOUCH,RLEAS MOVE TTLINNR,=D'25' B CLBEH110 CLBEH160 * WRITE TOTAL LINE PERF FRMXVO,CBIN18 EDWRT KVOUCH,GTSTRFMT DSC0 KVOUCH,RLEAS CLBEHRET RET PEND RGA300 TBT CCONVERT,RG310 PERF ADM,CBIN11 SPG RG310 B RGKLAR EJECT ************************************************** * * TR2GEN GENERATES A TRANSACTION 2 * **************************************************** TR2GEN PROC DBKR MOVE TTDKDEX,DBKR CBNE TTDKDEX,=W'0',TR2DBKR MOVE TTDKDEX,CBIN1 CBL GTDUPF(CBIN4),=D'0',TR2DBKR MOVE TTDKDEX,CBIN2 TR2DBKR PERFI TTDKDEX,SETKRE,SETDEB EDWRT SCREEN,CLFRM02 MOVE GSWBCD1,GTDUPF(CBIN1) REG KONTO NR PERF KTPLAN,GSWBCD1,GTKTTYP 'KORT' REQUIRED? PERF SLUT BNOK TR2NOK TBF CCLKTFLG,TR2OK TBF GTKORTFL,TR2OK PERF KORT TR2OK CLEAR GTKORTFL CMP CBIN0,CBIN0 OK TR2NOK RET PEND EJECT ******************************************************** * * WAHEAD - GRASP AND WRITE HEADLINE ON VOUCHER * ******************************************************** WAHEAD PROC VOXDEX EDWRT SCREEN,CLFRM03 PERF SPLIN8,CBIN5,CBIN2 PERF GRASPV DSC1 KVOUCH,POS,CVOUTOP PERF CLEAR8 PERF FRMXVO,VOXDEX EDWRT KVOUCH,GTSTRFMT RET PEND ********************************************************* * * WALINE WRITE ACCUMULATORLINE * ********************************************************** WALINE PROC LINDEX PERF FRMXVO,LINDEX EDWRT KVOUCH,GTSTRFMT SUB TTLINNR,=D'1' RET PEND * EJECT SKIFT PROC ************************* * * SKIFT - THIS PROCEDURE TAKES HAND OF SHIFT * OF DISKS, IS ACTIVATED AFTER * 12 ADM * ************************ SK00 PERF WAITF,CPFLG SET CSKIFTWN PERF SPLIN8,CBIN8,CBIN2 'DISKETTE SKIFT' TBF CWFLAG,SK15 SUB CRECBCD,=D'1' PERF SLUTID,CRECBCD WRITE 'SLUTD' PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR SK15 PERF WRITID,CBIN2,CBIN2 PERF CLSVOL,CBIN2 PERF LAMPOF,=W'2047' ADD CVOLNO,=D'1' SET CRKCOPY FD2 EMPTY SK120 PERF LAMPON,=W'512' LAMP 2 PERF SOPRD TBF CRKCOPY,SK120 FD2 NOT EMPTY YET CBNE GSWBIN2,CBIN9,SK120 PERF ASGVOL,CBIN2 BNOK SK120 PERF LAMPOF,=W'2047' MOVE CRECNR,CBIN1 MOVE CRECBCD,=D'0' TBF CWFLAG,SK130 PERF STRTWR BNOK SK120 SK130 PERF CNFWRT REWRITE CONFDATA TBF CWFLAG,SK150 MOVE CRECBCD,=D'1' PERF WRITID,CBIN2,CBIN1 SK150 PERF CLEAR8 PERF WRITJT,=W'11' CLEAR CSKIFTFL CLEAR CSKIFTWN CLEAR CPFLG DISC FREE RET PEND STRTWR PROC ********************* * * STRTWR - SET UP AND WRITE START RECORD * * *********************** PERF STRTID,CVOLNO PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR BNOK STRTNOK ADD CRECNR,CBIN1 PERF RADEL,DK02,CRECNR BNOK STRTNOK CMP CBIN0,CBIN0 OK RET STRTNOK CMP CBIN1,CBIN0 RET PEND EJECT STRTID PROC VOLID ******************** * STRTID - SETS UP A START ID IN PACK BUFFER * CALL - PERF STRTID,<VOLID> ******************** SET CSWFLAG CBE CRECLGD,=W'128',STRT10 CLEAR CSWFLAG STRT10 MOVE GSWBIN6,CBIN2 EDIT CPCKBUF,PCKINIT EDIT CPCKBUF,STARTFR MOVE GSWBCD3,VOLID EDIT GSWSTR20,FRVOLID MOVE GSWBIN1,=W'40' COPY CPCKBUF,GSWBIN1,CBIN12,GSWSTR20,CBIN0 RET PEND SLUTID PROC SLUTNO ******************** * SLUTID - SETS UP A SLUTD IN CPCKBUF ******************** SET CSWFLAG CBE CRECLGD,=W'128',SLUT10 CLEAR CSWFLAG SLUT10 EDIT CPCKBUF,PCKINIT MOVE CRECBCD,SLUTNO EDIT CPCKBUF,SLUTFRM RET PEND EJECT BCKUP PROC $OPT PLIT $OPT ******************** * * THIS PROCEDURE TAKES CARE OF ADMINISTRATION * OB BACKUP * * CALL: PERF BCKUP,<=W'X'> * $OPT = 1 : WITHOUT BACKUP * $OPT = 2 : WITH BACKUP * * ******************** * MOVE CRECNR,CBIN1 MOVE CRECBCD,=D'1' ADD CVOLNO,=D'1' NEXT VOLUME NO PERF CNFWRT REWRITE CONFIGURATION SUB CVOLNO,=D'1' CMP CBIN1,$OPT BE BCK100 NO BACKUP * * * BACKUP BCK000 PERF CLEAR8 PERF LAMPOF,=W'2047' LAMPS OFF BCK005 PERF LAMPON,=W'1024' LAMP 1 PERF LAMPON,=W'128' LAMP 4 PERF LAMPON,=W'16' LAMP 7 TBF CTEXTFLG,BCK008 PERF LAMPON,=W'64' LAMP 5 BCK008 TBF CSTRKFLG,BCK009 PERF LAMPON,=W'256' LAMP 3 BCK009 TBF CGLREGFL,BCK010 PERF LAMPON,=W'512' LAMP 2 BCK010 PERF SOPRD READ SOP LAMPS IB GSWBIN2, C BSOP10,BSOP09,BSOP08,BSOP07,BSOP06, C BSOP05,BSOP04,BSOP03,BSOP02,BSOP01 BSOP06 BSOP08 BSOP09 BSOP10 B BCK010 OTHER LAMPS * BSOP01 BACKUP FD999001 PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'1024' LAMP 1 MOVE GSWBIN5,=W'32' NO OF RECORDS PERF BACKUP,DK01,=D'1',GSWBIN5,CCONBUF0,=W'199' BNOK BCK050 ADD CVOLNO,=D'1' PERF WRITID,CBIN6,CBIN4 BACKUP OK SUB CVOLNO,=D'1' PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA B BCK000 BCK050 PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA B BCK005 * BSOP02 COPY FD999002 TO FD999005 TBF CGLREGFL,BCK010 ALLOWED? * ***** BCK02 COPY FD999002 TO FD999005 PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'512' LAMP 2 SET CPFLG PERF ASGVOL,CBIN2 ASSIGN REGSET BNOK BCK0290 MOVE CGLRECNR,CBIN0 BCK0250 ADD CGLRECNR,CBIN1 MOVE GSWBIN1,=W'128' LENGTH OF RECORD PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CGLRECNR BNOK BCK0270 ERROR CBE GTWBCD1,=D'4',BCK0280 NO DATA MOVE GSWSTR20,=C'SLUTD' MOVE GSWBIN5,CBIN0 MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 BE BCK0280 SLUTD PERF RAWRIT,DK05,=D'5',CPCKBUF,CGLRECNR BOK BCK0250 BCK0270 ERROR PERF LAMPON,=W'2' LAMP 10 BCK0280 FINISH MOVE TTGLREC,CGLRECNR PERF TCONFW,CBIN1 SAVE LAST RECORD NO. BCK0290 CLEAR CPFLG DSC0 DK02,CLOSE CLOSE VOLUME 2 * ***** BCK02R B BCK000 * * ***** * BSOP03 BACKUP INDEX,STAM,VAR,TRANS TBF CSTRKFLG,BCK010 PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'256' LAMP 3 PERF BACKUP,DK07,=D'7',CBIN0,GTREMBUF,=W'8' INDX PERF BACKUP,DK08,=D'8',CBIN0,GTREMBUF,=W'128' STAM PERF BACKUP,DK09,=D'9',CBIN0,GTREMBUF,=W'49' VAR TBF CBUDTFLG,BCK000 PERF BACKUP,DK11,=D'11',CBIN0,GTREMBUF,=W'39' TRANS TBF C173FLG,BCK000 PERF BACKUP,DK17,=D'17',CBIN0,GTREMBUF,=W'8' * * ***** * BSOP05 BACKUP TEXT TBF CTEXTFLG,BCK010 PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'64' LAMP 5 PERF BACKUP,DK06,=D'6',CBIN0,CTXBUF,=W'24' BNOK BCK005 NOK B BCK000 * ***** * BSOP04 BACKUP FD999004 PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'128' LAMP 4 PERF BACKUP,DK04,=D'4',CKTMAX,CKTBUF,=W'128' BNOK BCK005 NOK B BCK000 OK * BSOP07 FINISH PERF LAMPOF,=W'2047' LAMPS OFF PERF ASGVOL,CBIN1 ASSIGN SYSTEM FILES BNOK BCKNOK BCK100 PERF ASGVOL,CBIN2 BNOK BCKNOK ADD CVOLNO,=D'1' PERF STRTWR BOK BCKOK SUB CVOLNO,=D'1' PERF LAMPON,=W'2' LAMP 10 B BCKNOK * BCKNOK CMP CBIN1,CBIN0 NOK RET * BCKOK PERF WRITID,CBIN2,CBIN1 CMP CBIN0,CBIN0 RET PEND EJECT * * ************************************************* * * FORMATS * ************************************************* * KLRFMT PROC FMTDEX * ********** * * ATTACH KLAR ADM FORMAT * ********** * KLRFTB FTABLE OPENFRM ATTFMT KLRFTB(FMTDEX) RET PEND * * FMTFKI FRMT FNL FKI 3 FMEL 'B',TSWBCD2 FMEND * OPENFRM FRMT FSL FCOPY ='ADM ' FBT GTDYFLG,OPFR05 FTAB 1 FCOPY =C'KASSE]BNING' OPFR05 FNL FBF GTMASTFL,OPFR10 FCOPY =C'DAGS-DATO' FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,NCLR FMEL '99E-99E-99',CMASKDAT FNL FCOPY =C'DAG NR' FKI 11,MINL=1,MAXL=3,ME,APPL=102 FMEL 'ZZZ',CRELDAY FNL OPFR10 FCOPY ='POST-DATO' FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,APPL=107 FMEL '99E-99E-99',GTDATO FMEND * CLFRM01 FRMT FSL FCOPY =C'KASSELUKNING' FILLR X'07',1 FLINK FMTFKI FMEND * CLFRM02 FRMT FILLR '1',2 FCOPY =C'KASSELUKNING' FNL FCOPY GSWSTR20 TEXT FMEL 'ZZ',GTWBCD1 COUNTER NR FILLR ' ',4 FCOPY GTDBKRC DEB-KRE FNL FCOPY =C'KONTONR' FILLR ' ',5 FCOPY =C'BEL' FILLR X'5C',1 FILLR 'B',1 FNL FMEL '99999999E-99',GTDUPF(CBIN1) FMEL 'BTTTVTTTVTTTVTT9V99-',GTDUPF(CBIN4) FMEND * CLFRM03 FRMT FILLR '1',2 FBT GTSPGFLG,CLF0301 FCOPY =C'KASSELUKNING' CLF0301 FNL FCOPY GSWSTR20 FMEND * CLFRM04 FRMT FSL FBT GTSPGFLG,CLF0401 FCOPY ='KASSELUKNING' CLF0401 FNL FCOPY ='BEHOLDNINGST[LLERE' FNL FNL FBT GTSPGFLG,CLF0402 FCOPY ='SLET ' FCOPY ='PERIODE ' FTAB 15 FCOPY =' DEB' FNL FCOPY ='SLET ' FCOPY ='SALDO ' FTAB 15 FCOPY =' KRE' CLF0402 FNL FCOPY ='SUBTOTAL ' FTAB 16 FCOPY ='KVIT' FNL FNL FNL FILLR ' ',1 FCOPY ='BILAG' FLINK FMTFKI FMEND * PCKINIT FRMT FILLR ' ',40 FILLR ' ',40 FBT CSWFLAG,INIT10 FILLR X'00',48 FEXIT INIT10 FILLR ' ',48 FMEND * FRVOLID FRMT FMEL '999999',CMASKDAT FILLR ' ',1 FMEL '99999',GSWBCD3 FMEND * SLUTFRM FRMT FCOPY =C'SLUTD' FMEL '99999',CRECBCD FMEND * STARTFR FRMT FCOPY =C'Z300 ' FMEL '9999',CKMDNR KOMMUNE NR FILLR C'2',1 FCOPY CVOL(GSWBIN6) FMEL '999',CRELDAY DAG NR FILLR C'1',1 MIXED TRANS FILLR ' ',6 FMEND * ADFRM01 FRMT FSL FCOPY ='KLAR ' FCOPY ='ADM ' FKI 12,MINL=1,MAXL=2 FMEL 'ZZ',GSWBCD3 FMEND * * * END
0x0000…0020 (0, 0, 398) Head {h00=0x001c, h01=0x0050, text=» IDENT RGKLAR 820615 NJ «, t00=0x0000, t01=0x0004}
0x0020…0034 Head {h00=0x0010, h01=0x000b, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0058 Head {h00=0x0012, h01=0x0050, text=» ENTRY RGKLAR «, t00=0x0000, t01=0x0046}
0x0058…006c Head {h00=0x0010, h01=0x0050, text=» ENTRY CLEJ «, t00=0x0000, t01=0x005c}
0x006c…0080 Head {h00=0x0010, h01=0x0050, text=» ENTRY CLEDB«, t00=0x0000, t01=0x0070}
0x0080…0094 Head {h00=0x0010, h01=0x0050, text=» ENTRY CLBEH«, t00=0x0000, t01=0x0084}
0x0094…00a8 Head {h00=0x0010, h01=0x0050, text=» ENTRY CLKF «, t00=0x0000, t01=0x0098}
0x00a8…00be Head {h00=0x0012, h01=0x0050, text=» ENTRY RGA120 «, t00=0x0000, t01=0x00ac}
0x00be…00d2 Head {h00=0x0010, h01=0x0050, text=» ENTRY ZERO «, t00=0x0000, t01=0x00c2}
0x00d2…00e6 Head {h00=0x0010, h01=0x0050, text=» ENTRY SKIFT«, t00=0x0000, t01=0x00d6}
0x00e6…00fc Head {h00=0x0012, h01=0x0050, text=» ENTRY STRTWR «, t00=0x0000, t01=0x00ea}
0x00fc…0112 Head {h00=0x0012, h01=0x0050, text=» ENTRY STRTID «, t00=0x0000, t01=0x0100}
0x0112…0128 Head {h00=0x0012, h01=0x0050, text=» ENTRY SLUTID «, t00=0x0000, t01=0x0116}
0x0128…013c Head {h00=0x0010, h01=0x0050, text=» ENTRY BCKUP«, t00=0x0000, t01=0x012c}
0x013c…0152 Head {h00=0x0012, h01=0x0050, text=» ENTRY KLRFMT «, t00=0x0000, t01=0x0140}
0x0152…015c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0156}
0x015c…016c Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0000, t01=0x0160}
0x016c…017e Head {h00=0x000e, h01=0x0050, text=» EXT SOPRD«, t00=0x0000, t01=0x0170}
0x017e…0192 Head {h00=0x0010, h01=0x0050, text=» EXT LAMPON «, t00=0x0000, t01=0x0182}
0x0192…01a6 Head {h00=0x0010, h01=0x0050, text=» EXT LAMPOF «, t00=0x0001, t01=0x0008}
0x01a6…01ba Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x001c}
0x01ba…01ce Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0001, t01=0x0030}
0x01ce…01e2 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0001, t01=0x0044}
0x01e2…01f6 Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0001, t01=0x0058}
0x01f6…020a Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0001, t01=0x006c}
0x020a…021e Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x0080}
0x021e…0232 Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0001, t01=0x0094}
0x0232…0246 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x00a8}
0x0246…0258 Head {h00=0x000e, h01=0x0050, text=» EXT KORT «, t00=0x0001, t01=0x00bc}
0x0258…026c Head {h00=0x0010, h01=0x0050, text=» EXT TCONFW «, t00=0x0001, t01=0x00ce}
0x026c…0280 Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0001, t01=0x00e2}
0x0280…0294 Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0001, t01=0x00f6}
0x0294…02a8 Head {h00=0x0010, h01=0x0050, text=» EXT ASGVOL «, t00=0x0001, t01=0x010a}
0x02a8…02bc Head {h00=0x0010, h01=0x0050, text=» EXT CLSVOL «, t00=0x0001, t01=0x011e}
0x02bc…02d0 Head {h00=0x0010, h01=0x0050, text=» EXT WRITID «, t00=0x0001, t01=0x0132}
0x02d0…02e4 Head {h00=0x0010, h01=0x0050, text=» EXT CNFWRT «, t00=0x0001, t01=0x0146}
0x02e4…02f6 Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0001, t01=0x015a}
0x02f6…030a Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0001, t01=0x016c}
0x030a…031e Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x0180}
0x031e…0332 (2, 0, 398) Head {h00=0x0010, h01=0x0050, text=» EXT INITRG «, t00=0x0002, t01=0x0004}
0x0332…0344 Head {h00=0x000e, h01=0x0050, text=» EXT SLUT «, t00=0x0002, t01=0x0018}
0x0344…0358 Head {h00=0x0010, h01=0x0050, text=» EXT CONFWR «, t00=0x0002, t01=0x002a}
0x0358…036c Head {h00=0x0010, h01=0x0050, text=» EXT WRITFD «, t00=0x0002, t01=0x003e}
0x036c…037e Head {h00=0x000e, h01=0x0050, text=» EXT CRKJ «, t00=0x0002, t01=0x0052}
0x037e…0392 Head {h00=0x0010, h01=0x0050, text=» EXT BACKUP «, t00=0x0002, t01=0x0064}
0x0392…03a6 Head {h00=0x0010, h01=0x0050, text=» EXT CONRDX «, t00=0x0002, t01=0x0078}
0x03a6…03ba Head {h00=0x0010, h01=0x0050, text=» EXT RSTORE «, t00=0x0002, t01=0x008c}
0x03ba…03ce Head {h00=0x0010, h01=0x0050, text=» EXT KFWRIT «, t00=0x0002, t01=0x00a0}
0x03ce…03e2 Head {h00=0x0010, h01=0x0050, text=» EXT KFREAD «, t00=0x0002, t01=0x00b4}
0x03e2…03f6 Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0002, t01=0x00c8}
0x03f6…0408 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0002, t01=0x00dc}
0x0408…0420 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x00ee}
0x0420…042e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0106}
0x042e…043c Head {h00=0x000a, h01=0x0050, text=»RGKLAR«, t00=0x0002, t01=0x0114}
0x043c…0452 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0002, t01=0x0122}
0x0452…046c Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0002, t01=0x0138}
0x046c…0484 Head {h00=0x0014, h01=0x0050, text=» ATTFMT ADFRM01 «, t00=0x0002, t01=0x0152}
0x0484…0498 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0002, t01=0x016a}
0x0498…04b0 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW2, C «, t00=0x0002, t01=0x017e}
0x04b0…04e0 Head {h00=0x002c, h01=0x0050, text=» RGKLAR,RGKLAR,RGKLAR,RGKLAR,RGA100, C«, t00=0x0003, t01=0x0008}
0x04e0…050c Head {h00=0x0028, h01=0x0050, text=» RGA200,RGA300,RGKLAR,RGKLAR,RGA007«, t00=0x0003, t01=0x0038}
0x050c…051e Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x0003, t01=0x0064}
0x051e…0528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0076}
0x0528…0542 Head {h00=0x0016, h01=0x0050, text=»RGA007 GO ONLINE«, t00=0x0003, t01=0x0080}
0x0542…055e Head {h00=0x0018, h01=0x0050, text=» TBT CCONVERT,RGKLAR«, t00=0x0003, t01=0x009a}
0x055e…0576 Head {h00=0x0014, h01=0x0050, text=» PERF ADM,CBIN7 «, t00=0x0003, t01=0x00b6}
0x0576…0588 Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x0003, t01=0x00ce}
0x0588…0592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e0}
0x0592…05a0 Head {h00=0x000a, h01=0x0050, text=»RGA100«, t00=0x0003, t01=0x00ea}
0x05a0…05aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f8}
0x05aa…05ea Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0003, t01=0x0102}
0x05ea…05f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0142}
0x05f4…061c Head {h00=0x0024, h01=0x0050, text=»* OPEN ROUTINE«, t00=0x0003, t01=0x014c}
0x061c…0626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0174}
0x0626…0666 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0003, t01=0x017e}
0x0666…0670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002e}
0x0670…068c Head {h00=0x0018, h01=0x0050, text=» TBT CCONVERT,RGKLAR«, t00=0x0004, t01=0x0038}
0x068c…06b0 Head {h00=0x0020, h01=0x0050, text=» TBF GTTTPFLG,RGKLAR NO TTP «, t00=0x0004, t01=0x0054}
0x06b0…06cc Head {h00=0x0018, h01=0x0050, text=» TBT CCONVFLG,RGKLAR«, t00=0x0004, t01=0x0078}
0x06cc…06e2 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0004, t01=0x0094}
0x06e2…06f8 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x00aa}
0x06f8…070a Head {h00=0x000e, h01=0x0050, text=» SET SPME «, t00=0x0004, t01=0x00c0}
0x070a…072c Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD3,=X'FF' ERASE«, t00=0x0004, t01=0x00d2}
0x072c…074c Head {h00=0x001c, h01=0x0050, text=» CBG GTDATO,=D'1',RGA105«, t00=0x0004, t01=0x00f4}
0x074c…0768 Head {h00=0x0018, h01=0x0050, text=» MOVE GTDATO,=X'FF' «, t00=0x0004, t01=0x0114}
0x0768…0776 Head {h00=0x000a, h01=0x0050, text=»RGA105«, t00=0x0004, t01=0x0130}
0x0776…078e Head {h00=0x0014, h01=0x0050, text=» ATTFMT OPENFRM «, t00=0x0004, t01=0x013e}
0x078e…07a2 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0004, t01=0x0156}
0x07a2…07ca Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,RGKLAR,RGKLAR,RGA110«, t00=0x0004, t01=0x016a}
0x07ca…07dc (5, 0, 400) Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x0005, t01=0x0004}
0x07dc…07ea Head {h00=0x000a, h01=0x0050, text=»RGA110«, t00=0x0005, t01=0x0016}
0x07ea…0806 Head {h00=0x0018, h01=0x0050, text=» MOVE TTEJEDB,=D'0' «, t00=0x0005, t01=0x0024}
0x0806…0836 Head {h00=0x002c, h01=0x0050, text=» MUL TTSTLBNR,=D'-1' SET POSITIVE (OPEN)«, t00=0x0005, t01=0x0040}
0x0836…086c Head {h00=0x0032, h01=0x0050, text=» MUL CMASK(TTASKNR),=D'-1' SET CMASK >0, OPEN «, t00=0x0005, t01=0x0070}
0x086c…088a Head {h00=0x001a, h01=0x0050, text=» MOVE TTCASH,TTSTCASH «, t00=0x0005, t01=0x00a6}
0x088a…08ae Head {h00=0x0020, h01=0x0050, text=» CBNE TTSTLBNR,=D'0',RGA115 «, t00=0x0005, t01=0x00c4}
0x08ae…08ca Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTLBNR,=D'1'«, t00=0x0005, t01=0x00e8}
0x08ca…08d8 Head {h00=0x000a, h01=0x0050, text=»RGA115«, t00=0x0005, t01=0x0104}
0x08d8…08f6 Head {h00=0x001a, h01=0x0050, text=» MOVE TTLBNR,TTSTLBNR «, t00=0x0005, t01=0x0112}
0x08f6…0910 Head {h00=0x0016, h01=0x0050, text=» SUB TTLBNR,=D'1' «, t00=0x0005, t01=0x0130}
0x0910…092e Head {h00=0x001a, h01=0x0050, text=» MOVE TTRECOPN,CRECBCD«, t00=0x0005, t01=0x014a}
0x092e…0940 Head {h00=0x000e, h01=0x0050, text=» PERF ZERO«, t00=0x0005, t01=0x0168}
0x0940…0976 Head {h00=0x0032, h01=0x0050, text=» PERF TCONFW,TTASKNR STORE INF FROM ADM FUNC. «, t00=0x0005, t01=0x017a}
0x0976…098a Head {h00=0x0010, h01=0x0050, text=» PERF CONFWR«, t00=0x0006, t01=0x0020}
0x098a…09b4 Head {h00=0x0026, h01=0x0050, text=» PERF WRITJT,=W'5' OPEN MES ON JT «, t00=0x0006, t01=0x0034}
0x09b4…09c8 Head {h00=0x0010, h01=0x0050, text=» SET GTKASSE«, t00=0x0006, t01=0x005e}
0x09c8…09e2 Head {h00=0x0016, h01=0x0050, text=» ADD CTASKNR,CBIN1«, t00=0x0006, t01=0x0072}
0x09e2…09f0 Head {h00=0x000a, h01=0x0050, text=»RGA120«, t00=0x0006, t01=0x008c}
0x09f0…0a18 Head {h00=0x0024, h01=0x0050, text=» PERF INITRG START REGISTRATION «, t00=0x0006, t01=0x009a}
0x0a18…0a32 Head {h00=0x0016, h01=0x0050, text=» PERF TCLOSE CLOSE«, t00=0x0006, t01=0x00c2}
0x0a32…0a46 Head {h00=0x0010, h01=0x0050, text=» BNOK RGA120«, t00=0x0006, t01=0x00dc}
0x0a46…0a60 Head {h00=0x0016, h01=0x0050, text=» SUB CTASKNR,CBIN1«, t00=0x0006, t01=0x00f0}
0x0a60…0a72 Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x0006, t01=0x010a}
0x0a72…0a80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x011c}
0x0a80…0a94 Head {h00=0x0010, h01=0x0050, text=»TCLOSE PROC «, t00=0x0006, t01=0x012a}
0x0a94…0aae Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0006, t01=0x013e}
0x0aae…0abc Head {h00=0x000a, h01=0x0050, text=»TCL000«, t00=0x0006, t01=0x0158}
0x0abc…0ad2 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0006, t01=0x0166}
0x0ad2…0aea Head {h00=0x0014, h01=0x0050, text=» ATTFMT CLFRM01 «, t00=0x0006, t01=0x017c}
0x0aea…0afe (7, 0, 400) Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0007, t01=0x0004}
0x0afe…0b26 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,TCLMAK,TCLMAK,TCL010«, t00=0x0007, t01=0x0018}
0x0b26…0b38 Head {h00=0x000e, h01=0x0050, text=» B TCL000 «, t00=0x0007, t01=0x0040}
0x0b38…0b46 Head {h00=0x000a, h01=0x0050, text=»TCL010«, t00=0x0007, t01=0x0052}
0x0b46…0b60 Head {h00=0x0016, h01=0x0050, text=»* CLEAR FLAGS «, t00=0x0007, t01=0x0060}
0x0b60…0b78 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0007, t01=0x007a}
0x0b78…0b90 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0007, t01=0x0092}
0x0b90…0ba8 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0007, t01=0x00aa}
0x0ba8…0bc0 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0007, t01=0x00c2}
0x0bc0…0bd8 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTLSTFLG «, t00=0x0007, t01=0x00da}
0x0bd8…0bf0 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTPSEFLG «, t00=0x0007, t01=0x00f2}
0x0bf0…0c08 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x0007, t01=0x010a}
0x0c08…0c20 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTSUPFLG «, t00=0x0007, t01=0x0122}
0x0c20…0c36 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x0007, t01=0x013a}
0x0c36…0c4e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x0007, t01=0x0150}
0x0c4e…0c66 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTBDTFLG «, t00=0x0007, t01=0x0168}
0x0c66…0c7e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSTRFLG «, t00=0x0007, t01=0x0180}
0x0c7e…0c96 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0008, t01=0x0008}
0x0c96…0cb2 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUPMRK,=' ' «, t00=0x0008, t01=0x0020}
0x0cb2…0ccc Head {h00=0x0016, h01=0x0050, text=» MOVE GTTEXT,=' ' «, t00=0x0008, t01=0x003c}
0x0ccc…0ce6 Head {h00=0x0016, h01=0x0050, text=» MOVE GTSUM,=D'0' «, t00=0x0008, t01=0x0056}
0x0ce6…0cfa Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0008, t01=0x0070}
0x0cfa…0d14 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0008, t01=0x0084}
0x0d14…0d40 Head {h00=0x0028, h01=0x0050, text=»* TR12 ACCUMULATORS«, t00=0x0008, t01=0x009e}
0x0d40…0d5c Head {h00=0x0018, h01=0x0050, text=» MOVE GTREGNR,=D'2' «, t00=0x0008, t01=0x00ca}
0x0d5c…0d78 Head {h00=0x0018, h01=0x0050, text=» MOVE GTREGDEX,CBIN2«, t00=0x0008, t01=0x00e6}
0x0d78…0d8c Head {h00=0x0010, h01=0x0050, text=» PERF PACKCL«, t00=0x0008, t01=0x0102}
0x0d8c…0da8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0008, t01=0x0116}
0x0da8…0db6 Head {h00=0x000a, h01=0x0050, text=»TCL025«, t00=0x0008, t01=0x0132}
0x0db6…0dda Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(GSWBIN1),=X'FF'«, t00=0x0008, t01=0x0140}
0x0dda…0df4 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0008, t01=0x0164}
0x0df4…0e18 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,TCL025 «, t00=0x0008, t01=0x017e}
0x0e18…0e34 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0009, t01=0x0012}
0x0e34…0e42 Head {h00=0x000a, h01=0x0050, text=»TCL030«, t00=0x0009, t01=0x002e}
0x0e42…0e64 Head {h00=0x001e, h01=0x0050, text=» ADD GSWBCD5,=D'1' ACC NR «, t00=0x0009, t01=0x003c}
0x0e64…0e72 Head {h00=0x000a, h01=0x0050, text=»TCL035«, t00=0x0009, t01=0x005e}
0x0e72…0e98 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 CONVERT «, t00=0x0009, t01=0x006c}
0x0e98…0ec8 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN5,CTR12(TTASKNR,CBIN2),TCL090«, t00=0x0009, t01=0x0092}
0x0ec8…0ef2 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN5,CTR12(TTASKNR,CBIN1) «, t00=0x0009, t01=0x00c2}
0x0ef2…0f1e Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5)«, t00=0x0009, t01=0x00ec}
0x0f1e…0f46 Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN1),=D'0',TCL030 «, t00=0x0009, t01=0x0118}
0x0f46…0f78 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATED«, t00=0x0009, t01=0x0140}
0x0f78…0faa Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) «, t00=0x0009, t01=0x0172}
0x0faa…0fd2 Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN4),=D'0',TCL040 «, t00=0x000a, t01=0x0014}
0x0fd2…0ff4 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000a, t01=0x003c}
0x0ff4…101e Head {h00=0x0026, h01=0x0050, text=» MOVE GSWSTR20,=C'EJ-EDB T[LLER ' «, t00=0x000a, t01=0x005e}
0x101e…103c Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x000a, t01=0x0088}
0x103c…1070 Head {h00=0x0030, h01=0x0050, text=» PERF TR2GEN,CBIN1 GENERATE TR2 WITH KREDIT «, t00=0x000a, t01=0x00a6}
0x1070…1084 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL035«, t00=0x000a, t01=0x00da}
0x1084…1092 Head {h00=0x000a, h01=0x0050, text=»TCL040«, t00=0x000a, t01=0x00ee}
0x1092…10b0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x000a, t01=0x00fc}
0x10b0…10da Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN5,CTR12(TTASKNR,CBIN1) «, t00=0x000a, t01=0x011a}
0x10da…110c Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2) «, t00=0x000a, t01=0x0144}
0x110c…1134 Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN4),=D'0',TCL030 «, t00=0x000a, t01=0x0176}
0x1134…1156 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000b, t01=0x000e}
0x1156…1180 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWSTR20,=C'EJ-EDB T[LLER ' «, t00=0x000b, t01=0x0030}
0x1180…119e Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x000b, t01=0x005a}
0x119e…11d0 Head {h00=0x002e, h01=0x0050, text=» PERF TR2GEN,CBIN2 GENERATE TR2 WITH DEBET«, t00=0x000b, t01=0x0078}
0x11d0…11e4 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL040«, t00=0x000b, t01=0x00aa}
0x11e4…11f6 Head {h00=0x000e, h01=0x0050, text=» B TCL030 «, t00=0x000b, t01=0x00be}
0x11f6…1204 Head {h00=0x000a, h01=0x0050, text=»TCL090«, t00=0x000b, t01=0x00d0}
0x1204…1226 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x000b, t01=0x00de}
0x1226…1240 Head {h00=0x0016, h01=0x0050, text=» PERF CLEJ EJ EDB «, t00=0x000b, t01=0x0100}
0x1240…125c Head {h00=0x0018, h01=0x0050, text=» MOVE TTEJEDB,=D'0' «, t00=0x000b, t01=0x011a}
0x125c…126a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0136}
0x126a…128a Head {h00=0x001c, h01=0x0050, text=»* VERSUR AND PENGEKONTI «, t00=0x000b, t01=0x0144}
0x128a…12a6 Head {h00=0x0018, h01=0x0050, text=» TBF CSTRKFLG,TCL150«, t00=0x000b, t01=0x0164}
0x12a6…12c2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x000b, t01=0x0180}
0x12c2…12d4 Head {h00=0x000e, h01=0x0050, text=» B TCL130 «, t00=0x000c, t01=0x000c}
0x12d4…12e2 Head {h00=0x000a, h01=0x0050, text=»TCL110«, t00=0x000c, t01=0x001e}
0x12e2…12f2 Head {h00=0x000c, h01=0x0050, text=»* VERSUR«, t00=0x000c, t01=0x002c}
0x12f2…1310 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x000c, t01=0x003c}
0x1310…1348 Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN0,GSWBIN5,GTKFVAL KONTONR«, t00=0x000c, t01=0x005a}
0x1348…135c Head {h00=0x0010, h01=0x0050, text=» BNOK TCL130«, t00=0x000c, t01=0x0092}
0x135c…137e Head {h00=0x001e, h01=0x0050, text=» CBE GTKFVAL,=D'0',TCL130 «, t00=0x000c, t01=0x00a6}
0x137e…13a2 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GTKFVAL «, t00=0x000c, t01=0x00c8}
0x13a2…13d4 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATE «, t00=0x000c, t01=0x00ec}
0x13d4…140c Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN1,GSWBIN5,GTKFVAL KREDIT «, t00=0x000c, t01=0x011e}
0x140c…1420 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL120«, t00=0x000c, t01=0x0156}
0x1420…1442 Head {h00=0x001e, h01=0x0050, text=» CBE GTKFVAL,=D'0',TCL120 «, t00=0x000c, t01=0x016a}
0x1442…1466 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTKFVAL «, t00=0x000c, t01=0x018c}
0x1466…1488 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000d, t01=0x0020}
0x1488…14ac Head {h00=0x0020, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 BFO NR«, t00=0x000d, t01=0x0042}
0x14ac…14d4 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'VERSUR KONTO '«, t00=0x000d, t01=0x0066}
0x14d4…1502 Head {h00=0x002a, h01=0x0050, text=» PERF TR2GEN,CBIN1 GENERATE TR2 DEBET «, t00=0x000d, t01=0x008e}
0x1502…1516 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL120«, t00=0x000d, t01=0x00bc}
0x1516…153a Head {h00=0x0020, h01=0x0050, text=»TCL120 MOVE GSWBIN5,GSWBCD5 «, t00=0x000d, t01=0x00d0}
0x153a…1570 Head {h00=0x0032, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN2,GSWBIN5,GTKFVAL DEBET«, t00=0x000d, t01=0x00f4}
0x1570…1584 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL130«, t00=0x000d, t01=0x012a}
0x1584…15a6 Head {h00=0x001e, h01=0x0050, text=» CBE GTKFVAL,=D'0',TCL130 «, t00=0x000d, t01=0x013e}
0x15a6…15ca Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTKFVAL «, t00=0x000d, t01=0x0160}
0x15ca…15ec Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000d, t01=0x0184}
0x15ec…1610 Head {h00=0x0020, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 BFONR «, t00=0x000e, t01=0x0016}
0x1610…1638 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'VERSUR KONTO '«, t00=0x000e, t01=0x003a}
0x1638…1666 Head {h00=0x002a, h01=0x0050, text=» PERF TR2GEN,CBIN2 GENERATE TR2 KREDIT«, t00=0x000e, t01=0x0062}
0x1666…167a Head {h00=0x0010, h01=0x0050, text=» BNOK TCL130«, t00=0x000e, t01=0x0090}
0x167a…1688 Head {h00=0x000a, h01=0x0050, text=»TCL130«, t00=0x000e, t01=0x00a4}
0x1688…1698 Head {h00=0x000c, h01=0x0050, text=»* PENGE «, t00=0x000e, t01=0x00b2}
0x1698…16b6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x000e, t01=0x00c2}
0x16b6…16ee Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN0,GSWBIN5,GTKFVAL KONTONR«, t00=0x000e, t01=0x00e0}
0x16ee…1702 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL140«, t00=0x000e, t01=0x0118}
0x1702…1724 Head {h00=0x001e, h01=0x0050, text=» CBE GTKFVAL,=D'0',TCL140 «, t00=0x000e, t01=0x012c}
0x1724…1748 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GTKFVAL «, t00=0x000e, t01=0x014e}
0x1748…177a Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATE «, t00=0x000e, t01=0x0172}
0x177a…17ae Head {h00=0x0030, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN1,GSWBIN5,GTKFVAL BEV«, t00=0x000f, t01=0x0014}
0x17ae…17c2 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL140«, t00=0x000f, t01=0x0048}
0x17c2…17e4 Head {h00=0x001e, h01=0x0050, text=» CBE GTKFVAL,=D'0',TCL140 «, t00=0x000f, t01=0x005c}
0x17e4…1808 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTKFVAL «, t00=0x000f, t01=0x007e}
0x1808…182a Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000f, t01=0x00a2}
0x182a…184e Head {h00=0x0020, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 BFONR «, t00=0x000f, t01=0x00c4}
0x184e…1876 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'PENGE KONTO ' «, t00=0x000f, t01=0x00e8}
0x1876…189e Head {h00=0x0024, h01=0x0050, text=» PERF TR2GEN,CBIN0 GENERATE TR 2«, t00=0x000f, t01=0x0110}
0x189e…18b2 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL140«, t00=0x000f, t01=0x0138}
0x18b2…18c0 Head {h00=0x000a, h01=0x0050, text=»TCL140«, t00=0x000f, t01=0x014c}
0x18c0…18da Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x000f, t01=0x015a}
0x18da…18fc Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD5,=D'5',TCL110 «, t00=0x000f, t01=0x0174}
0x18fc…190a Head {h00=0x000a, h01=0x0050, text=»TCL150«, t00=0x0010, t01=0x0008}
0x190a…1918 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0016}
0x1918…1930 Head {h00=0x0014, h01=0x0050, text=»* VERSUR - KASSE«, t00=0x0010, t01=0x0024}
0x1930…193e Head {h00=0x000a, h01=0x0050, text=»TCL205«, t00=0x0010, t01=0x003c}
0x193e…1952 Head {h00=0x0010, h01=0x0050, text=» SET GTTFLG «, t00=0x0010, t01=0x004a}
0x1952…1974 Head {h00=0x001e, h01=0x0050, text=» CBE TVERSUR,=D'0',TCL235 «, t00=0x0010, t01=0x005e}
0x1974…19a2 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN1),TVERSUR REMIT ACC «, t00=0x0010, t01=0x0080}
0x19a2…19d0 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN4),TTACC(CBIN6,CBIN1)«, t00=0x0010, t01=0x00ae}
0x19d0…19fe Head {h00=0x002a, h01=0x0050, text=» ADD GTDUPF(CBIN4),TTACC(CBIN6,CBIN2) «, t00=0x0010, t01=0x00dc}
0x19fe…1a26 Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN4),=D'0',TCL235 «, t00=0x0010, t01=0x010a}
0x1a26…1a48 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 «, t00=0x0010, t01=0x0132}
0x1a48…1a6a Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x0010, t01=0x0154}
0x1a6a…1a8c Head {h00=0x001e, h01=0x0050, text=» MUL GTDUPF(CBIN4),=D'-1' «, t00=0x0010, t01=0x0176}
0x1a8c…1abc Head {h00=0x002c, h01=0x0050, text=» MOVE GSWSTR20,=C'VERSUR KONTONR REMIT '«, t00=0x0011, t01=0x0008}
0x1abc…1ad8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x0011, t01=0x0038}
0x1ad8…1af2 Head {h00=0x0016, h01=0x0050, text=» PERF TR2GEN,CBIN0«, t00=0x0011, t01=0x0054}
0x1af2…1b06 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL205«, t00=0x0011, t01=0x006e}
0x1b06…1b14 Head {h00=0x000a, h01=0x0050, text=»TCL235«, t00=0x0011, t01=0x0082}
0x1b14…1b2c Head {h00=0x0014, h01=0x0050, text=» CASH MOVEMENT«, t00=0x0011, t01=0x0090}
0x1b2c…1b5a Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN1),TTCASHAC ACCOUNTNR«, t00=0x0011, t01=0x00a8}
0x1b5a…1b8a Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN4),TTCASH CURRENT CASH «, t00=0x0011, t01=0x00d6}
0x1b8a…1bba Head {h00=0x002c, h01=0x0050, text=» SUB GTDUPF(CBIN4),TTSTCASH INITIAL CASH«, t00=0x0011, t01=0x0106}
0x1bba…1bdc Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 «, t00=0x0011, t01=0x0136}
0x1bdc…1bfe Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x0011, t01=0x0158}
0x1bfe…1c26 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'KASSE-KONTO ' «, t00=0x0011, t01=0x017a}
0x1c26…1c42 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x0012, t01=0x0012}
0x1c42…1c5c Head {h00=0x0016, h01=0x0050, text=» PERF TR2GEN,CBIN0«, t00=0x0012, t01=0x002e}
0x1c5c…1c70 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL235«, t00=0x0012, t01=0x0048}
0x1c70…1c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005c}
0x1c7a…1cae Head {h00=0x0030, h01=0x0050, text=»* WRITING OF DISC JOURNAL AND VOUCHER «, t00=0x0012, t01=0x0066}
0x1cae…1cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009a}
0x1cb8…1cda Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x0012, t01=0x00a4}
0x1cda…1cee Head {h00=0x0010, h01=0x0050, text=» PERF CLEDB «, t00=0x0012, t01=0x00c6}
0x1cee…1d08 Head {h00=0x0016, h01=0x0050, text=»* PRINT KONTOFILE «, t00=0x0012, t01=0x00da}
0x1d08…1d2a Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x0012, t01=0x00f4}
0x1d2a…1d3c Head {h00=0x000e, h01=0x0050, text=» PERF CLKF«, t00=0x0012, t01=0x0116}
0x1d3c…1d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0128}
0x1d46…1d64 Head {h00=0x001a, h01=0x0050, text=»* BEHOLDNINGST[LLERE «, t00=0x0012, t01=0x0132}
0x1d64…1d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0150}
0x1d6e…1d82 Head {h00=0x0010, h01=0x0050, text=» PERF CLBEH «, t00=0x0012, t01=0x015a}
0x1d82…1d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016e}
0x1d8c…1daa Head {h00=0x001a, h01=0x0050, text=» MOVE TTSTCASH,TTCASH «, t00=0x0012, t01=0x0178}
0x1daa…1dc8 Head {h00=0x001a, h01=0x0050, text=» MOVE TTSTLBNR,TTLBNR «, t00=0x0013, t01=0x0008}
0x1dc8…1de4 Head {h00=0x0018, h01=0x0050, text=» ADD TTSTLBNR,=D'1' «, t00=0x0013, t01=0x0026}
0x1de4…1e16 Head {h00=0x002e, h01=0x0050, text=» MUL TTSTLBNR,=D'-1' SET NEGATIVE (CLOSE) «, t00=0x0013, t01=0x0042}
0x1e16…1e4e Head {h00=0x0034, h01=0x0050, text=» MUL CMASK(TTASKNR),=D'-1' SET CMASK < 0, CLOSE «, t00=0x0013, t01=0x0074}
0x1e4e…1e64 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTTFLG «, t00=0x0013, t01=0x00ac}
0x1e64…1e72 Head {h00=0x000a, h01=0x0050, text=»TCL550«, t00=0x0013, t01=0x00c2}
0x1e72…1e90 Head {h00=0x001a, h01=0x0050, text=» MOVE TTRECOPN,CRECBCD«, t00=0x0013, t01=0x00d0}
0x1e90…1ea2 Head {h00=0x000e, h01=0x0050, text=» PERF ZERO«, t00=0x0013, t01=0x00ee}
0x1ea2…1ed8 Head {h00=0x0032, h01=0x0050, text=» PERF TCONFW,TTASKNR STORE NEW INITIAL VALUES «, t00=0x0013, t01=0x0100}
0x1ed8…1eec Head {h00=0x0010, h01=0x0050, text=» PERF CONFWR«, t00=0x0013, t01=0x0136}
0x1eec…1f00 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL550«, t00=0x0013, t01=0x014a}
0x1f00…1f16 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTKASSE«, t00=0x0013, t01=0x015e}
0x1f16…1f34 Head {h00=0x001a, h01=0x0050, text=»* ZERONIZE COUNTERS «, t00=0x0013, t01=0x0174}
0x1f34…1f52 (20, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* TRANS 12 COUNTERS «, t00=0x0014, t01=0x0004}
0x1f52…1f6e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=C'*'«, t00=0x0014, t01=0x0022}
0x1f6e…1f8a Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0014, t01=0x003e}
0x1f8a…1fa8 Head {h00=0x001a, h01=0x0050, text=» CMP CBIN0,CBIN0 DUMMY«, t00=0x0014, t01=0x005a}
0x1fa8…1fb4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x0078}
0x1fb4…1fc2 Head {h00=0x000a, h01=0x0050, text=»TCLMAK«, t00=0x0014, t01=0x0084}
0x1fc2…1fda Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0014, t01=0x0092}
0x1fda…1fe6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x00aa}
0x1fe6…1ff4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x00b6}
0x1ff4…2002 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00c4}
0x2002…2010 Head {h00=0x000a, h01=0x0050, text=»RGA200«, t00=0x0014, t01=0x00d2}
0x2010…2048 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0014, t01=0x00e0}
0x2048…2052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0118}
0x2052…208a Head {h00=0x0034, h01=0x0050, text=»* PERFORM OF SELECTED ADM ROUTINE«, t00=0x0014, t01=0x0122}
0x208a…2094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015a}
0x2094…20ce Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0014, t01=0x0164}
0x20ce…20d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000e}
0x20d8…20f6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0015, t01=0x0018}
0x20f6…2110 Head {h00=0x0016, h01=0x0050, text=» PERF ADM,GSWBIN1 «, t00=0x0015, t01=0x0036}
0x2110…2122 Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x0015, t01=0x0050}
0x2122…2130 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0062}
0x2130…2142 Head {h00=0x000e, h01=0x0050, text=»ZERO PROC «, t00=0x0015, t01=0x0070}
0x2142…214c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0082}
0x214c…216a Head {h00=0x001a, h01=0x0050, text=»* ZERONIZE COUNTERS «, t00=0x0015, t01=0x008c}
0x216a…2188 Head {h00=0x001a, h01=0x0050, text=»* TRANS 12 COUNTERS «, t00=0x0015, t01=0x00aa}
0x2188…21b2 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN3,CTR12(TTASKNR,CBIN1)«, t00=0x0015, t01=0x00c8}
0x21b2…21d0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN3 «, t00=0x0015, t01=0x00f2}
0x21d0…21fa Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN2,CTR12(TTASKNR,CBIN2) «, t00=0x0015, t01=0x0110}
0x21fa…2208 Head {h00=0x000a, h01=0x0050, text=»TCL610«, t00=0x0015, t01=0x013a}
0x2208…2222 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN1«, t00=0x0015, t01=0x0148}
0x2222…2246 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN3,GSWBIN2,TCL615 «, t00=0x0015, t01=0x0162}
0x2246…2270 Head {h00=0x0026, h01=0x0050, text=» MOVE C12ACC(GSWBIN3,CBIN1),=D'0' «, t00=0x0015, t01=0x0186}
0x2270…229a Head {h00=0x0026, h01=0x0050, text=» MOVE C12ACC(GSWBIN3,CBIN2),=D'0' «, t00=0x0016, t01=0x0020}
0x229a…22b6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTKFVAL,=D'0' «, t00=0x0016, t01=0x004a}
0x22b6…22e6 Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN1,CBIN1,GSWBIN3,GTKFVAL«, t00=0x0016, t01=0x0066}
0x22e6…2316 Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN1,CBIN2,GSWBIN3,GTKFVAL«, t00=0x0016, t01=0x0096}
0x2316…2328 Head {h00=0x000e, h01=0x0050, text=» B TCL610 «, t00=0x0016, t01=0x00c6}
0x2328…2336 Head {h00=0x000a, h01=0x0050, text=»TCL615«, t00=0x0016, t01=0x00d8}
0x2336…234e Head {h00=0x0014, h01=0x0050, text=»* ACCUMULATORS«, t00=0x0016, t01=0x00e6}
0x234e…236a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0016, t01=0x00fe}
0x236a…2378 Head {h00=0x000a, h01=0x0050, text=»TCL620«, t00=0x0016, t01=0x011a}
0x2378…2392 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0016, t01=0x0128}
0x2392…23ba Head {h00=0x0024, h01=0x0050, text=» MOVE TTACC(GSWBIN1,CBIN1),=D'0'«, t00=0x0016, t01=0x0142}
0x23ba…23e2 Head {h00=0x0024, h01=0x0050, text=» MOVE TTACC(GSWBIN1,CBIN2),=D'0'«, t00=0x0016, t01=0x016a}
0x23e2…2404 (23, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN1,CBIN8,TCL620 «, t00=0x0017, t01=0x0004}
0x2404…2410 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0026}
0x2410…241e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x0032}
0x241e…242c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0040}
0x242c…243e Head {h00=0x000e, h01=0x0050, text=»CLEJ PROC «, t00=0x0017, t01=0x004e}
0x243e…247c Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0017, t01=0x0060}
0x247c…2486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x009e}
0x2486…24b8 Head {h00=0x002e, h01=0x0050, text=»* NOW ALL ACCUMULATORS NOT = 0«, t00=0x0017, t01=0x00a8}
0x24b8…24e2 Head {h00=0x0026, h01=0x0050, text=»* HAS BEEN REGISTRATED«, t00=0x0017, t01=0x00da}
0x24e2…2518 Head {h00=0x0032, h01=0x0050, text=»* A VOUCHER PRINT OF ALL TR12 ACC «, t00=0x0017, t01=0x0104}
0x2518…253e Head {h00=0x0022, h01=0x0050, text=»* IS NOW PERFORMED«, t00=0x0017, t01=0x013a}
0x253e…2548 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0017, t01=0x0160}
0x2548…2588 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0017, t01=0x016a}
0x2588…25a4 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x0018, t01=0x001a}
0x25a4…25cc Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,='EJ-EDB T[LLER '«, t00=0x0018, t01=0x0036}
0x25cc…25fc Head {h00=0x002c, h01=0x0050, text=» CBE CTR12(TTASKNR,CBIN2),CBIN0,CLEJRET «, t00=0x0018, t01=0x005e}
0x25fc…2616 Head {h00=0x0016, h01=0x0050, text=» PERF WAHEAD,CBIN8«, t00=0x0018, t01=0x008e}
0x2616…2632 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x0018, t01=0x00a8}
0x2632…2640 Head {h00=0x000a, h01=0x0050, text=»CLEJ10«, t00=0x0018, t01=0x00c4}
0x2640…265a Head {h00=0x0016, h01=0x0050, text=» ADD GTWBCD1,=D'1'«, t00=0x0018, t01=0x00d2}
0x265a…2680 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN5,GTWBCD1 CONVERT «, t00=0x0018, t01=0x00ec}
0x2680…26b0 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN5,CTR12(TTASKNR,CBIN2),CLEJ90«, t00=0x0018, t01=0x0112}
0x26b0…26da Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN5,CTR12(TTASKNR,CBIN1) «, t00=0x0018, t01=0x0142}
0x26da…270c Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) «, t00=0x0018, t01=0x016c}
0x270c…273c Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2)«, t00=0x0019, t01=0x000e}
0x273c…2768 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5)«, t00=0x0019, t01=0x003e}
0x2768…2790 Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN1),=D'0',CLEJ10 «, t00=0x0019, t01=0x006a}
0x2790…27b2 Head {h00=0x001e, h01=0x0050, text=» CBG TTLINNR,=D'0',CLEJ20 «, t00=0x0019, t01=0x0092}
0x27b2…27cc Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0019, t01=0x00b4}
0x27cc…27e8 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x0019, t01=0x00ce}
0x27e8…2802 Head {h00=0x0016, h01=0x0050, text=» PERF WAHEAD,CBIN8«, t00=0x0019, t01=0x00ea}
0x2802…2810 Head {h00=0x000a, h01=0x0050, text=»CLEJ20«, t00=0x0019, t01=0x0104}
0x2810…282a Head {h00=0x0016, h01=0x0050, text=» PERF WALINE,CBIN9«, t00=0x0019, t01=0x0112}
0x282a…283c Head {h00=0x000e, h01=0x0050, text=» B CLEJ10 «, t00=0x0019, t01=0x012c}
0x283c…284a Head {h00=0x000a, h01=0x0050, text=»CLEJ90«, t00=0x0019, t01=0x013e}
0x284a…2864 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0019, t01=0x014c}
0x2864…2874 Head {h00=0x000c, h01=0x0050, text=»CLEJRET «, t00=0x0019, t01=0x0166}
0x2874…2880 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x0176}
0x2880…288e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x0182}
0x288e…289c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0190}
0x289c…28ae Head {h00=0x000e, h01=0x0050, text=»CLKF PROC «, t00=0x001a, t01=0x000e}
0x28ae…28cc Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001a, t01=0x0020}
0x28cc…28e6 Head {h00=0x0016, h01=0x0050, text=»* CLOSE KONTOFILE «, t00=0x001a, t01=0x003e}
0x28e6…2918 Head {h00=0x002e, h01=0x0050, text=»* UDSKRIV OG NULSTIL VERSUR OG PENGEKONTI «, t00=0x001a, t01=0x0058}
0x2918…2936 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001a, t01=0x008a}
0x2936…2954 Head {h00=0x001a, h01=0x0050, text=» TBF CREMITFL,CLKFRET «, t00=0x001a, t01=0x00a8}
0x2954…2982 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR20,=C'LOKAL REMITTERING ' «, t00=0x001a, t01=0x00c6}
0x2982…2998 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x001a, t01=0x00f4}
0x2998…29b0 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001a, t01=0x010a}
0x29b0…29ca Head {h00=0x0016, h01=0x0050, text=» PERF WAHEAD,CBIN8«, t00=0x001a, t01=0x0122}
0x29ca…29f2 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD5,=D'0' LOOP ON BFO «, t00=0x001a, t01=0x013c}
0x29f2…2a28 Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGF(CBIN1),=D'0' TOTAL KREDIT-VERSUR «, t00=0x001a, t01=0x0164}
0x2a28…2a5e Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGF(CBIN2),=D'0' TOTAL DEBET - VERSUR«, t00=0x001b, t01=0x000a}
0x2a5e…2a90 Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN3),=D'0' TOTAL BEV-PENGE «, t00=0x001b, t01=0x0040}
0x2a90…2aa2 Head {h00=0x000e, h01=0x0050, text=» B CLKF100«, t00=0x001b, t01=0x0072}
0x2aa2…2ab2 Head {h00=0x000c, h01=0x0050, text=»CLKF010 «, t00=0x001b, t01=0x0084}
0x2ab2…2ad6 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 BFO NR«, t00=0x001b, t01=0x0094}
0x2ad6…2b0e Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN0,GSWBIN5,GTKFVAL KONTONR«, t00=0x001b, t01=0x00b8}
0x2b0e…2b32 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GTKFVAL «, t00=0x001b, t01=0x00f0}
0x2b32…2b6a Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN1,GSWBIN5,GTKFVAL KREDIT «, t00=0x001b, t01=0x0114}
0x2b6a…2b9e Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTKFVAL PUT INTO KREDIT«, t00=0x001b, t01=0x014c}
0x2b9e…2bce Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN2),GTKFVAL ADD TO TOTAL «, t00=0x001b, t01=0x0180}
0x2bce…2c04 Head {h00=0x0032, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN2,GSWBIN5,GTKFVAL DEBET«, t00=0x001c, t01=0x0020}
0x2c04…2c36 Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN5),GTKFVAL PUT INTO DEBET«, t00=0x001c, t01=0x0056}
0x2c36…2c66 Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN1),GTKFVAL ADD TO TOTAL «, t00=0x001c, t01=0x0088}
0x2c66…2c84 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x001c, t01=0x00b8}
0x2c84…2ca2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x001c, t01=0x00d6}
0x2ca2…2cb8 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x001c, t01=0x00f4}
0x2cb8…2cd4 Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN20 «, t00=0x001c, t01=0x010a}
0x2cd4…2cec Head {h00=0x0014, h01=0x0050, text=»CLKF100 PENGE «, t00=0x001c, t01=0x0126}
0x2cec…2d0a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x001c, t01=0x013e}
0x2d0a…2d42 Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN0,GSWBIN5,GTKFVAL KONTONR«, t00=0x001c, t01=0x015c}
0x2d42…2d66 (29, 0, 400) Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GTKFVAL «, t00=0x001d, t01=0x0004}
0x2d66…2d9a Head {h00=0x0030, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN1,GSWBIN5,GTKFVAL BEV«, t00=0x001d, t01=0x0028}
0x2d9a…2dca Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN3),GTKFVAL ADD TO TOTAL «, t00=0x001d, t01=0x005c}
0x2dca…2dee Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTKFVAL «, t00=0x001d, t01=0x008c}
0x2dee…2e06 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001d, t01=0x00b0}
0x2e06…2e24 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x001d, t01=0x00c8}
0x2e24…2e42 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x001d, t01=0x00e6}
0x2e42…2e5e Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN20 «, t00=0x001d, t01=0x0104}
0x2e5e…2e78 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x001d, t01=0x0120}
0x2e78…2e9a Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD5,=D'5',CLKF010«, t00=0x001d, t01=0x013a}
0x2e9a…2eb0 Head {h00=0x0012, h01=0x0050, text=»* WRITE TOTAL «, t00=0x001d, t01=0x015c}
0x2eb0…2ee0 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN1),=X'FF' CLEAR KONTONR«, t00=0x001d, t01=0x0172}
0x2ee0…2f08 Head {h00=0x0024, h01=0x0050, text=» MOVE GTWBCD1,=X'FF' CLEAR BFUND«, t00=0x001e, t01=0x0012}
0x2f08…2f3c Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTREGF(CBIN3) TOTAL BEV «, t00=0x001e, t01=0x003a}
0x2f3c…2f6c Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN5),GTREGF(CBIN1) KREDIT«, t00=0x001e, t01=0x006e}
0x2f6c…2f9c Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTREGF(CBIN2) DEBET «, t00=0x001e, t01=0x009e}
0x2f9c…2fb0 Head {h00=0x0010, h01=0x0050, text=» SET GTDYFLG«, t00=0x001e, t01=0x00ce}
0x2fb0…2fc6 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x001e, t01=0x00e2}
0x2fc6…2fe8 Head {h00=0x001e, h01=0x0050, text=» PERF WALINE,CBIN20 VERSUR«, t00=0x001e, t01=0x00f8}
0x2fe8…2ffe Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x001e, t01=0x011a}
0x2ffe…3016 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001e, t01=0x0130}
0x3016…3036 Head {h00=0x001c, h01=0x0050, text=» PERF WALINE,CBIN20 BEV «, t00=0x001e, t01=0x0148}
0x3036…3050 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x001e, t01=0x0168}
0x3050…306e Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLKFRET «, t00=0x001e, t01=0x0182}
0x306e…308e Head {h00=0x001c, h01=0x0050, text=»* NULSTIL VERSUR + PENGE«, t00=0x001f, t01=0x0010}
0x308e…30aa Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x001f, t01=0x0030}
0x30aa…30c6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTKFVAL,=D'0' «, t00=0x001f, t01=0x004c}
0x30c6…30d8 Head {h00=0x000e, h01=0x0050, text=» B CLKF210«, t00=0x001f, t01=0x0068}
0x30d8…30e8 Head {h00=0x000c, h01=0x0050, text=»CLKF200 «, t00=0x001f, t01=0x007a}
0x30e8…3106 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x001f, t01=0x008a}
0x3106…3136 Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN3,CBIN1,GSWBIN5,GTKFVAL«, t00=0x001f, t01=0x00a8}
0x3136…3166 Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN3,CBIN2,GSWBIN5,GTKFVAL«, t00=0x001f, t01=0x00d8}
0x3166…3176 Head {h00=0x000c, h01=0x0050, text=»CLKF210 «, t00=0x001f, t01=0x0108}
0x3176…3194 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x001f, t01=0x0118}
0x3194…31c4 Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN2,CBIN1,GSWBIN5,GTKFVAL«, t00=0x001f, t01=0x0136}
0x31c4…31de Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x001f, t01=0x0166}
0x31de…3200 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD5,=D'5',CLKF200«, t00=0x001f, t01=0x0180}
0x3200…3210 Head {h00=0x000c, h01=0x0050, text=»CLKFRET «, t00=0x0020, t01=0x0012}
0x3210…321c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0020, t01=0x0022}
0x321c…322a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0020, t01=0x002e}
0x322a…3238 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x003c}
0x3238…324a Head {h00=0x000e, h01=0x0050, text=»CLEDB PROC«, t00=0x0020, t01=0x004a}
0x324a…3254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x005c}
0x3254…3288 Head {h00=0x0030, h01=0x0050, text=»* WRITING OF DISC JOURNAL AND VOUCHER «, t00=0x0020, t01=0x0066}
0x3288…3292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x009a}
0x3292…32ba Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'EDB-T[LLERE ' «, t00=0x0020, t01=0x00a4}
0x32ba…32d4 Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'6'«, t00=0x0020, t01=0x00cc}
0x32d4…32ee Head {h00=0x0016, h01=0x0050, text=» PERF WAHEAD,CBIN8«, t00=0x0020, t01=0x00e6}
0x32ee…330a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0020, t01=0x0100}
0x330a…3332 Head {h00=0x0024, h01=0x0050, text=» MOVE GTREGF(CBIN1),=D'0' TOTAL «, t00=0x0020, t01=0x011c}
0x3332…3354 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN2),=D'0' «, t00=0x0020, t01=0x0144}
0x3354…3364 Head {h00=0x000c, h01=0x0050, text=»CLEDB010«, t00=0x0020, t01=0x0166}
0x3364…3382 Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLEDB020«, t00=0x0020, t01=0x0176}
0x3382…339e (33, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE GTREGNR,=D'11'«, t00=0x0021, t01=0x0004}
0x339e…33ae Head {h00=0x000c, h01=0x0050, text=»CLEDB020«, t00=0x0021, t01=0x0020}
0x33ae…33c8 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x0021, t01=0x0030}
0x33c8…33d8 Head {h00=0x000c, h01=0x0050, text=»CLEDB030«, t00=0x0021, t01=0x004a}
0x33d8…33f6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x0021, t01=0x005a}
0x33f6…341a Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN5,CBIN6,CLEDB100 «, t00=0x0021, t01=0x0078}
0x341a…344a Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN1),TTACC(GSWBIN5,CBIN1) «, t00=0x0021, t01=0x009c}
0x344a…347a Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN2),TTACC(GSWBIN5,CBIN2) «, t00=0x0021, t01=0x00cc}
0x347a…349c Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),CBIN0 «, t00=0x0021, t01=0x00fc}
0x349c…34cc Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN1)«, t00=0x0021, t01=0x011e}
0x34cc…34fc Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN2) «, t00=0x0021, t01=0x014e}
0x34fc…352c Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TTACC(GSWBIN5,CBIN1)«, t00=0x0021, t01=0x017e}
0x352c…3562 Head {h00=0x0032, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTACC(GSWBIN5,CBIN2) DEBET«, t00=0x0022, t01=0x001e}
0x3562…3580 Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLEDB040«, t00=0x0022, t01=0x0054}
0x3580…35a4 Head {h00=0x0020, h01=0x0050, text=» MOVE GTUSED(CBIN6),=W'-53' «, t00=0x0022, t01=0x0072}
0x35a4…35c8 Head {h00=0x0020, h01=0x0050, text=» MOVE GTUSED(CBIN5),=W'-52' «, t00=0x0022, t01=0x0096}
0x35c8…35ec Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GSWBCD5 «, t00=0x0022, t01=0x00ba}
0x35ec…360e Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN1),=W'50'«, t00=0x0022, t01=0x00de}
0x360e…363e Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN2),=D'2' MARK FOR TOTAL«, t00=0x0022, t01=0x0100}
0x363e…3660 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN2),=W'51'«, t00=0x0022, t01=0x0130}
0x3660…3672 Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0022, t01=0x0152}
0x3672…3686 Head {h00=0x0010, h01=0x0050, text=» PERF WRITFD«, t00=0x0022, t01=0x0164}
0x3686…369c Head {h00=0x0012, h01=0x0050, text=» BNOK CLEDB030«, t00=0x0022, t01=0x0178}
0x369c…36ac Head {h00=0x000c, h01=0x0050, text=»CLEDB040«, t00=0x0022, t01=0x018e}
0x36ac…36d2 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 RESTORE «, t00=0x0023, t01=0x000e}
0x36d2…36f0 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x0023, t01=0x0034}
0x36f0…370a Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'7'«, t00=0x0023, t01=0x0052}
0x370a…3726 Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN10 «, t00=0x0023, t01=0x006c}
0x3726…373a Head {h00=0x0010, h01=0x0050, text=» B CLEDB010 «, t00=0x0023, t01=0x0088}
0x373a…374a Head {h00=0x000c, h01=0x0050, text=»CLEDB100«, t00=0x0023, t01=0x009c}
0x374a…375e Head {h00=0x0010, h01=0x0050, text=» PERF PACKCL«, t00=0x0023, t01=0x00ac}
0x375e…3788 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTREGF(CBIN1) «, t00=0x0023, t01=0x00c0}
0x3788…37b0 Head {h00=0x0024, h01=0x0050, text=» ADD GTDUPF(CBIN4),GTREGF(CBIN2)«, t00=0x0023, t01=0x00ea}
0x37b0…37de Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTACC(CBIN8,CBIN1)«, t00=0x0023, t01=0x0112}
0x37de…380c Head {h00=0x002a, h01=0x0050, text=» ADD GTDUPF(CBIN5),TTACC(CBIN8,CBIN2) «, t00=0x0023, t01=0x0140}
0x380c…3828 Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN11 «, t00=0x0023, t01=0x016e}
0x3828…3856 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTACC(CBIN1,CBIN1)«, t00=0x0023, t01=0x018a}
0x3856…3884 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TTACC(CBIN1,CBIN2)«, t00=0x0024, t01=0x0028}
0x3884…38a0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0024, t01=0x0056}
0x38a0…38b0 Head {h00=0x000c, h01=0x0050, text=»CLEDB110«, t00=0x0024, t01=0x0072}
0x38b0…38ca Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0024, t01=0x0082}
0x38ca…38ee Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN1,CBIN4,CLEDB120 «, t00=0x0024, t01=0x009c}
0x38ee…391e Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN5),TTACC(GSWBIN1,CBIN1) «, t00=0x0024, t01=0x00c0}
0x391e…394e Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN6),TTACC(GSWBIN1,CBIN2) «, t00=0x0024, t01=0x00f0}
0x394e…3962 Head {h00=0x0010, h01=0x0050, text=» B CLEDB110 «, t00=0x0024, t01=0x0120}
0x3962…3972 Head {h00=0x000c, h01=0x0050, text=»CLEDB120«, t00=0x0024, t01=0x0134}
0x3972…3990 Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLEDB160«, t00=0x0024, t01=0x0144}
0x3990…39bc Head {h00=0x0028, h01=0x0050, text=»* ADJUST FOR 'KASSE INDBERETNING' «, t00=0x0024, t01=0x0162}
0x39bc…39d8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,TTCASH«, t00=0x0024, t01=0x018e}
0x39d8…39f6 Head {h00=0x001a, h01=0x0050, text=» SUB GSWBCD1,TTSTCASH «, t00=0x0025, t01=0x001a}
0x39f6…3a1a Head {h00=0x0020, h01=0x0050, text=» CBL GSWBCD1,=D'0',CLEDB130 «, t00=0x0025, t01=0x0038}
0x3a1a…3a3c Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN6),GSWBCD1«, t00=0x0025, t01=0x005c}
0x3a3c…3a50 Head {h00=0x0010, h01=0x0050, text=» B CLEDB140 «, t00=0x0025, t01=0x007e}
0x3a50…3a60 Head {h00=0x000c, h01=0x0050, text=»CLEDB130«, t00=0x0025, t01=0x0092}
0x3a60…3a82 Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN5),GSWBCD1«, t00=0x0025, t01=0x00a2}
0x3a82…3a92 Head {h00=0x000c, h01=0x0050, text=»CLEDB140«, t00=0x0025, t01=0x00c4}
0x3a92…3abe Head {h00=0x0028, h01=0x0050, text=»* ADJUST FOR 'VERSUR INDBERETNING'«, t00=0x0025, t01=0x00d4}
0x3abe…3ae6 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD1,TTACC(CBIN6,CBIN1)«, t00=0x0025, t01=0x0100}
0x3ae6…3b0e Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD1,TTACC(CBIN6,CBIN2) «, t00=0x0025, t01=0x0128}
0x3b0e…3b30 Head {h00=0x001e, h01=0x0050, text=» MUL GSWBCD1,=D'-1' 'VEND'«, t00=0x0025, t01=0x0150}
0x3b30…3b54 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBCD1,=D'0',CLEDB150 «, t00=0x0025, t01=0x0172}
0x3b54…3b76 Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN6),GSWBCD1«, t00=0x0026, t01=0x0008}
0x3b76…3b8a Head {h00=0x0010, h01=0x0050, text=» B CLEDB160 «, t00=0x0026, t01=0x002a}
0x3b8a…3b9a Head {h00=0x000c, h01=0x0050, text=»CLEDB150«, t00=0x0026, t01=0x003e}
0x3b9a…3bbc Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN5),GSWBCD1«, t00=0x0026, t01=0x004e}
0x3bbc…3bcc Head {h00=0x000c, h01=0x0050, text=»CLEDB160«, t00=0x0026, t01=0x0070}
0x3bcc…3bee Head {h00=0x001e, h01=0x0050, text=» MUL GTDUPF(CBIN5),=D'-1' «, t00=0x0026, t01=0x0080}
0x3bee…3c10 Head {h00=0x001e, h01=0x0050, text=» MUL GTDUPF(CBIN6),=D'-1' «, t00=0x0026, t01=0x00a2}
0x3c10…3c2c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,TTCASH«, t00=0x0026, t01=0x00c4}
0x3c2c…3c4a Head {h00=0x001a, h01=0x0050, text=» SUB GSWBCD1,TTSTCASH «, t00=0x0026, t01=0x00e0}
0x3c4a…3c6e Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GSWBCD1 «, t00=0x0026, t01=0x00fe}
0x3c6e…3c8a Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN12 «, t00=0x0026, t01=0x0122}
0x3c8a…3ca4 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0026, t01=0x013e}
0x3ca4…3cb0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0158}
0x3cb0…3cbe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x0164}
0x3cbe…3ccc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0172}
0x3ccc…3cde Head {h00=0x000e, h01=0x0050, text=»CLBEH PROC«, t00=0x0026, t01=0x0180}
0x3cde…3ce8 (39, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0004}
0x3ce8…3d06 Head {h00=0x001a, h01=0x0050, text=»* BEHOLDNINGST[LLERE «, t00=0x0027, t01=0x000e}
0x3d06…3d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x002c}
0x3d10…3d20 Head {h00=0x000c, h01=0x0050, text=»CLBEH010«, t00=0x0027, t01=0x0036}
0x3d20…3d3c Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x0027, t01=0x0046}
0x3d3c…3d66 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN2,CBEH(TTASKNR,CBIN2) «, t00=0x0027, t01=0x0062}
0x3d66…3d80 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN2,CBIN0«, t00=0x0027, t01=0x008c}
0x3d80…3d94 Head {h00=0x0010, h01=0x0050, text=» BE CLBEHRET«, t00=0x0027, t01=0x00a6}
0x3d94…3dbc Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN2,CBEH(TTASKNR,CBIN1)«, t00=0x0027, t01=0x00ba}
0x3dbc…3dda Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GSWBIN2 «, t00=0x0027, t01=0x00e2}
0x3dda…3df2 Head {h00=0x0014, h01=0x0050, text=» ATTFMT CLFRM04 «, t00=0x0027, t01=0x0100}
0x3df2…3e08 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0027, t01=0x0118}
0x3e08…3e1c Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0027, t01=0x012e}
0x3e1c…3e34 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW2, C «, t00=0x0027, t01=0x0142}
0x3e34…3e6e Head {h00=0x0036, h01=0x0050, text=» CLBEH030,CLBEH030,CLBEH050,CLBEH040,CLBEH030, C«, t00=0x0027, t01=0x015a}
0x3e6e…3ea8 (40, 0, 400) Head {h00=0x0036, h01=0x0050, text=» CLBEH030,CLBEH030,CLBEH030,CLBEH060,CLBEH030, C«, t00=0x0028, t01=0x0004}
0x3ea8…3ecc Head {h00=0x0020, h01=0x0050, text=» CLBEH030,CLBEH030,CLBEH060«, t00=0x0028, t01=0x003e}
0x3ecc…3edc Head {h00=0x000c, h01=0x0050, text=»CLBEH030«, t00=0x0028, t01=0x0062}
0x3edc…3ef0 Head {h00=0x0010, h01=0x0050, text=» B CLBEH010 «, t00=0x0028, t01=0x0072}
0x3ef0…3f00 Head {h00=0x000c, h01=0x0050, text=»CLBEH040«, t00=0x0028, t01=0x0086}
0x3f00…3f1e Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLBEH010«, t00=0x0028, t01=0x0096}
0x3f1e…3f44 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWSTR20,=C'SLET SALDO '«, t00=0x0028, t01=0x00b4}
0x3f44…3f60 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN1 «, t00=0x0028, t01=0x00da}
0x3f60…3f74 Head {h00=0x0010, h01=0x0050, text=» B CLBEH100 «, t00=0x0028, t01=0x00f6}
0x3f74…3f84 Head {h00=0x000c, h01=0x0050, text=»CLBEH050«, t00=0x0028, t01=0x010a}
0x3f84…3fa2 Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLBEH010«, t00=0x0028, t01=0x011a}
0x3fa2…3fca Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'SLET PERIODE '«, t00=0x0028, t01=0x0138}
0x3fca…3fe6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN2 «, t00=0x0028, t01=0x0160}
0x3fe6…3ffa Head {h00=0x0010, h01=0x0050, text=» B CLBEH100 «, t00=0x0028, t01=0x017c}
0x3ffa…400a Head {h00=0x000c, h01=0x0050, text=»CLBEH060«, t00=0x0028, t01=0x0190}
0x400a…402e Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR20,=C'SUBTOTAL '«, t00=0x0029, t01=0x0010}
0x402e…404a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN3 «, t00=0x0029, t01=0x0034}
0x404a…405e Head {h00=0x0010, h01=0x0050, text=» B CLBEH100 «, t00=0x0029, t01=0x0050}
0x405e…406e Head {h00=0x000c, h01=0x0050, text=»CLBEH100«, t00=0x0029, t01=0x0064}
0x406e…408a Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x0029, t01=0x0074}
0x408a…40a6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'0' «, t00=0x0029, t01=0x0090}
0x40a6…40c2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'0' «, t00=0x0029, t01=0x00ac}
0x40c2…40d2 Head {h00=0x000c, h01=0x0050, text=»CLBEH110«, t00=0x0029, t01=0x00c8}
0x40d2…40e6 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0029, t01=0x00d8}
0x40e6…4104 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,CVOUTOP «, t00=0x0029, t01=0x00ec}
0x4104…411e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN6«, t00=0x0029, t01=0x010a}
0x411e…413e Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN3«, t00=0x0029, t01=0x0124}
0x413e…4152 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0029, t01=0x0144}
0x4152…417e Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN13 HEAD ON VOUCHER «, t00=0x0029, t01=0x0158}
0x417e…419c Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0029, t01=0x0184}
0x419c…41ac Head {h00=0x000c, h01=0x0050, text=»CLBEH120«, t00=0x002a, t01=0x0012}
0x41ac…41c6 Head {h00=0x0016, h01=0x0050, text=» ADD GTWBCD1,=D'1'«, t00=0x002a, t01=0x0022}
0x41c6…41e4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,GTWBCD1 «, t00=0x002a, t01=0x003c}
0x41e4…420c Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN3,CBEH(TTASKNR,CBIN1)«, t00=0x002a, t01=0x005a}
0x420c…422a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GTWBCD2 «, t00=0x002a, t01=0x0082}
0x422a…4250 Head {h00=0x0022, h01=0x0050, text=» CBG GSWBIN3,GSWBIN4,CLBEH160 «, t00=0x002a, t01=0x00a0}
0x4250…4280 Head {h00=0x002c, h01=0x0050, text=» CBE CBACC(GSWBIN3,CBIN1),=D'0',CLBEH120«, t00=0x002a, t01=0x00c6}
0x4280…42ae Head {h00=0x002a, h01=0x0050, text=»* ADD TO TOTAL, PERIODE AND SALDO «, t00=0x002a, t01=0x00f6}
0x42ae…42e0 Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD6,CBACC(GSWBIN3,CBIN2) PERIODE «, t00=0x002a, t01=0x0124}
0x42e0…4310 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBCD7,CBACC(GSWBIN3,CBIN3) SALDO «, t00=0x002a, t01=0x0156}
0x4310…432c Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN14 «, t00=0x002a, t01=0x0186}
0x432c…434a Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x002b, t01=0x0012}
0x434a…4368 Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,CLBEH150«, t00=0x002b, t01=0x0030}
0x4368…4396 Head {h00=0x002a, h01=0x0050, text=» IB GSWBIN6,CLBEH130,CLBEH140,CLBEH150«, t00=0x002b, t01=0x004e}
0x4396…43aa Head {h00=0x0010, h01=0x0050, text=» B CLBEH150 «, t00=0x002b, t01=0x007c}
0x43aa…43ba Head {h00=0x000c, h01=0x0050, text=»CLBEH130«, t00=0x002b, t01=0x0090}
0x43ba…43e8 Head {h00=0x002a, h01=0x0050, text=» MOVE CBACC(GSWBIN3,CBIN3),=D'0' SALDO«, t00=0x002b, t01=0x00a0}
0x43e8…43f8 Head {h00=0x000c, h01=0x0050, text=»CLBEH140«, t00=0x002b, t01=0x00ce}
0x43f8…4428 Head {h00=0x002c, h01=0x0050, text=» MOVE CBACC(GSWBIN3,CBIN2),=D'0' PERIODE«, t00=0x002b, t01=0x00de}
0x4428…4438 Head {h00=0x000c, h01=0x0050, text=»CLBEH150«, t00=0x002b, t01=0x010e}
0x4438…4452 Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'1'«, t00=0x002b, t01=0x011e}
0x4452…4476 Head {h00=0x0020, h01=0x0050, text=» CBG TTLINNR,=D'0',CLBEH120 «, t00=0x002b, t01=0x0138}
0x4476…4490 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x002b, t01=0x015c}
0x4490…44ac Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x002b, t01=0x0176}
0x44ac…44c0 (44, 0, 400) Head {h00=0x0010, h01=0x0050, text=» B CLBEH110 «, t00=0x002c, t01=0x0004}
0x44c0…44d0 Head {h00=0x000c, h01=0x0050, text=»CLBEH160«, t00=0x002c, t01=0x0018}
0x44d0…44ee Head {h00=0x001a, h01=0x0050, text=»* WRITE TOTAL LINE«, t00=0x002c, t01=0x0028}
0x44ee…450a Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN18 «, t00=0x002c, t01=0x0046}
0x450a…4528 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x002c, t01=0x0062}
0x4528…4542 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x002c, t01=0x0080}
0x4542…4552 Head {h00=0x000c, h01=0x0050, text=»CLBEHRET«, t00=0x002c, t01=0x009a}
0x4552…455e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002c, t01=0x00aa}
0x455e…456c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002c, t01=0x00b6}
0x456c…4574 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x00c4}
0x4574…457c Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x00cc}
0x457c…4584 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x00d4}
0x4584…4592 Head {h00=0x000a, h01=0x0050, text=»RGA300«, t00=0x002c, t01=0x00dc}
0x4592…45ae Head {h00=0x0018, h01=0x0050, text=» TBT CCONVERT,RG310 «, t00=0x002c, t01=0x00ea}
0x45ae…45ca Head {h00=0x0018, h01=0x0050, text=» PERF ADM,CBIN11 SPG«, t00=0x002c, t01=0x0106}
0x45ca…45d8 Head {h00=0x000a, h01=0x0050, text=»RG310 «, t00=0x002c, t01=0x0122}
0x45d8…45ea Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x002c, t01=0x0130}
0x45ea…45f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0142}
0x45f8…4632 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x002c, t01=0x0150}
0x4632…463c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x018a}
0x463c…466e (45, 0, 400) Head {h00=0x002e, h01=0x0050, text=»* TR2GEN GENERATES A TRANSACTION 2«, t00=0x002d, t01=0x0004}
0x466e…4678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0036}
0x4678…46b4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x002d, t01=0x0040}
0x46b4…46cc Head {h00=0x0014, h01=0x0050, text=»TR2GEN PROC DBKR«, t00=0x002d, t01=0x007c}
0x46cc…46e6 Head {h00=0x0016, h01=0x0050, text=» MOVE TTDKDEX,DBKR«, t00=0x002d, t01=0x0094}
0x46e6…470a Head {h00=0x0020, h01=0x0050, text=» CBNE TTDKDEX,=W'0',TR2DBKR «, t00=0x002d, t01=0x00ae}
0x470a…4726 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN1 «, t00=0x002d, t01=0x00d2}
0x4726…474e Head {h00=0x0024, h01=0x0050, text=» CBL GTDUPF(CBIN4),=D'0',TR2DBKR«, t00=0x002d, t01=0x00ee}
0x474e…476a Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN2 «, t00=0x002d, t01=0x0116}
0x476a…477a Head {h00=0x000c, h01=0x0050, text=»TR2DBKR «, t00=0x002d, t01=0x0132}
0x477a…479e Head {h00=0x0020, h01=0x0050, text=» PERFI TTDKDEX,SETKRE,SETDEB«, t00=0x002d, t01=0x0142}
0x479e…47bc Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,CLFRM02 «, t00=0x002d, t01=0x0166}
0x47bc…47ec Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD1,GTDUPF(CBIN1) REG KONTO NR«, t00=0x002d, t01=0x0184}
0x47ec…4822 Head {h00=0x0032, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP 'KORT' REQUIRED? «, t00=0x002e, t01=0x0024}
0x4822…4834 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x002e, t01=0x005a}
0x4834…4848 Head {h00=0x0010, h01=0x0050, text=» BNOK TR2NOK«, t00=0x002e, t01=0x006c}
0x4848…4864 Head {h00=0x0018, h01=0x0050, text=» TBF CCLKTFLG,TR2OK «, t00=0x002e, t01=0x0080}
0x4864…4880 Head {h00=0x0018, h01=0x0050, text=» TBF GTKORTFL,TR2OK «, t00=0x002e, t01=0x009c}
0x4880…4892 Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x002e, t01=0x00b8}
0x4892…48a0 Head {h00=0x000a, h01=0x0050, text=»TR2OK «, t00=0x002e, t01=0x00ca}
0x48a0…48b8 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x002e, t01=0x00d8}
0x48b8…48d4 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x002e, t01=0x00f0}
0x48d4…48e2 Head {h00=0x000a, h01=0x0050, text=»TR2NOK«, t00=0x002e, t01=0x010c}
0x48e2…48ee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002e, t01=0x011a}
0x48ee…48fc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002e, t01=0x0126}
0x48fc…490a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0134}
0x490a…494a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002e, t01=0x0142}
0x494a…4954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0182}
0x4954…4994 Head {h00=0x003c, h01=0x0050, text=»* WAHEAD - GRASP AND WRITE HEADLINE ON VOUCHER «, t00=0x002e, t01=0x018c}
0x4994…499e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x003c}
0x499e…49de Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002f, t01=0x0046}
0x49de…49f8 Head {h00=0x0016, h01=0x0050, text=»WAHEAD PROC VOXDEX«, t00=0x002f, t01=0x0086}
0x49f8…4a16 Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,CLFRM03 «, t00=0x002f, t01=0x00a0}
0x4a16…4a36 Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2«, t00=0x002f, t01=0x00be}
0x4a36…4a4a Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x002f, t01=0x00de}
0x4a4a…4a6a Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CVOUTOP«, t00=0x002f, t01=0x00f2}
0x4a6a…4a7e Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x002f, t01=0x0112}
0x4a7e…4a9a Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,VOXDEX «, t00=0x002f, t01=0x0126}
0x4a9a…4ab8 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x002f, t01=0x0142}
0x4ab8…4ac4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0160}
0x4ac4…4ad2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x016c}
0x4ad2…4ada Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x017a}
0x4ada…4b1c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002f, t01=0x0182}
0x4b1c…4b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0034}
0x4b26…4b52 Head {h00=0x0028, h01=0x0050, text=»* WALINE WRITE ACCUMULATORLINE«, t00=0x0030, t01=0x003e}
0x4b52…4b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x006a}
0x4b5c…4b9e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0030, t01=0x0074}
0x4b9e…4bb8 Head {h00=0x0016, h01=0x0050, text=»WALINE PROC LINDEX«, t00=0x0030, t01=0x00b6}
0x4bb8…4bd4 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,LINDEX «, t00=0x0030, t01=0x00d0}
0x4bd4…4bf2 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0030, t01=0x00ec}
0x4bf2…4c0c Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'1'«, t00=0x0030, t01=0x010a}
0x4c0c…4c18 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x0124}
0x4c18…4c26 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0030, t01=0x0130}
0x4c26…4c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x013e}
0x4c30…4c3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0148}
0x4c3e…4c50 Head {h00=0x000e, h01=0x0050, text=»SKIFT PROC«, t00=0x0030, t01=0x0156}
0x4c50…4c72 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0030, t01=0x0168}
0x4c72…4c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x018a}
0x4c7c…4cba (49, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* SKIFT - THIS PROCEDURE TAKES HAND OF SHIFT«, t00=0x0031, t01=0x0004}
0x4cba…4cea Head {h00=0x002c, h01=0x0050, text=»* OF DISKS, IS ACTIVATED AFTER «, t00=0x0031, t01=0x0042}
0x4cea…4d04 Head {h00=0x0016, h01=0x0050, text=»* 12 ADM «, t00=0x0031, t01=0x0072}
0x4d04…4d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x008c}
0x4d0e…4d2e Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0031, t01=0x0096}
0x4d2e…4d3a Head {h00=0x0008, h01=0x0050, text=»SK00«, t00=0x0031, t01=0x00b6}
0x4d3a…4d54 Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CPFLG «, t00=0x0031, t01=0x00c2}
0x4d54…4d6a Head {h00=0x0012, h01=0x0050, text=» SET CSKIFTWN «, t00=0x0031, t01=0x00dc}
0x4d6a…4d9c Head {h00=0x002e, h01=0x0050, text=» PERF SPLIN8,CBIN8,CBIN2 'DISKETTE SKIFT' «, t00=0x0031, t01=0x00f2}
0x4d9c…4db4 Head {h00=0x0014, h01=0x0050, text=» TBF CWFLAG,SK15«, t00=0x0031, t01=0x0124}
0x4db4…4dce Head {h00=0x0016, h01=0x0050, text=» SUB CRECBCD,=D'1'«, t00=0x0031, t01=0x013c}
0x4dce…4df8 Head {h00=0x0026, h01=0x0050, text=» PERF SLUTID,CRECBCD WRITE 'SLUTD'«, t00=0x0031, t01=0x0156}
0x4df8…4e26 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0031, t01=0x0180}
0x4e26…4e32 Head {h00=0x0008, h01=0x0050, text=»SK15«, t00=0x0032, t01=0x001e}
0x4e32…4e52 Head {h00=0x001c, h01=0x0050, text=» PERF WRITID,CBIN2,CBIN2«, t00=0x0032, t01=0x002a}
0x4e52…4e6c Head {h00=0x0016, h01=0x0050, text=» PERF CLSVOL,CBIN2«, t00=0x0032, t01=0x004a}
0x4e6c…4e8a Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0032, t01=0x0064}
0x4e8a…4ea4 Head {h00=0x0016, h01=0x0050, text=» ADD CVOLNO,=D'1' «, t00=0x0032, t01=0x0082}
0x4ea4…4ec2 Head {h00=0x001a, h01=0x0050, text=» SET CRKCOPY FD2 EMPTY«, t00=0x0032, t01=0x009c}
0x4ec2…4ed0 Head {h00=0x000a, h01=0x0050, text=»SK120 «, t00=0x0032, t01=0x00ba}
0x4ed0…4ef4 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'512' LAMP 2 «, t00=0x0032, t01=0x00c8}
0x4ef4…4f08 Head {h00=0x0010, h01=0x0050, text=» PERF SOPRD «, t00=0x0032, t01=0x00ec}
0x4f08…4f34 Head {h00=0x0028, h01=0x0050, text=» TBF CRKCOPY,SK120 FD2 NOT EMPTY YET«, t00=0x0032, t01=0x0100}
0x4f34…4f3c Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x012c}
0x4f3c…4f5e Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN2,CBIN9,SK120 «, t00=0x0032, t01=0x0134}
0x4f5e…4f78 Head {h00=0x0016, h01=0x0050, text=» PERF ASGVOL,CBIN2«, t00=0x0032, t01=0x0156}
0x4f78…4f8c Head {h00=0x0010, h01=0x0050, text=» BNOK SK120 «, t00=0x0032, t01=0x0170}
0x4f8c…4faa Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0032, t01=0x0184}
0x4faa…4fc4 Head {h00=0x0016, h01=0x0050, text=» MOVE CRECNR,CBIN1«, t00=0x0033, t01=0x0012}
0x4fc4…4fe0 Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,=D'0' «, t00=0x0033, t01=0x002c}
0x4fe0…4ffa Head {h00=0x0016, h01=0x0050, text=» TBF CWFLAG,SK130 «, t00=0x0033, t01=0x0048}
0x4ffa…500e Head {h00=0x0010, h01=0x0050, text=» PERF STRTWR«, t00=0x0033, t01=0x0062}
0x500e…5022 Head {h00=0x0010, h01=0x0050, text=» BNOK SK120 «, t00=0x0033, t01=0x0076}
0x5022…5030 Head {h00=0x000a, h01=0x0050, text=»SK130 «, t00=0x0033, t01=0x008a}
0x5030…5056 Head {h00=0x0022, h01=0x0050, text=» PERF CNFWRT REWRITE CONFDATA «, t00=0x0033, t01=0x0098}
0x5056…5070 Head {h00=0x0016, h01=0x0050, text=» TBF CWFLAG,SK150 «, t00=0x0033, t01=0x00be}
0x5070…508c Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,=D'1' «, t00=0x0033, t01=0x00d8}
0x508c…50ac Head {h00=0x001c, h01=0x0050, text=» PERF WRITID,CBIN2,CBIN1«, t00=0x0033, t01=0x00f4}
0x50ac…50ba Head {h00=0x000a, h01=0x0050, text=»SK150 «, t00=0x0033, t01=0x0114}
0x50ba…50ce Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0033, t01=0x0122}
0x50ce…50ea Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'11' «, t00=0x0033, t01=0x0136}
0x50ea…5102 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSKIFTFL «, t00=0x0033, t01=0x0152}
0x5102…511a Head {h00=0x0014, h01=0x0050, text=» CLEAR CSKIFTWN «, t00=0x0033, t01=0x016a}
0x511a…513a Head {h00=0x001c, h01=0x0050, text=» CLEAR CPFLG DISC FREE «, t00=0x0033, t01=0x0182}
0x513a…5146 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0034, t01=0x0012}
0x5146…5154 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0034, t01=0x001e}
0x5154…515c Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x002c}
0x515c…5170 Head {h00=0x0010, h01=0x0050, text=»STRTWR PROC «, t00=0x0034, t01=0x0034}
0x5170…518e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0034, t01=0x0048}
0x518e…5198 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0066}
0x5198…51d2 Head {h00=0x0036, h01=0x0050, text=»* STRTWR - SET UP AND WRITE START RECORD «, t00=0x0034, t01=0x0070}
0x51d2…51dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00aa}
0x51dc…51e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00b4}
0x51e6…5206 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0034, t01=0x00be}
0x5206…5222 Head {h00=0x0018, h01=0x0050, text=» PERF STRTID,CVOLNO «, t00=0x0034, t01=0x00de}
0x5222…5250 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0034, t01=0x00fa}
0x5250…5266 Head {h00=0x0012, h01=0x0050, text=» BNOK STRTNOK «, t00=0x0034, t01=0x0128}
0x5266…5280 Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0034, t01=0x013e}
0x5280…52a0 Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK02,CRECNR «, t00=0x0034, t01=0x0158}
0x52a0…52b6 Head {h00=0x0012, h01=0x0050, text=» BNOK STRTNOK «, t00=0x0034, t01=0x0178}
0x52b6…52d2 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0034, t01=0x018e}
0x52d2…52de Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0035, t01=0x001a}
0x52de…52ee Head {h00=0x000c, h01=0x0050, text=»STRTNOK «, t00=0x0035, t01=0x0026}
0x52ee…5306 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0035, t01=0x0036}
0x5306…5312 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0035, t01=0x004e}
0x5312…5320 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0035, t01=0x005a}
0x5320…532e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0068}
0x532e…5348 Head {h00=0x0016, h01=0x0050, text=»STRTID PROC VOLID «, t00=0x0035, t01=0x0076}
0x5348…5364 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0035, t01=0x0090}
0x5364…53a2 Head {h00=0x003a, h01=0x0050, text=»* STRTID - SETS UP A START ID IN PACK BUFFER«, t00=0x0035, t01=0x00ac}
0x53a2…53c6 Head {h00=0x0020, h01=0x0050, text=»* CALL - PERF STRTID,<VOLID>«, t00=0x0035, t01=0x00ea}
0x53c6…53e2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0035, t01=0x010e}
0x53e2…53f6 Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0035, t01=0x012a}
0x53f6…541a Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',STRT10 «, t00=0x0035, t01=0x013e}
0x541a…5430 Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0035, t01=0x0162}
0x5430…543e Head {h00=0x000a, h01=0x0050, text=»STRT10«, t00=0x0035, t01=0x0178}
0x543e…545a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN2 «, t00=0x0035, t01=0x0186}
0x545a…5478 Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0036, t01=0x0012}
0x5478…5496 Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,STARTFR «, t00=0x0036, t01=0x0030}
0x5496…54b2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,VOLID «, t00=0x0036, t01=0x004e}
0x54b2…54d0 Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FRVOLID«, t00=0x0036, t01=0x006a}
0x54d0…54ec Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x0036, t01=0x0088}
0x54ec…5520 Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,GSWBIN1,CBIN12,GSWSTR20,CBIN0 «, t00=0x0036, t01=0x00a4}
0x5520…552c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x00d8}
0x552c…553a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x00e4}
0x553a…5542 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x00f2}
0x5542…555c Head {h00=0x0016, h01=0x0050, text=»SLUTID PROC SLUTNO«, t00=0x0036, t01=0x00fa}
0x555c…5578 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0036, t01=0x0114}
0x5578…55ae Head {h00=0x0032, h01=0x0050, text=»* SLUTID - SETS UP A SLUTD IN CPCKBUF«, t00=0x0036, t01=0x0130}
0x55ae…55ca Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0036, t01=0x0166}
0x55ca…55de Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0036, t01=0x0182}
0x55de…5602 Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',SLUT10 «, t00=0x0037, t01=0x0008}
0x5602…5618 Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0037, t01=0x002c}
0x5618…5626 Head {h00=0x000a, h01=0x0050, text=»SLUT10«, t00=0x0037, t01=0x0042}
0x5626…5644 Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0037, t01=0x0050}
0x5644…5660 Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,SLUTNO«, t00=0x0037, t01=0x006e}
0x5660…567e Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,SLUTFRM «, t00=0x0037, t01=0x008a}
0x567e…568a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0037, t01=0x00a8}
0x568a…5698 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0037, t01=0x00b4}
0x5698…56a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x00c2}
0x56a6…56be Head {h00=0x0014, h01=0x0050, text=»BCKUP PROC $OPT «, t00=0x0037, t01=0x00d0}
0x56be…56d0 Head {h00=0x000e, h01=0x0050, text=» PLIT $OPT«, t00=0x0037, t01=0x00e8}
0x56d0…56ec Head {h00=0x0018, h01=0x0014, text=»********************«, t00=0x0037, t01=0x00fa}
0x56ec…56f6 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0037, t01=0x0116}
0x56f6…5734 Head {h00=0x003a, h01=0x0036, text=»* THIS PROCEDURE TAKES CARE OF ADMINISTRATION«, t00=0x0037, t01=0x0120}
0x5734…5750 Head {h00=0x0018, h01=0x0014, text=»* OB BACKUP«, t00=0x0037, t01=0x015e}
0x5750…575a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0037, t01=0x017a}
0x575a…578e Head {h00=0x0030, h01=0x002c, text=»* CALL: PERF BCKUP,<=W'X'>«, t00=0x0037, t01=0x0184}
0x578e…57ba Head {h00=0x0028, h01=0x0024, text=»* $OPT = 1 : WITHOUT BACKUP«, t00=0x0038, t01=0x0028}
0x57ba…57e4 Head {h00=0x0026, h01=0x0021, text=»* $OPT = 2 : WITH BACKUP «, t00=0x0038, t01=0x0054}
0x57e4…57ee Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0038, t01=0x007e}
0x57ee…57f8 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0038, t01=0x0088}
0x57f8…5814 Head {h00=0x0018, h01=0x0014, text=»********************«, t00=0x0038, t01=0x0092}
0x5814…581e Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0038, t01=0x00ae}
0x581e…5838 Head {h00=0x0016, h01=0x0012, text=» MOVE CRECNR,CBIN1«, t00=0x0038, t01=0x00b8}
0x5838…5854 Head {h00=0x0018, h01=0x0013, text=» MOVE CRECBCD,=D'1' «, t00=0x0038, t01=0x00d2}
0x5854…587c Head {h00=0x0024, h01=0x0020, text=» ADD CVOLNO,=D'1' NEXT VOLUME NO«, t00=0x0038, t01=0x00ee}
0x587c…58a6 Head {h00=0x0026, h01=0x0022, text=» PERF CNFWRT REWRITE CONFIGURATION«, t00=0x0038, t01=0x0116}
0x58a6…58c0 Head {h00=0x0016, h01=0x0011, text=» SUB CVOLNO,=D'1' «, t00=0x0038, t01=0x0140}
0x58c0…58d8 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,$OPT «, t00=0x0038, t01=0x015a}
0x58d8…58f4 Head {h00=0x0018, h01=0x0050, text=» BE BCK100 NO BACKUP«, t00=0x0038, t01=0x0172}
0x58f4…58fe Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0038, t01=0x018e}
0x58fe…5908 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0039, t01=0x0008}
0x5908…591c Head {h00=0x0010, h01=0x000c, text=»* BACKUP«, t00=0x0039, t01=0x0012}
0x591c…592a Head {h00=0x000a, h01=0x0006, text=»BCK000«, t00=0x0039, t01=0x0026}
0x592a…593e Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0039, t01=0x0034}
0x593e…5966 Head {h00=0x0024, h01=0x001f, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0039, t01=0x0048}
0x5966…5974 Head {h00=0x000a, h01=0x0006, text=»BCK005«, t00=0x0039, t01=0x0070}
0x5974…5998 Head {h00=0x0020, h01=0x001c, text=» PERF LAMPON,=W'1024' LAMP 1«, t00=0x0039, t01=0x007e}
0x5998…59bc Head {h00=0x0020, h01=0x001b, text=» PERF LAMPON,=W'128' LAMP 4 «, t00=0x0039, t01=0x00a2}
0x59bc…59de Head {h00=0x001e, h01=0x001a, text=» PERF LAMPON,=W'16' LAMP 7«, t00=0x0039, t01=0x00c6}
0x59de…59fa Head {h00=0x0018, h01=0x0050, text=» TBF CTEXTFLG,BCK008«, t00=0x0039, t01=0x00e8}
0x59fa…5a1c Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'64' LAMP 5«, t00=0x0039, t01=0x0104}
0x5a1c…5a2a Head {h00=0x000a, h01=0x0050, text=»BCK008«, t00=0x0039, t01=0x0126}
0x5a2a…5a46 Head {h00=0x0018, h01=0x0050, text=» TBF CSTRKFLG,BCK009«, t00=0x0039, t01=0x0134}
0x5a46…5a6a Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'256' LAMP 3 «, t00=0x0039, t01=0x0150}
0x5a6a…5a78 Head {h00=0x000a, h01=0x0050, text=»BCK009«, t00=0x0039, t01=0x0174}
0x5a78…5a94 Head {h00=0x0018, h01=0x0050, text=» TBF CGLREGFL,BCK010«, t00=0x0039, t01=0x0182}
0x5a94…5ab8 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'512' LAMP 2 «, t00=0x003a, t01=0x000e}
0x5ab8…5ac6 Head {h00=0x000a, h01=0x0006, text=»BCK010«, t00=0x003a, t01=0x0032}
0x5ac6…5ae8 Head {h00=0x001e, h01=0x001a, text=» PERF SOPRD READ SOP LAMPS«, t00=0x003a, t01=0x0040}
0x5ae8…5b00 Head {h00=0x0014, h01=0x000f, text=» IB GSWBIN2, C «, t00=0x003a, t01=0x0062}
0x5b00…5b30 Head {h00=0x002c, h01=0x0028, text=» BSOP10,BSOP09,BSOP08,BSOP07,BSOP06, C«, t00=0x003a, t01=0x007a}
0x5b30…5b5c Head {h00=0x0028, h01=0x0024, text=» BSOP05,BSOP04,BSOP03,BSOP02,BSOP01«, t00=0x003a, t01=0x00aa}
0x5b5c…5b6a Head {h00=0x000a, h01=0x0006, text=»BSOP06«, t00=0x003a, t01=0x00d6}
0x5b6a…5b78 Head {h00=0x000a, h01=0x0006, text=»BSOP08«, t00=0x003a, t01=0x00e4}
0x5b78…5b86 Head {h00=0x000a, h01=0x0006, text=»BSOP09«, t00=0x003a, t01=0x00f2}
0x5b86…5b94 Head {h00=0x000a, h01=0x0006, text=»BSOP10«, t00=0x003a, t01=0x0100}
0x5b94…5bb2 Head {h00=0x001a, h01=0x0015, text=» B BCK010 OTHER LAMPS «, t00=0x003a, t01=0x010e}
0x5bb2…5bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x012c}
0x5bbc…5bdc Head {h00=0x001c, h01=0x0018, text=»BSOP01 BACKUP FD999001«, t00=0x003a, t01=0x0136}
0x5bdc…5c04 Head {h00=0x0024, h01=0x001f, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x003a, t01=0x0156}
0x5c04…5c28 Head {h00=0x0020, h01=0x001c, text=» PERF LAMPON,=W'1024' LAMP 1«, t00=0x003a, t01=0x017e}
0x5c28…5c52 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN5,=W'32' NO OF RECORDS«, t00=0x003b, t01=0x0012}
0x5c52…5c8a Head {h00=0x0034, h01=0x0050, text=» PERF BACKUP,DK01,=D'1',GSWBIN5,CCONBUF0,=W'199'«, t00=0x003b, t01=0x003c}
0x5c8a…5c9e Head {h00=0x0010, h01=0x000c, text=» BNOK BCK050«, t00=0x003b, t01=0x0074}
0x5c9e…5cb8 Head {h00=0x0016, h01=0x0050, text=» ADD CVOLNO,=D'1' «, t00=0x003b, t01=0x0088}
0x5cb8…5ce2 Head {h00=0x0026, h01=0x0050, text=» PERF WRITID,CBIN6,CBIN4 BACKUP OK«, t00=0x003b, t01=0x00a2}
0x5ce2…5cfc Head {h00=0x0016, h01=0x0050, text=» SUB CVOLNO,=D'1' «, t00=0x003b, t01=0x00cc}
0x5cfc…5d34 Head {h00=0x0034, h01=0x002f, text=» PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA «, t00=0x003b, t01=0x00e6}
0x5d34…5d46 Head {h00=0x000e, h01=0x0009, text=» B BCK000 «, t00=0x003b, t01=0x011e}
0x5d46…5d54 Head {h00=0x000a, h01=0x0006, text=»BCK050«, t00=0x003b, t01=0x0130}
0x5d54…5d8c Head {h00=0x0034, h01=0x002f, text=» PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA «, t00=0x003b, t01=0x013e}
0x5d8c…5d9e Head {h00=0x000e, h01=0x0009, text=» B BCK005 «, t00=0x003b, t01=0x0176}
0x5d9e…5da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0188}
0x5da8…5dd2 (60, 0, 400) Head {h00=0x0026, h01=0x0050, text=»BSOP02 COPY FD999002 TO FD999005«, t00=0x003c, t01=0x0004}
0x5dd2…5df8 Head {h00=0x0022, h01=0x0050, text=» TBF CGLREGFL,BCK010 ALLOWED? «, t00=0x003c, t01=0x002e}
0x5df8…5e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0054}
0x5e02…5e10 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x003c, t01=0x005e}
0x5e10…5e3a Head {h00=0x0026, h01=0x0050, text=»BCK02 COPY FD999002 TO FD999005 «, t00=0x003c, t01=0x006c}
0x5e3a…5e62 Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x003c, t01=0x0096}
0x5e62…5e86 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'512' LAMP 2 «, t00=0x003c, t01=0x00be}
0x5e86…5e98 Head {h00=0x000e, h01=0x0050, text=» SET CPFLG«, t00=0x003c, t01=0x00e2}
0x5e98…5ec0 Head {h00=0x0024, h01=0x0050, text=» PERF ASGVOL,CBIN2 ASSIGN REGSET«, t00=0x003c, t01=0x00f4}
0x5ec0…5ed6 Head {h00=0x0012, h01=0x0050, text=» BNOK BCK0290 «, t00=0x003c, t01=0x011c}
0x5ed6…5ef2 Head {h00=0x0018, h01=0x0050, text=» MOVE CGLRECNR,CBIN0«, t00=0x003c, t01=0x0132}
0x5ef2…5f02 Head {h00=0x000c, h01=0x0050, text=»BCK0250 «, t00=0x003c, t01=0x014e}
0x5f02…5f1e Head {h00=0x0018, h01=0x0050, text=» ADD CGLRECNR,CBIN1 «, t00=0x003c, t01=0x015e}
0x5f1e…5f4c Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN1,=W'128' LENGTH OF RECORD«, t00=0x003c, t01=0x017a}
0x5f4c…5f84 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CGLRECNR«, t00=0x003d, t01=0x0018}
0x5f84…5fa0 Head {h00=0x0018, h01=0x0050, text=» BNOK BCK0270 ERROR «, t00=0x003d, t01=0x0050}
0x5fa0…5fca Head {h00=0x0026, h01=0x0050, text=» CBE GTWBCD1,=D'4',BCK0280 NO DATA«, t00=0x003d, t01=0x006c}
0x5fca…5fea Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'SLUTD'«, t00=0x003d, t01=0x0096}
0x5fea…6006 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x003d, t01=0x00b6}
0x6006…6040 Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 «, t00=0x003d, t01=0x00d2}
0x6040…605a Head {h00=0x0016, h01=0x0050, text=» BE BCK0280 SLUTD «, t00=0x003d, t01=0x010c}
0x605a…608a Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK05,=D'5',CPCKBUF,CGLRECNR«, t00=0x003d, t01=0x0126}
0x608a…609e Head {h00=0x0010, h01=0x0050, text=» BOK BCK0250«, t00=0x003d, t01=0x0156}
0x609e…60b6 Head {h00=0x0014, h01=0x0050, text=»BCK0270 ERROR «, t00=0x003d, t01=0x016a}
0x60b6…60d8 Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'2' LAMP 10«, t00=0x003d, t01=0x0182}
0x60d8…60f0 Head {h00=0x0014, h01=0x0050, text=»BCK0280 FINISH«, t00=0x003e, t01=0x0014}
0x60f0…610e Head {h00=0x001a, h01=0x0050, text=» MOVE TTGLREC,CGLRECNR«, t00=0x003e, t01=0x002c}
0x610e…613e Head {h00=0x002c, h01=0x0050, text=» PERF TCONFW,CBIN1 SAVE LAST RECORD NO. «, t00=0x003e, t01=0x004a}
0x613e…614e Head {h00=0x000c, h01=0x0050, text=»BCK0290 «, t00=0x003e, t01=0x007a}
0x614e…6162 Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x003e, t01=0x008a}
0x6162…618a Head {h00=0x0024, h01=0x0050, text=» DSC0 DK02,CLOSE CLOSE VOLUME 2 «, t00=0x003e, t01=0x009e}
0x618a…6194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00c6}
0x6194…61a2 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x003e, t01=0x00d0}
0x61a2…61b0 Head {h00=0x000a, h01=0x0050, text=»BCK02R«, t00=0x003e, t01=0x00de}
0x61b0…61c2 Head {h00=0x000e, h01=0x0050, text=» B BCK000 «, t00=0x003e, t01=0x00ec}
0x61c2…61cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00fe}
0x61cc…61d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0108}
0x61d6…61e4 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x003e, t01=0x0112}
0x61e4…61ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0120}
0x61ee…621a Head {h00=0x0028, h01=0x0050, text=»BSOP03 BACKUP INDEX,STAM,VAR,TRANS«, t00=0x003e, t01=0x012a}
0x621a…6236 Head {h00=0x0018, h01=0x0050, text=» TBF CSTRKFLG,BCK010«, t00=0x003e, t01=0x0156}
0x6236…625e Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x003e, t01=0x0172}
0x625e…6282 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'256' LAMP 3 «, t00=0x003f, t01=0x000a}
0x6282…62bc Head {h00=0x0036, h01=0x0050, text=» PERF BACKUP,DK07,=D'7',CBIN0,GTREMBUF,=W'8' INDX «, t00=0x003f, t01=0x002e}
0x62bc…62f8 Head {h00=0x0038, h01=0x0050, text=» PERF BACKUP,DK08,=D'8',CBIN0,GTREMBUF,=W'128' STAM «, t00=0x003f, t01=0x0068}
0x62f8…6332 Head {h00=0x0036, h01=0x0050, text=» PERF BACKUP,DK09,=D'9',CBIN0,GTREMBUF,=W'49' VAR «, t00=0x003f, t01=0x00a4}
0x6332…634e Head {h00=0x0018, h01=0x0050, text=» TBF CBUDTFLG,BCK000«, t00=0x003f, t01=0x00de}
0x634e…638a Head {h00=0x0038, h01=0x0050, text=» PERF BACKUP,DK11,=D'11',CBIN0,GTREMBUF,=W'39' TRANS«, t00=0x003f, t01=0x00fa}
0x638a…63a6 Head {h00=0x0018, h01=0x0050, text=» TBF C173FLG,BCK000 «, t00=0x003f, t01=0x0136}
0x63a6…63dc Head {h00=0x0032, h01=0x0050, text=» PERF BACKUP,DK17,=D'17',CBIN0,GTREMBUF,=W'8' «, t00=0x003f, t01=0x0152}
0x63dc…63e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0188}
0x63e6…63f0 (64, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0004}
0x63f0…63fe Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0040, t01=0x000e}
0x63fe…6408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x001c}
0x6408…6424 Head {h00=0x0018, h01=0x0050, text=»BSOP05 BACKUP TEXT«, t00=0x0040, t01=0x0026}
0x6424…6440 Head {h00=0x0018, h01=0x0050, text=» TBF CTEXTFLG,BCK010«, t00=0x0040, t01=0x0042}
0x6440…6468 Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0040, t01=0x005e}
0x6468…648a Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'64' LAMP 5«, t00=0x0040, t01=0x0086}
0x648a…64be Head {h00=0x0030, h01=0x0050, text=» PERF BACKUP,DK06,=D'6',CBIN0,CTXBUF,=W'24' «, t00=0x0040, t01=0x00a8}
0x64be…64d6 Head {h00=0x0014, h01=0x0050, text=» BNOK BCK005 NOK«, t00=0x0040, t01=0x00dc}
0x64d6…64e8 Head {h00=0x000e, h01=0x0050, text=» B BCK000 «, t00=0x0040, t01=0x00f4}
0x64e8…64f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0106}
0x64f2…6500 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0040, t01=0x0110}
0x6500…650a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0040, t01=0x011e}
0x650a…652a Head {h00=0x001c, h01=0x0018, text=»BSOP04 BACKUP FD999004«, t00=0x0040, t01=0x0128}
0x652a…6552 Head {h00=0x0024, h01=0x001f, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0040, t01=0x0148}
0x6552…6576 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'128' LAMP 4 «, t00=0x0040, t01=0x0170}
0x6576…65ac (65, 0, 400) Head {h00=0x0032, h01=0x0050, text=» PERF BACKUP,DK04,=D'4',CKTMAX,CKTBUF,=W'128' «, t00=0x0041, t01=0x0004}
0x65ac…65c4 Head {h00=0x0014, h01=0x0010, text=» BNOK BCK005 NOK«, t00=0x0041, t01=0x003a}
0x65c4…65d8 Head {h00=0x0010, h01=0x000c, text=» B BCK000 OK«, t00=0x0041, t01=0x0052}
0x65d8…65e2 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0041, t01=0x0066}
0x65e2…65fa Head {h00=0x0014, h01=0x000f, text=»BSOP07 FINISH «, t00=0x0041, t01=0x0070}
0x65fa…6622 Head {h00=0x0024, h01=0x001f, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0041, t01=0x0088}
0x6622…6650 Head {h00=0x002a, h01=0x0026, text=» PERF ASGVOL,CBIN1 ASSIGN SYSTEM FILES«, t00=0x0041, t01=0x00b0}
0x6650…6664 Head {h00=0x0010, h01=0x000c, text=» BNOK BCKNOK«, t00=0x0041, t01=0x00de}
0x6664…6672 Head {h00=0x000a, h01=0x0006, text=»BCK100«, t00=0x0041, t01=0x00f2}
0x6672…668c Head {h00=0x0016, h01=0x0012, text=» PERF ASGVOL,CBIN2«, t00=0x0041, t01=0x0100}
0x668c…66a0 Head {h00=0x0010, h01=0x000c, text=» BNOK BCKNOK«, t00=0x0041, t01=0x011a}
0x66a0…66ba Head {h00=0x0016, h01=0x0011, text=» ADD CVOLNO,=D'1' «, t00=0x0041, t01=0x012e}
0x66ba…66ce Head {h00=0x0010, h01=0x000c, text=» PERF STRTWR«, t00=0x0041, t01=0x0148}
0x66ce…66e0 Head {h00=0x000e, h01=0x000a, text=» BOK BCKOK«, t00=0x0041, t01=0x015c}
0x66e0…66fa Head {h00=0x0016, h01=0x0011, text=» SUB CVOLNO,=D'1' «, t00=0x0041, t01=0x016e}
0x66fa…671c Head {h00=0x001e, h01=0x001a, text=» PERF LAMPON,=W'2' LAMP 10«, t00=0x0041, t01=0x0188}
0x671c…672e Head {h00=0x000e, h01=0x0009, text=» B BCKNOK «, t00=0x0042, t01=0x001a}
0x672e…6738 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0042, t01=0x002c}
0x6738…6746 Head {h00=0x000a, h01=0x0006, text=»BCKNOK«, t00=0x0042, t01=0x0036}
0x6746…6762 Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0042, t01=0x0044}
0x6762…676e Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0042, t01=0x0060}
0x676e…6778 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0042, t01=0x006c}
0x6778…6786 Head {h00=0x000a, h01=0x0005, text=»BCKOK «, t00=0x0042, t01=0x0076}
0x6786…67a6 Head {h00=0x001c, h01=0x0018, text=» PERF WRITID,CBIN2,CBIN1«, t00=0x0042, t01=0x0084}
0x67a6…67be Head {h00=0x0014, h01=0x0010, text=» CMP CBIN0,CBIN0«, t00=0x0042, t01=0x00a4}
0x67be…67ca Head {h00=0x0008, h01=0x0005, text=» RET«, t00=0x0042, t01=0x00bc}
0x67ca…67d8 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0042, t01=0x00c8}
0x67d8…67e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x00d6}
0x67e6…67f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00e4}
0x67f0…67fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ee}
0x67fa…6834 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0042, t01=0x00f8}
0x6834…683e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0132}
0x683e…6858 Head {h00=0x0016, h01=0x0050, text=»* FORMATS «, t00=0x0042, t01=0x013c}
0x6858…6862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0156}
0x6862…689c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0042, t01=0x0160}
0x689c…68a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x000a}
0x68a6…68c0 Head {h00=0x0016, h01=0x0050, text=»KLRFMT PROC FMTDEX«, t00=0x0043, t01=0x0014}
0x68c0…68ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x002e}
0x68ca…68dc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0038}
0x68dc…68e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x004a}
0x68e6…690a Head {h00=0x0020, h01=0x0050, text=»* ATTACH KLAR ADM FORMAT«, t00=0x0043, t01=0x0054}
0x690a…6914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0078}
0x6914…6926 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0082}
0x6926…6930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0094}
0x6930…694e Head {h00=0x001a, h01=0x0050, text=»KLRFTB FTABLE OPENFRM «, t00=0x0043, t01=0x009e}
0x694e…696c Head {h00=0x001a, h01=0x0050, text=» ATTFMT KLRFTB(FMTDEX)«, t00=0x0043, t01=0x00bc}
0x696c…6978 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0043, t01=0x00da}
0x6978…6986 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0043, t01=0x00e6}
0x6986…6990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00f4}
0x6990…699a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00fe}
0x699a…69ae Head {h00=0x0010, h01=0x0050, text=»FMTFKI FRMT «, t00=0x0043, t01=0x0108}
0x69ae…69ba Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0043, t01=0x011c}
0x69ba…69c8 Head {h00=0x000a, h01=0x0050, text=» FKI 3«, t00=0x0043, t01=0x0128}
0x69c8…69e2 Head {h00=0x0016, h01=0x0050, text=» FMEL 'B',TSWBCD2 «, t00=0x0043, t01=0x0136}
0x69e2…69f0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0043, t01=0x0150}
0x69f0…69fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x015e}
0x69fa…6a0e Head {h00=0x0010, h01=0x0050, text=»OPENFRM FRMT«, t00=0x0043, t01=0x0168}
0x6a0e…6a1a Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0043, t01=0x017c}
0x6a1a…6a32 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='ADM ' «, t00=0x0043, t01=0x0188}
0x6a32…6a4e Head {h00=0x0018, h01=0x0050, text=» FBT GTDYFLG,OPFR05 «, t00=0x0044, t01=0x0010}
0x6a4e…6a5e Head {h00=0x000c, h01=0x0050, text=» FTAB 1 «, t00=0x0044, t01=0x002c}
0x6a5e…6a7c Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'KASSE]BNING'«, t00=0x0044, t01=0x003c}
0x6a7c…6a8a Head {h00=0x000a, h01=0x0050, text=»OPFR05«, t00=0x0044, t01=0x005a}
0x6a8a…6a96 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0044, t01=0x0068}
0x6a96…6ab2 Head {h00=0x0018, h01=0x0050, text=» FBF GTMASTFL,OPFR10«, t00=0x0044, t01=0x0074}
0x6ab2…6ace Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'DAGS-DATO'«, t00=0x0044, t01=0x0090}
0x6ace…6b00 Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,NCLR«, t00=0x0044, t01=0x00ac}
0x6b00…6b24 Head {h00=0x0020, h01=0x0050, text=» FMEL '99E-99E-99',CMASKDAT «, t00=0x0044, t01=0x00de}
0x6b24…6b30 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0044, t01=0x0102}
0x6b30…6b4a Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DAG NR' «, t00=0x0044, t01=0x010e}
0x6b4a…6b74 Head {h00=0x0026, h01=0x0050, text=» FKI 11,MINL=1,MAXL=3,ME,APPL=102 «, t00=0x0044, t01=0x0128}
0x6b74…6b90 Head {h00=0x0018, h01=0x0050, text=» FMEL 'ZZZ',CRELDAY «, t00=0x0044, t01=0x0152}
0x6b90…6b9c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0044, t01=0x016e}
0x6b9c…6baa Head {h00=0x000a, h01=0x0050, text=»OPFR10«, t00=0x0044, t01=0x017a}
0x6baa…6bc6 Head {h00=0x0018, h01=0x0050, text=» FCOPY ='POST-DATO' «, t00=0x0044, t01=0x0188}
0x6bc6…6bfc Head {h00=0x0032, h01=0x0050, text=» FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,APPL=107«, t00=0x0045, t01=0x0014}
0x6bfc…6c1e Head {h00=0x001e, h01=0x0050, text=» FMEL '99E-99E-99',GTDATO «, t00=0x0045, t01=0x004a}
0x6c1e…6c2c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0045, t01=0x006c}
0x6c2c…6c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x007a}
0x6c36…6c4a Head {h00=0x0010, h01=0x0050, text=»CLFRM01 FRMT«, t00=0x0045, t01=0x0084}
0x6c4a…6c56 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0045, t01=0x0098}
0x6c56…6c76 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'KASSELUKNING' «, t00=0x0045, t01=0x00a4}
0x6c76…6c8c Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0045, t01=0x00c4}
0x6c8c…6ca2 Head {h00=0x0012, h01=0x0050, text=» FLINK FMTFKI «, t00=0x0045, t01=0x00da}
0x6ca2…6cb0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0045, t01=0x00f0}
0x6cb0…6cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00fe}
0x6cba…6cce Head {h00=0x0010, h01=0x0050, text=»CLFRM02 FRMT«, t00=0x0045, t01=0x0108}
0x6cce…6ce2 Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0045, t01=0x011c}
0x6ce2…6d02 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'KASSELUKNING' «, t00=0x0045, t01=0x0130}
0x6d02…6d0e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0045, t01=0x0150}
0x6d0e…6d2a Head {h00=0x0018, h01=0x0050, text=» FCOPY GSWSTR20 TEXT«, t00=0x0045, t01=0x015c}
0x6d2a…6d50 Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZ',GTWBCD1 COUNTER NR «, t00=0x0045, t01=0x0178}
0x6d50…6d64 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0046, t01=0x000e}
0x6d64…6d82 Head {h00=0x001a, h01=0x0050, text=» FCOPY GTDBKRC DEB-KRE«, t00=0x0046, t01=0x0022}
0x6d82…6d8e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0046, t01=0x0040}
0x6d8e…6da8 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'KONTONR'«, t00=0x0046, t01=0x004c}
0x6da8…6dbc Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',5«, t00=0x0046, t01=0x0066}
0x6dbc…6dd2 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'BEL'«, t00=0x0046, t01=0x007a}
0x6dd2…6de8 Head {h00=0x0012, h01=0x0050, text=» FILLR X'5C',1«, t00=0x0046, t01=0x0090}
0x6de8…6dfc Head {h00=0x0010, h01=0x0050, text=» FILLR 'B',1«, t00=0x0046, t01=0x00a6}
0x6dfc…6e08 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0046, t01=0x00ba}
0x6e08…6e32 Head {h00=0x0026, h01=0x0050, text=» FMEL '99999999E-99',GTDUPF(CBIN1)«, t00=0x0046, t01=0x00c6}
0x6e32…6e64 Head {h00=0x002e, h01=0x0050, text=» FMEL 'BTTTVTTTVTTTVTT9V99-',GTDUPF(CBIN4)«, t00=0x0046, t01=0x00f0}
0x6e64…6e72 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0046, t01=0x0122}
0x6e72…6e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0130}
0x6e7c…6e90 Head {h00=0x0010, h01=0x0050, text=»CLFRM03 FRMT«, t00=0x0046, t01=0x013a}
0x6e90…6ea4 Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0046, t01=0x014e}
0x6ea4…6ec2 Head {h00=0x001a, h01=0x0050, text=» FBT GTSPGFLG,CLF0301 «, t00=0x0046, t01=0x0162}
0x6ec2…6ee2 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'KASSELUKNING' «, t00=0x0046, t01=0x0180}
0x6ee2…6ef2 Head {h00=0x000c, h01=0x0050, text=»CLF0301 «, t00=0x0047, t01=0x0010}
0x6ef2…6efe Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x0020}
0x6efe…6f16 Head {h00=0x0014, h01=0x0050, text=» FCOPY GSWSTR20 «, t00=0x0047, t01=0x002c}
0x6f16…6f24 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0047, t01=0x0044}
0x6f24…6f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0052}
0x6f2e…6f42 Head {h00=0x0010, h01=0x0050, text=»CLFRM04 FRMT«, t00=0x0047, t01=0x005c}
0x6f42…6f4e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0047, t01=0x0070}
0x6f4e…6f6c Head {h00=0x001a, h01=0x0050, text=» FBT GTSPGFLG,CLF0401 «, t00=0x0047, t01=0x007c}
0x6f6c…6f8a Head {h00=0x001a, h01=0x0050, text=» FCOPY ='KASSELUKNING'«, t00=0x0047, t01=0x009a}
0x6f8a…6f9a Head {h00=0x000c, h01=0x0050, text=»CLF0401 «, t00=0x0047, t01=0x00b8}
0x6f9a…6fa6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x00c8}
0x6fa6…6fca Head {h00=0x0020, h01=0x0050, text=» FCOPY ='BEHOLDNINGST[LLERE'«, t00=0x0047, t01=0x00d4}
0x6fca…6fd6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x00f8}
0x6fd6…6fe2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x0104}
0x6fe2…7000 Head {h00=0x001a, h01=0x0050, text=» FBT GTSPGFLG,CLF0402 «, t00=0x0047, t01=0x0110}
0x7000…7018 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='SLET ' «, t00=0x0047, t01=0x012e}
0x7018…7032 Head {h00=0x0016, h01=0x0050, text=» FCOPY ='PERIODE '«, t00=0x0047, t01=0x0146}
0x7032…7042 Head {h00=0x000c, h01=0x0050, text=» FTAB 15«, t00=0x0047, t01=0x0160}
0x7042…7058 Head {h00=0x0012, h01=0x0050, text=» FCOPY =' DEB'«, t00=0x0047, t01=0x0170}
0x7058…7064 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x0186}
0x7064…707c (72, 0, 398) Head {h00=0x0014, h01=0x0050, text=» FCOPY ='SLET ' «, t00=0x0048, t01=0x0004}
0x707c…7094 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='SALDO '«, t00=0x0048, t01=0x001c}
0x7094…70a4 Head {h00=0x000c, h01=0x0050, text=» FTAB 15«, t00=0x0048, t01=0x0034}
0x70a4…70ba Head {h00=0x0012, h01=0x0050, text=» FCOPY =' KRE'«, t00=0x0048, t01=0x0044}
0x70ba…70ca Head {h00=0x000c, h01=0x0050, text=»CLF0402 «, t00=0x0048, t01=0x005a}
0x70ca…70d6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x006a}
0x70d6…70f2 Head {h00=0x0018, h01=0x0050, text=» FCOPY ='SUBTOTAL ' «, t00=0x0048, t01=0x0076}
0x70f2…7102 Head {h00=0x000c, h01=0x0050, text=» FTAB 16«, t00=0x0048, t01=0x0092}
0x7102…7118 Head {h00=0x0012, h01=0x0050, text=» FCOPY ='KVIT'«, t00=0x0048, t01=0x00a2}
0x7118…7124 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x00b8}
0x7124…7130 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x00c4}
0x7130…713c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x00d0}
0x713c…7150 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0048, t01=0x00dc}
0x7150…7168 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='BILAG' «, t00=0x0048, t01=0x00f0}
0x7168…717e Head {h00=0x0012, h01=0x0050, text=» FLINK FMTFKI «, t00=0x0048, t01=0x0108}
0x717e…718c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0048, t01=0x011e}
0x718c…7196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x012c}
0x7196…71aa Head {h00=0x0010, h01=0x0050, text=»PCKINIT FRMT«, t00=0x0048, t01=0x0136}
0x71aa…71c0 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0048, t01=0x014a}
0x71c0…71d6 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0048, t01=0x0160}
0x71d6…71f2 Head {h00=0x0018, h01=0x0050, text=» FBT CSWFLAG,INIT10 «, t00=0x0048, t01=0x0176}
0x71f2…720a (73, 0, 400) Head {h00=0x0014, h01=0x0050, text=» FILLR X'00',48 «, t00=0x0049, t01=0x0004}
0x720a…7218 Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0049, t01=0x001c}
0x7218…7226 Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x0049, t01=0x002a}
0x7226…723c Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',48 «, t00=0x0049, t01=0x0038}
0x723c…724a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0049, t01=0x004e}
0x724a…7254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x005c}
0x7254…7268 Head {h00=0x0010, h01=0x0050, text=»FRVOLID FRMT«, t00=0x0049, t01=0x0066}
0x7268…7288 Head {h00=0x001c, h01=0x0050, text=» FMEL '999999',CMASKDAT «, t00=0x0049, t01=0x007a}
0x7288…729c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0049, t01=0x009a}
0x729c…72ba Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',GSWBCD3 «, t00=0x0049, t01=0x00ae}
0x72ba…72c8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0049, t01=0x00cc}
0x72c8…72d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00da}
0x72d2…72e6 Head {h00=0x0010, h01=0x0050, text=»SLUTFRM FRMT«, t00=0x0049, t01=0x00e4}
0x72e6…72fe Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'SLUTD'«, t00=0x0049, t01=0x00f8}
0x72fe…731c Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',CRECBCD «, t00=0x0049, t01=0x0110}
0x731c…732a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0049, t01=0x012e}
0x732a…7334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x013c}
0x7334…7348 Head {h00=0x0010, h01=0x0050, text=»STARTFR FRMT«, t00=0x0049, t01=0x0146}
0x7348…7360 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'Z300 '«, t00=0x0049, t01=0x015a}
0x7360…7386 Head {h00=0x0022, h01=0x0050, text=» FMEL '9999',CKMDNR KOMMUNE NR«, t00=0x0049, t01=0x0172}
0x7386…739c Head {h00=0x0012, h01=0x0050, text=» FILLR C'2',1 «, t00=0x004a, t01=0x0008}
0x739c…73b8 Head {h00=0x0018, h01=0x0050, text=» FCOPY CVOL(GSWBIN6)«, t00=0x004a, t01=0x001e}
0x73b8…73da Head {h00=0x001e, h01=0x0050, text=» FMEL '999',CRELDAY DAG NR«, t00=0x004a, t01=0x003a}
0x73da…73fc Head {h00=0x001e, h01=0x0050, text=» FILLR C'1',1 MIXED TRANS «, t00=0x004a, t01=0x005c}
0x73fc…7410 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',6«, t00=0x004a, t01=0x007e}
0x7410…741e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004a, t01=0x0092}
0x741e…7428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00a0}
0x7428…743c Head {h00=0x0010, h01=0x0050, text=»ADFRM01 FRMT«, t00=0x004a, t01=0x00aa}
0x743c…7448 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x004a, t01=0x00be}
0x7448…7460 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='KLAR ' «, t00=0x004a, t01=0x00ca}
0x7460…7478 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='ADM ' «, t00=0x004a, t01=0x00e2}
0x7478…7496 Head {h00=0x001a, h01=0x0050, text=» FKI 12,MINL=1,MAXL=2 «, t00=0x004a, t01=0x00fa}
0x7496…74b0 Head {h00=0x0016, h01=0x0050, text=» FMEL 'ZZ',GSWBCD3«, t00=0x004a, t01=0x0118}
0x74b0…74be Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004a, t01=0x0132}
0x74be…74c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0140}
0x74c8…74d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x014a}
0x74d2…74dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0154}
0x74dc…74e8 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x004a, t01=0x015e}
0x74e8…74ec Head {h00=0x4004, h01=0x0000}
0x74ec…74f0 00 4a 01 6a ┆ J j┆
0x74f0…74f8 (75, 1, 8) 20 04 00 00 00 4b 00 04 ┆ K ┆
0x74f8…7548 (76, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1b 01 8a 00 2a 00 26 03 12 00 00 02 1d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1c ┆ * & ┆
0x7548…7598 00 28 00 2a 00 26 03 12 00 00 02 3b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1c 00 56 00 2a 00 26 03 12 00 00 02 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ( * & ; V * & Y ┆
0x7598…75e8 00 00 00 00 00 00 00 00 00 00 00 1c 00 84 00 2a 00 26 03 12 00 00 02 77 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1c 00 b2 00 2a 00 26 03 12 00 00 02 95 00 00 00 00 00 00 00 00 00 00 ┆ * & w * & ┆
0x75e8…7638 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1c 00 e0 00 2a 00 26 03 12 00 00 02 b3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1c 01 0e 00 2a 00 26 03 12 00 00 ┆ * & * & ┆
0x7638…7688 02 d1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1c 01 3c 00 2a 00 26 03 12 00 00 02 ef 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ < * & ┆