|
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: 14360 (0x3818)
Notes: pts_type(SC)
Names: »RGSUB1.SC«
└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
└─⟦this⟧ »NJ-AMT/RGSUB1.SC«
IDENT RGSUB1 821201 NJ
DDUM KMD08
PDIV
ENTRY SLUT
ENTRY FLDTST
ENTRY UPDAKK
ENTRY SUMWRT
ENTRY UPDA12
ENTRY FLDIN
EXT PACKST
EXT WRITFD
EXT WRITVO
EXT WRITJT
EXT FRMTJT
EXT FRMXTA
EXT WTALLY
EXT FRMTVO
EXT KTPLAN
EXT SPERR
EXT SPLIN8
EXT SPINF8
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,=W'10',SLUT50
CBE GTREGDEX,=W'3',SLUT50
CBE GTREGDEX,=W'4',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
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,=W'17'
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
CBE GTUSED(CBIN6),CBIN0,UPD30
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,UPD60
CBE TTCASHAC,GTDUPF(CBIN1),UPD54 IF KASSEKONTO,NO UPDATE
CBE TVERSUR,GTDUPF(CBIN1),UPD54 IF VERSUR, NO UPDATE
B UPD55
UPD54 SPECIAL ACCOUNTS
ADD TTCYKTOT,GTDUPF(CBIN4) CASH CORRECTION
B UPD60
UPD55
MOVE TTCYKTOT,=D'0' CASH CORRECTION
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(GTUWB,CBIN1)
ADD C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)
ADD TTEJEDB,GTDUPF(CBIN4)
MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT
PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED
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),=W'0'
BNE FLDTOK FIELD 48 USED
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
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
TEST CFLT46
BZ FLDT09
CMP GTUSED(CBIN17),=W'0'
BNE FLDT09 FIELD 46 USED
MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED
MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1
B FLDT09
*
FLDT09
* NB. NORDJYLLANDS AMT
* AT LEAST ONE FIELD 23,24,25,26: INDEX 12,13,14,15
PERF FLDIN,CBIN12,CBIN13,CBIN14,CBIN15
CMP GSWBIN1,=W'0'
BNE FLDTOK
TBT TFELT90,FLDTOK
TBT TFELT91,FLDTOK
TBT TFELT92,FLDTOK
TBT TFELT93,FLDTOK
TBT TFELT94,FLDTOK
B FLDTNOK
*
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
*
FLDT45
PERF FLDIN,CBIN3,CBIN4,CBIN5,CBIN0 FIELD 55,56,57
CBE GSWBIN1,=W'1',FLDTOK
B FLDTNOK
*
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 821201 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…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…00b4 Head {h00=0x0012, h01=0x0050, text=» ENTRY SUMWRT «, t00=0x0000, t01=0x00a2}
0x00b4…00ca Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDA12 «, t00=0x0000, t01=0x00b8}
0x00ca…00de Head {h00=0x0010, h01=0x0050, text=» ENTRY FLDIN«, t00=0x0000, t01=0x00ce}
0x00de…00f2 Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0000, t01=0x00e2}
0x00f2…0112 Head {h00=0x001c, h01=0x0050, text=» EXT WRITFD «, t00=0x0000, t01=0x00f6}
0x0112…0132 Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0000, t01=0x0116}
0x0132…0152 Head {h00=0x001c, h01=0x0050, text=» EXT WRITJT «, t00=0x0000, t01=0x0136}
0x0152…0166 Head {h00=0x0010, h01=0x0050, text=» EXT FRMTJT «, t00=0x0000, t01=0x0156}
0x0166…017a Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0000, t01=0x016a}
0x017a…018e Head {h00=0x0010, h01=0x0050, text=» EXT WTALLY «, t00=0x0000, t01=0x017e}
0x018e…01a2 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT FRMTVO «, t00=0x0001, t01=0x0004}
0x01a2…01b6 Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0001, t01=0x0018}
0x01b6…01c8 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x002c}
0x01c8…01dc Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x003e}
0x01dc…01f0 Head {h00=0x0010, h01=0x0050, text=» EXT SPINF8 «, t00=0x0001, t01=0x0052}
0x01f0…0208 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0066}
0x0208…0216 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x007e}
0x0216…022c Head {h00=0x0012, h01=0x0050, text=»SLUT PROC «, t00=0x0001, t01=0x008c}
0x022c…024e Head {h00=0x001e, h01=0x0050, text=»** SLUT - PACKS THE BUFFER«, t00=0x0001, t01=0x00a2}
0x024e…0268 Head {h00=0x0016, h01=0x0050, text=»** WRITES TO DISK «, t00=0x0001, t01=0x00c4}
0x0268…0280 Head {h00=0x0014, h01=0x0050, text=»** WRITE JOURNAL«, t00=0x0001, t01=0x00de}
0x0280…0298 Head {h00=0x0014, h01=0x0050, text=»** WRITE VOUCHER«, t00=0x0001, t01=0x00f6}
0x0298…02b8 Head {h00=0x001c, h01=0x0050, text=»** UPDATE ACCUMULATE=ORS«, t00=0x0001, t01=0x010e}
0x02b8…02c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012e}
0x02c2…02ec Head {h00=0x0026, h01=0x0050, text=» TBT TTINVFLG,SLUT30 IF IN MODPOST«, t00=0x0001, t01=0x0138}
0x02ec…031a Head {h00=0x002a, h01=0x0050, text=»* FIND CORRECT ARKIV KONTO NR«, t00=0x0001, t01=0x0162}
0x031a…0340 Head {h00=0x0022, h01=0x0050, text=» MOVE TTDBKRM,=C'K' IF KREDIT «, t00=0x0001, t01=0x0190}
0x0340…0362 Head {h00=0x001e, h01=0x0050, text=» CBE TTDKDEX,CBIN1,SLUT10 «, t00=0x0002, t01=0x0026}
0x0362…0386 Head {h00=0x0020, h01=0x0050, text=» MOVE TTDBKRM,=C'D' IF DEBET«, t00=0x0002, t01=0x0048}
0x0386…0394 Head {h00=0x000a, h01=0x0050, text=»SLUT10«, t00=0x0002, t01=0x006c}
0x0394…03b0 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SLUT30 «, t00=0x0002, t01=0x007a}
0x03b0…03cc Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SLUT30«, t00=0x0002, t01=0x0096}
0x03cc…03fa Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3 «, t00=0x0002, t01=0x00b2}
0x03fa…0428 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4 «, t00=0x0002, t01=0x00e0}
0x0428…044c Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0002, t01=0x010e}
0x044c…046e Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN9),CBIN13«, t00=0x0002, t01=0x0132}
0x046e…049c Head {h00=0x002a, h01=0x0050, text=» CBNE TTARKSAV,=D'0',SLUT30 NO ARKIV? «, t00=0x0002, t01=0x0154}
0x049c…04c0 Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN1)«, t00=0x0002, t01=0x0182}
0x04c0…04e4 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0003, t01=0x0016}
0x04e4…04f2 Head {h00=0x000a, h01=0x0050, text=»SLUT30«, t00=0x0003, t01=0x003a}
0x04f2…0528 Head {h00=0x0032, h01=0x0050, text=»* INSERT 'REGNSKABSAAR IF TRANSTYPES 1,2,5-10 «, t00=0x0003, t01=0x0048}
0x0528…054c Head {h00=0x0020, h01=0x0050, text=» CBG GTREGDEX,=W'10',SLUT50 «, t00=0x0003, t01=0x007e}
0x054c…056e Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'3',SLUT50«, t00=0x0003, t01=0x00a2}
0x056e…0590 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'4',SLUT50«, t00=0x0003, t01=0x00c4}
0x0590…05a8 Head {h00=0x0014, h01=0x0050, text=»* TYPES 1,2,5-10«, t00=0x0003, t01=0x00e6}
0x05a8…05e2 Head {h00=0x0036, h01=0x0050, text=» CBNE GTREGDEX,CBIN10,SLUT34 TRANS10 ALWAYS SUPPL «, t00=0x0003, t01=0x00fe}
0x05e2…05fe Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUPMRK,=C'G'«, t00=0x0003, t01=0x0138}
0x05fe…0610 Head {h00=0x000e, h01=0x0050, text=» B SLUT37 «, t00=0x0003, t01=0x0154}
0x0610…061e Head {h00=0x000a, h01=0x0050, text=»SLUT34«, t00=0x0003, t01=0x0166}
0x061e…063a Head {h00=0x0018, h01=0x0050, text=» TBT TTSUPFLG,SLUT35«, t00=0x0003, t01=0x0174}
0x063a…0656 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUPMRK,=C' '«, t00=0x0003, t01=0x0190}
0x0656…0668 Head {h00=0x000e, h01=0x0050, text=» B SLUT50 «, t00=0x0004, t01=0x001c}
0x0668…0676 Head {h00=0x000a, h01=0x0050, text=»SLUT35«, t00=0x0004, t01=0x002e}
0x0676…0698 Head {h00=0x001e, h01=0x0050, text=» CBE TTSUPMRK,=C'N',SLUT36«, t00=0x0004, t01=0x003c}
0x0698…06ba Head {h00=0x001e, h01=0x0050, text=» CBE TTSUPMRK,=C'G',SLUT37«, t00=0x0004, t01=0x005e}
0x06ba…06cc Head {h00=0x000e, h01=0x0050, text=» B SLUT50 «, t00=0x0004, t01=0x0080}
0x06cc…06da Head {h00=0x000a, h01=0x0050, text=»SLUT36«, t00=0x0004, t01=0x0092}
0x06da…06fc Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTDATO«, t00=0x0004, t01=0x00a0}
0x06fc…0724 Head {h00=0x0024, h01=0x0050, text=» ADD GTDUPF(CBIN6),=D'1' FORSUPP«, t00=0x0004, t01=0x00c2}
0x0724…0736 Head {h00=0x000e, h01=0x0050, text=» B SLUT40 «, t00=0x0004, t01=0x00ea}
0x0736…0744 Head {h00=0x000a, h01=0x0050, text=»SLUT37«, t00=0x0004, t01=0x00fc}
0x0744…0770 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTDATO GET DATE «, t00=0x0004, t01=0x010a}
0x0770…07a0 Head {h00=0x002c, h01=0x0050, text=» SUB GTDUPF(CBIN6),=D'1' SUB 1 FROM YEAR«, t00=0x0004, t01=0x0136}
0x07a0…07ae Head {h00=0x000a, h01=0x0050, text=»SLUT40«, t00=0x0004, t01=0x0166}
0x07ae…07e4 Head {h00=0x0032, h01=0x0050, text=» MOVE TSWBCD2,GTDUPF(CBIN6) ISOLATE LAST DIGIT«, t00=0x0004, t01=0x0174}
0x07e4…0808 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TSWBCD2 «, t00=0x0005, t01=0x001a}
0x0808…0838 Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(CBIN6),CBIN10 SET FIELD NO«, t00=0x0005, t01=0x003e}
0x0838…0846 Head {h00=0x000a, h01=0x0050, text=»SLUT50«, t00=0x0005, t01=0x006e}
0x0846…086c Head {h00=0x0022, h01=0x0050, text=» ADD TTLBNR,=D'1' EKSP. LB. NR«, t00=0x0005, t01=0x007c}
0x086c…088a Head {h00=0x001a, h01=0x0050, text=» PERF WRITFD «, t00=0x0005, t01=0x00a2}
0x088a…08a0 Head {h00=0x0012, h01=0x0050, text=» BNOK SLUTNOK «, t00=0x0005, t01=0x00c0}
0x08a0…08ca Head {h00=0x0026, h01=0x0050, text=» PERF SUMWRT WRITE SUM OR RESTSUM «, t00=0x0005, t01=0x00d6}
0x08ca…08f2 Head {h00=0x0024, h01=0x0050, text=» TBF GTKASSE,SLUT60 ON JOURNAL?«, t00=0x0005, t01=0x0100}
0x08f2…0906 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTJT«, t00=0x0005, t01=0x0128}
0x0906…0920 Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'0'«, t00=0x0005, t01=0x013c}
0x0920…092e Head {h00=0x000a, h01=0x0050, text=»SLUT60«, t00=0x0005, t01=0x0156}
0x092e…0942 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTVO«, t00=0x0005, t01=0x0164}
0x0942…0960 Head {h00=0x001a, h01=0x0050, text=» PERF WRITVO «, t00=0x0005, t01=0x0178}
0x0960…097a Head {h00=0x0016, h01=0x0050, text=»* TEST IF IN LISTE«, t00=0x0006, t01=0x0008}
0x097a…0996 Head {h00=0x0018, h01=0x0050, text=» TBF TTLSTFLG,SLUT80«, t00=0x0006, t01=0x0022}
0x0996…09b0 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN4«, t00=0x0006, t01=0x003e}
0x09b0…09c4 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0006, t01=0x0058}
0x09c4…09d2 Head {h00=0x000a, h01=0x0050, text=»SLUT80«, t00=0x0006, t01=0x006c}
0x09d2…09f0 Head {h00=0x001a, h01=0x0050, text=» PERF UPDAKK «, t00=0x0006, t01=0x007a}
0x09f0…0a06 Head {h00=0x0012, h01=0x0050, text=» SET GTKORTFL «, t00=0x0006, t01=0x0098}
0x0a06…0a24 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0006, t01=0x00ae}
0x0a24…0a3c Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0006, t01=0x00cc}
0x0a3c…0a68 Head {h00=0x0028, h01=0x0050, text=» SLUT90,SLUT95,SLUT95,SLUT95,SLUT90«, t00=0x0006, t01=0x00e4}
0x0a68…0a76 Head {h00=0x000a, h01=0x0050, text=»SLUT90«, t00=0x0006, t01=0x0110}
0x0a76…0a8e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0006, t01=0x011e}
0x0a8e…0a9c Head {h00=0x000a, h01=0x0050, text=»SLUT95«, t00=0x0006, t01=0x0136}
0x0a9c…0ab2 Head {h00=0x0012, h01=0x0050, text=» SET TTEORFLG «, t00=0x0006, t01=0x0144}
0x0ab2…0ada Head {h00=0x0024, h01=0x0050, text=» CLEAR SPME READY FOR FUNCTIONS «, t00=0x0006, t01=0x015a}
0x0ada…0af2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTREGFLG «, t00=0x0006, t01=0x0182}
0x0af2…0b16 Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SETCR=0«, t00=0x0007, t01=0x000a}
0x0b16…0b22 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x002e}
0x0b22…0b32 Head {h00=0x000c, h01=0x0050, text=»SLUTNOK «, t00=0x0007, t01=0x003a}
0x0b32…0b60 Head {h00=0x002a, h01=0x0050, text=» SUB TTLBNR,=D'1' CHANGE LB. NR. AFTER«, t00=0x0007, t01=0x004a}
0x0b60…0b76 Head {h00=0x0012, h01=0x0050, text=» DISK ERROR «, t00=0x0007, t01=0x0078}
0x0b76…0b92 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'17'«, t00=0x0007, t01=0x008e}
0x0b92…0baa Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0007, t01=0x00aa}
0x0baa…0bbe Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00c2}
0x0bbe…0bd4 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00d6}
0x0bd4…0be2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00ec}
0x0be2…0bf6 Head {h00=0x0010, h01=0x0050, text=»SUMWRT PROC «, t00=0x0007, t01=0x00fa}
0x0bf6…0c12 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x010e}
0x0c12…0c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012a}
0x0c1c…0c58 Head {h00=0x0038, h01=0x0050, text=»** SUMWRT - CALCULATE AND WRITE SUM/RESTSUM«, t00=0x0007, t01=0x0134}
0x0c58…0c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0170}
0x0c62…0c7e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x017a}
0x0c7e…0ca6 Head {h00=0x0024, h01=0x0050, text=» TBF TTSUMFLG,SUMRET ONLY IF SUM«, t00=0x0008, t01=0x0008}
0x0ca6…0cc2 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SUMADD «, t00=0x0008, t01=0x0030}
0x0cc2…0cde Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SUMADD«, t00=0x0008, t01=0x004c}
0x0cde…0d14 Head {h00=0x0032, h01=0x0050, text=» SUB GTSUM,GTDUPF(CBIN4) CALCULATE NEW RESTSUM«, t00=0x0008, t01=0x0068}
0x0d14…0d38 Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0008, t01=0x009e}
0x0d38…0d4a Head {h00=0x000e, h01=0x0050, text=» B SUMOUT «, t00=0x0008, t01=0x00c2}
0x0d4a…0d58 Head {h00=0x000a, h01=0x0050, text=»SUMADD«, t00=0x0008, t01=0x00d4}
0x0d58…0d8a Head {h00=0x002e, h01=0x0050, text=» ADD GTSUM,GTDUPF(CBIN4) CALCULATE NEW SUM«, t00=0x0008, t01=0x00e2}
0x0d8a…0dae Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0008, t01=0x0114}
0x0dae…0dbc Head {h00=0x000a, h01=0x0050, text=»SUMOUT«, t00=0x0008, t01=0x0138}
0x0dbc…0dd0 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF8«, t00=0x0008, t01=0x0146}
0x0dd0…0dde Head {h00=0x000a, h01=0x0050, text=»SUMRET«, t00=0x0008, t01=0x015a}
0x0dde…0e1c Head {h00=0x003a, h01=0x0050, text=» ADD GTSUMCNT,GTDUPF(CBIN4) ALWAYS ADD TO SUMFUNCTION «, t00=0x0008, t01=0x0168}
0x0e1c…0e28 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0016}
0x0e28…0e36 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0022}
0x0e36…0e4c Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0030}
0x0e4c…0e62 Head {h00=0x0012, h01=0x0050, text=»UPDAKK PROC «, t00=0x0009, t01=0x0046}
0x0e62…0e7e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x005c}
0x0e7e…0e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0078}
0x0e88…0ea0 Head {h00=0x0014, h01=0x0050, text=»* UPDAKK «, t00=0x0009, t01=0x0082}
0x0ea0…0ed4 Head {h00=0x0030, h01=0x0050, text=»* ROUTINE FOR UPDATING ACCUMULATORS «, t00=0x0009, t01=0x009a}
0x0ed4…0ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ce}
0x0ede…0f12 Head {h00=0x0030, h01=0x0050, text=»* TR1-TR10 UPDATES TTACC(IDX1,IDX2) «, t00=0x0009, t01=0x00d8}
0x0f12…0f36 Head {h00=0x0020, h01=0x0050, text=»* IDX1 = TRNR«, t00=0x0009, t01=0x010c}
0x0f36…0f5c Head {h00=0x0022, h01=0x0050, text=»* IDX2 = DEB/KRE«, t00=0x0009, t01=0x0130}
0x0f5c…0f8e Head {h00=0x002e, h01=0x0050, text=»* TR12 UPDATES TTACC12(IDX1,IDX2) «, t00=0x0009, t01=0x0156}
0x0f8e…0fb8 Head {h00=0x0026, h01=0x0050, text=»* IDX1 = TAELLER NR«, t00=0x0009, t01=0x0188}
0x0fb8…0fe0 Head {h00=0x0024, h01=0x0050, text=»* IDX2 = DEB/KRE «, t00=0x000a, t01=0x0022}
0x0fe0…0fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004a}
0x0fea…1022 Head {h00=0x0034, h01=0x0050, text=»* ALL TRANSACTIONS UPDATE TTTOTDK(IDX2) «, t00=0x000a, t01=0x0054}
0x1022…105c Head {h00=0x0036, h01=0x0050, text=»* AND IF INVERT TTKORDK(IDX2)«, t00=0x000a, t01=0x008c}
0x105c…1066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c6}
0x1066…1082 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x00d0}
0x1082…10ae Head {h00=0x0028, h01=0x0050, text=» CBNE GTREGNR,='12',UPD20«, t00=0x000a, t01=0x00ec}
0x10ae…10ec Head {h00=0x003a, h01=0x0050, text=» PERF UPDA12 TAELLER 12 «, t00=0x000a, t01=0x0118}
0x10ec…110c Head {h00=0x001c, h01=0x0050, text=» B UPDRET «, t00=0x000a, t01=0x0156}
0x110c…111a Head {h00=0x000a, h01=0x0050, text=»UPD20 «, t00=0x000a, t01=0x0176}
0x111a…1150 Head {h00=0x0032, h01=0x0050, text=» CBG GTREGNR,=D'30',UPDRET NO ACCUMULATION FOR«, t00=0x000a, t01=0x0184}
0x1150…1170 Head {h00=0x001c, h01=0x0050, text=» CERTAIN TRANSACTIONS «, t00=0x000b, t01=0x002a}
0x1170…1196 Head {h00=0x0022, h01=0x0050, text=» CBE GTUSED(CBIN6),CBIN0,UPD30«, t00=0x000b, t01=0x004a}
0x1196…11c6 Head {h00=0x002c, h01=0x0050, text=» ADD TTACC(CBIN8,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000b, t01=0x0070}
0x11c6…11e4 Head {h00=0x001a, h01=0x0050, text=» UPDATE SUPL COUNTER«, t00=0x000b, t01=0x00a0}
0x11e4…11f2 Head {h00=0x000a, h01=0x0050, text=»UPD30 «, t00=0x000b, t01=0x00be}
0x11f2…120e Head {h00=0x0018, h01=0x0050, text=» TBT GTTESTFL,UPD38 «, t00=0x000b, t01=0x00cc}
0x120e…123c Head {h00=0x002a, h01=0x0050, text=»* ACCUMULATE 'BEHOLDNINGSTAELLERE'«, t00=0x000b, t01=0x00e8}
0x123c…1258 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x000b, t01=0x0116}
0x1258…1266 Head {h00=0x000a, h01=0x0050, text=»UPD35 «, t00=0x000b, t01=0x0132}
0x1266…12a2 Head {h00=0x0038, h01=0x0050, text=» CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO? «, t00=0x000b, t01=0x0140}
0x12a2…12e0 Head {h00=0x003a, h01=0x0050, text=» CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND? «, t00=0x000b, t01=0x017c}
0x12e0…12ee Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x000c, t01=0x002a}
0x12ee…131e Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN2),GTDUPF(CBIN4) «, t00=0x000c, t01=0x0038}
0x131e…134e Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN3),GTDUPF(CBIN4) «, t00=0x000c, t01=0x0068}
0x134e…135c Head {h00=0x000a, h01=0x0050, text=»UPD36 «, t00=0x000c, t01=0x0098}
0x135c…138c Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN1,CBIN1 LOOK AT NEXT COUNTER «, t00=0x000c, t01=0x00a6}
0x138c…13ae Head {h00=0x001e, h01=0x0050, text=» CBNG GSWBIN1,=W'60',UPD35«, t00=0x000c, t01=0x00d6}
0x13ae…13bc Head {h00=0x000a, h01=0x0050, text=»UPD38 «, t00=0x000c, t01=0x00f8}
0x13bc…13ee Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN1,CCNTDEX(GTREGDEX) GET INDEX «, t00=0x000c, t01=0x0106}
0x13ee…142c Head {h00=0x003a, h01=0x0050, text=» ADD TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000c, t01=0x0138}
0x142c…1472 Head {h00=0x0042, h01=0x0050, text=» UPDATE ACCUMULATOR «, t00=0x000c, t01=0x0176}
0x1472…14a0 Head {h00=0x002a, h01=0x0050, text=» IB TTDKDEX,UPDKR,UPDDB SEE IF INVERT «, t00=0x000d, t01=0x002c}
0x14a0…14ae Head {h00=0x000a, h01=0x0050, text=»UPDDB «, t00=0x000d, t01=0x005a}
0x14ae…14f2 Head {h00=0x0040, h01=0x0050, text=» CBNL GTDUPF(CBIN4),='0',UPD50 IF NEGATIVE DEBET«, t00=0x000d, t01=0x0068}
0x14f2…152c Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000d, t01=0x00ac}
0x152c…153c Head {h00=0x000c, h01=0x0050, text=» B UPD50«, t00=0x000d, t01=0x00e6}
0x153c…154a Head {h00=0x000a, h01=0x0050, text=»UPDKR «, t00=0x000d, t01=0x00f6}
0x154a…1586 Head {h00=0x0038, h01=0x0050, text=» CBNG GTDUPF(CBIN4),=D'0',UPD50 IF POSITIVE KREDIT, «, t00=0x000d, t01=0x0104}
0x1586…15c0 Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000d, t01=0x0140}
0x15c0…15ce Head {h00=0x000a, h01=0x0050, text=»UPD50 «, t00=0x000d, t01=0x017a}
0x15ce…15fe Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CBIN4,UPDRET IF COUNTER 5,6«, t00=0x000d, t01=0x0188}
0x15fe…1646 Head {h00=0x0044, h01=0x0050, text=» TBT GTTFLG,UPDRET WHEN CLOSE, NO UPDATE«, t00=0x000e, t01=0x0028}
0x1646…1660 Head {h00=0x0016, h01=0x0050, text=» TBT CWFLAG,UPD60 «, t00=0x000e, t01=0x0070}
0x1660…16a2 Head {h00=0x003e, h01=0x0050, text=» CBE TTCASHAC,GTDUPF(CBIN1),UPD54 IF KASSEKONTO,NO UPDATE «, t00=0x000e, t01=0x008a}
0x16a2…16e0 Head {h00=0x003a, h01=0x0050, text=» CBE TVERSUR,GTDUPF(CBIN1),UPD54 IF VERSUR, NO UPDATE «, t00=0x000e, t01=0x00cc}
0x16e0…16f0 Head {h00=0x000c, h01=0x0050, text=» B UPD55«, t00=0x000e, t01=0x010a}
0x16f0…1710 Head {h00=0x001c, h01=0x0050, text=»UPD54 SPECIAL ACCOUNTS«, t00=0x000e, t01=0x011a}
0x1710…1744 Head {h00=0x0030, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) CASH CORRECTION «, t00=0x000e, t01=0x013a}
0x1744…1754 Head {h00=0x000c, h01=0x0050, text=» B UPD60«, t00=0x000e, t01=0x016e}
0x1754…1762 Head {h00=0x000a, h01=0x0050, text=»UPD55 «, t00=0x000e, t01=0x017e}
0x1762…178e Head {h00=0x0028, h01=0x0050, text=» MOVE TTCYKTOT,=D'0' CASH CORRECTION«, t00=0x000e, t01=0x018c}
0x178e…179c Head {h00=0x000a, h01=0x0050, text=»UPD60 «, t00=0x000f, t01=0x0028}
0x179c…17ca Head {h00=0x002a, h01=0x0050, text=» CBG GTREGNR,=D'17',UPDRET«, t00=0x000f, t01=0x0036}
0x17ca…17f8 Head {h00=0x002a, h01=0x0050, text=» SUB TTCASH,GTDUPF(CBIN4) «, t00=0x000f, t01=0x0064}
0x17f8…1818 Head {h00=0x001c, h01=0x0050, text=» B UPDRET «, t00=0x000f, t01=0x0092}
0x1818…1826 Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x000f, t01=0x00b2}
0x1826…1832 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x00c0}
0x1832…1848 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x00cc}
0x1848…185e Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00e2}
0x185e…1874 Head {h00=0x0012, h01=0x0050, text=»UPDA12 PROC «, t00=0x000f, t01=0x00f8}
0x1874…1890 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000f, t01=0x010e}
0x1890…189a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012a}
0x189a…18c4 Head {h00=0x0026, h01=0x0050, text=»* UPDA12 - UPDATE FOR TR12 «, t00=0x000f, t01=0x0134}
0x18c4…18ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015e}
0x18ce…18ea Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000f, t01=0x0168}
0x18ea…1928 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR TAELLER NR «, t00=0x000f, t01=0x0184}
0x1928…194e Head {h00=0x0022, h01=0x0050, text=» SUB GSWBIN1,=W'100' GET INDEX«, t00=0x0010, t01=0x0032}
0x194e…1976 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN1,CTR12(GTUWB,CBIN1) «, t00=0x0010, t01=0x0058}
0x1976…19b4 Head {h00=0x003a, h01=0x0050, text=» ADD C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)«, t00=0x0010, t01=0x0080}
0x19b4…19d6 Head {h00=0x001e, h01=0x0050, text=» ADD TTEJEDB,GTDUPF(CBIN4)«, t00=0x0010, t01=0x00be}
0x19d6…1a0e Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT«, t00=0x0010, t01=0x00e0}
0x1a0e…1a46 Head {h00=0x0034, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED «, t00=0x0010, t01=0x0118}
0x1a46…1a5a Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0150}
0x1a5a…1a70 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0164}
0x1a70…1a86 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x017a}
0x1a86…1a9c Head {h00=0x0012, h01=0x0050, text=»FLDTST PROC «, t00=0x0010, t01=0x0190}
0x1a9c…1ab8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0016}
0x1ab8…1ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0032}
0x1ac2…1afe Head {h00=0x0038, h01=0x0050, text=»* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT«, t00=0x0011, t01=0x003c}
0x1afe…1b26 Head {h00=0x0024, h01=0x0050, text=»* FELT AFHAENGIGHEDS TEST«, t00=0x0011, t01=0x0078}
0x1b26…1b30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a0}
0x1b30…1b4c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00aa}
0x1b4c…1b74 Head {h00=0x0024, h01=0x0050, text=» PERF PACKST CLEAR UNUSED FIELDS«, t00=0x0011, t01=0x00c6}
0x1b74…1b9a Head {h00=0x0022, h01=0x0050, text=» IB GTREGDEX, C «, t00=0x0011, t01=0x00ee}
0x1b9a…1bca Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK, C«, t00=0x0011, t01=0x0114}
0x1bca…1bfa Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT08,FLDT09,FLDT10, C«, t00=0x0011, t01=0x0144}
0x1bfa…1c3a Head {h00=0x003c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDTOK,FLDTOK,FLDT45, C «, t00=0x0011, t01=0x0174}
0x1c3a…1c7a Head {h00=0x003c, h01=0x0050, text=» FLDT45,FLDTOK,FLDTOK,FLDTOK,FLDT50, C «, t00=0x0012, t01=0x0024}
0x1c7a…1cae Head {h00=0x0030, h01=0x0050, text=» FLDT50,FLDT52,FLDT53,FLDT54«, t00=0x0012, t01=0x0064}
0x1cae…1cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0098}
0x1cb8…1cc6 Head {h00=0x000a, h01=0x0050, text=»FLDT03«, t00=0x0012, t01=0x00a2}
0x1cc6…1cfa Head {h00=0x0030, h01=0x0050, text=» CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16? «, t00=0x0012, t01=0x00b0}
0x1cfa…1d2c Head {h00=0x002e, h01=0x0050, text=»* YES, RTE/GEB, INSERT TEXT IN TT16TXT«, t00=0x0012, t01=0x00e4}
0x1d2c…1d5a Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTDUPF(CBIN12) GET FIELD«, t00=0x0012, t01=0x0116}
0x1d5a…1d7e Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'0',FLDT031 «, t00=0x0012, t01=0x0144}
0x1d7e…1da2 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RAT' IF = 0«, t00=0x0012, t01=0x0168}
0x1da2…1db4 Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0012, t01=0x018c}
0x1db4…1dc4 Head {h00=0x000c, h01=0x0050, text=»FLDT031 «, t00=0x0013, t01=0x000e}
0x1dc4…1de8 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'1',FLDT032 «, t00=0x0013, t01=0x001e}
0x1de8…1e0c Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RTE' IF = 1«, t00=0x0013, t01=0x0042}
0x1e0c…1e1e Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0013, t01=0x0066}
0x1e1e…1e2e Head {h00=0x000c, h01=0x0050, text=»FLDT032 «, t00=0x0013, t01=0x0078}
0x1e2e…1e52 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'2',FLDT035 «, t00=0x0013, t01=0x0088}
0x1e52…1e76 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'GEB' IF = 2«, t00=0x0013, t01=0x00ac}
0x1e76…1e86 Head {h00=0x000c, h01=0x0050, text=»FLDT035 «, t00=0x0013, t01=0x00d0}
0x1e86…1e9a Head {h00=0x0010, h01=0x0050, text=» TEST CFLT48«, t00=0x0013, t01=0x00e0}
0x1e9a…1ebc Head {h00=0x001e, h01=0x0050, text=» BZ FLDTOK BRANCH IF FALSE«, t00=0x0013, t01=0x00f4}
0x1ebc…1ede Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN15),=W'0' «, t00=0x0013, t01=0x0116}
0x1ede…1f00 Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 48 USED «, t00=0x0013, t01=0x0138}
0x1f00…1f22 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'21' «, t00=0x0013, t01=0x015a}
0x1f22…1f36 Head {h00=0x0010, h01=0x0050, text=» BL FLDT037 «, t00=0x0013, t01=0x017c}
0x1f36…1f58 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'26' «, t00=0x0013, t01=0x0190}
0x1f58…1f78 Head {h00=0x001c, h01=0x0050, text=» BL FLDTOK BKO = 21-25 «, t00=0x0014, t01=0x0022}
0x1f78…1f88 Head {h00=0x000c, h01=0x0050, text=»FLDT037 «, t00=0x0014, t01=0x0042}
0x1f88…1faa Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'46' «, t00=0x0014, t01=0x0052}
0x1faa…1fc4 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=46 «, t00=0x0014, t01=0x0074}
0x1fc4…1fe6 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'56' «, t00=0x0014, t01=0x008e}
0x1fe6…2000 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=56 «, t00=0x0014, t01=0x00b0}
0x2000…2036 Head {h00=0x0032, h01=0x0050, text=» MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED «, t00=0x0014, t01=0x00ca}
0x2036…206a Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1 «, t00=0x0014, t01=0x0100}
0x206a…207c Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0014, t01=0x0134}
0x207c…2086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0146}
0x2086…2094 Head {h00=0x000a, h01=0x0050, text=»FLDT04«, t00=0x0014, t01=0x0150}
0x2094…20ca Head {h00=0x0032, h01=0x0050, text=» TBT BCPR,FLDT041 CIR«, t00=0x0014, t01=0x015e}
0x20ca…20ec (21, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0015, t01=0x0004}
0x20ec…2112 Head {h00=0x0022, h01=0x0050, text=» BE FLDTOK FIELD 17 (INDEX 10)«, t00=0x0015, t01=0x0026}
0x2112…2132 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0015, t01=0x004c}
0x2132…2168 Head {h00=0x0032, h01=0x0050, text=»FLDT041 CPR«, t00=0x0015, t01=0x006c}
0x2168…21b0 Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20«, t00=0x0015, t01=0x00a2}
0x21b0…21ca Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN1,=W'0'«, t00=0x0015, t01=0x00ea}
0x21ca…21de Head {h00=0x0010, h01=0x0050, text=» BNE FLDTNOK«, t00=0x0015, t01=0x0104}
0x21de…2200 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0015, t01=0x0118}
0x2200…2214 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0015, t01=0x013a}
0x2214…2234 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0015, t01=0x014e}
0x2234…223e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016e}
0x223e…224c Head {h00=0x000a, h01=0x0050, text=»FLDT08«, t00=0x0015, t01=0x0178}
0x224c…2260 Head {h00=0x0010, h01=0x0050, text=» TEST CFLT46«, t00=0x0015, t01=0x0186}
0x2260…2272 Head {h00=0x000e, h01=0x0050, text=» BZ FLDT09«, t00=0x0016, t01=0x000a}
0x2272…2294 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN17),=W'0' «, t00=0x0016, t01=0x001c}
0x2294…22b6 Head {h00=0x001e, h01=0x0050, text=» BNE FLDT09 FIELD 46 USED «, t00=0x0016, t01=0x003e}
0x22b6…22f0 Head {h00=0x0036, h01=0x0050, text=» MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED«, t00=0x0016, t01=0x0060}
0x22f0…2324 Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1 «, t00=0x0016, t01=0x009a}
0x2324…2336 Head {h00=0x000e, h01=0x0050, text=» B FLDT09 «, t00=0x0016, t01=0x00ce}
0x2336…2340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e0}
0x2340…234e Head {h00=0x000a, h01=0x0050, text=»FLDT09«, t00=0x0016, t01=0x00ea}
0x234e…236e Head {h00=0x001c, h01=0x0050, text=»* NB. NORDJYLLANDS AMT «, t00=0x0016, t01=0x00f8}
0x236e…23aa Head {h00=0x0038, h01=0x0050, text=»* AT LEAST ONE FIELD 23,24,25,26: INDEX 12,13,14,15«, t00=0x0016, t01=0x0118}
0x23aa…23da Head {h00=0x002c, h01=0x0050, text=» PERF FLDIN,CBIN12,CBIN13,CBIN14,CBIN15 «, t00=0x0016, t01=0x0154}
0x23da…23f4 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN1,=W'0'«, t00=0x0016, t01=0x0184}
0x23f4…2408 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0017, t01=0x000e}
0x2408…2424 Head {h00=0x0018, h01=0x0050, text=» TBT TFELT90,FLDTOK «, t00=0x0017, t01=0x0022}
0x2424…2440 Head {h00=0x0018, h01=0x0050, text=» TBT TFELT91,FLDTOK «, t00=0x0017, t01=0x003e}
0x2440…245c Head {h00=0x0018, h01=0x0050, text=» TBT TFELT92,FLDTOK «, t00=0x0017, t01=0x005a}
0x245c…2478 Head {h00=0x0018, h01=0x0050, text=» TBT TFELT93,FLDTOK «, t00=0x0017, t01=0x0076}
0x2478…2494 Head {h00=0x0018, h01=0x0050, text=» TBT TFELT94,FLDTOK «, t00=0x0017, t01=0x0092}
0x2494…24a6 Head {h00=0x000e, h01=0x0050, text=» B FLDTNOK«, t00=0x0017, t01=0x00ae}
0x24a6…24b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c0}
0x24b0…24be Head {h00=0x000a, h01=0x0050, text=»FLDT10«, t00=0x0017, t01=0x00ca}
0x24be…24dc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0017, t01=0x00d8}
0x24dc…24f4 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0017, t01=0x00f6}
0x24f4…2526 Head {h00=0x002e, h01=0x0050, text=» FLDT105,FLDT105,FLDT102,FLDT108,FLDT108 «, t00=0x0017, t01=0x010e}
0x2526…2536 Head {h00=0x000c, h01=0x0050, text=»FLDT102 «, t00=0x0017, t01=0x0140}
0x2536…2548 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0017, t01=0x0150}
0x2548…2558 Head {h00=0x000c, h01=0x0050, text=»FLDT105 «, t00=0x0017, t01=0x0162}
0x2558…2578 Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x0017, t01=0x0172}
0x2578…258c (24, 0, 400) Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0018, t01=0x0004}
0x258c…259e Head {h00=0x000e, h01=0x0050, text=» B FLDTNOK«, t00=0x0018, t01=0x0018}
0x259e…25ae Head {h00=0x000c, h01=0x0050, text=»FLDT108 «, t00=0x0018, t01=0x002a}
0x25ae…25ce Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x0018, t01=0x003a}
0x25ce…25e2 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0018, t01=0x005a}
0x25e2…25fe Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'26'«, t00=0x0018, t01=0x006e}
0x25fe…2612 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0018, t01=0x008a}
0x2612…262c Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN2«, t00=0x0018, t01=0x009e}
0x262c…2646 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK KOR-KEY«, t00=0x0018, t01=0x00b8}
0x2646…2662 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'0' «, t00=0x0018, t01=0x00d2}
0x2662…2680 Head {h00=0x001a, h01=0x0050, text=» B FLDTNOK NOT KOR-KEY«, t00=0x0018, t01=0x00ee}
0x2680…268a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x010c}
0x268a…2698 Head {h00=0x000a, h01=0x0050, text=»FLDT45«, t00=0x0018, t01=0x0116}
0x2698…26de Head {h00=0x0042, h01=0x0050, text=» PERF FLDIN,CBIN3,CBIN4,CBIN5,CBIN0 FIELD 55,56,57 «, t00=0x0018, t01=0x0124}
0x26de…270c Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,=W'1',FLDTOK «, t00=0x0018, t01=0x016a}
0x270c…272c Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0019, t01=0x0008}
0x272c…2736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0028}
0x2736…2744 Head {h00=0x000a, h01=0x0050, text=»FLDT50«, t00=0x0019, t01=0x0032}
0x2744…2786 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28«, t00=0x0019, t01=0x0040}
0x2786…27a8 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,=W'1',FLDTOK «, t00=0x0019, t01=0x0082}
0x27a8…27c8 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0019, t01=0x00a4}
0x27c8…27d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c4}
0x27d2…27e0 Head {h00=0x000a, h01=0x0050, text=»FLDT52«, t00=0x0019, t01=0x00ce}
0x27e0…2822 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 «, t00=0x0019, t01=0x00dc}
0x2822…2850 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'1',FLDTNOK«, t00=0x0019, t01=0x011e}
0x2850…2894 Head {h00=0x0040, h01=0x0050, text=» PERF FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40 «, t00=0x0019, t01=0x014c}
0x2894…28c2 Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,=W'2',FLDT525«, t00=0x0019, t01=0x0190}
0x28c2…2904 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45 «, t00=0x001a, t01=0x002e}
0x2904…2932 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'0',FLDTNOK«, t00=0x001a, t01=0x0070}
0x2932…2942 Head {h00=0x000c, h01=0x0050, text=»FLDT525 «, t00=0x001a, t01=0x009e}
0x2942…2980 Head {h00=0x003a, h01=0x0050, text=» CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46«, t00=0x001a, t01=0x00ae}
0x2980…29be Head {h00=0x003a, h01=0x0050, text=» CBE GTUSED(CBIN20),=W'0',FLDTNOK FIELD 43«, t00=0x001a, t01=0x00ec}
0x29be…29ce Head {h00=0x000c, h01=0x0050, text=»FLDT527 «, t00=0x001a, t01=0x012a}
0x29ce…2a0a Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001a, t01=0x013a}
0x2a0a…2a48 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x001a, t01=0x0176}
0x2a48…2a68 Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001b, t01=0x0024}
0x2a68…2a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0044}
0x2a72…2a80 Head {h00=0x000a, h01=0x0050, text=»FLDT53«, t00=0x001b, t01=0x004e}
0x2a80…2abe Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),=W'0',FLDT535 FIELD 47«, t00=0x001b, t01=0x005c}
0x2abe…2b06 Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45«, t00=0x001b, t01=0x009a}
0x2b06…2b34 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'0',FLDTNOK«, t00=0x001b, t01=0x00e2}
0x2b34…2b44 Head {h00=0x000c, h01=0x0050, text=»FLDT535 «, t00=0x001b, t01=0x0110}
0x2b44…2b82 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN7),=W'0',FLDT537 FIELD 40 «, t00=0x001b, t01=0x0120}
0x2b82…2bc0 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),=W'0',FLDTNOK FIELD 47«, t00=0x001b, t01=0x015e}
0x2bc0…2bd0 Head {h00=0x000c, h01=0x0050, text=»FLDT537 «, t00=0x001c, t01=0x000c}
0x2bd0…2c0c Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001c, t01=0x001c}
0x2c0c…2c4a Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x001c, t01=0x0058}
0x2c4a…2c6a Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001c, t01=0x0096}
0x2c6a…2c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b6}
0x2c74…2c82 Head {h00=0x000a, h01=0x0050, text=»FLDT54«, t00=0x001c, t01=0x00c0}
0x2c82…2cbe Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001c, t01=0x00ce}
0x2cbe…2cfc Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x001c, t01=0x010a}
0x2cfc…2d1c Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001c, t01=0x0148}
0x2d1c…2d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0168}
0x2d26…2d34 Head {h00=0x000a, h01=0x0050, text=»FLDTOK«, t00=0x001c, t01=0x0172}
0x2d34…2d72 Head {h00=0x003a, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0 OK«, t00=0x001c, t01=0x0180}
0x2d72…2d86 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001d, t01=0x002e}
0x2d86…2d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0042}
0x2d90…2da0 Head {h00=0x000c, h01=0x0050, text=»FLDTNOK «, t00=0x001d, t01=0x004c}
0x2da0…2de6 Head {h00=0x0042, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR <> 0 NOT OK«, t00=0x001d, t01=0x005c}
0x2de6…2dfa Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001d, t01=0x00a2}
0x2dfa…2e10 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x00b6}
0x2e10…2e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00cc}
0x2e1a…2e24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d6}
0x2e24…2e3a Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00e0}
0x2e3a…2e66 Head {h00=0x0028, h01=0x0050, text=»FLDIN PROC FML1,FML2,FML3,FML4«, t00=0x001d, t01=0x00f6}
0x2e66…2e82 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x0122}
0x2e82…2e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013e}
0x2e8c…2ec6 Head {h00=0x0036, h01=0x0050, text=»* FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS«, t00=0x001d, t01=0x0148}
0x2ec6…2ef4 Head {h00=0x002a, h01=0x0050, text=»* (GIVEN BY INDEX) ARE PRESENT «, t00=0x001d, t01=0x0182}
0x2ef4…2f16 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT IN GSWBIN1«, t00=0x001e, t01=0x0020}
0x2f16…2f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0042}
0x2f20…2f3c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x004c}
0x2f3c…2f62 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,=W'0'«, t00=0x001e, t01=0x0068}
0x2f62…2f8a Head {h00=0x0024, h01=0x0050, text=» CBE FML1,=W'0',FLD5«, t00=0x001e, t01=0x008e}
0x2f8a…2fae Head {h00=0x0020, h01=0x0050, text=» CBE GTUSED(FML1),=W'0',FLD1«, t00=0x001e, t01=0x00b6}
0x2fae…2fd4 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001e, t01=0x00da}
0x2fd4…2fe0 Head {h00=0x0008, h01=0x0050, text=»FLD1«, t00=0x001e, t01=0x0100}
0x2fe0…3008 Head {h00=0x0024, h01=0x0050, text=» CBE FML2,=W'0',FLD5«, t00=0x001e, t01=0x010c}
0x3008…3038 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML2),=W'0',FLD2«, t00=0x001e, t01=0x0134}
0x3038…305e Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001e, t01=0x0164}
0x305e…306a Head {h00=0x0008, h01=0x0050, text=»FLD2«, t00=0x001e, t01=0x018a}
0x306a…3092 Head {h00=0x0024, h01=0x0050, text=» CBE FML3,=W'0',FLD5«, t00=0x001f, t01=0x0008}
0x3092…30c2 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML3),=W'0',FLD3«, t00=0x001f, t01=0x0030}
0x30c2…30e8 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001f, t01=0x0060}
0x30e8…30f4 Head {h00=0x0008, h01=0x0050, text=»FLD3«, t00=0x001f, t01=0x0086}
0x30f4…311c Head {h00=0x0024, h01=0x0050, text=» CBE FML4,=W'0',FLD5«, t00=0x001f, t01=0x0092}
0x311c…314c Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML4),=W'0',FLD5«, t00=0x001f, t01=0x00ba}
0x314c…3172 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001f, t01=0x00ea}
0x3172…317e Head {h00=0x0008, h01=0x0050, text=»FLD5«, t00=0x001f, t01=0x0110}
0x317e…3192 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001f, t01=0x011c}
0x3192…31a0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x0130}
0x31a0…31aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013e}
0x31aa…31b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0148}
0x31b4…31c8 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x001f, t01=0x0152}
0x31c8…31cc Head {h00=0x4004, h01=0x0000}
0x31cc…31d0 00 1f 01 66 ┆ f┆
0x31d0…31d8 (32, 1, 8) 20 04 00 00 00 20 00 04 ┆ ┆
0x31d8…3228 (33, 0, 400) 43 44 49 20 28 36 30 2c 32 29 2c 31 34 44 20 45 4a 2d 45 44 42 20 43 4f 55 4e 54 45 52 53 00 28 01 88 00 06 00 50 2a 20 00 29 00 26 00 06 00 50 2a 20 00 29 00 30 00 06 00 50 2a 20 00 29 00 3a 00 04 00 50 00 29 00 44 00 0c 00 50 43 44 34 20 ┆CDI (60,2),14D EJ-EDB COUNTERS ( P* ) & P* ) 0 P* ) : P ) D PCD4 ┆
0x3228…3278 44 42 4c 4b 00 29 00 4c 00 06 00 50 2a 20 00 29 00 5c 00 06 00 50 2a 20 00 29 00 66 00 06 00 50 2a 20 00 29 00 70 00 06 00 50 2a 20 00 29 00 7a 00 06 00 50 2a 20 00 29 00 84 00 14 00 50 44 55 4d 43 44 34 20 42 49 4e 49 20 28 34 29 20 00 29 ┆DBLK ) L P* ) P* ) f P* ) p P* ) z P* ) PDUMCD4 BINI (4) )┆
0x3278…32c8 00 8e 00 2e 00 50 43 42 45 48 20 42 49 4e 49 20 28 31 32 2c 32 29 20 46 49 52 53 54 20 41 4e 44 20 53 49 5a 45 20 4f 46 20 42 45 48 4c 44 4e 2e 00 29 00 a6 00 2e 00 50 43 54 52 31 32 20 42 49 4e 49 20 28 31 32 2c 32 29 20 46 49 52 53 54 20 ┆ . PCBEH BINI (12,2) FIRST AND SIZE OF BEHLDN. ) . PCTR12 BINI (12,2) FIRST ┆
0x32c8…3318 41 4e 44 20 53 49 5a 45 20 4f 46 20 54 52 20 31 32 20 00 29 00 d8 00 16 00 50 43 46 4e 41 4d 45 20 53 54 52 47 49 20 28 38 29 2c 38 00 29 01 0a 00 1e 00 50 43 56 4f 4c 4e 4f 20 42 43 44 20 36 20 56 4f 4c 55 4d 45 20 4e 55 4d 42 45 52 00 29 ┆AND SIZE OF TR 12 ) PCFNAME STRGI (8),8 ) PCVOLNO BCD 6 VOLUME NUMBER )┆
0x3318…3368 01 24 00 1c 00 50 43 4b 4d 44 4e 52 20 42 43 44 20 36 44 20 4b 4f 4d 4d 55 4e 45 20 4e 52 00 29 01 46 00 1e 00 50 43 4d 41 53 4b 44 41 54 20 42 43 44 20 38 58 27 46 46 46 46 46 46 46 46 27 20 00 29 01 66 00 14 00 50 43 56 4f 4c 20 53 54 52 ┆ $ PCKMDNR BCD 6D KOMMUNE NR ) F PCMASKDAT BCD 8X'FFFFFFFF' ) f PCVOL STR┆
0x3368…33b8 (34, 0, 400) 47 49 20 28 34 29 2c 36 00 29 01 88 00 06 00 50 2a 20 00 2a 00 10 00 04 00 50 00 2a 00 1a 00 0c 00 50 54 44 32 20 44 42 4c 4b 00 2a 00 22 00 06 00 50 2a 20 00 2a 00 32 00 06 00 50 2a 20 00 2a 00 3c 00 06 00 50 2a 20 00 2a 00 46 00 06 00 50 ┆GI (4),6 ) P* * P * PTD2 DBLK * " P* * 2 P* * < P* * F P┆
0x33b8…3408 2a 20 00 2a 00 50 00 06 00 50 2a 20 00 2a 00 5a 00 12 00 50 54 54 49 4e 46 31 5c 53 54 52 47 5c 31 34 00 2a 00 64 00 2e 00 50 54 54 52 45 43 4f 50 4e 20 42 43 44 20 36 20 52 45 43 2e 20 4e 4f 2e 20 46 4f 52 20 4f 50 45 4e 20 4f 52 20 43 4c ┆* * P P* * Z PTTINF1 STRG 14 * d . PTTRECOPN BCD 6 REC. NO. FOR OPEN OR CL┆
0x3408…3458 4f 53 45 20 00 2a 00 7a 00 2a 00 50 54 54 52 45 43 43 48 4e 20 42 43 44 20 36 20 52 45 43 2e 20 4e 4f 2e 20 46 4f 52 20 46 44 20 43 48 41 4e 47 45 20 00 2a 00 ac 00 24 00 50 54 54 53 54 4c 42 4e 52 5c 42 43 44 5c 36 44 5c 46 49 52 53 54 20 ┆OSE * z * PTTRECCHN BCD 6 REC. NO. FOR FD CHANGE * $ PTTSTLBNR BCD 6D FIRST ┆
0x3458…34a8 45 4b 53 50 2e 20 4c 42 4e 52 00 2a 00 da 00 26 00 50 54 54 53 54 43 41 53 48 5c 42 43 44 5c 31 34 44 5c 50 52 49 4d 4f 20 43 41 53 48 20 41 4d 4f 55 4e 54 00 2a 01 02 00 22 00 50 54 54 43 41 53 48 41 43 5c 42 43 44 5c 31 32 44 5c 43 41 53 ┆EKSP. LBNR * & PTTSTCASH BCD 14D PRIMO CASH AMOUNT * " PTTCASHAC BCD 12D CAS┆
0x34a8…34f8 48 20 41 43 43 2e 20 4e 52 20 00 2a 01 2c 00 22 00 50 54 56 45 52 53 55 52 20 42 43 44 20 31 32 44 20 56 45 52 53 55 52 20 41 43 43 20 4e 52 20 00 2a 01 52 00 26 00 50 54 54 43 41 53 48 5c 42 43 44 5c 31 34 44 5c 43 55 52 52 45 4e 54 20 43 ┆H ACC. NR * , " PTVERSUR BCD 12D VERSUR ACC NR * R & PTTCASH BCD 14D CURRENT C┆
0x34f8…3548 (35, 0, 400) 41 53 48 20 41 4d 4f 55 4e 54 00 2a 01 78 00 24 00 50 54 54 4c 42 4e 52 20 42 43 44 20 36 44 20 43 55 52 52 45 4e 54 20 45 4b 53 50 2e 4c 42 4e 52 20 00 2b 00 12 00 28 00 50 54 54 41 43 43 20 42 43 44 49 20 28 38 2c 32 29 2c 31 36 44 27 30 ┆ASH AMOUNT * x $ PTTLBNR BCD 6D CURRENT EKSP.LBNR + ( PTTACC BCDI (8,2),16D'0┆
0x3548…3598 27 20 45 44 42 20 43 4f 55 4e 54 45 52 53 00 2b 00 3a 00 2c 00 50 54 54 47 4c 52 45 43 20 42 43 44 20 36 20 53 41 56 45 20 52 45 43 4f 52 44 20 4e 4f 2c 20 47 4c 20 52 45 47 53 45 54 20 00 2b 00 66 00 26 00 50 54 54 41 53 4b 42 43 44 20 42 ┆' EDB COUNTERS + : , PTTGLREC BCD 6 SAVE RECORD NO, GL REGSET + f & PTTASKBCD B┆
0x3598…35e8 43 44 20 34 20 54 41 53 4b 4e 4f 20 46 4f 52 20 54 48 49 53 20 55 57 42 00 2b 00 96 00 06 00 50 2a 20 00 2b 00 c0 00 06 00 50 2a 20 00 2b 00 ca 00 06 00 50 2a 20 00 2b 00 d4 00 0a 00 50 5c 50 44 49 56 20 00 2b 00 de 00 10 00 50 20 45 4e 54 ┆CD 4 TASKNO FOR THIS UWB + P* + P* + P* + P PDIV + P ENT┆
0x35e8…3638 52 59 20 52 45 47 47 4f 00 2b 00 ec 00 10 00 50 5c 45 4e 54 52 59 5c 4b 42 56 47 4f 00 2b 01 00 00 10 00 50 20 45 4e 54 52 59 20 47 54 50 47 4f 00 2b 01 14 00 10 00 50 5c 45 4e 54 52 59 5c 44 43 31 47 4f 00 2b 01 28 00 10 00 50 20 45 4e 54 ┆RY REGGO + P ENTRY KBVGO + P ENTRY GTPGO + P ENTRY DC1GO + ( P ENT┆
0x3638…3688 52 59 20 4c 50 47 4f 20 00 2b 01 3c 00 0e 00 50 20 45 58 54 20 54 31 47 4f 20 00 2b 01 50 00 10 00 50 20 45 58 54 20 44 43 54 41 53 4b 20 00 2b 01 62 00 0e 00 50 5c 45 58 54 5c 56 44 55 4b 42 00 2b 01 76 00 0e 00 50 5c 45 58 54 5c 50 52 49 ┆RY LPGO + < P EXT T1GO + P P EXT DCTASK + b P EXT VDUKB + v P EXT PRI┆
0x3688…36d8 (36, 0, 400) 4e 54 00 2b 01 88 00 10 00 50 5c 45 58 54 5c 53 57 49 54 43 48 20 00 2c 00 0a 00 22 00 50 5c 45 58 54 5c 47 45 54 54 49 44 5c 47 45 54 20 54 41 53 4b 20 49 44 45 4e 54 49 54 59 20 00 2c 00 1e 00 28 00 50 5c 45 4e 54 52 59 5c 4f 46 46 4c 4e ┆NT + P EXT SWITCH , " P EXT GETTID GET TASK IDENTITY , ( P ENTRY OFFLN┆
0x36d8…3728 45 5c 4f 46 46 4c 49 4e 45 20 53 54 41 52 54 20 41 44 44 52 45 53 53 20 00 2c 00 44 00 12 00 50 20 45 4e 54 52 59 20 4f 4e 4c 49 4e 45 20 00 2c 00 70 00 04 00 50 00 2c 00 86 00 26 00 50 5c 44 53 43 30 5c 44 53 44 43 2c 32 5c 44 55 4d 4d 59 ┆E OFFLINE START ADDRESS , D P ENTRY ONLINE , p P , & P DSC0 DSDC,2 DUMMY┆
0x3728…3778 20 52 45 46 45 52 45 4e 43 45 20 54 3a 49 4f 20 00 2c 00 8e 00 04 00 50 00 2c 00 b8 00 2c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2c 00 c0 00 06 00 50 ┆ REFERENCE T:IO , P , , P**************************************** , P┆
0x3778…37c8 2a 20 00 2c 00 f0 00 20 00 50 2a 20 20 20 20 20 53 54 41 52 54 20 4f 46 20 52 45 47 49 53 54 52 41 54 49 4f 4e 20 00 2c 00 fa 00 06 00 50 2a 20 00 2c 01 1e 00 2c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆* , P* START OF REGISTRATION , P* , , P************************┆
0x37c8…3818 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2c 01 28 00 04 00 50 00 2c 01 58 00 0a 00 50 52 45 47 47 4f 20 00 2c 01 60 00 0c 00 50 20 42 20 54 31 47 4f 20 00 2c 01 6e 00 04 00 50 00 2c 01 7e 00 04 00 50 00 2c 01 86 00 2c 00 50 2a 2a ┆**************** , ( P , X PREGGO , ` P B T1GO , n P , ~ P , , P**┆