|
|
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: 17302 (0x4396)
Notes: pts_type(SC)
Names: »RGSUB1.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/RGSUB1.SC«
IDENT RGSUB1 820924 NJ
DDUM KMD08
PDIV
ENTRY SLUT
ENTRY UPDAKK
ENTRY FLDIN
ENTRY FLDTST
EXT PACKST
EXT WRITFD
EXT WRITVO
EXT WRITJT
EXT FRMTJT
EXT FRMXTA
EXT WTALLY
EXT FRMTVO
EXT KTPLAN
EXT SPERR
EXT SPINF8
EXT KFWRIT
EXT KFREAD
INCLUDE EQUATE
EJECT
SLUT PROC
** SLUT - PACKS THE BUFFER
** WRITES TO DISK
** WRITE JOURNAL
** WRITE VOUCHER
** UPDATE ACCUMULATE=ORS
*
TBT TTINVFLG,SLUT30 IF IN MODPOST
* FIND CORRECT ARKIV KONTO NR
MOVE TTDBKRM,=C'K' IF KREDIT
CBE TTDKDEX,CBIN1,SLUT10
MOVE TTDBKRM,=C'D' IF DEBET
SLUT10
TBF GTCYFLG,SLUT30
TBT TTCY2FLG,SLUT30
CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3
CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4
MOVE GTDUPF(CBIN9),TTARKSAV
MOVE GTUSED(CBIN9),CBIN13
CBNE TTARKSAV,=D'0',SLUT30 NO ARKIV?
MOVE TTARKSAV,GTDUPF(CBIN1)
MOVE GTDUPF(CBIN9),TTARKSAV
SLUT30
* INSET REGNSKABS]R IF
* TRANSTYPES 1,2,5,6,7,8,9,10,18,19,28,29
* INDEX 1,2,5,6,7,8,9,10,12,13,14,15
CBG GTREGDEX,CBIN15,SLUT50 > TR 29
CBE GTREGDEX,CBIN11,SLUT50 = TR 12
CBE GTREGDEX,CBIN3,SLUT50 = TR3
CBE GTREGDEX,CBIN4,SLUT50 = TR 4
* TYPES 1,2,5-10,18,29
MOVE GTDUPF(CBIN6),GTDATO GET DATE
CBE GTREGDEX,CBIN10,SLUT37 TRANS10, ALWAYS SUPL YEAR
TBT TTSUPFLG,SLUT35
MOVE TTSUPMRK,=' '
B SLUT40
SLUT35
CBE TTSUPMRK,=C'N',SLUT36
CBE TTSUPMRK,=C'G',SLUT37
B SLUT40
SLUT36
ADD GTDUPF(CBIN6),=D'1' FORSUPPLEMENT
B SLUT40
SLUT37
SUB GTDUPF(CBIN6),=D'1' SUB 1 FROM YEAR
SLUT40
MOVE TSWBCD2,GTDUPF(CBIN6) ISOLATE LAST DIGIT
MOVE GTDUPF(CBIN6),TSWBCD2
MOVE GTUSED(CBIN6),CBIN10 SET FIELD NO
SLUT50
*
ADD TTLBNR,=D'1' EKSP. LB. NR
PERF WRITFD
BNOK SLUTNOK
PERF SUMWRT WRITE SUM OR RESTSUM
TBF GTKASSE,SLUT60 ON JOURNAL?
PERF FRMTJT
PERF WRITJT,=W'0'
SLUT60
PERF FRMTVO
PERF WRITVO
* TEST IF IN LISTE
TBF TTLSTFLG,SLUT80
PERF FRMXTA,CBIN4
PERF WTALLY
SLUT80
PERF UPDAKK
SET GTKORTFL
MOVE GSWBIN1,GTKTTYP
IB GSWBIN1, C
SLUT90,SLUT95,SLUT95,SLUT95,SLUT90
SLUT90
CLEAR GTKORTFL
SLUT95
SET TTEORFLG
CLEAR SPME READY FOR FUNCTIONS
CLEAR GTREGFLG
CMP CBIN0,CBIN0 OK, SETCR=0
RET
SLUTNOK
SUB TTLBNR,=D'1' CHANGE LB. NR. AFTER
DISK ERROR
MOVE SPBINW4,CBIN17
CMP CBIN1,CBIN0
RET
PEND
EJECT
SUMWRT PROC
********************
*
** SUMWRT - CALCULATE AND WRITE SUM/RESTSUM
*
********************
TBF TTSUMFLG,SUMRET ONLY IF SUM
TBF GTCYFLG,SUMADD
TBT TTCY2FLG,SUMADD
SUB GTSUM,GTDUPF(CBIN4) CALCULATE NEW RESTSUM
ADD TTCYKTOT,GTDUPF(CBIN4)
B SUMOUT
SUMADD
ADD GTSUM,GTDUPF(CBIN4) CALCULATE NEW SUM
ADD TTCYKTOT,GTDUPF(CBIN4)
SUMOUT
PERF SPINF8
SUMRET
ADD GTSUMCNT,GTDUPF(CBIN4) ALWAYS ADD TO SUMFUNCTION
RET
PEND
EJECT
UPDAKK PROC
********************
*
* UPDAKK
* ROUTINE FOR UPDATING ACCUMULATORS
*
* TR1-TR10 UPDATES TTACC(IDX1,IDX2)
* IDX1 = TRNR
* IDX2 = DEB/KRE
* TR12 UPDATES TTACC12(IDX1,IDX2)
* IDX1 = TAELLER NR
* IDX2 = DEB/KRE
*
* ALL TRANSACTIONS UPDATE TTTOTDK(IDX2)
* AND IF INVERT TTKORDK(IDX2)
*
********************
CBNE GTREGNR,='12',UPD20
PERF UPDA12 TAELLER 12
B UPDRET
UPD20
CBG GTREGNR,=D'30',UPDRET NO ACCUMULATION FOR
CERTAIN TRANSACTIONS
CBNE GTUSED(CBIN6),CBIN10,UPD30 REGNSKABSAAR
MOVE TSWBCD2,GTDATO GET CURRENT YEAR
SUB TSWBCD2,GTDUPF(CBIN6) SUB REGNSKABSAAR
BZ UPD30 SAME YEAR
UPD25
ADD TTACC(CBIN8,TTDKDEX),GTDUPF(CBIN4)
UPDATE SUPL COUNTER
UPD30
TBT GTTESTFL,UPD38
* ACCUMULATE 'BEHOLDNINGSTAELLERE'
MOVE GSWBIN1,CBIN1
UPD35
CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO?
CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND?
UPD350
ADD CBACC(GSWBIN1,CBIN2),GTDUPF(CBIN4)
ADD CBACC(GSWBIN1,CBIN3),GTDUPF(CBIN4)
UPD36
ADD GSWBIN1,CBIN1 LOOK AT NEXT COUNTER
CBNG GSWBIN1,=W'60',UPD35
UPD38
MOVE GSWBIN1,CCNTDEX(GTREGDEX) GET INDEX
ADD TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)
UPDATE ACCUMULATOR
IB TTDKDEX,UPDKR,UPDDB SEE IF INVERT
UPDDB
CBNL GTDUPF(CBIN4),='0',UPD50 IF NEGATIVE DEBET
ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION
B UPD50
UPDKR
CBNG GTDUPF(CBIN4),=D'0',UPD50 IF POSITIVE KREDIT,
ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION
UPD50
CBG GSWBIN1,CBIN4,UPDRET IF COUNTER 5,6
TBT GTTFLG,UPDRET WHEN CLOSE, NO UPDATE
TBT CWFLAG,UPD56
CBE TTCASHAC,GTDUPF(CBIN1),UPD54 IF KASSEKONTO,NO UPDATE
CBE TVERSUR,GTDUPF(CBIN1),UPD54 IF VERSUR, NO UPDATE
B UPD55
UPD54
ADD TTCYKTOT,GTDUPF(CBIN4)
B UPD56
UPD55
MOVE TTCYKTOT,=D'0'
UPD56
SUB TTCASH,GTDUPF(CBIN4) UPDATE CASH
TBF GTBDTFLG,UPD60
* UPDATE FOR TRANS 28,29 VERSUR KONTO
MOVE GSWBIN3,CBIN3
SUB GSWBIN3,TTDKDEX
MOVE GSWBIN7,GTLEVBFO
CBL GSWBIN7,CBIN5,UPD57
SUB GSWBIN7,CBIN5
UPD57
PERF KFREAD,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL
SUB GTKFVAL,GTDUPF(CBIN4)
PERF KFWRIT,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL
B UPDRET
UPD60
TBF GTSTRFLG,UPDRET
* UPDATE FOR TRANS 18/19, PENGE KONTO - ST
PERF KFREAD,CBIN2,CBIN1,CBIN0,GTKFVAL
SUB GTKFVAL,GTDUPF(CBIN4)
PERF KFWRIT,CBIN2,CBIN1,CBIN0,GTKFVAL
B UPDRET
UPDRET
RET
PEND
EJECT
UPDA12 PROC
********************
*
* UPDA12 - UPDATE FOR TR12
*
********************
MOVE GSWBIN1,TTCNTNR TAELLER NR
SUB GSWBIN1,=W'100' GET INDEX
ADD GSWBIN1,CTR12(TTASKNR,CBIN1)
ADD C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)
ADD TTEJEDB,GTDUPF(CBIN4)
MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT
MOVE GSWBIN7,GSWBIN1
PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED
MOVE GTKFVAL,C12ACC(GSWBIN7,TTDKDEX)
PERF KFWRIT,CBIN1,TTDKDEX,GSWBIN7,GTKFVAL
RET
PEND
EJECT
FLDTST PROC
********************
*
* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT
* FELT AFHAENGIGHEDS TEST
*
********************
PERF PACKST,CBINMAX CLEAR UNUSED FIELDS
IB GTREGDEX, C
FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK, C
FLDTOK,FLDTOK,FLDT08,FLDT09,FLDT10, C
FLDTOK,FLDT18,FLDT19,FLDT28,FLDT29, C
FLDTOK,FLDTOK,FLDTOK,FLDT45, C
FLDT45,FLDT45,FLDTOK,FLDTOK,FLDT50, C
FLDT50,FLDT52,FLDT53,FLDT54
FLDT03
CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16?
* YES, RTE/GEB, INSERT TEXT IN TT16TXT
MOVE GSWBCD3,GTDUPF(CBIN12) GET FIELD
CBNE GSWBCD3,=D'0',FLDT031
MOVE TT16TXT,=C'RAT' IF = 0
B FLDT035
FLDT031
CBNE GSWBCD3,=D'1',FLDT032
MOVE TT16TXT,=C'RTE' IF = 1
B FLDT035
FLDT032
CBNE GSWBCD3,=D'2',FLDT035
MOVE TT16TXT,=C'GEB' IF = 2
FLDT035
TEST CFLT48
BZ FLDTOK BRANCH IF FALSE
CMP GTUSED(CBIN15),=W'0'
BNE FLDTOK FIELD 48 USED
TBT C221FLG,FLDT036
TBT C167FLG,FLDT038
CMP GTDUPF(CBIN3),=D'21'
BL FLDT037
CMP GTDUPF(CBIN3),=D'26'
BL FLDTOK BKO = 21-25
FLDT037
CMP GTDUPF(CBIN3),=D'46'
BE FLDTOK BKO=46
CMP GTDUPF(CBIN3),=D'56'
BE FLDTOK BKO=56
B FLDT039 END ODENSE
FLDT036 HUNDESTED
TEST BCPR CPRNR?
BZ FLDTOK NO
CBE GTDUPF(CBIN3),=D'41',FLDT039
CBE GTDUPF(CBIN3),=D'46',FLDT039 BKO 30,41,46?
B FLDTOK
FLDT038 HVIDOVRE
CMP GTDUPF(CBIN3),=D'46'
BNE FLDTOK BKO <> 46
FLDT039
MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED
MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1
B FLDTOK
*
FLDT04
TBT BCPR,FLDT041 CIR
CMP GTUSED(CBIN10),=W'0'
BE FLDTOK FIELD 17 (INDEX 10)
B FLDTNOK
FLDT041 CPR
PERF FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20
CMP GSWBIN1,=W'0'
BNE FLDTNOK
CMP GTUSED(CBIN10),=W'0'
BNE FLDTOK
B FLDTNOK
*
FLDT08
TBT C221FLG,FLDT09
TEST CFLT46
BZ FLDTOK
CMP GTUSED(CBIN17),=W'0'
BNE FLDTOK FIELD 46 USED
MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED
MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1
B FLDTOK
FLDT09 HUNDESTED
TBF C221FLG,FLDT09X
TBF BCPR,FLDT09X
CBNE GTUSED(CBIN8),CBIN0,FLDT09X
MOVE GTUSED(CBIN8),CBIN12
MOVE GTDUPF(CBIN8),=D'6'
FLDT09X
B FLDTOK
*
FLDT10
MOVE GSWBIN1,GTKTTYP
IB GSWBIN1, C
FLDT105,FLDT105,FLDT102,FLDT108,FLDT108
FLDT102
B FLDTOK
FLDT105
CMP GTUSED(CBIN2),=W'0'
BNE FLDTOK
B FLDTNOK
FLDT108
CMP GTUSED(CBIN2),=W'0'
BNE FLDTOK
MOVE SPBINW4,=W'26'
PERF SPERR
CMP SPBINW2,CBIN2
BE FLDTOK KOR-KEY
MOVE SPBINW4,=W'0'
B FLDTNOK NOT KOR-KEY
FLDT28
FLDT29
CBNE GTUSED(CBIN7),CBIN0,FLDT18
MOVE GTDUPF(CBIN7),GTDATO
MOVE GTUSED(CBIN7),CBIN11
FLDT18
FLDT19
MOVE GTUSED(CBIN3),CBIN7 SET BKO=91
MOVE GTDUPF(CBIN3),=D'91'
* FOLLOWING FIELDS ARE ONLY USED LOCALLY (NOT TO KMD)
MOVE GTUSED(CBIN13),CBIN0 NR-1
MOVE GTUSED(CBIN14),CBIN0 NR-2
MOVE GTUSED(CBIN15),CBIN0 TXT
MOVE GTUSED(CBIN18),CBIN0 DATO-1
MOVE GTUSED(CBIN19),CBIN0 DATO-2
B FLDTOK
*
FLDT45
MOVE GSWBCD1,CMASKDAT DDMMYY
MOVE GSWBCD2,CMASKDAT
DIV GSWBCD2,=D'100' DDMM
MUL GSWBCD2,=D'100' DDMM00
SUB GSWBCD1,GSWBCD2 YY
MOVE GSWBCD2,GTREGF(CBIN16) (YY-1,YY,YY+1)
ADD GSWBCD2,=D'3' ADJUST FOR FLTDEX
SUB GSWBCD2,GSWBCD1
MOVE GSWBIN1,GSWBCD2
MOVE GTREGF(GSWBIN1),GTREGF(CBIN17) MOVE AMOUNT
MOVE GTUSED(GSWBIN1),CBIN1
MOVE GTUSED(CBIN15),CBIN0
MOVE GTUSED(CBIN16),CBIN0
MOVE GTUSED(CBIN17),CBIN0
MOVE GTUSED(CBIN18),CBIN0
MOVE GTUSED(CBIN19),CBIN0
MOVE GTUSED(CBIN20),CBIN0
MOVE GTUSED(CBIN21),CBIN0
B FLDTOK
*
FLDT50
PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28
CBE GSWBIN1,=W'1',FLDTOK
B FLDTNOK
*
FLDT52
PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28
CBNE GSWBIN1,=W'1',FLDTNOK
PERF FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40
CBE GSWBIN1,=W'2',FLDT525
PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45
CBNE GSWBIN1,=W'0',FLDTNOK
FLDT525
CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46
CBE GTUSED(CBIN20),=W'0',FLDTNOK FIELD 43
FLDT527
CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28
CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48
B FLDTOK
*
FLDT53
CBNE GTUSED(CBIN12),=W'0',FLDT535 FIELD 47
PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45
CBNE GSWBIN1,=W'0',FLDTNOK
FLDT535
CBNE GTUSED(CBIN7),=W'0',FLDT537 FIELD 40
CBNE GTUSED(CBIN12),=W'0',FLDTNOK FIELD 47
FLDT537
CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28
CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48
B FLDTOK
*
FLDT54
CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28
CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48
B FLDTOK
*
FLDTOK
CMP CBIN0,CBIN0 SET CR=0 OK
RET
*
FLDTNOK
CMP CBIN0,CBIN1 SET CR <> 0 NOT OK
RET
PEND
EJECT
FLDIN PROC FML1,FML2,FML3,FML4
********************
*
* FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS
* (GIVEN BY INDEX) ARE PRESENT
* OUTPUT IN GSWBIN1
*
********************
MOVE GSWBIN1,=W'0'
CBE FML1,=W'0',FLD5
CBE GTUSED(FML1),=W'0',FLD1
ADD GSWBIN1,=W'1'
FLD1
CBE FML2,=W'0',FLD5
CBE GTUSED(FML2),=W'0',FLD2
ADD GSWBIN1,=W'1'
FLD2
CBE FML3,=W'0',FLD5
CBE GTUSED(FML3),=W'0',FLD3
ADD GSWBIN1,=W'1'
FLD3
CBE FML4,=W'0',FLD5
CBE GTUSED(FML4),=W'0',FLD5
ADD GSWBIN1,=W'1'
FLD5
RET
PEND
*
*
END
0x0000…0020 (0, 0, 398) Head {h00=0x001c, h01=0x0050, text=» IDENT RGSUB1 820924 NJ «, t00=0x0000, t01=0x0004}
0x0020…003e Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0024}
0x003e…0054 Head {h00=0x0012, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0042}
0x0054…0068 Head {h00=0x0010, h01=0x0050, text=» ENTRY SLUT «, t00=0x0000, t01=0x0058}
0x0068…007e Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDAKK «, t00=0x0000, t01=0x006c}
0x007e…0092 Head {h00=0x0010, h01=0x0050, text=» ENTRY FLDIN«, t00=0x0000, t01=0x0082}
0x0092…00a8 Head {h00=0x0012, h01=0x0050, text=» ENTRY FLDTST «, t00=0x0000, t01=0x0096}
0x00a8…00bc Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0000, t01=0x00ac}
0x00bc…00dc Head {h00=0x001c, h01=0x0050, text=» EXT WRITFD «, t00=0x0000, t01=0x00c0}
0x00dc…00fc Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0000, t01=0x00e0}
0x00fc…011c Head {h00=0x001c, h01=0x0050, text=» EXT WRITJT «, t00=0x0000, t01=0x0100}
0x011c…0130 Head {h00=0x0010, h01=0x0050, text=» EXT FRMTJT «, t00=0x0000, t01=0x0120}
0x0130…0144 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0000, t01=0x0134}
0x0144…0158 Head {h00=0x0010, h01=0x0050, text=» EXT WTALLY «, t00=0x0000, t01=0x0148}
0x0158…016c Head {h00=0x0010, h01=0x0050, text=» EXT FRMTVO «, t00=0x0000, t01=0x015c}
0x016c…0180 Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0000, t01=0x0170}
0x0180…0192 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x0184}
0x0192…01a6 Head {h00=0x0010, h01=0x0050, text=» EXT SPINF8 «, t00=0x0001, t01=0x0008}
0x01a6…01ba Head {h00=0x0010, h01=0x0050, text=» EXT KFWRIT «, t00=0x0001, t01=0x001c}
0x01ba…01ce Head {h00=0x0010, h01=0x0050, text=» EXT KFREAD «, t00=0x0001, t01=0x0030}
0x01ce…01e6 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0044}
0x01e6…01f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x005c}
0x01f4…020a Head {h00=0x0012, h01=0x0050, text=»SLUT PROC «, t00=0x0001, t01=0x006a}
0x020a…022c Head {h00=0x001e, h01=0x0050, text=»** SLUT - PACKS THE BUFFER«, t00=0x0001, t01=0x0080}
0x022c…0246 Head {h00=0x0016, h01=0x0050, text=»** WRITES TO DISK «, t00=0x0001, t01=0x00a2}
0x0246…025e Head {h00=0x0014, h01=0x0050, text=»** WRITE JOURNAL«, t00=0x0001, t01=0x00bc}
0x025e…0276 Head {h00=0x0014, h01=0x0050, text=»** WRITE VOUCHER«, t00=0x0001, t01=0x00d4}
0x0276…0296 Head {h00=0x001c, h01=0x0050, text=»** UPDATE ACCUMULATE=ORS«, t00=0x0001, t01=0x00ec}
0x0296…02a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010c}
0x02a0…02ca Head {h00=0x0026, h01=0x0050, text=» TBT TTINVFLG,SLUT30 IF IN MODPOST«, t00=0x0001, t01=0x0116}
0x02ca…02f8 Head {h00=0x002a, h01=0x0050, text=»* FIND CORRECT ARKIV KONTO NR«, t00=0x0001, t01=0x0140}
0x02f8…031e Head {h00=0x0022, h01=0x0050, text=» MOVE TTDBKRM,=C'K' IF KREDIT «, t00=0x0001, t01=0x016e}
0x031e…0340 (2, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CBE TTDKDEX,CBIN1,SLUT10 «, t00=0x0002, t01=0x0004}
0x0340…0364 Head {h00=0x0020, h01=0x0050, text=» MOVE TTDBKRM,=C'D' IF DEBET«, t00=0x0002, t01=0x0026}
0x0364…0372 Head {h00=0x000a, h01=0x0050, text=»SLUT10«, t00=0x0002, t01=0x004a}
0x0372…038e Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SLUT30 «, t00=0x0002, t01=0x0058}
0x038e…03aa Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SLUT30«, t00=0x0002, t01=0x0074}
0x03aa…03d8 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3 «, t00=0x0002, t01=0x0090}
0x03d8…0406 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4 «, t00=0x0002, t01=0x00be}
0x0406…042a Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0002, t01=0x00ec}
0x042a…044c Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN9),CBIN13«, t00=0x0002, t01=0x0110}
0x044c…047a Head {h00=0x002a, h01=0x0050, text=» CBNE TTARKSAV,=D'0',SLUT30 NO ARKIV? «, t00=0x0002, t01=0x0132}
0x047a…049e Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN1)«, t00=0x0002, t01=0x0160}
0x049e…04c2 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0002, t01=0x0184}
0x04c2…04d0 Head {h00=0x000a, h01=0x0050, text=»SLUT30«, t00=0x0003, t01=0x0018}
0x04d0…04ee Head {h00=0x001a, h01=0x0050, text=»* INSET REGNSKABS]R IF«, t00=0x0003, t01=0x0026}
0x04ee…0520 Head {h00=0x002e, h01=0x0050, text=»* TRANSTYPES 1,2,5,6,7,8,9,10,18,19,28,29«, t00=0x0003, t01=0x0044}
0x0520…0552 Head {h00=0x002e, h01=0x0050, text=»* INDEX 1,2,5,6,7,8,9,10,12,13,14,15«, t00=0x0003, t01=0x0076}
0x0552…057e Head {h00=0x0028, h01=0x0050, text=» CBG GTREGDEX,CBIN15,SLUT50 > TR 29 «, t00=0x0003, t01=0x00a8}
0x057e…05aa Head {h00=0x0028, h01=0x0050, text=» CBE GTREGDEX,CBIN11,SLUT50 = TR 12 «, t00=0x0003, t01=0x00d4}
0x05aa…05d2 Head {h00=0x0024, h01=0x0050, text=» CBE GTREGDEX,CBIN3,SLUT50 = TR3«, t00=0x0003, t01=0x0100}
0x05d2…05fc Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,CBIN4,SLUT50 = TR 4 «, t00=0x0003, t01=0x0128}
0x05fc…061a Head {h00=0x001a, h01=0x0050, text=»* TYPES 1,2,5-10,18,29«, t00=0x0003, t01=0x0152}
0x061a…0646 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTDATO GET DATE «, t00=0x0003, t01=0x0170}
0x0646…0684 Head {h00=0x003a, h01=0x0050, text=» CBE GTREGDEX,CBIN10,SLUT37 TRANS10, ALWAYS SUPL YEAR «, t00=0x0004, t01=0x000c}
0x0684…06a0 Head {h00=0x0018, h01=0x0050, text=» TBT TTSUPFLG,SLUT35«, t00=0x0004, t01=0x004a}
0x06a0…06bc Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUPMRK,=' ' «, t00=0x0004, t01=0x0066}
0x06bc…06ce Head {h00=0x000e, h01=0x0050, text=» B SLUT40 «, t00=0x0004, t01=0x0082}
0x06ce…06dc Head {h00=0x000a, h01=0x0050, text=»SLUT35«, t00=0x0004, t01=0x0094}
0x06dc…06fe Head {h00=0x001e, h01=0x0050, text=» CBE TTSUPMRK,=C'N',SLUT36«, t00=0x0004, t01=0x00a2}
0x06fe…0720 Head {h00=0x001e, h01=0x0050, text=» CBE TTSUPMRK,=C'G',SLUT37«, t00=0x0004, t01=0x00c4}
0x0720…0732 Head {h00=0x000e, h01=0x0050, text=» B SLUT40 «, t00=0x0004, t01=0x00e6}
0x0732…0740 Head {h00=0x000a, h01=0x0050, text=»SLUT36«, t00=0x0004, t01=0x00f8}
0x0740…076e Head {h00=0x002a, h01=0x0050, text=» ADD GTDUPF(CBIN6),=D'1' FORSUPPLEMENT«, t00=0x0004, t01=0x0106}
0x076e…0780 Head {h00=0x000e, h01=0x0050, text=» B SLUT40 «, t00=0x0004, t01=0x0134}
0x0780…078e Head {h00=0x000a, h01=0x0050, text=»SLUT37«, t00=0x0004, t01=0x0146}
0x078e…07be Head {h00=0x002c, h01=0x0050, text=» SUB GTDUPF(CBIN6),=D'1' SUB 1 FROM YEAR«, t00=0x0004, t01=0x0154}
0x07be…07cc Head {h00=0x000a, h01=0x0050, text=»SLUT40«, t00=0x0004, t01=0x0184}
0x07cc…0802 (5, 0, 400) Head {h00=0x0032, h01=0x0050, text=» MOVE TSWBCD2,GTDUPF(CBIN6) ISOLATE LAST DIGIT«, t00=0x0005, t01=0x0004}
0x0802…0826 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TSWBCD2 «, t00=0x0005, t01=0x003a}
0x0826…0856 Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(CBIN6),CBIN10 SET FIELD NO«, t00=0x0005, t01=0x005e}
0x0856…0864 Head {h00=0x000a, h01=0x0050, text=»SLUT50«, t00=0x0005, t01=0x008e}
0x0864…086e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x009c}
0x086e…0894 Head {h00=0x0022, h01=0x0050, text=» ADD TTLBNR,=D'1' EKSP. LB. NR«, t00=0x0005, t01=0x00a6}
0x0894…08b2 Head {h00=0x001a, h01=0x0050, text=» PERF WRITFD «, t00=0x0005, t01=0x00cc}
0x08b2…08c8 Head {h00=0x0012, h01=0x0050, text=» BNOK SLUTNOK «, t00=0x0005, t01=0x00ea}
0x08c8…08f2 Head {h00=0x0026, h01=0x0050, text=» PERF SUMWRT WRITE SUM OR RESTSUM «, t00=0x0005, t01=0x0100}
0x08f2…091a Head {h00=0x0024, h01=0x0050, text=» TBF GTKASSE,SLUT60 ON JOURNAL?«, t00=0x0005, t01=0x012a}
0x091a…092e Head {h00=0x0010, h01=0x0050, text=» PERF FRMTJT«, t00=0x0005, t01=0x0152}
0x092e…0948 Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'0'«, t00=0x0005, t01=0x0166}
0x0948…0956 Head {h00=0x000a, h01=0x0050, text=»SLUT60«, t00=0x0005, t01=0x0180}
0x0956…096a Head {h00=0x0010, h01=0x0050, text=» PERF FRMTVO«, t00=0x0005, t01=0x018e}
0x096a…0988 Head {h00=0x001a, h01=0x0050, text=» PERF WRITVO «, t00=0x0006, t01=0x0012}
0x0988…09a2 Head {h00=0x0016, h01=0x0050, text=»* TEST IF IN LISTE«, t00=0x0006, t01=0x0030}
0x09a2…09be Head {h00=0x0018, h01=0x0050, text=» TBF TTLSTFLG,SLUT80«, t00=0x0006, t01=0x004a}
0x09be…09d8 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN4«, t00=0x0006, t01=0x0066}
0x09d8…09ec Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0006, t01=0x0080}
0x09ec…09fa Head {h00=0x000a, h01=0x0050, text=»SLUT80«, t00=0x0006, t01=0x0094}
0x09fa…0a18 Head {h00=0x001a, h01=0x0050, text=» PERF UPDAKK «, t00=0x0006, t01=0x00a2}
0x0a18…0a2e Head {h00=0x0012, h01=0x0050, text=» SET GTKORTFL «, t00=0x0006, t01=0x00c0}
0x0a2e…0a4c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0006, t01=0x00d6}
0x0a4c…0a64 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0006, t01=0x00f4}
0x0a64…0a90 Head {h00=0x0028, h01=0x0050, text=» SLUT90,SLUT95,SLUT95,SLUT95,SLUT90«, t00=0x0006, t01=0x010c}
0x0a90…0a9e Head {h00=0x000a, h01=0x0050, text=»SLUT90«, t00=0x0006, t01=0x0138}
0x0a9e…0ab6 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0006, t01=0x0146}
0x0ab6…0ac4 Head {h00=0x000a, h01=0x0050, text=»SLUT95«, t00=0x0006, t01=0x015e}
0x0ac4…0ada Head {h00=0x0012, h01=0x0050, text=» SET TTEORFLG «, t00=0x0006, t01=0x016c}
0x0ada…0b02 Head {h00=0x0024, h01=0x0050, text=» CLEAR SPME READY FOR FUNCTIONS «, t00=0x0006, t01=0x0182}
0x0b02…0b1a Head {h00=0x0014, h01=0x0050, text=» CLEAR GTREGFLG «, t00=0x0007, t01=0x001a}
0x0b1a…0b3e Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SETCR=0«, t00=0x0007, t01=0x0032}
0x0b3e…0b4a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0056}
0x0b4a…0b5a Head {h00=0x000c, h01=0x0050, text=»SLUTNOK «, t00=0x0007, t01=0x0062}
0x0b5a…0b88 Head {h00=0x002a, h01=0x0050, text=» SUB TTLBNR,=D'1' CHANGE LB. NR. AFTER«, t00=0x0007, t01=0x0072}
0x0b88…0b9e Head {h00=0x0012, h01=0x0050, text=» DISK ERROR «, t00=0x0007, t01=0x00a0}
0x0b9e…0bba Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN17«, t00=0x0007, t01=0x00b6}
0x0bba…0bd2 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0007, t01=0x00d2}
0x0bd2…0be6 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00ea}
0x0be6…0bfc Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00fe}
0x0bfc…0c0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0114}
0x0c0a…0c1e Head {h00=0x0010, h01=0x0050, text=»SUMWRT PROC «, t00=0x0007, t01=0x0122}
0x0c1e…0c3a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x0136}
0x0c3a…0c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0152}
0x0c44…0c80 Head {h00=0x0038, h01=0x0050, text=»** SUMWRT - CALCULATE AND WRITE SUM/RESTSUM«, t00=0x0007, t01=0x015c}
0x0c80…0c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0008}
0x0c8a…0ca6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0012}
0x0ca6…0cce Head {h00=0x0024, h01=0x0050, text=» TBF TTSUMFLG,SUMRET ONLY IF SUM«, t00=0x0008, t01=0x002e}
0x0cce…0cea Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SUMADD «, t00=0x0008, t01=0x0056}
0x0cea…0d06 Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SUMADD«, t00=0x0008, t01=0x0072}
0x0d06…0d3c Head {h00=0x0032, h01=0x0050, text=» SUB GTSUM,GTDUPF(CBIN4) CALCULATE NEW RESTSUM«, t00=0x0008, t01=0x008e}
0x0d3c…0d60 Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0008, t01=0x00c4}
0x0d60…0d72 Head {h00=0x000e, h01=0x0050, text=» B SUMOUT «, t00=0x0008, t01=0x00e8}
0x0d72…0d80 Head {h00=0x000a, h01=0x0050, text=»SUMADD«, t00=0x0008, t01=0x00fa}
0x0d80…0db2 Head {h00=0x002e, h01=0x0050, text=» ADD GTSUM,GTDUPF(CBIN4) CALCULATE NEW SUM«, t00=0x0008, t01=0x0108}
0x0db2…0dd6 Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0008, t01=0x013a}
0x0dd6…0de4 Head {h00=0x000a, h01=0x0050, text=»SUMOUT«, t00=0x0008, t01=0x015e}
0x0de4…0df8 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF8«, t00=0x0008, t01=0x016c}
0x0df8…0e06 Head {h00=0x000a, h01=0x0050, text=»SUMRET«, t00=0x0008, t01=0x0180}
0x0e06…0e44 Head {h00=0x003a, h01=0x0050, text=» ADD GTSUMCNT,GTDUPF(CBIN4) ALWAYS ADD TO SUMFUNCTION «, t00=0x0008, t01=0x018e}
0x0e44…0e50 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x003c}
0x0e50…0e5e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0048}
0x0e5e…0e74 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0056}
0x0e74…0e8a Head {h00=0x0012, h01=0x0050, text=»UPDAKK PROC «, t00=0x0009, t01=0x006c}
0x0e8a…0ea6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0082}
0x0ea6…0eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009e}
0x0eb0…0ec8 Head {h00=0x0014, h01=0x0050, text=»* UPDAKK «, t00=0x0009, t01=0x00a8}
0x0ec8…0efc Head {h00=0x0030, h01=0x0050, text=»* ROUTINE FOR UPDATING ACCUMULATORS «, t00=0x0009, t01=0x00c0}
0x0efc…0f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f4}
0x0f06…0f3a Head {h00=0x0030, h01=0x0050, text=»* TR1-TR10 UPDATES TTACC(IDX1,IDX2) «, t00=0x0009, t01=0x00fe}
0x0f3a…0f5e Head {h00=0x0020, h01=0x0050, text=»* IDX1 = TRNR«, t00=0x0009, t01=0x0132}
0x0f5e…0f84 Head {h00=0x0022, h01=0x0050, text=»* IDX2 = DEB/KRE«, t00=0x0009, t01=0x0156}
0x0f84…0fb6 Head {h00=0x002e, h01=0x0050, text=»* TR12 UPDATES TTACC12(IDX1,IDX2) «, t00=0x0009, t01=0x017c}
0x0fb6…0fe0 Head {h00=0x0026, h01=0x0050, text=»* IDX1 = TAELLER NR«, t00=0x000a, t01=0x001e}
0x0fe0…1008 Head {h00=0x0024, h01=0x0050, text=»* IDX2 = DEB/KRE «, t00=0x000a, t01=0x0048}
0x1008…1012 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0070}
0x1012…104a Head {h00=0x0034, h01=0x0050, text=»* ALL TRANSACTIONS UPDATE TTTOTDK(IDX2) «, t00=0x000a, t01=0x007a}
0x104a…1084 Head {h00=0x0036, h01=0x0050, text=»* AND IF INVERT TTKORDK(IDX2)«, t00=0x000a, t01=0x00b2}
0x1084…108e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ec}
0x108e…10aa Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x00f6}
0x10aa…10d6 Head {h00=0x0028, h01=0x0050, text=» CBNE GTREGNR,='12',UPD20«, t00=0x000a, t01=0x0112}
0x10d6…1114 Head {h00=0x003a, h01=0x0050, text=» PERF UPDA12 TAELLER 12 «, t00=0x000a, t01=0x013e}
0x1114…1134 Head {h00=0x001c, h01=0x0050, text=» B UPDRET «, t00=0x000a, t01=0x017c}
0x1134…1142 Head {h00=0x000a, h01=0x0050, text=»UPD20 «, t00=0x000b, t01=0x000c}
0x1142…1178 Head {h00=0x0032, h01=0x0050, text=» CBG GTREGNR,=D'30',UPDRET NO ACCUMULATION FOR«, t00=0x000b, t01=0x001a}
0x1178…1198 Head {h00=0x001c, h01=0x0050, text=» CERTAIN TRANSACTIONS «, t00=0x000b, t01=0x0050}
0x1198…11ce Head {h00=0x0032, h01=0x0050, text=» CBNE GTUSED(CBIN6),CBIN10,UPD30 REGNSKABSAAR «, t00=0x000b, t01=0x0070}
0x11ce…11fc Head {h00=0x002a, h01=0x0050, text=» MOVE TSWBCD2,GTDATO GET CURRENT YEAR «, t00=0x000b, t01=0x00a6}
0x11fc…1230 Head {h00=0x0030, h01=0x0050, text=» SUB TSWBCD2,GTDUPF(CBIN6) SUB REGNSKABSAAR «, t00=0x000b, t01=0x00d4}
0x1230…124c Head {h00=0x0018, h01=0x0050, text=» BZ UPD30 SAME YEAR «, t00=0x000b, t01=0x0108}
0x124c…125a Head {h00=0x000a, h01=0x0050, text=»UPD25 «, t00=0x000b, t01=0x0124}
0x125a…128a Head {h00=0x002c, h01=0x0050, text=» ADD TTACC(CBIN8,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000b, t01=0x0132}
0x128a…12a8 Head {h00=0x001a, h01=0x0050, text=» UPDATE SUPL COUNTER«, t00=0x000b, t01=0x0162}
0x12a8…12b6 Head {h00=0x000a, h01=0x0050, text=»UPD30 «, t00=0x000b, t01=0x0180}
0x12b6…12d2 Head {h00=0x0018, h01=0x0050, text=» TBT GTTESTFL,UPD38 «, t00=0x000b, t01=0x018e}
0x12d2…1300 Head {h00=0x002a, h01=0x0050, text=»* ACCUMULATE 'BEHOLDNINGSTAELLERE'«, t00=0x000c, t01=0x001a}
0x1300…131c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x000c, t01=0x0048}
0x131c…132a Head {h00=0x000a, h01=0x0050, text=»UPD35 «, t00=0x000c, t01=0x0064}
0x132a…1366 Head {h00=0x0038, h01=0x0050, text=» CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO? «, t00=0x000c, t01=0x0072}
0x1366…13a4 Head {h00=0x003a, h01=0x0050, text=» CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND? «, t00=0x000c, t01=0x00ae}
0x13a4…13b2 Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x000c, t01=0x00ec}
0x13b2…13e2 Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN2),GTDUPF(CBIN4) «, t00=0x000c, t01=0x00fa}
0x13e2…1412 Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN3),GTDUPF(CBIN4) «, t00=0x000c, t01=0x012a}
0x1412…1420 Head {h00=0x000a, h01=0x0050, text=»UPD36 «, t00=0x000c, t01=0x015a}
0x1420…1450 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN1,CBIN1 LOOK AT NEXT COUNTER «, t00=0x000c, t01=0x0168}
0x1450…1472 Head {h00=0x001e, h01=0x0050, text=» CBNG GSWBIN1,=W'60',UPD35«, t00=0x000d, t01=0x0008}
0x1472…1480 Head {h00=0x000a, h01=0x0050, text=»UPD38 «, t00=0x000d, t01=0x002a}
0x1480…14b2 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN1,CCNTDEX(GTREGDEX) GET INDEX «, t00=0x000d, t01=0x0038}
0x14b2…14f0 Head {h00=0x003a, h01=0x0050, text=» ADD TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000d, t01=0x006a}
0x14f0…1536 Head {h00=0x0042, h01=0x0050, text=» UPDATE ACCUMULATOR «, t00=0x000d, t01=0x00a8}
0x1536…1564 Head {h00=0x002a, h01=0x0050, text=» IB TTDKDEX,UPDKR,UPDDB SEE IF INVERT «, t00=0x000d, t01=0x00ee}
0x1564…1572 Head {h00=0x000a, h01=0x0050, text=»UPDDB «, t00=0x000d, t01=0x011c}
0x1572…15b6 Head {h00=0x0040, h01=0x0050, text=» CBNL GTDUPF(CBIN4),='0',UPD50 IF NEGATIVE DEBET«, t00=0x000d, t01=0x012a}
0x15b6…15f0 Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000d, t01=0x016e}
0x15f0…1600 Head {h00=0x000c, h01=0x0050, text=» B UPD50«, t00=0x000e, t01=0x0018}
0x1600…160e Head {h00=0x000a, h01=0x0050, text=»UPDKR «, t00=0x000e, t01=0x0028}
0x160e…164a Head {h00=0x0038, h01=0x0050, text=» CBNG GTDUPF(CBIN4),=D'0',UPD50 IF POSITIVE KREDIT, «, t00=0x000e, t01=0x0036}
0x164a…1684 Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000e, t01=0x0072}
0x1684…1692 Head {h00=0x000a, h01=0x0050, text=»UPD50 «, t00=0x000e, t01=0x00ac}
0x1692…16c2 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CBIN4,UPDRET IF COUNTER 5,6«, t00=0x000e, t01=0x00ba}
0x16c2…170a Head {h00=0x0044, h01=0x0050, text=» TBT GTTFLG,UPDRET WHEN CLOSE, NO UPDATE«, t00=0x000e, t01=0x00ea}
0x170a…1724 Head {h00=0x0016, h01=0x0050, text=» TBT CWFLAG,UPD56 «, t00=0x000e, t01=0x0132}
0x1724…1766 Head {h00=0x003e, h01=0x0050, text=» CBE TTCASHAC,GTDUPF(CBIN1),UPD54 IF KASSEKONTO,NO UPDATE «, t00=0x000e, t01=0x014c}
0x1766…17a4 Head {h00=0x003a, h01=0x0050, text=» CBE TVERSUR,GTDUPF(CBIN1),UPD54 IF VERSUR, NO UPDATE «, t00=0x000e, t01=0x018e}
0x17a4…17b4 Head {h00=0x000c, h01=0x0050, text=» B UPD55«, t00=0x000f, t01=0x003c}
0x17b4…17c2 Head {h00=0x000a, h01=0x0050, text=»UPD54 «, t00=0x000f, t01=0x004c}
0x17c2…17e6 Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x000f, t01=0x005a}
0x17e6…17f6 Head {h00=0x000c, h01=0x0050, text=» B UPD56«, t00=0x000f, t01=0x007e}
0x17f6…1804 Head {h00=0x000a, h01=0x0050, text=»UPD55 «, t00=0x000f, t01=0x008e}
0x1804…1820 Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x000f, t01=0x009c}
0x1820…182e Head {h00=0x000a, h01=0x0050, text=»UPD56 «, t00=0x000f, t01=0x00b8}
0x182e…185c Head {h00=0x002a, h01=0x0050, text=» SUB TTCASH,GTDUPF(CBIN4) UPDATE CASH «, t00=0x000f, t01=0x00c6}
0x185c…1878 Head {h00=0x0018, h01=0x0050, text=» TBF GTBDTFLG,UPD60 «, t00=0x000f, t01=0x00f4}
0x1878…18a6 Head {h00=0x002a, h01=0x0050, text=»* UPDATE FOR TRANS 28,29 VERSUR KONTO «, t00=0x000f, t01=0x0110}
0x18a6…18c2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN3 «, t00=0x000f, t01=0x013e}
0x18c2…18de Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN3,TTDKDEX«, t00=0x000f, t01=0x015a}
0x18de…18fc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,GTLEVBFO«, t00=0x000f, t01=0x0176}
0x18fc…191c (16, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CBL GSWBIN7,CBIN5,UPD57«, t00=0x0010, t01=0x0004}
0x191c…1936 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN7,CBIN5«, t00=0x0010, t01=0x0024}
0x1936…1944 Head {h00=0x000a, h01=0x0050, text=»UPD57 «, t00=0x0010, t01=0x003e}
0x1944…1976 Head {h00=0x002e, h01=0x0050, text=» PERF KFREAD,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL«, t00=0x0010, t01=0x004c}
0x1976…1998 Head {h00=0x001e, h01=0x0050, text=» SUB GTKFVAL,GTDUPF(CBIN4)«, t00=0x0010, t01=0x007e}
0x1998…19ca Head {h00=0x002e, h01=0x0050, text=» PERF KFWRIT,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL«, t00=0x0010, t01=0x00a0}
0x19ca…19dc Head {h00=0x000e, h01=0x0050, text=» B UPDRET «, t00=0x0010, t01=0x00d2}
0x19dc…19ea Head {h00=0x000a, h01=0x0050, text=»UPD60 «, t00=0x0010, t01=0x00e4}
0x19ea…1a06 Head {h00=0x0018, h01=0x0050, text=» TBF GTSTRFLG,UPDRET«, t00=0x0010, t01=0x00f2}
0x1a06…1a38 Head {h00=0x002e, h01=0x0050, text=»* UPDATE FOR TRANS 18/19, PENGE KONTO - ST«, t00=0x0010, t01=0x010e}
0x1a38…1a66 Head {h00=0x002a, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN1,CBIN0,GTKFVAL«, t00=0x0010, t01=0x0140}
0x1a66…1a88 Head {h00=0x001e, h01=0x0050, text=» SUB GTKFVAL,GTDUPF(CBIN4)«, t00=0x0010, t01=0x016e}
0x1a88…1ab6 Head {h00=0x002a, h01=0x0050, text=» PERF KFWRIT,CBIN2,CBIN1,CBIN0,GTKFVAL«, t00=0x0010, t01=0x0190}
0x1ab6…1ac8 Head {h00=0x000e, h01=0x0050, text=» B UPDRET «, t00=0x0011, t01=0x002e}
0x1ac8…1ad6 Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x0011, t01=0x0040}
0x1ad6…1ae2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x004e}
0x1ae2…1af8 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x005a}
0x1af8…1b0e Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0070}
0x1b0e…1b24 Head {h00=0x0012, h01=0x0050, text=»UPDA12 PROC «, t00=0x0011, t01=0x0086}
0x1b24…1b40 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x009c}
0x1b40…1b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b8}
0x1b4a…1b74 Head {h00=0x0026, h01=0x0050, text=»* UPDA12 - UPDATE FOR TR12 «, t00=0x0011, t01=0x00c2}
0x1b74…1b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ec}
0x1b7e…1b9a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00f6}
0x1b9a…1bd8 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR TAELLER NR «, t00=0x0011, t01=0x0112}
0x1bd8…1bfe Head {h00=0x0022, h01=0x0050, text=» SUB GSWBIN1,=W'100' GET INDEX«, t00=0x0011, t01=0x0150}
0x1bfe…1c28 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0011, t01=0x0176}
0x1c28…1c66 Head {h00=0x003a, h01=0x0050, text=» ADD C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)«, t00=0x0012, t01=0x0010}
0x1c66…1c88 Head {h00=0x001e, h01=0x0050, text=» ADD TTEJEDB,GTDUPF(CBIN4)«, t00=0x0012, t01=0x004e}
0x1c88…1cc0 Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT«, t00=0x0012, t01=0x0070}
0x1cc0…1cde Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,GSWBIN1 «, t00=0x0012, t01=0x00a8}
0x1cde…1d16 Head {h00=0x0034, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED «, t00=0x0012, t01=0x00c6}
0x1d16…1d44 Head {h00=0x002a, h01=0x0050, text=» MOVE GTKFVAL,C12ACC(GSWBIN7,TTDKDEX) «, t00=0x0012, t01=0x00fe}
0x1d44…1d76 Head {h00=0x002e, h01=0x0050, text=» PERF KFWRIT,CBIN1,TTDKDEX,GSWBIN7,GTKFVAL«, t00=0x0012, t01=0x012c}
0x1d76…1d8a Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0012, t01=0x015e}
0x1d8a…1da0 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0172}
0x1da0…1db6 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0188}
0x1db6…1dcc Head {h00=0x0012, h01=0x0050, text=»FLDTST PROC «, t00=0x0013, t01=0x000e}
0x1dcc…1de8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0013, t01=0x0024}
0x1de8…1df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0040}
0x1df2…1e2e Head {h00=0x0038, h01=0x0050, text=»* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT«, t00=0x0013, t01=0x004a}
0x1e2e…1e56 Head {h00=0x0024, h01=0x0050, text=»* FELT AFHAENGIGHEDS TEST«, t00=0x0013, t01=0x0086}
0x1e56…1e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ae}
0x1e60…1e7c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0013, t01=0x00b8}
0x1e7c…1eac Head {h00=0x002c, h01=0x0050, text=» PERF PACKST,CBINMAX CLEAR UNUSED FIELDS«, t00=0x0013, t01=0x00d4}
0x1eac…1ed2 Head {h00=0x0022, h01=0x0050, text=» IB GTREGDEX, C «, t00=0x0013, t01=0x0104}
0x1ed2…1f02 Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK, C«, t00=0x0013, t01=0x012a}
0x1f02…1f32 Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT08,FLDT09,FLDT10, C«, t00=0x0013, t01=0x015a}
0x1f32…1f62 Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDT18,FLDT19,FLDT28,FLDT29, C«, t00=0x0013, t01=0x018a}
0x1f62…1f8c Head {h00=0x0026, h01=0x0050, text=» FLDTOK,FLDTOK,FLDTOK,FLDT45, C «, t00=0x0014, t01=0x002a}
0x1f8c…1fcc Head {h00=0x003c, h01=0x0050, text=» FLDT45,FLDT45,FLDTOK,FLDTOK,FLDT50, C «, t00=0x0014, t01=0x0054}
0x1fcc…2000 Head {h00=0x0030, h01=0x0050, text=» FLDT50,FLDT52,FLDT53,FLDT54«, t00=0x0014, t01=0x0094}
0x2000…200e Head {h00=0x000a, h01=0x0050, text=»FLDT03«, t00=0x0014, t01=0x00c8}
0x200e…2042 Head {h00=0x0030, h01=0x0050, text=» CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16? «, t00=0x0014, t01=0x00d6}
0x2042…2074 Head {h00=0x002e, h01=0x0050, text=»* YES, RTE/GEB, INSERT TEXT IN TT16TXT«, t00=0x0014, t01=0x010a}
0x2074…20a2 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTDUPF(CBIN12) GET FIELD«, t00=0x0014, t01=0x013c}
0x20a2…20c6 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'0',FLDT031 «, t00=0x0014, t01=0x016a}
0x20c6…20ea Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RAT' IF = 0«, t00=0x0014, t01=0x018e}
0x20ea…20fc Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0015, t01=0x0022}
0x20fc…210c Head {h00=0x000c, h01=0x0050, text=»FLDT031 «, t00=0x0015, t01=0x0034}
0x210c…2130 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'1',FLDT032 «, t00=0x0015, t01=0x0044}
0x2130…2154 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RTE' IF = 1«, t00=0x0015, t01=0x0068}
0x2154…2166 Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0015, t01=0x008c}
0x2166…2176 Head {h00=0x000c, h01=0x0050, text=»FLDT032 «, t00=0x0015, t01=0x009e}
0x2176…219a Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'2',FLDT035 «, t00=0x0015, t01=0x00ae}
0x219a…21be Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'GEB' IF = 2«, t00=0x0015, t01=0x00d2}
0x21be…21ce Head {h00=0x000c, h01=0x0050, text=»FLDT035 «, t00=0x0015, t01=0x00f6}
0x21ce…21e2 Head {h00=0x0010, h01=0x0050, text=» TEST CFLT48«, t00=0x0015, t01=0x0106}
0x21e2…2204 Head {h00=0x001e, h01=0x0050, text=» BZ FLDTOK BRANCH IF FALSE«, t00=0x0015, t01=0x011a}
0x2204…2226 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN15),=W'0' «, t00=0x0015, t01=0x013c}
0x2226…2248 Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 48 USED «, t00=0x0015, t01=0x015e}
0x2248…2264 Head {h00=0x0018, h01=0x0050, text=» TBT C221FLG,FLDT036«, t00=0x0015, t01=0x0180}
0x2264…2280 Head {h00=0x0018, h01=0x0050, text=» TBT C167FLG,FLDT038«, t00=0x0016, t01=0x000c}
0x2280…22a2 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'21' «, t00=0x0016, t01=0x0028}
0x22a2…22b6 Head {h00=0x0010, h01=0x0050, text=» BL FLDT037 «, t00=0x0016, t01=0x004a}
0x22b6…22d8 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'26' «, t00=0x0016, t01=0x005e}
0x22d8…22f8 Head {h00=0x001c, h01=0x0050, text=» BL FLDTOK BKO = 21-25 «, t00=0x0016, t01=0x0080}
0x22f8…2308 Head {h00=0x000c, h01=0x0050, text=»FLDT037 «, t00=0x0016, t01=0x00a0}
0x2308…232a Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'46' «, t00=0x0016, t01=0x00b0}
0x232a…2344 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=46 «, t00=0x0016, t01=0x00d2}
0x2344…2366 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'56' «, t00=0x0016, t01=0x00ec}
0x2366…2380 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=56 «, t00=0x0016, t01=0x010e}
0x2380…239e Head {h00=0x001a, h01=0x0050, text=» B FLDT039 END ODENSE «, t00=0x0016, t01=0x0128}
0x239e…23ba Head {h00=0x0018, h01=0x0050, text=»FLDT036 HUNDESTED «, t00=0x0016, t01=0x0146}
0x23ba…23d4 Head {h00=0x0016, h01=0x0050, text=» TEST BCPR CPRNR? «, t00=0x0016, t01=0x0162}
0x23d4…23ea Head {h00=0x0012, h01=0x0050, text=» BZ FLDTOK NO «, t00=0x0016, t01=0x017c}
0x23ea…2414 (23, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CBE GTDUPF(CBIN3),=D'41',FLDT039 «, t00=0x0017, t01=0x0004}
0x2414…244c Head {h00=0x0034, h01=0x0050, text=» CBE GTDUPF(CBIN3),=D'46',FLDT039 BKO 30,41,46? «, t00=0x0017, t01=0x002e}
0x244c…245e Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0017, t01=0x0066}
0x245e…2478 Head {h00=0x0016, h01=0x0050, text=»FLDT038 HVIDOVRE«, t00=0x0017, t01=0x0078}
0x2478…249a Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'46' «, t00=0x0017, t01=0x0092}
0x249a…24b8 Head {h00=0x001a, h01=0x0050, text=» BNE FLDTOK BKO <> 46 «, t00=0x0017, t01=0x00b4}
0x24b8…24c8 Head {h00=0x000c, h01=0x0050, text=»FLDT039 «, t00=0x0017, t01=0x00d2}
0x24c8…24fe Head {h00=0x0032, h01=0x0050, text=» MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED «, t00=0x0017, t01=0x00e2}
0x24fe…2532 Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1 «, t00=0x0017, t01=0x0118}
0x2532…2544 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0017, t01=0x014c}
0x2544…254e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015e}
0x254e…255c Head {h00=0x000a, h01=0x0050, text=»FLDT04«, t00=0x0017, t01=0x0168}
0x255c…2592 Head {h00=0x0032, h01=0x0050, text=» TBT BCPR,FLDT041 CIR«, t00=0x0017, t01=0x0176}
0x2592…25b4 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0018, t01=0x001c}
0x25b4…25da Head {h00=0x0022, h01=0x0050, text=» BE FLDTOK FIELD 17 (INDEX 10)«, t00=0x0018, t01=0x003e}
0x25da…25fa Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0018, t01=0x0064}
0x25fa…2630 Head {h00=0x0032, h01=0x0050, text=»FLDT041 CPR«, t00=0x0018, t01=0x0084}
0x2630…2678 Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20«, t00=0x0018, t01=0x00ba}
0x2678…2692 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN1,=W'0'«, t00=0x0018, t01=0x0102}
0x2692…26a6 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTNOK«, t00=0x0018, t01=0x011c}
0x26a6…26c8 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0018, t01=0x0130}
0x26c8…26dc Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0018, t01=0x0152}
0x26dc…26fc Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0018, t01=0x0166}
0x26fc…2706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0186}
0x2706…2714 Head {h00=0x000a, h01=0x0050, text=»FLDT08«, t00=0x0018, t01=0x0190}
0x2714…2730 Head {h00=0x0018, h01=0x0050, text=» TBT C221FLG,FLDT09 «, t00=0x0019, t01=0x000e}
0x2730…2744 Head {h00=0x0010, h01=0x0050, text=» TEST CFLT46«, t00=0x0019, t01=0x002a}
0x2744…2756 Head {h00=0x000e, h01=0x0050, text=» BZ FLDTOK«, t00=0x0019, t01=0x003e}
0x2756…2778 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN17),=W'0' «, t00=0x0019, t01=0x0050}
0x2778…279a Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 46 USED «, t00=0x0019, t01=0x0072}
0x279a…27d4 Head {h00=0x0036, h01=0x0050, text=» MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED«, t00=0x0019, t01=0x0094}
0x27d4…2808 Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1 «, t00=0x0019, t01=0x00ce}
0x2808…281a Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0019, t01=0x0102}
0x281a…2834 Head {h00=0x0016, h01=0x0050, text=»FLDT09 HUNDESTED«, t00=0x0019, t01=0x0114}
0x2834…2850 Head {h00=0x0018, h01=0x0050, text=» TBF C221FLG,FLDT09X«, t00=0x0019, t01=0x012e}
0x2850…286a Head {h00=0x0016, h01=0x0050, text=» TBF BCPR,FLDT09X «, t00=0x0019, t01=0x014a}
0x286a…2894 Head {h00=0x0026, h01=0x0050, text=» CBNE GTUSED(CBIN8),CBIN0,FLDT09X «, t00=0x0019, t01=0x0164}
0x2894…28b6 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN8),CBIN12«, t00=0x0019, t01=0x018e}
0x28b6…28d8 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN8),=D'6' «, t00=0x001a, t01=0x0020}
0x28d8…28e8 Head {h00=0x000c, h01=0x0050, text=»FLDT09X «, t00=0x001a, t01=0x0042}
0x28e8…28fa Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001a, t01=0x0052}
0x28fa…2904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0064}
0x2904…2912 Head {h00=0x000a, h01=0x0050, text=»FLDT10«, t00=0x001a, t01=0x006e}
0x2912…2930 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x001a, t01=0x007c}
0x2930…2948 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x001a, t01=0x009a}
0x2948…297a Head {h00=0x002e, h01=0x0050, text=» FLDT105,FLDT105,FLDT102,FLDT108,FLDT108 «, t00=0x001a, t01=0x00b2}
0x297a…298a Head {h00=0x000c, h01=0x0050, text=»FLDT102 «, t00=0x001a, t01=0x00e4}
0x298a…299c Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001a, t01=0x00f4}
0x299c…29ac Head {h00=0x000c, h01=0x0050, text=»FLDT105 «, t00=0x001a, t01=0x0106}
0x29ac…29cc Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x001a, t01=0x0116}
0x29cc…29e0 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x001a, t01=0x0136}
0x29e0…29f2 Head {h00=0x000e, h01=0x0050, text=» B FLDTNOK«, t00=0x001a, t01=0x014a}
0x29f2…2a02 Head {h00=0x000c, h01=0x0050, text=»FLDT108 «, t00=0x001a, t01=0x015c}
0x2a02…2a22 Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x001a, t01=0x016c}
0x2a22…2a36 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x001a, t01=0x018c}
0x2a36…2a52 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'26'«, t00=0x001b, t01=0x0010}
0x2a52…2a66 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x001b, t01=0x002c}
0x2a66…2a80 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN2«, t00=0x001b, t01=0x0040}
0x2a80…2a9a Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK KOR-KEY«, t00=0x001b, t01=0x005a}
0x2a9a…2ab6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'0' «, t00=0x001b, t01=0x0074}
0x2ab6…2ad4 Head {h00=0x001a, h01=0x0050, text=» B FLDTNOK NOT KOR-KEY«, t00=0x001b, t01=0x0090}
0x2ad4…2ae2 Head {h00=0x000a, h01=0x0050, text=»FLDT28«, t00=0x001b, t01=0x00ae}
0x2ae2…2af0 Head {h00=0x000a, h01=0x0050, text=»FLDT29«, t00=0x001b, t01=0x00bc}
0x2af0…2b18 Head {h00=0x0024, h01=0x0050, text=» CBNE GTUSED(CBIN7),CBIN0,FLDT18«, t00=0x001b, t01=0x00ca}
0x2b18…2b3a Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN7),GTDATO«, t00=0x001b, t01=0x00f2}
0x2b3a…2b5c Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN7),CBIN11«, t00=0x001b, t01=0x0114}
0x2b5c…2b6a Head {h00=0x000a, h01=0x0050, text=»FLDT18«, t00=0x001b, t01=0x0136}
0x2b6a…2b78 Head {h00=0x000a, h01=0x0050, text=»FLDT19«, t00=0x001b, t01=0x0144}
0x2b78…2ba4 Head {h00=0x0028, h01=0x0050, text=» MOVE GTUSED(CBIN3),CBIN7 SET BKO=91«, t00=0x001b, t01=0x0152}
0x2ba4…2bc6 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN3),=D'91'«, t00=0x001b, t01=0x017e}
0x2bc6…2c04 Head {h00=0x003a, h01=0x0050, text=»* FOLLOWING FIELDS ARE ONLY USED LOCALLY (NOT TO KMD) «, t00=0x001c, t01=0x0010}
0x2c04…2c2c Head {h00=0x0024, h01=0x0050, text=» MOVE GTUSED(CBIN13),CBIN0 NR-1 «, t00=0x001c, t01=0x004e}
0x2c2c…2c54 Head {h00=0x0024, h01=0x0050, text=» MOVE GTUSED(CBIN14),CBIN0 NR-2 «, t00=0x001c, t01=0x0076}
0x2c54…2c7a Head {h00=0x0022, h01=0x0050, text=» MOVE GTUSED(CBIN15),CBIN0 TXT«, t00=0x001c, t01=0x009e}
0x2c7a…2ca4 Head {h00=0x0026, h01=0x0050, text=» MOVE GTUSED(CBIN18),CBIN0 DATO-1 «, t00=0x001c, t01=0x00c4}
0x2ca4…2cce Head {h00=0x0026, h01=0x0050, text=» MOVE GTUSED(CBIN19),CBIN0 DATO-2 «, t00=0x001c, t01=0x00ee}
0x2cce…2ce0 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001c, t01=0x0118}
0x2ce0…2cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x012a}
0x2cea…2cf8 Head {h00=0x000a, h01=0x0050, text=»FLDT45«, t00=0x001c, t01=0x0134}
0x2cf8…2d1e Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD1,CMASKDAT DDMMYY «, t00=0x001c, t01=0x0142}
0x2d1e…2d3c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD2,CMASKDAT«, t00=0x001c, t01=0x0168}
0x2d3c…2d60 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD2,=D'100' DDMM«, t00=0x001c, t01=0x0186}
0x2d60…2d84 Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD2,=D'100' DDMM00 «, t00=0x001d, t01=0x001a}
0x2d84…2da8 Head {h00=0x0020, h01=0x0050, text=» SUB GSWBCD1,GSWBCD2 YY«, t00=0x001d, t01=0x003e}
0x2da8…2ddc Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD2,GTREGF(CBIN16) (YY-1,YY,YY+1) «, t00=0x001d, t01=0x0062}
0x2ddc…2e08 Head {h00=0x0028, h01=0x0050, text=» ADD GSWBCD2,=D'3' ADJUST FOR FLTDEX«, t00=0x001d, t01=0x0096}
0x2e08…2e24 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1«, t00=0x001d, t01=0x00c2}
0x2e24…2e42 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD2 «, t00=0x001d, t01=0x00de}
0x2e42…2e7a Head {h00=0x0034, h01=0x0050, text=» MOVE GTREGF(GSWBIN1),GTREGF(CBIN17) MOVE AMOUNT«, t00=0x001d, t01=0x00fc}
0x2e7a…2e9e Head {h00=0x0020, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),CBIN1 «, t00=0x001d, t01=0x0134}
0x2e9e…2ec0 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN15),CBIN0«, t00=0x001d, t01=0x0158}
0x2ec0…2ee2 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN16),CBIN0«, t00=0x001d, t01=0x017a}
0x2ee2…2f04 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN17),CBIN0«, t00=0x001e, t01=0x000c}
0x2f04…2f26 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN18),CBIN0«, t00=0x001e, t01=0x002e}
0x2f26…2f48 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN19),CBIN0«, t00=0x001e, t01=0x0050}
0x2f48…2f6a Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN20),CBIN0«, t00=0x001e, t01=0x0072}
0x2f6a…2f8c Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN21),CBIN0«, t00=0x001e, t01=0x0094}
0x2f8c…2f9e Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001e, t01=0x00b6}
0x2f9e…2fa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c8}
0x2fa8…2fb6 Head {h00=0x000a, h01=0x0050, text=»FLDT50«, t00=0x001e, t01=0x00d2}
0x2fb6…2ff8 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28«, t00=0x001e, t01=0x00e0}
0x2ff8…301a Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,=W'1',FLDTOK «, t00=0x001e, t01=0x0122}
0x301a…303a Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x001e, t01=0x0144}
0x303a…3044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0164}
0x3044…3052 Head {h00=0x000a, h01=0x0050, text=»FLDT52«, t00=0x001e, t01=0x016e}
0x3052…3094 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 «, t00=0x001e, t01=0x017c}
0x3094…30c2 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'1',FLDTNOK«, t00=0x001f, t01=0x002e}
0x30c2…3106 Head {h00=0x0040, h01=0x0050, text=» PERF FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40 «, t00=0x001f, t01=0x005c}
0x3106…3134 Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,=W'2',FLDT525«, t00=0x001f, t01=0x00a0}
0x3134…3176 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45 «, t00=0x001f, t01=0x00ce}
0x3176…31a4 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'0',FLDTNOK«, t00=0x001f, t01=0x0110}
0x31a4…31b4 Head {h00=0x000c, h01=0x0050, text=»FLDT525 «, t00=0x001f, t01=0x013e}
0x31b4…31f2 Head {h00=0x003a, h01=0x0050, text=» CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46«, t00=0x001f, t01=0x014e}
0x31f2…3230 Head {h00=0x003a, h01=0x0050, text=» CBE GTUSED(CBIN20),=W'0',FLDTNOK FIELD 43«, t00=0x001f, t01=0x018c}
0x3230…3240 Head {h00=0x000c, h01=0x0050, text=»FLDT527 «, t00=0x0020, t01=0x003a}
0x3240…327c Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x0020, t01=0x004a}
0x327c…32ba Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x0020, t01=0x0086}
0x32ba…32da Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x0020, t01=0x00c4}
0x32da…32e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e4}
0x32e4…32f2 Head {h00=0x000a, h01=0x0050, text=»FLDT53«, t00=0x0020, t01=0x00ee}
0x32f2…3330 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),=W'0',FLDT535 FIELD 47«, t00=0x0020, t01=0x00fc}
0x3330…3378 Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45«, t00=0x0020, t01=0x013a}
0x3378…33a6 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'0',FLDTNOK«, t00=0x0020, t01=0x0182}
0x33a6…33b6 Head {h00=0x000c, h01=0x0050, text=»FLDT535 «, t00=0x0021, t01=0x0020}
0x33b6…33f4 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN7),=W'0',FLDT537 FIELD 40 «, t00=0x0021, t01=0x0030}
0x33f4…3432 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),=W'0',FLDTNOK FIELD 47«, t00=0x0021, t01=0x006e}
0x3432…3442 Head {h00=0x000c, h01=0x0050, text=»FLDT537 «, t00=0x0021, t01=0x00ac}
0x3442…347e Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x0021, t01=0x00bc}
0x347e…34bc Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x0021, t01=0x00f8}
0x34bc…34dc Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x0021, t01=0x0136}
0x34dc…34e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0156}
0x34e6…34f4 Head {h00=0x000a, h01=0x0050, text=»FLDT54«, t00=0x0021, t01=0x0160}
0x34f4…3530 Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x0021, t01=0x016e}
0x3530…356e Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x0022, t01=0x001a}
0x356e…358e Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x0022, t01=0x0058}
0x358e…3598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0078}
0x3598…35a6 Head {h00=0x000a, h01=0x0050, text=»FLDTOK«, t00=0x0022, t01=0x0082}
0x35a6…35e4 Head {h00=0x003a, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0 OK«, t00=0x0022, t01=0x0090}
0x35e4…35f8 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0022, t01=0x00ce}
0x35f8…3602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e2}
0x3602…3612 Head {h00=0x000c, h01=0x0050, text=»FLDTNOK «, t00=0x0022, t01=0x00ec}
0x3612…3658 Head {h00=0x0042, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR <> 0 NOT OK«, t00=0x0022, t01=0x00fc}
0x3658…366c Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0022, t01=0x0142}
0x366c…3682 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x0156}
0x3682…3698 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x016c}
0x3698…36c4 Head {h00=0x0028, h01=0x0050, text=»FLDIN PROC FML1,FML2,FML3,FML4«, t00=0x0022, t01=0x0182}
0x36c4…36e0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0023, t01=0x001e}
0x36e0…36ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x003a}
0x36ea…3724 Head {h00=0x0036, h01=0x0050, text=»* FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS«, t00=0x0023, t01=0x0044}
0x3724…3752 Head {h00=0x002a, h01=0x0050, text=»* (GIVEN BY INDEX) ARE PRESENT «, t00=0x0023, t01=0x007e}
0x3752…3774 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT IN GSWBIN1«, t00=0x0023, t01=0x00ac}
0x3774…377e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ce}
0x377e…379a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0023, t01=0x00d8}
0x379a…37c0 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,=W'0'«, t00=0x0023, t01=0x00f4}
0x37c0…37e8 Head {h00=0x0024, h01=0x0050, text=» CBE FML1,=W'0',FLD5«, t00=0x0023, t01=0x011a}
0x37e8…380c Head {h00=0x0020, h01=0x0050, text=» CBE GTUSED(FML1),=W'0',FLD1«, t00=0x0023, t01=0x0142}
0x380c…3832 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0023, t01=0x0166}
0x3832…383e Head {h00=0x0008, h01=0x0050, text=»FLD1«, t00=0x0023, t01=0x018c}
0x383e…3866 Head {h00=0x0024, h01=0x0050, text=» CBE FML2,=W'0',FLD5«, t00=0x0024, t01=0x0008}
0x3866…3896 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML2),=W'0',FLD2«, t00=0x0024, t01=0x0030}
0x3896…38bc Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0024, t01=0x0060}
0x38bc…38c8 Head {h00=0x0008, h01=0x0050, text=»FLD2«, t00=0x0024, t01=0x0086}
0x38c8…38f0 Head {h00=0x0024, h01=0x0050, text=» CBE FML3,=W'0',FLD5«, t00=0x0024, t01=0x0092}
0x38f0…3920 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML3),=W'0',FLD3«, t00=0x0024, t01=0x00ba}
0x3920…3946 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0024, t01=0x00ea}
0x3946…3952 Head {h00=0x0008, h01=0x0050, text=»FLD3«, t00=0x0024, t01=0x0110}
0x3952…397a Head {h00=0x0024, h01=0x0050, text=» CBE FML4,=W'0',FLD5«, t00=0x0024, t01=0x011c}
0x397a…39aa Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML4),=W'0',FLD5«, t00=0x0024, t01=0x0144}
0x39aa…39d0 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0024, t01=0x0174}
0x39d0…39dc Head {h00=0x0008, h01=0x0050, text=»FLD5«, t00=0x0025, t01=0x000a}
0x39dc…39f0 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0025, t01=0x0016}
0x39f0…39fe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0025, t01=0x002a}
0x39fe…3a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0038}
0x3a08…3a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0042}
0x3a12…3a26 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0025, t01=0x004c}
0x3a26…3a2a Head {h00=0x4004, h01=0x0000}
0x3a2a…3a2e 00 25 00 60 ┆ % `┆
0x3a2e…3a36 (38, 1, 8) 20 04 00 00 00 26 00 04 ┆ & ┆
0x3a36…3a86 (39, 0, 400) 2f 32 0c 25 2f 33 06 23 2f 34 02 57 02 30 03 30 04 20 80 01 5f 07 03 11 11 30 02 20 05 20 2d 01 21 30 30 05 20 01 21 31 01 20 12 30 05 20 30 06 14 00 2f 18 20 21 2f 32 05 30 07 2f 30 03 34 00 00 8e 5f 9c 21 8e 32 09 30 07 8e 30 03 80 02 80 ┆/2 %/3 #/4 W 0 0 _ 0 - !00 !1 0 0 / !/2 0 /0 4 _ ! 2 0 0 ┆
0x3a86…3ad6 03 34 00 01 a1 2c 30 08 9c 00 a1 30 09 1a 01 a1 2c 30 08 9c 01 a1 30 09 1a 5f 18 30 0a 30 0b 8f 9a 99 34 00 30 0b 8f 9d 00 34 01 30 0b 8f 98 99 34 00 30 0b 8f 99 00 34 01 30 0b 8f a0 99 34 00 30 0b 8f 9f 00 34 01 30 0b 8f 9b 99 34 00 30 0b ┆ 4 ,0 0 ,0 0 _ 0 0 4 0 4 0 4 0 4 0 4 0 4 0 4 0 ┆
0x3ad6…3b26 8f 9c 99 34 00 30 0b 8f 97 00 34 01 30 0b 8f 98 99 34 00 30 0b 8f 98 00 34 01 30 0b 8f 9e 00 34 01 30 0b 8f 67 34 00 00 00 33 8d e0 8a ee 8d 70 70 14 3f 4a 6f d2 8d 4c 8d f2 8c d0 92 ca 78 d4 80 42 7f ca 80 3e 7f 52 81 6a 89 c6 7f 74 7f 16 ┆ 4 0 4 0 4 0 4 0 4 0 g4 3 pp ?Jo L x B > R j t ┆
0x3b26…3b76 7b ca 7e 66 7f be 7f c2 7f b2 7f a8 7f ac 7f b6 7f ba 8f 38 80 20 7e b6 79 38 78 fc 8e 40 8d 9e 8c 8e 8a ea 8e 50 8d 86 a4 7a 8a 1c 8c ec 8b 9a 8d 9a 8d a8 8c 48 a7 70 8c 6c 8d cc 8a f2 8b 00 00 01 00 01 04 75 00 03 00 00 00 49 00 06 00 8c ┆{ ~f 8 ~ y8x @ P z H p l u I ┆
0x3b76…3bc6 00 01 04 4d 00 00 00 01 00 02 00 03 00 04 00 05 00 06 00 07 00 08 00 09 00 0a 00 0b 00 0c 00 0d 00 0e 00 0f 00 10 00 18 00 20 00 27 00 31 00 40 00 80 00 c7 01 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 07 ff ff ff ff ff ff 00 00 00 00 05 ┆ M ' 1 @ ┆
0x3bc6…3c16 (40, 0, 400) 04 00 05 c8 07 ff 47 40 4b 40 2d 00 01 00 10 20 20 52 41 52 46 20 53 55 4d 54 52 50 20 41 44 4d 20 20 41 52 4b 49 56 44 45 42 45 54 53 41 4c 44 4f 54 4f 54 41 4c 20 20 4b 56 49 54 20 43 48 45 43 4b 4b 52 45 44 49 54 54 5b 4c 4c 45 52 4b 4f ┆ G@K@- RARF SUMTRP ADM ARKIVDEBETSALDOTOTAL KVIT CHECKKREDITT[LLERKO┆
0x3c16…3c66 4e 54 4f 4e 52 54 4f 54 41 4c 20 20 20 20 45 4b 53 2e 4c 42 4e 52 44 41 47 53 2d 44 41 54 4f 4b 4f 4e 54 4f 4b 4f 52 54 4d 41 53 4b 49 4e 20 4e 52 50 4f 53 54 2d 44 41 54 4f 53 54 41 52 54 20 53 55 4d 20 20 53 4c 55 54 20 54 45 53 54 42 45 ┆NTONRTOTAL EKS.LBNRDAGS-DATOKONTOKORTMASKIN NRPOST-DATOSTART SUM SLUT TESTBE┆
0x3c66…3cb6 56 2e 50 45 52 49 4f 44 45 20 20 53 54 41 52 54 20 54 45 53 54 4b 41 53 53 45 4c 55 4b 4e 49 4e 47 44 49 53 4b 45 54 54 45 20 53 4b 49 46 54 20 42 45 48 4f 4c 44 4e 49 4e 47 53 54 5b 4c 4c 45 52 45 56 45 52 53 55 52 4b 4f 4e 54 4f 4e 52 20 ┆V.PERIODE START TESTKASSELUKNINGDISKETTE SKIFT BEHOLDNINGST[LLEREVERSURKONTONR ┆
0x3cb6…3d06 20 4b 41 53 53 45 4b 4f 4e 54 4f 4e 52 20 20 20 50 52 49 4d 4f 20 4b 41 53 53 45 20 b1 b2 b3 b4 b5 b6 b7 b8 b9 b0 10 b0 11 b0 12 b0 17 39 58 39 39 42 5a 58 58 5a 5a 39 39 39 39 39 42 42 2a 2a 42 42 58 42 42 5a 42 58 42 42 58 58 42 5a 5a 58 ┆ KASSEKONTONR PRIMO KASSE 9X99BZXXZZ99999BB**BBXBBZBXBBXXBZZX┆
0x3d06…3d56 58 58 5a 5a 5a 39 39 39 39 39 39 39 42 42 2a 2a 42 42 39 39 2e 42 39 39 39 42 39 39 42 42 42 5a 42 42 42 5a 5a 42 58 58 2e 42 5a 5a 5a 5a 5a 5a 39 2a 2a 2a 2a 39 2a 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆XXZZZ9999999BB**BB99.B999B99BBBZBBBZZBXX.BZZZZZZ9****9** ┆
0x3d56…3da6 (41, 0, 400) 2a 39 39 42 39 39 39 42 42 42 42 5a 5a 42 5a 5a 5a 5a 42 42 42 2a 2a 42 42 42 5a 39 39 39 42 42 2a 2a 2a 2a 39 58 58 2e 58 58 50 50 39 39 56 39 39 56 39 39 58 58 56 58 58 56 58 58 5a 5a 2e 5a 5a 2e 5a 5a 5a 5a 39 39 39 39 39 39 39 39 2e 39 ┆*99B999BBBBZZBZZZZBBB**BBBZ999BB****9XX.XXPP99V99V99XXVXXVXXZZ.ZZ.ZZZZ99999999.9┆
0x3da6…3df6 39 2e 39 39 42 42 39 39 2e 39 39 2e 39 39 42 58 58 2e 58 58 2e 58 58 42 5a 5a 2e 5a 5a 2e 5a 5a 42 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 2e 5a 5a 2e 5a 5a 42 39 39 45 2d 39 39 45 2d 39 39 42 39 39 2e 39 39 2e 39 39 42 42 42 39 39 2e 39 39 2e 39 39 ┆9.99BB99.99.99BXX.XX.XXBZZ.ZZ.ZZBZZZZZZZZZZ.ZZ.ZZB99E-99E-99B99.99.99BBB99.99.99┆
0x3df6…3e46 39 39 2e 39 39 2e 39 39 39 2e 39 42 58 58 58 58 58 58 58 58 58 58 42 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 2d 5a 5a 5a 5a 5a 5a 5a 5a 5a 58 2d 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 42 2a 2a 2a 2a 2a 2a 45 2d 2a 2a 2a 2a 58 58 ┆99.99.999.9BXXXXXXXXXXBZZZZZZZZZZZZZZZZZZZ9-ZZZZZZZZZX-ZZZZZZZZZZB******E-****XX┆
0x3e46…3e96 58 58 58 58 45 2d 58 58 58 58 58 58 58 58 58 58 58 58 45 2d 58 58 5a 5a 5a 5a 39 39 39 39 2e 39 39 42 39 42 39 39 39 39 42 39 39 39 42 39 39 42 42 5a 5a 2e 5a 5a 2e 5a 5a 42 42 42 45 2d 39 39 39 39 39 39 39 39 39 39 42 58 58 58 2e 58 58 58 ┆XXXXE-XXXXXXXXXXXXE-XXZZZZ9999.99B9B9999B999B99BBZZ.ZZ.ZZBBBE-9999999999BXXX.XXX┆
0x3e96…3ee6 58 58 2e 58 58 42 58 58 58 56 58 58 56 58 58 58 2e 58 58 39 39 39 45 2d 39 39 39 39 39 45 2d 39 39 42 5a 5a 5a 5a 56 5a 5a 5a 56 5a 5a 39 2d 42 5a 5a 5a 5a 56 5a 5a 5a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆XX.XXBXXXVXXVXXX.XX999E-99999E-99BZZZZVZZZVZZ9-BZZZZVZZZ ┆
0x3ee6…3f36 (42, 0, 400) 56 5a 5a 58 2d 42 5a 5a 5a 5a 56 5a 5a 5a 56 5a 5a 5a 2d 58 45 2d 58 58 45 2d 58 58 45 2d 58 58 42 58 58 58 45 2d 58 58 58 58 58 45 2d 58 58 39 39 39 56 39 39 56 39 39 39 45 2d 39 39 42 42 39 39 39 2e 39 39 2e 39 39 39 2e 39 39 42 5a 5a 5a ┆VZZX-BZZZZVZZZVZZZ-XE-XXE-XXE-XXBXXXE-XXXXXE-XX999V99V999E-99BB999.99.999.99BZZZ┆
0x3f36…3f86 2e 5a 5a 5a 2e 5a 5a 39 2e 5a 5a 2d 39 39 39 45 2d 39 39 45 2d 39 39 39 45 2d 39 39 42 39 39 39 56 39 39 56 39 39 39 45 2d 39 39 42 42 42 5a 5a 5a 56 5a 5a 56 5a 5a 5a 45 2d 5a 5a 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2c 39 39 2b 2a 2e 2a ┆.ZZZ.ZZ9.ZZ-999E-99E-999E-99B999V99V999E-99BBBZZZVZZVZZZE-ZZ*.***.***.**9,99+*.*┆
0x3f86…3fd6 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2b 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2d 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39 39 2d 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2b 42 42 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 ┆**.***.**9.99+*.***.***.**9.99-Z.ZZZ.ZZZ.ZZ9.99-*.***.***.**9.99+BB*.***.***.**9┆
0x3fd6…4026 2e 39 39 2d 42 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 45 2c 39 39 42 39 39 39 45 2d 39 39 45 2d 39 39 39 45 2d 39 39 42 42 42 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2c 39 39 2d 42 42 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39 ┆.99-B*.***.***.**9E,99B999E-99E-999E-99BBBZZZ.ZZZ.ZZZ.ZZ9,99-BBZZZ.ZZZ.ZZZ.ZZ9.9┆
0x4026…4076 39 2d 01 90 01 ff 08 83 87 81 82 89 8a 8b a0 19 c7 d1 ff d0 ff d5 cb c3 ff ff ff ff ff ff c5 e2 ff e3 d2 e1 e0 ff ff c6 d9 19 c7 d1 ff d0 ff d5 cb c3 ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆9- ┆
0x4076…40c6 (43, 0, 400) ff e2 ff e3 d2 e1 e0 ff ff c6 d9 1c 87 ff 91 ff ff 95 ff ff ff ff ff ff ff ff ff ff ff a3 ff ff ff ff ff ff ff ff 85 86 1f 87 ff 91 ff ff 95 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff a0 26 87 91 ff 90 ff 95 8b ┆ & ┆
0x40c6…4116 83 ff ff ff ff ff ff ff a2 ff a3 92 e1 88 8a ff ff ff ff 85 86 82 81 a0 89 84 80 93 94 ff 99 e1 12 aa c1 4a c1 48 df 6c df 8f df 5f df 7a df 92 df 93 df 94 df 73 df 7e df 7f df 6b df 87 df 96 df 5e df 83 df 95 df 80 df 78 df 8c df 8d df 79 ┆ J H l _ z s ~ k ^ x y┆
0x4116…4166 df 8e df 76 df 85 df 82 df 66 df 90 df 91 df 86 df 69 49 ef 12 5a ef 11 5b ef 19 82 20 c1 4c 82 20 c1 47 82 32 c0 af 82 20 df 84 df 12 df 8a 82 20 df 74 82 20 df 68 df 12 df 61 82 2b df 5b df 51 df 5b df 25 c1 35 df 27 df 81 df 2b df 81 df ┆ v f iI Z [ L G 2 t h a + [ Q [ % 5 ' + ┆
0x4166…41b6 2c df 81 61 ef 14 c0 ec 34 df 1b 83 20 df 5c e8 df 77 10 df 1c 63 df 11 82 20 2b 44 c1 3d 82 2b 5f 89 81 20 df 12 df 45 df 6d 82 20 df 60 c1 3c df 12 df 47 df 8b df 12 df 56 df 6f 82 2b df 7b df 63 df 34 df 7d df 44 df 71 df 7c df 54 df 71 ┆, a 4 w c +D = +_ E m ` < G V o + { c 4 } D q | T q┆
0x41b6…4206 df 6a df 54 82 2b 5f ef 14 c0 ec e0 e1 e1 81 2a 81 20 5e ef 14 c0 ec 81 20 e0 17 8c c0 ae 12 8b df 45 12 df 1e 82 20 df 12 96 20 51 df 23 df 12 98 20 51 df 23 df 12 ac 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ j T +_ * ^ E Q # Q # ┆
0x4206…4256 (44, 0, 400) 20 51 df 23 df 12 a3 20 53 df 23 df 7b e8 82 30 df 63 df 65 df 4f e8 df 88 e1 e1 e1 e1 e1 e1 e1 82 30 c0 ae 60 89 df 5d 82 32 91 20 65 89 65 8a db ab 04 2b fc d8 02 2b a7 df 47 4b df 12 81 20 df 8b df 12 12 df 1e 82 20 df 6f df 60 61 ef 14 ┆ Q # S # { 0 c e O 0 ` ] 2 e e + + GK o `a ┆
0x4256…42a6 c0 ec 81 20 57 ef 11 5e ef 14 c0 ec 81 20 82 20 c0 e2 c0 de 17 aa df 60 df 65 df 4f e8 df 88 e8 df 89 82 2b c0 af 85 20 35 7e e1 e1 e1 df 60 82 20 c1 44 da ac 02 61 e9 df 51 e8 82 30 e8 82 30 e8 df 4e 14 ef 1b 4d ef 12 33 ef 17 1b ef 1c 82 ┆ W ^ ` e O + 5~ ` D a Q 0 0 N M 3 ┆
0x42a6…42f6 20 15 8b 65 fd 80 12 65 fd 80 11 82 2b 40 dc ab 20 5e e9 82 20 c1 36 81 2a 83 20 20 df 11 83 20 52 df 14 e8 25 ef 13 db db 07 c0 ee 81 20 3d ef 17 81 2a 83 20 59 df 11 83 20 52 df 22 e8 81 20 df 7d 61 ef 14 c0 ec 81 20 df 81 82 2b c0 e2 38 ┆ e e +@ ^ 6 * R % = * Y R " }a + 8┆
0x42f6…4346 dc 21 db df 60 28 ef 13 df 12 df 56 83 20 2a df 1d 82 20 df 6f 82 32 15 8b 65 ef 14 65 fd 80 12 65 fd 80 11 df 34 29 ef 12 61 ef 14 82 20 c1 37 1d ef 15 82 2b c0 e2 c0 de 38 dc 21 db df 60 c0 e3 12 aa df 75 81 20 47 ef 12 83 2a db db 02 8d ┆ ! `( V * o 2 e e e 4) a 7 + 8 ! ` u G * ┆
0x4346…4396 2a df 64 82 20 1e ef 20 42 ef 1d 42 ef 1e 3a ef 23 3a ef 24 82 2b da d0 04 c1 38 df 35 84 20 c0 ae 5d d6 82 20 df 75 df 6e da db 03 33 ef 17 1c ef 1b c0 ed df 70 82 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆* d B B : #: $ + 8 5 ] u n 3 p 2 ┆