|
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: 30364 (0x769c)
Notes: pts_type(SC)
Names: »RGKLAR.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/RGKLAR.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/RGKLAR.SC«
IDENT RGKLAR 03.01.XXX.1 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,=C' ' MOVE TTSUMMRK,=C' ' MOVE GTTEXT,=C' ' 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 * ********************* 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 * VERSUR 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 * PENGE CLKF100 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 EJECT 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 EJECT ********************************************************* * * 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 EJECT 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 EJECT 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 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,CIXBUF,=W'8' INDX PERF BACKUP,DK08,=D'8',CBIN0,CLEVBUF,=W'128' STAM PERF BACKUP,DK09,=D'9',CBIN0,CVARBUF,=W'49' VAR TBF CBUDTFLG,BCK000 PERF BACKUP,DK11,=D'11',CBIN0,CTRBUF,=W'39' TRANS B BCK000 * * ***** * 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 FMEL 'B99999',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…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT RGKLAR 03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0036 Head {h00=0x0010, h01=0x000b, text=» DDUM KMD08 «, t00=0x0000, t01=0x0026}
0x0036…0044 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x003a}
0x0044…005a Head {h00=0x0012, h01=0x0050, text=» ENTRY RGKLAR «, t00=0x0000, t01=0x0048}
0x005a…006e Head {h00=0x0010, h01=0x0050, text=» ENTRY CLEJ «, t00=0x0000, t01=0x005e}
0x006e…0082 Head {h00=0x0010, h01=0x0050, text=» ENTRY CLEDB«, t00=0x0000, t01=0x0072}
0x0082…0096 Head {h00=0x0010, h01=0x0050, text=» ENTRY CLBEH«, t00=0x0000, t01=0x0086}
0x0096…00aa Head {h00=0x0010, h01=0x0050, text=» ENTRY CLKF «, t00=0x0000, t01=0x009a}
0x00aa…00c0 Head {h00=0x0012, h01=0x0050, text=» ENTRY RGA120 «, t00=0x0000, t01=0x00ae}
0x00c0…00d4 Head {h00=0x0010, h01=0x0050, text=» ENTRY ZERO «, t00=0x0000, t01=0x00c4}
0x00d4…00e8 Head {h00=0x0010, h01=0x0050, text=» ENTRY SKIFT«, t00=0x0000, t01=0x00d8}
0x00e8…00fe Head {h00=0x0012, h01=0x0050, text=» ENTRY STRTWR «, t00=0x0000, t01=0x00ec}
0x00fe…0114 Head {h00=0x0012, h01=0x0050, text=» ENTRY STRTID «, t00=0x0000, t01=0x0102}
0x0114…012a Head {h00=0x0012, h01=0x0050, text=» ENTRY SLUTID «, t00=0x0000, t01=0x0118}
0x012a…013e Head {h00=0x0010, h01=0x0050, text=» ENTRY BCKUP«, t00=0x0000, t01=0x012e}
0x013e…0154 Head {h00=0x0012, h01=0x0050, text=» ENTRY KLRFMT «, t00=0x0000, t01=0x0142}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…016e Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0000, t01=0x0162}
0x016e…0180 Head {h00=0x000e, h01=0x0050, text=» EXT SOPRD«, t00=0x0000, t01=0x0172}
0x0180…0194 Head {h00=0x0010, h01=0x0050, text=» EXT LAMPON «, t00=0x0000, t01=0x0184}
0x0194…01a8 Head {h00=0x0010, h01=0x0050, text=» EXT LAMPOF «, t00=0x0001, t01=0x0008}
0x01a8…01bc Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x001c}
0x01bc…01d0 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0001, t01=0x0030}
0x01d0…01e4 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0001, t01=0x0044}
0x01e4…01f8 Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0001, t01=0x0058}
0x01f8…020c Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0001, t01=0x006c}
0x020c…0220 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x0080}
0x0220…0234 Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0001, t01=0x0094}
0x0234…0248 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x00a8}
0x0248…025a Head {h00=0x000e, h01=0x0050, text=» EXT KORT «, t00=0x0001, t01=0x00bc}
0x025a…026e Head {h00=0x0010, h01=0x0050, text=» EXT TCONFW «, t00=0x0001, t01=0x00ce}
0x026e…0282 Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0001, t01=0x00e2}
0x0282…0296 Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0001, t01=0x00f6}
0x0296…02aa Head {h00=0x0010, h01=0x0050, text=» EXT ASGVOL «, t00=0x0001, t01=0x010a}
0x02aa…02be Head {h00=0x0010, h01=0x0050, text=» EXT CLSVOL «, t00=0x0001, t01=0x011e}
0x02be…02d2 Head {h00=0x0010, h01=0x0050, text=» EXT WRITID «, t00=0x0001, t01=0x0132}
0x02d2…02e6 Head {h00=0x0010, h01=0x0050, text=» EXT CNFWRT «, t00=0x0001, t01=0x0146}
0x02e6…02f8 Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0001, t01=0x015a}
0x02f8…030c Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0001, t01=0x016c}
0x030c…0320 Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x0180}
0x0320…0334 (2, 0, 398) Head {h00=0x0010, h01=0x0050, text=» EXT INITRG «, t00=0x0002, t01=0x0004}
0x0334…0346 Head {h00=0x000e, h01=0x0050, text=» EXT SLUT «, t00=0x0002, t01=0x0018}
0x0346…035a Head {h00=0x0010, h01=0x0050, text=» EXT CONFWR «, t00=0x0002, t01=0x002a}
0x035a…036e Head {h00=0x0010, h01=0x0050, text=» EXT WRITFD «, t00=0x0002, t01=0x003e}
0x036e…0380 Head {h00=0x000e, h01=0x0050, text=» EXT CRKJ «, t00=0x0002, t01=0x0052}
0x0380…0394 Head {h00=0x0010, h01=0x0050, text=» EXT BACKUP «, t00=0x0002, t01=0x0064}
0x0394…03a8 Head {h00=0x0010, h01=0x0050, text=» EXT CONRDX «, t00=0x0002, t01=0x0078}
0x03a8…03bc Head {h00=0x0010, h01=0x0050, text=» EXT RSTORE «, t00=0x0002, t01=0x008c}
0x03bc…03d0 Head {h00=0x0010, h01=0x0050, text=» EXT KFWRIT «, t00=0x0002, t01=0x00a0}
0x03d0…03e4 Head {h00=0x0010, h01=0x0050, text=» EXT KFREAD «, t00=0x0002, t01=0x00b4}
0x03e4…03f8 Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0002, t01=0x00c8}
0x03f8…040a Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0002, t01=0x00dc}
0x040a…0422 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x00ee}
0x0422…0430 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0106}
0x0430…043e Head {h00=0x000a, h01=0x0050, text=»RGKLAR«, t00=0x0002, t01=0x0114}
0x043e…0454 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0002, t01=0x0122}
0x0454…046e Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0002, t01=0x0138}
0x046e…0486 Head {h00=0x0014, h01=0x0050, text=» ATTFMT ADFRM01 «, t00=0x0002, t01=0x0152}
0x0486…049a Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0002, t01=0x016a}
0x049a…04b2 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW2, C «, t00=0x0002, t01=0x017e}
0x04b2…04e2 Head {h00=0x002c, h01=0x0050, text=» RGKLAR,RGKLAR,RGKLAR,RGKLAR,RGA100, C«, t00=0x0003, t01=0x0008}
0x04e2…050e Head {h00=0x0028, h01=0x0050, text=» RGA200,RGA300,RGKLAR,RGKLAR,RGA007«, t00=0x0003, t01=0x0038}
0x050e…0520 Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x0003, t01=0x0064}
0x0520…052a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0076}
0x052a…0544 Head {h00=0x0016, h01=0x0050, text=»RGA007 GO ONLINE«, t00=0x0003, t01=0x0080}
0x0544…0560 Head {h00=0x0018, h01=0x0050, text=» TBT CCONVERT,RGKLAR«, t00=0x0003, t01=0x009a}
0x0560…0578 Head {h00=0x0014, h01=0x0050, text=» PERF ADM,CBIN7 «, t00=0x0003, t01=0x00b6}
0x0578…058a Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x0003, t01=0x00ce}
0x058a…0594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e0}
0x0594…05a2 Head {h00=0x000a, h01=0x0050, text=»RGA100«, t00=0x0003, t01=0x00ea}
0x05a2…05ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f8}
0x05ac…05ec Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0003, t01=0x0102}
0x05ec…05f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0142}
0x05f6…061e Head {h00=0x0024, h01=0x0050, text=»* OPEN ROUTINE«, t00=0x0003, t01=0x014c}
0x061e…0628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0174}
0x0628…0668 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0003, t01=0x017e}
0x0668…0672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002e}
0x0672…068e Head {h00=0x0018, h01=0x0050, text=» TBT CCONVERT,RGKLAR«, t00=0x0004, t01=0x0038}
0x068e…06b2 Head {h00=0x0020, h01=0x0050, text=» TBF GTTTPFLG,RGKLAR NO TTP «, t00=0x0004, t01=0x0054}
0x06b2…06ce Head {h00=0x0018, h01=0x0050, text=» TBT CCONVFLG,RGKLAR«, t00=0x0004, t01=0x0078}
0x06ce…06e4 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0004, t01=0x0094}
0x06e4…06fa Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x00aa}
0x06fa…070c Head {h00=0x000e, h01=0x0050, text=» SET SPME «, t00=0x0004, t01=0x00c0}
0x070c…072e Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD3,=X'FF' ERASE«, t00=0x0004, t01=0x00d2}
0x072e…074e Head {h00=0x001c, h01=0x0050, text=» CBG GTDATO,=D'1',RGA105«, t00=0x0004, t01=0x00f4}
0x074e…076a Head {h00=0x0018, h01=0x0050, text=» MOVE GTDATO,=X'FF' «, t00=0x0004, t01=0x0114}
0x076a…0778 Head {h00=0x000a, h01=0x0050, text=»RGA105«, t00=0x0004, t01=0x0130}
0x0778…0790 Head {h00=0x0014, h01=0x0050, text=» ATTFMT OPENFRM «, t00=0x0004, t01=0x013e}
0x0790…07a4 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0004, t01=0x0156}
0x07a4…07cc Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,RGKLAR,RGKLAR,RGA110«, t00=0x0004, t01=0x016a}
0x07cc…07de (5, 0, 400) Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x0005, t01=0x0004}
0x07de…07ec Head {h00=0x000a, h01=0x0050, text=»RGA110«, t00=0x0005, t01=0x0016}
0x07ec…0808 Head {h00=0x0018, h01=0x0050, text=» MOVE TTEJEDB,=D'0' «, t00=0x0005, t01=0x0024}
0x0808…0838 Head {h00=0x002c, h01=0x0050, text=» MUL TTSTLBNR,=D'-1' SET POSITIVE (OPEN)«, t00=0x0005, t01=0x0040}
0x0838…086e Head {h00=0x0032, h01=0x0050, text=» MUL CMASK(TTASKNR),=D'-1' SET CMASK >0, OPEN «, t00=0x0005, t01=0x0070}
0x086e…088c Head {h00=0x001a, h01=0x0050, text=» MOVE TTCASH,TTSTCASH «, t00=0x0005, t01=0x00a6}
0x088c…08b0 Head {h00=0x0020, h01=0x0050, text=» CBNE TTSTLBNR,=D'0',RGA115 «, t00=0x0005, t01=0x00c4}
0x08b0…08cc Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTLBNR,=D'1'«, t00=0x0005, t01=0x00e8}
0x08cc…08da Head {h00=0x000a, h01=0x0050, text=»RGA115«, t00=0x0005, t01=0x0104}
0x08da…08f8 Head {h00=0x001a, h01=0x0050, text=» MOVE TTLBNR,TTSTLBNR «, t00=0x0005, t01=0x0112}
0x08f8…0912 Head {h00=0x0016, h01=0x0050, text=» SUB TTLBNR,=D'1' «, t00=0x0005, t01=0x0130}
0x0912…0930 Head {h00=0x001a, h01=0x0050, text=» MOVE TTRECOPN,CRECBCD«, t00=0x0005, t01=0x014a}
0x0930…0942 Head {h00=0x000e, h01=0x0050, text=» PERF ZERO«, t00=0x0005, t01=0x0168}
0x0942…0978 Head {h00=0x0032, h01=0x0050, text=» PERF TCONFW,TTASKNR STORE INF FROM ADM FUNC. «, t00=0x0005, t01=0x017a}
0x0978…098c Head {h00=0x0010, h01=0x0050, text=» PERF CONFWR«, t00=0x0006, t01=0x0020}
0x098c…09b6 Head {h00=0x0026, h01=0x0050, text=» PERF WRITJT,=W'5' OPEN MES ON JT «, t00=0x0006, t01=0x0034}
0x09b6…09ca Head {h00=0x0010, h01=0x0050, text=» SET GTKASSE«, t00=0x0006, t01=0x005e}
0x09ca…09e4 Head {h00=0x0016, h01=0x0050, text=» ADD CTASKNR,CBIN1«, t00=0x0006, t01=0x0072}
0x09e4…09f2 Head {h00=0x000a, h01=0x0050, text=»RGA120«, t00=0x0006, t01=0x008c}
0x09f2…0a1a Head {h00=0x0024, h01=0x0050, text=» PERF INITRG START REGISTRATION «, t00=0x0006, t01=0x009a}
0x0a1a…0a34 Head {h00=0x0016, h01=0x0050, text=» PERF TCLOSE CLOSE«, t00=0x0006, t01=0x00c2}
0x0a34…0a48 Head {h00=0x0010, h01=0x0050, text=» BNOK RGA120«, t00=0x0006, t01=0x00dc}
0x0a48…0a62 Head {h00=0x0016, h01=0x0050, text=» SUB CTASKNR,CBIN1«, t00=0x0006, t01=0x00f0}
0x0a62…0a74 Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x0006, t01=0x010a}
0x0a74…0a82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x011c}
0x0a82…0a96 Head {h00=0x0010, h01=0x0050, text=»TCLOSE PROC «, t00=0x0006, t01=0x012a}
0x0a96…0ab0 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0006, t01=0x013e}
0x0ab0…0abe Head {h00=0x000a, h01=0x0050, text=»TCL000«, t00=0x0006, t01=0x0158}
0x0abe…0ad4 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0006, t01=0x0166}
0x0ad4…0aec Head {h00=0x0014, h01=0x0050, text=» ATTFMT CLFRM01 «, t00=0x0006, t01=0x017c}
0x0aec…0b00 (7, 0, 400) Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0007, t01=0x0004}
0x0b00…0b28 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,TCLMAK,TCLMAK,TCL010«, t00=0x0007, t01=0x0018}
0x0b28…0b3a Head {h00=0x000e, h01=0x0050, text=» B TCL000 «, t00=0x0007, t01=0x0040}
0x0b3a…0b48 Head {h00=0x000a, h01=0x0050, text=»TCL010«, t00=0x0007, t01=0x0052}
0x0b48…0b62 Head {h00=0x0016, h01=0x0050, text=»* CLEAR FLAGS «, t00=0x0007, t01=0x0060}
0x0b62…0b7a Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0007, t01=0x007a}
0x0b7a…0b92 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0007, t01=0x0092}
0x0b92…0baa Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0007, t01=0x00aa}
0x0baa…0bc2 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0007, t01=0x00c2}
0x0bc2…0bda Head {h00=0x0014, h01=0x0050, text=» CLEAR TTLSTFLG «, t00=0x0007, t01=0x00da}
0x0bda…0bf2 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTPSEFLG «, t00=0x0007, t01=0x00f2}
0x0bf2…0c0a Head {h00=0x0014, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x0007, t01=0x010a}
0x0c0a…0c22 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTSUPFLG «, t00=0x0007, t01=0x0122}
0x0c22…0c38 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x0007, t01=0x013a}
0x0c38…0c50 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x0007, t01=0x0150}
0x0c50…0c68 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTBDTFLG «, t00=0x0007, t01=0x0168}
0x0c68…0c80 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSTRFLG «, t00=0x0007, t01=0x0180}
0x0c80…0c98 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0008, t01=0x0008}
0x0c98…0cb4 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUPMRK,=C' '«, t00=0x0008, t01=0x0020}
0x0cb4…0cd0 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C' '«, t00=0x0008, t01=0x003c}
0x0cd0…0cea Head {h00=0x0016, h01=0x0050, text=» MOVE GTTEXT,=C' '«, t00=0x0008, t01=0x0058}
0x0cea…0d04 Head {h00=0x0016, h01=0x0050, text=» MOVE GTSUM,=D'0' «, t00=0x0008, t01=0x0072}
0x0d04…0d18 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0008, t01=0x008c}
0x0d18…0d32 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0008, t01=0x00a0}
0x0d32…0d5e Head {h00=0x0028, h01=0x0050, text=»* TR12 ACCUMULATORS«, t00=0x0008, t01=0x00ba}
0x0d5e…0d7a Head {h00=0x0018, h01=0x0050, text=» MOVE GTREGNR,=D'2' «, t00=0x0008, t01=0x00e6}
0x0d7a…0d96 Head {h00=0x0018, h01=0x0050, text=» MOVE GTREGDEX,CBIN2«, t00=0x0008, t01=0x0102}
0x0d96…0daa Head {h00=0x0010, h01=0x0050, text=» PERF PACKCL«, t00=0x0008, t01=0x011e}
0x0daa…0dc6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0008, t01=0x0132}
0x0dc6…0dd4 Head {h00=0x000a, h01=0x0050, text=»TCL025«, t00=0x0008, t01=0x014e}
0x0dd4…0df8 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(GSWBIN1),=X'FF'«, t00=0x0008, t01=0x015c}
0x0df8…0e12 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0008, t01=0x0180}
0x0e12…0e36 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,TCL025 «, t00=0x0009, t01=0x000a}
0x0e36…0e52 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0009, t01=0x002e}
0x0e52…0e60 Head {h00=0x000a, h01=0x0050, text=»TCL030«, t00=0x0009, t01=0x004a}
0x0e60…0e82 Head {h00=0x001e, h01=0x0050, text=» ADD GSWBCD5,=D'1' ACC NR «, t00=0x0009, t01=0x0058}
0x0e82…0e90 Head {h00=0x000a, h01=0x0050, text=»TCL035«, t00=0x0009, t01=0x007a}
0x0e90…0eb6 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 CONVERT «, t00=0x0009, t01=0x0088}
0x0eb6…0ee6 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN5,CTR12(TTASKNR,CBIN2),TCL090«, t00=0x0009, t01=0x00ae}
0x0ee6…0f10 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN5,CTR12(TTASKNR,CBIN1) «, t00=0x0009, t01=0x00de}
0x0f10…0f3c Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5)«, t00=0x0009, t01=0x0108}
0x0f3c…0f64 Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN1),=D'0',TCL030 «, t00=0x0009, t01=0x0134}
0x0f64…0f96 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATED«, t00=0x0009, t01=0x015c}
0x0f96…0fc8 Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) «, t00=0x0009, t01=0x018e}
0x0fc8…0ff0 Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN4),=D'0',TCL040 «, t00=0x000a, t01=0x0030}
0x0ff0…1012 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000a, t01=0x0058}
0x1012…103c Head {h00=0x0026, h01=0x0050, text=» MOVE GSWSTR20,=C'EJ-EDB T[LLER ' «, t00=0x000a, t01=0x007a}
0x103c…105a Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x000a, t01=0x00a4}
0x105a…108e Head {h00=0x0030, h01=0x0050, text=» PERF TR2GEN,CBIN1 GENERATE TR2 WITH KREDIT «, t00=0x000a, t01=0x00c2}
0x108e…10a2 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL035«, t00=0x000a, t01=0x00f6}
0x10a2…10b0 Head {h00=0x000a, h01=0x0050, text=»TCL040«, t00=0x000a, t01=0x010a}
0x10b0…10ce Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x000a, t01=0x0118}
0x10ce…10f8 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN5,CTR12(TTASKNR,CBIN1) «, t00=0x000a, t01=0x0136}
0x10f8…112a Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2) «, t00=0x000a, t01=0x0160}
0x112a…1152 (11, 0, 400) Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN4),=D'0',TCL030 «, t00=0x000b, t01=0x0004}
0x1152…1174 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000b, t01=0x002c}
0x1174…119e Head {h00=0x0026, h01=0x0050, text=» MOVE GSWSTR20,=C'EJ-EDB T[LLER ' «, t00=0x000b, t01=0x004e}
0x119e…11bc Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x000b, t01=0x0078}
0x11bc…11ee Head {h00=0x002e, h01=0x0050, text=» PERF TR2GEN,CBIN2 GENERATE TR2 WITH DEBET«, t00=0x000b, t01=0x0096}
0x11ee…1202 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL040«, t00=0x000b, t01=0x00c8}
0x1202…1214 Head {h00=0x000e, h01=0x0050, text=» B TCL030 «, t00=0x000b, t01=0x00dc}
0x1214…1222 Head {h00=0x000a, h01=0x0050, text=»TCL090«, t00=0x000b, t01=0x00ee}
0x1222…1244 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x000b, t01=0x00fc}
0x1244…125e Head {h00=0x0016, h01=0x0050, text=» PERF CLEJ EJ EDB «, t00=0x000b, t01=0x011e}
0x125e…127a Head {h00=0x0018, h01=0x0050, text=» MOVE TTEJEDB,=D'0' «, t00=0x000b, t01=0x0138}
0x127a…1288 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0154}
0x1288…12a8 Head {h00=0x001c, h01=0x0050, text=»* VERSUR AND PENGEKONTI «, t00=0x000b, t01=0x0162}
0x12a8…12c4 Head {h00=0x0018, h01=0x0050, text=» TBF CSTRKFLG,TCL150«, t00=0x000b, t01=0x0182}
0x12c4…12e0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x000c, t01=0x000e}
0x12e0…12f2 Head {h00=0x000e, h01=0x0050, text=» B TCL130 «, t00=0x000c, t01=0x002a}
0x12f2…1300 Head {h00=0x000a, h01=0x0050, text=»TCL110«, t00=0x000c, t01=0x003c}
0x1300…1310 Head {h00=0x000c, h01=0x0050, text=»* VERSUR«, t00=0x000c, t01=0x004a}
0x1310…132e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x000c, t01=0x005a}
0x132e…1366 Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN0,GSWBIN5,GTKFVAL KONTONR«, t00=0x000c, t01=0x0078}
0x1366…137a Head {h00=0x0010, h01=0x0050, text=» BNOK TCL130«, t00=0x000c, t01=0x00b0}
0x137a…139c Head {h00=0x001e, h01=0x0050, text=» CBE GTKFVAL,=D'0',TCL130 «, t00=0x000c, t01=0x00c4}
0x139c…13c0 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GTKFVAL «, t00=0x000c, t01=0x00e6}
0x13c0…13f2 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATE «, t00=0x000c, t01=0x010a}
0x13f2…142a Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN1,GSWBIN5,GTKFVAL KREDIT «, t00=0x000c, t01=0x013c}
0x142a…143e Head {h00=0x0010, h01=0x0050, text=» BNOK TCL120«, t00=0x000c, t01=0x0174}
0x143e…1460 Head {h00=0x001e, h01=0x0050, text=» CBE GTKFVAL,=D'0',TCL120 «, t00=0x000c, t01=0x0188}
0x1460…1484 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTKFVAL «, t00=0x000d, t01=0x001a}
0x1484…14a6 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000d, t01=0x003e}
0x14a6…14ca Head {h00=0x0020, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 BFO NR«, t00=0x000d, t01=0x0060}
0x14ca…14f2 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'VERSUR KONTO '«, t00=0x000d, t01=0x0084}
0x14f2…1520 Head {h00=0x002a, h01=0x0050, text=» PERF TR2GEN,CBIN1 GENERATE TR2 DEBET «, t00=0x000d, t01=0x00ac}
0x1520…1534 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL120«, t00=0x000d, t01=0x00da}
0x1534…1558 Head {h00=0x0020, h01=0x0050, text=»TCL120 MOVE GSWBIN5,GSWBCD5 «, t00=0x000d, t01=0x00ee}
0x1558…158e Head {h00=0x0032, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN2,GSWBIN5,GTKFVAL DEBET«, t00=0x000d, t01=0x0112}
0x158e…15a2 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL130«, t00=0x000d, t01=0x0148}
0x15a2…15c4 Head {h00=0x001e, h01=0x0050, text=» CBE GTKFVAL,=D'0',TCL130 «, t00=0x000d, t01=0x015c}
0x15c4…15e8 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTKFVAL «, t00=0x000d, t01=0x017e}
0x15e8…160a Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000e, t01=0x0012}
0x160a…162e Head {h00=0x0020, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 BFONR «, t00=0x000e, t01=0x0034}
0x162e…1656 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'VERSUR KONTO '«, t00=0x000e, t01=0x0058}
0x1656…1684 Head {h00=0x002a, h01=0x0050, text=» PERF TR2GEN,CBIN2 GENERATE TR2 KREDIT«, t00=0x000e, t01=0x0080}
0x1684…1698 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL130«, t00=0x000e, t01=0x00ae}
0x1698…16a6 Head {h00=0x000a, h01=0x0050, text=»TCL130«, t00=0x000e, t01=0x00c2}
0x16a6…16b6 Head {h00=0x000c, h01=0x0050, text=»* PENGE «, t00=0x000e, t01=0x00d0}
0x16b6…16d4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x000e, t01=0x00e0}
0x16d4…170c Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN0,GSWBIN5,GTKFVAL KONTONR«, t00=0x000e, t01=0x00fe}
0x170c…1720 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL140«, t00=0x000e, t01=0x0136}
0x1720…1742 Head {h00=0x001e, h01=0x0050, text=» CBE GTKFVAL,=D'0',TCL140 «, t00=0x000e, t01=0x014a}
0x1742…1766 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GTKFVAL «, t00=0x000e, t01=0x016c}
0x1766…1798 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATE «, t00=0x000e, t01=0x0190}
0x1798…17cc Head {h00=0x0030, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN1,GSWBIN5,GTKFVAL BEV«, t00=0x000f, t01=0x0032}
0x17cc…17e0 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL140«, t00=0x000f, t01=0x0066}
0x17e0…1802 Head {h00=0x001e, h01=0x0050, text=» CBE GTKFVAL,=D'0',TCL140 «, t00=0x000f, t01=0x007a}
0x1802…1826 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTKFVAL «, t00=0x000f, t01=0x009c}
0x1826…1848 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x000f, t01=0x00c0}
0x1848…186c Head {h00=0x0020, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 BFONR «, t00=0x000f, t01=0x00e2}
0x186c…1894 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'PENGE KONTO ' «, t00=0x000f, t01=0x0106}
0x1894…18bc Head {h00=0x0024, h01=0x0050, text=» PERF TR2GEN,CBIN0 GENERATE TR 2«, t00=0x000f, t01=0x012e}
0x18bc…18d0 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL140«, t00=0x000f, t01=0x0156}
0x18d0…18de Head {h00=0x000a, h01=0x0050, text=»TCL140«, t00=0x000f, t01=0x016a}
0x18de…18f8 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x000f, t01=0x0178}
0x18f8…191a (16, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD5,=D'5',TCL110 «, t00=0x0010, t01=0x0004}
0x191a…1928 Head {h00=0x000a, h01=0x0050, text=»TCL150«, t00=0x0010, t01=0x0026}
0x1928…1936 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0034}
0x1936…194e Head {h00=0x0014, h01=0x0050, text=»* VERSUR - KASSE«, t00=0x0010, t01=0x0042}
0x194e…195c Head {h00=0x000a, h01=0x0050, text=»TCL205«, t00=0x0010, t01=0x005a}
0x195c…1970 Head {h00=0x0010, h01=0x0050, text=» SET GTTFLG «, t00=0x0010, t01=0x0068}
0x1970…1992 Head {h00=0x001e, h01=0x0050, text=» CBE TVERSUR,=D'0',TCL235 «, t00=0x0010, t01=0x007c}
0x1992…19c0 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN1),TVERSUR REMIT ACC «, t00=0x0010, t01=0x009e}
0x19c0…19ee Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN4),TTACC(CBIN6,CBIN1)«, t00=0x0010, t01=0x00cc}
0x19ee…1a1c Head {h00=0x002a, h01=0x0050, text=» ADD GTDUPF(CBIN4),TTACC(CBIN6,CBIN2) «, t00=0x0010, t01=0x00fa}
0x1a1c…1a44 Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN4),=D'0',TCL235 «, t00=0x0010, t01=0x0128}
0x1a44…1a66 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 «, t00=0x0010, t01=0x0150}
0x1a66…1a88 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x0010, t01=0x0172}
0x1a88…1aaa (17, 0, 400) Head {h00=0x001e, h01=0x0050, text=» MUL GTDUPF(CBIN4),=D'-1' «, t00=0x0011, t01=0x0004}
0x1aaa…1ada Head {h00=0x002c, h01=0x0050, text=» MOVE GSWSTR20,=C'VERSUR KONTONR REMIT '«, t00=0x0011, t01=0x0026}
0x1ada…1af6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x0011, t01=0x0056}
0x1af6…1b10 Head {h00=0x0016, h01=0x0050, text=» PERF TR2GEN,CBIN0«, t00=0x0011, t01=0x0072}
0x1b10…1b24 Head {h00=0x0010, h01=0x0050, text=» BNOK TCL205«, t00=0x0011, t01=0x008c}
0x1b24…1b32 Head {h00=0x000a, h01=0x0050, text=»TCL235«, t00=0x0011, t01=0x00a0}
0x1b32…1b4a Head {h00=0x0014, h01=0x0050, text=» CASH MOVEMENT«, t00=0x0011, t01=0x00ae}
0x1b4a…1b78 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN1),TTCASHAC ACCOUNTNR«, t00=0x0011, t01=0x00c6}
0x1b78…1ba8 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN4),TTCASH CURRENT CASH «, t00=0x0011, t01=0x00f4}
0x1ba8…1bd8 Head {h00=0x002c, h01=0x0050, text=» SUB GTDUPF(CBIN4),TTSTCASH INITIAL CASH«, t00=0x0011, t01=0x0124}
0x1bd8…1bfa Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN1),CBIN5 «, t00=0x0011, t01=0x0154}
0x1bfa…1c1c Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),=W'-8'«, t00=0x0011, t01=0x0176}
0x1c1c…1c44 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'KASSE-KONTO ' «, t00=0x0012, t01=0x0008}
0x1c44…1c60 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x0012, t01=0x0030}
0x1c60…1c7a Head {h00=0x0016, h01=0x0050, text=» PERF TR2GEN,CBIN0«, t00=0x0012, t01=0x004c}
0x1c7a…1c8e Head {h00=0x0010, h01=0x0050, text=» BNOK TCL235«, t00=0x0012, t01=0x0066}
0x1c8e…1c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007a}
0x1c98…1ccc Head {h00=0x0030, h01=0x0050, text=»* WRITING OF DISC JOURNAL AND VOUCHER «, t00=0x0012, t01=0x0084}
0x1ccc…1cd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b8}
0x1cd6…1cf8 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x0012, t01=0x00c2}
0x1cf8…1d0c Head {h00=0x0010, h01=0x0050, text=» PERF CLEDB «, t00=0x0012, t01=0x00e4}
0x1d0c…1d26 Head {h00=0x0016, h01=0x0050, text=»* PRINT KONTOFILE «, t00=0x0012, t01=0x00f8}
0x1d26…1d48 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x0012, t01=0x0112}
0x1d48…1d5a Head {h00=0x000e, h01=0x0050, text=» PERF CLKF«, t00=0x0012, t01=0x0134}
0x1d5a…1d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0146}
0x1d64…1d82 Head {h00=0x001a, h01=0x0050, text=»* BEHOLDNINGST[LLERE «, t00=0x0012, t01=0x0150}
0x1d82…1d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016e}
0x1d8c…1da0 Head {h00=0x0010, h01=0x0050, text=» PERF CLBEH «, t00=0x0012, t01=0x0178}
0x1da0…1daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018c}
0x1daa…1dc8 Head {h00=0x001a, h01=0x0050, text=» MOVE TTSTCASH,TTCASH «, t00=0x0013, t01=0x0008}
0x1dc8…1de6 Head {h00=0x001a, h01=0x0050, text=» MOVE TTSTLBNR,TTLBNR «, t00=0x0013, t01=0x0026}
0x1de6…1e02 Head {h00=0x0018, h01=0x0050, text=» ADD TTSTLBNR,=D'1' «, t00=0x0013, t01=0x0044}
0x1e02…1e34 Head {h00=0x002e, h01=0x0050, text=» MUL TTSTLBNR,=D'-1' SET NEGATIVE (CLOSE) «, t00=0x0013, t01=0x0060}
0x1e34…1e6c Head {h00=0x0034, h01=0x0050, text=» MUL CMASK(TTASKNR),=D'-1' SET CMASK < 0, CLOSE «, t00=0x0013, t01=0x0092}
0x1e6c…1e82 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTTFLG «, t00=0x0013, t01=0x00ca}
0x1e82…1e90 Head {h00=0x000a, h01=0x0050, text=»TCL550«, t00=0x0013, t01=0x00e0}
0x1e90…1eae Head {h00=0x001a, h01=0x0050, text=» MOVE TTRECOPN,CRECBCD«, t00=0x0013, t01=0x00ee}
0x1eae…1ec0 Head {h00=0x000e, h01=0x0050, text=» PERF ZERO«, t00=0x0013, t01=0x010c}
0x1ec0…1ef6 Head {h00=0x0032, h01=0x0050, text=» PERF TCONFW,TTASKNR STORE NEW INITIAL VALUES «, t00=0x0013, t01=0x011e}
0x1ef6…1f0a Head {h00=0x0010, h01=0x0050, text=» PERF CONFWR«, t00=0x0013, t01=0x0154}
0x1f0a…1f1e Head {h00=0x0010, h01=0x0050, text=» BNOK TCL550«, t00=0x0013, t01=0x0168}
0x1f1e…1f34 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTKASSE«, t00=0x0013, t01=0x017c}
0x1f34…1f52 (20, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* ZERONIZE COUNTERS «, t00=0x0014, t01=0x0004}
0x1f52…1f70 Head {h00=0x001a, h01=0x0050, text=»* TRANS 12 COUNTERS «, t00=0x0014, t01=0x0022}
0x1f70…1f8c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=C'*'«, t00=0x0014, t01=0x0040}
0x1f8c…1fa8 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0014, t01=0x005c}
0x1fa8…1fc6 Head {h00=0x001a, h01=0x0050, text=» CMP CBIN0,CBIN0 DUMMY«, t00=0x0014, t01=0x0078}
0x1fc6…1fd2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x0096}
0x1fd2…1fe0 Head {h00=0x000a, h01=0x0050, text=»TCLMAK«, t00=0x0014, t01=0x00a2}
0x1fe0…1ff8 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0014, t01=0x00b0}
0x1ff8…2004 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x00c8}
0x2004…2012 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x00d4}
0x2012…2020 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00e2}
0x2020…202e Head {h00=0x000a, h01=0x0050, text=»RGA200«, t00=0x0014, t01=0x00f0}
0x202e…2066 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0014, t01=0x00fe}
0x2066…2070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0136}
0x2070…20a8 Head {h00=0x0034, h01=0x0050, text=»* PERFORM OF SELECTED ADM ROUTINE«, t00=0x0014, t01=0x0140}
0x20a8…20b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0178}
0x20b2…20ec Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0014, t01=0x0182}
0x20ec…20f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002c}
0x20f6…2114 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0015, t01=0x0036}
0x2114…212e Head {h00=0x0016, h01=0x0050, text=» PERF ADM,GSWBIN1 «, t00=0x0015, t01=0x0054}
0x212e…2140 Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x0015, t01=0x006e}
0x2140…214e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0080}
0x214e…2160 Head {h00=0x000e, h01=0x0050, text=»ZERO PROC «, t00=0x0015, t01=0x008e}
0x2160…216a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x216a…2188 Head {h00=0x001a, h01=0x0050, text=»* ZERONIZE COUNTERS «, t00=0x0015, t01=0x00aa}
0x2188…21a6 Head {h00=0x001a, h01=0x0050, text=»* TRANS 12 COUNTERS «, t00=0x0015, t01=0x00c8}
0x21a6…21d0 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN3,CTR12(TTASKNR,CBIN1)«, t00=0x0015, t01=0x00e6}
0x21d0…21ee Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN3 «, t00=0x0015, t01=0x0110}
0x21ee…2218 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN2,CTR12(TTASKNR,CBIN2) «, t00=0x0015, t01=0x012e}
0x2218…2226 Head {h00=0x000a, h01=0x0050, text=»TCL610«, t00=0x0015, t01=0x0158}
0x2226…2240 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN1«, t00=0x0015, t01=0x0166}
0x2240…2264 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN3,GSWBIN2,TCL615 «, t00=0x0015, t01=0x0180}
0x2264…228e Head {h00=0x0026, h01=0x0050, text=» MOVE C12ACC(GSWBIN3,CBIN1),=D'0' «, t00=0x0016, t01=0x0014}
0x228e…22b8 Head {h00=0x0026, h01=0x0050, text=» MOVE C12ACC(GSWBIN3,CBIN2),=D'0' «, t00=0x0016, t01=0x003e}
0x22b8…22d4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTKFVAL,=D'0' «, t00=0x0016, t01=0x0068}
0x22d4…2304 Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN1,CBIN1,GSWBIN3,GTKFVAL«, t00=0x0016, t01=0x0084}
0x2304…2334 Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN1,CBIN2,GSWBIN3,GTKFVAL«, t00=0x0016, t01=0x00b4}
0x2334…2346 Head {h00=0x000e, h01=0x0050, text=» B TCL610 «, t00=0x0016, t01=0x00e4}
0x2346…2354 Head {h00=0x000a, h01=0x0050, text=»TCL615«, t00=0x0016, t01=0x00f6}
0x2354…236c Head {h00=0x0014, h01=0x0050, text=»* ACCUMULATORS«, t00=0x0016, t01=0x0104}
0x236c…2388 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0016, t01=0x011c}
0x2388…2396 Head {h00=0x000a, h01=0x0050, text=»TCL620«, t00=0x0016, t01=0x0138}
0x2396…23b0 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0016, t01=0x0146}
0x23b0…23d8 Head {h00=0x0024, h01=0x0050, text=» MOVE TTACC(GSWBIN1,CBIN1),=D'0'«, t00=0x0016, t01=0x0160}
0x23d8…2400 Head {h00=0x0024, h01=0x0050, text=» MOVE TTACC(GSWBIN1,CBIN2),=D'0'«, t00=0x0016, t01=0x0188}
0x2400…2422 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN1,CBIN8,TCL620 «, t00=0x0017, t01=0x0020}
0x2422…242e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0042}
0x242e…243c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x004e}
0x243c…244a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x005c}
0x244a…245c Head {h00=0x000e, h01=0x0050, text=»CLEJ PROC «, t00=0x0017, t01=0x006a}
0x245c…249a Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0017, t01=0x007c}
0x249a…24a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ba}
0x24a4…24d6 Head {h00=0x002e, h01=0x0050, text=»* NOW ALL ACCUMULATORS NOT = 0«, t00=0x0017, t01=0x00c4}
0x24d6…2500 Head {h00=0x0026, h01=0x0050, text=»* HAS BEEN REGISTRATED«, t00=0x0017, t01=0x00f6}
0x2500…2536 Head {h00=0x0032, h01=0x0050, text=»* A VOUCHER PRINT OF ALL TR12 ACC «, t00=0x0017, t01=0x0120}
0x2536…255c Head {h00=0x0022, h01=0x0050, text=»* IS NOW PERFORMED«, t00=0x0017, t01=0x0156}
0x255c…2566 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0017, t01=0x017c}
0x2566…25a6 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0017, t01=0x0186}
0x25a6…25c2 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x0018, t01=0x0036}
0x25c2…25ea Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,='EJ-EDB T[LLER '«, t00=0x0018, t01=0x0052}
0x25ea…261a Head {h00=0x002c, h01=0x0050, text=» CBE CTR12(TTASKNR,CBIN2),CBIN0,CLEJRET «, t00=0x0018, t01=0x007a}
0x261a…2634 Head {h00=0x0016, h01=0x0050, text=» PERF WAHEAD,CBIN8«, t00=0x0018, t01=0x00aa}
0x2634…2650 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x0018, t01=0x00c4}
0x2650…265e Head {h00=0x000a, h01=0x0050, text=»CLEJ10«, t00=0x0018, t01=0x00e0}
0x265e…2678 Head {h00=0x0016, h01=0x0050, text=» ADD GTWBCD1,=D'1'«, t00=0x0018, t01=0x00ee}
0x2678…269e Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN5,GTWBCD1 CONVERT «, t00=0x0018, t01=0x0108}
0x269e…26ce Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN5,CTR12(TTASKNR,CBIN2),CLEJ90«, t00=0x0018, t01=0x012e}
0x26ce…26f8 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN5,CTR12(TTASKNR,CBIN1) «, t00=0x0018, t01=0x015e}
0x26f8…272a Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) «, t00=0x0018, t01=0x0188}
0x272a…275a Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2)«, t00=0x0019, t01=0x002a}
0x275a…2786 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN1),CTR12NR(GSWBIN5)«, t00=0x0019, t01=0x005a}
0x2786…27ae Head {h00=0x0024, h01=0x0050, text=» CBE GTDUPF(CBIN1),=D'0',CLEJ10 «, t00=0x0019, t01=0x0086}
0x27ae…27d0 Head {h00=0x001e, h01=0x0050, text=» CBG TTLINNR,=D'0',CLEJ20 «, t00=0x0019, t01=0x00ae}
0x27d0…27ea Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0019, t01=0x00d0}
0x27ea…2806 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x0019, t01=0x00ea}
0x2806…2820 Head {h00=0x0016, h01=0x0050, text=» PERF WAHEAD,CBIN8«, t00=0x0019, t01=0x0106}
0x2820…282e Head {h00=0x000a, h01=0x0050, text=»CLEJ20«, t00=0x0019, t01=0x0120}
0x282e…2848 Head {h00=0x0016, h01=0x0050, text=» PERF WALINE,CBIN9«, t00=0x0019, t01=0x012e}
0x2848…285a Head {h00=0x000e, h01=0x0050, text=» B CLEJ10 «, t00=0x0019, t01=0x0148}
0x285a…2868 Head {h00=0x000a, h01=0x0050, text=»CLEJ90«, t00=0x0019, t01=0x015a}
0x2868…2882 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0019, t01=0x0168}
0x2882…2892 Head {h00=0x000c, h01=0x0050, text=»CLEJRET «, t00=0x0019, t01=0x0182}
0x2892…289e (26, 0, 400) Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x0004}
0x289e…28ac Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x0010}
0x28ac…28ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x001e}
0x28ba…28cc Head {h00=0x000e, h01=0x0050, text=»CLKF PROC «, t00=0x001a, t01=0x002c}
0x28cc…28ea Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001a, t01=0x003e}
0x28ea…28f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x005c}
0x28f4…290e Head {h00=0x0016, h01=0x0050, text=»* CLOSE KONTOFILE «, t00=0x001a, t01=0x0066}
0x290e…2918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0080}
0x2918…294a Head {h00=0x002e, h01=0x0050, text=»* UDSKRIV OG NULSTIL VERSUR OG PENGEKONTI «, t00=0x001a, t01=0x008a}
0x294a…2954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00bc}
0x2954…2972 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001a, t01=0x00c6}
0x2972…29a0 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR20,=C'LOKAL REMITTERING ' «, t00=0x001a, t01=0x00e4}
0x29a0…29b6 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x001a, t01=0x0112}
0x29b6…29ce Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001a, t01=0x0128}
0x29ce…29e8 Head {h00=0x0016, h01=0x0050, text=» PERF WAHEAD,CBIN8«, t00=0x001a, t01=0x0140}
0x29e8…2a10 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD5,=D'0' LOOP ON BFO «, t00=0x001a, t01=0x015a}
0x2a10…2a46 Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGF(CBIN1),=D'0' TOTAL KREDIT-VERSUR «, t00=0x001a, t01=0x0182}
0x2a46…2a7c Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGF(CBIN2),=D'0' TOTAL DEBET - VERSUR«, t00=0x001b, t01=0x0028}
0x2a7c…2aae Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN3),=D'0' TOTAL BEV-PENGE «, t00=0x001b, t01=0x005e}
0x2aae…2ac0 Head {h00=0x000e, h01=0x0050, text=» B CLKF100«, t00=0x001b, t01=0x0090}
0x2ac0…2ad0 Head {h00=0x000c, h01=0x0050, text=»CLKF010 «, t00=0x001b, t01=0x00a2}
0x2ad0…2ae0 Head {h00=0x000c, h01=0x0050, text=»* VERSUR«, t00=0x001b, t01=0x00b2}
0x2ae0…2b04 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 BFO NR«, t00=0x001b, t01=0x00c2}
0x2b04…2b3c Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN0,GSWBIN5,GTKFVAL KONTONR«, t00=0x001b, t01=0x00e6}
0x2b3c…2b60 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GTKFVAL «, t00=0x001b, t01=0x011e}
0x2b60…2b98 Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN1,GSWBIN5,GTKFVAL KREDIT «, t00=0x001b, t01=0x0142}
0x2b98…2bcc Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTKFVAL PUT INTO KREDIT«, t00=0x001b, t01=0x017a}
0x2bcc…2bfc Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN2),GTKFVAL ADD TO TOTAL «, t00=0x001c, t01=0x001e}
0x2bfc…2c32 Head {h00=0x0032, h01=0x0050, text=» PERF KFREAD,CBIN3,CBIN2,GSWBIN5,GTKFVAL DEBET«, t00=0x001c, t01=0x004e}
0x2c32…2c64 Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN5),GTKFVAL PUT INTO DEBET«, t00=0x001c, t01=0x0084}
0x2c64…2c94 Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN1),GTKFVAL ADD TO TOTAL «, t00=0x001c, t01=0x00b6}
0x2c94…2cb2 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x001c, t01=0x00e6}
0x2cb2…2cd0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x001c, t01=0x0104}
0x2cd0…2ce6 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x001c, t01=0x0122}
0x2ce6…2d02 Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN20 «, t00=0x001c, t01=0x0138}
0x2d02…2d12 Head {h00=0x000c, h01=0x0050, text=»* PENGE «, t00=0x001c, t01=0x0154}
0x2d12…2d22 Head {h00=0x000c, h01=0x0050, text=»CLKF100 «, t00=0x001c, t01=0x0164}
0x2d22…2d40 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x001c, t01=0x0174}
0x2d40…2d78 (29, 0, 400) Head {h00=0x0034, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN0,GSWBIN5,GTKFVAL KONTONR«, t00=0x001d, t01=0x0004}
0x2d78…2d9c Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GTKFVAL «, t00=0x001d, t01=0x003c}
0x2d9c…2dd0 Head {h00=0x0030, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN1,GSWBIN5,GTKFVAL BEV«, t00=0x001d, t01=0x0060}
0x2dd0…2e00 Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN3),GTKFVAL ADD TO TOTAL «, t00=0x001d, t01=0x0094}
0x2e00…2e24 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTKFVAL «, t00=0x001d, t01=0x00c4}
0x2e24…2e3c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001d, t01=0x00e8}
0x2e3c…2e5a Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x001d, t01=0x0100}
0x2e5a…2e78 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x001d, t01=0x011e}
0x2e78…2e94 Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN20 «, t00=0x001d, t01=0x013c}
0x2e94…2eae Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x001d, t01=0x0158}
0x2eae…2ed0 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD5,=D'5',CLKF010«, t00=0x001d, t01=0x0172}
0x2ed0…2ee6 (30, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* WRITE TOTAL «, t00=0x001e, t01=0x0004}
0x2ee6…2f16 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN1),=X'FF' CLEAR KONTONR«, t00=0x001e, t01=0x001a}
0x2f16…2f3e Head {h00=0x0024, h01=0x0050, text=» MOVE GTWBCD1,=X'FF' CLEAR BFUND«, t00=0x001e, t01=0x004a}
0x2f3e…2f72 Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTREGF(CBIN3) TOTAL BEV «, t00=0x001e, t01=0x0072}
0x2f72…2fa2 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN5),GTREGF(CBIN1) KREDIT«, t00=0x001e, t01=0x00a6}
0x2fa2…2fd2 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTREGF(CBIN2) DEBET «, t00=0x001e, t01=0x00d6}
0x2fd2…2fe6 Head {h00=0x0010, h01=0x0050, text=» SET GTDYFLG«, t00=0x001e, t01=0x0106}
0x2fe6…2ffc Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x001e, t01=0x011a}
0x2ffc…301e Head {h00=0x001e, h01=0x0050, text=» PERF WALINE,CBIN20 VERSUR«, t00=0x001e, t01=0x0130}
0x301e…3034 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x001e, t01=0x0152}
0x3034…304c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001e, t01=0x0168}
0x304c…306c Head {h00=0x001c, h01=0x0050, text=» PERF WALINE,CBIN20 BEV «, t00=0x001e, t01=0x0180}
0x306c…3086 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x001f, t01=0x0010}
0x3086…30a4 Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLKFRET «, t00=0x001f, t01=0x002a}
0x30a4…30c4 Head {h00=0x001c, h01=0x0050, text=»* NULSTIL VERSUR + PENGE«, t00=0x001f, t01=0x0048}
0x30c4…30e0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x001f, t01=0x0068}
0x30e0…30fc Head {h00=0x0018, h01=0x0050, text=» MOVE GTKFVAL,=D'0' «, t00=0x001f, t01=0x0084}
0x30fc…310e Head {h00=0x000e, h01=0x0050, text=» B CLKF210«, t00=0x001f, t01=0x00a0}
0x310e…311e Head {h00=0x000c, h01=0x0050, text=»CLKF200 «, t00=0x001f, t01=0x00b2}
0x311e…313c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x001f, t01=0x00c2}
0x313c…316c Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN3,CBIN1,GSWBIN5,GTKFVAL«, t00=0x001f, t01=0x00e0}
0x316c…319c Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN3,CBIN2,GSWBIN5,GTKFVAL«, t00=0x001f, t01=0x0110}
0x319c…31ac Head {h00=0x000c, h01=0x0050, text=»CLKF210 «, t00=0x001f, t01=0x0140}
0x31ac…31ca Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x001f, t01=0x0150}
0x31ca…31fa Head {h00=0x002c, h01=0x0050, text=» PERF KFWRIT,CBIN2,CBIN1,GSWBIN5,GTKFVAL«, t00=0x001f, t01=0x016e}
0x31fa…3214 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x0020, t01=0x000e}
0x3214…3236 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD5,=D'5',CLKF200«, t00=0x0020, t01=0x0028}
0x3236…3246 Head {h00=0x000c, h01=0x0050, text=»CLKFRET «, t00=0x0020, t01=0x004a}
0x3246…3252 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0020, t01=0x005a}
0x3252…3260 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0020, t01=0x0066}
0x3260…326e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0074}
0x326e…3280 Head {h00=0x000e, h01=0x0050, text=»CLEDB PROC«, t00=0x0020, t01=0x0082}
0x3280…328a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0094}
0x328a…32be Head {h00=0x0030, h01=0x0050, text=»* WRITING OF DISC JOURNAL AND VOUCHER «, t00=0x0020, t01=0x009e}
0x32be…32c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d2}
0x32c8…32f0 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'EDB-T[LLERE ' «, t00=0x0020, t01=0x00dc}
0x32f0…330a Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'6'«, t00=0x0020, t01=0x0104}
0x330a…3324 Head {h00=0x0016, h01=0x0050, text=» PERF WAHEAD,CBIN8«, t00=0x0020, t01=0x011e}
0x3324…3340 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0020, t01=0x0138}
0x3340…3368 Head {h00=0x0024, h01=0x0050, text=» MOVE GTREGF(CBIN1),=D'0' TOTAL «, t00=0x0020, t01=0x0154}
0x3368…338a Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN2),=D'0' «, t00=0x0020, t01=0x017c}
0x338a…339a Head {h00=0x000c, h01=0x0050, text=»CLEDB010«, t00=0x0021, t01=0x000e}
0x339a…33b8 Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLEDB020«, t00=0x0021, t01=0x001e}
0x33b8…33d4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTREGNR,=D'11'«, t00=0x0021, t01=0x003c}
0x33d4…33e4 Head {h00=0x000c, h01=0x0050, text=»CLEDB020«, t00=0x0021, t01=0x0058}
0x33e4…33fe Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD5,=D'1'«, t00=0x0021, t01=0x0068}
0x33fe…340e Head {h00=0x000c, h01=0x0050, text=»CLEDB030«, t00=0x0021, t01=0x0082}
0x340e…342c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 «, t00=0x0021, t01=0x0092}
0x342c…3450 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN5,CBIN6,CLEDB100 «, t00=0x0021, t01=0x00b0}
0x3450…3480 Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN1),TTACC(GSWBIN5,CBIN1) «, t00=0x0021, t01=0x00d4}
0x3480…34b0 Head {h00=0x002c, h01=0x0050, text=» ADD GTREGF(CBIN2),TTACC(GSWBIN5,CBIN2) «, t00=0x0021, t01=0x0104}
0x34b0…34d2 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN4),CBIN0 «, t00=0x0021, t01=0x0134}
0x34d2…3502 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN1)«, t00=0x0021, t01=0x0156}
0x3502…3532 Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN2) «, t00=0x0021, t01=0x0186}
0x3532…3562 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TTACC(GSWBIN5,CBIN1)«, t00=0x0022, t01=0x0026}
0x3562…3598 Head {h00=0x0032, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTACC(GSWBIN5,CBIN2) DEBET«, t00=0x0022, t01=0x0056}
0x3598…35b6 Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLEDB040«, t00=0x0022, t01=0x008c}
0x35b6…35da Head {h00=0x0020, h01=0x0050, text=» MOVE GTUSED(CBIN6),=W'-53' «, t00=0x0022, t01=0x00aa}
0x35da…35fe Head {h00=0x0020, h01=0x0050, text=» MOVE GTUSED(CBIN5),=W'-52' «, t00=0x0022, t01=0x00ce}
0x35fe…3622 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),GSWBCD5 «, t00=0x0022, t01=0x00f2}
0x3622…3644 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN1),=W'50'«, t00=0x0022, t01=0x0116}
0x3644…3674 Head {h00=0x002c, h01=0x0050, text=» MOVE GTDUPF(CBIN2),=D'2' MARK FOR TOTAL«, t00=0x0022, t01=0x0138}
0x3674…3696 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN2),=W'51'«, t00=0x0022, t01=0x0168}
0x3696…36a8 Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0022, t01=0x018a}
0x36a8…36bc Head {h00=0x0010, h01=0x0050, text=» PERF WRITFD«, t00=0x0023, t01=0x000c}
0x36bc…36d2 Head {h00=0x0012, h01=0x0050, text=» BNOK CLEDB030«, t00=0x0023, t01=0x0020}
0x36d2…36e2 Head {h00=0x000c, h01=0x0050, text=»CLEDB040«, t00=0x0023, t01=0x0036}
0x36e2…3708 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN5,GSWBCD5 RESTORE «, t00=0x0023, t01=0x0046}
0x3708…3726 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD1,GSWBCD5 «, t00=0x0023, t01=0x006c}
0x3726…3740 Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'7'«, t00=0x0023, t01=0x008a}
0x3740…375c Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN10 «, t00=0x0023, t01=0x00a4}
0x375c…3770 Head {h00=0x0010, h01=0x0050, text=» B CLEDB010 «, t00=0x0023, t01=0x00c0}
0x3770…3780 Head {h00=0x000c, h01=0x0050, text=»CLEDB100«, t00=0x0023, t01=0x00d4}
0x3780…3794 Head {h00=0x0010, h01=0x0050, text=» PERF PACKCL«, t00=0x0023, t01=0x00e4}
0x3794…37be Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GTREGF(CBIN1) «, t00=0x0023, t01=0x00f8}
0x37be…37e6 Head {h00=0x0024, h01=0x0050, text=» ADD GTDUPF(CBIN4),GTREGF(CBIN2)«, t00=0x0023, t01=0x0122}
0x37e6…3814 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTACC(CBIN8,CBIN1)«, t00=0x0023, t01=0x014a}
0x3814…3842 Head {h00=0x002a, h01=0x0050, text=» ADD GTDUPF(CBIN5),TTACC(CBIN8,CBIN2) «, t00=0x0023, t01=0x0178}
0x3842…385e Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN11 «, t00=0x0024, t01=0x0016}
0x385e…388c Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTACC(CBIN1,CBIN1)«, t00=0x0024, t01=0x0032}
0x388c…38ba Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TTACC(CBIN1,CBIN2)«, t00=0x0024, t01=0x0060}
0x38ba…38d6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0024, t01=0x008e}
0x38d6…38e6 Head {h00=0x000c, h01=0x0050, text=»CLEDB110«, t00=0x0024, t01=0x00aa}
0x38e6…3900 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0024, t01=0x00ba}
0x3900…3924 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN1,CBIN4,CLEDB120 «, t00=0x0024, t01=0x00d4}
0x3924…3954 Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN5),TTACC(GSWBIN1,CBIN1) «, t00=0x0024, t01=0x00f8}
0x3954…3984 Head {h00=0x002c, h01=0x0050, text=» ADD GTDUPF(CBIN6),TTACC(GSWBIN1,CBIN2) «, t00=0x0024, t01=0x0128}
0x3984…3998 Head {h00=0x0010, h01=0x0050, text=» B CLEDB110 «, t00=0x0024, t01=0x0158}
0x3998…39a8 Head {h00=0x000c, h01=0x0050, text=»CLEDB120«, t00=0x0024, t01=0x016c}
0x39a8…39c6 Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLEDB160«, t00=0x0024, t01=0x017c}
0x39c6…39f2 Head {h00=0x0028, h01=0x0050, text=»* ADJUST FOR 'KASSE INDBERETNING' «, t00=0x0025, t01=0x000a}
0x39f2…3a0e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,TTCASH«, t00=0x0025, t01=0x0036}
0x3a0e…3a2c Head {h00=0x001a, h01=0x0050, text=» SUB GSWBCD1,TTSTCASH «, t00=0x0025, t01=0x0052}
0x3a2c…3a50 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBCD1,=D'0',CLEDB130 «, t00=0x0025, t01=0x0070}
0x3a50…3a72 Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN6),GSWBCD1«, t00=0x0025, t01=0x0094}
0x3a72…3a86 Head {h00=0x0010, h01=0x0050, text=» B CLEDB140 «, t00=0x0025, t01=0x00b6}
0x3a86…3a96 Head {h00=0x000c, h01=0x0050, text=»CLEDB130«, t00=0x0025, t01=0x00ca}
0x3a96…3ab8 Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN5),GSWBCD1«, t00=0x0025, t01=0x00da}
0x3ab8…3ac8 Head {h00=0x000c, h01=0x0050, text=»CLEDB140«, t00=0x0025, t01=0x00fc}
0x3ac8…3af4 Head {h00=0x0028, h01=0x0050, text=»* ADJUST FOR 'VERSUR INDBERETNING'«, t00=0x0025, t01=0x010c}
0x3af4…3b1c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD1,TTACC(CBIN6,CBIN1)«, t00=0x0025, t01=0x0138}
0x3b1c…3b44 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD1,TTACC(CBIN6,CBIN2) «, t00=0x0025, t01=0x0160}
0x3b44…3b66 Head {h00=0x001e, h01=0x0050, text=» MUL GSWBCD1,=D'-1' 'VEND'«, t00=0x0025, t01=0x0188}
0x3b66…3b8a Head {h00=0x0020, h01=0x0050, text=» CBL GSWBCD1,=D'0',CLEDB150 «, t00=0x0026, t01=0x001a}
0x3b8a…3bac Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN6),GSWBCD1«, t00=0x0026, t01=0x003e}
0x3bac…3bc0 Head {h00=0x0010, h01=0x0050, text=» B CLEDB160 «, t00=0x0026, t01=0x0060}
0x3bc0…3bd0 Head {h00=0x000c, h01=0x0050, text=»CLEDB150«, t00=0x0026, t01=0x0074}
0x3bd0…3bf2 Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN5),GSWBCD1«, t00=0x0026, t01=0x0084}
0x3bf2…3c02 Head {h00=0x000c, h01=0x0050, text=»CLEDB160«, t00=0x0026, t01=0x00a6}
0x3c02…3c24 Head {h00=0x001e, h01=0x0050, text=» MUL GTDUPF(CBIN5),=D'-1' «, t00=0x0026, t01=0x00b6}
0x3c24…3c46 Head {h00=0x001e, h01=0x0050, text=» MUL GTDUPF(CBIN6),=D'-1' «, t00=0x0026, t01=0x00d8}
0x3c46…3c62 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,TTCASH«, t00=0x0026, t01=0x00fa}
0x3c62…3c80 Head {h00=0x001a, h01=0x0050, text=» SUB GSWBCD1,TTSTCASH «, t00=0x0026, t01=0x0116}
0x3c80…3ca4 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),GSWBCD1 «, t00=0x0026, t01=0x0134}
0x3ca4…3cc0 Head {h00=0x0018, h01=0x0050, text=» PERF WALINE,CBIN12 «, t00=0x0026, t01=0x0158}
0x3cc0…3cda Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0026, t01=0x0174}
0x3cda…3ce6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x018e}
0x3ce6…3cf4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x000a}
0x3cf4…3d02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0018}
0x3d02…3d14 Head {h00=0x000e, h01=0x0050, text=»CLBEH PROC«, t00=0x0027, t01=0x0026}
0x3d14…3d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0038}
0x3d1e…3d3c Head {h00=0x001a, h01=0x0050, text=»* BEHOLDNINGST[LLERE «, t00=0x0027, t01=0x0042}
0x3d3c…3d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0060}
0x3d46…3d56 Head {h00=0x000c, h01=0x0050, text=»CLBEH010«, t00=0x0027, t01=0x006a}
0x3d56…3d72 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x0027, t01=0x007a}
0x3d72…3d9c Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN2,CBEH(TTASKNR,CBIN2) «, t00=0x0027, t01=0x0096}
0x3d9c…3db6 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN2,CBIN0«, t00=0x0027, t01=0x00c0}
0x3db6…3dca Head {h00=0x0010, h01=0x0050, text=» BE CLBEHRET«, t00=0x0027, t01=0x00da}
0x3dca…3df2 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN2,CBEH(TTASKNR,CBIN1)«, t00=0x0027, t01=0x00ee}
0x3df2…3e10 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GSWBIN2 «, t00=0x0027, t01=0x0116}
0x3e10…3e28 Head {h00=0x0014, h01=0x0050, text=» ATTFMT CLFRM04 «, t00=0x0027, t01=0x0134}
0x3e28…3e3e Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0027, t01=0x014c}
0x3e3e…3e52 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0027, t01=0x0162}
0x3e52…3e6a Head {h00=0x0014, h01=0x0050, text=» IB SPBINW2, C «, t00=0x0027, t01=0x0176}
0x3e6a…3ea4 Head {h00=0x0036, h01=0x0050, text=» CLBEH030,CLBEH030,CLBEH050,CLBEH040,CLBEH030, C«, t00=0x0027, t01=0x018e}
0x3ea4…3ede Head {h00=0x0036, h01=0x0050, text=» CLBEH030,CLBEH030,CLBEH030,CLBEH060,CLBEH030, C«, t00=0x0028, t01=0x0038}
0x3ede…3f02 Head {h00=0x0020, h01=0x0050, text=» CLBEH030,CLBEH030,CLBEH060«, t00=0x0028, t01=0x0072}
0x3f02…3f12 Head {h00=0x000c, h01=0x0050, text=»CLBEH030«, t00=0x0028, t01=0x0096}
0x3f12…3f26 Head {h00=0x0010, h01=0x0050, text=» B CLBEH010 «, t00=0x0028, t01=0x00a6}
0x3f26…3f36 Head {h00=0x000c, h01=0x0050, text=»CLBEH040«, t00=0x0028, t01=0x00ba}
0x3f36…3f54 Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLBEH010«, t00=0x0028, t01=0x00ca}
0x3f54…3f7a Head {h00=0x0022, h01=0x0050, text=» MOVE GSWSTR20,=C'SLET SALDO '«, t00=0x0028, t01=0x00e8}
0x3f7a…3f96 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN1 «, t00=0x0028, t01=0x010e}
0x3f96…3faa Head {h00=0x0010, h01=0x0050, text=» B CLBEH100 «, t00=0x0028, t01=0x012a}
0x3faa…3fba Head {h00=0x000c, h01=0x0050, text=»CLBEH050«, t00=0x0028, t01=0x013e}
0x3fba…3fd8 Head {h00=0x001a, h01=0x0050, text=» TBT GTSPGFLG,CLBEH010«, t00=0x0028, t01=0x014e}
0x3fd8…4000 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'SLET PERIODE '«, t00=0x0028, t01=0x016c}
0x4000…401c (41, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN2 «, t00=0x0029, t01=0x0004}
0x401c…4030 Head {h00=0x0010, h01=0x0050, text=» B CLBEH100 «, t00=0x0029, t01=0x0020}
0x4030…4040 Head {h00=0x000c, h01=0x0050, text=»CLBEH060«, t00=0x0029, t01=0x0034}
0x4040…4064 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR20,=C'SUBTOTAL '«, t00=0x0029, t01=0x0044}
0x4064…4080 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN3 «, t00=0x0029, t01=0x0068}
0x4080…4094 Head {h00=0x0010, h01=0x0050, text=» B CLBEH100 «, t00=0x0029, t01=0x0084}
0x4094…40a4 Head {h00=0x000c, h01=0x0050, text=»CLBEH100«, t00=0x0029, t01=0x0098}
0x40a4…40c0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'0' «, t00=0x0029, t01=0x00a8}
0x40c0…40dc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'0' «, t00=0x0029, t01=0x00c4}
0x40dc…40f8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'0' «, t00=0x0029, t01=0x00e0}
0x40f8…4108 Head {h00=0x000c, h01=0x0050, text=»CLBEH110«, t00=0x0029, t01=0x00fc}
0x4108…411c Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0029, t01=0x010c}
0x411c…413a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,CVOUTOP «, t00=0x0029, t01=0x0120}
0x413a…4154 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN6«, t00=0x0029, t01=0x013e}
0x4154…4174 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN3«, t00=0x0029, t01=0x0158}
0x4174…4188 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0029, t01=0x0178}
0x4188…41b4 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN13 HEAD ON VOUCHER «, t00=0x0029, t01=0x018c}
0x41b4…41d2 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x002a, t01=0x0028}
0x41d2…41e2 Head {h00=0x000c, h01=0x0050, text=»CLBEH120«, t00=0x002a, t01=0x0046}
0x41e2…41fc Head {h00=0x0016, h01=0x0050, text=» ADD GTWBCD1,=D'1'«, t00=0x002a, t01=0x0056}
0x41fc…421a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,GTWBCD1 «, t00=0x002a, t01=0x0070}
0x421a…4242 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN3,CBEH(TTASKNR,CBIN1)«, t00=0x002a, t01=0x008e}
0x4242…4260 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GTWBCD2 «, t00=0x002a, t01=0x00b6}
0x4260…4286 Head {h00=0x0022, h01=0x0050, text=» CBG GSWBIN3,GSWBIN4,CLBEH160 «, t00=0x002a, t01=0x00d4}
0x4286…42b6 Head {h00=0x002c, h01=0x0050, text=» CBE CBACC(GSWBIN3,CBIN1),=D'0',CLBEH120«, t00=0x002a, t01=0x00fa}
0x42b6…42e4 Head {h00=0x002a, h01=0x0050, text=»* ADD TO TOTAL, PERIODE AND SALDO «, t00=0x002a, t01=0x012a}
0x42e4…4316 Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD6,CBACC(GSWBIN3,CBIN2) PERIODE «, t00=0x002a, t01=0x0158}
0x4316…4346 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBCD7,CBACC(GSWBIN3,CBIN3) SALDO «, t00=0x002a, t01=0x018a}
0x4346…4362 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN14 «, t00=0x002b, t01=0x002a}
0x4362…4380 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x002b, t01=0x0046}
0x4380…439e Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,CLBEH150«, t00=0x002b, t01=0x0064}
0x439e…43cc Head {h00=0x002a, h01=0x0050, text=» IB GSWBIN6,CLBEH130,CLBEH140,CLBEH150«, t00=0x002b, t01=0x0082}
0x43cc…43e0 Head {h00=0x0010, h01=0x0050, text=» B CLBEH150 «, t00=0x002b, t01=0x00b0}
0x43e0…43f0 Head {h00=0x000c, h01=0x0050, text=»CLBEH130«, t00=0x002b, t01=0x00c4}
0x43f0…441e Head {h00=0x002a, h01=0x0050, text=» MOVE CBACC(GSWBIN3,CBIN3),=D'0' SALDO«, t00=0x002b, t01=0x00d4}
0x441e…442e Head {h00=0x000c, h01=0x0050, text=»CLBEH140«, t00=0x002b, t01=0x0102}
0x442e…445e Head {h00=0x002c, h01=0x0050, text=» MOVE CBACC(GSWBIN3,CBIN2),=D'0' PERIODE«, t00=0x002b, t01=0x0112}
0x445e…446e Head {h00=0x000c, h01=0x0050, text=»CLBEH150«, t00=0x002b, t01=0x0142}
0x446e…4488 Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'1'«, t00=0x002b, t01=0x0152}
0x4488…44ac Head {h00=0x0020, h01=0x0050, text=» CBG TTLINNR,=D'0',CLBEH120 «, t00=0x002b, t01=0x016c}
0x44ac…44c6 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x002b, t01=0x0190}
0x44c6…44e2 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'25'«, t00=0x002c, t01=0x001a}
0x44e2…44f6 Head {h00=0x0010, h01=0x0050, text=» B CLBEH110 «, t00=0x002c, t01=0x0036}
0x44f6…4506 Head {h00=0x000c, h01=0x0050, text=»CLBEH160«, t00=0x002c, t01=0x004a}
0x4506…4524 Head {h00=0x001a, h01=0x0050, text=»* WRITE TOTAL LINE«, t00=0x002c, t01=0x005a}
0x4524…4540 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN18 «, t00=0x002c, t01=0x0078}
0x4540…455e Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x002c, t01=0x0094}
0x455e…4578 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x002c, t01=0x00b2}
0x4578…4588 Head {h00=0x000c, h01=0x0050, text=»CLBEHRET«, t00=0x002c, t01=0x00cc}
0x4588…4594 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002c, t01=0x00dc}
0x4594…45a2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002c, t01=0x00e8}
0x45a2…45b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00f6}
0x45b0…45be Head {h00=0x000a, h01=0x0050, text=»RGA300«, t00=0x002c, t01=0x0104}
0x45be…45da Head {h00=0x0018, h01=0x0050, text=» TBT CCONVERT,RG310 «, t00=0x002c, t01=0x0112}
0x45da…45f6 Head {h00=0x0018, h01=0x0050, text=» PERF ADM,CBIN11 SPG«, t00=0x002c, t01=0x012e}
0x45f6…4604 Head {h00=0x000a, h01=0x0050, text=»RG310 «, t00=0x002c, t01=0x014a}
0x4604…4616 Head {h00=0x000e, h01=0x0050, text=» B RGKLAR «, t00=0x002c, t01=0x0158}
0x4616…4624 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x016a}
0x4624…465e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x002c, t01=0x0178}
0x465e…4668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0022}
0x4668…469a Head {h00=0x002e, h01=0x0050, text=»* TR2GEN GENERATES A TRANSACTION 2«, t00=0x002d, t01=0x002c}
0x469a…46a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005e}
0x46a4…46e0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x002d, t01=0x0068}
0x46e0…46f8 Head {h00=0x0014, h01=0x0050, text=»TR2GEN PROC DBKR«, t00=0x002d, t01=0x00a4}
0x46f8…4712 Head {h00=0x0016, h01=0x0050, text=» MOVE TTDKDEX,DBKR«, t00=0x002d, t01=0x00bc}
0x4712…4736 Head {h00=0x0020, h01=0x0050, text=» CBNE TTDKDEX,=W'0',TR2DBKR «, t00=0x002d, t01=0x00d6}
0x4736…4752 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN1 «, t00=0x002d, t01=0x00fa}
0x4752…477a Head {h00=0x0024, h01=0x0050, text=» CBL GTDUPF(CBIN4),=D'0',TR2DBKR«, t00=0x002d, t01=0x0116}
0x477a…4796 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN2 «, t00=0x002d, t01=0x013e}
0x4796…47a6 Head {h00=0x000c, h01=0x0050, text=»TR2DBKR «, t00=0x002d, t01=0x015a}
0x47a6…47ca Head {h00=0x0020, h01=0x0050, text=» PERFI TTDKDEX,SETKRE,SETDEB«, t00=0x002d, t01=0x016a}
0x47ca…47e8 Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,CLFRM02 «, t00=0x002d, t01=0x018e}
0x47e8…4818 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD1,GTDUPF(CBIN1) REG KONTO NR«, t00=0x002e, t01=0x001c}
0x4818…484e Head {h00=0x0032, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP 'KORT' REQUIRED? «, t00=0x002e, t01=0x004c}
0x484e…4860 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x002e, t01=0x0082}
0x4860…4874 Head {h00=0x0010, h01=0x0050, text=» BNOK TR2NOK«, t00=0x002e, t01=0x0094}
0x4874…4890 Head {h00=0x0018, h01=0x0050, text=» TBF CCLKTFLG,TR2OK «, t00=0x002e, t01=0x00a8}
0x4890…48ac Head {h00=0x0018, h01=0x0050, text=» TBF GTKORTFL,TR2OK «, t00=0x002e, t01=0x00c4}
0x48ac…48be Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x002e, t01=0x00e0}
0x48be…48cc Head {h00=0x000a, h01=0x0050, text=»TR2OK «, t00=0x002e, t01=0x00f2}
0x48cc…48e4 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x002e, t01=0x0100}
0x48e4…4900 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x002e, t01=0x0118}
0x4900…490e Head {h00=0x000a, h01=0x0050, text=»TR2NOK«, t00=0x002e, t01=0x0134}
0x490e…491a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002e, t01=0x0142}
0x491a…4928 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002e, t01=0x014e}
0x4928…4936 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x015c}
0x4936…4976 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002e, t01=0x016a}
0x4976…4980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x001a}
0x4980…49c0 Head {h00=0x003c, h01=0x0050, text=»* WAHEAD - GRASP AND WRITE HEADLINE ON VOUCHER «, t00=0x002f, t01=0x0024}
0x49c0…49ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0064}
0x49ca…4a0a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002f, t01=0x006e}
0x4a0a…4a24 Head {h00=0x0016, h01=0x0050, text=»WAHEAD PROC VOXDEX«, t00=0x002f, t01=0x00ae}
0x4a24…4a42 Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,CLFRM03 «, t00=0x002f, t01=0x00c8}
0x4a42…4a62 Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2«, t00=0x002f, t01=0x00e6}
0x4a62…4a76 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x002f, t01=0x0106}
0x4a76…4a96 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CVOUTOP«, t00=0x002f, t01=0x011a}
0x4a96…4aaa Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x002f, t01=0x013a}
0x4aaa…4ac6 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,VOXDEX «, t00=0x002f, t01=0x014e}
0x4ac6…4ae4 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x002f, t01=0x016a}
0x4ae4…4af0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0188}
0x4af0…4afe (48, 0, 398) Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0030, t01=0x0004}
0x4afe…4b0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0012}
0x4b0c…4b4e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0030, t01=0x0020}
0x4b4e…4b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0062}
0x4b58…4b84 Head {h00=0x0028, h01=0x0050, text=»* WALINE WRITE ACCUMULATORLINE«, t00=0x0030, t01=0x006c}
0x4b84…4b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0098}
0x4b8e…4bd0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0030, t01=0x00a2}
0x4bd0…4bea Head {h00=0x0016, h01=0x0050, text=»WALINE PROC LINDEX«, t00=0x0030, t01=0x00e4}
0x4bea…4c06 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,LINDEX «, t00=0x0030, t01=0x00fe}
0x4c06…4c24 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0030, t01=0x011a}
0x4c24…4c3e Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'1'«, t00=0x0030, t01=0x0138}
0x4c3e…4c4a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x0152}
0x4c4a…4c58 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0030, t01=0x015e}
0x4c58…4c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x016c}
0x4c62…4c70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0176}
0x4c70…4c82 Head {h00=0x000e, h01=0x0050, text=»SKIFT PROC«, t00=0x0030, t01=0x0184}
0x4c82…4ca4 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0031, t01=0x0008}
0x4ca4…4cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x002a}
0x4cae…4cec Head {h00=0x003a, h01=0x0050, text=»* SKIFT - THIS PROCEDURE TAKES HAND OF SHIFT«, t00=0x0031, t01=0x0034}
0x4cec…4d1c Head {h00=0x002c, h01=0x0050, text=»* OF DISKS, IS ACTIVATED AFTER «, t00=0x0031, t01=0x0072}
0x4d1c…4d36 Head {h00=0x0016, h01=0x0050, text=»* 12 ADM «, t00=0x0031, t01=0x00a2}
0x4d36…4d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00bc}
0x4d40…4d60 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0031, t01=0x00c6}
0x4d60…4d6c Head {h00=0x0008, h01=0x0050, text=»SK00«, t00=0x0031, t01=0x00e6}
0x4d6c…4d86 Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CPFLG «, t00=0x0031, t01=0x00f2}
0x4d86…4d9c Head {h00=0x0012, h01=0x0050, text=» SET CSKIFTWN «, t00=0x0031, t01=0x010c}
0x4d9c…4dce Head {h00=0x002e, h01=0x0050, text=» PERF SPLIN8,CBIN8,CBIN2 'DISKETTE SKIFT' «, t00=0x0031, t01=0x0122}
0x4dce…4de6 Head {h00=0x0014, h01=0x0050, text=» TBF CWFLAG,SK15«, t00=0x0031, t01=0x0154}
0x4de6…4e00 Head {h00=0x0016, h01=0x0050, text=» SUB CRECBCD,=D'1'«, t00=0x0031, t01=0x016c}
0x4e00…4e2a Head {h00=0x0026, h01=0x0050, text=» PERF SLUTID,CRECBCD WRITE 'SLUTD'«, t00=0x0031, t01=0x0186}
0x4e2a…4e58 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0032, t01=0x0020}
0x4e58…4e64 Head {h00=0x0008, h01=0x0050, text=»SK15«, t00=0x0032, t01=0x004e}
0x4e64…4e84 Head {h00=0x001c, h01=0x0050, text=» PERF WRITID,CBIN2,CBIN2«, t00=0x0032, t01=0x005a}
0x4e84…4e9e Head {h00=0x0016, h01=0x0050, text=» PERF CLSVOL,CBIN2«, t00=0x0032, t01=0x007a}
0x4e9e…4ebc Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0032, t01=0x0094}
0x4ebc…4ed6 Head {h00=0x0016, h01=0x0050, text=» ADD CVOLNO,=D'1' «, t00=0x0032, t01=0x00b2}
0x4ed6…4ef4 Head {h00=0x001a, h01=0x0050, text=» SET CRKCOPY FD2 EMPTY«, t00=0x0032, t01=0x00cc}
0x4ef4…4f02 Head {h00=0x000a, h01=0x0050, text=»SK120 «, t00=0x0032, t01=0x00ea}
0x4f02…4f26 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'512' LAMP 2 «, t00=0x0032, t01=0x00f8}
0x4f26…4f3a Head {h00=0x0010, h01=0x0050, text=» PERF SOPRD «, t00=0x0032, t01=0x011c}
0x4f3a…4f66 Head {h00=0x0028, h01=0x0050, text=» TBF CRKCOPY,SK120 FD2 NOT EMPTY YET«, t00=0x0032, t01=0x0130}
0x4f66…4f6e Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x015c}
0x4f6e…4f90 Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN2,CBIN9,SK120 «, t00=0x0032, t01=0x0164}
0x4f90…4faa Head {h00=0x0016, h01=0x0050, text=» PERF ASGVOL,CBIN2«, t00=0x0032, t01=0x0186}
0x4faa…4fbe Head {h00=0x0010, h01=0x0050, text=» BNOK SK120 «, t00=0x0033, t01=0x0010}
0x4fbe…4fdc Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0033, t01=0x0024}
0x4fdc…4ff6 Head {h00=0x0016, h01=0x0050, text=» MOVE CRECNR,CBIN1«, t00=0x0033, t01=0x0042}
0x4ff6…5012 Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,=D'0' «, t00=0x0033, t01=0x005c}
0x5012…502c Head {h00=0x0016, h01=0x0050, text=» TBF CWFLAG,SK130 «, t00=0x0033, t01=0x0078}
0x502c…5040 Head {h00=0x0010, h01=0x0050, text=» PERF STRTWR«, t00=0x0033, t01=0x0092}
0x5040…5054 Head {h00=0x0010, h01=0x0050, text=» BNOK SK120 «, t00=0x0033, t01=0x00a6}
0x5054…5062 Head {h00=0x000a, h01=0x0050, text=»SK130 «, t00=0x0033, t01=0x00ba}
0x5062…5088 Head {h00=0x0022, h01=0x0050, text=» PERF CNFWRT REWRITE CONFDATA «, t00=0x0033, t01=0x00c8}
0x5088…50a2 Head {h00=0x0016, h01=0x0050, text=» TBF CWFLAG,SK150 «, t00=0x0033, t01=0x00ee}
0x50a2…50be Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,=D'1' «, t00=0x0033, t01=0x0108}
0x50be…50de Head {h00=0x001c, h01=0x0050, text=» PERF WRITID,CBIN2,CBIN1«, t00=0x0033, t01=0x0124}
0x50de…50ec Head {h00=0x000a, h01=0x0050, text=»SK150 «, t00=0x0033, t01=0x0144}
0x50ec…5100 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0033, t01=0x0152}
0x5100…511c Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'11' «, t00=0x0033, t01=0x0166}
0x511c…5134 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSKIFTFL «, t00=0x0033, t01=0x0182}
0x5134…514c Head {h00=0x0014, h01=0x0050, text=» CLEAR CSKIFTWN «, t00=0x0034, t01=0x000a}
0x514c…516c Head {h00=0x001c, h01=0x0050, text=» CLEAR CPFLG DISC FREE «, t00=0x0034, t01=0x0022}
0x516c…5178 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0034, t01=0x0042}
0x5178…5186 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0034, t01=0x004e}
0x5186…5194 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x005c}
0x5194…51a8 Head {h00=0x0010, h01=0x0050, text=»STRTWR PROC «, t00=0x0034, t01=0x006a}
0x51a8…51c6 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0034, t01=0x007e}
0x51c6…51d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x009c}
0x51d0…520a Head {h00=0x0036, h01=0x0050, text=»* STRTWR - SET UP AND WRITE START RECORD «, t00=0x0034, t01=0x00a6}
0x520a…5214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e0}
0x5214…521e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ea}
0x521e…523e Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0034, t01=0x00f4}
0x523e…525a Head {h00=0x0018, h01=0x0050, text=» PERF STRTID,CVOLNO «, t00=0x0034, t01=0x0114}
0x525a…5288 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0034, t01=0x0130}
0x5288…529e Head {h00=0x0012, h01=0x0050, text=» BNOK STRTNOK «, t00=0x0034, t01=0x015e}
0x529e…52b8 Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0034, t01=0x0174}
0x52b8…52d8 Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK02,CRECNR «, t00=0x0034, t01=0x018e}
0x52d8…52ee Head {h00=0x0012, h01=0x0050, text=» BNOK STRTNOK «, t00=0x0035, t01=0x001e}
0x52ee…530a Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0035, t01=0x0034}
0x530a…5316 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0035, t01=0x0050}
0x5316…5326 Head {h00=0x000c, h01=0x0050, text=»STRTNOK «, t00=0x0035, t01=0x005c}
0x5326…533e Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0035, t01=0x006c}
0x533e…534a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0035, t01=0x0084}
0x534a…5358 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0035, t01=0x0090}
0x5358…5366 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x009e}
0x5366…5380 Head {h00=0x0016, h01=0x0050, text=»STRTID PROC VOLID «, t00=0x0035, t01=0x00ac}
0x5380…539c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0035, t01=0x00c6}
0x539c…53a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00e2}
0x53a6…53e4 Head {h00=0x003a, h01=0x0050, text=»* STRTID - SETS UP A START ID IN PACK BUFFER«, t00=0x0035, t01=0x00ec}
0x53e4…53ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x012a}
0x53ee…5412 Head {h00=0x0020, h01=0x0050, text=»* CALL - PERF STRTID,<VOLID>«, t00=0x0035, t01=0x0134}
0x5412…541c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0158}
0x541c…5438 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0035, t01=0x0162}
0x5438…544c Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0035, t01=0x017e}
0x544c…5470 (54, 0, 398) Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',STRT10 «, t00=0x0036, t01=0x0004}
0x5470…5486 Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0036, t01=0x0028}
0x5486…5494 Head {h00=0x000a, h01=0x0050, text=»STRT10«, t00=0x0036, t01=0x003e}
0x5494…54b0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN2 «, t00=0x0036, t01=0x004c}
0x54b0…54ce Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0036, t01=0x0068}
0x54ce…54ec Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,STARTFR «, t00=0x0036, t01=0x0086}
0x54ec…5508 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,VOLID «, t00=0x0036, t01=0x00a4}
0x5508…5526 Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FRVOLID«, t00=0x0036, t01=0x00c0}
0x5526…5542 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x0036, t01=0x00de}
0x5542…5576 Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,GSWBIN1,CBIN12,GSWSTR20,CBIN0 «, t00=0x0036, t01=0x00fa}
0x5576…5582 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x012e}
0x5582…5590 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x013a}
0x5590…559e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0148}
0x559e…55b8 Head {h00=0x0016, h01=0x0050, text=»SLUTID PROC SLUTNO«, t00=0x0036, t01=0x0156}
0x55b8…55d4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0036, t01=0x0170}
0x55d4…55de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x018c}
0x55de…5614 Head {h00=0x0032, h01=0x0050, text=»* SLUTID - SETS UP A SLUTD IN CPCKBUF«, t00=0x0037, t01=0x0008}
0x5614…561e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x003e}
0x561e…5628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0048}
0x5628…5644 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0037, t01=0x0052}
0x5644…5658 Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0037, t01=0x006e}
0x5658…567c Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',SLUT10 «, t00=0x0037, t01=0x0082}
0x567c…5692 Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0037, t01=0x00a6}
0x5692…56a0 Head {h00=0x000a, h01=0x0050, text=»SLUT10«, t00=0x0037, t01=0x00bc}
0x56a0…56be Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0037, t01=0x00ca}
0x56be…56da Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,SLUTNO«, t00=0x0037, t01=0x00e8}
0x56da…56f8 Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,SLUTFRM «, t00=0x0037, t01=0x0104}
0x56f8…5704 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0037, t01=0x0122}
0x5704…5712 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0037, t01=0x012e}
0x5712…5720 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x013c}
0x5720…5738 Head {h00=0x0014, h01=0x0050, text=»BCKUP PROC $OPT «, t00=0x0037, t01=0x014a}
0x5738…574a Head {h00=0x000e, h01=0x0050, text=» PLIT $OPT«, t00=0x0037, t01=0x0162}
0x574a…5766 Head {h00=0x0018, h01=0x0014, text=»********************«, t00=0x0037, t01=0x0174}
0x5766…5770 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0037, t01=0x0190}
0x5770…57ae Head {h00=0x003a, h01=0x0036, text=»* THIS PROCEDURE TAKES CARE OF ADMINISTRATION«, t00=0x0038, t01=0x000a}
0x57ae…57ca Head {h00=0x0018, h01=0x0014, text=»* OB BACKUP«, t00=0x0038, t01=0x0048}
0x57ca…57d4 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0038, t01=0x0064}
0x57d4…5808 Head {h00=0x0030, h01=0x002c, text=»* CALL: PERF BCKUP,<=W'X'>«, t00=0x0038, t01=0x006e}
0x5808…5834 Head {h00=0x0028, h01=0x0024, text=»* $OPT = 1 : WITHOUT BACKUP«, t00=0x0038, t01=0x00a2}
0x5834…585e Head {h00=0x0026, h01=0x0021, text=»* $OPT = 2 : WITH BACKUP «, t00=0x0038, t01=0x00ce}
0x585e…5868 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0038, t01=0x00f8}
0x5868…5872 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0038, t01=0x0102}
0x5872…588e Head {h00=0x0018, h01=0x0014, text=»********************«, t00=0x0038, t01=0x010c}
0x588e…5898 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0038, t01=0x0128}
0x5898…58b2 Head {h00=0x0016, h01=0x0012, text=» MOVE CRECNR,CBIN1«, t00=0x0038, t01=0x0132}
0x58b2…58ce Head {h00=0x0018, h01=0x0013, text=» MOVE CRECBCD,=D'1' «, t00=0x0038, t01=0x014c}
0x58ce…58f6 Head {h00=0x0024, h01=0x0020, text=» ADD CVOLNO,=D'1' NEXT VOLUME NO«, t00=0x0038, t01=0x0168}
0x58f6…5920 Head {h00=0x0026, h01=0x0022, text=» PERF CNFWRT REWRITE CONFIGURATION«, t00=0x0038, t01=0x0190}
0x5920…593a Head {h00=0x0016, h01=0x0011, text=» SUB CVOLNO,=D'1' «, t00=0x0039, t01=0x002a}
0x593a…5952 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,$OPT «, t00=0x0039, t01=0x0044}
0x5952…596e Head {h00=0x0018, h01=0x0050, text=» BE BCK100 NO BACKUP«, t00=0x0039, t01=0x005c}
0x596e…5978 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0039, t01=0x0078}
0x5978…5982 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0039, t01=0x0082}
0x5982…5996 Head {h00=0x0010, h01=0x000c, text=»* BACKUP«, t00=0x0039, t01=0x008c}
0x5996…59a0 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0039, t01=0x00a0}
0x59a0…59ae Head {h00=0x000a, h01=0x0006, text=»BCK000«, t00=0x0039, t01=0x00aa}
0x59ae…59d6 Head {h00=0x0024, h01=0x001f, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0039, t01=0x00b8}
0x59d6…59e4 Head {h00=0x000a, h01=0x0006, text=»BCK005«, t00=0x0039, t01=0x00e0}
0x59e4…5a08 Head {h00=0x0020, h01=0x001c, text=» PERF LAMPON,=W'1024' LAMP 1«, t00=0x0039, t01=0x00ee}
0x5a08…5a2c Head {h00=0x0020, h01=0x001b, text=» PERF LAMPON,=W'128' LAMP 4 «, t00=0x0039, t01=0x0112}
0x5a2c…5a4e Head {h00=0x001e, h01=0x001a, text=» PERF LAMPON,=W'16' LAMP 7«, t00=0x0039, t01=0x0136}
0x5a4e…5a6a Head {h00=0x0018, h01=0x0050, text=» TBF CTEXTFLG,BCK008«, t00=0x0039, t01=0x0158}
0x5a6a…5a8c Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'64' LAMP 5«, t00=0x0039, t01=0x0174}
0x5a8c…5a9a Head {h00=0x000a, h01=0x0050, text=»BCK008«, t00=0x003a, t01=0x0008}
0x5a9a…5ab6 Head {h00=0x0018, h01=0x0050, text=» TBF CSTRKFLG,BCK009«, t00=0x003a, t01=0x0016}
0x5ab6…5ada Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'256' LAMP 3 «, t00=0x003a, t01=0x0032}
0x5ada…5ae8 Head {h00=0x000a, h01=0x0050, text=»BCK009«, t00=0x003a, t01=0x0056}
0x5ae8…5b04 Head {h00=0x0018, h01=0x0050, text=» TBF CGLREGFL,BCK010«, t00=0x003a, t01=0x0064}
0x5b04…5b28 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'512' LAMP 2 «, t00=0x003a, t01=0x0080}
0x5b28…5b36 Head {h00=0x000a, h01=0x0006, text=»BCK010«, t00=0x003a, t01=0x00a4}
0x5b36…5b58 Head {h00=0x001e, h01=0x001a, text=» PERF SOPRD READ SOP LAMPS«, t00=0x003a, t01=0x00b2}
0x5b58…5b70 Head {h00=0x0014, h01=0x000f, text=» IB GSWBIN2, C «, t00=0x003a, t01=0x00d4}
0x5b70…5ba0 Head {h00=0x002c, h01=0x0028, text=» BSOP10,BSOP09,BSOP08,BSOP07,BSOP06, C«, t00=0x003a, t01=0x00ec}
0x5ba0…5bcc Head {h00=0x0028, h01=0x0024, text=» BSOP05,BSOP04,BSOP03,BSOP02,BSOP01«, t00=0x003a, t01=0x011c}
0x5bcc…5bda Head {h00=0x000a, h01=0x0006, text=»BSOP06«, t00=0x003a, t01=0x0148}
0x5bda…5be8 Head {h00=0x000a, h01=0x0006, text=»BSOP08«, t00=0x003a, t01=0x0156}
0x5be8…5bf6 Head {h00=0x000a, h01=0x0006, text=»BSOP09«, t00=0x003a, t01=0x0164}
0x5bf6…5c04 Head {h00=0x000a, h01=0x0006, text=»BSOP10«, t00=0x003a, t01=0x0172}
0x5c04…5c22 Head {h00=0x001a, h01=0x0015, text=» B BCK010 OTHER LAMPS «, t00=0x003a, t01=0x0180}
0x5c22…5c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x000e}
0x5c2c…5c4c Head {h00=0x001c, h01=0x0018, text=»BSOP01 BACKUP FD999001«, t00=0x003b, t01=0x0018}
0x5c4c…5c74 Head {h00=0x0024, h01=0x001f, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x003b, t01=0x0038}
0x5c74…5c98 Head {h00=0x0020, h01=0x001c, text=» PERF LAMPON,=W'1024' LAMP 1«, t00=0x003b, t01=0x0060}
0x5c98…5cc2 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN5,=W'32' NO OF RECORDS«, t00=0x003b, t01=0x0084}
0x5cc2…5cfa Head {h00=0x0034, h01=0x0050, text=» PERF BACKUP,DK01,=D'1',GSWBIN5,CCONBUF0,=W'199'«, t00=0x003b, t01=0x00ae}
0x5cfa…5d0e Head {h00=0x0010, h01=0x000c, text=» BNOK BCK050«, t00=0x003b, t01=0x00e6}
0x5d0e…5d28 Head {h00=0x0016, h01=0x0050, text=» ADD CVOLNO,=D'1' «, t00=0x003b, t01=0x00fa}
0x5d28…5d52 Head {h00=0x0026, h01=0x0050, text=» PERF WRITID,CBIN6,CBIN4 BACKUP OK«, t00=0x003b, t01=0x0114}
0x5d52…5d6c Head {h00=0x0016, h01=0x0050, text=» SUB CVOLNO,=D'1' «, t00=0x003b, t01=0x013e}
0x5d6c…5da4 Head {h00=0x0034, h01=0x002f, text=» PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA «, t00=0x003b, t01=0x0158}
0x5da4…5db6 Head {h00=0x000e, h01=0x0009, text=» B BCK000 «, t00=0x003b, t01=0x0190}
0x5db6…5dc4 Head {h00=0x000a, h01=0x0006, text=»BCK050«, t00=0x003c, t01=0x0012}
0x5dc4…5dfc Head {h00=0x0034, h01=0x002f, text=» PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA «, t00=0x003c, t01=0x0020}
0x5dfc…5e0e Head {h00=0x000e, h01=0x0009, text=» B BCK005 «, t00=0x003c, t01=0x0058}
0x5e0e…5e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x006a}
0x5e18…5e42 Head {h00=0x0026, h01=0x0050, text=»BSOP02 COPY FD999002 TO FD999005«, t00=0x003c, t01=0x0074}
0x5e42…5e68 Head {h00=0x0022, h01=0x0050, text=» TBF CGLREGFL,BCK010 ALLOWED? «, t00=0x003c, t01=0x009e}
0x5e68…5e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00c4}
0x5e72…5e80 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x003c, t01=0x00ce}
0x5e80…5eaa Head {h00=0x0026, h01=0x0050, text=»BCK02 COPY FD999002 TO FD999005 «, t00=0x003c, t01=0x00dc}
0x5eaa…5ed2 Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x003c, t01=0x0106}
0x5ed2…5ef6 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'512' LAMP 2 «, t00=0x003c, t01=0x012e}
0x5ef6…5f08 Head {h00=0x000e, h01=0x0050, text=» SET CPFLG«, t00=0x003c, t01=0x0152}
0x5f08…5f30 Head {h00=0x0024, h01=0x0050, text=» PERF ASGVOL,CBIN2 ASSIGN REGSET«, t00=0x003c, t01=0x0164}
0x5f30…5f46 Head {h00=0x0012, h01=0x0050, text=» BNOK BCK0290 «, t00=0x003c, t01=0x018c}
0x5f46…5f62 Head {h00=0x0018, h01=0x0050, text=» MOVE CGLRECNR,CBIN0«, t00=0x003d, t01=0x0012}
0x5f62…5f72 Head {h00=0x000c, h01=0x0050, text=»BCK0250 «, t00=0x003d, t01=0x002e}
0x5f72…5f8e Head {h00=0x0018, h01=0x0050, text=» ADD CGLRECNR,CBIN1 «, t00=0x003d, t01=0x003e}
0x5f8e…5fbc Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN1,=W'128' LENGTH OF RECORD«, t00=0x003d, t01=0x005a}
0x5fbc…5ff4 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CGLRECNR«, t00=0x003d, t01=0x0088}
0x5ff4…6010 Head {h00=0x0018, h01=0x0050, text=» BNOK BCK0270 ERROR «, t00=0x003d, t01=0x00c0}
0x6010…603a Head {h00=0x0026, h01=0x0050, text=» CBE GTWBCD1,=D'4',BCK0280 NO DATA«, t00=0x003d, t01=0x00dc}
0x603a…605a Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'SLUTD'«, t00=0x003d, t01=0x0106}
0x605a…6076 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x003d, t01=0x0126}
0x6076…60b0 Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 «, t00=0x003d, t01=0x0142}
0x60b0…60ca Head {h00=0x0016, h01=0x0050, text=» BE BCK0280 SLUTD «, t00=0x003d, t01=0x017c}
0x60ca…60fa Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK05,=D'5',CPCKBUF,CGLRECNR«, t00=0x003e, t01=0x0008}
0x60fa…610e Head {h00=0x0010, h01=0x0050, text=» BOK BCK0250«, t00=0x003e, t01=0x0038}
0x610e…6126 Head {h00=0x0014, h01=0x0050, text=»BCK0270 ERROR «, t00=0x003e, t01=0x004c}
0x6126…6148 Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'2' LAMP 10«, t00=0x003e, t01=0x0064}
0x6148…6160 Head {h00=0x0014, h01=0x0050, text=»BCK0280 FINISH«, t00=0x003e, t01=0x0086}
0x6160…617e Head {h00=0x001a, h01=0x0050, text=» MOVE TTGLREC,CGLRECNR«, t00=0x003e, t01=0x009e}
0x617e…61ae Head {h00=0x002c, h01=0x0050, text=» PERF TCONFW,CBIN1 SAVE LAST RECORD NO. «, t00=0x003e, t01=0x00bc}
0x61ae…61be Head {h00=0x000c, h01=0x0050, text=»BCK0290 «, t00=0x003e, t01=0x00ec}
0x61be…61d2 Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x003e, t01=0x00fc}
0x61d2…61fa Head {h00=0x0024, h01=0x0050, text=» DSC0 DK02,CLOSE CLOSE VOLUME 2 «, t00=0x003e, t01=0x0110}
0x61fa…6204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0138}
0x6204…6212 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x003e, t01=0x0142}
0x6212…6220 Head {h00=0x000a, h01=0x0050, text=»BCK02R«, t00=0x003e, t01=0x0150}
0x6220…6232 Head {h00=0x000e, h01=0x0050, text=» B BCK000 «, t00=0x003e, t01=0x015e}
0x6232…623c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0170}
0x623c…6246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x017a}
0x6246…6254 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x003e, t01=0x0184}
0x6254…625e (63, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0004}
0x625e…628a Head {h00=0x0028, h01=0x0050, text=»BSOP03 BACKUP INDEX,STAM,VAR,TRANS«, t00=0x003f, t01=0x000e}
0x628a…62a6 Head {h00=0x0018, h01=0x0050, text=» TBF CSTRKFLG,BCK010«, t00=0x003f, t01=0x003a}
0x62a6…62ce Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x003f, t01=0x0056}
0x62ce…62f2 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'256' LAMP 3 «, t00=0x003f, t01=0x007e}
0x62f2…632a Head {h00=0x0034, h01=0x0050, text=» PERF BACKUP,DK07,=D'7',CBIN0,CIXBUF,=W'8' INDX «, t00=0x003f, t01=0x00a2}
0x632a…6364 Head {h00=0x0036, h01=0x0050, text=» PERF BACKUP,DK08,=D'8',CBIN0,CLEVBUF,=W'128' STAM«, t00=0x003f, t01=0x00da}
0x6364…639c Head {h00=0x0034, h01=0x0050, text=» PERF BACKUP,DK09,=D'9',CBIN0,CVARBUF,=W'49' VAR«, t00=0x003f, t01=0x0114}
0x639c…63b8 Head {h00=0x0018, h01=0x0050, text=» TBF CBUDTFLG,BCK000«, t00=0x003f, t01=0x014c}
0x63b8…63f2 Head {h00=0x0036, h01=0x0050, text=» PERF BACKUP,DK11,=D'11',CBIN0,CTRBUF,=W'39' TRANS«, t00=0x003f, t01=0x0168}
0x63f2…6404 Head {h00=0x000e, h01=0x0050, text=» B BCK000 «, t00=0x0040, t01=0x0012}
0x6404…640e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0024}
0x640e…6418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x002e}
0x6418…6426 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0040, t01=0x0038}
0x6426…6430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0046}
0x6430…644c Head {h00=0x0018, h01=0x0050, text=»BSOP05 BACKUP TEXT«, t00=0x0040, t01=0x0050}
0x644c…6468 Head {h00=0x0018, h01=0x0050, text=» TBF CTEXTFLG,BCK010«, t00=0x0040, t01=0x006c}
0x6468…6490 Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0040, t01=0x0088}
0x6490…64b2 Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'64' LAMP 5«, t00=0x0040, t01=0x00b0}
0x64b2…64e6 Head {h00=0x0030, h01=0x0050, text=» PERF BACKUP,DK06,=D'6',CBIN0,CTXBUF,=W'24' «, t00=0x0040, t01=0x00d2}
0x64e6…64fe Head {h00=0x0014, h01=0x0050, text=» BNOK BCK005 NOK«, t00=0x0040, t01=0x0106}
0x64fe…6510 Head {h00=0x000e, h01=0x0050, text=» B BCK000 «, t00=0x0040, t01=0x011e}
0x6510…651a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0130}
0x651a…6528 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0040, t01=0x013a}
0x6528…6532 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0040, t01=0x0148}
0x6532…6552 Head {h00=0x001c, h01=0x0018, text=»BSOP04 BACKUP FD999004«, t00=0x0040, t01=0x0152}
0x6552…657a Head {h00=0x0024, h01=0x001f, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0040, t01=0x0172}
0x657a…659e Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'128' LAMP 4 «, t00=0x0041, t01=0x000a}
0x659e…65d4 Head {h00=0x0032, h01=0x0050, text=» PERF BACKUP,DK04,=D'4',CKTMAX,CKTBUF,=W'128' «, t00=0x0041, t01=0x002e}
0x65d4…65ec Head {h00=0x0014, h01=0x0010, text=» BNOK BCK005 NOK«, t00=0x0041, t01=0x0064}
0x65ec…6600 Head {h00=0x0010, h01=0x000c, text=» B BCK000 OK«, t00=0x0041, t01=0x007c}
0x6600…660a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0041, t01=0x0090}
0x660a…6622 Head {h00=0x0014, h01=0x000f, text=»BSOP07 FINISH «, t00=0x0041, t01=0x009a}
0x6622…664a Head {h00=0x0024, h01=0x001f, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x0041, t01=0x00b2}
0x664a…6678 Head {h00=0x002a, h01=0x0026, text=» PERF ASGVOL,CBIN1 ASSIGN SYSTEM FILES«, t00=0x0041, t01=0x00da}
0x6678…668c Head {h00=0x0010, h01=0x000c, text=» BNOK BCKNOK«, t00=0x0041, t01=0x0108}
0x668c…669a Head {h00=0x000a, h01=0x0006, text=»BCK100«, t00=0x0041, t01=0x011c}
0x669a…66b4 Head {h00=0x0016, h01=0x0012, text=» PERF ASGVOL,CBIN2«, t00=0x0041, t01=0x012a}
0x66b4…66c8 Head {h00=0x0010, h01=0x000c, text=» BNOK BCKNOK«, t00=0x0041, t01=0x0144}
0x66c8…66e2 Head {h00=0x0016, h01=0x0011, text=» ADD CVOLNO,=D'1' «, t00=0x0041, t01=0x0158}
0x66e2…66f6 Head {h00=0x0010, h01=0x000c, text=» PERF STRTWR«, t00=0x0041, t01=0x0172}
0x66f6…6708 Head {h00=0x000e, h01=0x000a, text=» BOK BCKOK«, t00=0x0041, t01=0x0186}
0x6708…6722 Head {h00=0x0016, h01=0x0011, text=» SUB CVOLNO,=D'1' «, t00=0x0042, t01=0x0008}
0x6722…6744 Head {h00=0x001e, h01=0x001a, text=» PERF LAMPON,=W'2' LAMP 10«, t00=0x0042, t01=0x0022}
0x6744…6756 Head {h00=0x000e, h01=0x0009, text=» B BCKNOK «, t00=0x0042, t01=0x0044}
0x6756…6760 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0042, t01=0x0056}
0x6760…676e Head {h00=0x000a, h01=0x0006, text=»BCKNOK«, t00=0x0042, t01=0x0060}
0x676e…678a Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0042, t01=0x006e}
0x678a…6796 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0042, t01=0x008a}
0x6796…67a0 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0042, t01=0x0096}
0x67a0…67ae Head {h00=0x000a, h01=0x0005, text=»BCKOK «, t00=0x0042, t01=0x00a0}
0x67ae…67ce Head {h00=0x001c, h01=0x0018, text=» PERF WRITID,CBIN2,CBIN1«, t00=0x0042, t01=0x00ae}
0x67ce…67e6 Head {h00=0x0014, h01=0x0010, text=» CMP CBIN0,CBIN0«, t00=0x0042, t01=0x00ce}
0x67e6…67f2 Head {h00=0x0008, h01=0x0005, text=» RET«, t00=0x0042, t01=0x00e6}
0x67f2…6800 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0042, t01=0x00f2}
0x6800…680e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0100}
0x680e…6818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x010e}
0x6818…6822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0118}
0x6822…685c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0042, t01=0x0122}
0x685c…6866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x015c}
0x6866…6880 Head {h00=0x0016, h01=0x0050, text=»* FORMATS «, t00=0x0042, t01=0x0166}
0x6880…688a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0180}
0x688a…68c4 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0042, t01=0x018a}
0x68c4…68ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0034}
0x68ce…68e8 Head {h00=0x0016, h01=0x0050, text=»KLRFMT PROC FMTDEX«, t00=0x0043, t01=0x003e}
0x68e8…68f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0058}
0x68f2…6904 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0062}
0x6904…690e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0074}
0x690e…6932 Head {h00=0x0020, h01=0x0050, text=»* ATTACH KLAR ADM FORMAT«, t00=0x0043, t01=0x007e}
0x6932…693c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00a2}
0x693c…694e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x00ac}
0x694e…6958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00be}
0x6958…6976 Head {h00=0x001a, h01=0x0050, text=»KLRFTB FTABLE OPENFRM «, t00=0x0043, t01=0x00c8}
0x6976…6994 Head {h00=0x001a, h01=0x0050, text=» ATTFMT KLRFTB(FMTDEX)«, t00=0x0043, t01=0x00e6}
0x6994…69a0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0043, t01=0x0104}
0x69a0…69ae Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0043, t01=0x0110}
0x69ae…69b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x011e}
0x69b8…69c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0128}
0x69c2…69d6 Head {h00=0x0010, h01=0x0050, text=»FMTFKI FRMT «, t00=0x0043, t01=0x0132}
0x69d6…69e2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0043, t01=0x0146}
0x69e2…69f0 Head {h00=0x000a, h01=0x0050, text=» FKI 3«, t00=0x0043, t01=0x0152}
0x69f0…6a0a Head {h00=0x0016, h01=0x0050, text=» FMEL 'B',TSWBCD2 «, t00=0x0043, t01=0x0160}
0x6a0a…6a18 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0043, t01=0x017a}
0x6a18…6a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0188}
0x6a22…6a36 (68, 0, 400) Head {h00=0x0010, h01=0x0050, text=»OPENFRM FRMT«, t00=0x0044, t01=0x0004}
0x6a36…6a42 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0044, t01=0x0018}
0x6a42…6a5a Head {h00=0x0014, h01=0x0050, text=» FCOPY ='ADM ' «, t00=0x0044, t01=0x0024}
0x6a5a…6a76 Head {h00=0x0018, h01=0x0050, text=» FBT GTDYFLG,OPFR05 «, t00=0x0044, t01=0x003c}
0x6a76…6a86 Head {h00=0x000c, h01=0x0050, text=» FTAB 1 «, t00=0x0044, t01=0x0058}
0x6a86…6aa4 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'KASSE]BNING'«, t00=0x0044, t01=0x0068}
0x6aa4…6ab2 Head {h00=0x000a, h01=0x0050, text=»OPFR05«, t00=0x0044, t01=0x0086}
0x6ab2…6abe Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0044, t01=0x0094}
0x6abe…6ada Head {h00=0x0018, h01=0x0050, text=» FBF GTMASTFL,OPFR10«, t00=0x0044, t01=0x00a0}
0x6ada…6af6 Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'DAGS-DATO'«, t00=0x0044, t01=0x00bc}
0x6af6…6b28 Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,NCLR«, t00=0x0044, t01=0x00d8}
0x6b28…6b4c Head {h00=0x0020, h01=0x0050, text=» FMEL '99E-99E-99',CMASKDAT «, t00=0x0044, t01=0x010a}
0x6b4c…6b58 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0044, t01=0x012e}
0x6b58…6b72 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DAG NR' «, t00=0x0044, t01=0x013a}
0x6b72…6b9c Head {h00=0x0026, h01=0x0050, text=» FKI 11,MINL=1,MAXL=3,ME,APPL=102 «, t00=0x0044, t01=0x0154}
0x6b9c…6bb8 Head {h00=0x0018, h01=0x0050, text=» FMEL 'ZZZ',CRELDAY «, t00=0x0044, t01=0x017e}
0x6bb8…6bc4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0045, t01=0x000a}
0x6bc4…6bd2 Head {h00=0x000a, h01=0x0050, text=»OPFR10«, t00=0x0045, t01=0x0016}
0x6bd2…6bee Head {h00=0x0018, h01=0x0050, text=» FCOPY ='POST-DATO' «, t00=0x0045, t01=0x0024}
0x6bee…6c24 Head {h00=0x0032, h01=0x0050, text=» FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,APPL=107«, t00=0x0045, t01=0x0040}
0x6c24…6c46 Head {h00=0x001e, h01=0x0050, text=» FMEL '99E-99E-99',GTDATO «, t00=0x0045, t01=0x0076}
0x6c46…6c54 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0045, t01=0x0098}
0x6c54…6c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00a6}
0x6c5e…6c72 Head {h00=0x0010, h01=0x0050, text=»CLFRM01 FRMT«, t00=0x0045, t01=0x00b0}
0x6c72…6c7e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0045, t01=0x00c4}
0x6c7e…6c9e Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'KASSELUKNING' «, t00=0x0045, t01=0x00d0}
0x6c9e…6cb4 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0045, t01=0x00f0}
0x6cb4…6cca Head {h00=0x0012, h01=0x0050, text=» FLINK FMTFKI «, t00=0x0045, t01=0x0106}
0x6cca…6cd8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0045, t01=0x011c}
0x6cd8…6ce2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x012a}
0x6ce2…6cf6 Head {h00=0x0010, h01=0x0050, text=»CLFRM02 FRMT«, t00=0x0045, t01=0x0134}
0x6cf6…6d0a Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0045, t01=0x0148}
0x6d0a…6d2a Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'KASSELUKNING' «, t00=0x0045, t01=0x015c}
0x6d2a…6d36 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0045, t01=0x017c}
0x6d36…6d52 Head {h00=0x0018, h01=0x0050, text=» FCOPY GSWSTR20 TEXT«, t00=0x0045, t01=0x0188}
0x6d52…6d78 Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZ',GTWBCD1 COUNTER NR «, t00=0x0046, t01=0x0014}
0x6d78…6d8c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0046, t01=0x003a}
0x6d8c…6daa Head {h00=0x001a, h01=0x0050, text=» FCOPY GTDBKRC DEB-KRE«, t00=0x0046, t01=0x004e}
0x6daa…6db6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0046, t01=0x006c}
0x6db6…6dd0 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'KONTONR'«, t00=0x0046, t01=0x0078}
0x6dd0…6de4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',5«, t00=0x0046, t01=0x0092}
0x6de4…6dfa Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'BEL'«, t00=0x0046, t01=0x00a6}
0x6dfa…6e10 Head {h00=0x0012, h01=0x0050, text=» FILLR X'5C',1«, t00=0x0046, t01=0x00bc}
0x6e10…6e24 Head {h00=0x0010, h01=0x0050, text=» FILLR 'B',1«, t00=0x0046, t01=0x00d2}
0x6e24…6e30 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0046, t01=0x00e6}
0x6e30…6e5a Head {h00=0x0026, h01=0x0050, text=» FMEL '99999999E-99',GTDUPF(CBIN1)«, t00=0x0046, t01=0x00f2}
0x6e5a…6e8c Head {h00=0x002e, h01=0x0050, text=» FMEL 'BTTTVTTTVTTTVTT9V99-',GTDUPF(CBIN4)«, t00=0x0046, t01=0x011c}
0x6e8c…6e9a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0046, t01=0x014e}
0x6e9a…6ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x015c}
0x6ea4…6eb8 Head {h00=0x0010, h01=0x0050, text=»CLFRM03 FRMT«, t00=0x0046, t01=0x0166}
0x6eb8…6ecc Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0046, t01=0x017a}
0x6ecc…6eea Head {h00=0x001a, h01=0x0050, text=» FBT GTSPGFLG,CLF0301 «, t00=0x0046, t01=0x018e}
0x6eea…6f0a Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'KASSELUKNING' «, t00=0x0047, t01=0x001c}
0x6f0a…6f1a Head {h00=0x000c, h01=0x0050, text=»CLF0301 «, t00=0x0047, t01=0x003c}
0x6f1a…6f26 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x004c}
0x6f26…6f3e Head {h00=0x0014, h01=0x0050, text=» FCOPY GSWSTR20 «, t00=0x0047, t01=0x0058}
0x6f3e…6f4c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0047, t01=0x0070}
0x6f4c…6f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x007e}
0x6f56…6f6a Head {h00=0x0010, h01=0x0050, text=»CLFRM04 FRMT«, t00=0x0047, t01=0x0088}
0x6f6a…6f76 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0047, t01=0x009c}
0x6f76…6f94 Head {h00=0x001a, h01=0x0050, text=» FBT GTSPGFLG,CLF0401 «, t00=0x0047, t01=0x00a8}
0x6f94…6fb2 Head {h00=0x001a, h01=0x0050, text=» FCOPY ='KASSELUKNING'«, t00=0x0047, t01=0x00c6}
0x6fb2…6fc2 Head {h00=0x000c, h01=0x0050, text=»CLF0401 «, t00=0x0047, t01=0x00e4}
0x6fc2…6fce Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x00f4}
0x6fce…6ff2 Head {h00=0x0020, h01=0x0050, text=» FCOPY ='BEHOLDNINGST[LLERE'«, t00=0x0047, t01=0x0100}
0x6ff2…6ffe Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x0124}
0x6ffe…700a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x0130}
0x700a…7028 Head {h00=0x001a, h01=0x0050, text=» FBT GTSPGFLG,CLF0402 «, t00=0x0047, t01=0x013c}
0x7028…7040 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='SLET ' «, t00=0x0047, t01=0x015a}
0x7040…705a Head {h00=0x0016, h01=0x0050, text=» FCOPY ='PERIODE '«, t00=0x0047, t01=0x0172}
0x705a…706a Head {h00=0x000c, h01=0x0050, text=» FTAB 15«, t00=0x0047, t01=0x018c}
0x706a…7080 Head {h00=0x0012, h01=0x0050, text=» FCOPY =' DEB'«, t00=0x0048, t01=0x000c}
0x7080…708c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x0022}
0x708c…70a4 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='SLET ' «, t00=0x0048, t01=0x002e}
0x70a4…70bc Head {h00=0x0014, h01=0x0050, text=» FCOPY ='SALDO '«, t00=0x0048, t01=0x0046}
0x70bc…70cc Head {h00=0x000c, h01=0x0050, text=» FTAB 15«, t00=0x0048, t01=0x005e}
0x70cc…70e2 Head {h00=0x0012, h01=0x0050, text=» FCOPY =' KRE'«, t00=0x0048, t01=0x006e}
0x70e2…70f2 Head {h00=0x000c, h01=0x0050, text=»CLF0402 «, t00=0x0048, t01=0x0084}
0x70f2…70fe Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x0094}
0x70fe…711a Head {h00=0x0018, h01=0x0050, text=» FCOPY ='SUBTOTAL ' «, t00=0x0048, t01=0x00a0}
0x711a…712a Head {h00=0x000c, h01=0x0050, text=» FTAB 16«, t00=0x0048, t01=0x00bc}
0x712a…7140 Head {h00=0x0012, h01=0x0050, text=» FCOPY ='KVIT'«, t00=0x0048, t01=0x00cc}
0x7140…714c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x00e2}
0x714c…7158 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x00ee}
0x7158…7164 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x00fa}
0x7164…7178 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0048, t01=0x0106}
0x7178…7190 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='BILAG' «, t00=0x0048, t01=0x011a}
0x7190…71a6 Head {h00=0x0012, h01=0x0050, text=» FLINK FMTFKI «, t00=0x0048, t01=0x0132}
0x71a6…71b4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0048, t01=0x0148}
0x71b4…71be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0156}
0x71be…71d2 Head {h00=0x0010, h01=0x0050, text=»PCKINIT FRMT«, t00=0x0048, t01=0x0160}
0x71d2…71e8 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0048, t01=0x0174}
0x71e8…71fe Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0048, t01=0x018a}
0x71fe…721a Head {h00=0x0018, h01=0x0050, text=» FBT CSWFLAG,INIT10 «, t00=0x0049, t01=0x0010}
0x721a…7232 Head {h00=0x0014, h01=0x0050, text=» FILLR X'00',48 «, t00=0x0049, t01=0x002c}
0x7232…7240 Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0049, t01=0x0044}
0x7240…724e Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x0049, t01=0x0052}
0x724e…7264 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',48 «, t00=0x0049, t01=0x0060}
0x7264…7272 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0049, t01=0x0076}
0x7272…727c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0084}
0x727c…7290 Head {h00=0x0010, h01=0x0050, text=»FRVOLID FRMT«, t00=0x0049, t01=0x008e}
0x7290…72b0 Head {h00=0x001c, h01=0x0050, text=» FMEL '999999',CMASKDAT «, t00=0x0049, t01=0x00a2}
0x72b0…72ce Head {h00=0x001a, h01=0x0050, text=» FMEL 'B99999',GSWBCD3«, t00=0x0049, t01=0x00c2}
0x72ce…72dc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0049, t01=0x00e0}
0x72dc…72e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00ee}
0x72e6…72fa Head {h00=0x0010, h01=0x0050, text=»SLUTFRM FRMT«, t00=0x0049, t01=0x00f8}
0x72fa…7312 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'SLUTD'«, t00=0x0049, t01=0x010c}
0x7312…7330 Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',CRECBCD «, t00=0x0049, t01=0x0124}
0x7330…733e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0049, t01=0x0142}
0x733e…7348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0150}
0x7348…735c Head {h00=0x0010, h01=0x0050, text=»STARTFR FRMT«, t00=0x0049, t01=0x015a}
0x735c…7374 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'Z300 '«, t00=0x0049, t01=0x016e}
0x7374…739a Head {h00=0x0022, h01=0x0050, text=» FMEL '9999',CKMDNR KOMMUNE NR«, t00=0x0049, t01=0x0186}
0x739a…73b0 Head {h00=0x0012, h01=0x0050, text=» FILLR C'2',1 «, t00=0x004a, t01=0x001c}
0x73b0…73cc Head {h00=0x0018, h01=0x0050, text=» FCOPY CVOL(GSWBIN6)«, t00=0x004a, t01=0x0032}
0x73cc…73ee Head {h00=0x001e, h01=0x0050, text=» FMEL '999',CRELDAY DAG NR«, t00=0x004a, t01=0x004e}
0x73ee…7410 Head {h00=0x001e, h01=0x0050, text=» FILLR C'1',1 MIXED TRANS «, t00=0x004a, t01=0x0070}
0x7410…7424 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',6«, t00=0x004a, t01=0x0092}
0x7424…7432 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004a, t01=0x00a6}
0x7432…743c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00b4}
0x743c…7450 Head {h00=0x0010, h01=0x0050, text=»ADFRM01 FRMT«, t00=0x004a, t01=0x00be}
0x7450…745c Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x004a, t01=0x00d2}
0x745c…7474 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='KLAR ' «, t00=0x004a, t01=0x00de}
0x7474…748c Head {h00=0x0014, h01=0x0050, text=» FCOPY ='ADM ' «, t00=0x004a, t01=0x00f6}
0x748c…74aa Head {h00=0x001a, h01=0x0050, text=» FKI 12,MINL=1,MAXL=2 «, t00=0x004a, t01=0x010e}
0x74aa…74c4 Head {h00=0x0016, h01=0x0050, text=» FMEL 'ZZ',GSWBCD3«, t00=0x004a, t01=0x012c}
0x74c4…74d2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004a, t01=0x0146}
0x74d2…74dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0154}
0x74dc…74e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x015e}
0x74e6…74f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0168}
0x74f0…74fc Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x004a, t01=0x0172}
0x74fc…7500 Head {h00=0x4004, h01=0x0000}
0x7500…7504 00 4a 01 7e ┆ J ~┆
0x7504…750c (75, 1, 8) 20 04 00 00 00 4b 00 04 ┆ K ┆
0x750c…755c (76, 0, 400) 00 15 01 86 00 0c 00 08 00 03 02 06 07 f3 09 0d 00 16 00 08 00 0e 00 09 00 04 14 07 07 fc 30 01 00 3c 00 16 00 18 00 0e 00 09 00 04 14 07 07 ff 30 01 00 3c 00 16 00 2a 00 4a 00 46 00 22 00 44 07 c0 87 02 81 78 a0 11 23 81 4c 19 20 a0 1c 0b ┆ 0 < 0 < * J F " D x # L ┆
0x755c…75ac 02 a0 11 00 78 a0 11 81 04 a0 11 00 81 87 00 78 a0 12 81 3f 52 00 93 1b 3f 52 00 89 ad 20 91 13 05 06 91 22 3c 52 00 a0 90 00 a1 1d 01 88 4c 01 86 4c 00 16 00 3c 00 0e 00 0a 00 04 14 08 08 1c 30 02 b0 11 00 16 00 8a 00 0e 00 0a 00 04 14 08 ┆ x x ?R ?R "<R L L < 0 ┆
0x75ac…75fc 08 1f 30 02 b0 11 00 16 00 9c 00 0e 00 09 00 04 14 07 08 25 30 01 b1 11 00 16 00 ae 00 0e 00 0a 00 04 14 08 08 29 30 02 b0 11 00 16 00 c0 00 0e 00 0a 00 04 14 08 08 2c 30 02 b0 11 00 16 00 d2 00 0e 00 09 00 04 14 07 08 41 30 01 b5 11 00 16 ┆ 0 %0 )0 ,0 A0 ┆
0x75fc…764c 00 e4 00 4a 00 46 00 22 00 44 08 00 62 86 15 11 89 a1 04 a1 11 08 86 1f a1 02 88 86 04 a0 11 12 a0 10 1a 00 87 88 0b 88 4c 09 88 4c 04 87 88 2d 87 4c 03 01 87 4c 01 88 4c 04 88 87 57 db 00 8a ad 28 8a 7e 02 57 d2 41 95 57 ce 01 00 16 00 f6 ┆ J F " D b L L - L L L W ( ~ W A W ┆
0x764c…769c 00 0e 00 09 00 04 14 07 08 46 30 01 b6 11 00 16 01 44 00 0e 00 09 00 04 14 07 08 4b 30 01 b8 11 00 16 01 56 00 0e 00 0a 00 04 14 08 08 53 30 02 b0 90 00 16 01 68 00 0e 00 09 00 04 14 07 08 57 30 01 00 90 00 16 01 7a 00 0c 00 08 00 03 07 06 ┆ F0 D K0 V S0 h W0 z ┆