|
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: 14216 (0x3788)
Notes: pts_type(SC)
Names: »RGSUB1.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/RGSUB1.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/RGSUB1.SC«
IDENT RGSUB1 830907 EV
DDUM KMD08
PDIV
ENTRY SLUT
ENTRY FLDTST
ENTRY UPDAKK
EXT PACKST
EXT WRITFD
EXT WRITVO
EXT WRITJT
EXT WRITLO
EXT FRMXVO
EXT KFWRIT
EXT FRMTJT
EXT FRMXTA
EXT WTALLY
EXT FRMTVO
EXT KTPLAN
EXT SPERR
EXT SPLIN8
EXT REPL00
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
* INSERT 'REGNSKABSAAR IF TRANSTYPES 1,2,5-10
CBG GTREGDEX,CBIN10,SLUT50
CBE GTREGDEX,CBIN3,SLUT50
CBE GTREGDEX,CBIN4,SLUT50
* TYPES 1,2,5-10
CBNE GTREGDEX,CBIN10,SLUT34 TRANS10 ALWAYS SUPPL
MOVE TTSUPMRK,=C'G'
B SLUT37
SLUT34
TBT TTSUPFLG,SLUT35
MOVE TTSUPMRK,=C' '
B SLUT50
SLUT35
CBE TTSUPMRK,=C'N',SLUT36
CBE TTSUPMRK,=C'G',SLUT37
B SLUT50
SLUT36
MOVE GTDUPF(CBIN6),GTDATO
ADD GTDUPF(CBIN6),=D'1' FORSUPP
B SLUT40
SLUT37
MOVE GTDUPF(CBIN6),GTDATO GET DATE
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
SLUT70
CBL GTREGDEX,=D'8',SLUT80 ONLY TRANS 8/9
CBG GTREGDEX,=D'9',SLUT80
PERF FRMXVO,CBIN21 LINE 2 TRANS 8-9
PERF WRITVO
TBF TFELT90,SLUT80 ANY OF 90-94 PRESENT?
MOVE SPINPUT,GTFELT90(CBIN1)
PERF REPL00,SPINPUT,CBIN22
CBE GSWBIN7,CBIN22,SLUT80 EMPTY FELT 90
MOVE SPINPUT,GTFELT90(CBIN2)
PERF REPL00,SPINPUT,CBIN22
PERF FRMXVO,CBIN22 VOX22
PERF WRITVO
* TEST FOR FELT 92-93
MOVE SPINPUT,GTFELT90(CBIN3)
PERF REPL00,SPINPUT,CBIN22
CBE GSWBIN7,CBIN22,SLUT80 22 ZEROES FOUND
MOVE SPINPUT,GTFELT90(CBIN4)
PERF REPL00,SPINPUT,CBIN22
MOVE GSWBIN1,=W'23'
PERF FRMXVO,GSWBIN1
PERF WRITVO
* LAST BUT NOT LEAST FELT 94
MOVE SPINPUT,GTFELT90(CBIN5)
PERF REPL00,SPINPUT,CBIN22
CBE GSWBIN7,CBIN22,SLUT80 NOTUSED
MOVE GSWBIN1,=W'24'
PERF FRMXVO,GSWBIN1
PERF WRITVO
SLUT80
PERF UPDAKK
SET GTKORTFL
MOVE GSWBIN1,GTKTTYP
IB GSWBIN1, C
SLUT90,SLUT95,SLUT95,SLUT95,SLUT90
SLUT90
CLEAR GTKORTFL
SLUT95
CLEAR TTCY0FLG
SET TTEORFLG
CLEAR SPME READY FOR FUNCTIONS
CLEAR GTREGFLG
CBNE GTREGDEX,CBIN10,SLUT96
MOVE TTSUPMRK,CBLANKS
SLUT96
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 SPLIN8,CBIN4,CBIN2
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
UPD60
CBG GTREGNR,=D'17',UPDRET
SUB TTCASH,GTDUPF(CBIN4)
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 CLEAR UNUSED FIELDS
IB GTREGDEX, C
FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK, C
FLDTOK,FLDTOK,FLDT08,FLDT09,FLDT10, C
FLDTOK,FLDTOK,FLDTOK,FLDTOK,FLDT45, C
FLDT45,FLDTOK,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),CBIN0
BNE FLDTOK FIELD 48 USED
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),CBIN0
BE FLDTOK FIELD 17 (INDEX 10)
B FLDTNOK
FLDT041 CPR
PERF FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20
CMP GSWBIN1,CBIN0
BNE FLDTNOK
CMP GTUSED(CBIN10),CBIN0
BNE FLDTOK
B FLDTNOK
*
FLDT08
TEST CFLT46
BZ FLDT09
CMP GTUSED(CBIN17),CBIN0
BNE FLDT09 FIELD 46 USED
MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED
MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1
*
FLDT09
* NB. NORDJYLLANDS AMT
* AT LEAST ONE FIELD 23,24,25,26: INDEX 12,13,14,15
TBT TFELT90,FLDTOK
PERF FLDIN,CBIN12,CBIN13,CBIN14,CBIN15
CBNE GSWBIN1,CBIN0,FLDTOK MORE THEN 1 FIELD PRESENT
PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN15
CBNE GSWBIN1,CBIN0,FLDTOK
B FLDTNOK
*
FLDT10
MOVE GSWBIN1,GTKTTYP
IB GSWBIN1, C
FLDT105,FLDT105,FLDT102,FLDT108,FLDT108
FLDT102
B FLDTOK
FLDT105
CMP GTUSED(CBIN2),CBIN0
BNE FLDTOK
B FLDTNOK
FLDT108
CMP GTUSED(CBIN2),CBIN0
BNE FLDTOK
MOVE SPBINW4,=W'26'
PERF SPERR
CMP SPBINW2,CBIN2
BE FLDTOK KOR-KEY
MOVE SPBINW4,CBIN0
B FLDTNOK NOT KOR-KEY
*
FLDT45
PERF FLDIN,CBIN3,CBIN4,CBIN5,CBIN0 FIELD 55,56,57
CBE GSWBIN1,CBIN1,FLDTOK
B FLDTNOK
*
FLDT50
PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28
CBE GSWBIN1,CBIN1,FLDTOK
B FLDTNOK
*
FLDT52
PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28
CBNE GSWBIN1,CBIN1,FLDTNOK
PERF FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40
CBE GSWBIN1,CBIN2,FLDT525
PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45
CBNE GSWBIN1,CBIN0,FLDTNOK
FLDT525
CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46
CBE GTUSED(CBIN20),CBIN0,FLDTNOK FIELD 43
FLDT527
CBE GTUSED(CBIN1),CBIN0,FLDTOK FIELD 28
CBNE GTUSED(CBIN15),CBIN0,FLDTNOK FIELD 48
B FLDTOK
*
FLDT53
CBNE GTUSED(CBIN12),CBIN0,FLDT535 FIELD 47
PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45
CBNE GSWBIN1,CBIN0,FLDTNOK
FLDT535
CBNE GTUSED(CBIN7),CBIN0,FLDT537 FIELD 40
CBNE GTUSED(CBIN12),CBIN0,FLDTNOK FIELD 47
FLDT537
CBE GTUSED(CBIN1),CBIN0,FLDTOK FIELD 28
CBNE GTUSED(CBIN15),CBIN0,FLDTNOK FIELD 48
B FLDTOK
*
FLDT54
CBE GTUSED(CBIN1),CBIN0,FLDTOK FIELD 28
CBNE GTUSED(CBIN15),CBIN0,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,CBIN0
CBE FML1,CBIN0,FLD1
CBE GTUSED(FML1),CBIN0,FLD1
ADD GSWBIN1,CBIN1
FLD1
CBE FML2,CBIN0,FLD2
CBE GTUSED(FML2),CBIN0,FLD2
ADD GSWBIN1,CBIN1
FLD2
CBE FML3,CBIN0,FLD3
CBE GTUSED(FML3),CBIN0,FLD3
ADD GSWBIN1,CBIN1
FLD3
CBE FML4,CBIN0,FLD5
CBE GTUSED(FML4),CBIN0,FLD5
ADD GSWBIN1,CBIN1
FLD5
RET
PEND
*
*
END
0x0000…0020 (0, 0, 398) Head {h00=0x001c, h01=0x0050, text=» IDENT RGSUB1 830907 EV «, 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…0088 Head {h00=0x001c, h01=0x0050, text=» ENTRY FLDTST «, t00=0x0000, t01=0x006c}
0x0088…009e Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDAKK «, t00=0x0000, t01=0x008c}
0x009e…00a6 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00a2}
0x00a6…00ae Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00aa}
0x00ae…00b6 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00b2}
0x00b6…00ca Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0000, t01=0x00ba}
0x00ca…00ea Head {h00=0x001c, h01=0x0050, text=» EXT WRITFD «, t00=0x0000, t01=0x00ce}
0x00ea…010a Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0000, t01=0x00ee}
0x010a…012a Head {h00=0x001c, h01=0x0050, text=» EXT WRITJT «, t00=0x0000, t01=0x010e}
0x012a…013e Head {h00=0x0010, h01=0x0050, text=» EXT WRITLO «, t00=0x0000, t01=0x012e}
0x013e…0152 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0000, t01=0x0142}
0x0152…0166 Head {h00=0x0010, h01=0x0050, text=» EXT KFWRIT «, t00=0x0000, t01=0x0156}
0x0166…017a Head {h00=0x0010, h01=0x0050, text=» EXT FRMTJT «, t00=0x0000, t01=0x016a}
0x017a…018e Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0000, t01=0x017e}
0x018e…01a2 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT WTALLY «, t00=0x0001, t01=0x0004}
0x01a2…01b6 Head {h00=0x0010, h01=0x0050, text=» EXT FRMTVO «, t00=0x0001, t01=0x0018}
0x01b6…01ca Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0001, t01=0x002c}
0x01ca…01dc Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0040}
0x01dc…01f0 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x0052}
0x01f0…0204 Head {h00=0x0010, h01=0x0050, text=» EXT REPL00 «, t00=0x0001, t01=0x0066}
0x0204…021c Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x007a}
0x021c…022a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0092}
0x022a…0240 Head {h00=0x0012, h01=0x0050, text=»SLUT PROC «, t00=0x0001, t01=0x00a0}
0x0240…0262 Head {h00=0x001e, h01=0x0050, text=»** SLUT - PACKS THE BUFFER«, t00=0x0001, t01=0x00b6}
0x0262…027c Head {h00=0x0016, h01=0x0050, text=»** WRITES TO DISK «, t00=0x0001, t01=0x00d8}
0x027c…0294 Head {h00=0x0014, h01=0x0050, text=»** WRITE JOURNAL«, t00=0x0001, t01=0x00f2}
0x0294…02ac Head {h00=0x0014, h01=0x0050, text=»** WRITE VOUCHER«, t00=0x0001, t01=0x010a}
0x02ac…02cc Head {h00=0x001c, h01=0x0050, text=»** UPDATE ACCUMULATE=ORS«, t00=0x0001, t01=0x0122}
0x02cc…02d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0142}
0x02d6…0300 Head {h00=0x0026, h01=0x0050, text=» TBT TTINVFLG,SLUT30 IF IN MODPOST«, t00=0x0001, t01=0x014c}
0x0300…032e Head {h00=0x002a, h01=0x0050, text=»* FIND CORRECT ARKIV KONTO NR«, t00=0x0001, t01=0x0176}
0x032e…0354 Head {h00=0x0022, h01=0x0050, text=» MOVE TTDBKRM,=C'K' IF KREDIT «, t00=0x0002, t01=0x0014}
0x0354…0376 Head {h00=0x001e, h01=0x0050, text=» CBE TTDKDEX,CBIN1,SLUT10 «, t00=0x0002, t01=0x003a}
0x0376…039a Head {h00=0x0020, h01=0x0050, text=» MOVE TTDBKRM,=C'D' IF DEBET«, t00=0x0002, t01=0x005c}
0x039a…03a8 Head {h00=0x000a, h01=0x0050, text=»SLUT10«, t00=0x0002, t01=0x0080}
0x03a8…03c4 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SLUT30 «, t00=0x0002, t01=0x008e}
0x03c4…03e0 Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SLUT30«, t00=0x0002, t01=0x00aa}
0x03e0…040e Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3 «, t00=0x0002, t01=0x00c6}
0x040e…043c Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4 «, t00=0x0002, t01=0x00f4}
0x043c…0460 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0002, t01=0x0122}
0x0460…0482 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN9),CBIN13«, t00=0x0002, t01=0x0146}
0x0482…04b0 Head {h00=0x002a, h01=0x0050, text=» CBNE TTARKSAV,=D'0',SLUT30 NO ARKIV? «, t00=0x0002, t01=0x0168}
0x04b0…04d4 Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN1)«, t00=0x0003, t01=0x0008}
0x04d4…04f8 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0003, t01=0x002c}
0x04f8…0506 Head {h00=0x000a, h01=0x0050, text=»SLUT30«, t00=0x0003, t01=0x0050}
0x0506…053c Head {h00=0x0032, h01=0x0050, text=»* INSERT 'REGNSKABSAAR IF TRANSTYPES 1,2,5-10 «, t00=0x0003, t01=0x005e}
0x053c…0560 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGDEX,CBIN10,SLUT50 «, t00=0x0003, t01=0x0094}
0x0560…0582 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN3,SLUT50«, t00=0x0003, t01=0x00b8}
0x0582…05a4 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN4,SLUT50«, t00=0x0003, t01=0x00da}
0x05a4…05bc Head {h00=0x0014, h01=0x0050, text=»* TYPES 1,2,5-10«, t00=0x0003, t01=0x00fc}
0x05bc…05f6 Head {h00=0x0036, h01=0x0050, text=» CBNE GTREGDEX,CBIN10,SLUT34 TRANS10 ALWAYS SUPPL «, t00=0x0003, t01=0x0114}
0x05f6…0612 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUPMRK,=C'G'«, t00=0x0003, t01=0x014e}
0x0612…0624 Head {h00=0x000e, h01=0x0050, text=» B SLUT37 «, t00=0x0003, t01=0x016a}
0x0624…0632 Head {h00=0x000a, h01=0x0050, text=»SLUT34«, t00=0x0003, t01=0x017c}
0x0632…064e Head {h00=0x0018, h01=0x0050, text=» TBT TTSUPFLG,SLUT35«, t00=0x0003, t01=0x018a}
0x064e…066a Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUPMRK,=C' '«, t00=0x0004, t01=0x0016}
0x066a…067c Head {h00=0x000e, h01=0x0050, text=» B SLUT50 «, t00=0x0004, t01=0x0032}
0x067c…068a Head {h00=0x000a, h01=0x0050, text=»SLUT35«, t00=0x0004, t01=0x0044}
0x068a…06ac Head {h00=0x001e, h01=0x0050, text=» CBE TTSUPMRK,=C'N',SLUT36«, t00=0x0004, t01=0x0052}
0x06ac…06ce Head {h00=0x001e, h01=0x0050, text=» CBE TTSUPMRK,=C'G',SLUT37«, t00=0x0004, t01=0x0074}
0x06ce…06e0 Head {h00=0x000e, h01=0x0050, text=» B SLUT50 «, t00=0x0004, t01=0x0096}
0x06e0…06ee Head {h00=0x000a, h01=0x0050, text=»SLUT36«, t00=0x0004, t01=0x00a8}
0x06ee…0710 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTDATO«, t00=0x0004, t01=0x00b6}
0x0710…0738 Head {h00=0x0024, h01=0x0050, text=» ADD GTDUPF(CBIN6),=D'1' FORSUPP«, t00=0x0004, t01=0x00d8}
0x0738…074a Head {h00=0x000e, h01=0x0050, text=» B SLUT40 «, t00=0x0004, t01=0x0100}
0x074a…0758 Head {h00=0x000a, h01=0x0050, text=»SLUT37«, t00=0x0004, t01=0x0112}
0x0758…0784 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTDATO GET DATE «, t00=0x0004, t01=0x0120}
0x0784…07b4 Head {h00=0x002c, h01=0x0050, text=» SUB GTDUPF(CBIN6),=D'1' SUB 1 FROM YEAR«, t00=0x0004, t01=0x014c}
0x07b4…07c2 Head {h00=0x000a, h01=0x0050, text=»SLUT40«, t00=0x0004, t01=0x017c}
0x07c2…07f8 Head {h00=0x0032, h01=0x0050, text=» MOVE TSWBCD2,GTDUPF(CBIN6) ISOLATE LAST DIGIT«, t00=0x0004, t01=0x018a}
0x07f8…081c Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TSWBCD2 «, t00=0x0005, t01=0x0030}
0x081c…084c Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(CBIN6),CBIN10 SET FIELD NO«, t00=0x0005, t01=0x0054}
0x084c…085a Head {h00=0x000a, h01=0x0050, text=»SLUT50«, t00=0x0005, t01=0x0084}
0x085a…0880 Head {h00=0x0022, h01=0x0050, text=» ADD TTLBNR,=D'1' EKSP. LB. NR«, t00=0x0005, t01=0x0092}
0x0880…089e Head {h00=0x001a, h01=0x0050, text=» PERF WRITFD «, t00=0x0005, t01=0x00b8}
0x089e…08b4 Head {h00=0x0012, h01=0x0050, text=» BNOK SLUTNOK «, t00=0x0005, t01=0x00d6}
0x08b4…08de Head {h00=0x0026, h01=0x0050, text=» PERF SUMWRT WRITE SUM OR RESTSUM «, t00=0x0005, t01=0x00ec}
0x08de…0906 Head {h00=0x0024, h01=0x0050, text=» TBF GTKASSE,SLUT60 ON JOURNAL?«, t00=0x0005, t01=0x0116}
0x0906…091a Head {h00=0x0010, h01=0x0050, text=» PERF FRMTJT«, t00=0x0005, t01=0x013e}
0x091a…0934 Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'0'«, t00=0x0005, t01=0x0152}
0x0934…0942 Head {h00=0x000a, h01=0x0050, text=»SLUT60«, t00=0x0005, t01=0x016c}
0x0942…0956 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTVO«, t00=0x0005, t01=0x017a}
0x0956…0974 Head {h00=0x001a, h01=0x0050, text=» PERF WRITVO «, t00=0x0005, t01=0x018e}
0x0974…098e Head {h00=0x0016, h01=0x0050, text=»* TEST IF IN LISTE«, t00=0x0006, t01=0x001c}
0x098e…09aa Head {h00=0x0018, h01=0x0050, text=» TBF TTLSTFLG,SLUT80«, t00=0x0006, t01=0x0036}
0x09aa…09c4 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN4«, t00=0x0006, t01=0x0052}
0x09c4…09d8 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0006, t01=0x006c}
0x09d8…09e6 Head {h00=0x000a, h01=0x0050, text=»SLUT70«, t00=0x0006, t01=0x0080}
0x09e6…0a18 Head {h00=0x002e, h01=0x0050, text=» CBL GTREGDEX,=D'8',SLUT80 ONLY TRANS 8/9 «, t00=0x0006, t01=0x008e}
0x0a18…0a3a Head {h00=0x001e, h01=0x0050, text=» CBG GTREGDEX,=D'9',SLUT80«, t00=0x0006, t01=0x00c0}
0x0a3a…0a66 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN21 LINE 2 TRANS 8-9«, t00=0x0006, t01=0x00e2}
0x0a66…0a7a Head {h00=0x0010, h01=0x0050, text=» PERF WRITVO«, t00=0x0006, t01=0x010e}
0x0a7a…0aac Head {h00=0x002e, h01=0x0050, text=» TBF TFELT90,SLUT80 ANY OF 90-94 PRESENT? «, t00=0x0006, t01=0x0122}
0x0aac…0ad2 Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,GTFELT90(CBIN1) «, t00=0x0006, t01=0x0154}
0x0ad2…0af6 Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,SPINPUT,CBIN22 «, t00=0x0006, t01=0x017a}
0x0af6…0b26 Head {h00=0x002c, h01=0x0050, text=» CBE GSWBIN7,CBIN22,SLUT80 EMPTY FELT 90«, t00=0x0007, t01=0x000e}
0x0b26…0b4c Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,GTFELT90(CBIN2) «, t00=0x0007, t01=0x003e}
0x0b4c…0b70 Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,SPINPUT,CBIN22 «, t00=0x0007, t01=0x0064}
0x0b70…0b92 Head {h00=0x001e, h01=0x0050, text=» PERF FRMXVO,CBIN22 VOX22 «, t00=0x0007, t01=0x0088}
0x0b92…0ba6 Head {h00=0x0010, h01=0x0050, text=» PERF WRITVO«, t00=0x0007, t01=0x00aa}
0x0ba6…0bc4 Head {h00=0x001a, h01=0x0050, text=»* TEST FOR FELT 92-93 «, t00=0x0007, t01=0x00be}
0x0bc4…0bea Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,GTFELT90(CBIN3) «, t00=0x0007, t01=0x00dc}
0x0bea…0c0e Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,SPINPUT,CBIN22 «, t00=0x0007, t01=0x0102}
0x0c0e…0c40 Head {h00=0x002e, h01=0x0050, text=» CBE GSWBIN7,CBIN22,SLUT80 22 ZEROES FOUND«, t00=0x0007, t01=0x0126}
0x0c40…0c66 Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,GTFELT90(CBIN4) «, t00=0x0007, t01=0x0158}
0x0c66…0c8a Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,SPINPUT,CBIN22«, t00=0x0007, t01=0x017e}
0x0c8a…0ca6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x0008, t01=0x0012}
0x0ca6…0cc2 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,GSWBIN1«, t00=0x0008, t01=0x002e}
0x0cc2…0cd6 Head {h00=0x0010, h01=0x0050, text=» PERF WRITVO«, t00=0x0008, t01=0x004a}
0x0cd6…0cfa Head {h00=0x0020, h01=0x0050, text=»* LAST BUT NOT LEAST FELT 94«, t00=0x0008, t01=0x005e}
0x0cfa…0d20 Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,GTFELT90(CBIN5) «, t00=0x0008, t01=0x0082}
0x0d20…0d44 Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,SPINPUT,CBIN22 «, t00=0x0008, t01=0x00a8}
0x0d44…0d6e Head {h00=0x0026, h01=0x0050, text=» CBE GSWBIN7,CBIN22,SLUT80 NOTUSED«, t00=0x0008, t01=0x00cc}
0x0d6e…0d8a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'24'«, t00=0x0008, t01=0x00f6}
0x0d8a…0da6 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,GSWBIN1«, t00=0x0008, t01=0x0112}
0x0da6…0dba Head {h00=0x0010, h01=0x0050, text=» PERF WRITVO«, t00=0x0008, t01=0x012e}
0x0dba…0dc8 Head {h00=0x000a, h01=0x0050, text=»SLUT80«, t00=0x0008, t01=0x0142}
0x0dc8…0de6 Head {h00=0x001a, h01=0x0050, text=» PERF UPDAKK «, t00=0x0008, t01=0x0150}
0x0de6…0dfc Head {h00=0x0012, h01=0x0050, text=» SET GTKORTFL «, t00=0x0008, t01=0x016e}
0x0dfc…0e1a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0008, t01=0x0184}
0x0e1a…0e32 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0009, t01=0x0012}
0x0e32…0e5e Head {h00=0x0028, h01=0x0050, text=» SLUT90,SLUT95,SLUT95,SLUT95,SLUT90«, t00=0x0009, t01=0x002a}
0x0e5e…0e6c Head {h00=0x000a, h01=0x0050, text=»SLUT90«, t00=0x0009, t01=0x0056}
0x0e6c…0e84 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0009, t01=0x0064}
0x0e84…0e92 Head {h00=0x000a, h01=0x0050, text=»SLUT95«, t00=0x0009, t01=0x007c}
0x0e92…0eaa Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY0FLG «, t00=0x0009, t01=0x008a}
0x0eaa…0ec0 Head {h00=0x0012, h01=0x0050, text=» SET TTEORFLG «, t00=0x0009, t01=0x00a2}
0x0ec0…0ee8 Head {h00=0x0024, h01=0x0050, text=» CLEAR SPME READY FOR FUNCTIONS «, t00=0x0009, t01=0x00b8}
0x0ee8…0f00 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTREGFLG «, t00=0x0009, t01=0x00e0}
0x0f00…0f24 Head {h00=0x0020, h01=0x0050, text=» CBNE GTREGDEX,CBIN10,SLUT96«, t00=0x0009, t01=0x00f8}
0x0f24…0f42 Head {h00=0x001a, h01=0x0050, text=» MOVE TTSUPMRK,CBLANKS«, t00=0x0009, t01=0x011c}
0x0f42…0f50 Head {h00=0x000a, h01=0x0050, text=»SLUT96«, t00=0x0009, t01=0x013a}
0x0f50…0f74 Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SETCR=0«, t00=0x0009, t01=0x0148}
0x0f74…0f80 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x016c}
0x0f80…0f90 Head {h00=0x000c, h01=0x0050, text=»SLUTNOK «, t00=0x0009, t01=0x0178}
0x0f90…0fbe Head {h00=0x002a, h01=0x0050, text=» SUB TTLBNR,=D'1' CHANGE LB. NR. AFTER«, t00=0x0009, t01=0x0188}
0x0fbe…0fd4 Head {h00=0x0012, h01=0x0050, text=» DISK ERROR «, t00=0x000a, t01=0x0026}
0x0fd4…0ff0 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN17«, t00=0x000a, t01=0x003c}
0x0ff0…1008 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x000a, t01=0x0058}
0x1008…101c Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0070}
0x101c…1032 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0084}
0x1032…1040 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x009a}
0x1040…1054 Head {h00=0x0010, h01=0x0050, text=»SUMWRT PROC «, t00=0x000a, t01=0x00a8}
0x1054…1070 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x00bc}
0x1070…107a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d8}
0x107a…10b6 Head {h00=0x0038, h01=0x0050, text=»** SUMWRT - CALCULATE AND WRITE SUM/RESTSUM«, t00=0x000a, t01=0x00e2}
0x10b6…10c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011e}
0x10c0…10dc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x0128}
0x10dc…1104 Head {h00=0x0024, h01=0x0050, text=» TBF TTSUMFLG,SUMRET ONLY IF SUM«, t00=0x000a, t01=0x0144}
0x1104…1120 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SUMADD «, t00=0x000a, t01=0x016c}
0x1120…113c Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SUMADD«, t00=0x000a, t01=0x0188}
0x113c…1172 Head {h00=0x0032, h01=0x0050, text=» SUB GTSUM,GTDUPF(CBIN4) CALCULATE NEW RESTSUM«, t00=0x000b, t01=0x0014}
0x1172…1196 Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x000b, t01=0x004a}
0x1196…11a8 Head {h00=0x000e, h01=0x0050, text=» B SUMOUT «, t00=0x000b, t01=0x006e}
0x11a8…11b6 Head {h00=0x000a, h01=0x0050, text=»SUMADD«, t00=0x000b, t01=0x0080}
0x11b6…11e8 Head {h00=0x002e, h01=0x0050, text=» ADD GTSUM,GTDUPF(CBIN4) CALCULATE NEW SUM«, t00=0x000b, t01=0x008e}
0x11e8…120c Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x000b, t01=0x00c0}
0x120c…121a Head {h00=0x000a, h01=0x0050, text=»SUMOUT«, t00=0x000b, t01=0x00e4}
0x121a…123a Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN4,CBIN2«, t00=0x000b, t01=0x00f2}
0x123a…1248 Head {h00=0x000a, h01=0x0050, text=»SUMRET«, t00=0x000b, t01=0x0112}
0x1248…1286 Head {h00=0x003a, h01=0x0050, text=» ADD GTSUMCNT,GTDUPF(CBIN4) ALWAYS ADD TO SUMFUNCTION «, t00=0x000b, t01=0x0120}
0x1286…1292 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x015e}
0x1292…12a0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x016a}
0x12a0…12b6 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0178}
0x12b6…12cc Head {h00=0x0012, h01=0x0050, text=»UPDAKK PROC «, t00=0x000b, t01=0x018e}
0x12cc…12e8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0014}
0x12e8…12f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f2…130a Head {h00=0x0014, h01=0x0050, text=»* UPDAKK «, t00=0x000c, t01=0x003a}
0x130a…133e Head {h00=0x0030, h01=0x0050, text=»* ROUTINE FOR UPDATING ACCUMULATORS «, t00=0x000c, t01=0x0052}
0x133e…1348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0086}
0x1348…137c Head {h00=0x0030, h01=0x0050, text=»* TR1-TR10 UPDATES TTACC(IDX1,IDX2) «, t00=0x000c, t01=0x0090}
0x137c…13a0 Head {h00=0x0020, h01=0x0050, text=»* IDX1 = TRNR«, t00=0x000c, t01=0x00c4}
0x13a0…13c6 Head {h00=0x0022, h01=0x0050, text=»* IDX2 = DEB/KRE«, t00=0x000c, t01=0x00e8}
0x13c6…13f8 Head {h00=0x002e, h01=0x0050, text=»* TR12 UPDATES TTACC12(IDX1,IDX2) «, t00=0x000c, t01=0x010e}
0x13f8…1422 Head {h00=0x0026, h01=0x0050, text=»* IDX1 = TAELLER NR«, t00=0x000c, t01=0x0140}
0x1422…144a Head {h00=0x0024, h01=0x0050, text=»* IDX2 = DEB/KRE «, t00=0x000c, t01=0x016a}
0x144a…1454 (13, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0004}
0x1454…148c Head {h00=0x0034, h01=0x0050, text=»* ALL TRANSACTIONS UPDATE TTTOTDK(IDX2) «, t00=0x000d, t01=0x000e}
0x148c…14c6 Head {h00=0x0036, h01=0x0050, text=»* AND IF INVERT TTKORDK(IDX2)«, t00=0x000d, t01=0x0046}
0x14c6…14d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0080}
0x14d0…14ec Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x008a}
0x14ec…1518 Head {h00=0x0028, h01=0x0050, text=» CBNE GTREGNR,='12',UPD20«, t00=0x000d, t01=0x00a6}
0x1518…1556 Head {h00=0x003a, h01=0x0050, text=» PERF UPDA12 TAELLER 12 «, t00=0x000d, t01=0x00d2}
0x1556…1576 Head {h00=0x001c, h01=0x0050, text=» B UPDRET «, t00=0x000d, t01=0x0110}
0x1576…1584 Head {h00=0x000a, h01=0x0050, text=»UPD20 «, t00=0x000d, t01=0x0130}
0x1584…15ba Head {h00=0x0032, h01=0x0050, text=» CBG GTREGNR,=D'30',UPDRET NO ACCUMULATION FOR«, t00=0x000d, t01=0x013e}
0x15ba…15da Head {h00=0x001c, h01=0x0050, text=» CERTAIN TRANSACTIONS «, t00=0x000d, t01=0x0174}
0x15da…1610 (14, 0, 398) Head {h00=0x0032, h01=0x0050, text=» CBNE GTUSED(CBIN6),CBIN10,UPD30 REGNSKABSAAR «, t00=0x000e, t01=0x0004}
0x1610…163e Head {h00=0x002a, h01=0x0050, text=» MOVE TSWBCD2,GTDATO GET CURRENT YEAR «, t00=0x000e, t01=0x003a}
0x163e…1672 Head {h00=0x0030, h01=0x0050, text=» SUB TSWBCD2,GTDUPF(CBIN6) SUB REGNSKABSAAR «, t00=0x000e, t01=0x0068}
0x1672…168e Head {h00=0x0018, h01=0x0050, text=» BZ UPD30 SAME YEAR «, t00=0x000e, t01=0x009c}
0x168e…169c Head {h00=0x000a, h01=0x0050, text=»UPD25 «, t00=0x000e, t01=0x00b8}
0x169c…16cc Head {h00=0x002c, h01=0x0050, text=» ADD TTACC(CBIN8,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000e, t01=0x00c6}
0x16cc…16ea Head {h00=0x001a, h01=0x0050, text=» UPDATE SUPL COUNTER«, t00=0x000e, t01=0x00f6}
0x16ea…16f8 Head {h00=0x000a, h01=0x0050, text=»UPD30 «, t00=0x000e, t01=0x0114}
0x16f8…1714 Head {h00=0x0018, h01=0x0050, text=» TBT GTTESTFL,UPD38 «, t00=0x000e, t01=0x0122}
0x1714…1742 Head {h00=0x002a, h01=0x0050, text=»* ACCUMULATE 'BEHOLDNINGSTAELLERE'«, t00=0x000e, t01=0x013e}
0x1742…175e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x000e, t01=0x016c}
0x175e…176c Head {h00=0x000a, h01=0x0050, text=»UPD35 «, t00=0x000e, t01=0x0188}
0x176c…17a8 Head {h00=0x0038, h01=0x0050, text=» CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO? «, t00=0x000f, t01=0x0008}
0x17a8…17e6 Head {h00=0x003a, h01=0x0050, text=» CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND? «, t00=0x000f, t01=0x0044}
0x17e6…17f4 Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x000f, t01=0x0082}
0x17f4…1824 Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN2),GTDUPF(CBIN4) «, t00=0x000f, t01=0x0090}
0x1824…1854 Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN3),GTDUPF(CBIN4) «, t00=0x000f, t01=0x00c0}
0x1854…1862 Head {h00=0x000a, h01=0x0050, text=»UPD36 «, t00=0x000f, t01=0x00f0}
0x1862…1892 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN1,CBIN1 LOOK AT NEXT COUNTER «, t00=0x000f, t01=0x00fe}
0x1892…18b4 Head {h00=0x001e, h01=0x0050, text=» CBNG GSWBIN1,=W'60',UPD35«, t00=0x000f, t01=0x012e}
0x18b4…18c2 Head {h00=0x000a, h01=0x0050, text=»UPD38 «, t00=0x000f, t01=0x0150}
0x18c2…18f4 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN1,CCNTDEX(GTREGDEX) GET INDEX «, t00=0x000f, t01=0x015e}
0x18f4…1932 Head {h00=0x003a, h01=0x0050, text=» ADD TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000f, t01=0x0190}
0x1932…1978 Head {h00=0x0042, h01=0x0050, text=» UPDATE ACCUMULATOR «, t00=0x0010, t01=0x003e}
0x1978…19a6 Head {h00=0x002a, h01=0x0050, text=» IB TTDKDEX,UPDKR,UPDDB SEE IF INVERT «, t00=0x0010, t01=0x0084}
0x19a6…19b4 Head {h00=0x000a, h01=0x0050, text=»UPDDB «, t00=0x0010, t01=0x00b2}
0x19b4…19f8 Head {h00=0x0040, h01=0x0050, text=» CBNL GTDUPF(CBIN4),='0',UPD50 IF NEGATIVE DEBET«, t00=0x0010, t01=0x00c0}
0x19f8…1a32 Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x0010, t01=0x0104}
0x1a32…1a42 Head {h00=0x000c, h01=0x0050, text=» B UPD50«, t00=0x0010, t01=0x013e}
0x1a42…1a50 Head {h00=0x000a, h01=0x0050, text=»UPDKR «, t00=0x0010, t01=0x014e}
0x1a50…1a8c Head {h00=0x0038, h01=0x0050, text=» CBNG GTDUPF(CBIN4),=D'0',UPD50 IF POSITIVE KREDIT, «, t00=0x0010, t01=0x015c}
0x1a8c…1ac6 Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x0011, t01=0x0008}
0x1ac6…1ad4 Head {h00=0x000a, h01=0x0050, text=»UPD50 «, t00=0x0011, t01=0x0042}
0x1ad4…1b04 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CBIN4,UPDRET IF COUNTER 5,6«, t00=0x0011, t01=0x0050}
0x1b04…1b4c Head {h00=0x0044, h01=0x0050, text=» TBT GTTFLG,UPDRET WHEN CLOSE, NO UPDATE«, t00=0x0011, t01=0x0080}
0x1b4c…1b66 Head {h00=0x0016, h01=0x0050, text=» TBT CWFLAG,UPD56 «, t00=0x0011, t01=0x00c8}
0x1b66…1ba8 Head {h00=0x003e, h01=0x0050, text=» CBE TTCASHAC,GTDUPF(CBIN1),UPD54 IF KASSEKONTO,NO UPDATE «, t00=0x0011, t01=0x00e2}
0x1ba8…1be6 Head {h00=0x003a, h01=0x0050, text=» CBE TVERSUR,GTDUPF(CBIN1),UPD54 IF VERSUR, NO UPDATE «, t00=0x0011, t01=0x0124}
0x1be6…1bf6 Head {h00=0x000c, h01=0x0050, text=» B UPD55«, t00=0x0011, t01=0x0162}
0x1bf6…1c04 Head {h00=0x000a, h01=0x0050, text=»UPD54 «, t00=0x0011, t01=0x0172}
0x1c04…1c28 Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0011, t01=0x0180}
0x1c28…1c38 Head {h00=0x000c, h01=0x0050, text=» B UPD56«, t00=0x0012, t01=0x0014}
0x1c38…1c46 Head {h00=0x000a, h01=0x0050, text=»UPD55 «, t00=0x0012, t01=0x0024}
0x1c46…1c62 Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x0012, t01=0x0032}
0x1c62…1c70 Head {h00=0x000a, h01=0x0050, text=»UPD56 «, t00=0x0012, t01=0x004e}
0x1c70…1c7e Head {h00=0x000a, h01=0x0050, text=»UPD60 «, t00=0x0012, t01=0x005c}
0x1c7e…1cac Head {h00=0x002a, h01=0x0050, text=» CBG GTREGNR,=D'17',UPDRET«, t00=0x0012, t01=0x006a}
0x1cac…1cda Head {h00=0x002a, h01=0x0050, text=» SUB TTCASH,GTDUPF(CBIN4) «, t00=0x0012, t01=0x0098}
0x1cda…1cfa Head {h00=0x001c, h01=0x0050, text=» B UPDRET «, t00=0x0012, t01=0x00c6}
0x1cfa…1d08 Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x0012, t01=0x00e6}
0x1d08…1d14 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x00f4}
0x1d14…1d2a Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0100}
0x1d2a…1d40 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0116}
0x1d40…1d56 Head {h00=0x0012, h01=0x0050, text=»UPDA12 PROC «, t00=0x0012, t01=0x012c}
0x1d56…1d72 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x0142}
0x1d72…1d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015e}
0x1d7c…1da6 Head {h00=0x0026, h01=0x0050, text=»* UPDA12 - UPDATE FOR TR12 «, t00=0x0012, t01=0x0168}
0x1da6…1db0 (19, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0004}
0x1db0…1dcc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0013, t01=0x000e}
0x1dcc…1e0a Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR TAELLER NR «, t00=0x0013, t01=0x002a}
0x1e0a…1e30 Head {h00=0x0022, h01=0x0050, text=» SUB GSWBIN1,=W'100' GET INDEX«, t00=0x0013, t01=0x0068}
0x1e30…1e5a Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0013, t01=0x008e}
0x1e5a…1e98 Head {h00=0x003a, h01=0x0050, text=» ADD C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)«, t00=0x0013, t01=0x00b8}
0x1e98…1eba Head {h00=0x001e, h01=0x0050, text=» ADD TTEJEDB,GTDUPF(CBIN4)«, t00=0x0013, t01=0x00f6}
0x1eba…1ef2 Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT«, t00=0x0013, t01=0x0118}
0x1ef2…1f10 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,GSWBIN1 «, t00=0x0013, t01=0x0150}
0x1f10…1f48 Head {h00=0x0034, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED «, t00=0x0013, t01=0x016e}
0x1f48…1f76 Head {h00=0x002a, h01=0x0050, text=» MOVE GTKFVAL,C12ACC(GSWBIN7,TTDKDEX) «, t00=0x0014, t01=0x0016}
0x1f76…1fa8 Head {h00=0x002e, h01=0x0050, text=» PERF KFWRIT,CBIN1,TTDKDEX,GSWBIN7,GTKFVAL«, t00=0x0014, t01=0x0044}
0x1fa8…1fbc Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0014, t01=0x0076}
0x1fbc…1fd2 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x008a}
0x1fd2…1fe8 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00a0}
0x1fe8…1ffe Head {h00=0x0012, h01=0x0050, text=»FLDTST PROC «, t00=0x0014, t01=0x00b6}
0x1ffe…201a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0014, t01=0x00cc}
0x201a…2024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e8}
0x2024…2060 Head {h00=0x0038, h01=0x0050, text=»* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT«, t00=0x0014, t01=0x00f2}
0x2060…2088 Head {h00=0x0024, h01=0x0050, text=»* FELT AFHAENGIGHEDS TEST«, t00=0x0014, t01=0x012e}
0x2088…2092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0156}
0x2092…20ae Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0014, t01=0x0160}
0x20ae…20d6 Head {h00=0x0024, h01=0x0050, text=» PERF PACKST CLEAR UNUSED FIELDS«, t00=0x0014, t01=0x017c}
0x20d6…20fc Head {h00=0x0022, h01=0x0050, text=» IB GTREGDEX, C «, t00=0x0015, t01=0x0014}
0x20fc…212c Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK, C«, t00=0x0015, t01=0x003a}
0x212c…215c Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT08,FLDT09,FLDT10, C«, t00=0x0015, t01=0x006a}
0x215c…219c Head {h00=0x003c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDTOK,FLDTOK,FLDT45, C «, t00=0x0015, t01=0x009a}
0x219c…21dc Head {h00=0x003c, h01=0x0050, text=» FLDT45,FLDTOK,FLDTOK,FLDTOK,FLDT50, C «, t00=0x0015, t01=0x00da}
0x21dc…2210 Head {h00=0x0030, h01=0x0050, text=» FLDT50,FLDT52,FLDT53,FLDT54«, t00=0x0015, t01=0x011a}
0x2210…221a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014e}
0x221a…2228 Head {h00=0x000a, h01=0x0050, text=»FLDT03«, t00=0x0015, t01=0x0158}
0x2228…225c Head {h00=0x0030, h01=0x0050, text=» CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16? «, t00=0x0015, t01=0x0166}
0x225c…228e Head {h00=0x002e, h01=0x0050, text=»* YES, RTE/GEB, INSERT TEXT IN TT16TXT«, t00=0x0016, t01=0x000a}
0x228e…22bc Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTDUPF(CBIN12) GET FIELD«, t00=0x0016, t01=0x003c}
0x22bc…22e0 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'0',FLDT031 «, t00=0x0016, t01=0x006a}
0x22e0…2304 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RAT' IF = 0«, t00=0x0016, t01=0x008e}
0x2304…2316 Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0016, t01=0x00b2}
0x2316…2326 Head {h00=0x000c, h01=0x0050, text=»FLDT031 «, t00=0x0016, t01=0x00c4}
0x2326…234a Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'1',FLDT032 «, t00=0x0016, t01=0x00d4}
0x234a…236e Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RTE' IF = 1«, t00=0x0016, t01=0x00f8}
0x236e…2380 Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0016, t01=0x011c}
0x2380…2390 Head {h00=0x000c, h01=0x0050, text=»FLDT032 «, t00=0x0016, t01=0x012e}
0x2390…23b4 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'2',FLDT035 «, t00=0x0016, t01=0x013e}
0x23b4…23d8 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'GEB' IF = 2«, t00=0x0016, t01=0x0162}
0x23d8…23e8 Head {h00=0x000c, h01=0x0050, text=»FLDT035 «, t00=0x0016, t01=0x0186}
0x23e8…23fc Head {h00=0x0010, h01=0x0050, text=» TEST CFLT48«, t00=0x0017, t01=0x0008}
0x23fc…241e Head {h00=0x001e, h01=0x0050, text=» BZ FLDTOK BRANCH IF FALSE«, t00=0x0017, t01=0x001c}
0x241e…2440 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN15),CBIN0 «, t00=0x0017, t01=0x003e}
0x2440…2462 Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 48 USED «, t00=0x0017, t01=0x0060}
0x2462…2498 Head {h00=0x0032, h01=0x0050, text=» MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED «, t00=0x0017, t01=0x0082}
0x2498…24cc Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1 «, t00=0x0017, t01=0x00b8}
0x24cc…24de Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0017, t01=0x00ec}
0x24de…24e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00fe}
0x24e8…24f6 Head {h00=0x000a, h01=0x0050, text=»FLDT04«, t00=0x0017, t01=0x0108}
0x24f6…252c Head {h00=0x0032, h01=0x0050, text=» TBT BCPR,FLDT041 CIR«, t00=0x0017, t01=0x0116}
0x252c…254e Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),CBIN0 «, t00=0x0017, t01=0x014c}
0x254e…2574 Head {h00=0x0022, h01=0x0050, text=» BE FLDTOK FIELD 17 (INDEX 10)«, t00=0x0017, t01=0x016e}
0x2574…2594 (24, 0, 400) Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0018, t01=0x0004}
0x2594…25ca Head {h00=0x0032, h01=0x0050, text=»FLDT041 CPR«, t00=0x0018, t01=0x0024}
0x25ca…2612 Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20«, t00=0x0018, t01=0x005a}
0x2612…262c Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN1,CBIN0«, t00=0x0018, t01=0x00a2}
0x262c…2640 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTNOK«, t00=0x0018, t01=0x00bc}
0x2640…2662 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),CBIN0 «, t00=0x0018, t01=0x00d0}
0x2662…2676 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0018, t01=0x00f2}
0x2676…2696 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0018, t01=0x0106}
0x2696…26a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0126}
0x26a0…26ae Head {h00=0x000a, h01=0x0050, text=»FLDT08«, t00=0x0018, t01=0x0130}
0x26ae…26c2 Head {h00=0x0010, h01=0x0050, text=» TEST CFLT46«, t00=0x0018, t01=0x013e}
0x26c2…26d4 Head {h00=0x000e, h01=0x0050, text=» BZ FLDT09«, t00=0x0018, t01=0x0152}
0x26d4…26f6 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN17),CBIN0 «, t00=0x0018, t01=0x0164}
0x26f6…2718 Head {h00=0x001e, h01=0x0050, text=» BNE FLDT09 FIELD 46 USED «, t00=0x0018, t01=0x0186}
0x2718…2752 Head {h00=0x0036, h01=0x0050, text=» MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED«, t00=0x0019, t01=0x0018}
0x2752…2786 Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1 «, t00=0x0019, t01=0x0052}
0x2786…2790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0086}
0x2790…279e Head {h00=0x000a, h01=0x0050, text=»FLDT09«, t00=0x0019, t01=0x0090}
0x279e…27be Head {h00=0x001c, h01=0x0050, text=»* NB. NORDJYLLANDS AMT «, t00=0x0019, t01=0x009e}
0x27be…27fa Head {h00=0x0038, h01=0x0050, text=»* AT LEAST ONE FIELD 23,24,25,26: INDEX 12,13,14,15«, t00=0x0019, t01=0x00be}
0x27fa…2816 Head {h00=0x0018, h01=0x0050, text=» TBT TFELT90,FLDTOK «, t00=0x0019, t01=0x00fa}
0x2816…2846 Head {h00=0x002c, h01=0x0050, text=» PERF FLDIN,CBIN12,CBIN13,CBIN14,CBIN15 «, t00=0x0019, t01=0x0116}
0x2846…2882 Head {h00=0x0038, h01=0x0050, text=» CBNE GSWBIN1,CBIN0,FLDTOK MORE THEN 1 FIELD PRESENT«, t00=0x0019, t01=0x0146}
0x2882…28b2 Head {h00=0x002c, h01=0x0050, text=» PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN15 «, t00=0x0019, t01=0x0182}
0x28b2…28d4 Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN1,CBIN0,FLDTOK«, t00=0x001a, t01=0x0022}
0x28d4…28e6 Head {h00=0x000e, h01=0x0050, text=» B FLDTNOK«, t00=0x001a, t01=0x0044}
0x28e6…28f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0056}
0x28f0…28fe Head {h00=0x000a, h01=0x0050, text=»FLDT10«, t00=0x001a, t01=0x0060}
0x28fe…291c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x001a, t01=0x006e}
0x291c…2934 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x001a, t01=0x008c}
0x2934…2966 Head {h00=0x002e, h01=0x0050, text=» FLDT105,FLDT105,FLDT102,FLDT108,FLDT108 «, t00=0x001a, t01=0x00a4}
0x2966…2976 Head {h00=0x000c, h01=0x0050, text=»FLDT102 «, t00=0x001a, t01=0x00d6}
0x2976…2988 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001a, t01=0x00e6}
0x2988…2998 Head {h00=0x000c, h01=0x0050, text=»FLDT105 «, t00=0x001a, t01=0x00f8}
0x2998…29b8 Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),CBIN0«, t00=0x001a, t01=0x0108}
0x29b8…29cc Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x001a, t01=0x0128}
0x29cc…29de Head {h00=0x000e, h01=0x0050, text=» B FLDTNOK«, t00=0x001a, t01=0x013c}
0x29de…29ee Head {h00=0x000c, h01=0x0050, text=»FLDT108 «, t00=0x001a, t01=0x014e}
0x29ee…2a0e Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),CBIN0«, t00=0x001a, t01=0x015e}
0x2a0e…2a22 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x001a, t01=0x017e}
0x2a22…2a3e (27, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'26'«, t00=0x001b, t01=0x0004}
0x2a3e…2a52 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x001b, t01=0x0020}
0x2a52…2a6c Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN2«, t00=0x001b, t01=0x0034}
0x2a6c…2a86 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK KOR-KEY«, t00=0x001b, t01=0x004e}
0x2a86…2aa2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN0 «, t00=0x001b, t01=0x0068}
0x2aa2…2ac0 Head {h00=0x001a, h01=0x0050, text=» B FLDTNOK NOT KOR-KEY«, t00=0x001b, t01=0x0084}
0x2ac0…2aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a2}
0x2aca…2ad8 Head {h00=0x000a, h01=0x0050, text=»FLDT45«, t00=0x001b, t01=0x00ac}
0x2ad8…2b1e Head {h00=0x0042, h01=0x0050, text=» PERF FLDIN,CBIN3,CBIN4,CBIN5,CBIN0 FIELD 55,56,57 «, t00=0x001b, t01=0x00ba}
0x2b1e…2b4c Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,CBIN1,FLDTOK «, t00=0x001b, t01=0x0100}
0x2b4c…2b6c Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x001b, t01=0x012e}
0x2b6c…2b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x014e}
0x2b76…2b84 Head {h00=0x000a, h01=0x0050, text=»FLDT50«, t00=0x001b, t01=0x0158}
0x2b84…2bc6 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28«, t00=0x001b, t01=0x0166}
0x2bc6…2be8 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN1,FLDTOK «, t00=0x001c, t01=0x0018}
0x2be8…2c08 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x001c, t01=0x003a}
0x2c08…2c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005a}
0x2c12…2c20 Head {h00=0x000a, h01=0x0050, text=»FLDT52«, t00=0x001c, t01=0x0064}
0x2c20…2c62 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 «, t00=0x001c, t01=0x0072}
0x2c62…2c90 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,CBIN1,FLDTNOK«, t00=0x001c, t01=0x00b4}
0x2c90…2cd4 Head {h00=0x0040, h01=0x0050, text=» PERF FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40 «, t00=0x001c, t01=0x00e2}
0x2cd4…2d02 Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,CBIN2,FLDT525«, t00=0x001c, t01=0x0126}
0x2d02…2d44 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45 «, t00=0x001c, t01=0x0154}
0x2d44…2d72 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,CBIN0,FLDTNOK«, t00=0x001d, t01=0x0008}
0x2d72…2d82 Head {h00=0x000c, h01=0x0050, text=»FLDT525 «, t00=0x001d, t01=0x0036}
0x2d82…2dc0 Head {h00=0x003a, h01=0x0050, text=» CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46«, t00=0x001d, t01=0x0046}
0x2dc0…2dfe Head {h00=0x003a, h01=0x0050, text=» CBE GTUSED(CBIN20),CBIN0,FLDTNOK FIELD 43«, t00=0x001d, t01=0x0084}
0x2dfe…2e0e Head {h00=0x000c, h01=0x0050, text=»FLDT527 «, t00=0x001d, t01=0x00c2}
0x2e0e…2e4a Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),CBIN0,FLDTOK FIELD 28«, t00=0x001d, t01=0x00d2}
0x2e4a…2e88 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),CBIN0,FLDTNOK FIELD 48«, t00=0x001d, t01=0x010e}
0x2e88…2ea8 Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001d, t01=0x014c}
0x2ea8…2eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x016c}
0x2eb2…2ec0 Head {h00=0x000a, h01=0x0050, text=»FLDT53«, t00=0x001d, t01=0x0176}
0x2ec0…2efe Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),CBIN0,FLDT535 FIELD 47«, t00=0x001d, t01=0x0184}
0x2efe…2f46 Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45«, t00=0x001e, t01=0x0032}
0x2f46…2f74 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,CBIN0,FLDTNOK«, t00=0x001e, t01=0x007a}
0x2f74…2f84 Head {h00=0x000c, h01=0x0050, text=»FLDT535 «, t00=0x001e, t01=0x00a8}
0x2f84…2fc2 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN7),CBIN0,FLDT537 FIELD 40 «, t00=0x001e, t01=0x00b8}
0x2fc2…3000 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),CBIN0,FLDTNOK FIELD 47«, t00=0x001e, t01=0x00f6}
0x3000…3010 Head {h00=0x000c, h01=0x0050, text=»FLDT537 «, t00=0x001e, t01=0x0134}
0x3010…304c Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),CBIN0,FLDTOK FIELD 28«, t00=0x001e, t01=0x0144}
0x304c…308a Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),CBIN0,FLDTNOK FIELD 48«, t00=0x001e, t01=0x0180}
0x308a…30aa Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001f, t01=0x002e}
0x30aa…30b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004e}
0x30b4…30c2 Head {h00=0x000a, h01=0x0050, text=»FLDT54«, t00=0x001f, t01=0x0058}
0x30c2…30fe Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),CBIN0,FLDTOK FIELD 28«, t00=0x001f, t01=0x0066}
0x30fe…313c Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),CBIN0,FLDTNOK FIELD 48«, t00=0x001f, t01=0x00a2}
0x313c…315c Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001f, t01=0x00e0}
0x315c…3166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0100}
0x3166…3174 Head {h00=0x000a, h01=0x0050, text=»FLDTOK«, t00=0x001f, t01=0x010a}
0x3174…31b2 Head {h00=0x003a, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0 OK«, t00=0x001f, t01=0x0118}
0x31b2…31c6 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001f, t01=0x0156}
0x31c6…31d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x016a}
0x31d0…31e0 Head {h00=0x000c, h01=0x0050, text=»FLDTNOK «, t00=0x001f, t01=0x0174}
0x31e0…3226 Head {h00=0x0042, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR <> 0 NOT OK«, t00=0x001f, t01=0x0184}
0x3226…323a Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0020, t01=0x003a}
0x323a…3250 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0020, t01=0x004e}
0x3250…3266 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0064}
0x3266…3292 Head {h00=0x0028, h01=0x0050, text=»FLDIN PROC FML1,FML2,FML3,FML4«, t00=0x0020, t01=0x007a}
0x3292…32ae Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x00a6}
0x32ae…32b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00c2}
0x32b8…32f2 Head {h00=0x0036, h01=0x0050, text=»* FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS«, t00=0x0020, t01=0x00cc}
0x32f2…3320 Head {h00=0x002a, h01=0x0050, text=»* (GIVEN BY INDEX) ARE PRESENT «, t00=0x0020, t01=0x0106}
0x3320…3342 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT IN GSWBIN1«, t00=0x0020, t01=0x0134}
0x3342…334c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0156}
0x334c…3368 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0160}
0x3368…338e Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,CBIN0«, t00=0x0020, t01=0x017c}
0x338e…33aa Head {h00=0x0018, h01=0x0050, text=» CBE FML1,CBIN0,FLD1«, t00=0x0021, t01=0x0012}
0x33aa…33ce Head {h00=0x0020, h01=0x0050, text=» CBE GTUSED(FML1),CBIN0,FLD1«, t00=0x0021, t01=0x002e}
0x33ce…33f4 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0021, t01=0x0052}
0x33f4…3400 Head {h00=0x0008, h01=0x0050, text=»FLD1«, t00=0x0021, t01=0x0078}
0x3400…3428 Head {h00=0x0024, h01=0x0050, text=» CBE FML2,CBIN0,FLD2«, t00=0x0021, t01=0x0084}
0x3428…3458 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML2),CBIN0,FLD2«, t00=0x0021, t01=0x00ac}
0x3458…347e Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0021, t01=0x00dc}
0x347e…348a Head {h00=0x0008, h01=0x0050, text=»FLD2«, t00=0x0021, t01=0x0102}
0x348a…34b2 Head {h00=0x0024, h01=0x0050, text=» CBE FML3,CBIN0,FLD3«, t00=0x0021, t01=0x010e}
0x34b2…34e2 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML3),CBIN0,FLD3«, t00=0x0021, t01=0x0136}
0x34e2…3508 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0021, t01=0x0166}
0x3508…3514 Head {h00=0x0008, h01=0x0050, text=»FLD3«, t00=0x0021, t01=0x018c}
0x3514…353c Head {h00=0x0024, h01=0x0050, text=» CBE FML4,CBIN0,FLD5«, t00=0x0022, t01=0x0008}
0x353c…356c Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML4),CBIN0,FLD5«, t00=0x0022, t01=0x0030}
0x356c…3592 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0022, t01=0x0060}
0x3592…359e Head {h00=0x0008, h01=0x0050, text=»FLD5«, t00=0x0022, t01=0x0086}
0x359e…35b2 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0022, t01=0x0092}
0x35b2…35c0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x00a6}
0x35c0…35ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00b4}
0x35ca…35d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00be}
0x35d4…35e8 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0022, t01=0x00c8}
0x35e8…35ec Head {h00=0x4004, h01=0x0000}
0x35ec…35f0 00 22 00 dc ┆ " ┆
0x35f0…35f8 (35, 1, 8) 20 04 00 00 00 23 00 04 ┆ # ┆
0x35f8…3648 (36, 0, 400) 41 44 4d 20 20 36 20 20 20 20 20 44 41 54 41 54 52 41 4e 53 4d 49 53 53 49 4f 4e 20 00 03 01 8a 00 20 00 50 2a 20 20 20 20 20 41 44 4d 20 20 37 20 20 20 20 20 33 32 37 30 20 4f 4e 4c 49 4e 45 00 04 00 24 00 10 00 50 2a 20 20 20 20 20 41 44 ┆ADM 6 DATATRANSMISSION P* ADM 7 3270 ONLINE $ P* AD┆
0x3648…3698 4d 20 20 38 00 04 00 48 00 26 00 50 2a 20 20 20 20 20 41 44 4d 20 20 39 20 20 20 20 20 44 45 46 41 55 4c 54 20 4c 49 4e 45 20 4e 4f 2e 20 00 04 00 5c 00 24 00 50 2a 20 20 20 20 20 41 44 4d 20 31 30 20 20 20 20 20 53 55 50 50 4c 45 4d 45 4e ┆M 8 H & P* ADM 9 DEFAULT LINE NO. $ P* ADM 10 SUPPLEMEN┆
0x3698…36e8 54 20 50 4f 53 54 00 04 00 86 00 1c 00 50 2a 20 20 20 20 20 41 44 4d 20 31 31 20 20 20 20 20 53 50 4f 45 52 47 45 00 04 00 ae 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 53 50 47 20 20 31 20 20 20 20 20 42 49 4c 41 47 20 20 45 4a 20 45 44 ┆T POST P* ADM 11 SPOERGE ( P* SPG 1 BILAG EJ ED┆
0x36e8…3738 42 20 00 04 00 ce 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 53 50 47 20 20 32 20 20 20 20 20 42 49 4c 41 47 20 20 42 45 48 4f 4c 44 4e 49 4e 47 53 54 5b 4c 4c 45 52 45 20 00 04 00 fa 00 2c 00 50 2a 20 20 20 20 20 20 20 20 20 20 53 50 47 ┆B 4 P* SPG 2 BILAG BEHOLDNINGST[LLERE , P* SPG┆
0x3738…3788 20 20 33 20 20 20 20 20 42 49 4c 41 47 20 20 45 44 42 20 54 5b 4c 4c 45 52 45 00 04 01 32 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 53 50 47 20 20 34 20 20 20 20 20 41 41 42 4e 45 20 4b 41 53 53 45 52 00 04 01 62 00 2c 00 50 2a 20 20 20 ┆ 3 BILAG EDB T[LLERE 2 & P* SPG 4 AABNE KASSER b , P* ┆