|
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: 36592 (0x8ef0)
Notes: pts_type(SC)
Names: »SUBAPL.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/SUBAPL.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/SUBAPL.SC«
IDENT SUBAPL 03.01.XXX.1
DDUM KMD08
PDIV
ENTRY SPAPPL
ENTRY SPCHK1
ENTRY SPCHK2
ENTRY SPCHK3
ENTRY SPCHK4
ENTRY SPCHK5
ENTRY SPCHK6
ENTRY SPCHK7
ENTRY SPTCHK
ENTRY SETKRE
ENTRY SETDEB
ENTRY SELTR
EXT CHDATO
EXT PACKCL
EXT CRKJ
EXT KKCH
EXT KTPLAN
EXT TXTRD
EXT LEVRD
EXT REPL00
INCLUDE EQUATE
*
SPCHK1 PROC
********************
*
* SPCHK1 - CDVCHECK
*
* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT
* IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4
*
********************
MOVE SPBINW3,CBIN1 INITIAL ERRORCODE
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBL GSWBIN1,CBIN3,CHK1RET FOR LENGTH < 3, NO CHECK
CBL GSWBIN1,CBIN7,CHK1ER IF 2<LENGTH<7, ERROR
CBE GSWBIN1,CBIN7,CHK10 IF LENGTH = 7, OK (CIRNR)
CBNE GSWBIN1,CBIN10,CHK1ER IF LENGTH = 10, OK (CPRNR)
CHK10
MOVE GSWBIN2,CBIN13
MOVE GSWBCD5,=D'0'
MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED
TBT GTADMFLG,CHK11
CBL GSWBCD6,=D'1',CHK1ER
CHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3
COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT
MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH
ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM
SUB GSWBIN2,CBIN1 ADJUST WEIGHT INDEX
SUB GSWBIN1,CBIN1 ADJUST LENGTH OF ITEM
CBNE GSWBIN1,CBIN0,CHK11 BACK TO NEXT DIGIT
MOVE GSWBCD4,GSWBCD5
DIV GSWBCD5,=D'11' DIVIDE BY 11
MUL GSWBCD5,=D'11' MULTIPLY WITH 11
SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11
CBL GSWBCD4,=D'1',CHK1RET IF REMAINDER 0, THEN RETURN
CHK1ER
MOVE SPBINW4,CBIN6
MOVE SPBINW3,CBIN3 SET ERROR VALUE
*
CHK1RET
RET
PEND
EJECT
SPCHK2 PROC
********************
*
* SPCHK2 - CHECK DATE
*
* CHECKS 0<DAY<32 AND 0<MONTH<13
* DATE IS IN THE FORM DDMMYY
* INPUT FIELD: SPINPUT
*
* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4
*
********************
MOVE SPBINW3,CBIN1 INITIAL ERRORCODE
MOVE GSWBCD3,=D'1' BLANK GSWBCD3
MOVE GSWBCD6,SPINPUT GET DATE
MOVE GSWBIN2,CBIN10 SET POINTER TO MONTH
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH
CBG GSWBCD3,=D'12',CH29 CHECK MONTH
CBL GSWBCD3,=D'1',CH29
SUB GSWBIN2,CBIN2 ADJUST POINTER TO DAY
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY
CBG GSWBCD3,=D'31',CH29
CBL GSWBCD3,=D'1',CH29
B CH2RET
CH29
MOVE SPBINW3,CBIN3 INDICATE ERROR
MOVE SPBINW4,CBIN7 SET ERRORCODE
CH2RET
MOVE GSWBCD3,=X'FF'
RET
PEND
EJECT
SPCHK3 PROC
****************
*
* SPCHK3 - CHECK MONTH
*
* CHECKS 0<MONTH<13
* MONTH IS IN THE FORM MM
* INPUT FIELD: SPINPUT
*
* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4
*
******************
MOVE GSWBCD3,SPINPUT GET MONTH
CBG GSWBCD3,=D'12',CH39 CHECK MONTH
CBL GSWBCD3,=D'1',CH39
MOVE SPBINW3,CBIN1 SET ERRORCODE OK
B CH3RET
CH39
MOVE SPBINW3,CBIN3 INDICATE ERROR
MOVE SPBINW4,CBIN7 SET ERRORCODE
CH3RET
RET
PEND
EJECT
SPCHK4 PROC
********************
*
* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY
*
********************
MOVE SPBINW3,CBIN1
CBNE SPBINW2,CBIN18,CH4RET
MOVE GSWBCD7,SPINPUT IF KREDIT KEY
MUL GSWBCD7,=D'-1'
MOVE SPINPUT,GSWBCD7
MOVE SPBINW2,CBIN3 SIMULATE EOI-KEY
CH4RET
RET
PEND
EJECT
SPCHK5 PROC
********************
*
* SPCHK5 - CHECK LINE NUMBER
*
*******************
MOVE SPBINW3,CBIN1
MOVE GSWBCD3,SPINPUT GET LINE NUMBER
CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ?
CBE GSWBCD3,=D'91',CH510
MUL GSWBCD3,=D'2'
MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE
SUB GSWBCD4,GSWBCD3
CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE?
MOVE GSWBIN1,GSWBCD4
CBNL GSWBIN1,CVOUTOP,CH5ERR
CBL GSWBIN1,CMINLIN,CH5ERR
RET
CH5ERR
MOVE SPBINW3,CBIN3
MOVE SPBINW4,CBIN8
RET
CH510
MOVE GSWBIN1,GSWBCD3
RET
PEND
EJECT
SPCHK6 PROC
********************
*
* SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO,
* KONTOKORT
*
*******************
PERF KKCH
MOVE GSWBCD3,SPINPUT GET DIGIT
MOVE SPBINW3,CBIN1
CBL GSWBCD3,=D'1',CH6RET NO CHECK IF ZERO
CBE GSWBCD3,TTKTCHK,CH6RET OK
MOVE SPBINW3,CBIN3 ERROR
MOVE SPBINW4,CBIN13
CH6RET
RET
PEND
SPCHK7 PROC
**********
*
* SPCHK7- CDVCHECK (USES SPCHK1)
* INSERTS CHECKDIGIT, IF LENGTH=8
*
* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT
* IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4
* FIELD MUST BE 7 OR 10 LONG
* IF FIELD IS 8 LONG, IT IS ASSUMED TO BE A PHONE NUMBER,
* AND IS THEN CHANGED FROM 0XXXXXXX TO 5XXXXXXXCC
*
**********
*
TBF CLEV8FLG,CHK705
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBE GSWBIN1,CBIN8,CHK710 SPECIAL TREATMENT OF PHONE NO
CHK705
PERF SPCHK1 ELSE NORMAL CDVCHK
B CHK7RET
*
CHK710
MOVE SPBINW4,CBIN0
MOVE GSWBCD6,SPINPUT +FFFFF0XXXXXXX
TBT C539FLG,CHK720 JUMP IF TINGLEV
MOVE GSWBCD3,=D'5' +FFFF5
COPY GSWBCD6,CBIN6,CBIN1,GSWBCD3,CBIN5
CHK720
MUL GSWBCD6,=D'10' +FFFF5XXXXXXX0
MOVE SPINPUT,GSWBCD6
MOVE SPBINW1,CBIN9 SET LENGTH
MOVE SPBINW5,SPBINW2 SAVE END KEY
MOVE SPBINW2,CBIN3 SIMULATE KEY
MOVE SPBINW3,=W'105' APPL VALUE
PERF SPAPPL CALCULATE CONTROL DIGIT
MOVE SPBINW2,SPBINW5 RESTORE KEY VALUE
CBNE GSWBCD5,=D'10',CHK730 CHECK CONTROLDIGIT
MOVE GSWBCD5,=D'50' SET CONTROL DIGIT
CHK730
MUL GSWBCD6,=D'10' ROOM FOR CONTROLDIGIT
ADD GSWBCD6,GSWBCD5 INSERT CONTROL DIGIT
MOVE SPBINW1,CBIN10 SET LENGTH
MOVE SPINPUT,GSWBCD6
CHK7RET
RET
PEND
EJECT
SPTCHK PROC
********************
*
* SPTCHK - CONDITIONAL TABULATION
* CONTROLLED BY 'CTAB' IN FORMATS
*
********************
GETCTL 0,SPBINW3 GET APPL-VALUE
CBE SPBINW3,=W'84',TCHK84
SUB SPBINW3,CBIN16 ADJUST INDEX
IB SPBINW3, C
TCHK17,TCHK18,TCHK19,TCHK20
SUB SPBINW3,=W'61' +16-77
IB SPBINW3,TCHK78,TCHK79
SUB SPBINW3,=W'38' 116-119
IB SPBINW3,TCHK116,TCHK117,TCHK118,TCHK119
TCHK00 CORRECT FIELD
MOVE SPBINW3,CBIN0
RET
*
TCHK17
TBT BCPR,TCHK00
B TCHK99
*
TCHK18
TCHK19
TCHK20
TBF BCPR,TCHK00
B TCHK99
*
TCHK78
MOVE SPBINW3,TTCNTNR
SUB SPBINW3,=W'100'
CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK00 CONTINUE TAB
B TCHK99 CORRECT FIELD
*
TCHK79
MOVE SPBINW3,TTCNTNR
SUB SPBINW3,=W'100'
CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK99 CORRECT FIELD
B TCHK00 CONTINUE TAB
*
TCHK84
TBF GTTRSEL,TCHK00
B TCHK99
*
TCHK116
MOVE SPBINW3,GTTXTTKO
IB SPBINW3,TCHK99,TCHK00,TCHK00,TCHK99,TCHK99,TCHK00
B TCHK99
*
TCHK117
MOVE SPBINW3,GTTXTTKO
IB SPBINW3,TCHK99,TCHK99,TCHK00,TCHK99,TCHK99,TCHK99
B TCHK99
*
TCHK118
MOVE SPBINW3,GTTXTTKO
IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK00,TCHK00,TCHK00
B TCHK99
*
TCHK119
MOVE SPBINW3,GTTXTTKO
IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK99,TCHK00,TCHK99
B TCHK99
TCHK99 CONTINUE TAB
MOVE SPBINW3,CBIN2
RET
PEND
EJECT
SPAPPL PROC
********************
*
* SPAPPL - PROCEDURE ACTIVATED BY SCREEN PACKAGE IF APPL-VALUE
* IS NOT ZERO, WHICH IS THE CASE FOR ALL FIELDS.
*
* APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE)
* A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT
* TESTING AND BRANCH TO PACKING ROUTINE
*
********************
*
* SPBINW3 IS CURRENT APPL NUMBER
ART - RETURN
APK - PACK FIELD
APF - PACK FIELD WITH SIGN
AA01 - TEST FOR FIELD TO BE
---- - AUTODUPPED
AA02 - TEST FOR AUTODUP KEY
AA03 - IF LENGTH ZERO,
---- - DELETE FIELS
AA05 - TEST FIELD 5
AA06 - TEST FIELD 6
AA11 - TEST VALOERDATE
AA17 - TEST FORFALDSAAR
AA65 - IF AA05, AA06 THERE
---- - MIGHT BE A CHOICE
---- - OF NEW TRANSTYPE
A64 - TEST FIELD 64
A65 - TEST FIELD 65
A76 - COUNTER, TRANS 12
A77 - TR 4, INSERT BKO 51,52
A78 - ACCOUNT NO, TRANS 12
A79 - - - - - - (COPY)
A80-A87 - CHECK OF CONTROL
---- - INFORMATION FOR
---- - TRANSTYPES
A88 - AUTODUP BKO, TR 4
A89 - STORE IN FIELD 6
A90 - SPECIAL SLUT-FIELD
A91 - ENTER TO SLUT-KEY
A100 - CHECK TR 12
A101 - CHECK BEHL. COUNT.
A102 - REL. DAY
A103 - SET BEHL. COUNT
A104 - SET TRANS 12
A105 - CTRL.DIGIT CALC.
A107 - AS A102
A108 - SPG -REGKONTONR
A109 - SPG-CPR/CIR/NR
A110 - SPG-BELOB
A111 - SPG-OTHER FIELD
A115 REMIT-TXT
A120 - BUDGET
*
CBL SPBINW3,=W'90',AA01
CBG SPBINW3,=W'114',AA01
B AAA 90-114
*
AA01
CBNE SPBINW1,CBIN0,AAA IF LENGTH IS ZERO
MOVE GSWBIN4,CFLTDEX(SPBINW3) GET INDEX VALUE TO GSWBIN4
MOVE GTUSED(GSWBIN4),CBIN0 DELETE FIELD
B ART
*
AAA IB SPBINW3, C
ART,ART,ART,ART,A05,A06,A07,APF,ART, FIELDS 1-9 C
APK,A11,APK,APK,APK,APK,APK,A17,APK,APK, FIELDS 10,19 C
APK,APK,APK,APK,APK,APK,APK,APK,APK,APK, FIELDS 20-29 C
APK,APK,APK,APF,APK,APK,APK,APK,APK,APF, FIELDS 30-39 C
APK,APK,APK,APK,APK,APK,APK,APF,APK,APK, FIELDS 40-49 C
APK,APK,APF,APF,A54,A57,A57,A57,A57,A57, FIELDS 50-59 C
A57,A57,A57,APK,A64,A65,APK,ART,ART,ART, FIELDS 60-69 C
APK,APK,ART,ART,ART,ART,A76,A77,A78,A79, FIELDS 70,79 C
A80,A81,A82,A83,A84,A85,A86,A87,A88,A89, FIELDS 80-89 C
A90,A91,A92,A93,A94,ART,ART,ART,ART,ART, FIELDS 90,99 C
A100,A101,A102,A103,A104, FIELDS 100,104 C
A105,ART,A107,A108,A109, FIELDS 105,109 C
A110,A111,ART,ART,ART, FIELS 110,114 C
A115,A116,A117,A118,A119,A120, FIELDS 115,120 C
A121,A122,APK,APK,APK, FIELDS 121-125 C
ART,ART,ART,ART,ART FIELDS 126-129
**********
A05 CHECK REGISTRERINGSKONTONUMMER
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBE GSWBIN1,CBIN4,A059 LENGTH = 4?
CBL GSWBIN1,CBIN3,A065 TRANSTYPE HANDLING IN A065
CMP GSWBIN1,CBIN10 LENGTH MUST BE 10
BNE A058
MOVE GSWBCD1,SPINPUT
PERF KTPLAN,GSWBCD1,GTKTTYP
MOVE GSWBIN1,GTKTTYP
IB GSWBIN1, C
A053,A053,A051,A053,A053,A052,A0570,A0575
A051
B APK CPR NOT NECESSARY
A052 REMIT. NOT ALLOWED
IB GTREGDEX, C
A0520,A0520,A0520,A0520,A0520, TR 1,2,3,4,5 C
A0520,A0520,A0525,A0525,A0520, TR 6,7,8,9,10 C
A0520,A0525,A0525,A0525,A0525 TR 12,18,19,28,29
A0520
B APK
A0525
MOVE SPBINW4,CBIN20 ERROR
B ART
A053 CPR NECESSARY
IB GTREGDEX, C
A054,A055,A054,A054,A055, TR 1,2,3,4,5 C
A054,A055,A055,A054,A054, TR 6,7,8,9,10 C
A054,A055,A054,A055,A054 TR 12,18,19,28,29
A054
B APK
A055
CBL GSWBIN1,CBIN3,A056 ERROR
SET SPWARNFL WARNING
B A054
A056
MOVE SPBINW4,CBIN19
B ART
*
A0570 7: KNT.NO. NOT ALLOWED
MOVE SPBINW4,=W'23'
B ART
*
A0575 8:KNT.NO. NOT ALLOWED IN SUPL
CBE GTREGDEX,CBIN10,A0577 TR 10
TBT TTSUPFLG,A0577 SUPL
B APK OK
A0577 NOT OK
MOVE SPBINW4,CBIN22
B ART
*
A059
CBL GTREGNR,=D'48',A058 ONLY ALLOWED WHEN
CBG GTREGNR,=D'49',A058 IN BUDGET TR.48/49
B APK
*
A058
MOVE SPBINW4,CBIN3 SET ERRORCODE
B ART
**********
A06 CHECK CPR/CIR NUMBER
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBL GSWBIN1,CBIN3,A065 TRANSTYPE HANDLING IN A065
SET BCPR SET CPR-SWITCH (CPR-NO)
MOVE GSWBCD1,SPINPUT
CBL GSWBCD1,=D'10000000',A061
SET BLEV LEVERAND.
CBG GSWBCD1,=D'3900000000',A062
CLEAR BLEV CPR.
B A062
A061
CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO)
A062
TBT GTBDTFLG,A0625 BUNDT REMIT
TBT GTSTRFLG,A0621 STRAKS REMIT
B APK NOT REMIT
*
A0621
MOVE GTLEVNR,GSWBCD1 STRAKS REMIT, SET LEVNR
PERF LEVRD
BOK A0622
NOT OK, LEV FINDES IKKE
SET SPWARNFL SET WARNING
B APK
A0622
CBG GTLEVBFO,=D'4',A0629 ONLY 0-4 VALID
B A063
*
A0625 BUNDT REMIT
MOVE GTLEVNR,GSWBCD1 SET LEVNR
PERF LEVRD
BNOK A0629
CBL GTLEVBFO,=D'1',A0629
CBE GTLEVBFO,=D'5',A0629
A063
TBF GTCYFLG,A064
MOVE GSSWITCH(CBIN2),CBIN1
A064
B APK
A0629 WRONG BETALINGSFORM
MOVE SPBINW4,CBIN11 ERROR
B ART
**********
A54 FIELD 54 HAS BEEN ENTERED
* THE FIELD WITH LENGTH N (N = 1,2,...,10)
* HAS TO BE LEFT-JUSTIFIED AND EXPANDED
* TO THE LENGTH 10.
MOVE GSWSTR20,=C'0'
MOVE GSWBIN1,CBIN10
SUB GSWBIN1,SPBINW1 HOW MANY ZEROES ?
INSRT SPINPUT,SPBINW1,GSWBIN1,GSWSTR20,CBIN0
MOVE SPBINW1,CBIN10 ADJUST LENGTH
B APK
**********
A57
B APF
******
A065
MOVE SPBINW1,CBIN0 SET LENGTH TO ZERO (FUNCTION)
MOVE GSWBCD3,SPINPUT GET NEW TRANSTYPE
*
CMP SPBINW2,=W'30' ADM ROUTINE
BE ART
CMP SPBINW2,=W'31' CYCLE
BE ART
*
* CHECK FOR VALID TRANSTYPE
*
* ADJUST REGDEX
*
MOVE GSWBIN1,CBIN1
* TEST FOR CORRECT TRANSACTIONS IN THIS CONNECTION
TBT GTKASSE,A0672
CBG GSWBCD3,=D'30',A067 CORRECT FOR NOT IN KASSE
B A0675
A0672
CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE
B A0675
*
A067
CBE GSWBCD3,CREGTAB(GSWBIN1,CBIN1),A068 SEARCH REGNR
ADD GSWBIN1,CBIN1 ADD 1 TO INDEX
CBNE CREGTAB(GSWBIN1,CBIN1),=D'-1',A067 END OF TABLE?
*
A0675
MOVE SPBINW4,CBIN9 INVALID TRANSTYPE
B ART
A068
TAKE CARE OF NEW TRANSTYPE
CBE SPBINW2,CBIN18,A0680 HANDLING OF KREDIT KEY
CBE SPBINW2,CBIN17,A0680 SLUT/DEB KEY
CBE SPBINW2,CBIN3,A0680 HANDLING OF DEBIT KEY
MOVE SPBINW4,CBIN4 HANDLING OF WRONG KEY
B ART
A0680
TBT GTCYFLG,A0685 CYKEL TABEL ?
CLEAR GTBDTFLG NO, CLEAR FLAGS
CLEAR GTSTRFLG
CBL GSWBCD3,=D'28',A0681
SET GTBDTFLG TRANS 28,29
B A0689
A0681
CBL GSWBCD3,=D'18',A0689
SET GTSTRFLG TRANS 18,19
B A0689
A0685 IN CYKEL/STABEL
TBF GTBDTFLG,A0686 TRANS 28,29 ?
CBL GSWBCD3,=D'28',A0675 IF NOT, INVALID TRANS
B A0689 VALID TRANS
A0686
TBT GTSTRFLG,A0687 TRANS 18, 19 ?
NO, ONLY TRANS 1-12
CBG GSWBCD3,=D'12',A0675 IF NOT, INVALID TRANS
B A0689 VALID TRANS
A0687
TRANS 18,19
CBL GSWBCD3,=D'18',A0675 TR 1-12 INVALID
CBL GSWBCD3,=D'28',A0689 TR 18,19 VALID
B A0675 TR 28,29 INVALID
A0689
CBE SPBINW2,CBIN18,A06KRE KREDIT KEY
B A06DEB
A06KRE
PERF SETKRE
B A066
A06DEB
PERF SETDEB
A066
MOVE GTREGNR,GSWBCD3
MOVE GTREGDEX,GSWBIN1
SET GTREGFLG VALID TRANSTYPE FOUND
SET TTEORFLG START NEW TRANS
*
MOVE SPBINW2,=W'36' SIMULATE TRANSACTION SELECTED
B ART
**********
A07 BKO FIELD
INSERT TEXT IN TT07TXT
CLEAR TTASKAT
MOVE GSWBCD3,SPINPUT
CBNE GSWBCD3,=D'51',A070
SET TTASKAT
A070
CBNE GTREGDEX,CBIN3,A0705
CBE GSWBCD3,=D'51',A076 TRANS 3
CBE GSWBCD3,=D'52',A076
A0705
MOVE GSWBIN1,CBIN0 GET LENGTH OF STRING
COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1
MOVE GSWBCD3,TT07TXT
MOVE GSWBIN2,GSWBCD3
MOVE TT07TXT,CBLANKS
MOVE GSWBIN1,CBIN5 FIRST CHAR, POINTER
MOVE GSWBIN3,CBIN0
CBNG SPBINW1,CBIN2,A071
MOVE GSWBIN3,CBIN1 ADJUST DUPPED FIELD INDEX
A071
SUB GSWBIN1,CBIN7
A0708
ADD GSWBIN1,CBIN7
CBG GSWBIN1,GSWBIN2,A075
MATCH CTTXT07,GSWBIN1,CBIN2,SPINPUT,GSWBIN3,CBIN2
BNOK A0708
* NEXT 5 CHARS CONTAIN TEXT
ADD GSWBIN1,CBIN2
COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1
* SEE IF ALLOWED
CBNE GTREGDEX,CBIN3,A077 ONLY CHECK IF TRANSTYPE 3
ADD GSWBIN1,CBIN5
MOVE GSWSTR2,CBLANKS
COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE
MOVE GSWBCD3,GSWSTR2
CBL GSWBCD3,=D'1',A077 OK
CBL GTREGF(CBIN2),=D'10000000',A072
CBE GSWBCD3,=D'1',A077 CPR - BKO ALLOWED
B A076
A072
CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED
B A076
A075
TBT CBKOFLG,A077
A076
MOVE SPBINW4,CBIN11
B ART
A077
B APK
**********
A11 CHECK VAL DATE NOT GREATER
THAN POST DATE
CBE GTREGDEX,CBIN3,A0110 TRANS 3
CBE GTREGDEX,CBIN4,A0110 TRANS 4
TBF TTCY1FLG,A01101
TBF GTBDTFLG,A01101
MOVE GSSWITCH(CBIN7),CBIN1
A01101
B APK
A0110
TBF CVALFLG,A01101
* GET AND CHANGE VALOERDATE
MOVE GSWBCD6,SPINPUT
PERF CHDATO
MOVE GSWBCD1,GSWBCD7
* GET AND CHANGE POSTDATE
MOVE GSWBCD6,GTDATO
PERF CHDATO
* COMPARE
CMP GSWBCD1,GSWBCD7
BNG APK
MOVE SPBINW4,CBIN7
B ART
**********
A17 CHECK 'FORFALDSAAR' FAAR
FAAR >= 70
FAAR <= YY+2
MOVE GSWBCD6,SPINPUT GET FAAR
CBL GSWBCD6,=D'70',A17ERR LESS THAN 70: ERROR
MOVE GSWBCD1,GTDATO GET POSTDATO
MOVE GSWBCD3,=D'2'
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR
ADD GSWBCD3,=D'2' ADD 2
CBG GSWBCD6,GSWBCD3,A17ERR MORE THAN YY+2
B APK
A17ERR
MOVE SPBINW4,CBIN11 INVALID NUMBER
B ART
**********
A64
MOVE GSWBCD3,SPINPUT GET 'PRISREGULERINGSKODE'
CBG GSWBCD3,=D'5',A649
CBL GSWBCD3,=D'0',A649
FIELD 64 HAS BEEN ENTERED AND
MOVE GSSWITCH(CBIN12),CBIN1 SHOULD BE GTAUTODPPED
B APK
A649
MOVE SPBINW4,CBIN10
B ART
**********
A65 CHECK VALUE 1000-3999
MOVE GSWBCD4,SPINPUT GET VALUE
CBG GSWBCD4,=D'3999',A659
CBL GSWBCD4,=D'1000',A659
B APK
A659
MOVE SPBINW4,CBIN11
B ART
**********
A76 COUNTER NO, TRANS 12
CMP SPBINW1,CBIN3
BL A065 TRANSTYPE HANDLING
MOVE GSWBCD3,SPINPUT GET VALUE
MOVE TTCNTNR,SPINPUT
SUB GSWBCD3,=D'100' GET INDEX
MOVE GSWBIN1,GSWBCD3
CBG GSWBIN1,CTR12(TTASKNR,CBIN2),A76NOK
CBL GSWBCD3,=D'1',A76NOK MIN COUNTER NO
ADD GSWBIN1,CTR12(TTASKNR,CBIN1)
CBL CTR12NR(GSWBIN1),=D'1',A76NOK
MUST BE > 0
B ART TO WRITE ON SCREEN
A76NOK
MOVE SPBINW4,CBIN18
B ART
**********
A77 INSERT 51,52 IN TR 4
MOVE SPBINW3,CBIN7 FIELD 7
MOVE SPBINW1,CBIN2 LENGTH
TBT BCPR,A775
MOVE SPINPUT,=X'35310000' 51 IF CIR
B A07
A775
MOVE SPINPUT,=X'35320000' 52 IF CPR
B A07
**********
A78 INSERT ACCOUNT NO
11-15
MOVE SPBINW3,CBIN5 SIMULATE FIELD 5
B APK
********
A79 AUTODUP ACCOUNT NO
MOVE SPBINW3,CBIN5 IN FIELD 5
MOVE GSWBIN1,TTCNTNR GET COUNTER NO
SUB GSWBIN1,=W'100'
ADD GSWBIN1,CTR12(TTASKNR,CBIN1)
MOVE SPINPUT,CTR12NR(GSWBIN1)
MOVE SPBINW1,CBIN10 LENGTH
B APK
**********
A80 CHECK HOVEDBOG, KONTONR
MOVE SPBINW3,CBIN5 FIELD 5
MOVE SPBINW5,CBIN2 MIGHT BE TRANSTYPE 2
CBL SPBINW1,CBIN3,A805 CHECK LENGTH
CBE SPBINW1,CBIN10,A801 MUST BE 10
MOVE SPBINW4,CBIN3 ERROR LENGTH
B ART
A801
MOVE GSWBCD1,SPINPUT
PERF KTPLAN,GSWBCD1,GTKTTYP
MOVE GSWBIN1,GTKTTYP
CMP GSWBIN1,CBIN7 7: KNT.NO. NOT ALLOWED
BE A0570
CBNE GSWBIN1,CBIN8,A804
TBF TTSUPFLG,A804
B A0577 8:KNT.NO. NOT ALLOWED IN SUPL
A804
PERF SELTR TRANS SELECTED
BNOK ART INVALID KEY
B APK OK
A805 CHECK FUNCTION KEYS
MOVE SPBINW1,CBIN0
CMP SPBINW2,=W'30' ADM KEY
BE ART
CMP SPBINW2,=W'31' CYCLE KEY
BE ART
MOVE SPBINW4,CBIN4 INVALID KEY
B ART
**********
A81 CHECK HOVEDBOG, CPR/CIR/NR
MOVE SPBINW3,CBIN6 FIELD 6
MOVE SPBINW5,CBIN1 MIGHT BE TRANS TYPE 1
CBG SPBINW1,CBIN2,A811 CHECK LENGTH
MOVE SPBINW4,CBIN3 ERROR LENGTH
B ART
A811 CPR OR CIR ?
SET BCPR SET CPR NO
MOVE GSWBCD1,SPINPUT
CBL GSWBCD1,=D'10000000',A814
SET BLEV
CBG GSWBCD1,=D'3200000000',A812
CLEAR BLEV
B A812
A814
CLEAR BCPR SET CIR NO
A812
PERF SELTR TRANS SELECTED
BNOK ART INVALID KEY
B APK OK
**********
A82 CHECK HOVEDBOG, YD.MODT.
MOVE SPBINW3,CBIN21 FIELD 21
MOVE SPBINW5,CBIN6 MIGHT BE TRANSTYPE 6
A821
CBNE SPBINW2,CBIN3,A822 IF ENTER KEY,
MOVE SPBINW2,CBIN17 SIMULATE DEBET KEY
A822
PERF SELTR TRANS SELECTED
BNOK ART INVALID KEY
B APK OK
**********
A83 CHECK DEBITOR, DEBITOR NR
MOVE SPBINW3,CBIN6 FIELD 6
CBL SPBINW1,CBIN3,A805 FUNCTION?
CBL SPBINW1,CBIN7,A833
MOVE SPBINW5,CBIN4 MIGHT BE TRANSTYPE 4
SET BCPR SET CPR
MOVE GSWBCD1,SPINPUT
CBL GSWBCD1,=D'10000000',A831
SET BLEV
CBG GSWBCD1,=D'3200000000',A832
CLEAR BLEV
B A832
A831
CLEAR BCPR SET CIR
A832
PERF SELTR
BNOK ART
MOVE SPBINW2,CBIN3
B APK
A833
MOVE SPBINW4,CBIN3 ERROR LENGTH
B ART
**********
A84 CHECK DEBITOR, BKO
MOVE SPBINW3,CBIN7 FIELD 7
MOVE SPBINW5,CBIN3 MIGHT BE TRANSTYPE 3
CBNE SPBINW2,CBIN3,A842
MOVE SPBINW2,CBIN17
A842
MOVE GSWBCD1,SPINPUT
CBE GSWBCD1,=D'+51',A845
CBE GSWBCD1,=D'+52',A845
A843
PERF SELTR
BNOK ART
B A07
A845
MOVE SPBINW5,CBIN4
B A843
**********
A85 CHECK REMITTERING, KONTONR
MOVE SPBINW3,CBIN5 FIELD 5
CBL SPBINW1,CBIN3,A805 CHECK LENGTH
CBE SPBINW1,CBIN10,A850 MUST BE 10
MOVE SPBINW4,CBIN3 ERROR LENGTH
B ART
A850
CMP SPBINW2,CBIN3 ONLY ENTER-KEY ALLOWED
BNE A855
MOVE GSWBCD1,SPINPUT
PERF KTPLAN,GSWBCD1,GTKTTYP
MOVE GSWBIN1,GTKTTYP
CBE GSWBIN1,CBIN6,A853 6: REMIT NOT ALLOWED
CMP GSWBIN1,CBIN7 7:KNT.NO. NOT ALLOWED
BE A0570
CBNE GSWBIN1,CBIN8,A854
TBF TTSUPFLG,A854
B A0577 8:KNT.NO. NOT ALLOWED IN SUPL
A853
MOVE SPBINW4,CBIN20 REMIT NOT ALLOWED
B ART
A854
B APK
A855
MOVE SPBINW4,CBIN4 INVALID KEY
B ART
**********
A86 CHECK REMITTERING, LEV.NR.
MOVE SPBINW3,CBIN6 FIELD 6
MOVE SPBINW5,CBIN8 MIGHT BE TRANSTYPE 8
CMP SPBINW1,CBIN2 CHECK LENGTH + CPR/CIR
BG A811
MOVE SPBINW4,CBIN3 ERROR LENGTH
B ART
**********
A87 CHECK REMITTERING, YD.MODT.
MOVE SPBINW3,CBIN21 FIELD 21
MOVE SPBINW5,CBIN9 MIGHT BE TRANSTYPE 9
B A821 CHECK FOR INVALID KEY
**********
A88
MOVE SPBINW3,CBIN7 FIELD 7
MOVE SPBINW2,=W'36'
MOVE SPBINW1,CBIN2
TBT BCPR,A885
MOVE SPINPUT,=X'35310000' 51 IF CIR
B A07
A885
MOVE SPINPUT,=X'35320000' 52 IF CPR
B A07
**********
A89
MOVE SPBINW3,CBIN6 STORE IN FIELD 6
B APK
**********
A121 SIMULATE SLUT KEY
CLEAR GTSLUTFL
CLEAR GTADUPFL
MOVE SPBINW2,CBIN17 SLUT KEY
MOVE SPBINW1,CBIN0 LENGTH ZERO
B ART
**********
A122 ENTER TO SLUT KEY
CMP SPBINW2,CBIN3
BNE ART
MOVE SPBINW2,CBIN17
B ART
**********
A90
SET TFELT90
MOVE GTLEVTXT,CBLANKS
MOVE GTLEVNVN,CBLANKS
MOVE GTLEVADR,CBLANKS
MOVE GTLEVBY,CBLANKS
MOVE GTLEVPDI,CBLANKS
PERF SPACES
XCOPY GTLEVTXT,CBIN0,CBIN22,SPINPUT,CBIN0
B ART
***
A91
SET TFELT91
PERF SPACES
XCOPY GTLEVNVN,CBIN0,CBIN22,SPINPUT,CBIN0
B ART
***
A92
SET TFELT92
PERF SPACES
XCOPY GTLEVNVN,CBIN22,CBIN8,SPINPUT,CBIN0
XCOPY GTLEVADR,CBIN0,CBIN14,SPINPUT,CBIN8
B ART
***
A93
SET TFELT93
PERF SPACES
XCOPY GTLEVADR,CBIN14,CBIN18,SPINPUT,CBIN0
XCOPY GTLEVBY,CBIN0,CBIN4,SPINPUT,CBIN18
B ART
***
A94
SET TFELT94
PERF SPACES
XCOPY GTLEVBY,CBIN4,CBIN16,SPINPUT,CBIN0
XCOPY GTLEVPDI,CBIN0,CBIN6,SPINPUT,CBIN16
B ART
***
A100 CHECK TR 12 COUNTERS
MOVE GSWBCD1,SPINPUT
SUB GSWBCD1,=D'100'
MOVE GSWBIN6,GSWBCD1
CBL GSWBIN6,CBIN1,A1009 TOO SMALL
CBG GSWBIN6,CTR12(TTASKNR,CBIN2),A1009 TOO HIGH
ADD GSWBIN6,CTR12(TTASKNR,CBIN1)
B ART
A1009
MOVE SPBINW4,CBIN11
B ART
**********
A101 CHECK BEHL. COUNTERS
MOVE GSWBCD1,SPINPUT
CBL GSWBCD1,=D'1',A101ER
MOVE GSWBIN6,GSWBCD1
CBG GSWBIN6,CBEH(TTASKNR,CBIN2),A101ER
ADD GSWBIN6,CBEH(TTASKNR,CBIN1)
B ART
A101ER
MOVE SPBINW4,CBIN11
B ART
**********
A102 CHECK RELATIVE DAY
MOVE GSWBCD7,CMASKDAT
MOVE GSWBCD5,=D'2' INITIATE REL DAY NO.
MOVE GSWBCD3,=D'1' BLANK GSWBCD3
MOVE GSWBIN2,CBIN8 SET POINTER TO DAY
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET DAY
ADD GSWBCD5,GSWBCD3 ADD DAY TO REL. DAY
ADD GSWBIN2,CBIN2 SET POINTER TO MONTH
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET MONTH
SUB GSWBCD3,=D'1' GET WHOLE NO. OF MONTHS
MUL GSWBCD3,=D'30' EQUAL IN DAYS
ADD GSWBCD5,GSWBCD3
MOVE GSWBCD3,SPINPUT GET KEYED REL. DAY
SUB GSWBCD5,=D'5'
CBL GSWBCD3,GSWBCD5,A102ER TOO SMALL
ADD GSWBCD5,=D'10'
CBG GSWBCD3,GSWBCD5,A102ER TOO LARGE
B A102END
A102ER
MOVE SPBINW4,CBIN11 INVALID VALUE
A102END
MOVE GSWBCD3,=X'FF'
B ART
**********
A103 SET BEHL. COUNTERS
MOVE GSWBCD3,SPINPUT
MOVE GSWBIN6,GSWBCD3
ADD GSWBIN6,CBEH(GSWBIN1,CBIN1)
CBG GSWBIN6,=W'60',A103ER TOO MANY
CBE GSWBIN1,CBIN12,A1035
ADD GSWBIN1,CBIN1
MOVE CBEH(GSWBIN1,CBIN1),GSWBIN6
SUB GSWBIN1,CBIN1
A1035
MOVE GSWBIN6,GSWBCD3
MOVE CBEH(GSWBIN1,CBIN2),GSWBIN6
B ART
A103ER
MOVE SPBINW4,CBIN11
B ART
**********
A104 SET TR 12 COUNTERS
MOVE GSWBCD4,SPINPUT
MOVE GSWBIN6,GSWBCD4
ADD GSWBIN6,CTR12(GSWBIN1,CBIN1)
CBG GSWBIN6,=W'60',A104ER TOO MANY
CBE GSWBIN1,CBIN12,A1045
ADD GSWBIN1,CBIN1
MOVE CTR12(GSWBIN1,CBIN1),GSWBIN6
SUB GSWBIN1,CBIN1
A1045
MOVE GSWBIN6,GSWBCD4
MOVE CTR12(GSWBIN1,CBIN2),GSWBIN6
B ART
A104ER
MOVE SPBINW4,CBIN11
B ART
**********
A105 CONRTL.DIGITCALC.
MOVE GSWBCD6,SPINPUT
CBE SPBINW2,CBIN3,CALCD01
CMP SPBINW2,CBIN17
BNE ART
CALCD01
MOVE GSWBIN1,SPBINW1 GET LENGTH
MOVE GSWBIN2,CBIN13
MOVE GSWBCD5,=D'0'
CALCD02
MOVE GSWBCD3,=D'0'
COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT
SUB GSWBIN2,CBIN1 ADJUST WEIGHT-INDEX
MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY BY WEIGHT
ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM
SUB GSWBIN1,CBIN1 ADJUST LENGTH
CBG GSWBIN1,CBIN0,CALCD02
MOVE GSWBCD4,GSWBCD5
DIV GSWBCD5,=D'11'
MUL GSWBCD5,=D'11'
SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11
CBNL GSWBCD4,=D'1',CALCD05
MOVE GSWBCD4,=D'11'
CALCD05
MOVE GSWBCD5,=D'11'
SUB GSWBCD5,GSWBCD4 CALCULATE CONTROLDIGIT
B ART
**********
A107 POSTDATO=MASKINDATO ?
MOVE GSWBCD7,SPINPUT
CBNE GSWBCD7,CMASKDAT,A1075
B ART
A1075
SET SPWARNFL
B ART
**********
A108 SPG-REGKONTONR
MOVE GSWBCD6,=D'5'
B ART
**********
A109 SPG-CPR/CIR/NR
MOVE GSWBCD6,=D'6'
B ART
**********
A110 SPG-BELOB
MOVE GSWBCD6,=D'8'
B ART
**********
A111 SPG-OTHER FIELD
MOVE GSWBCD6,SPINPUT
CBG GSWBCD6,=D'90',A111ERR
MOVE GSWBCD7,=D'0'
B ART
A111ERR
MOVE SPBINW4,CBIN11
B ART
**********
A115 TEXTNR REMITTERING
MOVE GSWBCD6,SPINPUT
MOVE GSWBIN8,GSWBCD6
PERF TXTRD,GSWBIN8 READ TEXT
BNOK A1154
CBE GTWBCD1,=D'10',A1154 END OF FILE
CBL GTTXTTKO,=D'1',A1154 DELETED
CLEAR GTSWFLAG
MOVE SPBINW3,=W'26'
A1151
TBF TTCY1FLG,A1153
TBT GTBDTFLG,A1152
TBF GTSTRFLG,A1153
A1152
MOVE GSWBIN1,CFLTDEX(SPBINW3)
MOVE GSSWITCH(GSWBIN1),CBIN1
A1153
B APK
A1154
MOVE SPBINW4,CBIN11 TEXT MISSING
B ART
**********
A116
MOVE SPBINW3,=W'24'
B A1151
**********
A117
MOVE SPBINW3,=W'25'
B A1151
**********
A118
MOVE SPBINW3,=W'37'
B A1151
**********
A119
MOVE SPBINW3,=W'38'
B A1151
**********
A120
* VALUESET: CURRENT YEAR +/- 1
MOVE GSWBCD1,CMASKDAT DDMMYY
MOVE GSWBCD2,CMASKDAT
DIV GSWBCD1,=D'100' DDMM
MUL GSWBCD1,=D'100' DDMM00
SUB GSWBCD2,GSWBCD1 YY
MOVE GSWBCD1,GSWBCD2
SUB GSWBCD1,=D'1'
ADD GSWBCD2,=D'1'
MOVE GSWBCD3,SPINPUT
CBL GSWBCD3,GSWBCD1,A120E
CBG GSWBCD3,GSWBCD2,A120E
B APK
A120E
MOVE SPBINW4,CBIN11
B ART
**********
APK KEEP INFORMATION
TBF TTEORFLG,APK00 FIRST FIELD?
CBE SPBINW3,CBIN5,APK10
MOVE GTKTTYP,=D'0' NOT KONTONR.
APK10
PERF PACKCL YES, CLEAR GTUSED
PERF CRKJ
SET SPME CHECK FOR ME FIELDS
APK00
MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF FIELD
MOVE GTUSED(GSWBIN1),SPBINW3 STORE FIELDNUMBER
B ART
**********
APF
TBF TTEORFLG,APF00 FIRST FIELD?
MOVE GTKTTYP,=D'0'
PERF PACKCL YES, CLEAR GTUSED
PERF CRKJ
SET SPME CHECK FOR ME FIELDS
APF00
TBT SPDUPL,APF10
MOVE GSWBCD6,SPINPUT GET VALUE
MUL GSWBCD6,GTDBKRS
MOVE SPINPUT,GSWBCD6
APF10
MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF CURRENT FIELD
* MULTIPLY WITH -1 IF KREDIT
* STORE NEGATIVE FIELD NUMBER (NUMBER WITH SIGN)
MOVE GTUSED(GSWBIN1),SPBINW3
MUL GTUSED(GSWBIN1),=W'-1'
B ART
**********
ART
MOVE SPBINW3,CBIN1
CBL SPBINW4,CBIN3,ARET
MOVE SPBINW3,CBIN3
ARET
RET
PEND
SPACES PROC
MOVE GSWBIN1,=W'35'
PERF REPL00,SPINPUT,GSWBIN1
RET
PEND
EJECT
SETKRE PROC
********************
*
* SETKRE - SET KREDIT INFORMATION
*
********************
MOVE GTDBKRC,=C' KRE'
MOVE GTDBKRS,=D'-1'
MOVE TTDKBCD,=D'1'
MOVE TTDKDEX,CBIN1
RET
PEND
*
SETDEB PROC
********************
*
* SETDEB - SET DEBET INFORMATION
*
********************
MOVE GTDBKRC,=C' DEB'
MOVE GTDBKRS,=D'+1'
MOVE TTDKBCD,=D'2'
MOVE TTDKDEX,CBIN2
RET
PEND
EJECT
SELTR PROC
********************
*
* SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN
* SELECTED.
* SELECTED TRANSTYPE IS IN SPBINW5
*
********************
CBE SPBINW2,CBIN3,SELOK ENTER KEY
CBE SPBINW2,CBIN18,SEL10 KREDIT KEY
CBE SPBINW2,CBIN17,SEL20 DEBET KEY
MOVE SPBINW4,CBIN4 INVALID KEY
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
SEL10 KREDIT
PERF SETKRE
B SEL30
SEL20 DEBET
PERF SETDEB
SEL30 TRANSTYPE SELECTED
MOVE GSWBIN1,GTKTTYP
IB GSWBIN1, C
SEL40,SEL40,SEL90,SEL40,SEL40
B SEL90
SEL40
IB SPBINW5, C
SEL90,SEL45,SEL90,SEL90,SEL90,SEL90,SEL90,SEL45,SEL90
SEL45
CBL GSWBIN1,CBIN3,SEL50
SET SPWARNFL WARNING
B SEL90
SEL50
MOVE SPBINW4,CBIN19 ERROR
CMP CBIN1,CBIN0
RET
SEL90
MOVE GTREGNR,SPBINW5 TYPE
MOVE GTREGDEX,SPBINW5 TYPE INDEX. OK FOR <11
MOVE SPBINW2,=W'36' SIMULATE TRANS SELECTED
SET GTTRSEL
SELOK
CMP CBIN0,CBIN0 OK, SET CR=0
RET
PEND
*
*
*
*
*
END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT SUBAPL 03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0036 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0026}
0x0036…0044 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x003a}
0x0044…005a Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAPPL «, t00=0x0000, t01=0x0048}
0x005a…0070 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK1 «, t00=0x0000, t01=0x005e}
0x0070…0086 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK2 «, t00=0x0000, t01=0x0074}
0x0086…009c Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK3 «, t00=0x0000, t01=0x008a}
0x009c…00b2 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK4 «, t00=0x0000, t01=0x00a0}
0x00b2…00c8 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK5 «, t00=0x0000, t01=0x00b6}
0x00c8…00de Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK6 «, t00=0x0000, t01=0x00cc}
0x00de…00f4 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK7 «, t00=0x0000, t01=0x00e2}
0x00f4…010a Head {h00=0x0012, h01=0x0050, text=» ENTRY SPTCHK «, t00=0x0000, t01=0x00f8}
0x010a…0120 Head {h00=0x0012, h01=0x0050, text=» ENTRY SETKRE «, t00=0x0000, t01=0x010e}
0x0120…0136 Head {h00=0x0012, h01=0x0050, text=» ENTRY SETDEB «, t00=0x0000, t01=0x0124}
0x0136…014a Head {h00=0x0010, h01=0x0050, text=» ENTRY SELTR«, t00=0x0000, t01=0x013a}
0x014a…015e Head {h00=0x0010, h01=0x0050, text=» EXT CHDATO «, t00=0x0000, t01=0x014e}
0x015e…0172 Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0000, t01=0x0162}
0x0172…0184 Head {h00=0x000e, h01=0x0050, text=» EXT CRKJ «, t00=0x0000, t01=0x0176}
0x0184…0196 Head {h00=0x000e, h01=0x0050, text=» EXT KKCH «, t00=0x0000, t01=0x0188}
0x0196…01aa Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0001, t01=0x000a}
0x01aa…01bc Head {h00=0x000e, h01=0x0050, text=» EXT TXTRD«, t00=0x0001, t01=0x001e}
0x01bc…01ce Head {h00=0x000e, h01=0x0050, text=» EXT LEVRD«, t00=0x0001, t01=0x0030}
0x01ce…01e2 Head {h00=0x0010, h01=0x0050, text=» EXT REPL00 «, t00=0x0001, t01=0x0042}
0x01e2…01fa Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0056}
0x01fa…0204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006e}
0x0204…0218 Head {h00=0x0010, h01=0x0050, text=»SPCHK1 PROC «, t00=0x0001, t01=0x0078}
0x0218…0234 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x008c}
0x0234…023e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a8}
0x023e…0262 Head {h00=0x0020, h01=0x0050, text=»* SPCHK1 - CDVCHECK«, t00=0x0001, t01=0x00b2}
0x0262…026c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026c…02ac Head {h00=0x003c, h01=0x0050, text=»* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT«, t00=0x0001, t01=0x00e0}
0x02ac…02e8 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4«, t00=0x0001, t01=0x0120}
0x02e8…02f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015c}
0x02f2…030e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x0166}
0x030e…033c Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0001, t01=0x0182}
0x033c…0364 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0002, t01=0x0020}
0x0364…03a0 Head {h00=0x0038, h01=0x0050, text=» CBL GSWBIN1,CBIN3,CHK1RET FOR LENGTH < 3, NO CHECK «, t00=0x0002, t01=0x0048}
0x03a0…03d6 Head {h00=0x0032, h01=0x0050, text=» CBL GSWBIN1,CBIN7,CHK1ER IF 2<LENGTH<7, ERROR«, t00=0x0002, t01=0x0084}
0x03d6…0412 Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN1,CBIN7,CHK10 IF LENGTH = 7, OK (CIRNR) «, t00=0x0002, t01=0x00ba}
0x0412…0452 Head {h00=0x003c, h01=0x0050, text=» CBNE GSWBIN1,CBIN10,CHK1ER IF LENGTH = 10, OK (CPRNR)«, t00=0x0002, t01=0x00f6}
0x0452…0460 Head {h00=0x000a, h01=0x0050, text=»CHK10 «, t00=0x0002, t01=0x0136}
0x0460…047c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN13«, t00=0x0002, t01=0x0144}
0x047c…0498 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0002, t01=0x0160}
0x0498…04cc Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED«, t00=0x0002, t01=0x017c}
0x04cc…04e8 Head {h00=0x0018, h01=0x0050, text=» TBT GTADMFLG,CHK11 «, t00=0x0003, t01=0x0020}
0x04e8…050a Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD6,=D'1',CHK1ER «, t00=0x0003, t01=0x003c}
0x050a…0512 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x005e}
0x0512…0540 Head {h00=0x002a, h01=0x0050, text=»CHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3«, t00=0x0003, t01=0x0066}
0x0540…0580 Head {h00=0x003c, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT«, t00=0x0003, t01=0x0094}
0x0580…05ba Head {h00=0x0036, h01=0x0050, text=» MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH«, t00=0x0003, t01=0x00d4}
0x05ba…05e6 Head {h00=0x0028, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x0003, t01=0x010e}
0x05e6…0614 Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN2,CBIN1 ADJUST WEIGHT INDEX«, t00=0x0003, t01=0x013a}
0x0614…0644 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN1,CBIN1 ADJUST LENGTH OF ITEM«, t00=0x0003, t01=0x0168}
0x0644…0678 Head {h00=0x0030, h01=0x0050, text=» CBNE GSWBIN1,CBIN0,CHK11 BACK TO NEXT DIGIT«, t00=0x0004, t01=0x0008}
0x0678…0696 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x0004, t01=0x003c}
0x0696…06be Head {h00=0x0024, h01=0x0050, text=» DIV GSWBCD5,=D'11' DIVIDE BY 11«, t00=0x0004, t01=0x005a}
0x06be…06ea Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD5,=D'11' MULTIPLY WITH 11«, t00=0x0004, t01=0x0082}
0x06ea…071c Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x0004, t01=0x00ae}
0x071c…075a Head {h00=0x003a, h01=0x0050, text=» CBL GSWBCD4,=D'1',CHK1RET IF REMAINDER 0, THEN RETURN«, t00=0x0004, t01=0x00e0}
0x075a…0768 Head {h00=0x000a, h01=0x0050, text=»CHK1ER«, t00=0x0004, t01=0x011e}
0x0768…0784 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN6 «, t00=0x0004, t01=0x012c}
0x0784…07b0 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN3 SET ERROR VALUE «, t00=0x0004, t01=0x0148}
0x07b0…07ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0174}
0x07ba…07ca Head {h00=0x000c, h01=0x0050, text=»CHK1RET «, t00=0x0004, t01=0x017e}
0x07ca…07d6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x018e}
0x07d6…07e4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x000a}
0x07e4…07f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0018}
0x07f2…0806 Head {h00=0x0010, h01=0x0050, text=»SPCHK2 PROC «, t00=0x0005, t01=0x0026}
0x0806…0822 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x003a}
0x0822…082c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0056}
0x082c…0852 Head {h00=0x0022, h01=0x0050, text=»* SPCHK2 - CHECK DATE«, t00=0x0005, t01=0x0060}
0x0852…085c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0086}
0x085c…0890 Head {h00=0x0030, h01=0x0050, text=»* CHECKS 0<DAY<32 AND 0<MONTH<13«, t00=0x0005, t01=0x0090}
0x0890…08be Head {h00=0x002a, h01=0x0050, text=»* DATE IS IN THE FORM DDMMYY«, t00=0x0005, t01=0x00c4}
0x08be…08e6 Head {h00=0x0024, h01=0x0050, text=»* INPUT FIELD: SPINPUT «, t00=0x0005, t01=0x00f2}
0x08e6…08f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011a}
0x08f0…092c Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0005, t01=0x0124}
0x092c…0936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0160}
0x0936…0952 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x016a}
0x0952…095a Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0186}
0x095a…0988 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0005, t01=0x018e}
0x0988…09b2 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0006, t01=0x002c}
0x09b2…09d8 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET DATE«, t00=0x0006, t01=0x0056}
0x09d8…0a0a Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,CBIN10 SET POINTER TO MONTH «, t00=0x0006, t01=0x007c}
0x0a0a…0a46 Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH «, t00=0x0006, t01=0x00ae}
0x0a46…0a72 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH29 CHECK MONTH«, t00=0x0006, t01=0x00ea}
0x0a72…0a92 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0006, t01=0x0116}
0x0a92…0ac2 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,CBIN2 ADJUST POINTER TO DAY«, t00=0x0006, t01=0x0136}
0x0ac2…0afc Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY «, t00=0x0006, t01=0x0166}
0x0afc…0b1c Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'31',CH29«, t00=0x0007, t01=0x0010}
0x0b1c…0b3c Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0007, t01=0x0030}
0x0b3c…0b4e Head {h00=0x000e, h01=0x0050, text=» B CH2RET «, t00=0x0007, t01=0x0050}
0x0b4e…0b5a Head {h00=0x0008, h01=0x0050, text=»CH29«, t00=0x0007, t01=0x0062}
0x0b5a…0b84 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0007, t01=0x006e}
0x0b84…0bae Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN7 SET ERRORCODE «, t00=0x0007, t01=0x0098}
0x0bae…0bbc Head {h00=0x000a, h01=0x0050, text=»CH2RET«, t00=0x0007, t01=0x00c2}
0x0bbc…0bd8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0007, t01=0x00d0}
0x0bd8…0be4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00ec}
0x0be4…0bf2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00f8}
0x0bf2…0c00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0106}
0x0c00…0c14 Head {h00=0x0010, h01=0x0050, text=»SPCHK3 PROC «, t00=0x0007, t01=0x0114}
0x0c14…0c2c Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x0128}
0x0c2c…0c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0140}
0x0c36…0c5c Head {h00=0x0022, h01=0x0050, text=»* SPCHK3 - CHECK MONTH«, t00=0x0007, t01=0x014a}
0x0c5c…0c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0170}
0x0c66…0c8c Head {h00=0x0022, h01=0x0050, text=»* CHECKS 0<MONTH<13 «, t00=0x0007, t01=0x017a}
0x0c8c…0cb8 Head {h00=0x0028, h01=0x0050, text=»* MONTH IS IN THE FORM MM «, t00=0x0008, t01=0x0010}
0x0cb8…0cde Head {h00=0x0022, h01=0x0050, text=»* INPUT FIELD: SPINPUT«, t00=0x0008, t01=0x003c}
0x0cde…0ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0062}
0x0ce8…0d24 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0008, t01=0x006c}
0x0d24…0d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a8}
0x0d2e…0d48 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0008, t01=0x00b2}
0x0d48…0d70 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET MONTH «, t00=0x0008, t01=0x00cc}
0x0d70…0d9c Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH39 CHECK MONTH«, t00=0x0008, t01=0x00f4}
0x0d9c…0dbc Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH39 «, t00=0x0008, t01=0x0120}
0x0dbc…0de8 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN1 SET ERRORCODE OK«, t00=0x0008, t01=0x0140}
0x0de8…0dfa Head {h00=0x000e, h01=0x0050, text=» B CH3RET «, t00=0x0008, t01=0x016c}
0x0dfa…0e06 Head {h00=0x0008, h01=0x0050, text=»CH39«, t00=0x0008, t01=0x017e}
0x0e06…0e30 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0008, t01=0x018a}
0x0e30…0e5a Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN7 SET ERRORCODE «, t00=0x0009, t01=0x0024}
0x0e5a…0e68 Head {h00=0x000a, h01=0x0050, text=»CH3RET«, t00=0x0009, t01=0x004e}
0x0e68…0e74 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x005c}
0x0e74…0e82 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0068}
0x0e82…0e90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0076}
0x0e90…0ea4 Head {h00=0x0010, h01=0x0050, text=»SPCHK4 PROC «, t00=0x0009, t01=0x0084}
0x0ea4…0ec0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0098}
0x0ec0…0eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b4}
0x0eca…0f0a Head {h00=0x003c, h01=0x0050, text=»* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY «, t00=0x0009, t01=0x00be}
0x0f0a…0f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fe}
0x0f14…0f30 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0108}
0x0f30…0f4c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0009, t01=0x0124}
0x0f4c…0f70 Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,CBIN18,CH4RET «, t00=0x0009, t01=0x0140}
0x0f70…0f9c Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT IF KREDIT KEY «, t00=0x0009, t01=0x0164}
0x0f9c…0fb8 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD7,=D'-1' «, t00=0x0009, t01=0x0190}
0x0fb8…0fd6 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD7 «, t00=0x000a, t01=0x001c}
0x0fd6…1002 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,CBIN3 SIMULATE EOI-KEY«, t00=0x000a, t01=0x003a}
0x1002…1010 Head {h00=0x000a, h01=0x0050, text=»CH4RET«, t00=0x000a, t01=0x0066}
0x1010…101c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0074}
0x101c…102a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0080}
0x102a…1038 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x008e}
0x1038…104c Head {h00=0x0010, h01=0x0050, text=»SPCHK5 PROC «, t00=0x000a, t01=0x009c}
0x104c…1068 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x00b0}
0x1068…1072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00cc}
0x1072…10a0 Head {h00=0x002a, h01=0x0050, text=»* SPCHK5 - CHECK LINE NUMBER «, t00=0x000a, t01=0x00d6}
0x10a0…10aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0104}
0x10aa…10c6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000a, t01=0x010e}
0x10c6…10e2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000a, t01=0x012a}
0x10e2…1110 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NUMBER «, t00=0x000a, t01=0x0146}
0x1110…1146 Head {h00=0x0032, h01=0x0050, text=» CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ? «, t00=0x000a, t01=0x0174}
0x1146…1168 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'91',CH510 «, t00=0x000b, t01=0x001a}
0x1168…1182 Head {h00=0x0016, h01=0x0050, text=» MUL GSWBCD3,=D'2'«, t00=0x000b, t01=0x003c}
0x1182…11b4 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE«, t00=0x000b, t01=0x0056}
0x11b4…11d0 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD4,GSWBCD3«, t00=0x000b, t01=0x0088}
0x11d0…1200 Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE?«, t00=0x000b, t01=0x00a4}
0x1200…121e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD4 «, t00=0x000b, t01=0x00d4}
0x121e…1242 Head {h00=0x0020, h01=0x0050, text=» CBNL GSWBIN1,CVOUTOP,CH5ERR«, t00=0x000b, t01=0x00f2}
0x1242…1266 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CMINLIN,CH5ERR «, t00=0x000b, t01=0x0116}
0x1266…1272 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x013a}
0x1272…1280 Head {h00=0x000a, h01=0x0050, text=»CH5ERR«, t00=0x000b, t01=0x0146}
0x1280…129c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x000b, t01=0x0154}
0x129c…12b8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN8 «, t00=0x000b, t01=0x0170}
0x12b8…12c4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x018c}
0x12c4…12d2 Head {h00=0x000a, h01=0x0050, text=»CH510 «, t00=0x000c, t01=0x0008}
0x12d2…12f0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x000c, t01=0x0016}
0x12f0…12fc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0034}
0x12fc…130a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0040}
0x130a…1318 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x004e}
0x1318…132c Head {h00=0x0010, h01=0x0050, text=»SPCHK6 PROC «, t00=0x000c, t01=0x005c}
0x132c…1348 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0070}
0x1348…1352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008c}
0x1352…1398 Head {h00=0x0042, h01=0x0050, text=»* SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, «, t00=0x000c, t01=0x0096}
0x1398…13b4 Head {h00=0x0018, h01=0x0050, text=»* KONTOKORT«, t00=0x000c, t01=0x00dc}
0x13b4…13be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f8}
0x13be…13da Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x0102}
0x13da…13ec Head {h00=0x000e, h01=0x0050, text=» PERF KKCH«, t00=0x000c, t01=0x011e}
0x13ec…1414 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET DIGIT «, t00=0x000c, t01=0x0130}
0x1414…1430 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000c, t01=0x0158}
0x1430…1462 Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH6RET NO CHECK IF ZERO«, t00=0x000c, t01=0x0174}
0x1462…1488 Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD3,TTKTCHK,CH6RET OK«, t00=0x000d, t01=0x0016}
0x1488…14aa Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW3,CBIN3 ERROR «, t00=0x000d, t01=0x003c}
0x14aa…14c6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN13«, t00=0x000d, t01=0x005e}
0x14c6…14d4 Head {h00=0x000a, h01=0x0050, text=»CH6RET«, t00=0x000d, t01=0x007a}
0x14d4…14e0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0088}
0x14e0…14ee Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0094}
0x14ee…14f6 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x00a2}
0x14f6…14fe Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x00aa}
0x14fe…1506 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x00b2}
0x1506…150e Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x00ba}
0x150e…1522 Head {h00=0x0010, h01=0x0050, text=»SPCHK7 PROC «, t00=0x000d, t01=0x00c2}
0x1522…1534 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x00d6}
0x1534…153e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e8}
0x153e…156a Head {h00=0x0028, h01=0x0050, text=»* SPCHK7- CDVCHECK (USES SPCHK1)«, t00=0x000d, t01=0x00f2}
0x156a…15a0 Head {h00=0x0032, h01=0x0050, text=»* INSERTS CHECKDIGIT, IF LENGTH=8 «, t00=0x000d, t01=0x011e}
0x15a0…15aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0154}
0x15aa…15ea Head {h00=0x003c, h01=0x0050, text=»* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT«, t00=0x000d, t01=0x015e}
0x15ea…1626 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4«, t00=0x000e, t01=0x000e}
0x1626…164e Head {h00=0x0024, h01=0x0050, text=»* FIELD MUST BE 7 OR 10 LONG«, t00=0x000e, t01=0x004a}
0x164e…1694 Head {h00=0x0042, h01=0x0050, text=»* IF FIELD IS 8 LONG, IT IS ASSUMED TO BE A PHONE NUMBER, «, t00=0x000e, t01=0x0072}
0x1694…16d2 Head {h00=0x003a, h01=0x0050, text=»* AND IS THEN CHANGED FROM 0XXXXXXX TO 5XXXXXXXCC «, t00=0x000e, t01=0x00b8}
0x16d2…16dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f6}
0x16dc…16ee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0100}
0x16ee…16f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0112}
0x16f8…1714 Head {h00=0x0018, h01=0x0050, text=» TBF CLEV8FLG,CHK705«, t00=0x000e, t01=0x011c}
0x1714…173c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x000e, t01=0x0138}
0x173c…177c Head {h00=0x003c, h01=0x0050, text=» CBE GSWBIN1,CBIN8,CHK710 SPECIAL TREATMENT OF PHONE NO «, t00=0x000e, t01=0x0160}
0x177c…178a Head {h00=0x000a, h01=0x0050, text=»CHK705«, t00=0x000f, t01=0x0010}
0x178a…17b2 Head {h00=0x0024, h01=0x0050, text=» PERF SPCHK1 ELSE NORMAL CDVCHK «, t00=0x000f, t01=0x001e}
0x17b2…17c4 Head {h00=0x000e, h01=0x0050, text=» B CHK7RET«, t00=0x000f, t01=0x0046}
0x17c4…17ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0058}
0x17ce…17dc Head {h00=0x000a, h01=0x0050, text=»CHK710«, t00=0x000f, t01=0x0062}
0x17dc…17f8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN0 «, t00=0x000f, t01=0x0070}
0x17f8…1824 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT +FFFFF0XXXXXXX«, t00=0x000f, t01=0x008c}
0x1824…1850 Head {h00=0x0028, h01=0x0050, text=» TBT C539FLG,CHK720 JUMP IF TINGLEV «, t00=0x000f, t01=0x00b8}
0x1850…1872 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD3,=D'5' +FFFF5«, t00=0x000f, t01=0x00e4}
0x1872…18a2 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD6,CBIN6,CBIN1,GSWBCD3,CBIN5 «, t00=0x000f, t01=0x0106}
0x18a2…18b0 Head {h00=0x000a, h01=0x0050, text=»CHK720«, t00=0x000f, t01=0x0136}
0x18b0…18da Head {h00=0x0026, h01=0x0050, text=» MUL GSWBCD6,=D'10' +FFFF5XXXXXXX0«, t00=0x000f, t01=0x0144}
0x18da…18f8 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x000f, t01=0x016e}
0x18f8…191e Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW1,CBIN9 SET LENGTH«, t00=0x000f, t01=0x018c}
0x191e…1948 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW5,SPBINW2 SAVE END KEY«, t00=0x0010, t01=0x0022}
0x1948…1970 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW2,CBIN3 SIMULATE KEY«, t00=0x0010, t01=0x004c}
0x1970…1998 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW3,=W'105' APPL VALUE«, t00=0x0010, t01=0x0074}
0x1998…19c4 Head {h00=0x0028, h01=0x0050, text=» PERF SPAPPL CALCULATE CONTROL DIGIT«, t00=0x0010, t01=0x009c}
0x19c4…19f4 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,SPBINW5 RESTORE KEY VALUE «, t00=0x0010, t01=0x00c8}
0x19f4…1a2a Head {h00=0x0032, h01=0x0050, text=» CBNE GSWBCD5,=D'10',CHK730 CHECK CONTROLDIGIT«, t00=0x0010, t01=0x00f8}
0x1a2a…1a58 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD5,=D'50' SET CONTROL DIGIT«, t00=0x0010, t01=0x012e}
0x1a58…1a66 Head {h00=0x000a, h01=0x0050, text=»CHK730«, t00=0x0010, t01=0x015c}
0x1a66…1a98 Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD6,=D'10' ROOM FOR CONTROLDIGIT «, t00=0x0010, t01=0x016a}
0x1a98…1aca Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD6,GSWBCD5 INSERT CONTROL DIGIT «, t00=0x0011, t01=0x000c}
0x1aca…1af2 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW1,CBIN10 SET LENGTH «, t00=0x0011, t01=0x003e}
0x1af2…1b10 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x0011, t01=0x0066}
0x1b10…1b20 Head {h00=0x000c, h01=0x0050, text=»CHK7RET «, t00=0x0011, t01=0x0084}
0x1b20…1b2c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0094}
0x1b2c…1b3a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x00a0}
0x1b3a…1b48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00ae}
0x1b48…1b5c Head {h00=0x0010, h01=0x0050, text=»SPTCHK PROC «, t00=0x0011, t01=0x00bc}
0x1b5c…1b78 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00d0}
0x1b78…1b82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ec}
0x1b82…1bb4 Head {h00=0x002e, h01=0x0050, text=»* SPTCHK - CONDITIONAL TABULATION«, t00=0x0011, t01=0x00f6}
0x1bb4…1be6 Head {h00=0x002e, h01=0x0050, text=»* CONTROLLED BY 'CTAB' IN FORMATS«, t00=0x0011, t01=0x0128}
0x1be6…1bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015a}
0x1bf0…1c0c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0164}
0x1c0c…1c34 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x0011, t01=0x0180}
0x1c34…1c56 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,=W'84',TCHK84«, t00=0x0012, t01=0x0018}
0x1c56…1c7e Head {h00=0x0024, h01=0x0050, text=» SUB SPBINW3,CBIN16 ADJUST INDEX«, t00=0x0012, t01=0x003a}
0x1c7e…1c96 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW3, C «, t00=0x0012, t01=0x0062}
0x1c96…1cbc Head {h00=0x0022, h01=0x0050, text=» TCHK17,TCHK18,TCHK19,TCHK20 «, t00=0x0012, t01=0x007a}
0x1cbc…1cde Head {h00=0x001e, h01=0x0050, text=» SUB SPBINW3,=W'61' +16-77«, t00=0x0012, t01=0x00a0}
0x1cde…1d00 Head {h00=0x001e, h01=0x0050, text=» IB SPBINW3,TCHK78,TCHK79 «, t00=0x0012, t01=0x00c2}
0x1d00…1d24 Head {h00=0x0020, h01=0x0050, text=» SUB SPBINW3,=W'38' 116-119 «, t00=0x0012, t01=0x00e4}
0x1d24…1d58 Head {h00=0x0030, h01=0x0050, text=» IB SPBINW3,TCHK116,TCHK117,TCHK118,TCHK119 «, t00=0x0012, t01=0x0108}
0x1d58…1d76 Head {h00=0x001a, h01=0x0050, text=»TCHK00 CORRECT FIELD«, t00=0x0012, t01=0x013c}
0x1d76…1d92 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN0 «, t00=0x0012, t01=0x015a}
0x1d92…1d9e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x0176}
0x1d9e…1da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0182}
0x1da8…1db6 Head {h00=0x000a, h01=0x0050, text=»TCHK17«, t00=0x0012, t01=0x018c}
0x1db6…1dce Head {h00=0x0014, h01=0x0050, text=» TBT BCPR,TCHK00«, t00=0x0013, t01=0x000a}
0x1dce…1de0 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0013, t01=0x0022}
0x1de0…1dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0034}
0x1dea…1df8 Head {h00=0x000a, h01=0x0050, text=»TCHK18«, t00=0x0013, t01=0x003e}
0x1df8…1e06 Head {h00=0x000a, h01=0x0050, text=»TCHK19«, t00=0x0013, t01=0x004c}
0x1e06…1e14 Head {h00=0x000a, h01=0x0050, text=»TCHK20«, t00=0x0013, t01=0x005a}
0x1e14…1e2c Head {h00=0x0014, h01=0x0050, text=» TBF BCPR,TCHK00«, t00=0x0013, t01=0x0068}
0x1e2c…1e3e Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0013, t01=0x0080}
0x1e3e…1e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0092}
0x1e48…1e56 Head {h00=0x000a, h01=0x0050, text=»TCHK78«, t00=0x0013, t01=0x009c}
0x1e56…1e74 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x0013, t01=0x00aa}
0x1e74…1e90 Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x0013, t01=0x00c8}
0x1e90…1ece Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK00 CONTINUE TAB «, t00=0x0013, t01=0x00e4}
0x1ece…1eee Head {h00=0x001c, h01=0x0050, text=» B TCHK99 CORRECT FIELD «, t00=0x0013, t01=0x0122}
0x1eee…1ef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0142}
0x1ef8…1f06 Head {h00=0x000a, h01=0x0050, text=»TCHK79«, t00=0x0013, t01=0x014c}
0x1f06…1f24 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x0013, t01=0x015a}
0x1f24…1f40 Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x0013, t01=0x0178}
0x1f40…1f7e (20, 0, 400) Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK99 CORRECT FIELD«, t00=0x0014, t01=0x0004}
0x1f7e…1f9c Head {h00=0x001a, h01=0x0050, text=» B TCHK00 CONTINUE TAB«, t00=0x0014, t01=0x0042}
0x1f9c…1fa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0060}
0x1fa6…1fb4 Head {h00=0x000a, h01=0x0050, text=»TCHK84«, t00=0x0014, t01=0x006a}
0x1fb4…1fd0 Head {h00=0x0018, h01=0x0050, text=» TBF GTTRSEL,TCHK00 «, t00=0x0014, t01=0x0078}
0x1fd0…1fe2 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0014, t01=0x0094}
0x1fe2…1fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a6}
0x1fec…1ffc Head {h00=0x000c, h01=0x0050, text=»TCHK116 «, t00=0x0014, t01=0x00b0}
0x1ffc…201a Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,GTTXTTKO«, t00=0x0014, t01=0x00c0}
0x201a…2058 Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK00,TCHK00,TCHK99,TCHK99,TCHK00 «, t00=0x0014, t01=0x00de}
0x2058…206a Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0014, t01=0x011c}
0x206a…2074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x012e}
0x2074…2084 Head {h00=0x000c, h01=0x0050, text=»TCHK117 «, t00=0x0014, t01=0x0138}
0x2084…20a4 Head {h00=0x001c, h01=0x0050, text=» MOVE SPBINW3,GTTXTTKO «, t00=0x0014, t01=0x0148}
0x20a4…20e2 Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK99,TCHK00,TCHK99,TCHK99,TCHK99 «, t00=0x0014, t01=0x0168}
0x20e2…20f4 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0015, t01=0x0016}
0x20f4…20fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0028}
0x20fe…210e Head {h00=0x000c, h01=0x0050, text=»TCHK118 «, t00=0x0015, t01=0x0032}
0x210e…212c Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,GTTXTTKO«, t00=0x0015, t01=0x0042}
0x212c…216a Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK00,TCHK00,TCHK00 «, t00=0x0015, t01=0x0060}
0x216a…217c Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0015, t01=0x009e}
0x217c…2186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b0}
0x2186…2196 Head {h00=0x000c, h01=0x0050, text=»TCHK119 «, t00=0x0015, t01=0x00ba}
0x2196…21b4 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,GTTXTTKO«, t00=0x0015, t01=0x00ca}
0x21b4…21f2 Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK99,TCHK00,TCHK99 «, t00=0x0015, t01=0x00e8}
0x21f2…2204 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0015, t01=0x0126}
0x2204…2222 Head {h00=0x001a, h01=0x0050, text=»TCHK99 CONTINUE TAB «, t00=0x0015, t01=0x0138}
0x2222…223e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN2 «, t00=0x0015, t01=0x0156}
0x223e…224a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x0172}
0x224a…2258 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x017e}
0x2258…2266 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x018c}
0x2266…227a Head {h00=0x0010, h01=0x0050, text=»SPAPPL PROC «, t00=0x0016, t01=0x000a}
0x227a…2296 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0016, t01=0x001e}
0x2296…22a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x003a}
0x22a0…22f0 Head {h00=0x004c, h01=0x0050, text=»* SPAPPL - PROCEDURE ACTIVATED BY SCREEN PACKAGE IF APPL-VALUE «, t00=0x0016, t01=0x0044}
0x22f0…2332 Head {h00=0x003e, h01=0x0050, text=»* IS NOT ZERO, WHICH IS THE CASE FOR ALL FIELDS. «, t00=0x0016, t01=0x0094}
0x2332…233c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d6}
0x233c…2380 Head {h00=0x0040, h01=0x0050, text=»* APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE)«, t00=0x0016, t01=0x00e0}
0x2380…23c4 Head {h00=0x0040, h01=0x0050, text=»* A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT «, t00=0x0016, t01=0x0124}
0x23c4…23fc Head {h00=0x0034, h01=0x0050, text=»* TESTING AND BRANCH TO PACKING ROUTINE«, t00=0x0016, t01=0x0168}
0x23fc…2406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0010}
0x2406…2422 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0017, t01=0x001a}
0x2422…242c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0036}
0x242c…245e Head {h00=0x002e, h01=0x0050, text=»* SPBINW3 IS CURRENT APPL NUMBER «, t00=0x0017, t01=0x0040}
0x245e…2476 Head {h00=0x0014, h01=0x0050, text=» ART - RETURN «, t00=0x0017, t01=0x0072}
0x2476…2492 Head {h00=0x0018, h01=0x0050, text=» APK - PACK FIELD «, t00=0x0017, t01=0x008a}
0x2492…24b8 Head {h00=0x0022, h01=0x0050, text=» APF - PACK FIELD WITH SIGN «, t00=0x0017, t01=0x00a6}
0x24b8…24de Head {h00=0x0022, h01=0x0050, text=» AA01 - TEST FOR FIELD TO BE«, t00=0x0017, t01=0x00cc}
0x24de…24fa Head {h00=0x0018, h01=0x0050, text=» ---- - AUTODUPPED«, t00=0x0017, t01=0x00f2}
0x24fa…2520 Head {h00=0x0022, h01=0x0050, text=» AA02 - TEST FOR AUTODUP KEY«, t00=0x0017, t01=0x010e}
0x2520…2542 Head {h00=0x001e, h01=0x0050, text=» AA03 - IF LENGTH ZERO, «, t00=0x0017, t01=0x0134}
0x2542…2560 Head {h00=0x001a, h01=0x0050, text=» ---- - DELETE FIELS«, t00=0x0017, t01=0x0156}
0x2560…257e Head {h00=0x001a, h01=0x0050, text=» AA05 - TEST FIELD 5«, t00=0x0017, t01=0x0174}
0x257e…259c (24, 0, 400) Head {h00=0x001a, h01=0x0050, text=» AA06 - TEST FIELD 6«, t00=0x0018, t01=0x0004}
0x259c…25be Head {h00=0x001e, h01=0x0050, text=» AA11 - TEST VALOERDATE «, t00=0x0018, t01=0x0022}
0x25be…25e0 Head {h00=0x001e, h01=0x0050, text=» AA17 - TEST FORFALDSAAR«, t00=0x0018, t01=0x0044}
0x25e0…2606 Head {h00=0x0022, h01=0x0050, text=» AA65 - IF AA05, AA06 THERE «, t00=0x0018, t01=0x0066}
0x2606…262a Head {h00=0x0020, h01=0x0050, text=» ---- - MIGHT BE A CHOICE «, t00=0x0018, t01=0x008c}
0x262a…264c Head {h00=0x001e, h01=0x0050, text=» ---- - OF NEW TRANSTYPE«, t00=0x0018, t01=0x00b0}
0x264c…266a Head {h00=0x001a, h01=0x0050, text=» A64 - TEST FIELD 64«, t00=0x0018, t01=0x00d2}
0x266a…2688 Head {h00=0x001a, h01=0x0050, text=» A65 - TEST FIELD 65«, t00=0x0018, t01=0x00f0}
0x2688…26ac Head {h00=0x0020, h01=0x0050, text=» A76 - COUNTER, TRANS 12 «, t00=0x0018, t01=0x010e}
0x26ac…26d4 Head {h00=0x0024, h01=0x0050, text=» A77 - TR 4, INSERT BKO 51,52«, t00=0x0018, t01=0x0132}
0x26d4…26fa Head {h00=0x0022, h01=0x0050, text=» A78 - ACCOUNT NO, TRANS 12«, t00=0x0018, t01=0x015a}
0x26fa…2722 Head {h00=0x0024, h01=0x0050, text=» A79 - - - - - - (COPY)«, t00=0x0018, t01=0x0180}
0x2722…2748 Head {h00=0x0022, h01=0x0050, text=» A80-A87 - CHECK OF CONTROL «, t00=0x0019, t01=0x0018}
0x2748…276a Head {h00=0x001e, h01=0x0050, text=» ---- - INFORMATION FOR «, t00=0x0019, t01=0x003e}
0x276a…2786 Head {h00=0x0018, h01=0x0050, text=» ---- - TRANSTYPES«, t00=0x0019, t01=0x0060}
0x2786…27aa Head {h00=0x0020, h01=0x0050, text=» A88 - AUTODUP BKO, TR 4 «, t00=0x0019, t01=0x007c}
0x27aa…27cc Head {h00=0x001e, h01=0x0050, text=» A89 - STORE IN FIELD 6«, t00=0x0019, t01=0x00a0}
0x27cc…27f0 Head {h00=0x0020, h01=0x0050, text=» A90 - SPECIAL SLUT-FIELD«, t00=0x0019, t01=0x00c2}
0x27f0…2812 Head {h00=0x001e, h01=0x0050, text=» A91 - ENTER TO SLUT-KEY«, t00=0x0019, t01=0x00e6}
0x2812…2830 Head {h00=0x001a, h01=0x0050, text=» A100 - CHECK TR 12 «, t00=0x0019, t01=0x0108}
0x2830…2854 Head {h00=0x0020, h01=0x0050, text=» A101 - CHECK BEHL. COUNT.«, t00=0x0019, t01=0x0126}
0x2854…286e Head {h00=0x0016, h01=0x0050, text=» A102 - REL. DAY«, t00=0x0019, t01=0x014a}
0x286e…2890 Head {h00=0x001e, h01=0x0050, text=» A103 - SET BEHL. COUNT «, t00=0x0019, t01=0x0164}
0x2890…28ae Head {h00=0x001a, h01=0x0050, text=» A104 - SET TRANS 12«, t00=0x0019, t01=0x0186}
0x28ae…28fe Head {h00=0x004c, h01=0x0050, text=» A105 - CTRL.DIGIT CALC.«, t00=0x001a, t01=0x0014}
0x28fe…2918 Head {h00=0x0016, h01=0x0050, text=» A107 - AS A102 «, t00=0x001a, t01=0x0064}
0x2918…293a Head {h00=0x001e, h01=0x0050, text=» A108 - SPG -REGKONTONR «, t00=0x001a, t01=0x007e}
0x293a…295a Head {h00=0x001c, h01=0x0050, text=» A109 - SPG-CPR/CIR/NR«, t00=0x001a, t01=0x00a0}
0x295a…2976 Head {h00=0x0018, h01=0x0050, text=» A110 - SPG-BELOB «, t00=0x001a, t01=0x00c0}
0x2976…2998 Head {h00=0x001e, h01=0x0050, text=» A111 - SPG-OTHER FIELD «, t00=0x001a, t01=0x00dc}
0x2998…29b2 Head {h00=0x0016, h01=0x0050, text=» A115 REMIT-TXT «, t00=0x001a, t01=0x00fe}
0x29b2…29ca Head {h00=0x0014, h01=0x0050, text=» A120 - BUDGET«, t00=0x001a, t01=0x0118}
0x29ca…29d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0130}
0x29d4…29f4 Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW3,=W'90',AA01«, t00=0x001a, t01=0x013a}
0x29f4…2a16 Head {h00=0x001e, h01=0x0050, text=» CBG SPBINW3,=W'114',AA01 «, t00=0x001a, t01=0x015a}
0x2a16…2a2c Head {h00=0x0012, h01=0x0050, text=» B AAA 90-114 «, t00=0x001a, t01=0x017c}
0x2a2c…2a36 (27, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0004}
0x2a36…2a42 Head {h00=0x0008, h01=0x0050, text=»AA01«, t00=0x001b, t01=0x000e}
0x2a42…2a74 Head {h00=0x002e, h01=0x0050, text=» CBNE SPBINW1,CBIN0,AAA IF LENGTH IS ZERO «, t00=0x001b, t01=0x001a}
0x2a74…2ab6 Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN4,CFLTDEX(SPBINW3) GET INDEX VALUE TO GSWBIN4 «, t00=0x001b, t01=0x004c}
0x2ab6…2ae6 Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(GSWBIN4),CBIN0 DELETE FIELD«, t00=0x001b, t01=0x008e}
0x2ae6…2af4 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001b, t01=0x00be}
0x2af4…2afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00cc}
0x2afe…2b18 Head {h00=0x0016, h01=0x0050, text=»AAA IB SPBINW3, C«, t00=0x001b, t01=0x00d6}
0x2b18…2b54 Head {h00=0x0038, h01=0x0050, text=» ART,ART,ART,ART,A05,A06,A07,APF,ART, FIELDS 1-9 C «, t00=0x001b, t01=0x00f0}
0x2b54…2b96 Head {h00=0x003e, h01=0x0050, text=» APK,A11,APK,APK,APK,APK,APK,A17,APK,APK, FIELDS 10,19 C «, t00=0x001b, t01=0x012c}
0x2b96…2bd8 Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APK,APK,APK,APK,APK,APK,APK, FIELDS 20-29 C «, t00=0x001b, t01=0x016e}
0x2bd8…2c1a Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APF,APK,APK,APK,APK,APK,APF, FIELDS 30-39 C «, t00=0x001c, t01=0x0020}
0x2c1a…2c5c Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APK,APK,APK,APK,APF,APK,APK, FIELDS 40-49 C «, t00=0x001c, t01=0x0062}
0x2c5c…2c9e Head {h00=0x003e, h01=0x0050, text=» APK,APK,APF,APF,A54,A57,A57,A57,A57,A57, FIELDS 50-59 C «, t00=0x001c, t01=0x00a4}
0x2c9e…2ce0 Head {h00=0x003e, h01=0x0050, text=» A57,A57,A57,APK,A64,A65,APK,ART,ART,ART, FIELDS 60-69 C «, t00=0x001c, t01=0x00e6}
0x2ce0…2d22 Head {h00=0x003e, h01=0x0050, text=» APK,APK,ART,ART,ART,ART,A76,A77,A78,A79, FIELDS 70,79 C «, t00=0x001c, t01=0x0128}
0x2d22…2d64 Head {h00=0x003e, h01=0x0050, text=» A80,A81,A82,A83,A84,A85,A86,A87,A88,A89, FIELDS 80-89 C «, t00=0x001c, t01=0x016a}
0x2d64…2da6 Head {h00=0x003e, h01=0x0050, text=» A90,A91,A92,A93,A94,ART,ART,ART,ART,ART, FIELDS 90,99 C «, t00=0x001d, t01=0x001c}
0x2da6…2dda Head {h00=0x0030, h01=0x0050, text=» A100,A101,A102,A103,A104, FIELDS 100,104 C«, t00=0x001d, t01=0x005e}
0x2dda…2e0e Head {h00=0x0030, h01=0x0050, text=» A105,ART,A107,A108,A109, FIELDS 105,109 C «, t00=0x001d, t01=0x0092}
0x2e0e…2e3e Head {h00=0x002c, h01=0x0050, text=» A110,A111,ART,ART,ART, FIELS 110,114 C«, t00=0x001d, t01=0x00c6}
0x2e3e…2e78 Head {h00=0x0036, h01=0x0050, text=» A115,A116,A117,A118,A119,A120, FIELDS 115,120 C «, t00=0x001d, t01=0x00f6}
0x2e78…2eaa Head {h00=0x002e, h01=0x0050, text=» A121,A122,APK,APK,APK, FIELDS 121-125 C «, t00=0x001d, t01=0x0130}
0x2eaa…2ed6 Head {h00=0x0028, h01=0x0050, text=» ART,ART,ART,ART,ART FIELDS 126-129«, t00=0x001d, t01=0x0162}
0x2ed6…2ee8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x018e}
0x2ee8…2f14 Head {h00=0x0028, h01=0x0050, text=»A05 CHECK REGISTRERINGSKONTONUMMER«, t00=0x001e, t01=0x0010}
0x2f14…2f3c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x001e, t01=0x003c}
0x2f3c…2f68 Head {h00=0x0028, h01=0x0050, text=» CBE GSWBIN1,CBIN4,A059 LENGTH = 4? «, t00=0x001e, t01=0x0064}
0x2f68…2fa2 Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A065 TRANSTYPE HANDLING IN A065«, t00=0x001e, t01=0x0090}
0x2fa2…2fd0 Head {h00=0x002a, h01=0x0050, text=» CMP GSWBIN1,CBIN10 LENGTH MUST BE 10 «, t00=0x001e, t01=0x00ca}
0x2fd0…2fe2 Head {h00=0x000e, h01=0x0050, text=» BNE A058 «, t00=0x001e, t01=0x00f8}
0x2fe2…3000 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x001e, t01=0x010a}
0x3000…3024 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x001e, t01=0x0128}
0x3024…3042 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x001e, t01=0x014c}
0x3042…305a Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x001e, t01=0x016a}
0x305a…308e Head {h00=0x0030, h01=0x0050, text=» A053,A053,A051,A053,A053,A052,A0570,A0575 «, t00=0x001e, t01=0x0182}
0x308e…309a Head {h00=0x0008, h01=0x0050, text=»A051«, t00=0x001f, t01=0x0026}
0x309a…30ba Head {h00=0x001c, h01=0x0050, text=» B APK CPR NOT NECESSARY«, t00=0x001f, t01=0x0032}
0x30ba…30dc Head {h00=0x001e, h01=0x0050, text=»A052 REMIT. NOT ALLOWED «, t00=0x001f, t01=0x0052}
0x30dc…30f4 Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX, C«, t00=0x001f, t01=0x0074}
0x30f4…312c Head {h00=0x0034, h01=0x0050, text=» A0520,A0520,A0520,A0520,A0520, TR 1,2,3,4,5 C «, t00=0x001f, t01=0x008c}
0x312c…3164 Head {h00=0x0034, h01=0x0050, text=» A0520,A0520,A0525,A0525,A0520, TR 6,7,8,9,10 C«, t00=0x001f, t01=0x00c4}
0x3164…319e Head {h00=0x0036, h01=0x0050, text=» A0520,A0525,A0525,A0525,A0525 TR 12,18,19,28,29 «, t00=0x001f, t01=0x00fc}
0x319e…31ac Head {h00=0x000a, h01=0x0050, text=»A0520 «, t00=0x001f, t01=0x0136}
0x31ac…31ba Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001f, t01=0x0144}
0x31ba…31c8 Head {h00=0x000a, h01=0x0050, text=»A0525 «, t00=0x001f, t01=0x0152}
0x31c8…31ea Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,CBIN20 ERROR«, t00=0x001f, t01=0x0160}
0x31ea…31f8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001f, t01=0x0182}
0x31f8…3214 Head {h00=0x0018, h01=0x0050, text=»A053 CPR NECESSARY«, t00=0x001f, t01=0x0190}
0x3214…322c Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX, C«, t00=0x0020, t01=0x001c}
0x322c…325e Head {h00=0x002e, h01=0x0050, text=» A054,A055,A054,A054,A055, TR 1,2,3,4,5 C«, t00=0x0020, t01=0x0034}
0x325e…3292 Head {h00=0x0030, h01=0x0050, text=» A054,A055,A055,A054,A054, TR 6,7,8,9,10 C «, t00=0x0020, t01=0x0066}
0x3292…32c6 Head {h00=0x0030, h01=0x0050, text=» A054,A055,A054,A055,A054 TR 12,18,19,28,29«, t00=0x0020, t01=0x009a}
0x32c6…32d2 Head {h00=0x0008, h01=0x0050, text=»A054«, t00=0x0020, t01=0x00ce}
0x32d2…32e0 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0020, t01=0x00da}
0x32e0…32ec Head {h00=0x0008, h01=0x0050, text=»A055«, t00=0x0020, t01=0x00e8}
0x32ec…3312 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A056 ERROR «, t00=0x0020, t01=0x00f4}
0x3312…3330 Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x0020, t01=0x011a}
0x3330…3340 Head {h00=0x000c, h01=0x0050, text=» B A054 «, t00=0x0020, t01=0x0138}
0x3340…334c Head {h00=0x0008, h01=0x0050, text=»A056«, t00=0x0020, t01=0x0148}
0x334c…3368 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN19«, t00=0x0020, t01=0x0154}
0x3368…3376 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0020, t01=0x0170}
0x3376…3380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017e}
0x3380…33a6 Head {h00=0x0022, h01=0x0050, text=»A0570 7: KNT.NO. NOT ALLOWED«, t00=0x0020, t01=0x0188}
0x33a6…33c2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'23'«, t00=0x0021, t01=0x001e}
0x33c2…33d0 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0021, t01=0x003a}
0x33d0…33da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0048}
0x33da…3408 Head {h00=0x002a, h01=0x0050, text=»A0575 8:KNT.NO. NOT ALLOWED IN SUPL «, t00=0x0021, t01=0x0052}
0x3408…3430 Head {h00=0x0024, h01=0x0050, text=» CBE GTREGDEX,CBIN10,A0577 TR 10«, t00=0x0021, t01=0x0080}
0x3430…3450 Head {h00=0x001c, h01=0x0050, text=» TBT TTSUPFLG,A0577 SUPL«, t00=0x0021, t01=0x00a8}
0x3450…3462 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0021, t01=0x00c8}
0x3462…3478 Head {h00=0x0012, h01=0x0050, text=»A0577 NOT OK«, t00=0x0021, t01=0x00da}
0x3478…3494 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN22«, t00=0x0021, t01=0x00f0}
0x3494…34a2 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0021, t01=0x010c}
0x34a2…34ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x011a}
0x34ac…34b8 Head {h00=0x0008, h01=0x0050, text=»A059«, t00=0x0021, t01=0x0124}
0x34b8…34ea Head {h00=0x002e, h01=0x0050, text=» CBL GTREGNR,=D'48',A058 ONLY ALLOWED WHEN«, t00=0x0021, t01=0x0130}
0x34ea…351e Head {h00=0x0030, h01=0x0050, text=» CBG GTREGNR,=D'49',A058 IN BUDGET TR.48/49 «, t00=0x0021, t01=0x0162}
0x351e…352c Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0022, t01=0x0008}
0x352c…3536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0016}
0x3536…3542 Head {h00=0x0008, h01=0x0050, text=»A058«, t00=0x0022, t01=0x0020}
0x3542…356c Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN3 SET ERRORCODE «, t00=0x0022, t01=0x002c}
0x356c…357a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0022, t01=0x0056}
0x357a…358c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x0064}
0x358c…35ae Head {h00=0x001e, h01=0x0050, text=»A06 CHECK CPR/CIR NUMBER«, t00=0x0022, t01=0x0076}
0x35ae…35d6 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0022, t01=0x0098}
0x35d6…3610 Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A065 TRANSTYPE HANDLING IN A065«, t00=0x0022, t01=0x00c0}
0x3610…363a Head {h00=0x0026, h01=0x0050, text=» SET BCPR SET CPR-SWITCH (CPR-NO) «, t00=0x0022, t01=0x00fa}
0x363a…3658 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0022, t01=0x0124}
0x3658…367e Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A061«, t00=0x0022, t01=0x0142}
0x367e…369a Head {h00=0x0018, h01=0x0050, text=» SET BLEV LEVERAND. «, t00=0x0022, t01=0x0168}
0x369a…36c2 Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3900000000',A062«, t00=0x0022, t01=0x0184}
0x36c2…36da Head {h00=0x0014, h01=0x0050, text=» CLEAR BLEV CPR.«, t00=0x0023, t01=0x001c}
0x36da…36ea Head {h00=0x000c, h01=0x0050, text=» B A062 «, t00=0x0023, t01=0x0034}
0x36ea…36f6 Head {h00=0x0008, h01=0x0050, text=»A061«, t00=0x0023, t01=0x0044}
0x36f6…3724 Head {h00=0x002a, h01=0x0050, text=» CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO) «, t00=0x0023, t01=0x0050}
0x3724…3730 Head {h00=0x0008, h01=0x0050, text=»A062«, t00=0x0023, t01=0x007e}
0x3730…3758 Head {h00=0x0024, h01=0x0050, text=» TBT GTBDTFLG,A0625 BUNDT REMIT «, t00=0x0023, t01=0x008a}
0x3758…3780 Head {h00=0x0024, h01=0x0050, text=» TBT GTSTRFLG,A0621 STRAKS REMIT«, t00=0x0023, t01=0x00b2}
0x3780…3798 Head {h00=0x0014, h01=0x0050, text=» B APK NOT REMIT«, t00=0x0023, t01=0x00da}
0x3798…37a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f2}
0x37a2…37b0 Head {h00=0x000a, h01=0x0050, text=»A0621 «, t00=0x0023, t01=0x00fc}
0x37b0…37e6 Head {h00=0x0032, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD1 STRAKS REMIT, SET LEVNR «, t00=0x0023, t01=0x010a}
0x37e6…37fa Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0023, t01=0x0140}
0x37fa…380c Head {h00=0x000e, h01=0x0050, text=» BOK A0622«, t00=0x0023, t01=0x0154}
0x380c…382e Head {h00=0x001e, h01=0x0050, text=» NOT OK, LEV FINDES IKKE«, t00=0x0023, t01=0x0166}
0x382e…3850 Head {h00=0x001e, h01=0x0050, text=» SET SPWARNFL SET WARNING «, t00=0x0023, t01=0x0188}
0x3850…385e Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0024, t01=0x001a}
0x385e…386c Head {h00=0x000a, h01=0x0050, text=»A0622 «, t00=0x0024, t01=0x0028}
0x386c…389c Head {h00=0x002c, h01=0x0050, text=» CBG GTLEVBFO,=D'4',A0629 ONLY 0-4 VALID«, t00=0x0024, t01=0x0036}
0x389c…38ac Head {h00=0x000c, h01=0x0050, text=» B A063 «, t00=0x0024, t01=0x0066}
0x38ac…38b4 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x0076}
0x38b4…38be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x007e}
0x38be…38da Head {h00=0x0018, h01=0x0050, text=»A0625 BUNDT REMIT «, t00=0x0024, t01=0x0088}
0x38da…3902 Head {h00=0x0024, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD1 SET LEVNR «, t00=0x0024, t01=0x00a4}
0x3902…3916 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0024, t01=0x00cc}
0x3916…392a Head {h00=0x0010, h01=0x0050, text=» BNOK A0629 «, t00=0x0024, t01=0x00e0}
0x392a…394c Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVBFO,=D'1',A0629 «, t00=0x0024, t01=0x00f4}
0x394c…396e Head {h00=0x001e, h01=0x0050, text=» CBE GTLEVBFO,=D'5',A0629 «, t00=0x0024, t01=0x0116}
0x396e…397a Head {h00=0x0008, h01=0x0050, text=»A063«, t00=0x0024, t01=0x0138}
0x397a…3994 Head {h00=0x0016, h01=0x0050, text=» TBF GTCYFLG,A064 «, t00=0x0024, t01=0x0144}
0x3994…39b8 Head {h00=0x0020, h01=0x0050, text=» MOVE GSSWITCH(CBIN2),CBIN1 «, t00=0x0024, t01=0x015e}
0x39b8…39c4 Head {h00=0x0008, h01=0x0050, text=»A064«, t00=0x0024, t01=0x0182}
0x39c4…39d2 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0024, t01=0x018e}
0x39d2…39f6 Head {h00=0x0020, h01=0x0050, text=»A0629 WRONG BETALINGSFORM «, t00=0x0025, t01=0x000c}
0x39f6…3a18 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,CBIN11 ERROR«, t00=0x0025, t01=0x0030}
0x3a18…3a26 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0025, t01=0x0052}
0x3a26…3a38 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x0060}
0x3a38…3a60 Head {h00=0x0024, h01=0x0050, text=»A54 FIELD 54 HAS BEEN ENTERED «, t00=0x0025, t01=0x0072}
0x3a60…3a92 Head {h00=0x002e, h01=0x0050, text=»* THE FIELD WITH LENGTH N (N = 1,2,...,10)«, t00=0x0025, t01=0x009a}
0x3a92…3ac2 Head {h00=0x002c, h01=0x0050, text=»* HAS TO BE LEFT-JUSTIFIED AND EXPANDED «, t00=0x0025, t01=0x00cc}
0x3ac2…3ade Head {h00=0x0018, h01=0x0050, text=»* TO THE LENGTH 10. «, t00=0x0025, t01=0x00fc}
0x3ade…3afa Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=C'0'«, t00=0x0025, t01=0x0118}
0x3afa…3b16 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN10«, t00=0x0025, t01=0x0134}
0x3b16…3b44 Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN1,SPBINW1 HOW MANY ZEROES ?«, t00=0x0025, t01=0x0150}
0x3b44…3b7a Head {h00=0x0032, h01=0x0050, text=» INSRT SPINPUT,SPBINW1,GSWBIN1,GSWSTR20,CBIN0 «, t00=0x0025, t01=0x017e}
0x3b7a…3ba4 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW1,CBIN10 ADJUST LENGTH«, t00=0x0026, t01=0x0024}
0x3ba4…3bb2 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0026, t01=0x004e}
0x3bb2…3bc4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x005c}
0x3bc4…3bd0 Head {h00=0x0008, h01=0x0050, text=»A57 «, t00=0x0026, t01=0x006e}
0x3bd0…3bde Head {h00=0x000a, h01=0x0050, text=» B APF«, t00=0x0026, t01=0x007a}
0x3bde…3bec Head {h00=0x000a, h01=0x0050, text=»******«, t00=0x0026, t01=0x0088}
0x3bec…3bf8 Head {h00=0x0008, h01=0x0050, text=»A065«, t00=0x0026, t01=0x0096}
0x3bf8…3c32 Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW1,CBIN0 SET LENGTH TO ZERO (FUNCTION) «, t00=0x0026, t01=0x00a2}
0x3c32…3c62 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET NEW TRANSTYPE «, t00=0x0026, t01=0x00dc}
0x3c62…3c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x010c}
0x3c6c…3c94 Head {h00=0x0024, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM ROUTINE «, t00=0x0026, t01=0x0116}
0x3c94…3ca4 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0026, t01=0x013e}
0x3ca4…3cc6 Head {h00=0x001e, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE «, t00=0x0026, t01=0x014e}
0x3cc6…3cd6 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0026, t01=0x0170}
0x3cd6…3ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0180}
0x3ce0…3d0c Head {h00=0x0028, h01=0x0050, text=»* CHECK FOR VALID TRANSTYPE«, t00=0x0026, t01=0x018a}
0x3d0c…3d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0026}
0x3d16…3d36 Head {h00=0x001c, h01=0x0050, text=»* ADJUST REGDEX«, t00=0x0027, t01=0x0030}
0x3d36…3d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0050}
0x3d40…3d5c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0027, t01=0x005a}
0x3d5c…3d98 Head {h00=0x0038, h01=0x0050, text=»* TEST FOR CORRECT TRANSACTIONS IN THIS CONNECTION«, t00=0x0027, t01=0x0076}
0x3d98…3db2 Head {h00=0x0016, h01=0x0050, text=» TBT GTKASSE,A0672«, t00=0x0027, t01=0x00b2}
0x3db2…3dec Head {h00=0x0036, h01=0x0050, text=» CBG GSWBCD3,=D'30',A067 CORRECT FOR NOT IN KASSE «, t00=0x0027, t01=0x00cc}
0x3dec…3dfc Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x0027, t01=0x0106}
0x3dfc…3e0a Head {h00=0x000a, h01=0x0050, text=»A0672 «, t00=0x0027, t01=0x0116}
0x3e0a…3e3c Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE «, t00=0x0027, t01=0x0124}
0x3e3c…3e44 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0156}
0x3e44…3e54 Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x0027, t01=0x015e}
0x3e54…3e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x016e}
0x3e5e…3e6a Head {h00=0x0008, h01=0x0050, text=»A067«, t00=0x0027, t01=0x0178}
0x3e6a…3ea8 Head {h00=0x003a, h01=0x0050, text=» CBE GSWBCD3,CREGTAB(GSWBIN1,CBIN1),A068 SEARCH REGNR «, t00=0x0027, t01=0x0184}
0x3ea8…3ed2 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CBIN1 ADD 1 TO INDEX «, t00=0x0028, t01=0x0032}
0x3ed2…3f10 Head {h00=0x003a, h01=0x0050, text=» CBNE CREGTAB(GSWBIN1,CBIN1),=D'-1',A067 END OF TABLE?«, t00=0x0028, t01=0x005c}
0x3f10…3f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009a}
0x3f1a…3f28 Head {h00=0x000a, h01=0x0050, text=»A0675 «, t00=0x0028, t01=0x00a4}
0x3f28…3f56 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,CBIN9 INVALID TRANSTYPE «, t00=0x0028, t01=0x00b2}
0x3f56…3f64 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0028, t01=0x00e0}
0x3f64…3f70 Head {h00=0x0008, h01=0x0050, text=»A068«, t00=0x0028, t01=0x00ee}
0x3f70…3f96 Head {h00=0x0022, h01=0x0050, text=» TAKE CARE OF NEW TRANSTYPE «, t00=0x0028, t01=0x00fa}
0x3f96…3fce Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW2,CBIN18,A0680 HANDLING OF KREDIT KEY«, t00=0x0028, t01=0x0120}
0x3fce…3ffc Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,CBIN17,A0680 SLUT/DEB KEY«, t00=0x0028, t01=0x0158}
0x3ffc…4032 Head {h00=0x0032, h01=0x0050, text=» CBE SPBINW2,CBIN3,A0680 HANDLING OF DEBIT KEY«, t00=0x0028, t01=0x0186}
0x4032…4064 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW4,CBIN4 HANDLING OF WRONG KEY «, t00=0x0029, t01=0x002c}
0x4064…4072 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0029, t01=0x005e}
0x4072…4080 Head {h00=0x000a, h01=0x0050, text=»A0680 «, t00=0x0029, t01=0x006c}
0x4080…40a8 Head {h00=0x0024, h01=0x0050, text=» TBT GTCYFLG,A0685 CYKEL TABEL ?«, t00=0x0029, t01=0x007a}
0x40a8…40d0 Head {h00=0x0024, h01=0x0050, text=» CLEAR GTBDTFLG NO, CLEAR FLAGS «, t00=0x0029, t01=0x00a2}
0x40d0…40e8 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSTRFLG «, t00=0x0029, t01=0x00ca}
0x40e8…410a Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,=D'28',A0681 «, t00=0x0029, t01=0x00e2}
0x410a…412c Head {h00=0x001e, h01=0x0050, text=» SET GTBDTFLG TRANS 28,29 «, t00=0x0029, t01=0x0104}
0x412c…413c Head {h00=0x000c, h01=0x0050, text=» B A0689«, t00=0x0029, t01=0x0126}
0x413c…414a Head {h00=0x000a, h01=0x0050, text=»A0681 «, t00=0x0029, t01=0x0136}
0x414a…416c Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,=D'18',A0689 «, t00=0x0029, t01=0x0144}
0x416c…418e Head {h00=0x001e, h01=0x0050, text=» SET GTSTRFLG TRANS 18,19 «, t00=0x0029, t01=0x0166}
0x418e…419e Head {h00=0x000c, h01=0x0050, text=» B A0689«, t00=0x0029, t01=0x0188}
0x419e…41be Head {h00=0x001c, h01=0x0050, text=»A0685 IN CYKEL/STABEL «, t00=0x002a, t01=0x0008}
0x41be…41e8 Head {h00=0x0026, h01=0x0050, text=» TBF GTBDTFLG,A0686 TRANS 28,29 ? «, t00=0x002a, t01=0x0028}
0x41e8…4220 Head {h00=0x0034, h01=0x0050, text=» CBL GSWBCD3,=D'28',A0675 IF NOT, INVALID TRANS «, t00=0x002a, t01=0x0052}
0x4220…423c Head {h00=0x0018, h01=0x0050, text=» B A0689 VALID TRANS«, t00=0x002a, t01=0x008a}
0x423c…424a Head {h00=0x000a, h01=0x0050, text=»A0686 «, t00=0x002a, t01=0x00a6}
0x424a…4274 Head {h00=0x0026, h01=0x0050, text=» TBT GTSTRFLG,A0687 TRANS 18, 19 ?«, t00=0x002a, t01=0x00b4}
0x4274…4294 Head {h00=0x001c, h01=0x0050, text=» NO, ONLY TRANS 1-12 «, t00=0x002a, t01=0x00de}
0x4294…42cc Head {h00=0x0034, h01=0x0050, text=» CBG GSWBCD3,=D'12',A0675 IF NOT, INVALID TRANS «, t00=0x002a, t01=0x00fe}
0x42cc…42e8 Head {h00=0x0018, h01=0x0050, text=» B A0689 VALID TRANS«, t00=0x002a, t01=0x0136}
0x42e8…42f6 Head {h00=0x000a, h01=0x0050, text=»A0687 «, t00=0x002a, t01=0x0152}
0x42f6…430c Head {h00=0x0012, h01=0x0050, text=» TRANS 18,19«, t00=0x002a, t01=0x0160}
0x430c…433e Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'18',A0675 TR 1-12 INVALID «, t00=0x002a, t01=0x0176}
0x433e…436e Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD3,=D'28',A0689 TR 18,19 VALID«, t00=0x002b, t01=0x0018}
0x436e…4390 Head {h00=0x001e, h01=0x0050, text=» B A0675 TR 28,29 INVALID «, t00=0x002b, t01=0x0048}
0x4390…439e Head {h00=0x000a, h01=0x0050, text=»A0689 «, t00=0x002b, t01=0x006a}
0x439e…43cc Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,CBIN18,A06KRE KREDIT KEY «, t00=0x002b, t01=0x0078}
0x43cc…43de Head {h00=0x000e, h01=0x0050, text=» B A06DEB «, t00=0x002b, t01=0x00a6}
0x43de…43ec Head {h00=0x000a, h01=0x0050, text=»A06KRE«, t00=0x002b, t01=0x00b8}
0x43ec…4400 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x002b, t01=0x00c6}
0x4400…4410 Head {h00=0x000c, h01=0x0050, text=» B A066 «, t00=0x002b, t01=0x00da}
0x4410…441e Head {h00=0x000a, h01=0x0050, text=»A06DEB«, t00=0x002b, t01=0x00ea}
0x441e…4432 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x002b, t01=0x00f8}
0x4432…443e Head {h00=0x0008, h01=0x0050, text=»A066«, t00=0x002b, t01=0x010c}
0x443e…445c Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGNR,GSWBCD3 «, t00=0x002b, t01=0x0118}
0x445c…447a Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGDEX,GSWBIN1«, t00=0x002b, t01=0x0136}
0x447a…44a6 Head {h00=0x0028, h01=0x0050, text=» SET GTREGFLG VALID TRANSTYPE FOUND «, t00=0x002b, t01=0x0154}
0x44a6…44cc Head {h00=0x0022, h01=0x0050, text=» SET TTEORFLG START NEW TRANS «, t00=0x002b, t01=0x0180}
0x44cc…44d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0016}
0x44d6…4510 Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANSACTION SELECTED«, t00=0x002c, t01=0x0020}
0x4510…451e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002c, t01=0x005a}
0x451e…4530 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x0068}
0x4530…4548 Head {h00=0x0014, h01=0x0050, text=»A07 BKO FIELD «, t00=0x002c, t01=0x007a}
0x4548…456a Head {h00=0x001e, h01=0x0050, text=» INSERT TEXT IN TT07TXT «, t00=0x002c, t01=0x0092}
0x456a…4580 Head {h00=0x0012, h01=0x0050, text=» CLEAR TTASKAT«, t00=0x002c, t01=0x00b4}
0x4580…459e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x002c, t01=0x00ca}
0x459e…45c0 Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBCD3,=D'51',A070 «, t00=0x002c, t01=0x00e8}
0x45c0…45d4 Head {h00=0x0010, h01=0x0050, text=» SET TTASKAT«, t00=0x002c, t01=0x010a}
0x45d4…45e0 Head {h00=0x0008, h01=0x0050, text=»A070«, t00=0x002c, t01=0x011e}
0x45e0…4602 Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,CBIN3,A0705«, t00=0x002c, t01=0x012a}
0x4602…462a Head {h00=0x0024, h01=0x0050, text=» CBE GSWBCD3,=D'51',A076 TRANS 3«, t00=0x002c, t01=0x014c}
0x462a…464a Head {h00=0x001c, h01=0x0050, text=» CBE GSWBCD3,=D'52',A076«, t00=0x002c, t01=0x0174}
0x464a…4658 (45, 0, 398) Head {h00=0x000a, h01=0x0050, text=»A0705 «, t00=0x002d, t01=0x0004}
0x4658…4688 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 GET LENGTH OF STRING«, t00=0x002d, t01=0x0012}
0x4688…46ba Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x002d, t01=0x0042}
0x46ba…46d8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,TT07TXT «, t00=0x002d, t01=0x0074}
0x46d8…46f6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBCD3 «, t00=0x002d, t01=0x0092}
0x46f6…4714 Head {h00=0x001a, h01=0x0050, text=» MOVE TT07TXT,CBLANKS «, t00=0x002d, t01=0x00b0}
0x4714…4744 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 FIRST CHAR, POINTER «, t00=0x002d, t01=0x00ce}
0x4744…4760 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x002d, t01=0x00fe}
0x4760…4780 Head {h00=0x001c, h01=0x0050, text=» CBNG SPBINW1,CBIN2,A071«, t00=0x002d, t01=0x011a}
0x4780…47b6 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN3,CBIN1 ADJUST DUPPED FIELD INDEX «, t00=0x002d, t01=0x013a}
0x47b6…47c2 Head {h00=0x0008, h01=0x0050, text=»A071«, t00=0x002d, t01=0x0170}
0x47c2…47dc Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN7«, t00=0x002d, t01=0x017c}
0x47dc…47ea Head {h00=0x000a, h01=0x0050, text=»A0708 «, t00=0x002e, t01=0x0008}
0x47ea…4804 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN7«, t00=0x002e, t01=0x0016}
0x4804…4826 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,GSWBIN2,A075 «, t00=0x002e, t01=0x0030}
0x4826…4860 Head {h00=0x0036, h01=0x0050, text=» MATCH CTTXT07,GSWBIN1,CBIN2,SPINPUT,GSWBIN3,CBIN2«, t00=0x002e, t01=0x0052}
0x4860…4874 Head {h00=0x0010, h01=0x0050, text=» BNOK A0708 «, t00=0x002e, t01=0x008c}
0x4874…4898 Head {h00=0x0020, h01=0x0050, text=»* NEXT 5 CHARS CONTAIN TEXT«, t00=0x002e, t01=0x00a0}
0x4898…48b2 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN2«, t00=0x002e, t01=0x00c4}
0x48b2…48e4 Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x002e, t01=0x00de}
0x48e4…4906 Head {h00=0x001e, h01=0x0050, text=»* SEE IF ALLOWED «, t00=0x002e, t01=0x0110}
0x4906…4942 Head {h00=0x0038, h01=0x0050, text=» CBNE GTREGDEX,CBIN3,A077 ONLY CHECK IF TRANSTYPE 3 «, t00=0x002e, t01=0x0132}
0x4942…495c Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN5«, t00=0x002e, t01=0x016e}
0x495c…497a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR2,CBLANKS «, t00=0x002e, t01=0x0188}
0x497a…49b4 Head {h00=0x0036, h01=0x0050, text=» COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE«, t00=0x002f, t01=0x0016}
0x49b4…49d2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GSWSTR2 «, t00=0x002f, t01=0x0050}
0x49d2…49f4 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,=D'1',A077 OK«, t00=0x002f, t01=0x006e}
0x49f4…4a20 Head {h00=0x0028, h01=0x0050, text=» CBL GTREGF(CBIN2),=D'10000000',A072«, t00=0x002f, t01=0x0090}
0x4a20…4a52 Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'1',A077 CPR - BKO ALLOWED «, t00=0x002f, t01=0x00bc}
0x4a52…4a62 Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x002f, t01=0x00ee}
0x4a62…4a6e Head {h00=0x0008, h01=0x0050, text=»A072«, t00=0x002f, t01=0x00fe}
0x4a6e…4aa0 Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED «, t00=0x002f, t01=0x010a}
0x4aa0…4ab0 Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x002f, t01=0x013c}
0x4ab0…4abc Head {h00=0x0008, h01=0x0050, text=»A075«, t00=0x002f, t01=0x014c}
0x4abc…4ad6 Head {h00=0x0016, h01=0x0050, text=» TBT CBKOFLG,A077 «, t00=0x002f, t01=0x0158}
0x4ad6…4ae2 Head {h00=0x0008, h01=0x0050, text=»A076«, t00=0x002f, t01=0x0172}
0x4ae2…4afe Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x002f, t01=0x017e}
0x4afe…4b0c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0030, t01=0x000a}
0x4b0c…4b18 Head {h00=0x0008, h01=0x0050, text=»A077«, t00=0x0030, t01=0x0018}
0x4b18…4b26 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0030, t01=0x0024}
0x4b26…4b38 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x0032}
0x4b38…4b60 Head {h00=0x0024, h01=0x0050, text=»A11 CHECK VAL DATE NOT GREATER«, t00=0x0030, t01=0x0044}
0x4b60…4b7a Head {h00=0x0016, h01=0x0050, text=» THAN POST DATE «, t00=0x0030, t01=0x006c}
0x4b7a…4ba4 Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,CBIN3,A0110 TRANS 3 «, t00=0x0030, t01=0x0086}
0x4ba4…4bce Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,CBIN4,A0110 TRANS 4 «, t00=0x0030, t01=0x00b0}
0x4bce…4bea Head {h00=0x0018, h01=0x0050, text=» TBF TTCY1FLG,A01101«, t00=0x0030, t01=0x00da}
0x4bea…4c06 Head {h00=0x0018, h01=0x0050, text=» TBF GTBDTFLG,A01101«, t00=0x0030, t01=0x00f6}
0x4c06…4c2a Head {h00=0x0020, h01=0x0050, text=» MOVE GSSWITCH(CBIN7),CBIN1 «, t00=0x0030, t01=0x0112}
0x4c2a…4c38 Head {h00=0x000a, h01=0x0050, text=»A01101«, t00=0x0030, t01=0x0136}
0x4c38…4c46 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0030, t01=0x0144}
0x4c46…4c54 Head {h00=0x000a, h01=0x0050, text=»A0110 «, t00=0x0030, t01=0x0152}
0x4c54…4c70 Head {h00=0x0018, h01=0x0050, text=» TBF CVALFLG,A01101 «, t00=0x0030, t01=0x0160}
0x4c70…4c98 Head {h00=0x0024, h01=0x0050, text=»* GET AND CHANGE VALOERDATE «, t00=0x0030, t01=0x017c}
0x4c98…4cb6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0031, t01=0x0014}
0x4cb6…4cca Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0031, t01=0x0032}
0x4cca…4ce8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,GSWBCD7 «, t00=0x0031, t01=0x0046}
0x4ce8…4d0e Head {h00=0x0022, h01=0x0050, text=»* GET AND CHANGE POSTDATE «, t00=0x0031, t01=0x0064}
0x4d0e…4d2a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTDATO«, t00=0x0031, t01=0x008a}
0x4d2a…4d3e Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0031, t01=0x00a6}
0x4d3e…4d54 Head {h00=0x0012, h01=0x0050, text=»* COMPARE «, t00=0x0031, t01=0x00ba}
0x4d54…4d70 Head {h00=0x0018, h01=0x0050, text=» CMP GSWBCD1,GSWBCD7«, t00=0x0031, t01=0x00d0}
0x4d70…4d80 Head {h00=0x000c, h01=0x0050, text=» BNG APK«, t00=0x0031, t01=0x00ec}
0x4d80…4d9c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN7 «, t00=0x0031, t01=0x00fc}
0x4d9c…4daa Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0031, t01=0x0118}
0x4daa…4dbc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x0126}
0x4dbc…4de2 Head {h00=0x0022, h01=0x0050, text=»A17 CHECK 'FORFALDSAAR' FAAR«, t00=0x0031, t01=0x0138}
0x4de2…4df8 Head {h00=0x0012, h01=0x0050, text=» FAAR >= 70 «, t00=0x0031, t01=0x015e}
0x4df8…4e10 Head {h00=0x0014, h01=0x0050, text=» FAAR <= YY+2 «, t00=0x0031, t01=0x0174}
0x4e10…4e36 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET FAAR«, t00=0x0031, t01=0x018c}
0x4e36…4e6c Head {h00=0x0032, h01=0x0050, text=» CBL GSWBCD6,=D'70',A17ERR LESS THAN 70: ERROR«, t00=0x0032, t01=0x0022}
0x4e6c…4e96 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD1,GTDATO GET POSTDATO «, t00=0x0032, t01=0x0058}
0x4e96…4eb2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'2' «, t00=0x0032, t01=0x0082}
0x4eb2…4eec Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR «, t00=0x0032, t01=0x009e}
0x4eec…4f0c Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD3,=D'2' ADD 2«, t00=0x0032, t01=0x00d8}
0x4f0c…4f3e Head {h00=0x002e, h01=0x0050, text=» CBG GSWBCD6,GSWBCD3,A17ERR MORE THAN YY+2«, t00=0x0032, t01=0x00f8}
0x4f3e…4f4c Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0032, t01=0x012a}
0x4f4c…4f5a Head {h00=0x000a, h01=0x0050, text=»A17ERR«, t00=0x0032, t01=0x0138}
0x4f5a…4f86 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW4,CBIN11 INVALID NUMBER «, t00=0x0032, t01=0x0146}
0x4f86…4f94 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0032, t01=0x0172}
0x4f94…4fa6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0032, t01=0x0180}
0x4fa6…4fb2 (51, 0, 400) Head {h00=0x0008, h01=0x0050, text=»A64 «, t00=0x0033, t01=0x0004}
0x4fb2…4fea Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET 'PRISREGULERINGSKODE' «, t00=0x0033, t01=0x0010}
0x4fea…500a Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'5',A649 «, t00=0x0033, t01=0x0048}
0x500a…502a Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'0',A649 «, t00=0x0033, t01=0x0068}
0x502a…5052 Head {h00=0x0024, h01=0x0050, text=» FIELD 64 HAS BEEN ENTERED AND«, t00=0x0033, t01=0x0088}
0x5052…508c Head {h00=0x0036, h01=0x0050, text=» MOVE GSSWITCH(CBIN12),CBIN1 SHOULD BE GTAUTODPPED«, t00=0x0033, t01=0x00b0}
0x508c…509a Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0033, t01=0x00ea}
0x509a…50a6 Head {h00=0x0008, h01=0x0050, text=»A649«, t00=0x0033, t01=0x00f8}
0x50a6…50c2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN10«, t00=0x0033, t01=0x0104}
0x50c2…50d0 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0033, t01=0x0120}
0x50d0…50e2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0033, t01=0x012e}
0x50e2…5106 Head {h00=0x0020, h01=0x0050, text=»A65 CHECK VALUE 1000-3999 «, t00=0x0033, t01=0x0140}
0x5106…512e Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT GET VALUE «, t00=0x0033, t01=0x0164}
0x512e…5150 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD4,=D'3999',A659«, t00=0x0033, t01=0x018c}
0x5150…5172 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD4,=D'1000',A659«, t00=0x0034, t01=0x001e}
0x5172…5180 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0034, t01=0x0040}
0x5180…518c Head {h00=0x0008, h01=0x0050, text=»A659«, t00=0x0034, t01=0x004e}
0x518c…51a8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0034, t01=0x005a}
0x51a8…51b6 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0034, t01=0x0076}
0x51b6…51c8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0034, t01=0x0084}
0x51c8…51ea Head {h00=0x001e, h01=0x0050, text=»A76 COUNTER NO, TRANS 12«, t00=0x0034, t01=0x0096}
0x51ea…5204 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW1,CBIN3«, t00=0x0034, t01=0x00b8}
0x5204…5228 Head {h00=0x0020, h01=0x0050, text=» BL A065 TRANSTYPE HANDLING «, t00=0x0034, t01=0x00d2}
0x5228…5250 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x0034, t01=0x00f6}
0x5250…526e Head {h00=0x001a, h01=0x0050, text=» MOVE TTCNTNR,SPINPUT «, t00=0x0034, t01=0x011e}
0x526e…5294 Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD3,=D'100' GET INDEX«, t00=0x0034, t01=0x013c}
0x5294…52b2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0034, t01=0x0162}
0x52b2…52e2 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CTR12(TTASKNR,CBIN2),A76NOK«, t00=0x0034, t01=0x0180}
0x52e2…5312 Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD3,=D'1',A76NOK MIN COUNTER NO«, t00=0x0035, t01=0x0020}
0x5312…533c Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0035, t01=0x0050}
0x533c…5366 Head {h00=0x0026, h01=0x0050, text=» CBL CTR12NR(GSWBIN1),=D'1',A76NOK«, t00=0x0035, t01=0x007a}
0x5366…537c Head {h00=0x0012, h01=0x0050, text=» MUST BE > 0«, t00=0x0035, t01=0x00a4}
0x537c…539e Head {h00=0x001e, h01=0x0050, text=» B ART TO WRITE ON SCREEN «, t00=0x0035, t01=0x00ba}
0x539e…53ac Head {h00=0x000a, h01=0x0050, text=»A76NOK«, t00=0x0035, t01=0x00dc}
0x53ac…53c8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN18«, t00=0x0035, t01=0x00ea}
0x53c8…53d6 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0035, t01=0x0106}
0x53d6…53e8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x0114}
0x53e8…540a Head {h00=0x001e, h01=0x0050, text=»A77 INSERT 51,52 IN TR 4«, t00=0x0035, t01=0x0126}
0x540a…542e Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN7 FIELD 7 «, t00=0x0035, t01=0x0148}
0x542e…5450 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW1,CBIN2 LENGTH«, t00=0x0035, t01=0x016c}
0x5450…5466 Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A775«, t00=0x0035, t01=0x018e}
0x5466…5492 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x0036, t01=0x0014}
0x5492…54a0 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0036, t01=0x0040}
0x54a0…54ac Head {h00=0x0008, h01=0x0050, text=»A775«, t00=0x0036, t01=0x004e}
0x54ac…54d8 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x0036, t01=0x005a}
0x54d8…54e6 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0036, t01=0x0086}
0x54e6…54f8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x0094}
0x54f8…5518 Head {h00=0x001c, h01=0x0050, text=»A78 INSERT ACCOUNT NO «, t00=0x0036, t01=0x00a6}
0x5518…5528 Head {h00=0x000c, h01=0x0050, text=» 11-15«, t00=0x0036, t01=0x00c6}
0x5528…5554 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN5 SIMULATE FIELD 5«, t00=0x0036, t01=0x00d6}
0x5554…5562 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0036, t01=0x0102}
0x5562…5572 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0036, t01=0x0110}
0x5572…5592 Head {h00=0x001c, h01=0x0050, text=»A79 AUTODUP ACCOUNT NO«, t00=0x0036, t01=0x0120}
0x5592…55b8 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,CBIN5 IN FIELD 5«, t00=0x0036, t01=0x0140}
0x55b8…55e4 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR GET COUNTER NO«, t00=0x0036, t01=0x0166}
0x55e4…5600 (55, 0, 400) Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN1,=W'100'«, t00=0x0037, t01=0x0004}
0x5600…562a Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0037, t01=0x0020}
0x562a…5650 Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,CTR12NR(GSWBIN1)«, t00=0x0037, t01=0x004a}
0x5650…5674 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW1,CBIN10 LENGTH «, t00=0x0037, t01=0x0070}
0x5674…5682 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0037, t01=0x0094}
0x5682…5694 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x00a2}
0x5694…56ba Head {h00=0x0022, h01=0x0050, text=»A80 CHECK HOVEDBOG, KONTONR «, t00=0x0037, t01=0x00b4}
0x56ba…56de Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN5 FIELD 5 «, t00=0x0037, t01=0x00da}
0x56de…570e Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN2 MIGHT BE TRANSTYPE 2«, t00=0x0037, t01=0x00fe}
0x570e…573a Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,CBIN3,A805 CHECK LENGTH«, t00=0x0037, t01=0x012e}
0x573a…5766 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,CBIN10,A801 MUST BE 10 «, t00=0x0037, t01=0x015a}
0x5766…578e Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x0037, t01=0x0186}
0x578e…579c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0038, t01=0x001e}
0x579c…57a8 Head {h00=0x0008, h01=0x0050, text=»A801«, t00=0x0038, t01=0x002c}
0x57a8…57c6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0038, t01=0x0038}
0x57c6…57ea Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x0038, t01=0x0056}
0x57ea…5808 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0038, t01=0x007a}
0x5808…583a Head {h00=0x002e, h01=0x0050, text=» CMP GSWBIN1,CBIN7 7: KNT.NO. NOT ALLOWED «, t00=0x0038, t01=0x0098}
0x583a…584c Head {h00=0x000e, h01=0x0050, text=» BE A0570 «, t00=0x0038, t01=0x00ca}
0x584c…586c Head {h00=0x001c, h01=0x0050, text=» CBNE GSWBIN1,CBIN8,A804«, t00=0x0038, t01=0x00dc}
0x586c…5886 Head {h00=0x0016, h01=0x0050, text=» TBF TTSUPFLG,A804«, t00=0x0038, t01=0x00fc}
0x5886…58b4 Head {h00=0x002a, h01=0x0050, text=» B A0577 8:KNT.NO. NOT ALLOWED IN SUPL«, t00=0x0038, t01=0x0116}
0x58b4…58c0 Head {h00=0x0008, h01=0x0050, text=»A804«, t00=0x0038, t01=0x0144}
0x58c0…58e2 Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0038, t01=0x0150}
0x58e2…5900 Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0038, t01=0x0172}
0x5900…5912 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0038, t01=0x0190}
0x5912…5934 Head {h00=0x001e, h01=0x0050, text=»A805 CHECK FUNCTION KEYS«, t00=0x0039, t01=0x0012}
0x5934…5950 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x0039, t01=0x0034}
0x5950…5974 Head {h00=0x0020, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM KEY «, t00=0x0039, t01=0x0050}
0x5974…5984 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0039, t01=0x0074}
0x5984…59aa Head {h00=0x0022, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE KEY «, t00=0x0039, t01=0x0084}
0x59aa…59ba Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0039, t01=0x00aa}
0x59ba…59e2 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN4 INVALID KEY «, t00=0x0039, t01=0x00ba}
0x59e2…59f0 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0039, t01=0x00e2}
0x59f0…5a02 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x00f0}
0x5a02…5a2a Head {h00=0x0024, h01=0x0050, text=»A81 CHECK HOVEDBOG, CPR/CIR/NR«, t00=0x0039, t01=0x0102}
0x5a2a…5a4e Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN6 FIELD 6 «, t00=0x0039, t01=0x012a}
0x5a4e…5a80 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW5,CBIN1 MIGHT BE TRANS TYPE 1 «, t00=0x0039, t01=0x014e}
0x5a80…5aac Head {h00=0x0028, h01=0x0050, text=» CBG SPBINW1,CBIN2,A811 CHECK LENGTH«, t00=0x0039, t01=0x0180}
0x5aac…5ad4 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x003a, t01=0x001c}
0x5ad4…5ae2 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003a, t01=0x0044}
0x5ae2…5afe Head {h00=0x0018, h01=0x0050, text=»A811 CPR OR CIR ? «, t00=0x003a, t01=0x0052}
0x5afe…5b1a Head {h00=0x0018, h01=0x0050, text=» SET BCPR SET CPR NO«, t00=0x003a, t01=0x006e}
0x5b1a…5b38 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003a, t01=0x008a}
0x5b38…5b5e Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A814«, t00=0x003a, t01=0x00a8}
0x5b5e…5b70 Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x003a, t01=0x00ce}
0x5b70…5b98 Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A812«, t00=0x003a, t01=0x00e0}
0x5b98…5bac Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x003a, t01=0x0108}
0x5bac…5bbc Head {h00=0x000c, h01=0x0050, text=» B A812 «, t00=0x003a, t01=0x011c}
0x5bbc…5bc8 Head {h00=0x0008, h01=0x0050, text=»A814«, t00=0x003a, t01=0x012c}
0x5bc8…5be6 Head {h00=0x001a, h01=0x0050, text=» CLEAR BCPR SET CIR NO«, t00=0x003a, t01=0x0138}
0x5be6…5bf2 Head {h00=0x0008, h01=0x0050, text=»A812«, t00=0x003a, t01=0x0156}
0x5bf2…5c14 Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x003a, t01=0x0162}
0x5c14…5c32 Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x003a, t01=0x0184}
0x5c32…5c44 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x003b, t01=0x0012}
0x5c44…5c56 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003b, t01=0x0024}
0x5c56…5c7c Head {h00=0x0022, h01=0x0050, text=»A82 CHECK HOVEDBOG, YD.MODT.«, t00=0x003b, t01=0x0036}
0x5c7c…5ca2 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,CBIN21 FIELD 21 «, t00=0x003b, t01=0x005c}
0x5ca2…5cd2 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN6 MIGHT BE TRANSTYPE 6«, t00=0x003b, t01=0x0082}
0x5cd2…5cde Head {h00=0x0008, h01=0x0050, text=»A821«, t00=0x003b, t01=0x00b2}
0x5cde…5d0c Head {h00=0x002a, h01=0x0050, text=» CBNE SPBINW2,CBIN3,A822 IF ENTER KEY,«, t00=0x003b, t01=0x00be}
0x5d0c…5d3c Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,CBIN17 SIMULATE DEBET KEY «, t00=0x003b, t01=0x00ec}
0x5d3c…5d48 Head {h00=0x0008, h01=0x0050, text=»A822«, t00=0x003b, t01=0x011c}
0x5d48…5d6a Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x003b, t01=0x0128}
0x5d6a…5d88 Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x003b, t01=0x014a}
0x5d88…5d9a Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x003b, t01=0x0168}
0x5d9a…5dac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003b, t01=0x017a}
0x5dac…5dd4 Head {h00=0x0024, h01=0x0050, text=»A83 CHECK DEBITOR, DEBITOR NR «, t00=0x003b, t01=0x018c}
0x5dd4…5df8 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN6 FIELD 6 «, t00=0x003c, t01=0x0024}
0x5df8…5e22 Head {h00=0x0026, h01=0x0050, text=» CBL SPBINW1,CBIN3,A805 FUNCTION? «, t00=0x003c, t01=0x0048}
0x5e22…5e42 Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW1,CBIN7,A833 «, t00=0x003c, t01=0x0072}
0x5e42…5e72 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN4 MIGHT BE TRANSTYPE 4«, t00=0x003c, t01=0x0092}
0x5e72…5e8c Head {h00=0x0016, h01=0x0050, text=» SET BCPR SET CPR «, t00=0x003c, t01=0x00c2}
0x5e8c…5eaa Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003c, t01=0x00dc}
0x5eaa…5ed0 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A831«, t00=0x003c, t01=0x00fa}
0x5ed0…5ee2 Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x003c, t01=0x0120}
0x5ee2…5f0a Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A832«, t00=0x003c, t01=0x0132}
0x5f0a…5f1e Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x003c, t01=0x015a}
0x5f1e…5f2e Head {h00=0x000c, h01=0x0050, text=» B A832 «, t00=0x003c, t01=0x016e}
0x5f2e…5f3a Head {h00=0x0008, h01=0x0050, text=»A831«, t00=0x003c, t01=0x017e}
0x5f3a…5f56 Head {h00=0x0018, h01=0x0050, text=» CLEAR BCPR SET CIR «, t00=0x003c, t01=0x018a}
0x5f56…5f62 Head {h00=0x0008, h01=0x0050, text=»A832«, t00=0x003d, t01=0x0016}
0x5f62…5f76 Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x003d, t01=0x0022}
0x5f76…5f88 Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x003d, t01=0x0036}
0x5f88…5fa4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,CBIN3 «, t00=0x003d, t01=0x0048}
0x5fa4…5fb2 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x003d, t01=0x0064}
0x5fb2…5fbe Head {h00=0x0008, h01=0x0050, text=»A833«, t00=0x003d, t01=0x0072}
0x5fbe…5fe6 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x003d, t01=0x007e}
0x5fe6…5ff4 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003d, t01=0x00a6}
0x5ff4…6006 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x00b4}
0x6006…6026 Head {h00=0x001c, h01=0x0050, text=»A84 CHECK DEBITOR, BKO«, t00=0x003d, t01=0x00c6}
0x6026…604a Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN7 FIELD 7 «, t00=0x003d, t01=0x00e6}
0x604a…607a Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN3 MIGHT BE TRANSTYPE 3«, t00=0x003d, t01=0x010a}
0x607a…609a Head {h00=0x001c, h01=0x0050, text=» CBNE SPBINW2,CBIN3,A842«, t00=0x003d, t01=0x013a}
0x609a…60b6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,CBIN17«, t00=0x003d, t01=0x015a}
0x60b6…60c2 Head {h00=0x0008, h01=0x0050, text=»A842«, t00=0x003d, t01=0x0176}
0x60c2…60e0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003d, t01=0x0182}
0x60e0…6102 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+51',A845 «, t00=0x003e, t01=0x0010}
0x6102…6124 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+52',A845 «, t00=0x003e, t01=0x0032}
0x6124…6130 Head {h00=0x0008, h01=0x0050, text=»A843«, t00=0x003e, t01=0x0054}
0x6130…6144 Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x003e, t01=0x0060}
0x6144…6156 Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x003e, t01=0x0074}
0x6156…6164 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x003e, t01=0x0086}
0x6164…6170 Head {h00=0x0008, h01=0x0050, text=»A845«, t00=0x003e, t01=0x0094}
0x6170…618c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW5,CBIN4 «, t00=0x003e, t01=0x00a0}
0x618c…619c Head {h00=0x000c, h01=0x0050, text=» B A843 «, t00=0x003e, t01=0x00bc}
0x619c…61ae Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003e, t01=0x00cc}
0x61ae…61d6 Head {h00=0x0024, h01=0x0050, text=»A85 CHECK REMITTERING, KONTONR«, t00=0x003e, t01=0x00de}
0x61d6…61fa Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN5 FIELD 5 «, t00=0x003e, t01=0x0106}
0x61fa…6226 Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,CBIN3,A805 CHECK LENGTH«, t00=0x003e, t01=0x012a}
0x6226…6252 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,CBIN10,A850 MUST BE 10 «, t00=0x003e, t01=0x0156}
0x6252…627a Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x003e, t01=0x0182}
0x627a…6288 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003f, t01=0x001a}
0x6288…6294 Head {h00=0x0008, h01=0x0050, text=»A850«, t00=0x003f, t01=0x0028}
0x6294…62c8 Head {h00=0x0030, h01=0x0050, text=» CMP SPBINW2,CBIN3 ONLY ENTER-KEY ALLOWED«, t00=0x003f, t01=0x0034}
0x62c8…62da Head {h00=0x000e, h01=0x0050, text=» BNE A855 «, t00=0x003f, t01=0x0068}
0x62da…62f8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003f, t01=0x007a}
0x62f8…631c Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x003f, t01=0x0098}
0x631c…633a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x003f, t01=0x00bc}
0x633a…636e Head {h00=0x0030, h01=0x0050, text=» CBE GSWBIN1,CBIN6,A853 6: REMIT NOT ALLOWED«, t00=0x003f, t01=0x00da}
0x636e…639e Head {h00=0x002c, h01=0x0050, text=» CMP GSWBIN1,CBIN7 7:KNT.NO. NOT ALLOWED«, t00=0x003f, t01=0x010e}
0x639e…63b0 Head {h00=0x000e, h01=0x0050, text=» BE A0570 «, t00=0x003f, t01=0x013e}
0x63b0…63d0 Head {h00=0x001c, h01=0x0050, text=» CBNE GSWBIN1,CBIN8,A854«, t00=0x003f, t01=0x0150}
0x63d0…63ea Head {h00=0x0016, h01=0x0050, text=» TBF TTSUPFLG,A854«, t00=0x003f, t01=0x0170}
0x63ea…6418 Head {h00=0x002a, h01=0x0050, text=» B A0577 8:KNT.NO. NOT ALLOWED IN SUPL«, t00=0x003f, t01=0x018a}
0x6418…6424 Head {h00=0x0008, h01=0x0050, text=»A853«, t00=0x0040, t01=0x0028}
0x6424…6452 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,CBIN20 REMIT NOT ALLOWED«, t00=0x0040, t01=0x0034}
0x6452…6460 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0040, t01=0x0062}
0x6460…646c Head {h00=0x0008, h01=0x0050, text=»A854«, t00=0x0040, t01=0x0070}
0x646c…647a Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0040, t01=0x007c}
0x647a…6486 Head {h00=0x0008, h01=0x0050, text=»A855«, t00=0x0040, t01=0x008a}
0x6486…64ae Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN4 INVALID KEY «, t00=0x0040, t01=0x0096}
0x64ae…64bc Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0040, t01=0x00be}
0x64bc…64ce Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x00cc}
0x64ce…64f6 Head {h00=0x0024, h01=0x0050, text=»A86 CHECK REMITTERING, LEV.NR.«, t00=0x0040, t01=0x00de}
0x64f6…651a Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN6 FIELD 6 «, t00=0x0040, t01=0x0106}
0x651a…654a Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN8 MIGHT BE TRANSTYPE 8«, t00=0x0040, t01=0x012a}
0x654a…657c Head {h00=0x002e, h01=0x0050, text=» CMP SPBINW1,CBIN2 CHECK LENGTH + CPR/CIR «, t00=0x0040, t01=0x015a}
0x657c…658c Head {h00=0x000c, h01=0x0050, text=» BG A811«, t00=0x0040, t01=0x018c}
0x658c…65b4 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x0041, t01=0x000c}
0x65b4…65c2 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0041, t01=0x0034}
0x65c2…65d4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x0042}
0x65d4…65fe Head {h00=0x0026, h01=0x0050, text=»A87 CHECK REMITTERING, YD.MODT. «, t00=0x0041, t01=0x0054}
0x65fe…6624 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,CBIN21 FIELD 21 «, t00=0x0041, t01=0x007e}
0x6624…6654 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN9 MIGHT BE TRANSTYPE 9«, t00=0x0041, t01=0x00a4}
0x6654…667a Head {h00=0x0022, h01=0x0050, text=» B A821 CHECK FOR INVALID KEY «, t00=0x0041, t01=0x00d4}
0x667a…668c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x00fa}
0x668c…6698 Head {h00=0x0008, h01=0x0050, text=»A88 «, t00=0x0041, t01=0x010c}
0x6698…66bc Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN7 FIELD 7 «, t00=0x0041, t01=0x0118}
0x66bc…66d8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'36'«, t00=0x0041, t01=0x013c}
0x66d8…66f4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN2 «, t00=0x0041, t01=0x0158}
0x66f4…670a Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A885«, t00=0x0041, t01=0x0174}
0x670a…6736 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x0041, t01=0x018a}
0x6736…6744 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0042, t01=0x0026}
0x6744…6750 Head {h00=0x0008, h01=0x0050, text=»A885«, t00=0x0042, t01=0x0034}
0x6750…677c Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x0042, t01=0x0040}
0x677c…678a Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0042, t01=0x006c}
0x678a…679c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x007a}
0x679c…67a8 Head {h00=0x0008, h01=0x0050, text=»A89 «, t00=0x0042, t01=0x008c}
0x67a8…67d4 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN6 STORE IN FIELD 6«, t00=0x0042, t01=0x0098}
0x67d4…67e2 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0042, t01=0x00c4}
0x67e2…67f4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x00d2}
0x67f4…6814 Head {h00=0x001c, h01=0x0050, text=»A121 SIMULATE SLUT KEY«, t00=0x0042, t01=0x00e4}
0x6814…682c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLUTFL «, t00=0x0042, t01=0x0104}
0x682c…6844 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTADUPFL «, t00=0x0042, t01=0x011c}
0x6844…686a Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW2,CBIN17 SLUT KEY «, t00=0x0042, t01=0x0134}
0x686a…6892 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW1,CBIN0 LENGTH ZERO «, t00=0x0042, t01=0x015a}
0x6892…68a0 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0042, t01=0x0182}
0x68a0…68b2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x0190}
0x68b2…68d4 Head {h00=0x001e, h01=0x0050, text=»A122 ENTER TO SLUT KEY «, t00=0x0043, t01=0x0012}
0x68d4…68ee Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN3«, t00=0x0043, t01=0x0034}
0x68ee…68fe Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x0043, t01=0x004e}
0x68fe…691c Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW2,CBIN17 «, t00=0x0043, t01=0x005e}
0x691c…692c Head {h00=0x000c, h01=0x0050, text=» B ART «, t00=0x0043, t01=0x007c}
0x692c…693e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x008c}
0x693e…694a Head {h00=0x0008, h01=0x0050, text=»A90 «, t00=0x0043, t01=0x009e}
0x694a…695e Head {h00=0x0010, h01=0x0050, text=» SET TFELT90«, t00=0x0043, t01=0x00aa}
0x695e…697c Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVTXT,CBLANKS«, t00=0x0043, t01=0x00be}
0x697c…699a Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNVN,CBLANKS«, t00=0x0043, t01=0x00dc}
0x699a…69b8 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVADR,CBLANKS«, t00=0x0043, t01=0x00fa}
0x69b8…69d6 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVBY,CBLANKS «, t00=0x0043, t01=0x0118}
0x69d6…69f4 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVPDI,CBLANKS«, t00=0x0043, t01=0x0136}
0x69f4…6a08 Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0043, t01=0x0154}
0x6a08…6a3a Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVTXT,CBIN0,CBIN22,SPINPUT,CBIN0«, t00=0x0043, t01=0x0168}
0x6a3a…6a48 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0044, t01=0x000a}
0x6a48…6a54 Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0044, t01=0x0018}
0x6a54…6a60 Head {h00=0x0008, h01=0x0050, text=»A91 «, t00=0x0044, t01=0x0024}
0x6a60…6a74 Head {h00=0x0010, h01=0x0050, text=» SET TFELT91«, t00=0x0044, t01=0x0030}
0x6a74…6a88 Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0044, t01=0x0044}
0x6a88…6aba Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNVN,CBIN0,CBIN22,SPINPUT,CBIN0«, t00=0x0044, t01=0x0058}
0x6aba…6ac8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0044, t01=0x008a}
0x6ac8…6ad4 Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0044, t01=0x0098}
0x6ad4…6ae0 Head {h00=0x0008, h01=0x0050, text=»A92 «, t00=0x0044, t01=0x00a4}
0x6ae0…6af4 Head {h00=0x0010, h01=0x0050, text=» SET TFELT92«, t00=0x0044, t01=0x00b0}
0x6af4…6b08 Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0044, t01=0x00c4}
0x6b08…6b3a Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNVN,CBIN22,CBIN8,SPINPUT,CBIN0«, t00=0x0044, t01=0x00d8}
0x6b3a…6b6c Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVADR,CBIN0,CBIN14,SPINPUT,CBIN8«, t00=0x0044, t01=0x010a}
0x6b6c…6b7a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0044, t01=0x013c}
0x6b7a…6b86 Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0044, t01=0x014a}
0x6b86…6b92 Head {h00=0x0008, h01=0x0050, text=»A93 «, t00=0x0044, t01=0x0156}
0x6b92…6ba6 Head {h00=0x0010, h01=0x0050, text=» SET TFELT93«, t00=0x0044, t01=0x0162}
0x6ba6…6bba Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0044, t01=0x0176}
0x6bba…6bee Head {h00=0x0030, h01=0x0050, text=» XCOPY GTLEVADR,CBIN14,CBIN18,SPINPUT,CBIN0 «, t00=0x0044, t01=0x018a}
0x6bee…6c20 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVBY,CBIN0,CBIN4,SPINPUT,CBIN18 «, t00=0x0045, t01=0x002e}
0x6c20…6c2e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0045, t01=0x0060}
0x6c2e…6c3a Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0045, t01=0x006e}
0x6c3a…6c46 Head {h00=0x0008, h01=0x0050, text=»A94 «, t00=0x0045, t01=0x007a}
0x6c46…6c5a Head {h00=0x0010, h01=0x0050, text=» SET TFELT94«, t00=0x0045, t01=0x0086}
0x6c5a…6c6e Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0045, t01=0x009a}
0x6c6e…6ca0 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVBY,CBIN4,CBIN16,SPINPUT,CBIN0 «, t00=0x0045, t01=0x00ae}
0x6ca0…6cd2 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVPDI,CBIN0,CBIN6,SPINPUT,CBIN16«, t00=0x0045, t01=0x00e0}
0x6cd2…6ce0 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0045, t01=0x0112}
0x6ce0…6cec Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0045, t01=0x0120}
0x6cec…6d10 Head {h00=0x0020, h01=0x0050, text=»A100 CHECK TR 12 COUNTERS «, t00=0x0045, t01=0x012c}
0x6d10…6d2e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0045, t01=0x0150}
0x6d2e…6d4a Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD1,=D'100'«, t00=0x0045, t01=0x016e}
0x6d4a…6d68 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x0045, t01=0x018a}
0x6d68…6d92 Head {h00=0x0026, h01=0x0050, text=» CBL GSWBIN6,CBIN1,A1009 TOO SMALL«, t00=0x0046, t01=0x0018}
0x6d92…6dca Head {h00=0x0034, h01=0x0050, text=» CBG GSWBIN6,CTR12(TTASKNR,CBIN2),A1009 TOO HIGH«, t00=0x0046, t01=0x0042}
0x6dca…6df4 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(TTASKNR,CBIN1) «, t00=0x0046, t01=0x007a}
0x6df4…6e02 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0046, t01=0x00a4}
0x6e02…6e10 Head {h00=0x000a, h01=0x0050, text=»A1009 «, t00=0x0046, t01=0x00b2}
0x6e10…6e2c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0046, t01=0x00c0}
0x6e2c…6e3a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0046, t01=0x00dc}
0x6e3a…6e4c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x00ea}
0x6e4c…6e70 Head {h00=0x0020, h01=0x0050, text=»A101 CHECK BEHL. COUNTERS «, t00=0x0046, t01=0x00fc}
0x6e70…6e8e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0046, t01=0x0120}
0x6e8e…6eb0 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'1',A101ER «, t00=0x0046, t01=0x013e}
0x6eb0…6ece Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x0046, t01=0x0160}
0x6ece…6efe Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,CBEH(TTASKNR,CBIN2),A101ER «, t00=0x0046, t01=0x017e}
0x6efe…6f26 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(TTASKNR,CBIN1)«, t00=0x0047, t01=0x001e}
0x6f26…6f34 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0047, t01=0x0046}
0x6f34…6f42 Head {h00=0x000a, h01=0x0050, text=»A101ER«, t00=0x0047, t01=0x0054}
0x6f42…6f5e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0047, t01=0x0062}
0x6f5e…6f6c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0047, t01=0x007e}
0x6f6c…6f7e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0047, t01=0x008c}
0x6f7e…6fa0 Head {h00=0x001e, h01=0x0050, text=»A102 CHECK RELATIVE DAY «, t00=0x0047, t01=0x009e}
0x6fa0…6fbe Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,CMASKDAT«, t00=0x0047, t01=0x00c0}
0x6fbe…6fee Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD5,=D'2' INITIATE REL DAY NO.«, t00=0x0047, t01=0x00de}
0x6fee…7018 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0047, t01=0x010e}
0x7018…7046 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN2,CBIN8 SET POINTER TO DAY«, t00=0x0047, t01=0x0138}
0x7046…7080 Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET DAY «, t00=0x0047, t01=0x0166}
0x7080…70b0 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD DAY TO REL. DAY«, t00=0x0048, t01=0x0010}
0x70b0…70e0 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN2,CBIN2 SET POINTER TO MONTH «, t00=0x0048, t01=0x0040}
0x70e0…711c Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET MONTH «, t00=0x0048, t01=0x0070}
0x711c…714e Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD3,=D'1' GET WHOLE NO. OF MONTHS«, t00=0x0048, t01=0x00ac}
0x714e…7178 Head {h00=0x0026, h01=0x0050, text=» MUL GSWBCD3,=D'30' EQUAL IN DAYS «, t00=0x0048, t01=0x00de}
0x7178…7194 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3«, t00=0x0048, t01=0x0108}
0x7194…71c4 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET KEYED REL. DAY«, t00=0x0048, t01=0x0124}
0x71c4…71de Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD5,=D'5'«, t00=0x0048, t01=0x0154}
0x71de…720c Head {h00=0x002a, h01=0x0050, text=» CBL GSWBCD3,GSWBCD5,A102ER TOO SMALL «, t00=0x0048, t01=0x016e}
0x720c…7228 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,=D'10' «, t00=0x0049, t01=0x000c}
0x7228…7256 Head {h00=0x002a, h01=0x0050, text=» CBG GSWBCD3,GSWBCD5,A102ER TOO LARGE «, t00=0x0049, t01=0x0028}
0x7256…7268 Head {h00=0x000e, h01=0x0050, text=» B A102END«, t00=0x0049, t01=0x0056}
0x7268…7276 Head {h00=0x000a, h01=0x0050, text=»A102ER«, t00=0x0049, t01=0x0068}
0x7276…72a0 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN11 INVALID VALUE«, t00=0x0049, t01=0x0076}
0x72a0…72b0 Head {h00=0x000c, h01=0x0050, text=»A102END «, t00=0x0049, t01=0x00a0}
0x72b0…72cc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0049, t01=0x00b0}
0x72cc…72da Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0049, t01=0x00cc}
0x72da…72ec Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x00da}
0x72ec…730e Head {h00=0x001e, h01=0x0050, text=»A103 SET BEHL. COUNTERS «, t00=0x0049, t01=0x00ec}
0x730e…732c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0049, t01=0x010e}
0x732c…734a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x0049, t01=0x012c}
0x734a…7372 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(GSWBIN1,CBIN1)«, t00=0x0049, t01=0x014a}
0x7372…739e Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A103ER TOO MANY «, t00=0x0049, t01=0x0172}
0x739e…73c0 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1035 «, t00=0x004a, t01=0x000e}
0x73c0…73da Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x004a, t01=0x0030}
0x73da…7404 Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN1),GSWBIN6 «, t00=0x004a, t01=0x004a}
0x7404…741e Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x004a, t01=0x0074}
0x741e…742c Head {h00=0x000a, h01=0x0050, text=»A1035 «, t00=0x004a, t01=0x008e}
0x742c…744a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x004a, t01=0x009c}
0x744a…7474 Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN2),GSWBIN6 «, t00=0x004a, t01=0x00ba}
0x7474…7482 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004a, t01=0x00e4}
0x7482…7490 Head {h00=0x000a, h01=0x0050, text=»A103ER«, t00=0x004a, t01=0x00f2}
0x7490…74ac Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x004a, t01=0x0100}
0x74ac…74ba Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004a, t01=0x011c}
0x74ba…74cc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x012a}
0x74cc…74ee Head {h00=0x001e, h01=0x0050, text=»A104 SET TR 12 COUNTERS «, t00=0x004a, t01=0x013c}
0x74ee…750c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT «, t00=0x004a, t01=0x015e}
0x750c…752a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x004a, t01=0x017c}
0x752a…7554 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(GSWBIN1,CBIN1) «, t00=0x004b, t01=0x000a}
0x7554…7580 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A104ER TOO MANY «, t00=0x004b, t01=0x0034}
0x7580…75a2 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1045 «, t00=0x004b, t01=0x0060}
0x75a2…75bc Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x004b, t01=0x0082}
0x75bc…75e6 Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN1),GSWBIN6«, t00=0x004b, t01=0x009c}
0x75e6…7600 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x004b, t01=0x00c6}
0x7600…760e Head {h00=0x000a, h01=0x0050, text=»A1045 «, t00=0x004b, t01=0x00e0}
0x760e…762c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x004b, t01=0x00ee}
0x762c…7656 Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN2),GSWBIN6«, t00=0x004b, t01=0x010c}
0x7656…7664 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004b, t01=0x0136}
0x7664…7672 Head {h00=0x000a, h01=0x0050, text=»A104ER«, t00=0x004b, t01=0x0144}
0x7672…768e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x004b, t01=0x0152}
0x768e…769c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004b, t01=0x016e}
0x769c…76ae Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x017c}
0x76ae…76d0 Head {h00=0x001e, h01=0x0050, text=»A105 CONRTL.DIGITCALC. «, t00=0x004b, t01=0x018e}
0x76d0…76ee Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x004c, t01=0x0020}
0x76ee…7710 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,CBIN3,CALCD01«, t00=0x004c, t01=0x003e}
0x7710…772c Head {h00=0x0018, h01=0x0050, text=» CMP SPBINW2,CBIN17 «, t00=0x004c, t01=0x0060}
0x772c…773c Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x004c, t01=0x007c}
0x773c…774c Head {h00=0x000c, h01=0x0050, text=»CALCD01 «, t00=0x004c, t01=0x008c}
0x774c…7776 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x004c, t01=0x009c}
0x7776…7792 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN13«, t00=0x004c, t01=0x00c6}
0x7792…77ae Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x004c, t01=0x00e2}
0x77ae…77be Head {h00=0x000c, h01=0x0050, text=»CALCD02 «, t00=0x004c, t01=0x00fe}
0x77be…77dc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,=D'0' «, t00=0x004c, t01=0x010e}
0x77dc…781e Head {h00=0x003e, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT «, t00=0x004c, t01=0x012c}
0x781e…784e Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,CBIN1 ADJUST WEIGHT-INDEX«, t00=0x004c, t01=0x016e}
0x784e…7888 Head {h00=0x0036, h01=0x0050, text=» MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY BY WEIGHT «, t00=0x004d, t01=0x000e}
0x7888…78b6 Head {h00=0x002a, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x004d, t01=0x0048}
0x78b6…78e0 Head {h00=0x0026, h01=0x0050, text=» SUB GSWBIN1,CBIN1 ADJUST LENGTH«, t00=0x004d, t01=0x0076}
0x78e0…7902 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,CBIN0,CALCD02«, t00=0x004d, t01=0x00a0}
0x7902…7920 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x004d, t01=0x00c2}
0x7920…793c Head {h00=0x0018, h01=0x0050, text=» DIV GSWBCD5,=D'11' «, t00=0x004d, t01=0x00e0}
0x793c…7958 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD5,=D'11' «, t00=0x004d, t01=0x00fc}
0x7958…7994 Head {h00=0x0038, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x004d, t01=0x0118}
0x7994…79b8 Head {h00=0x0020, h01=0x0050, text=» CBNL GSWBCD4,=D'1',CALCD05 «, t00=0x004d, t01=0x0154}
0x79b8…79d4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD4,=D'11'«, t00=0x004d, t01=0x0178}
0x79d4…79e4 (78, 0, 400) Head {h00=0x000c, h01=0x0050, text=»CALCD05 «, t00=0x004e, t01=0x0004}
0x79e4…7a00 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'11'«, t00=0x004e, t01=0x0014}
0x7a00…7a36 Head {h00=0x0032, h01=0x0050, text=» SUB GSWBCD5,GSWBCD4 CALCULATE CONTROLDIGIT «, t00=0x004e, t01=0x0030}
0x7a36…7a46 Head {h00=0x000c, h01=0x0050, text=» B ART «, t00=0x004e, t01=0x0066}
0x7a46…7a58 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x0076}
0x7a58…7a7c Head {h00=0x0020, h01=0x0050, text=»A107 POSTDATO=MASKINDATO ?«, t00=0x004e, t01=0x0088}
0x7a7c…7a9a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT «, t00=0x004e, t01=0x00ac}
0x7a9a…7abe Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD7,CMASKDAT,A1075«, t00=0x004e, t01=0x00ca}
0x7abe…7acc Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004e, t01=0x00ee}
0x7acc…7ada Head {h00=0x000a, h01=0x0050, text=»A1075 «, t00=0x004e, t01=0x00fc}
0x7ada…7af0 Head {h00=0x0012, h01=0x0050, text=» SET SPWARNFL «, t00=0x004e, t01=0x010a}
0x7af0…7afe Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004e, t01=0x0120}
0x7afe…7b10 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x012e}
0x7b10…7b2e Head {h00=0x001a, h01=0x0050, text=»A108 SPG-REGKONTONR «, t00=0x004e, t01=0x0140}
0x7b2e…7b4a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'5' «, t00=0x004e, t01=0x015e}
0x7b4a…7b58 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004e, t01=0x017a}
0x7b58…7b6a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x0188}
0x7b6a…7b88 Head {h00=0x001a, h01=0x0050, text=»A109 SPG-CPR/CIR/NR «, t00=0x004f, t01=0x000a}
0x7b88…7ba4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'6' «, t00=0x004f, t01=0x0028}
0x7ba4…7bb2 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004f, t01=0x0044}
0x7bb2…7bc4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004f, t01=0x0052}
0x7bc4…7bdc Head {h00=0x0014, h01=0x0050, text=»A110 SPG-BELOB«, t00=0x004f, t01=0x0064}
0x7bdc…7bf8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'8' «, t00=0x004f, t01=0x007c}
0x7bf8…7c06 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004f, t01=0x0098}
0x7c06…7c18 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004f, t01=0x00a6}
0x7c18…7c36 Head {h00=0x001a, h01=0x0050, text=»A111 SPG-OTHER FIELD«, t00=0x004f, t01=0x00b8}
0x7c36…7c54 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x004f, t01=0x00d6}
0x7c54…7c78 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBCD6,=D'90',A111ERR «, t00=0x004f, t01=0x00f4}
0x7c78…7c94 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'0' «, t00=0x004f, t01=0x0118}
0x7c94…7ca2 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004f, t01=0x0134}
0x7ca2…7cb2 Head {h00=0x000c, h01=0x0050, text=»A111ERR «, t00=0x004f, t01=0x0142}
0x7cb2…7cce Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x004f, t01=0x0152}
0x7cce…7cdc Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004f, t01=0x016e}
0x7cdc…7cee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004f, t01=0x017c}
0x7cee…7d10 Head {h00=0x001e, h01=0x0050, text=»A115 TEXTNR REMITTERING «, t00=0x004f, t01=0x018e}
0x7d10…7d2e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0050, t01=0x0020}
0x7d2e…7d4c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GSWBCD6 «, t00=0x0050, t01=0x003e}
0x7d4c…7d72 Head {h00=0x0022, h01=0x0050, text=» PERF TXTRD,GSWBIN8 READ TEXT «, t00=0x0050, t01=0x005c}
0x7d72…7d86 Head {h00=0x0010, h01=0x0050, text=» BNOK A1154 «, t00=0x0050, t01=0x0082}
0x7d86…7db4 Head {h00=0x002a, h01=0x0050, text=» CBE GTWBCD1,=D'10',A1154 END OF FILE «, t00=0x0050, t01=0x0096}
0x7db4…7dde Head {h00=0x0026, h01=0x0050, text=» CBL GTTXTTKO,=D'1',A1154 DELETED «, t00=0x0050, t01=0x00c4}
0x7dde…7df6 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0050, t01=0x00ee}
0x7df6…7e12 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'26'«, t00=0x0050, t01=0x0106}
0x7e12…7e20 Head {h00=0x000a, h01=0x0050, text=»A1151 «, t00=0x0050, t01=0x0122}
0x7e20…7e3c Head {h00=0x0018, h01=0x0050, text=» TBF TTCY1FLG,A1153 «, t00=0x0050, t01=0x0130}
0x7e3c…7e58 Head {h00=0x0018, h01=0x0050, text=» TBT GTBDTFLG,A1152 «, t00=0x0050, t01=0x014c}
0x7e58…7e74 Head {h00=0x0018, h01=0x0050, text=» TBF GTSTRFLG,A1153 «, t00=0x0050, t01=0x0168}
0x7e74…7e82 Head {h00=0x000a, h01=0x0050, text=»A1152 «, t00=0x0050, t01=0x0184}
0x7e82…7ea8 (81, 0, 400) Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3)«, t00=0x0051, t01=0x0004}
0x7ea8…7ece Head {h00=0x0022, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN1 «, t00=0x0051, t01=0x002a}
0x7ece…7edc Head {h00=0x000a, h01=0x0050, text=»A1153 «, t00=0x0051, t01=0x0050}
0x7edc…7eea Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0051, t01=0x005e}
0x7eea…7ef8 Head {h00=0x000a, h01=0x0050, text=»A1154 «, t00=0x0051, t01=0x006c}
0x7ef8…7f22 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN11 TEXT MISSING «, t00=0x0051, t01=0x007a}
0x7f22…7f30 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0051, t01=0x00a4}
0x7f30…7f42 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x00b2}
0x7f42…7f4e Head {h00=0x0008, h01=0x0050, text=»A116«, t00=0x0051, t01=0x00c4}
0x7f4e…7f6a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'24'«, t00=0x0051, t01=0x00d0}
0x7f6a…7f7a Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0051, t01=0x00ec}
0x7f7a…7f8c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x00fc}
0x7f8c…7f98 Head {h00=0x0008, h01=0x0050, text=»A117«, t00=0x0051, t01=0x010e}
0x7f98…7fb4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'25'«, t00=0x0051, t01=0x011a}
0x7fb4…7fc4 Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0051, t01=0x0136}
0x7fc4…7fd6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x0146}
0x7fd6…7fe2 Head {h00=0x0008, h01=0x0050, text=»A118«, t00=0x0051, t01=0x0158}
0x7fe2…7ffe Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'37'«, t00=0x0051, t01=0x0164}
0x7ffe…800e Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0051, t01=0x0180}
0x800e…8020 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x0190}
0x8020…802c Head {h00=0x0008, h01=0x0050, text=»A119«, t00=0x0052, t01=0x0012}
0x802c…8048 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'38'«, t00=0x0052, t01=0x001e}
0x8048…8058 Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0052, t01=0x003a}
0x8058…806a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x004a}
0x806a…8076 Head {h00=0x0008, h01=0x0050, text=»A120«, t00=0x0052, t01=0x005c}
0x8076…809c Head {h00=0x0022, h01=0x0050, text=»* VALUESET: CURRENT YEAR +/- 1«, t00=0x0052, t01=0x0068}
0x809c…80c2 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD1,CMASKDAT DDMMYY «, t00=0x0052, t01=0x008e}
0x80c2…80e0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD2,CMASKDAT«, t00=0x0052, t01=0x00b4}
0x80e0…8104 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'100' DDMM «, t00=0x0052, t01=0x00d2}
0x8104…8128 Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'100' DDMM00 «, t00=0x0052, t01=0x00f6}
0x8128…814a Head {h00=0x001e, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1 YY «, t00=0x0052, t01=0x011a}
0x814a…8168 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,GSWBCD2 «, t00=0x0052, t01=0x013c}
0x8168…8182 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD1,=D'1'«, t00=0x0052, t01=0x015a}
0x8182…819c Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD2,=D'1'«, t00=0x0052, t01=0x0174}
0x819c…81ba Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0052, t01=0x018e}
0x81ba…81dc Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,GSWBCD1,A120E«, t00=0x0053, t01=0x001c}
0x81dc…81fe Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD3,GSWBCD2,A120E«, t00=0x0053, t01=0x003e}
0x81fe…820c Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0053, t01=0x0060}
0x820c…821a Head {h00=0x000a, h01=0x0050, text=»A120E «, t00=0x0053, t01=0x006e}
0x821a…8236 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0053, t01=0x007c}
0x8236…8244 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0053, t01=0x0098}
0x8244…8256 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x00a6}
0x8256…8274 Head {h00=0x001a, h01=0x0050, text=»APK KEEP INFORMATION«, t00=0x0053, t01=0x00b8}
0x8274…829c Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APK00 FIRST FIELD?«, t00=0x0053, t01=0x00d6}
0x829c…82bc Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW3,CBIN5,APK10«, t00=0x0053, t01=0x00fe}
0x82bc…82e4 Head {h00=0x0024, h01=0x0050, text=» MOVE GTKTTYP,=D'0' NOT KONTONR.«, t00=0x0053, t01=0x011e}
0x82e4…82f2 Head {h00=0x000a, h01=0x0050, text=»APK10 «, t00=0x0053, t01=0x0146}
0x82f2…8318 Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0053, t01=0x0154}
0x8318…832a Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0053, t01=0x017a}
0x832a…8350 Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0053, t01=0x018c}
0x8350…835e Head {h00=0x000a, h01=0x0050, text=»APK00 «, t00=0x0054, t01=0x0022}
0x835e…8398 Head {h00=0x0036, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF FIELD «, t00=0x0054, t01=0x0030}
0x8398…83d0 Head {h00=0x0034, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 STORE FIELDNUMBER «, t00=0x0054, t01=0x006a}
0x83d0…83de Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0054, t01=0x00a2}
0x83de…83f0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0054, t01=0x00b0}
0x83f0…83fc Head {h00=0x0008, h01=0x0050, text=»APF «, t00=0x0054, t01=0x00c2}
0x83fc…8424 Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APF00 FIRST FIELD?«, t00=0x0054, t01=0x00ce}
0x8424…8440 Head {h00=0x0018, h01=0x0050, text=» MOVE GTKTTYP,=D'0' «, t00=0x0054, t01=0x00f6}
0x8440…8466 Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0054, t01=0x0112}
0x8466…8478 Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0054, t01=0x0138}
0x8478…849e Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0054, t01=0x014a}
0x849e…84ac Head {h00=0x000a, h01=0x0050, text=»APF00 «, t00=0x0054, t01=0x0170}
0x84ac…84c6 Head {h00=0x0016, h01=0x0050, text=» TBT SPDUPL,APF10 «, t00=0x0054, t01=0x017e}
0x84c6…84ee Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET VALUE «, t00=0x0055, t01=0x0008}
0x84ee…850a Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD6,GTDBKRS«, t00=0x0055, t01=0x0030}
0x850a…8528 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x0055, t01=0x004c}
0x8528…8536 Head {h00=0x000a, h01=0x0050, text=»APF10 «, t00=0x0055, t01=0x006a}
0x8536…8578 Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF CURRENT FIELD «, t00=0x0055, t01=0x0078}
0x8578…85a6 Head {h00=0x002a, h01=0x0050, text=»* MULTIPLY WITH -1 IF KREDIT «, t00=0x0055, t01=0x00ba}
0x85a6…85e8 Head {h00=0x003e, h01=0x0050, text=»* STORE NEGATIVE FIELD NUMBER (NUMBER WITH SIGN) «, t00=0x0055, t01=0x00e8}
0x85e8…860e Head {h00=0x0022, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 «, t00=0x0055, t01=0x012a}
0x860e…8632 Head {h00=0x0020, h01=0x0050, text=» MUL GTUSED(GSWBIN1),=W'-1' «, t00=0x0055, t01=0x0150}
0x8632…8640 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0055, t01=0x0174}
0x8640…8652 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x0182}
0x8652…865e (86, 0, 400) Head {h00=0x0008, h01=0x0050, text=»ART «, t00=0x0056, t01=0x0004}
0x865e…867a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0056, t01=0x0010}
0x867a…869a Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW4,CBIN3,ARET «, t00=0x0056, t01=0x002c}
0x869a…86b6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x0056, t01=0x004c}
0x86b6…86c2 Head {h00=0x0008, h01=0x0050, text=»ARET«, t00=0x0056, t01=0x0068}
0x86c2…86ce Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0056, t01=0x0074}
0x86ce…86dc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0056, t01=0x0080}
0x86dc…86e4 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x008e}
0x86e4…86ec Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0096}
0x86ec…86f4 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x009e}
0x86f4…86fc Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00a6}
0x86fc…8710 Head {h00=0x0010, h01=0x0050, text=»SPACES PROC «, t00=0x0056, t01=0x00ae}
0x8710…872c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'35'«, t00=0x0056, t01=0x00c2}
0x872c…8750 Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,SPINPUT,GSWBIN1«, t00=0x0056, t01=0x00de}
0x8750…875c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0056, t01=0x0102}
0x875c…876a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0056, t01=0x010e}
0x876a…8778 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x011c}
0x8778…878c Head {h00=0x0010, h01=0x0050, text=»SETKRE PROC «, t00=0x0056, t01=0x012a}
0x878c…87a8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0056, t01=0x013e}
0x87a8…87b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x015a}
0x87b2…87e6 Head {h00=0x0030, h01=0x0050, text=»* SETKRE - SET KREDIT INFORMATION «, t00=0x0056, t01=0x0164}
0x87e6…87f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0008}
0x87f0…880c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0057, t01=0x0012}
0x880c…882a Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' KRE'«, t00=0x0057, t01=0x002e}
0x882a…8846 Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'-1'«, t00=0x0057, t01=0x004c}
0x8846…8862 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'1' «, t00=0x0057, t01=0x0068}
0x8862…887e Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN1 «, t00=0x0057, t01=0x0084}
0x887e…888a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0057, t01=0x00a0}
0x888a…8898 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0057, t01=0x00ac}
0x8898…88a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00ba}
0x88a2…88b6 Head {h00=0x0010, h01=0x0050, text=»SETDEB PROC «, t00=0x0057, t01=0x00c4}
0x88b6…88d2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0057, t01=0x00d8}
0x88d2…88dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00f4}
0x88dc…890e Head {h00=0x002e, h01=0x0050, text=»* SETDEB - SET DEBET INFORMATION «, t00=0x0057, t01=0x00fe}
0x890e…8918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0130}
0x8918…8934 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0057, t01=0x013a}
0x8934…8952 Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' DEB'«, t00=0x0057, t01=0x0156}
0x8952…896e Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'+1'«, t00=0x0057, t01=0x0174}
0x896e…898a Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'2' «, t00=0x0057, t01=0x0190}
0x898a…89a6 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN2 «, t00=0x0058, t01=0x001c}
0x89a6…89b2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0058, t01=0x0038}
0x89b2…89c0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0058, t01=0x0044}
0x89c0…89ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x0052}
0x89ce…89e0 Head {h00=0x000e, h01=0x0050, text=»SELTR PROC«, t00=0x0058, t01=0x0060}
0x89e0…89fc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0058, t01=0x0072}
0x89fc…8a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x008e}
0x8a06…8a48 Head {h00=0x003e, h01=0x0050, text=»* SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN «, t00=0x0058, t01=0x0098}
0x8a48…8a64 Head {h00=0x0018, h01=0x0050, text=»* SELECTED.«, t00=0x0058, t01=0x00da}
0x8a64…8a98 Head {h00=0x0030, h01=0x0050, text=»* SELECTED TRANSTYPE IS IN SPBINW5 «, t00=0x0058, t01=0x00f6}
0x8a98…8aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x012a}
0x8aa2…8abe Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0058, t01=0x0134}
0x8abe…8ae8 Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,CBIN3,SELOK ENTER KEY«, t00=0x0058, t01=0x0150}
0x8ae8…8b14 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,CBIN18,SEL10 KREDIT KEY«, t00=0x0058, t01=0x017a}
0x8b14…8b40 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,CBIN17,SEL20 DEBET KEY «, t00=0x0059, t01=0x0016}
0x8b40…8b68 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN4 INVALID KEY «, t00=0x0059, t01=0x0042}
0x8b68…8b90 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0059, t01=0x006a}
0x8b90…8b9c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0059, t01=0x0092}
0x8b9c…8bb2 Head {h00=0x0012, h01=0x0050, text=»SEL10 KREDIT«, t00=0x0059, t01=0x009e}
0x8bb2…8bc6 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0059, t01=0x00b4}
0x8bc6…8bd6 Head {h00=0x000c, h01=0x0050, text=» B SEL30«, t00=0x0059, t01=0x00c8}
0x8bd6…8bec Head {h00=0x0012, h01=0x0050, text=»SEL20 DEBET «, t00=0x0059, t01=0x00d8}
0x8bec…8c00 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0059, t01=0x00ee}
0x8c00…8c22 Head {h00=0x001e, h01=0x0050, text=»SEL30 TRANSTYPE SELECTED«, t00=0x0059, t01=0x0102}
0x8c22…8c40 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0059, t01=0x0124}
0x8c40…8c58 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0059, t01=0x0142}
0x8c58…8c80 Head {h00=0x0024, h01=0x0050, text=» SEL40,SEL40,SEL90,SEL40,SEL40 «, t00=0x0059, t01=0x015a}
0x8c80…8c90 Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x0059, t01=0x0182}
0x8c90…8c9e (90, 0, 400) Head {h00=0x000a, h01=0x0050, text=»SEL40 «, t00=0x005a, t01=0x0004}
0x8c9e…8cb6 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW5, C «, t00=0x005a, t01=0x0012}
0x8cb6…8cf6 Head {h00=0x003c, h01=0x0050, text=» SEL90,SEL45,SEL90,SEL90,SEL90,SEL90,SEL90,SEL45,SEL90 «, t00=0x005a, t01=0x002a}
0x8cf6…8d04 Head {h00=0x000a, h01=0x0050, text=»SEL45 «, t00=0x005a, t01=0x006a}
0x8d04…8d24 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBIN1,CBIN3,SEL50«, t00=0x005a, t01=0x0078}
0x8d24…8d42 Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x005a, t01=0x0098}
0x8d42…8d52 Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x005a, t01=0x00b6}
0x8d52…8d60 Head {h00=0x000a, h01=0x0050, text=»SEL50 «, t00=0x005a, t01=0x00c6}
0x8d60…8d82 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,CBIN19 ERROR«, t00=0x005a, t01=0x00d4}
0x8d82…8d9a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x005a, t01=0x00f6}
0x8d9a…8da6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005a, t01=0x010e}
0x8da6…8db4 Head {h00=0x000a, h01=0x0050, text=»SEL90 «, t00=0x005a, t01=0x011a}
0x8db4…8dd6 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGNR,SPBINW5 TYPE«, t00=0x005a, t01=0x0128}
0x8dd6…8e0c Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGDEX,SPBINW5 TYPE INDEX. OK FOR <11 «, t00=0x005a, t01=0x014a}
0x8e0c…8e40 Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANS SELECTED«, t00=0x005a, t01=0x0180}
0x8e40…8e54 Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x005b, t01=0x0024}
0x8e54…8e62 Head {h00=0x000a, h01=0x0050, text=»SELOK «, t00=0x005b, t01=0x0038}
0x8e62…8e88 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x005b, t01=0x0046}
0x8e88…8e94 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005b, t01=0x006c}
0x8e94…8ea2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005b, t01=0x0078}
0x8ea2…8eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0086}
0x8eac…8eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0090}
0x8eb6…8ec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x009a}
0x8ec0…8eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00a4}
0x8eca…8ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00ae}
0x8ed4…8ee0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005b, t01=0x00b8}
0x8ee0…8ee4 Head {h00=0x4004, h01=0x0000}
0x8ee4…8ee8 00 5b 00 c4 ┆ [ ┆
0x8ee8…8ef0 (92, 1, 8) 20 04 00 00 00 5c 00 04 ┆ ┆