|
|
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: 33534 (0x82fe)
Notes: pts_type(SC)
Names: »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 CLRSW
ENTRY SELTR
EXT PACKCL
EXT CRKJ
EXT KKCH
EXT KTPLAN
INCLUDE EQUATE
STANDARD CHECKS
*
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,=W'3',CHK1RET FOR LENGTH < 3, NO CHECK
CBL GSWBIN1,=W'7',CHK1ER IF 2<LENGTH<7, ERROR
CBE GSWBIN1,=W'7',CHK10 IF LENGTH = 7, OK (CIRNR)
CBNE GSWBIN1,=W'10',CHK1ER IF LENGTH = 10, OK (CPRNR)
CHK10
MOVE GSWBIN2,=W'13'
MOVE GSWBCD5,=D'0'
MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED
TBT GTADMFLG,CHK11
CBE GSWBCD6,=D'0',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,=W'1' ADJUST WEIGHT INDEX
SUB GSWBIN1,=W'1' ADJUST LENGTH OF ITEM
CBNE GSWBIN1,=W'0',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
CBE GSWBCD4,=D'0',CHK1RET IF REMAINDER 0, THEN RETURN
*
CHK1ER
MOVE SPBINW4,=W'6'
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,=W'10' 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,=W'2' 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,=W'7' 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,=W'7' SET ERRORCODE
CH3RET
RET
PEND
EJECT
SPCHK4 PROC
********************
*
* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY
*
********************
MOVE SPBINW3,CBIN1
CBNE SPBINW2,=W'18',CH4RET
MOVE GSWBCD7,SPINPUT IF KREDIT KEY
MUL GSWBCD7,=D'-1'
MOVE SPINPUT,GSWBCD7
MOVE SPBINW2,=W'3' 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
CBG GSWBIN1,CMAXLIN,CH5ERR
CBL GSWBIN1,CMINLIN,CH5ERR
RET
CH5ERR
MOVE SPBINW3,CBIN3
MOVE SPBINW4,=W'8'
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
CBE GSWBCD3,=D'0',CH6RET NO CHECK IF ZERO
CBE GSWBCD3,TTKTCHK,CH6RET OK
MOVE SPBINW3,CBIN3 ERROR
MOVE SPBINW4,=W'13'
CH6RET
RET
PEND
EJECT
SPCHK7 PROC
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,=W'16' ADJUST INDEX
IB SPBINW3, C
TCHK17,TCHK18,TCHK19,TCHK20
SUB SPBINW3,=W'61' +16-77
IB SPBINW3,TCHK78,TCHK79
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
*
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
AA70 - KONTONR WITHOUT CHECK
AA71 - 'ANTAL' IN TRANSTYPE
---- - 51, 53
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
*
CBG SPBINW3,=W'89',AAA SLUT FIELD OR DIV. CHECKS
*
*
AA01
TBF GTADUPFL,AA02 AUTODUP TEST (VERIF)
CLEAR GTADUPFL IF FIELD IS TO BE AUTODUPPED
MOVE GSWBIN1,CFLTDEX(SPBINW3) GET DUP FIELD
MOVE SPINPUT,GTDUPF(GSWBIN1) AND CONTINUE
B AAA
*
AA02
TBF GTAUTODP,AA03 AUTO DUP KEY
CLEAR GTAUTODP IF GTAUTODP KEY,
MOVE GSWBIN1,CFLTDEX(SPBINW3) GET FIELD INDEX
MOVE GSSWITCH(GSWBIN1),CBIN1 AND SET GTAUTODPSWITCH FOR
RELEVANT FIELD TO BE USED
IN FORMATS
*
AA03
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,APF,APF,APF,APF,APF, FIELDS 50-59 C
APF,APF,APF,APK,A64,A65,APK,ART,ART,ART, FIELDS 60-69 C
A70,A71,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,APK,APK,APK,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 FIELDS 110,114
**********
A05 CHECK REGISTRERINGSKONTONUMMER
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065
CMP GSWBIN1,=W'10' 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, C
A0520,A0520,A0525,A0525
A0520
B APK
A0525
MOVE SPBINW4,=W'20' ERROR
B ART
A053 CPR NECESSARY
IB GTREGDEX, C
A054,A055,A054,A054,A055,A054,A055,A055
A054
B APK
A055
CBL GSWBIN1,CBIN3,A056 ERROR
SET SPWARNFL WARNING
B A054
A056
MOVE SPBINW4,=W'19'
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,=W'22'
B ART
*
A058
MOVE SPBINW4,=W'3' SET ERRORCODE
B ART
**********
A06 CHECK CPR/CIR NUMBER
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065
SET BCPR SET CPR-SWITCH (CPR-NO)
MOVE GSWBCD1,SPINPUT
CMP GSWBCD1,=D'10000000'
BL A061
SET BLEV LEVERAND.
CMP GSWBCD1,=D'3200000000'
BG APK
CLEAR BLEV CPR.
B APK
A061
CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO)
B APK
**********
A54 FIELD 54 HAS BEEN ENTERED
MOVE GSSWITCH(CBIN2),CBIN1 AND SHOULD BE AUTODUPPED
B APK
******
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
A0655
*
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,GTCLASS),A068 SEARCH REGNR
ADD GSWBIN1,CBIN1 ADD 1 TO INDEX
CBNE CREGTAB(GSWBIN1,GTCLASS),=D'-1',A067 END OF TABLE?
*
A0675
MOVE SPBINW4,=W'9' INVALID TRANSTYPE
B ART
A068
TAKE CARE OF NEW TRANSTYPE
CBE SPBINW2,=W'18',A06KRE HANDLING OF KREDIT KEY
CBE SPBINW2,=W'17',A06DEB SLUT/DEB KEY
CBE SPBINW2,=W'3',A06DEB HANDLING OF DEBIT KEY
MOVE SPBINW4,=W'4' HANDLING OF WRONG KEY
B ART
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
PERF CLRSW
*
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,=W'3',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,=W'2',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,=W'2'
COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1
* SEE IF ALLOWED
CBNE GTREGDEX,=W'3',A077 ONLY CHECK IF TRANSTYPE 3
ADD GSWBIN1,=W'5'
MOVE GSWSTR2,CBLANKS
COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE
MOVE GSWBCD3,GSWSTR2
CBE GSWBCD3,=D'0',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,=W'11'
B ART
A077
B APK
**********
A11 CHECK VAL DATE NOT GREATER
THAN POST DATE
CBE GTREGDEX,=W'3',A0110 TRANS 3
CBE GTREGDEX,=W'4',A0110 TRANS 4
B APK
A0110
* GET AND CHANGE VALOERDATE
MOVE GSWBCD6,SPINPUT
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,CBIN12
COPY GSWBCD6,CBIN12,CBIN2,GSWBCD6,CBIN8
COPY GSWBCD6,CBIN8,CBIN2,GSWBCD3,CBIN4
* GET AND CHANGE POSTDATE
MOVE GSWBCD1,GTDATO
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12
COPY GSWBCD1,CBIN12,CBIN2,GSWBCD1,CBIN8
COPY GSWBCD1,CBIN8,CBIN2,GSWBCD3,CBIN4
* COMPARE
CMP GSWBCD6,GSWBCD1
BNG APK
MOVE SPBINW4,=W'7'
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,=W'11' 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,=W'10'
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,=W'11'
B ART
**********
A70 KONTONR WITHOUT CHECK
MOVE SPBINW3,=W'5'
CMP SPBINW1,=W'3'
BL A065 IF LENGTH < 3
B APK NEW TRANSTYPE
**********
A71
MOVE GSSWITCH(CBIN1),CBIN1 SET AUTODUP
MOVE GTSUM,SPINPUT
SUB GTSUM,=D'1' SUB 1 FROM ANTAL
MOVE SPINPUT,GTSUM
CBL GTSUM,=D'0',A715
CMP GTSUM,=D'12' IF > 12
BL ART
A715
MOVE SPINPUT,=C'51' SIMULATE NEW
MOVE SPBINW2,=W'3' TRANSTYPE
MOVE GSSWITCH(CBIN1),CBIN0 DELETE AUTODUP
B A065
**********
A76 COUNTER NO, TRANS 12
CMP SPBINW1,=W'3'
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)
CBE CTR12NR(GSWBIN1),=D'0',A76NOK
MUST BE > 0
B ART TO WRITE ON SCREEN
A76NOK
MOVE SPBINW4,=W'18'
B ART
**********
A77 INSERT 51,52 IN TR 4
MOVE SPBINW3,=W'7' FIELD 7
MOVE SPBINW1,=W'2' 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,=W'5' SIMULATE FIELD 5
B APK
********
A79 AUTODUP ACCOUNT NO
MOVE SPBINW3,=W'5' IN FIELD 5
MOVE GSWBIN1,TTCNTNR GET COUNTER NO
SUB GSWBIN1,=W'100'
ADD GSWBIN1,CTR12(TTASKNR,CBIN1)
MOVE SPINPUT,CTR12NR(GSWBIN1)
MOVE SPBINW1,=W'10' LENGTH
B APK
**********
A80 CHECK HOVEDBOG, KONTONR
MOVE SPBINW3,=W'5' FIELD 5
MOVE SPBINW5,=W'2' MIGHT BE TRANSTYPE 2
CBL SPBINW1,=W'3',A805 CHECK LENGTH
CBE SPBINW1,=W'10',A801 MUST BE 10
MOVE SPBINW4,=W'3' 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,=W'4' INVALID KEY
B ART
**********
A81 CHECK HOVEDBOG, CPR/CIR/NR
MOVE SPBINW3,=W'6' FIELD 6
MOVE SPBINW5,=W'1' MIGHT BE TRANS TYPE 1
CBG SPBINW1,=W'2',A811 CHECK LENGTH
MOVE SPBINW4,=W'3' 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,=W'21' FIELD 21
MOVE SPBINW5,=W'6' MIGHT BE TRANSTYPE 6
A821
CBNE SPBINW2,=W'3',A822 IF ENTER KEY,
MOVE SPBINW2,=W'17' SIMULATE DEBET KEY
A822
PERF SELTR TRANS SELECTED
BNOK ART INVALID KEY
B APK OK
**********
A83 CHECK DEBITOR, DEBITOR NR
MOVE SPBINW3,=W'6' FIELD 6
CBL SPBINW1,=W'3',A805 FUNCTION?
CBL SPBINW1,=W'7',A833
MOVE SPBINW5,=W'4' 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,=W'3'
B APK
A833
MOVE SPBINW4,=W'3' ERROR LENGTH
B ART
**********
A84 CHECK DEBITOR, BKO
MOVE SPBINW3,=W'7' FIELD 7
MOVE SPBINW5,=W'3' MIGHT BE TRANSTYPE 3
CBNE SPBINW2,=W'3',A842
MOVE SPBINW2,=W'17'
A842
MOVE GSWBCD1,SPINPUT
CBE GSWBCD1,=D'+51',A845
CBE GSWBCD1,=D'+52',A845
A843
PERF SELTR
BNOK ART
B A07
A845
MOVE SPBINW5,=W'4'
B A843
**********
A85 CHECK REMITTERING, KONTONR
MOVE SPBINW3,=W'5' FIELD 5
CBL SPBINW1,=W'3',A805 CHECK LENGTH
CBE SPBINW1,=W'10',A850 MUST BE 10
MOVE SPBINW4,=W'3' ERROR LENGTH
B ART
A850
CMP SPBINW2,=W'3' 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,=W'20' REMIT NOT ALLOWED
B ART
A854
B APK
A855
MOVE SPBINW4,=W'4' INVALID KEY
B ART
**********
A86 CHECK REMITTERING, LEV.NR.
MOVE SPBINW3,=W'6' FIELD 6
MOVE SPBINW5,=W'8' MIGHT BE TRANSTYPE 8
CMP SPBINW1,=W'2' CHECK LENGTH + CPR/CIR
BG A811
MOVE SPBINW4,=W'3' ERROR LENGTH
B ART
**********
A87 CHECK REMITTERING, YD.MODT.
MOVE SPBINW3,=W'21' FIELD 21
MOVE SPBINW5,=W'9' MIGHT BE TRANSTYPE 9
B A821 CHECK FOR INVALID KEY
**********
A88
MOVE SPBINW3,=W'7' FIELD 7
MOVE SPBINW2,=W'36'
MOVE SPBINW1,='2'
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,=W'6' STORE IN FIELD 6
B APK
**********
A90 SIMULATE SLUT KEY
CLEAR GTSLUTFL
CLEAR GTADUPFL
MOVE SPBINW2,=W'17' SLUT KEY
MOVE SPBINW1,=W'0' LENGTH ZERO
B ART
**********
A91 ENTER TO SLUT KEY
CMP SPBINW2,=W'3'
BNE ART
MOVE SPBINW2,=W'17'
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,=W'11'
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,=W'11'
B ART
**********
A102 CHECK RELATIVE DAY
MOVE GSWBCD7,CMASKDAT
A102A
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,=W'11' 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,=W'11'
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,=W'11'
B ART
**********
A105 CONRTL.DIGITCALC.
MOVE GSWBCD6,SPINPUT
CBE SPBINW2,=W'3',CALCD01
CMP SPBINW2,=W'17'
BNE ART
CALCD01
MOVE GSWBIN1,SPBINW1 GET LENGTH
MOVE GSWBIN2,=W'13'
MOVE GSWBCD5,=D'0'
CALCD02
MOVE GSWBCD3,=D'0'
COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT
MUL GSWBCD3,WEIGTH(GSWBIN2) MULTIPLY BY WEIGHT
ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM
SUB GSWBIN1,=W'1' ADJUST LENGTH
SUB GSWBIN2,=W'1' ADJUST WEIGHT-INDEX
CBG GSWBIN1,=W'0',CALCD02
MOVE GSWBCD4,GSWBCD5
DIV GSWBCD5,=D'11'
MUL GSWBCD5,=D'11'
SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11
CBNE GSWBCD4,=D'0',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,=W'11'
B ART
**********
APK KEEP INFORMATION
TBF TTEORFLG,APK00 FIRST FIELD?
CBE SPBINW3,=W'5',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
********************
EJECT
SETKRE PROC
********************
*
* SETKRE - SET KREDIT INFORMATION
*
********************
MOVE GTDBKRC,=C' KRE'
MOVE GTDBKRS,=D'-1'
MOVE TTDKBCD,=D'1'
MOVE TTDKDEX,=W'1'
RET
PEND
*
*
*
*
*
SETDEB PROC
********************
*
* SETDEB - SET DEBET INFORMATION
*
********************
MOVE GTDBKRC,=C' DEB'
MOVE GTDBKRS,=D'+1'
MOVE TTDKBCD,=D'2'
MOVE TTDKDEX,=W'2'
RET
PEND
EJECT
CLRSW PROC
********************
*
* CLRSW - CLEAR ALL AUTODUP FLAGS
*
********************
MOVE GSWBIN1,CBIN1
CLRSW1
MOVE GSSWITCH(GSWBIN1),CBIN0
ADD GSWBIN1,CBIN1
CBL GSWBIN1,CBINMAX,CLRSW1
RET
PEND
EJECT
SELTR PROC
********************
*
* SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN
* SELECTED.
* SELECTED TRANSTYPE IS IN SPBINW5
*
********************
CBE SPBINW2,=W'3',SELOK ENTER KEY
CBE SPBINW2,=W'18',SEL10 KREDIT KEY
CBE SPBINW2,=W'17',SEL20 DEBET KEY
MOVE SPBINW4,=W'4' 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,=W'19' 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 CLRSW«, t00=0x0000, t01=0x013a}
0x014a…015e Head {h00=0x0010, h01=0x0050, text=» ENTRY SELTR«, 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…01c2 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x001e}
0x01c2…01dc Head {h00=0x0016, h01=0x0050, text=» STANDARD CHECKS«, t00=0x0001, t01=0x0036}
0x01dc…01e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0050}
0x01e6…01fa Head {h00=0x0010, h01=0x0050, text=»SPCHK1 PROC «, t00=0x0001, t01=0x005a}
0x01fa…0216 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x006e}
0x0216…0220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008a}
0x0220…0244 Head {h00=0x0020, h01=0x0050, text=»* SPCHK1 - CDVCHECK«, t00=0x0001, t01=0x0094}
0x0244…024e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b8}
0x024e…028e Head {h00=0x003c, h01=0x0050, text=»* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT«, t00=0x0001, t01=0x00c2}
0x028e…02ca Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4«, t00=0x0001, t01=0x0102}
0x02ca…02d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…02f0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x0148}
0x02f0…031e Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0001, t01=0x0164}
0x031e…0346 (2, 0, 400) Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0002, t01=0x0004}
0x0346…0382 Head {h00=0x0038, h01=0x0050, text=» CBL GSWBIN1,=W'3',CHK1RET FOR LENGTH < 3, NO CHECK «, t00=0x0002, t01=0x002c}
0x0382…03b8 Head {h00=0x0032, h01=0x0050, text=» CBL GSWBIN1,=W'7',CHK1ER IF 2<LENGTH<7, ERROR«, t00=0x0002, t01=0x0068}
0x03b8…03f4 Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN1,=W'7',CHK10 IF LENGTH = 7, OK (CIRNR) «, t00=0x0002, t01=0x009e}
0x03f4…0434 Head {h00=0x003c, h01=0x0050, text=» CBNE GSWBIN1,=W'10',CHK1ER IF LENGTH = 10, OK (CPRNR)«, t00=0x0002, t01=0x00da}
0x0434…0442 Head {h00=0x000a, h01=0x0050, text=»CHK10 «, t00=0x0002, t01=0x011a}
0x0442…045e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'13'«, t00=0x0002, t01=0x0128}
0x045e…047a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0002, t01=0x0144}
0x047a…04ae Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED«, t00=0x0002, t01=0x0160}
0x04ae…04ca (3, 0, 400) Head {h00=0x0018, h01=0x0050, text=» TBT GTADMFLG,CHK11 «, t00=0x0003, t01=0x0004}
0x04ca…04ec Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD6,=D'0',CHK1ER «, t00=0x0003, t01=0x0020}
0x04ec…04f4 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0042}
0x04f4…0522 Head {h00=0x002a, h01=0x0050, text=»CHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3«, t00=0x0003, t01=0x004a}
0x0522…0562 Head {h00=0x003c, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT«, t00=0x0003, t01=0x0078}
0x0562…059c Head {h00=0x0036, h01=0x0050, text=» MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH«, t00=0x0003, t01=0x00b8}
0x059c…05c8 Head {h00=0x0028, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x0003, t01=0x00f2}
0x05c8…05f6 Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN2,=W'1' ADJUST WEIGHT INDEX«, t00=0x0003, t01=0x011e}
0x05f6…0626 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN1,=W'1' ADJUST LENGTH OF ITEM«, t00=0x0003, t01=0x014c}
0x0626…065a Head {h00=0x0030, h01=0x0050, text=» CBNE GSWBIN1,=W'0',CHK11 BACK TO NEXT DIGIT«, t00=0x0003, t01=0x017c}
0x065a…0678 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x0004, t01=0x0020}
0x0678…06a0 Head {h00=0x0024, h01=0x0050, text=» DIV GSWBCD5,=D'11' DIVIDE BY 11«, t00=0x0004, t01=0x003e}
0x06a0…06cc Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD5,=D'11' MULTIPLY WITH 11«, t00=0x0004, t01=0x0066}
0x06cc…06fe Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x0004, t01=0x0092}
0x06fe…073c Head {h00=0x003a, h01=0x0050, text=» CBE GSWBCD4,=D'0',CHK1RET IF REMAINDER 0, THEN RETURN«, t00=0x0004, t01=0x00c4}
0x073c…0746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0102}
0x0746…0754 Head {h00=0x000a, h01=0x0050, text=»CHK1ER«, t00=0x0004, t01=0x010c}
0x0754…0770 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'6' «, t00=0x0004, t01=0x011a}
0x0770…079c Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN3 SET ERROR VALUE «, t00=0x0004, t01=0x0136}
0x079c…07a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0162}
0x07a6…07b6 Head {h00=0x000c, h01=0x0050, text=»CHK1RET «, t00=0x0004, t01=0x016c}
0x07b6…07c2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x017c}
0x07c2…07d0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0188}
0x07d0…07de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0008}
0x07de…07f2 Head {h00=0x0010, h01=0x0050, text=»SPCHK2 PROC «, t00=0x0005, t01=0x0016}
0x07f2…080e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x002a}
0x080e…0818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0046}
0x0818…083e Head {h00=0x0022, h01=0x0050, text=»* SPCHK2 - CHECK DATE«, t00=0x0005, t01=0x0050}
0x083e…0848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0076}
0x0848…087c Head {h00=0x0030, h01=0x0050, text=»* CHECKS 0<DAY<32 AND 0<MONTH<13«, t00=0x0005, t01=0x0080}
0x087c…08aa Head {h00=0x002a, h01=0x0050, text=»* DATE IS IN THE FORM DDMMYY«, t00=0x0005, t01=0x00b4}
0x08aa…08d2 Head {h00=0x0024, h01=0x0050, text=»* INPUT FIELD: SPINPUT «, t00=0x0005, t01=0x00e2}
0x08d2…08dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010a}
0x08dc…0918 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0005, t01=0x0114}
0x0918…0922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0150}
0x0922…093e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x015a}
0x093e…0946 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0176}
0x0946…0974 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0005, t01=0x017e}
0x0974…099e Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0006, t01=0x001c}
0x099e…09c4 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET DATE«, t00=0x0006, t01=0x0046}
0x09c4…09f6 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=W'10' SET POINTER TO MONTH «, t00=0x0006, t01=0x006c}
0x09f6…0a32 Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH «, t00=0x0006, t01=0x009e}
0x0a32…0a5e Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH29 CHECK MONTH«, t00=0x0006, t01=0x00da}
0x0a5e…0a7e Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0006, t01=0x0106}
0x0a7e…0aae Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,=W'2' ADJUST POINTER TO DAY«, t00=0x0006, t01=0x0126}
0x0aae…0ae8 Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY «, t00=0x0006, t01=0x0156}
0x0ae8…0b08 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'31',CH29«, t00=0x0006, t01=0x0190}
0x0b08…0b28 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0007, t01=0x0020}
0x0b28…0b3a Head {h00=0x000e, h01=0x0050, text=» B CH2RET «, t00=0x0007, t01=0x0040}
0x0b3a…0b46 Head {h00=0x0008, h01=0x0050, text=»CH29«, t00=0x0007, t01=0x0052}
0x0b46…0b70 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0007, t01=0x005e}
0x0b70…0b9a Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'7' SET ERRORCODE «, t00=0x0007, t01=0x0088}
0x0b9a…0ba8 Head {h00=0x000a, h01=0x0050, text=»CH2RET«, t00=0x0007, t01=0x00b2}
0x0ba8…0bc4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0007, t01=0x00c0}
0x0bc4…0bd0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00dc}
0x0bd0…0bde Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00e8}
0x0bde…0bec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00f6}
0x0bec…0c00 Head {h00=0x0010, h01=0x0050, text=»SPCHK3 PROC «, t00=0x0007, t01=0x0104}
0x0c00…0c18 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x0118}
0x0c18…0c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0130}
0x0c22…0c48 Head {h00=0x0022, h01=0x0050, text=»* SPCHK3 - CHECK MONTH«, t00=0x0007, t01=0x013a}
0x0c48…0c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0160}
0x0c52…0c78 Head {h00=0x0022, h01=0x0050, text=»* CHECKS 0<MONTH<13 «, t00=0x0007, t01=0x016a}
0x0c78…0ca4 Head {h00=0x0028, h01=0x0050, text=»* MONTH IS IN THE FORM MM «, t00=0x0007, t01=0x0190}
0x0ca4…0cca Head {h00=0x0022, h01=0x0050, text=»* INPUT FIELD: SPINPUT«, t00=0x0008, t01=0x002c}
0x0cca…0cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0052}
0x0cd4…0d10 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0008, t01=0x005c}
0x0d10…0d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0098}
0x0d1a…0d34 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0008, t01=0x00a2}
0x0d34…0d5c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET MONTH «, t00=0x0008, t01=0x00bc}
0x0d5c…0d88 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH39 CHECK MONTH«, t00=0x0008, t01=0x00e4}
0x0d88…0da8 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH39 «, t00=0x0008, t01=0x0110}
0x0da8…0dd4 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN1 SET ERRORCODE OK«, t00=0x0008, t01=0x0130}
0x0dd4…0de6 Head {h00=0x000e, h01=0x0050, text=» B CH3RET «, t00=0x0008, t01=0x015c}
0x0de6…0df2 Head {h00=0x0008, h01=0x0050, text=»CH39«, t00=0x0008, t01=0x016e}
0x0df2…0e1c Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0008, t01=0x017a}
0x0e1c…0e46 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'7' SET ERRORCODE «, t00=0x0009, t01=0x0014}
0x0e46…0e54 Head {h00=0x000a, h01=0x0050, text=»CH3RET«, t00=0x0009, t01=0x003e}
0x0e54…0e60 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x004c}
0x0e60…0e6e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0058}
0x0e6e…0e7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0066}
0x0e7c…0e90 Head {h00=0x0010, h01=0x0050, text=»SPCHK4 PROC «, t00=0x0009, t01=0x0074}
0x0e90…0eac Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0088}
0x0eac…0eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a4}
0x0eb6…0ef6 Head {h00=0x003c, h01=0x0050, text=»* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY «, t00=0x0009, t01=0x00ae}
0x0ef6…0f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ee}
0x0f00…0f1c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x00f8}
0x0f1c…0f38 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0009, t01=0x0114}
0x0f38…0f5c Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,=W'18',CH4RET «, t00=0x0009, t01=0x0130}
0x0f5c…0f88 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT IF KREDIT KEY «, t00=0x0009, t01=0x0154}
0x0f88…0fa4 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD7,=D'-1' «, t00=0x0009, t01=0x0180}
0x0fa4…0fc2 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD7 «, t00=0x000a, t01=0x000c}
0x0fc2…0fee Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,=W'3' SIMULATE EOI-KEY«, t00=0x000a, t01=0x002a}
0x0fee…0ffc Head {h00=0x000a, h01=0x0050, text=»CH4RET«, t00=0x000a, t01=0x0056}
0x0ffc…1008 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0064}
0x1008…1016 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0070}
0x1016…1024 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x007e}
0x1024…1038 Head {h00=0x0010, h01=0x0050, text=»SPCHK5 PROC «, t00=0x000a, t01=0x008c}
0x1038…1054 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x00a0}
0x1054…105e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00bc}
0x105e…108c Head {h00=0x002a, h01=0x0050, text=»* SPCHK5 - CHECK LINE NUMBER «, t00=0x000a, t01=0x00c6}
0x108c…1096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f4}
0x1096…10b2 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000a, t01=0x00fe}
0x10b2…10ce Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000a, t01=0x011a}
0x10ce…10fc Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NUMBER «, t00=0x000a, t01=0x0136}
0x10fc…1132 Head {h00=0x0032, h01=0x0050, text=» CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ? «, t00=0x000a, t01=0x0164}
0x1132…1154 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'91',CH510 «, t00=0x000b, t01=0x000a}
0x1154…116e Head {h00=0x0016, h01=0x0050, text=» MUL GSWBCD3,=D'2'«, t00=0x000b, t01=0x002c}
0x116e…11a0 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE«, t00=0x000b, t01=0x0046}
0x11a0…11bc Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD4,GSWBCD3«, t00=0x000b, t01=0x0078}
0x11bc…11ec Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE?«, t00=0x000b, t01=0x0094}
0x11ec…120a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD4 «, t00=0x000b, t01=0x00c4}
0x120a…122e Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN1,CMAXLIN,CH5ERR «, t00=0x000b, t01=0x00e2}
0x122e…1252 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CMINLIN,CH5ERR «, t00=0x000b, t01=0x0106}
0x1252…125e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x012a}
0x125e…126c Head {h00=0x000a, h01=0x0050, text=»CH5ERR«, t00=0x000b, t01=0x0136}
0x126c…1288 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x000b, t01=0x0144}
0x1288…12a4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'8' «, t00=0x000b, t01=0x0160}
0x12a4…12b0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x017c}
0x12b0…12be Head {h00=0x000a, h01=0x0050, text=»CH510 «, t00=0x000b, t01=0x0188}
0x12be…12dc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x000c, t01=0x0008}
0x12dc…12e8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0026}
0x12e8…12f6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0032}
0x12f6…1304 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0040}
0x1304…1318 Head {h00=0x0010, h01=0x0050, text=»SPCHK6 PROC «, t00=0x000c, t01=0x004e}
0x1318…1334 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0062}
0x1334…133e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007e}
0x133e…1384 Head {h00=0x0042, h01=0x0050, text=»* SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, «, t00=0x000c, t01=0x0088}
0x1384…13a0 Head {h00=0x0018, h01=0x0050, text=»* KONTOKORT«, t00=0x000c, t01=0x00ce}
0x13a0…13aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ea}
0x13aa…13c6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x00f4}
0x13c6…13d8 Head {h00=0x000e, h01=0x0050, text=» PERF KKCH«, t00=0x000c, t01=0x0110}
0x13d8…1400 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET DIGIT «, t00=0x000c, t01=0x0122}
0x1400…141c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000c, t01=0x014a}
0x141c…144e Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'0',CH6RET NO CHECK IF ZERO«, t00=0x000c, t01=0x0166}
0x144e…1474 Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD3,TTKTCHK,CH6RET OK«, t00=0x000d, t01=0x0008}
0x1474…1496 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW3,CBIN3 ERROR «, t00=0x000d, t01=0x002e}
0x1496…14b2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'13'«, t00=0x000d, t01=0x0050}
0x14b2…14c0 Head {h00=0x000a, h01=0x0050, text=»CH6RET«, t00=0x000d, t01=0x006c}
0x14c0…14cc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x007a}
0x14cc…14da Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0086}
0x14da…14e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0094}
0x14e8…14fc Head {h00=0x0010, h01=0x0050, text=»SPCHK7 PROC «, t00=0x000d, t01=0x00a2}
0x14fc…1508 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00b6}
0x1508…1516 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00c2}
0x1516…1524 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00d0}
0x1524…1538 Head {h00=0x0010, h01=0x0050, text=»SPTCHK PROC «, t00=0x000d, t01=0x00de}
0x1538…1554 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x00f2}
0x1554…155e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x155e…1590 Head {h00=0x002e, h01=0x0050, text=»* SPTCHK - CONDITIONAL TABULATION«, t00=0x000d, t01=0x0118}
0x1590…15c2 Head {h00=0x002e, h01=0x0050, text=»* CONTROLLED BY 'CTAB' IN FORMATS«, t00=0x000d, t01=0x014a}
0x15c2…15cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017c}
0x15cc…15e8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0186}
0x15e8…1610 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x000e, t01=0x0012}
0x1610…1632 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,=W'84',TCHK84«, t00=0x000e, t01=0x003a}
0x1632…165a Head {h00=0x0024, h01=0x0050, text=» SUB SPBINW3,=W'16' ADJUST INDEX«, t00=0x000e, t01=0x005c}
0x165a…1672 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW3, C «, t00=0x000e, t01=0x0084}
0x1672…1698 Head {h00=0x0022, h01=0x0050, text=» TCHK17,TCHK18,TCHK19,TCHK20 «, t00=0x000e, t01=0x009c}
0x1698…16ba Head {h00=0x001e, h01=0x0050, text=» SUB SPBINW3,=W'61' +16-77«, t00=0x000e, t01=0x00c2}
0x16ba…16dc Head {h00=0x001e, h01=0x0050, text=» IB SPBINW3,TCHK78,TCHK79 «, t00=0x000e, t01=0x00e4}
0x16dc…16fa Head {h00=0x001a, h01=0x0050, text=»TCHK00 CORRECT FIELD«, t00=0x000e, t01=0x0106}
0x16fa…1716 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN0 «, t00=0x000e, t01=0x0124}
0x1716…1722 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x0140}
0x1722…172c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014c}
0x172c…173a Head {h00=0x000a, h01=0x0050, text=»TCHK17«, t00=0x000e, t01=0x0156}
0x173a…1752 Head {h00=0x0014, h01=0x0050, text=» TBT BCPR,TCHK00«, t00=0x000e, t01=0x0164}
0x1752…1764 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x000e, t01=0x017c}
0x1764…176e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018e}
0x176e…177c Head {h00=0x000a, h01=0x0050, text=»TCHK18«, t00=0x000f, t01=0x0008}
0x177c…178a Head {h00=0x000a, h01=0x0050, text=»TCHK19«, t00=0x000f, t01=0x0016}
0x178a…1798 Head {h00=0x000a, h01=0x0050, text=»TCHK20«, t00=0x000f, t01=0x0024}
0x1798…17b0 Head {h00=0x0014, h01=0x0050, text=» TBF BCPR,TCHK00«, t00=0x000f, t01=0x0032}
0x17b0…17c2 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x000f, t01=0x004a}
0x17c2…17cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005c}
0x17cc…17da Head {h00=0x000a, h01=0x0050, text=»TCHK78«, t00=0x000f, t01=0x0066}
0x17da…17f8 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x000f, t01=0x0074}
0x17f8…1814 Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x000f, t01=0x0092}
0x1814…1852 Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK00 CONTINUE TAB «, t00=0x000f, t01=0x00ae}
0x1852…1872 Head {h00=0x001c, h01=0x0050, text=» B TCHK99 CORRECT FIELD «, t00=0x000f, t01=0x00ec}
0x1872…187c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010c}
0x187c…188a Head {h00=0x000a, h01=0x0050, text=»TCHK79«, t00=0x000f, t01=0x0116}
0x188a…18a8 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x000f, t01=0x0124}
0x18a8…18c4 Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x000f, t01=0x0142}
0x18c4…1902 Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK99 CORRECT FIELD«, t00=0x000f, t01=0x015e}
0x1902…1920 Head {h00=0x001a, h01=0x0050, text=» B TCHK00 CONTINUE TAB«, t00=0x0010, t01=0x000c}
0x1920…192a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002a}
0x192a…1938 Head {h00=0x000a, h01=0x0050, text=»TCHK84«, t00=0x0010, t01=0x0034}
0x1938…1954 Head {h00=0x0018, h01=0x0050, text=» TBF GTTRSEL,TCHK00 «, t00=0x0010, t01=0x0042}
0x1954…1966 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0010, t01=0x005e}
0x1966…1970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0070}
0x1970…198e Head {h00=0x001a, h01=0x0050, text=»TCHK99 CONTINUE TAB «, t00=0x0010, t01=0x007a}
0x198e…19aa Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN2 «, t00=0x0010, t01=0x0098}
0x19aa…19b6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00b4}
0x19b6…19c4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x00c0}
0x19c4…19d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00ce}
0x19d2…19e6 Head {h00=0x0010, h01=0x0050, text=»SPAPPL PROC «, t00=0x0010, t01=0x00dc}
0x19e6…1a02 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x00f0}
0x1a02…1a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010c}
0x1a0c…1a5c Head {h00=0x004c, h01=0x0050, text=»* SPAPPL - PROCEDURE ACTIVATED BY SCREEN PACKAGE IF APPL-VALUE «, t00=0x0010, t01=0x0116}
0x1a5c…1a9e Head {h00=0x003e, h01=0x0050, text=»* IS NOT ZERO, WHICH IS THE CASE FOR ALL FIELDS. «, t00=0x0010, t01=0x0166}
0x1a9e…1aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0018}
0x1aa8…1aec Head {h00=0x0040, h01=0x0050, text=»* APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE)«, t00=0x0011, t01=0x0022}
0x1aec…1b30 Head {h00=0x0040, h01=0x0050, text=»* A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT «, t00=0x0011, t01=0x0066}
0x1b30…1b68 Head {h00=0x0034, h01=0x0050, text=»* TESTING AND BRANCH TO PACKING ROUTINE«, t00=0x0011, t01=0x00aa}
0x1b68…1b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e2}
0x1b72…1b8e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00ec}
0x1b8e…1b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0108}
0x1b98…1bca Head {h00=0x002e, h01=0x0050, text=»* SPBINW3 IS CURRENT APPL NUMBER «, t00=0x0011, t01=0x0112}
0x1bca…1be2 Head {h00=0x0014, h01=0x0050, text=» ART - RETURN «, t00=0x0011, t01=0x0144}
0x1be2…1bfe Head {h00=0x0018, h01=0x0050, text=» APK - PACK FIELD «, t00=0x0011, t01=0x015c}
0x1bfe…1c24 Head {h00=0x0022, h01=0x0050, text=» APF - PACK FIELD WITH SIGN «, t00=0x0011, t01=0x0178}
0x1c24…1c4a Head {h00=0x0022, h01=0x0050, text=» AA01 - TEST FOR FIELD TO BE«, t00=0x0012, t01=0x000e}
0x1c4a…1c66 Head {h00=0x0018, h01=0x0050, text=» ---- - AUTODUPPED«, t00=0x0012, t01=0x0034}
0x1c66…1c8c Head {h00=0x0022, h01=0x0050, text=» AA02 - TEST FOR AUTODUP KEY«, t00=0x0012, t01=0x0050}
0x1c8c…1cae Head {h00=0x001e, h01=0x0050, text=» AA03 - IF LENGTH ZERO, «, t00=0x0012, t01=0x0076}
0x1cae…1ccc Head {h00=0x001a, h01=0x0050, text=» ---- - DELETE FIELS«, t00=0x0012, t01=0x0098}
0x1ccc…1cea Head {h00=0x001a, h01=0x0050, text=» AA05 - TEST FIELD 5«, t00=0x0012, t01=0x00b6}
0x1cea…1d08 Head {h00=0x001a, h01=0x0050, text=» AA06 - TEST FIELD 6«, t00=0x0012, t01=0x00d4}
0x1d08…1d2a Head {h00=0x001e, h01=0x0050, text=» AA11 - TEST VALOERDATE «, t00=0x0012, t01=0x00f2}
0x1d2a…1d4c Head {h00=0x001e, h01=0x0050, text=» AA17 - TEST FORFALDSAAR«, t00=0x0012, t01=0x0114}
0x1d4c…1d72 Head {h00=0x0022, h01=0x0050, text=» AA65 - IF AA05, AA06 THERE «, t00=0x0012, t01=0x0136}
0x1d72…1d96 Head {h00=0x0020, h01=0x0050, text=» ---- - MIGHT BE A CHOICE «, t00=0x0012, t01=0x015c}
0x1d96…1db8 Head {h00=0x001e, h01=0x0050, text=» ---- - OF NEW TRANSTYPE«, t00=0x0012, t01=0x0180}
0x1db8…1dd6 Head {h00=0x001a, h01=0x0050, text=» A64 - TEST FIELD 64«, t00=0x0013, t01=0x0012}
0x1dd6…1df4 Head {h00=0x001a, h01=0x0050, text=» A65 - TEST FIELD 65«, t00=0x0013, t01=0x0030}
0x1df4…1e1c Head {h00=0x0024, h01=0x0050, text=» AA70 - KONTONR WITHOUT CHECK «, t00=0x0013, t01=0x004e}
0x1e1c…1e42 Head {h00=0x0022, h01=0x0050, text=» AA71 - 'ANTAL' IN TRANSTYPE«, t00=0x0013, t01=0x0076}
0x1e42…1e5a Head {h00=0x0014, h01=0x0050, text=» ---- - 51, 53«, t00=0x0013, t01=0x009c}
0x1e5a…1e7e Head {h00=0x0020, h01=0x0050, text=» A76 - COUNTER, TRANS 12 «, t00=0x0013, t01=0x00b4}
0x1e7e…1ea6 Head {h00=0x0024, h01=0x0050, text=» A77 - TR 4, INSERT BKO 51,52«, t00=0x0013, t01=0x00d8}
0x1ea6…1ecc Head {h00=0x0022, h01=0x0050, text=» A78 - ACCOUNT NO, TRANS 12«, t00=0x0013, t01=0x0100}
0x1ecc…1ef4 Head {h00=0x0024, h01=0x0050, text=» A79 - - - - - - (COPY)«, t00=0x0013, t01=0x0126}
0x1ef4…1f1a Head {h00=0x0022, h01=0x0050, text=» A80-A87 - CHECK OF CONTROL «, t00=0x0013, t01=0x014e}
0x1f1a…1f3c Head {h00=0x001e, h01=0x0050, text=» ---- - INFORMATION FOR «, t00=0x0013, t01=0x0174}
0x1f3c…1f58 Head {h00=0x0018, h01=0x0050, text=» ---- - TRANSTYPES«, t00=0x0014, t01=0x0008}
0x1f58…1f7c Head {h00=0x0020, h01=0x0050, text=» A88 - AUTODUP BKO, TR 4 «, t00=0x0014, t01=0x0024}
0x1f7c…1f9e Head {h00=0x001e, h01=0x0050, text=» A89 - STORE IN FIELD 6«, t00=0x0014, t01=0x0048}
0x1f9e…1fc2 Head {h00=0x0020, h01=0x0050, text=» A90 - SPECIAL SLUT-FIELD«, t00=0x0014, t01=0x006a}
0x1fc2…1fe4 Head {h00=0x001e, h01=0x0050, text=» A91 - ENTER TO SLUT-KEY«, t00=0x0014, t01=0x008e}
0x1fe4…2002 Head {h00=0x001a, h01=0x0050, text=» A100 - CHECK TR 12 «, t00=0x0014, t01=0x00b0}
0x2002…2026 Head {h00=0x0020, h01=0x0050, text=» A101 - CHECK BEHL. COUNT.«, t00=0x0014, t01=0x00ce}
0x2026…2040 Head {h00=0x0016, h01=0x0050, text=» A102 - REL. DAY«, t00=0x0014, t01=0x00f2}
0x2040…2062 Head {h00=0x001e, h01=0x0050, text=» A103 - SET BEHL. COUNT «, t00=0x0014, t01=0x010c}
0x2062…2080 Head {h00=0x001a, h01=0x0050, text=» A104 - SET TRANS 12«, t00=0x0014, t01=0x012e}
0x2080…20d0 Head {h00=0x004c, h01=0x0050, text=» A105 - CTRL.DIGIT CALC.«, t00=0x0014, t01=0x014c}
0x20d0…20ea Head {h00=0x0016, h01=0x0050, text=» A107 - AS A102 «, t00=0x0015, t01=0x000c}
0x20ea…210c Head {h00=0x001e, h01=0x0050, text=» A108 - SPG -REGKONTONR «, t00=0x0015, t01=0x0026}
0x210c…212c Head {h00=0x001c, h01=0x0050, text=» A109 - SPG-CPR/CIR/NR«, t00=0x0015, t01=0x0048}
0x212c…2148 Head {h00=0x0018, h01=0x0050, text=» A110 - SPG-BELOB «, t00=0x0015, t01=0x0068}
0x2148…216a Head {h00=0x001e, h01=0x0050, text=» A111 - SPG-OTHER FIELD «, t00=0x0015, t01=0x0084}
0x216a…2174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a6}
0x2174…21ae Head {h00=0x0036, h01=0x0050, text=» CBG SPBINW3,=W'89',AAA SLUT FIELD OR DIV. CHECKS «, t00=0x0015, t01=0x00b0}
0x21ae…21b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ea}
0x21b8…21c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f4}
0x21c2…21ce Head {h00=0x0008, h01=0x0050, text=»AA01«, t00=0x0015, t01=0x00fe}
0x21ce…21fe Head {h00=0x002c, h01=0x0050, text=» TBF GTADUPFL,AA02 AUTODUP TEST (VERIF) «, t00=0x0015, t01=0x010a}
0x21fe…2232 Head {h00=0x0030, h01=0x0050, text=» CLEAR GTADUPFL IF FIELD IS TO BE AUTODUPPED«, t00=0x0015, t01=0x013a}
0x2232…2266 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET DUP FIELD«, t00=0x0015, t01=0x016e}
0x2266…2298 Head {h00=0x002e, h01=0x0050, text=» MOVE SPINPUT,GTDUPF(GSWBIN1) AND CONTINUE«, t00=0x0016, t01=0x0012}
0x2298…22a6 Head {h00=0x000a, h01=0x0050, text=» B AAA«, t00=0x0016, t01=0x0044}
0x22a6…22b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0052}
0x22b0…22bc Head {h00=0x0008, h01=0x0050, text=»AA02«, t00=0x0016, t01=0x005c}
0x22bc…22e4 Head {h00=0x0024, h01=0x0050, text=» TBF GTAUTODP,AA03 AUTO DUP KEY «, t00=0x0016, t01=0x0068}
0x22e4…230c Head {h00=0x0024, h01=0x0050, text=» CLEAR GTAUTODP IF GTAUTODP KEY,«, t00=0x0016, t01=0x0090}
0x230c…2342 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET FIELD INDEX«, t00=0x0016, t01=0x00b8}
0x2342…2382 Head {h00=0x003c, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN1 AND SET GTAUTODPSWITCH FOR«, t00=0x0016, t01=0x00ee}
0x2382…23a6 Head {h00=0x0020, h01=0x0050, text=» RELEVANT FIELD TO BE USED«, t00=0x0016, t01=0x012e}
0x23a6…23bc Head {h00=0x0012, h01=0x0050, text=» IN FORMATS «, t00=0x0016, t01=0x0152}
0x23bc…23c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0168}
0x23c6…23d2 Head {h00=0x0008, h01=0x0050, text=»AA03«, t00=0x0016, t01=0x0172}
0x23d2…2404 Head {h00=0x002e, h01=0x0050, text=» CBNE SPBINW1,CBIN0,AAA IF LENGTH IS ZERO «, t00=0x0016, t01=0x017e}
0x2404…2446 Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN4,CFLTDEX(SPBINW3) GET INDEX VALUE TO GSWBIN4 «, t00=0x0017, t01=0x0020}
0x2446…2476 Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(GSWBIN4),CBIN0 DELETE FIELD«, t00=0x0017, t01=0x0062}
0x2476…2484 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0017, t01=0x0092}
0x2484…248e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a0}
0x248e…24a8 Head {h00=0x0016, h01=0x0050, text=»AAA IB SPBINW3, C«, t00=0x0017, t01=0x00aa}
0x24a8…24e4 Head {h00=0x0038, h01=0x0050, text=» ART,ART,ART,ART,A05,A06,A07,APF,ART, FIELDS 1-9 C «, t00=0x0017, t01=0x00c4}
0x24e4…2526 Head {h00=0x003e, h01=0x0050, text=» APK,A11,APK,APK,APK,APK,APK,A17,APK,APK, FIELDS 10,19 C «, t00=0x0017, t01=0x0100}
0x2526…2568 Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APK,APK,APK,APK,APK,APK,APK, FIELDS 20-29 C «, t00=0x0017, t01=0x0142}
0x2568…25aa Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APF,APK,APK,APK,APK,APK,APF, FIELDS 30-39 C «, t00=0x0017, t01=0x0184}
0x25aa…25ec Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APK,APK,APK,APK,APF,APK,APK, FIELDS 40-49 C «, t00=0x0018, t01=0x0036}
0x25ec…262e Head {h00=0x003e, h01=0x0050, text=» APK,APK,APF,APF,A54,APF,APF,APF,APF,APF, FIELDS 50-59 C «, t00=0x0018, t01=0x0078}
0x262e…2670 Head {h00=0x003e, h01=0x0050, text=» APF,APF,APF,APK,A64,A65,APK,ART,ART,ART, FIELDS 60-69 C «, t00=0x0018, t01=0x00ba}
0x2670…26b2 Head {h00=0x003e, h01=0x0050, text=» A70,A71,ART,ART,ART,ART,A76,A77,A78,A79, FIELDS 70,79 C «, t00=0x0018, t01=0x00fc}
0x26b2…26f4 Head {h00=0x003e, h01=0x0050, text=» A80,A81,A82,A83,A84,A85,A86,A87,A88,A89, FIELDS 80-89 C «, t00=0x0018, t01=0x013e}
0x26f4…2736 Head {h00=0x003e, h01=0x0050, text=» A90,A91,APK,APK,APK,ART,ART,ART,ART,ART, FIELDS 90,99 C «, t00=0x0018, t01=0x0180}
0x2736…276a Head {h00=0x0030, h01=0x0050, text=» A100,A101,A102,A103,A104, FIELDS 100,104 C«, t00=0x0019, t01=0x0032}
0x276a…279e Head {h00=0x0030, h01=0x0050, text=» A105,ART,A107,A108,A109, FIELDS 105,109 C «, t00=0x0019, t01=0x0066}
0x279e…27cc Head {h00=0x002a, h01=0x0050, text=» A110,A111,ART,ART,ART FIELDS 110,114«, t00=0x0019, t01=0x009a}
0x27cc…27de Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x00c8}
0x27de…280a Head {h00=0x0028, h01=0x0050, text=»A05 CHECK REGISTRERINGSKONTONUMMER«, t00=0x0019, t01=0x00da}
0x280a…2832 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0019, t01=0x0106}
0x2832…286c Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065«, t00=0x0019, t01=0x012e}
0x286c…289a Head {h00=0x002a, h01=0x0050, text=» CMP GSWBIN1,=W'10' LENGTH MUST BE 10 «, t00=0x0019, t01=0x0168}
0x289a…28ac Head {h00=0x000e, h01=0x0050, text=» BNE A058 «, t00=0x001a, t01=0x0008}
0x28ac…28ca Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x001a, t01=0x001a}
0x28ca…28ee Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x001a, t01=0x0038}
0x28ee…290c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x001a, t01=0x005c}
0x290c…2924 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x001a, t01=0x007a}
0x2924…2958 Head {h00=0x0030, h01=0x0050, text=» A053,A053,A051,A053,A053,A052,A0570,A0575 «, t00=0x001a, t01=0x0092}
0x2958…2964 Head {h00=0x0008, h01=0x0050, text=»A051«, t00=0x001a, t01=0x00c6}
0x2964…2984 Head {h00=0x001c, h01=0x0050, text=» B APK CPR NOT NECESSARY«, t00=0x001a, t01=0x00d2}
0x2984…29a6 Head {h00=0x001e, h01=0x0050, text=»A052 REMIT. NOT ALLOWED «, t00=0x001a, t01=0x00f2}
0x29a6…29be Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX, C«, t00=0x001a, t01=0x0114}
0x29be…29ea Head {h00=0x0028, h01=0x0050, text=» A0520,A0520,A0520,A0520,A0520, C «, t00=0x001a, t01=0x012c}
0x29ea…2a0c Head {h00=0x001e, h01=0x0050, text=» A0520,A0520,A0525,A0525 «, t00=0x001a, t01=0x0158}
0x2a0c…2a1a Head {h00=0x000a, h01=0x0050, text=»A0520 «, t00=0x001a, t01=0x017a}
0x2a1a…2a28 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001a, t01=0x0188}
0x2a28…2a36 Head {h00=0x000a, h01=0x0050, text=»A0525 «, t00=0x001b, t01=0x0008}
0x2a36…2a58 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'20' ERROR«, t00=0x001b, t01=0x0016}
0x2a58…2a66 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001b, t01=0x0038}
0x2a66…2a82 Head {h00=0x0018, h01=0x0050, text=»A053 CPR NECESSARY«, t00=0x001b, t01=0x0046}
0x2a82…2a9a Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX, C«, t00=0x001b, t01=0x0062}
0x2a9a…2acc Head {h00=0x002e, h01=0x0050, text=» A054,A055,A054,A054,A055,A054,A055,A055 «, t00=0x001b, t01=0x007a}
0x2acc…2ad8 Head {h00=0x0008, h01=0x0050, text=»A054«, t00=0x001b, t01=0x00ac}
0x2ad8…2ae6 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001b, t01=0x00b8}
0x2ae6…2af2 Head {h00=0x0008, h01=0x0050, text=»A055«, t00=0x001b, t01=0x00c6}
0x2af2…2b18 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A056 ERROR «, t00=0x001b, t01=0x00d2}
0x2b18…2b36 Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x001b, t01=0x00f8}
0x2b36…2b46 Head {h00=0x000c, h01=0x0050, text=» B A054 «, t00=0x001b, t01=0x0116}
0x2b46…2b52 Head {h00=0x0008, h01=0x0050, text=»A056«, t00=0x001b, t01=0x0126}
0x2b52…2b6e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'19'«, t00=0x001b, t01=0x0132}
0x2b6e…2b7c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001b, t01=0x014e}
0x2b7c…2b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x015c}
0x2b86…2bac Head {h00=0x0022, h01=0x0050, text=»A0570 7: KNT.NO. NOT ALLOWED«, t00=0x001b, t01=0x0166}
0x2bac…2bc8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'23'«, t00=0x001b, t01=0x018c}
0x2bc8…2bd6 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001c, t01=0x0018}
0x2bd6…2be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0026}
0x2be0…2c0e Head {h00=0x002a, h01=0x0050, text=»A0575 8:KNT.NO. NOT ALLOWED IN SUPL «, t00=0x001c, t01=0x0030}
0x2c0e…2c36 Head {h00=0x0024, h01=0x0050, text=» CBE GTREGDEX,CBIN10,A0577 TR 10«, t00=0x001c, t01=0x005e}
0x2c36…2c56 Head {h00=0x001c, h01=0x0050, text=» TBT TTSUPFLG,A0577 SUPL«, t00=0x001c, t01=0x0086}
0x2c56…2c68 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x001c, t01=0x00a6}
0x2c68…2c7e Head {h00=0x0012, h01=0x0050, text=»A0577 NOT OK«, t00=0x001c, t01=0x00b8}
0x2c7e…2c9a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'22'«, t00=0x001c, t01=0x00ce}
0x2c9a…2ca8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001c, t01=0x00ea}
0x2ca8…2cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f8}
0x2cb2…2cbe Head {h00=0x0008, h01=0x0050, text=»A058«, t00=0x001c, t01=0x0102}
0x2cbe…2ce8 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'3' SET ERRORCODE «, t00=0x001c, t01=0x010e}
0x2ce8…2cf6 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001c, t01=0x0138}
0x2cf6…2d08 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001c, t01=0x0146}
0x2d08…2d2a Head {h00=0x001e, h01=0x0050, text=»A06 CHECK CPR/CIR NUMBER«, t00=0x001c, t01=0x0158}
0x2d2a…2d52 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x001c, t01=0x017a}
0x2d52…2d8c Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065«, t00=0x001d, t01=0x0012}
0x2d8c…2db6 Head {h00=0x0026, h01=0x0050, text=» SET BCPR SET CPR-SWITCH (CPR-NO) «, t00=0x001d, t01=0x004c}
0x2db6…2dd4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x001d, t01=0x0076}
0x2dd4…2df6 Head {h00=0x001e, h01=0x0050, text=» CMP GSWBCD1,=D'10000000' «, t00=0x001d, t01=0x0094}
0x2df6…2e06 Head {h00=0x000c, h01=0x0050, text=» BL A061«, t00=0x001d, t01=0x00b6}
0x2e06…2e22 Head {h00=0x0018, h01=0x0050, text=» SET BLEV LEVERAND. «, t00=0x001d, t01=0x00c6}
0x2e22…2e46 Head {h00=0x0020, h01=0x0050, text=» CMP GSWBCD1,=D'3200000000' «, t00=0x001d, t01=0x00e2}
0x2e46…2e56 Head {h00=0x000c, h01=0x0050, text=» BG APK «, t00=0x001d, t01=0x0106}
0x2e56…2e6e Head {h00=0x0014, h01=0x0050, text=» CLEAR BLEV CPR.«, t00=0x001d, t01=0x0116}
0x2e6e…2e7c Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001d, t01=0x012e}
0x2e7c…2e88 Head {h00=0x0008, h01=0x0050, text=»A061«, t00=0x001d, t01=0x013c}
0x2e88…2eb6 Head {h00=0x002a, h01=0x0050, text=» CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO) «, t00=0x001d, t01=0x0148}
0x2eb6…2ec4 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001d, t01=0x0176}
0x2ec4…2ed6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x0184}
0x2ed6…2efe Head {h00=0x0024, h01=0x0050, text=»A54 FIELD 54 HAS BEEN ENTERED «, t00=0x001e, t01=0x0008}
0x2efe…2f3a Head {h00=0x0038, h01=0x0050, text=» MOVE GSSWITCH(CBIN2),CBIN1 AND SHOULD BE AUTODUPPED«, t00=0x001e, t01=0x0030}
0x2f3a…2f48 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001e, t01=0x006c}
0x2f48…2f56 Head {h00=0x000a, h01=0x0050, text=»******«, t00=0x001e, t01=0x007a}
0x2f56…2f62 Head {h00=0x0008, h01=0x0050, text=»A065«, t00=0x001e, t01=0x0088}
0x2f62…2f9c Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW1,CBIN0 SET LENGTH TO ZERO (FUNCTION) «, t00=0x001e, t01=0x0094}
0x2f9c…2fcc Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET NEW TRANSTYPE «, t00=0x001e, t01=0x00ce}
0x2fcc…2fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fe}
0x2fd6…2ffe Head {h00=0x0024, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM ROUTINE «, t00=0x001e, t01=0x0108}
0x2ffe…300e Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x001e, t01=0x0130}
0x300e…3030 Head {h00=0x001e, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE «, t00=0x001e, t01=0x0140}
0x3030…3040 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x001e, t01=0x0162}
0x3040…304a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0172}
0x304a…3076 Head {h00=0x0028, h01=0x0050, text=»* CHECK FOR VALID TRANSTYPE«, t00=0x001e, t01=0x017c}
0x3076…3080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0018}
0x3080…30a0 Head {h00=0x001c, h01=0x0050, text=»* ADJUST REGDEX«, t00=0x001f, t01=0x0022}
0x30a0…30ae Head {h00=0x000a, h01=0x0050, text=»A0655 «, t00=0x001f, t01=0x0042}
0x30ae…30b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0050}
0x30b8…30d4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x001f, t01=0x005a}
0x30d4…3110 Head {h00=0x0038, h01=0x0050, text=»* TEST FOR CORRECT TRANSACTIONS IN THIS CONNECTION«, t00=0x001f, t01=0x0076}
0x3110…312a Head {h00=0x0016, h01=0x0050, text=» TBT GTKASSE,A0672«, t00=0x001f, t01=0x00b2}
0x312a…3164 Head {h00=0x0036, h01=0x0050, text=» CBG GSWBCD3,=D'30',A067 CORRECT FOR NOT IN KASSE «, t00=0x001f, t01=0x00cc}
0x3164…3174 Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x001f, t01=0x0106}
0x3174…3182 Head {h00=0x000a, h01=0x0050, text=»A0672 «, t00=0x001f, t01=0x0116}
0x3182…31b4 Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE «, t00=0x001f, t01=0x0124}
0x31b4…31bc Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0156}
0x31bc…31cc Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x001f, t01=0x015e}
0x31cc…31d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x016e}
0x31d6…31e2 Head {h00=0x0008, h01=0x0050, text=»A067«, t00=0x001f, t01=0x0178}
0x31e2…3222 Head {h00=0x003c, h01=0x0050, text=» CBE GSWBCD3,CREGTAB(GSWBIN1,GTCLASS),A068 SEARCH REGNR «, t00=0x001f, t01=0x0184}
0x3222…324c Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CBIN1 ADD 1 TO INDEX «, t00=0x0020, t01=0x0034}
0x324c…328c Head {h00=0x003c, h01=0x0050, text=» CBNE CREGTAB(GSWBIN1,GTCLASS),=D'-1',A067 END OF TABLE?«, t00=0x0020, t01=0x005e}
0x328c…3296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x009e}
0x3296…32a4 Head {h00=0x000a, h01=0x0050, text=»A0675 «, t00=0x0020, t01=0x00a8}
0x32a4…32d2 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,=W'9' INVALID TRANSTYPE «, t00=0x0020, t01=0x00b6}
0x32d2…32e0 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0020, t01=0x00e4}
0x32e0…32ec Head {h00=0x0008, h01=0x0050, text=»A068«, t00=0x0020, t01=0x00f2}
0x32ec…3312 Head {h00=0x0022, h01=0x0050, text=» TAKE CARE OF NEW TRANSTYPE «, t00=0x0020, t01=0x00fe}
0x3312…334c Head {h00=0x0036, h01=0x0050, text=» CBE SPBINW2,=W'18',A06KRE HANDLING OF KREDIT KEY «, t00=0x0020, t01=0x0124}
0x334c…337c Head {h00=0x002c, h01=0x0050, text=» CBE SPBINW2,=W'17',A06DEB SLUT/DEB KEY «, t00=0x0020, t01=0x015e}
0x337c…33b4 Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW2,=W'3',A06DEB HANDLING OF DEBIT KEY «, t00=0x0020, t01=0x018e}
0x33b4…33e6 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW4,=W'4' HANDLING OF WRONG KEY «, t00=0x0021, t01=0x0036}
0x33e6…33f4 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0021, t01=0x0068}
0x33f4…3402 Head {h00=0x000a, h01=0x0050, text=»A06KRE«, t00=0x0021, t01=0x0076}
0x3402…3416 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0021, t01=0x0084}
0x3416…3426 Head {h00=0x000c, h01=0x0050, text=» B A066 «, t00=0x0021, t01=0x0098}
0x3426…3434 Head {h00=0x000a, h01=0x0050, text=»A06DEB«, t00=0x0021, t01=0x00a8}
0x3434…3448 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0021, t01=0x00b6}
0x3448…3454 Head {h00=0x0008, h01=0x0050, text=»A066«, t00=0x0021, t01=0x00ca}
0x3454…3472 Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGNR,GSWBCD3 «, t00=0x0021, t01=0x00d6}
0x3472…3490 Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGDEX,GSWBIN1«, t00=0x0021, t01=0x00f4}
0x3490…34bc Head {h00=0x0028, h01=0x0050, text=» SET GTREGFLG VALID TRANSTYPE FOUND «, t00=0x0021, t01=0x0112}
0x34bc…34e2 Head {h00=0x0022, h01=0x0050, text=» SET TTEORFLG START NEW TRANS «, t00=0x0021, t01=0x013e}
0x34e2…34f6 Head {h00=0x0010, h01=0x0050, text=» PERF CLRSW «, t00=0x0021, t01=0x0164}
0x34f6…3500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0178}
0x3500…353a Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANSACTION SELECTED«, t00=0x0021, t01=0x0182}
0x353a…3548 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0022, t01=0x002c}
0x3548…355a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x003a}
0x355a…3572 Head {h00=0x0014, h01=0x0050, text=»A07 BKO FIELD «, t00=0x0022, t01=0x004c}
0x3572…3594 Head {h00=0x001e, h01=0x0050, text=» INSERT TEXT IN TT07TXT «, t00=0x0022, t01=0x0064}
0x3594…35aa Head {h00=0x0012, h01=0x0050, text=» CLEAR TTASKAT«, t00=0x0022, t01=0x0086}
0x35aa…35c8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0022, t01=0x009c}
0x35c8…35ea Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBCD3,=D'51',A070 «, t00=0x0022, t01=0x00ba}
0x35ea…35fe Head {h00=0x0010, h01=0x0050, text=» SET TTASKAT«, t00=0x0022, t01=0x00dc}
0x35fe…360a Head {h00=0x0008, h01=0x0050, text=»A070«, t00=0x0022, t01=0x00f0}
0x360a…362c Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,=W'3',A0705«, t00=0x0022, t01=0x00fc}
0x362c…3654 Head {h00=0x0024, h01=0x0050, text=» CBE GSWBCD3,=D'51',A076 TRANS 3«, t00=0x0022, t01=0x011e}
0x3654…3674 Head {h00=0x001c, h01=0x0050, text=» CBE GSWBCD3,=D'52',A076«, t00=0x0022, t01=0x0146}
0x3674…3682 Head {h00=0x000a, h01=0x0050, text=»A0705 «, t00=0x0022, t01=0x0166}
0x3682…36b2 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 GET LENGTH OF STRING«, t00=0x0022, t01=0x0174}
0x36b2…36e4 Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x0023, t01=0x0014}
0x36e4…3702 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,TT07TXT «, t00=0x0023, t01=0x0046}
0x3702…3720 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBCD3 «, t00=0x0023, t01=0x0064}
0x3720…373e Head {h00=0x001a, h01=0x0050, text=» MOVE TT07TXT,CBLANKS «, t00=0x0023, t01=0x0082}
0x373e…376e Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 FIRST CHAR, POINTER «, t00=0x0023, t01=0x00a0}
0x376e…378a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0023, t01=0x00d0}
0x378a…37aa Head {h00=0x001c, h01=0x0050, text=» CBNG SPBINW1,=W'2',A071«, t00=0x0023, t01=0x00ec}
0x37aa…37e0 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN3,CBIN1 ADJUST DUPPED FIELD INDEX «, t00=0x0023, t01=0x010c}
0x37e0…37ec Head {h00=0x0008, h01=0x0050, text=»A071«, t00=0x0023, t01=0x0142}
0x37ec…3806 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN7«, t00=0x0023, t01=0x014e}
0x3806…3814 Head {h00=0x000a, h01=0x0050, text=»A0708 «, t00=0x0023, t01=0x0168}
0x3814…382e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN7«, t00=0x0023, t01=0x0176}
0x382e…3850 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,GSWBIN2,A075 «, t00=0x0023, t01=0x0190}
0x3850…388a Head {h00=0x0036, h01=0x0050, text=» MATCH CTTXT07,GSWBIN1,CBIN2,SPINPUT,GSWBIN3,CBIN2«, t00=0x0024, t01=0x0022}
0x388a…389e Head {h00=0x0010, h01=0x0050, text=» BNOK A0708 «, t00=0x0024, t01=0x005c}
0x389e…38c2 Head {h00=0x0020, h01=0x0050, text=»* NEXT 5 CHARS CONTAIN TEXT«, t00=0x0024, t01=0x0070}
0x38c2…38dc Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,=W'2'«, t00=0x0024, t01=0x0094}
0x38dc…390e Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x0024, t01=0x00ae}
0x390e…3930 Head {h00=0x001e, h01=0x0050, text=»* SEE IF ALLOWED «, t00=0x0024, t01=0x00e0}
0x3930…396c Head {h00=0x0038, h01=0x0050, text=» CBNE GTREGDEX,=W'3',A077 ONLY CHECK IF TRANSTYPE 3 «, t00=0x0024, t01=0x0102}
0x396c…3986 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,=W'5'«, t00=0x0024, t01=0x013e}
0x3986…39a4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR2,CBLANKS «, t00=0x0024, t01=0x0158}
0x39a4…39de Head {h00=0x0036, h01=0x0050, text=» COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE«, t00=0x0024, t01=0x0176}
0x39de…39fc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GSWSTR2 «, t00=0x0025, t01=0x0020}
0x39fc…3a1e Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',A077 OK«, t00=0x0025, t01=0x003e}
0x3a1e…3a4a Head {h00=0x0028, h01=0x0050, text=» CBL GTREGF(CBIN2),=D'10000000',A072«, t00=0x0025, t01=0x0060}
0x3a4a…3a7c Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'1',A077 CPR - BKO ALLOWED «, t00=0x0025, t01=0x008c}
0x3a7c…3a8c Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x0025, t01=0x00be}
0x3a8c…3a98 Head {h00=0x0008, h01=0x0050, text=»A072«, t00=0x0025, t01=0x00ce}
0x3a98…3aca Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED «, t00=0x0025, t01=0x00da}
0x3aca…3ada Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x0025, t01=0x010c}
0x3ada…3ae6 Head {h00=0x0008, h01=0x0050, text=»A075«, t00=0x0025, t01=0x011c}
0x3ae6…3b00 Head {h00=0x0016, h01=0x0050, text=» TBT CBKOFLG,A077 «, t00=0x0025, t01=0x0128}
0x3b00…3b0c Head {h00=0x0008, h01=0x0050, text=»A076«, t00=0x0025, t01=0x0142}
0x3b0c…3b28 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0025, t01=0x014e}
0x3b28…3b36 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0025, t01=0x016a}
0x3b36…3b42 Head {h00=0x0008, h01=0x0050, text=»A077«, t00=0x0025, t01=0x0178}
0x3b42…3b50 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0025, t01=0x0184}
0x3b50…3b62 (38, 0, 400) Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x0004}
0x3b62…3b8a Head {h00=0x0024, h01=0x0050, text=»A11 CHECK VAL DATE NOT GREATER«, t00=0x0026, t01=0x0016}
0x3b8a…3ba4 Head {h00=0x0016, h01=0x0050, text=» THAN POST DATE «, t00=0x0026, t01=0x003e}
0x3ba4…3bce Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,=W'3',A0110 TRANS 3 «, t00=0x0026, t01=0x0058}
0x3bce…3bf8 Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,=W'4',A0110 TRANS 4 «, t00=0x0026, t01=0x0082}
0x3bf8…3c06 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0026, t01=0x00ac}
0x3c06…3c14 Head {h00=0x000a, h01=0x0050, text=»A0110 «, t00=0x0026, t01=0x00ba}
0x3c14…3c3c Head {h00=0x0024, h01=0x0050, text=»* GET AND CHANGE VALOERDATE «, t00=0x0026, t01=0x00c8}
0x3c3c…3c5a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0026, t01=0x00f0}
0x3c5a…3c8a Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,CBIN12«, t00=0x0026, t01=0x010e}
0x3c8a…3cba Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD6,CBIN12,CBIN2,GSWBCD6,CBIN8«, t00=0x0026, t01=0x013e}
0x3cba…3cea Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD6,CBIN8,CBIN2,GSWBCD3,CBIN4 «, t00=0x0026, t01=0x016e}
0x3cea…3d10 Head {h00=0x0022, h01=0x0050, text=»* GET AND CHANGE POSTDATE «, t00=0x0027, t01=0x000e}
0x3d10…3d2c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,GTDATO«, t00=0x0027, t01=0x0034}
0x3d2c…3d5c Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12«, t00=0x0027, t01=0x0050}
0x3d5c…3d8c Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD1,CBIN12,CBIN2,GSWBCD1,CBIN8«, t00=0x0027, t01=0x0080}
0x3d8c…3dbc Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD1,CBIN8,CBIN2,GSWBCD3,CBIN4 «, t00=0x0027, t01=0x00b0}
0x3dbc…3dd2 Head {h00=0x0012, h01=0x0050, text=»* COMPARE «, t00=0x0027, t01=0x00e0}
0x3dd2…3dee Head {h00=0x0018, h01=0x0050, text=» CMP GSWBCD6,GSWBCD1«, t00=0x0027, t01=0x00f6}
0x3dee…3dfe Head {h00=0x000c, h01=0x0050, text=» BNG APK«, t00=0x0027, t01=0x0112}
0x3dfe…3e1a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'7' «, t00=0x0027, t01=0x0122}
0x3e1a…3e28 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0027, t01=0x013e}
0x3e28…3e3a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x014c}
0x3e3a…3e60 Head {h00=0x0022, h01=0x0050, text=»A17 CHECK 'FORFALDSAAR' FAAR«, t00=0x0027, t01=0x015e}
0x3e60…3e76 Head {h00=0x0012, h01=0x0050, text=» FAAR >= 70 «, t00=0x0027, t01=0x0184}
0x3e76…3e8e Head {h00=0x0014, h01=0x0050, text=» FAAR <= YY+2 «, t00=0x0028, t01=0x000a}
0x3e8e…3eb4 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET FAAR«, t00=0x0028, t01=0x0022}
0x3eb4…3eea Head {h00=0x0032, h01=0x0050, text=» CBL GSWBCD6,=D'70',A17ERR LESS THAN 70: ERROR«, t00=0x0028, t01=0x0048}
0x3eea…3f14 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD1,GTDATO GET POSTDATO «, t00=0x0028, t01=0x007e}
0x3f14…3f30 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'2' «, t00=0x0028, t01=0x00a8}
0x3f30…3f6a Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR «, t00=0x0028, t01=0x00c4}
0x3f6a…3f8a Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD3,=D'2' ADD 2«, t00=0x0028, t01=0x00fe}
0x3f8a…3fbc Head {h00=0x002e, h01=0x0050, text=» CBG GSWBCD6,GSWBCD3,A17ERR MORE THAN YY+2«, t00=0x0028, t01=0x011e}
0x3fbc…3fca Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0028, t01=0x0150}
0x3fca…3fd8 Head {h00=0x000a, h01=0x0050, text=»A17ERR«, t00=0x0028, t01=0x015e}
0x3fd8…4004 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW4,=W'11' INVALID NUMBER «, t00=0x0028, t01=0x016c}
0x4004…4012 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0029, t01=0x0008}
0x4012…4024 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x0016}
0x4024…4030 Head {h00=0x0008, h01=0x0050, text=»A64 «, t00=0x0029, t01=0x0028}
0x4030…4068 Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET 'PRISREGULERINGSKODE' «, t00=0x0029, t01=0x0034}
0x4068…4088 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'5',A649 «, t00=0x0029, t01=0x006c}
0x4088…40a8 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'0',A649 «, t00=0x0029, t01=0x008c}
0x40a8…40d0 Head {h00=0x0024, h01=0x0050, text=» FIELD 64 HAS BEEN ENTERED AND«, t00=0x0029, t01=0x00ac}
0x40d0…410a Head {h00=0x0036, h01=0x0050, text=» MOVE GSSWITCH(CBIN12),CBIN1 SHOULD BE GTAUTODPPED«, t00=0x0029, t01=0x00d4}
0x410a…4118 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0029, t01=0x010e}
0x4118…4124 Head {h00=0x0008, h01=0x0050, text=»A649«, t00=0x0029, t01=0x011c}
0x4124…4140 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'10'«, t00=0x0029, t01=0x0128}
0x4140…414e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0029, t01=0x0144}
0x414e…4160 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x0152}
0x4160…4184 Head {h00=0x0020, h01=0x0050, text=»A65 CHECK VALUE 1000-3999 «, t00=0x0029, t01=0x0164}
0x4184…41ac Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT GET VALUE «, t00=0x0029, t01=0x0188}
0x41ac…41ce Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD4,=D'3999',A659«, t00=0x002a, t01=0x0020}
0x41ce…41f0 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD4,=D'1000',A659«, t00=0x002a, t01=0x0042}
0x41f0…41fe Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002a, t01=0x0064}
0x41fe…420a Head {h00=0x0008, h01=0x0050, text=»A659«, t00=0x002a, t01=0x0072}
0x420a…4226 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x002a, t01=0x007e}
0x4226…4234 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002a, t01=0x009a}
0x4234…4246 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x00a8}
0x4246…426a Head {h00=0x0020, h01=0x0050, text=»A70 KONTONR WITHOUT CHECK «, t00=0x002a, t01=0x00ba}
0x426a…4286 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'5' «, t00=0x002a, t01=0x00de}
0x4286…42a0 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW1,=W'3'«, t00=0x002a, t01=0x00fa}
0x42a0…42be Head {h00=0x001a, h01=0x0050, text=» BL A065 IF LENGTH < 3«, t00=0x002a, t01=0x0114}
0x42be…42da Head {h00=0x0018, h01=0x0050, text=» B APK NEW TRANSTYPE«, t00=0x002a, t01=0x0132}
0x42da…42ec Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x014e}
0x42ec…42f8 Head {h00=0x0008, h01=0x0050, text=»A71 «, t00=0x002a, t01=0x0160}
0x42f8…4328 Head {h00=0x002c, h01=0x0050, text=» MOVE GSSWITCH(CBIN1),CBIN1 SET AUTODUP «, t00=0x002a, t01=0x016c}
0x4328…4344 Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,SPINPUT «, t00=0x002b, t01=0x000c}
0x4344…436e Head {h00=0x0026, h01=0x0050, text=» SUB GTSUM,=D'1' SUB 1 FROM ANTAL «, t00=0x002b, t01=0x0028}
0x436e…438a Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,GTSUM «, t00=0x002b, t01=0x0052}
0x438a…43a8 Head {h00=0x001a, h01=0x0050, text=» CBL GTSUM,=D'0',A715 «, t00=0x002b, t01=0x006e}
0x43a8…43ca Head {h00=0x001e, h01=0x0050, text=» CMP GTSUM,=D'12' IF > 12 «, t00=0x002b, t01=0x008c}
0x43ca…43da Head {h00=0x000c, h01=0x0050, text=» BL ART «, t00=0x002b, t01=0x00ae}
0x43da…43e6 Head {h00=0x0008, h01=0x0050, text=»A715«, t00=0x002b, t01=0x00be}
0x43e6…4410 Head {h00=0x0026, h01=0x0050, text=» MOVE SPINPUT,=C'51' SIMULATE NEW «, t00=0x002b, t01=0x00ca}
0x4410…4436 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW2,=W'3' TRANSTYPE «, t00=0x002b, t01=0x00f4}
0x4436…4468 Head {h00=0x002e, h01=0x0050, text=» MOVE GSSWITCH(CBIN1),CBIN0 DELETE AUTODUP«, t00=0x002b, t01=0x011a}
0x4468…4478 Head {h00=0x000c, h01=0x0050, text=» B A065 «, t00=0x002b, t01=0x014c}
0x4478…448a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x015c}
0x448a…44ac Head {h00=0x001e, h01=0x0050, text=»A76 COUNTER NO, TRANS 12«, t00=0x002b, t01=0x016e}
0x44ac…44c6 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW1,=W'3'«, t00=0x002b, t01=0x0190}
0x44c6…44ea Head {h00=0x0020, h01=0x0050, text=» BL A065 TRANSTYPE HANDLING «, t00=0x002c, t01=0x001a}
0x44ea…4512 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x002c, t01=0x003e}
0x4512…4530 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCNTNR,SPINPUT «, t00=0x002c, t01=0x0066}
0x4530…4556 Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD3,=D'100' GET INDEX«, t00=0x002c, t01=0x0084}
0x4556…4574 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x002c, t01=0x00aa}
0x4574…45a4 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CTR12(TTASKNR,CBIN2),A76NOK«, t00=0x002c, t01=0x00c8}
0x45a4…45d4 Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD3,=D'1',A76NOK MIN COUNTER NO«, t00=0x002c, t01=0x00f8}
0x45d4…45fe Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x002c, t01=0x0128}
0x45fe…4628 Head {h00=0x0026, h01=0x0050, text=» CBE CTR12NR(GSWBIN1),=D'0',A76NOK«, t00=0x002c, t01=0x0152}
0x4628…463e Head {h00=0x0012, h01=0x0050, text=» MUST BE > 0«, t00=0x002c, t01=0x017c}
0x463e…4660 (45, 0, 400) Head {h00=0x001e, h01=0x0050, text=» B ART TO WRITE ON SCREEN «, t00=0x002d, t01=0x0004}
0x4660…466e Head {h00=0x000a, h01=0x0050, text=»A76NOK«, t00=0x002d, t01=0x0026}
0x466e…468a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'18'«, t00=0x002d, t01=0x0034}
0x468a…4698 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002d, t01=0x0050}
0x4698…46aa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x005e}
0x46aa…46cc Head {h00=0x001e, h01=0x0050, text=»A77 INSERT 51,52 IN TR 4«, t00=0x002d, t01=0x0070}
0x46cc…46f0 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x002d, t01=0x0092}
0x46f0…4712 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW1,=W'2' LENGTH«, t00=0x002d, t01=0x00b6}
0x4712…4728 Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A775«, t00=0x002d, t01=0x00d8}
0x4728…4754 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x002d, t01=0x00ee}
0x4754…4762 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x002d, t01=0x011a}
0x4762…476e Head {h00=0x0008, h01=0x0050, text=»A775«, t00=0x002d, t01=0x0128}
0x476e…479a Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x002d, t01=0x0134}
0x479a…47a8 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x002d, t01=0x0160}
0x47a8…47ba Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x016e}
0x47ba…47da Head {h00=0x001c, h01=0x0050, text=»A78 INSERT ACCOUNT NO «, t00=0x002d, t01=0x0180}
0x47da…47ea Head {h00=0x000c, h01=0x0050, text=» 11-15«, t00=0x002e, t01=0x0010}
0x47ea…4816 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=W'5' SIMULATE FIELD 5«, t00=0x002e, t01=0x0020}
0x4816…4824 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002e, t01=0x004c}
0x4824…4834 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x002e, t01=0x005a}
0x4834…4854 Head {h00=0x001c, h01=0x0050, text=»A79 AUTODUP ACCOUNT NO«, t00=0x002e, t01=0x006a}
0x4854…487a Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'5' IN FIELD 5«, t00=0x002e, t01=0x008a}
0x487a…48a6 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR GET COUNTER NO«, t00=0x002e, t01=0x00b0}
0x48a6…48c2 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN1,=W'100'«, t00=0x002e, t01=0x00dc}
0x48c2…48ec Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x002e, t01=0x00f8}
0x48ec…4912 Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,CTR12NR(GSWBIN1)«, t00=0x002e, t01=0x0122}
0x4912…4936 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW1,=W'10' LENGTH «, t00=0x002e, t01=0x0148}
0x4936…4944 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002e, t01=0x016c}
0x4944…4956 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002e, t01=0x017a}
0x4956…497c Head {h00=0x0022, h01=0x0050, text=»A80 CHECK HOVEDBOG, KONTONR «, t00=0x002e, t01=0x018c}
0x497c…49a0 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'5' FIELD 5 «, t00=0x002f, t01=0x0022}
0x49a0…49d0 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'2' MIGHT BE TRANSTYPE 2«, t00=0x002f, t01=0x0046}
0x49d0…49fc Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 CHECK LENGTH«, t00=0x002f, t01=0x0076}
0x49fc…4a28 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,=W'10',A801 MUST BE 10 «, t00=0x002f, t01=0x00a2}
0x4a28…4a50 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x002f, t01=0x00ce}
0x4a50…4a5e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002f, t01=0x00f6}
0x4a5e…4a6a Head {h00=0x0008, h01=0x0050, text=»A801«, t00=0x002f, t01=0x0104}
0x4a6a…4a88 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x002f, t01=0x0110}
0x4a88…4aac Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x002f, t01=0x012e}
0x4aac…4aca Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x002f, t01=0x0152}
0x4aca…4afc Head {h00=0x002e, h01=0x0050, text=» CMP GSWBIN1,CBIN7 7: KNT.NO. NOT ALLOWED «, t00=0x002f, t01=0x0170}
0x4afc…4b0e Head {h00=0x000e, h01=0x0050, text=» BE A0570 «, t00=0x0030, t01=0x0012}
0x4b0e…4b2e Head {h00=0x001c, h01=0x0050, text=» CBNE GSWBIN1,CBIN8,A804«, t00=0x0030, t01=0x0024}
0x4b2e…4b48 Head {h00=0x0016, h01=0x0050, text=» TBF TTSUPFLG,A804«, t00=0x0030, t01=0x0044}
0x4b48…4b76 Head {h00=0x002a, h01=0x0050, text=» B A0577 8:KNT.NO. NOT ALLOWED IN SUPL«, t00=0x0030, t01=0x005e}
0x4b76…4b82 Head {h00=0x0008, h01=0x0050, text=»A804«, t00=0x0030, t01=0x008c}
0x4b82…4ba4 Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0030, t01=0x0098}
0x4ba4…4bc2 Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0030, t01=0x00ba}
0x4bc2…4bd4 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0030, t01=0x00d8}
0x4bd4…4bf6 Head {h00=0x001e, h01=0x0050, text=»A805 CHECK FUNCTION KEYS«, t00=0x0030, t01=0x00ea}
0x4bf6…4c12 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x0030, t01=0x010c}
0x4c12…4c36 Head {h00=0x0020, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM KEY «, t00=0x0030, t01=0x0128}
0x4c36…4c46 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0030, t01=0x014c}
0x4c46…4c6c Head {h00=0x0022, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE KEY «, t00=0x0030, t01=0x015c}
0x4c6c…4c7c Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0030, t01=0x0182}
0x4c7c…4ca4 (49, 0, 400) Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x0031, t01=0x0004}
0x4ca4…4cb2 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0031, t01=0x002c}
0x4cb2…4cc4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x003a}
0x4cc4…4cec Head {h00=0x0024, h01=0x0050, text=»A81 CHECK HOVEDBOG, CPR/CIR/NR«, t00=0x0031, t01=0x004c}
0x4cec…4d10 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x0031, t01=0x0074}
0x4d10…4d42 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW5,=W'1' MIGHT BE TRANS TYPE 1 «, t00=0x0031, t01=0x0098}
0x4d42…4d6e Head {h00=0x0028, h01=0x0050, text=» CBG SPBINW1,=W'2',A811 CHECK LENGTH«, t00=0x0031, t01=0x00ca}
0x4d6e…4d96 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0031, t01=0x00f6}
0x4d96…4da4 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0031, t01=0x011e}
0x4da4…4dc0 Head {h00=0x0018, h01=0x0050, text=»A811 CPR OR CIR ? «, t00=0x0031, t01=0x012c}
0x4dc0…4ddc Head {h00=0x0018, h01=0x0050, text=» SET BCPR SET CPR NO«, t00=0x0031, t01=0x0148}
0x4ddc…4dfa Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0031, t01=0x0164}
0x4dfa…4e20 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A814«, t00=0x0031, t01=0x0182}
0x4e20…4e32 Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x0032, t01=0x0018}
0x4e32…4e5a Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A812«, t00=0x0032, t01=0x002a}
0x4e5a…4e6e Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x0032, t01=0x0052}
0x4e6e…4e7e Head {h00=0x000c, h01=0x0050, text=» B A812 «, t00=0x0032, t01=0x0066}
0x4e7e…4e8a Head {h00=0x0008, h01=0x0050, text=»A814«, t00=0x0032, t01=0x0076}
0x4e8a…4ea8 Head {h00=0x001a, h01=0x0050, text=» CLEAR BCPR SET CIR NO«, t00=0x0032, t01=0x0082}
0x4ea8…4eb4 Head {h00=0x0008, h01=0x0050, text=»A812«, t00=0x0032, t01=0x00a0}
0x4eb4…4ed6 Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0032, t01=0x00ac}
0x4ed6…4ef4 Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0032, t01=0x00ce}
0x4ef4…4f06 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0032, t01=0x00ec}
0x4f06…4f18 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0032, t01=0x00fe}
0x4f18…4f3e Head {h00=0x0022, h01=0x0050, text=»A82 CHECK HOVEDBOG, YD.MODT.«, t00=0x0032, t01=0x0110}
0x4f3e…4f64 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'21' FIELD 21 «, t00=0x0032, t01=0x0136}
0x4f64…4f94 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'6' MIGHT BE TRANSTYPE 6«, t00=0x0032, t01=0x015c}
0x4f94…4fa0 Head {h00=0x0008, h01=0x0050, text=»A821«, t00=0x0032, t01=0x018c}
0x4fa0…4fce Head {h00=0x002a, h01=0x0050, text=» CBNE SPBINW2,=W'3',A822 IF ENTER KEY,«, t00=0x0033, t01=0x0008}
0x4fce…4ffe Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,=W'17' SIMULATE DEBET KEY «, t00=0x0033, t01=0x0036}
0x4ffe…500a Head {h00=0x0008, h01=0x0050, text=»A822«, t00=0x0033, t01=0x0066}
0x500a…502c Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0033, t01=0x0072}
0x502c…504a Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0033, t01=0x0094}
0x504a…505c Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0033, t01=0x00b2}
0x505c…506e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0033, t01=0x00c4}
0x506e…5096 Head {h00=0x0024, h01=0x0050, text=»A83 CHECK DEBITOR, DEBITOR NR «, t00=0x0033, t01=0x00d6}
0x5096…50ba Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x0033, t01=0x00fe}
0x50ba…50e4 Head {h00=0x0026, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 FUNCTION? «, t00=0x0033, t01=0x0122}
0x50e4…5104 Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW1,=W'7',A833 «, t00=0x0033, t01=0x014c}
0x5104…5134 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'4' MIGHT BE TRANSTYPE 4«, t00=0x0033, t01=0x016c}
0x5134…514e Head {h00=0x0016, h01=0x0050, text=» SET BCPR SET CPR «, t00=0x0034, t01=0x000c}
0x514e…516c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0034, t01=0x0026}
0x516c…5192 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A831«, t00=0x0034, t01=0x0044}
0x5192…51a4 Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x0034, t01=0x006a}
0x51a4…51cc Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A832«, t00=0x0034, t01=0x007c}
0x51cc…51e0 Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x0034, t01=0x00a4}
0x51e0…51f0 Head {h00=0x000c, h01=0x0050, text=» B A832 «, t00=0x0034, t01=0x00b8}
0x51f0…51fc Head {h00=0x0008, h01=0x0050, text=»A831«, t00=0x0034, t01=0x00c8}
0x51fc…5218 Head {h00=0x0018, h01=0x0050, text=» CLEAR BCPR SET CIR «, t00=0x0034, t01=0x00d4}
0x5218…5224 Head {h00=0x0008, h01=0x0050, text=»A832«, t00=0x0034, t01=0x00f0}
0x5224…5238 Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x0034, t01=0x00fc}
0x5238…524a Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x0034, t01=0x0110}
0x524a…5266 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'3' «, t00=0x0034, t01=0x0122}
0x5266…5274 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0034, t01=0x013e}
0x5274…5280 Head {h00=0x0008, h01=0x0050, text=»A833«, t00=0x0034, t01=0x014c}
0x5280…52a8 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0034, t01=0x0158}
0x52a8…52b6 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0034, t01=0x0180}
0x52b6…52c8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0034, t01=0x018e}
0x52c8…52e8 Head {h00=0x001c, h01=0x0050, text=»A84 CHECK DEBITOR, BKO«, t00=0x0035, t01=0x0010}
0x52e8…530c Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x0035, t01=0x0030}
0x530c…533c Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'3' MIGHT BE TRANSTYPE 3«, t00=0x0035, t01=0x0054}
0x533c…535c Head {h00=0x001c, h01=0x0050, text=» CBNE SPBINW2,=W'3',A842«, t00=0x0035, t01=0x0084}
0x535c…5378 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'17'«, t00=0x0035, t01=0x00a4}
0x5378…5384 Head {h00=0x0008, h01=0x0050, text=»A842«, t00=0x0035, t01=0x00c0}
0x5384…53a2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0035, t01=0x00cc}
0x53a2…53c4 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+51',A845 «, t00=0x0035, t01=0x00ea}
0x53c4…53e6 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+52',A845 «, t00=0x0035, t01=0x010c}
0x53e6…53f2 Head {h00=0x0008, h01=0x0050, text=»A843«, t00=0x0035, t01=0x012e}
0x53f2…5406 Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x0035, t01=0x013a}
0x5406…5418 Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x0035, t01=0x014e}
0x5418…5426 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0035, t01=0x0160}
0x5426…5432 Head {h00=0x0008, h01=0x0050, text=»A845«, t00=0x0035, t01=0x016e}
0x5432…544e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW5,=W'4' «, t00=0x0035, t01=0x017a}
0x544e…545e Head {h00=0x000c, h01=0x0050, text=» B A843 «, t00=0x0036, t01=0x0008}
0x545e…5470 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x0018}
0x5470…5498 Head {h00=0x0024, h01=0x0050, text=»A85 CHECK REMITTERING, KONTONR«, t00=0x0036, t01=0x002a}
0x5498…54bc Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'5' FIELD 5 «, t00=0x0036, t01=0x0052}
0x54bc…54e8 Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 CHECK LENGTH«, t00=0x0036, t01=0x0076}
0x54e8…5514 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,=W'10',A850 MUST BE 10 «, t00=0x0036, t01=0x00a2}
0x5514…553c Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0036, t01=0x00ce}
0x553c…554a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0036, t01=0x00f6}
0x554a…5556 Head {h00=0x0008, h01=0x0050, text=»A850«, t00=0x0036, t01=0x0104}
0x5556…558a Head {h00=0x0030, h01=0x0050, text=» CMP SPBINW2,=W'3' ONLY ENTER-KEY ALLOWED«, t00=0x0036, t01=0x0110}
0x558a…559c Head {h00=0x000e, h01=0x0050, text=» BNE A855 «, t00=0x0036, t01=0x0144}
0x559c…55ba Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0036, t01=0x0156}
0x55ba…55de Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x0036, t01=0x0174}
0x55de…55fc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0037, t01=0x0008}
0x55fc…5630 Head {h00=0x0030, h01=0x0050, text=» CBE GSWBIN1,CBIN6,A853 6: REMIT NOT ALLOWED«, t00=0x0037, t01=0x0026}
0x5630…5660 Head {h00=0x002c, h01=0x0050, text=» CMP GSWBIN1,CBIN7 7:KNT.NO. NOT ALLOWED«, t00=0x0037, t01=0x005a}
0x5660…5672 Head {h00=0x000e, h01=0x0050, text=» BE A0570 «, t00=0x0037, t01=0x008a}
0x5672…5692 Head {h00=0x001c, h01=0x0050, text=» CBNE GSWBIN1,CBIN8,A854«, t00=0x0037, t01=0x009c}
0x5692…56ac Head {h00=0x0016, h01=0x0050, text=» TBF TTSUPFLG,A854«, t00=0x0037, t01=0x00bc}
0x56ac…56da Head {h00=0x002a, h01=0x0050, text=» B A0577 8:KNT.NO. NOT ALLOWED IN SUPL«, t00=0x0037, t01=0x00d6}
0x56da…56e6 Head {h00=0x0008, h01=0x0050, text=»A853«, t00=0x0037, t01=0x0104}
0x56e6…5714 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,=W'20' REMIT NOT ALLOWED«, t00=0x0037, t01=0x0110}
0x5714…5722 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0037, t01=0x013e}
0x5722…572e Head {h00=0x0008, h01=0x0050, text=»A854«, t00=0x0037, t01=0x014c}
0x572e…573c Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0037, t01=0x0158}
0x573c…5748 Head {h00=0x0008, h01=0x0050, text=»A855«, t00=0x0037, t01=0x0166}
0x5748…5770 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x0037, t01=0x0172}
0x5770…577e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0038, t01=0x000a}
0x577e…5790 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0038, t01=0x0018}
0x5790…57b8 Head {h00=0x0024, h01=0x0050, text=»A86 CHECK REMITTERING, LEV.NR.«, t00=0x0038, t01=0x002a}
0x57b8…57dc Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x0038, t01=0x0052}
0x57dc…580c Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'8' MIGHT BE TRANSTYPE 8«, t00=0x0038, t01=0x0076}
0x580c…583e Head {h00=0x002e, h01=0x0050, text=» CMP SPBINW1,=W'2' CHECK LENGTH + CPR/CIR «, t00=0x0038, t01=0x00a6}
0x583e…584e Head {h00=0x000c, h01=0x0050, text=» BG A811«, t00=0x0038, t01=0x00d8}
0x584e…5876 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0038, t01=0x00e8}
0x5876…5884 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0038, t01=0x0110}
0x5884…5896 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0038, t01=0x011e}
0x5896…58c0 Head {h00=0x0026, h01=0x0050, text=»A87 CHECK REMITTERING, YD.MODT. «, t00=0x0038, t01=0x0130}
0x58c0…58e6 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'21' FIELD 21 «, t00=0x0038, t01=0x015a}
0x58e6…5916 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'9' MIGHT BE TRANSTYPE 9«, t00=0x0038, t01=0x0180}
0x5916…593c Head {h00=0x0022, h01=0x0050, text=» B A821 CHECK FOR INVALID KEY «, t00=0x0039, t01=0x0020}
0x593c…594e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x0046}
0x594e…595a Head {h00=0x0008, h01=0x0050, text=»A88 «, t00=0x0039, t01=0x0058}
0x595a…597e Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x0039, t01=0x0064}
0x597e…599a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'36'«, t00=0x0039, t01=0x0088}
0x599a…59b4 Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW1,='2'«, t00=0x0039, t01=0x00a4}
0x59b4…59ca Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A885«, t00=0x0039, t01=0x00be}
0x59ca…59f6 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x0039, t01=0x00d4}
0x59f6…5a04 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0039, t01=0x0100}
0x5a04…5a10 Head {h00=0x0008, h01=0x0050, text=»A885«, t00=0x0039, t01=0x010e}
0x5a10…5a3c Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x0039, t01=0x011a}
0x5a3c…5a4a Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0039, t01=0x0146}
0x5a4a…5a5c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x0154}
0x5a5c…5a68 Head {h00=0x0008, h01=0x0050, text=»A89 «, t00=0x0039, t01=0x0166}
0x5a68…5a94 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=W'6' STORE IN FIELD 6«, t00=0x0039, t01=0x0172}
0x5a94…5aa2 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x003a, t01=0x000e}
0x5aa2…5ab4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x001c}
0x5ab4…5ad4 Head {h00=0x001c, h01=0x0050, text=»A90 SIMULATE SLUT KEY «, t00=0x003a, t01=0x002e}
0x5ad4…5aec Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLUTFL «, t00=0x003a, t01=0x004e}
0x5aec…5b04 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTADUPFL «, t00=0x003a, t01=0x0066}
0x5b04…5b2a Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW2,=W'17' SLUT KEY «, t00=0x003a, t01=0x007e}
0x5b2a…5b52 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW1,=W'0' LENGTH ZERO «, t00=0x003a, t01=0x00a4}
0x5b52…5b60 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003a, t01=0x00cc}
0x5b60…5b72 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x00da}
0x5b72…5b92 Head {h00=0x001c, h01=0x0050, text=»A91 ENTER TO SLUT KEY«, t00=0x003a, t01=0x00ec}
0x5b92…5bac Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,=W'3'«, t00=0x003a, t01=0x010c}
0x5bac…5bbc Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x003a, t01=0x0126}
0x5bbc…5bda Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW2,=W'17' «, t00=0x003a, t01=0x0136}
0x5bda…5bea Head {h00=0x000c, h01=0x0050, text=» B ART «, t00=0x003a, t01=0x0154}
0x5bea…5bfc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0164}
0x5bfc…5c20 Head {h00=0x0020, h01=0x0050, text=»A100 CHECK TR 12 COUNTERS «, t00=0x003a, t01=0x0176}
0x5c20…5c3e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003b, t01=0x000a}
0x5c3e…5c5a Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD1,=D'100'«, t00=0x003b, t01=0x0028}
0x5c5a…5c78 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x003b, t01=0x0044}
0x5c78…5ca2 Head {h00=0x0026, h01=0x0050, text=» CBL GSWBIN6,CBIN1,A1009 TOO SMALL«, t00=0x003b, t01=0x0062}
0x5ca2…5cda Head {h00=0x0034, h01=0x0050, text=» CBG GSWBIN6,CTR12(TTASKNR,CBIN2),A1009 TOO HIGH«, t00=0x003b, t01=0x008c}
0x5cda…5d04 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(TTASKNR,CBIN1) «, t00=0x003b, t01=0x00c4}
0x5d04…5d12 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003b, t01=0x00ee}
0x5d12…5d20 Head {h00=0x000a, h01=0x0050, text=»A1009 «, t00=0x003b, t01=0x00fc}
0x5d20…5d3c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x003b, t01=0x010a}
0x5d3c…5d4a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003b, t01=0x0126}
0x5d4a…5d5c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003b, t01=0x0134}
0x5d5c…5d80 Head {h00=0x0020, h01=0x0050, text=»A101 CHECK BEHL. COUNTERS «, t00=0x003b, t01=0x0146}
0x5d80…5d9e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003b, t01=0x016a}
0x5d9e…5dc0 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'1',A101ER «, t00=0x003b, t01=0x0188}
0x5dc0…5dde Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x003c, t01=0x001a}
0x5dde…5e0e Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,CBEH(TTASKNR,CBIN2),A101ER «, t00=0x003c, t01=0x0038}
0x5e0e…5e36 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(TTASKNR,CBIN1)«, t00=0x003c, t01=0x0068}
0x5e36…5e44 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003c, t01=0x0090}
0x5e44…5e52 Head {h00=0x000a, h01=0x0050, text=»A101ER«, t00=0x003c, t01=0x009e}
0x5e52…5e6e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x003c, t01=0x00ac}
0x5e6e…5e7c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003c, t01=0x00c8}
0x5e7c…5e8e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x00d6}
0x5e8e…5eb0 Head {h00=0x001e, h01=0x0050, text=»A102 CHECK RELATIVE DAY «, t00=0x003c, t01=0x00e8}
0x5eb0…5ece Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,CMASKDAT«, t00=0x003c, t01=0x010a}
0x5ece…5edc Head {h00=0x000a, h01=0x0050, text=»A102A «, t00=0x003c, t01=0x0128}
0x5edc…5f0c Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD5,=D'2' INITIATE REL DAY NO.«, t00=0x003c, t01=0x0136}
0x5f0c…5f36 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x003c, t01=0x0166}
0x5f36…5f64 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN2,CBIN8 SET POINTER TO DAY«, t00=0x003c, t01=0x0190}
0x5f64…5f9e Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET DAY «, t00=0x003d, t01=0x002e}
0x5f9e…5fce Head {h00=0x002c, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD DAY TO REL. DAY«, t00=0x003d, t01=0x0068}
0x5fce…5ffe Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN2,CBIN2 SET POINTER TO MONTH «, t00=0x003d, t01=0x0098}
0x5ffe…603a Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET MONTH «, t00=0x003d, t01=0x00c8}
0x603a…606c Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD3,=D'1' GET WHOLE NO. OF MONTHS«, t00=0x003d, t01=0x0104}
0x606c…6096 Head {h00=0x0026, h01=0x0050, text=» MUL GSWBCD3,=D'30' EQUAL IN DAYS «, t00=0x003d, t01=0x0136}
0x6096…60b2 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3«, t00=0x003d, t01=0x0160}
0x60b2…60e2 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET KEYED REL. DAY«, t00=0x003d, t01=0x017c}
0x60e2…60fc Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD5,=D'5'«, t00=0x003e, t01=0x001c}
0x60fc…612a Head {h00=0x002a, h01=0x0050, text=» CBL GSWBCD3,GSWBCD5,A102ER TOO SMALL «, t00=0x003e, t01=0x0036}
0x612a…6146 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,=D'10' «, t00=0x003e, t01=0x0064}
0x6146…6174 Head {h00=0x002a, h01=0x0050, text=» CBG GSWBCD3,GSWBCD5,A102ER TOO LARGE «, t00=0x003e, t01=0x0080}
0x6174…6186 Head {h00=0x000e, h01=0x0050, text=» B A102END«, t00=0x003e, t01=0x00ae}
0x6186…6194 Head {h00=0x000a, h01=0x0050, text=»A102ER«, t00=0x003e, t01=0x00c0}
0x6194…61be Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'11' INVALID VALUE«, t00=0x003e, t01=0x00ce}
0x61be…61ce Head {h00=0x000c, h01=0x0050, text=»A102END «, t00=0x003e, t01=0x00f8}
0x61ce…61ea Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x003e, t01=0x0108}
0x61ea…61f8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003e, t01=0x0124}
0x61f8…620a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003e, t01=0x0132}
0x620a…622c Head {h00=0x001e, h01=0x0050, text=»A103 SET BEHL. COUNTERS «, t00=0x003e, t01=0x0144}
0x622c…624a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x003e, t01=0x0166}
0x624a…6268 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x003e, t01=0x0184}
0x6268…6290 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(GSWBIN1,CBIN1)«, t00=0x003f, t01=0x0012}
0x6290…62bc Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A103ER TOO MANY «, t00=0x003f, t01=0x003a}
0x62bc…62de Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1035 «, t00=0x003f, t01=0x0066}
0x62de…62f8 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x003f, t01=0x0088}
0x62f8…6322 Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN1),GSWBIN6 «, t00=0x003f, t01=0x00a2}
0x6322…633c Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x003f, t01=0x00cc}
0x633c…634a Head {h00=0x000a, h01=0x0050, text=»A1035 «, t00=0x003f, t01=0x00e6}
0x634a…6368 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x003f, t01=0x00f4}
0x6368…6392 Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN2),GSWBIN6 «, t00=0x003f, t01=0x0112}
0x6392…63a0 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003f, t01=0x013c}
0x63a0…63ae Head {h00=0x000a, h01=0x0050, text=»A103ER«, t00=0x003f, t01=0x014a}
0x63ae…63ca Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x003f, t01=0x0158}
0x63ca…63d8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003f, t01=0x0174}
0x63d8…63ea Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x0182}
0x63ea…640c (64, 0, 400) Head {h00=0x001e, h01=0x0050, text=»A104 SET TR 12 COUNTERS «, t00=0x0040, t01=0x0004}
0x640c…642a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT «, t00=0x0040, t01=0x0026}
0x642a…6448 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x0040, t01=0x0044}
0x6448…6472 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(GSWBIN1,CBIN1) «, t00=0x0040, t01=0x0062}
0x6472…649e Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A104ER TOO MANY «, t00=0x0040, t01=0x008c}
0x649e…64c0 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1045 «, t00=0x0040, t01=0x00b8}
0x64c0…64da Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0040, t01=0x00da}
0x64da…6504 Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN1),GSWBIN6«, t00=0x0040, t01=0x00f4}
0x6504…651e Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x0040, t01=0x011e}
0x651e…652c Head {h00=0x000a, h01=0x0050, text=»A1045 «, t00=0x0040, t01=0x0138}
0x652c…654a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x0040, t01=0x0146}
0x654a…6574 Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN2),GSWBIN6«, t00=0x0040, t01=0x0164}
0x6574…6582 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0040, t01=0x018e}
0x6582…6590 Head {h00=0x000a, h01=0x0050, text=»A104ER«, t00=0x0041, t01=0x000c}
0x6590…65ac Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0041, t01=0x001a}
0x65ac…65ba Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0041, t01=0x0036}
0x65ba…65cc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x0044}
0x65cc…65ee Head {h00=0x001e, h01=0x0050, text=»A105 CONRTL.DIGITCALC. «, t00=0x0041, t01=0x0056}
0x65ee…660c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0041, t01=0x0078}
0x660c…662e Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,=W'3',CALCD01«, t00=0x0041, t01=0x0096}
0x662e…664a Head {h00=0x0018, h01=0x0050, text=» CMP SPBINW2,=W'17' «, t00=0x0041, t01=0x00b8}
0x664a…665a Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x0041, t01=0x00d4}
0x665a…666a Head {h00=0x000c, h01=0x0050, text=»CALCD01 «, t00=0x0041, t01=0x00e4}
0x666a…6694 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0041, t01=0x00f4}
0x6694…66b0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'13'«, t00=0x0041, t01=0x011e}
0x66b0…66cc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0041, t01=0x013a}
0x66cc…66dc Head {h00=0x000c, h01=0x0050, text=»CALCD02 «, t00=0x0041, t01=0x0156}
0x66dc…66fa Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,=D'0' «, t00=0x0041, t01=0x0166}
0x66fa…673c Head {h00=0x003e, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT «, t00=0x0041, t01=0x0184}
0x673c…6774 Head {h00=0x0034, h01=0x0050, text=» MUL GSWBCD3,WEIGTH(GSWBIN2) MULTIPLY BY WEIGHT«, t00=0x0042, t01=0x0036}
0x6774…67a2 Head {h00=0x002a, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x0042, t01=0x006e}
0x67a2…67cc Head {h00=0x0026, h01=0x0050, text=» SUB GSWBIN1,=W'1' ADJUST LENGTH«, t00=0x0042, t01=0x009c}
0x67cc…67fc Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,=W'1' ADJUST WEIGHT-INDEX«, t00=0x0042, t01=0x00c6}
0x67fc…681e Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'0',CALCD02«, t00=0x0042, t01=0x00f6}
0x681e…683c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x0042, t01=0x0118}
0x683c…6858 Head {h00=0x0018, h01=0x0050, text=» DIV GSWBCD5,=D'11' «, t00=0x0042, t01=0x0136}
0x6858…6874 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD5,=D'11' «, t00=0x0042, t01=0x0152}
0x6874…68b0 Head {h00=0x0038, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x0042, t01=0x016e}
0x68b0…68d4 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD4,=D'0',CALCD05 «, t00=0x0043, t01=0x001a}
0x68d4…68f0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD4,=D'11'«, t00=0x0043, t01=0x003e}
0x68f0…6900 Head {h00=0x000c, h01=0x0050, text=»CALCD05 «, t00=0x0043, t01=0x005a}
0x6900…691c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'11'«, t00=0x0043, t01=0x006a}
0x691c…6952 Head {h00=0x0032, h01=0x0050, text=» SUB GSWBCD5,GSWBCD4 CALCULATE CONTROLDIGIT «, t00=0x0043, t01=0x0086}
0x6952…6962 Head {h00=0x000c, h01=0x0050, text=» B ART «, t00=0x0043, t01=0x00bc}
0x6962…6974 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x00cc}
0x6974…6998 Head {h00=0x0020, h01=0x0050, text=»A107 POSTDATO=MASKINDATO ?«, t00=0x0043, t01=0x00de}
0x6998…69b6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT «, t00=0x0043, t01=0x0102}
0x69b6…69da Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD7,CMASKDAT,A1075«, t00=0x0043, t01=0x0120}
0x69da…69e8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0043, t01=0x0144}
0x69e8…69f6 Head {h00=0x000a, h01=0x0050, text=»A1075 «, t00=0x0043, t01=0x0152}
0x69f6…6a0c Head {h00=0x0012, h01=0x0050, text=» SET SPWARNFL «, t00=0x0043, t01=0x0160}
0x6a0c…6a1a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0043, t01=0x0176}
0x6a1a…6a2c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0184}
0x6a2c…6a4a Head {h00=0x001a, h01=0x0050, text=»A108 SPG-REGKONTONR «, t00=0x0044, t01=0x0008}
0x6a4a…6a66 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'5' «, t00=0x0044, t01=0x0026}
0x6a66…6a74 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0044, t01=0x0042}
0x6a74…6a86 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0044, t01=0x0050}
0x6a86…6aa4 Head {h00=0x001a, h01=0x0050, text=»A109 SPG-CPR/CIR/NR «, t00=0x0044, t01=0x0062}
0x6aa4…6ac0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'6' «, t00=0x0044, t01=0x0080}
0x6ac0…6ace Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0044, t01=0x009c}
0x6ace…6ae0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0044, t01=0x00aa}
0x6ae0…6af8 Head {h00=0x0014, h01=0x0050, text=»A110 SPG-BELOB«, t00=0x0044, t01=0x00bc}
0x6af8…6b14 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'8' «, t00=0x0044, t01=0x00d4}
0x6b14…6b22 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0044, t01=0x00f0}
0x6b22…6b34 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0044, t01=0x00fe}
0x6b34…6b52 Head {h00=0x001a, h01=0x0050, text=»A111 SPG-OTHER FIELD«, t00=0x0044, t01=0x0110}
0x6b52…6b70 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0044, t01=0x012e}
0x6b70…6b94 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBCD6,=D'90',A111ERR «, t00=0x0044, t01=0x014c}
0x6b94…6bb0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'0' «, t00=0x0044, t01=0x0170}
0x6bb0…6bbe Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0044, t01=0x018c}
0x6bbe…6bce Head {h00=0x000c, h01=0x0050, text=»A111ERR «, t00=0x0045, t01=0x000a}
0x6bce…6bea Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0045, t01=0x001a}
0x6bea…6bf8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0045, t01=0x0036}
0x6bf8…6c0a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0045, t01=0x0044}
0x6c0a…6c28 Head {h00=0x001a, h01=0x0050, text=»APK KEEP INFORMATION«, t00=0x0045, t01=0x0056}
0x6c28…6c50 Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APK00 FIRST FIELD?«, t00=0x0045, t01=0x0074}
0x6c50…6c70 Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW3,=W'5',APK10«, t00=0x0045, t01=0x009c}
0x6c70…6c98 Head {h00=0x0024, h01=0x0050, text=» MOVE GTKTTYP,=D'0' NOT KONTONR.«, t00=0x0045, t01=0x00bc}
0x6c98…6ca6 Head {h00=0x000a, h01=0x0050, text=»APK10 «, t00=0x0045, t01=0x00e4}
0x6ca6…6ccc Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0045, t01=0x00f2}
0x6ccc…6cde Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0045, t01=0x0118}
0x6cde…6d04 Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0045, t01=0x012a}
0x6d04…6d12 Head {h00=0x000a, h01=0x0050, text=»APK00 «, t00=0x0045, t01=0x0150}
0x6d12…6d4c Head {h00=0x0036, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF FIELD «, t00=0x0045, t01=0x015e}
0x6d4c…6d84 Head {h00=0x0034, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 STORE FIELDNUMBER «, t00=0x0046, t01=0x0008}
0x6d84…6d92 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0046, t01=0x0040}
0x6d92…6da4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x004e}
0x6da4…6db0 Head {h00=0x0008, h01=0x0050, text=»APF «, t00=0x0046, t01=0x0060}
0x6db0…6dd8 Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APF00 FIRST FIELD?«, t00=0x0046, t01=0x006c}
0x6dd8…6df4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTKTTYP,=D'0' «, t00=0x0046, t01=0x0094}
0x6df4…6e1a Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0046, t01=0x00b0}
0x6e1a…6e2c Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0046, t01=0x00d6}
0x6e2c…6e52 Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0046, t01=0x00e8}
0x6e52…6e60 Head {h00=0x000a, h01=0x0050, text=»APF00 «, t00=0x0046, t01=0x010e}
0x6e60…6e7a Head {h00=0x0016, h01=0x0050, text=» TBT SPDUPL,APF10 «, t00=0x0046, t01=0x011c}
0x6e7a…6ea2 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET VALUE «, t00=0x0046, t01=0x0136}
0x6ea2…6ebe Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD6,GTDBKRS«, t00=0x0046, t01=0x015e}
0x6ebe…6edc Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x0046, t01=0x017a}
0x6edc…6eea Head {h00=0x000a, h01=0x0050, text=»APF10 «, t00=0x0047, t01=0x0008}
0x6eea…6f2c Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF CURRENT FIELD «, t00=0x0047, t01=0x0016}
0x6f2c…6f5a Head {h00=0x002a, h01=0x0050, text=»* MULTIPLY WITH -1 IF KREDIT «, t00=0x0047, t01=0x0058}
0x6f5a…6f9c Head {h00=0x003e, h01=0x0050, text=»* STORE NEGATIVE FIELD NUMBER (NUMBER WITH SIGN) «, t00=0x0047, t01=0x0086}
0x6f9c…6fc2 Head {h00=0x0022, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 «, t00=0x0047, t01=0x00c8}
0x6fc2…6fe6 Head {h00=0x0020, h01=0x0050, text=» MUL GTUSED(GSWBIN1),=W'-1' «, t00=0x0047, t01=0x00ee}
0x6fe6…6ff4 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0047, t01=0x0112}
0x6ff4…7006 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0047, t01=0x0120}
0x7006…7012 Head {h00=0x0008, h01=0x0050, text=»ART «, t00=0x0047, t01=0x0132}
0x7012…702e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0047, t01=0x013e}
0x702e…704e Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW4,CBIN3,ARET «, t00=0x0047, t01=0x015a}
0x704e…706a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x0047, t01=0x017a}
0x706a…7076 Head {h00=0x0008, h01=0x0050, text=»ARET«, t00=0x0048, t01=0x0008}
0x7076…7082 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0048, t01=0x0014}
0x7082…7090 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0048, t01=0x0020}
0x7090…70ac Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x002e}
0x70ac…70ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x004a}
0x70ba…70ce Head {h00=0x0010, h01=0x0050, text=»SETKRE PROC «, t00=0x0048, t01=0x0058}
0x70ce…70ea Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x006c}
0x70ea…70f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0088}
0x70f4…7128 Head {h00=0x0030, h01=0x0050, text=»* SETKRE - SET KREDIT INFORMATION «, t00=0x0048, t01=0x0092}
0x7128…7132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00c6}
0x7132…714e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x00d0}
0x714e…716c Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' KRE'«, t00=0x0048, t01=0x00ec}
0x716c…7188 Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'-1'«, t00=0x0048, t01=0x010a}
0x7188…71a4 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'1' «, t00=0x0048, t01=0x0126}
0x71a4…71c0 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,=W'1' «, t00=0x0048, t01=0x0142}
0x71c0…71cc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0048, t01=0x015e}
0x71cc…71da Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0048, t01=0x016a}
0x71da…71e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0178}
0x71e4…71ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0182}
0x71ee…71f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x018c}
0x71f8…7202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0008}
0x7202…720c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0012}
0x720c…7220 Head {h00=0x0010, h01=0x0050, text=»SETDEB PROC «, t00=0x0049, t01=0x001c}
0x7220…723c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0049, t01=0x0030}
0x723c…7246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x004c}
0x7246…7278 Head {h00=0x002e, h01=0x0050, text=»* SETDEB - SET DEBET INFORMATION «, t00=0x0049, t01=0x0056}
0x7278…7282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0088}
0x7282…729e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0049, t01=0x0092}
0x729e…72bc Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' DEB'«, t00=0x0049, t01=0x00ae}
0x72bc…72d8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'+1'«, t00=0x0049, t01=0x00cc}
0x72d8…72f4 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'2' «, t00=0x0049, t01=0x00e8}
0x72f4…7310 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,=W'2' «, t00=0x0049, t01=0x0104}
0x7310…731c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0049, t01=0x0120}
0x731c…732a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0049, t01=0x012c}
0x732a…7338 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x013a}
0x7338…734a Head {h00=0x000e, h01=0x0050, text=»CLRSW PROC«, t00=0x0049, t01=0x0148}
0x734a…7366 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0049, t01=0x015a}
0x7366…7370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0176}
0x7370…73a2 Head {h00=0x002e, h01=0x0050, text=»* CLRSW - CLEAR ALL AUTODUP FLAGS«, t00=0x0049, t01=0x0180}
0x73a2…73ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0022}
0x73ac…73c8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004a, t01=0x002c}
0x73c8…73e4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x004a, t01=0x0048}
0x73e4…73f2 Head {h00=0x000a, h01=0x0050, text=»CLRSW1«, t00=0x004a, t01=0x0064}
0x73f2…7418 Head {h00=0x0022, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN0 «, t00=0x004a, t01=0x0072}
0x7418…7432 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x004a, t01=0x0098}
0x7432…7456 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,CLRSW1 «, t00=0x004a, t01=0x00b2}
0x7456…7462 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x00d6}
0x7462…7470 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004a, t01=0x00e2}
0x7470…747e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x00f0}
0x747e…7490 Head {h00=0x000e, h01=0x0050, text=»SELTR PROC«, t00=0x004a, t01=0x00fe}
0x7490…74ac Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004a, t01=0x0110}
0x74ac…74b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x012c}
0x74b6…74f8 Head {h00=0x003e, h01=0x0050, text=»* SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN «, t00=0x004a, t01=0x0136}
0x74f8…7514 Head {h00=0x0018, h01=0x0050, text=»* SELECTED.«, t00=0x004a, t01=0x0178}
0x7514…7548 (75, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* SELECTED TRANSTYPE IS IN SPBINW5 «, t00=0x004b, t01=0x0004}
0x7548…7552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0038}
0x7552…756e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004b, t01=0x0042}
0x756e…7598 Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,=W'3',SELOK ENTER KEY«, t00=0x004b, t01=0x005e}
0x7598…75c4 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'18',SEL10 KREDIT KEY«, t00=0x004b, t01=0x0088}
0x75c4…75f0 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'17',SEL20 DEBET KEY «, t00=0x004b, t01=0x00b4}
0x75f0…7618 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x004b, t01=0x00e0}
0x7618…7640 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x004b, t01=0x0108}
0x7640…764c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004b, t01=0x0130}
0x764c…7662 Head {h00=0x0012, h01=0x0050, text=»SEL10 KREDIT«, t00=0x004b, t01=0x013c}
0x7662…7676 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x004b, t01=0x0152}
0x7676…7686 Head {h00=0x000c, h01=0x0050, text=» B SEL30«, t00=0x004b, t01=0x0166}
0x7686…769c Head {h00=0x0012, h01=0x0050, text=»SEL20 DEBET «, t00=0x004b, t01=0x0176}
0x769c…76b0 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x004b, t01=0x018c}
0x76b0…76d2 Head {h00=0x001e, h01=0x0050, text=»SEL30 TRANSTYPE SELECTED«, t00=0x004c, t01=0x0010}
0x76d2…76f0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x004c, t01=0x0032}
0x76f0…7708 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x004c, t01=0x0050}
0x7708…7730 Head {h00=0x0024, h01=0x0050, text=» SEL40,SEL40,SEL90,SEL40,SEL40 «, t00=0x004c, t01=0x0068}
0x7730…7740 Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x004c, t01=0x0090}
0x7740…774e Head {h00=0x000a, h01=0x0050, text=»SEL40 «, t00=0x004c, t01=0x00a0}
0x774e…7766 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW5, C «, t00=0x004c, t01=0x00ae}
0x7766…77a6 Head {h00=0x003c, h01=0x0050, text=» SEL90,SEL45,SEL90,SEL90,SEL90,SEL90,SEL90,SEL45,SEL90 «, t00=0x004c, t01=0x00c6}
0x77a6…77b4 Head {h00=0x000a, h01=0x0050, text=»SEL45 «, t00=0x004c, t01=0x0106}
0x77b4…77d4 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBIN1,CBIN3,SEL50«, t00=0x004c, t01=0x0114}
0x77d4…77f2 Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x004c, t01=0x0134}
0x77f2…7802 Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x004c, t01=0x0152}
0x7802…7810 Head {h00=0x000a, h01=0x0050, text=»SEL50 «, t00=0x004c, t01=0x0162}
0x7810…7832 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'19' ERROR«, t00=0x004c, t01=0x0170}
0x7832…784a (77, 2, 358) Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x004d, t01=0x0004}
0x784a…7856 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004d, t01=0x001c}
0x7856…7864 Head {h00=0x000a, h01=0x0050, text=»SEL90 «, t00=0x004d, t01=0x0028}
0x7864…7886 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGNR,SPBINW5 TYPE«, t00=0x004d, t01=0x0036}
0x7886…78bc Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGDEX,SPBINW5 TYPE INDEX. OK FOR <11 «, t00=0x004d, t01=0x0058}
0x78bc…78f0 Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANS SELECTED«, t00=0x004d, t01=0x008e}
0x78f0…7904 Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x004d, t01=0x00c2}
0x7904…7912 Head {h00=0x000a, h01=0x0050, text=»SELOK «, t00=0x004d, t01=0x00d6}
0x7912…7938 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x004d, t01=0x00e4}
0x7938…7944 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004d, t01=0x010a}
0x7944…7952 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004d, t01=0x0116}
0x7952…795c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0124}
0x795c…7966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x012e}
0x7966…7970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0138}
0x7970…797a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0142}
0x797a…7984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x014c}
0x7984…7990 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004d, t01=0x0156}
0x7990…7994 Head {h00=0x4004, h01=0x0000}
0x7994…7998 00 4d 01 62 ┆ M b┆
0x7998…79a0 (78, 1, 8) 20 04 00 00 00 4e 00 04 ┆ N ┆
0x79a0…79f0 (79, 0, 400) 2d 82 31 df 71 20 df 71 27 df 71 2a df 71 2b df 71 2c df 71 2d e1 e1 e1 e1 e1 e1 e1 e1 c3 03 42 45 4c 81 5c 81 42 c3 03 56 41 4c 81 5c c3 05 52 44 41 54 4f e0 e1 e1 51 05 08 0d 51 20 0c 05 da 9a 07 05 8f 20 e1 81 20 c0 0c 0a 82 31 c1 41 86 ┆- 1 q q' q* q+ q, q- BEL B VAL RDATO Q Q 1 A ┆
0x79f0…7a40 89 20 51 0f 07 0a e1 c1 41 7e 51 1e 08 08 51 21 08 09 84 20 e1 e0 c1 41 84 da 95 02 05 f0 14 01 03 00 51 1e 08 0d db 95 02 11 e1 e1 c1 41 71 c0 0c 0a e1 e1 c1 41 6e 51 1e 08 0d e0 c1 41 86 89 20 51 0f 07 0a e1 c1 41 81 f0 0d 01 03 00 51 1e ┆ Q A~Q Q! A Q Aq AnQ A Q A Q ┆
0x7a40…7a90 08 08 f0 11 01 03 00 51 21 08 09 e1 e1 c1 41 82 e1 c1 41 87 f0 23 01 01 00 51 1c 08 0a e0 c0 0a 0e 81 20 c1 41 78 c4 18 c1 41 2d f0 1b 0a 0a 01 51 25 0c 00 e1 df 71 29 51 0f 0d 0f 01 07 e1 df 71 28 82 20 51 27 0d 0f 01 04 e1 c1 41 70 51 05 ┆ Q! A A # Q Ax A- Q% q)Q q( Q' ApQ ┆
0x7a90…7ae0 0d 0f 02 05 c4 0b c0 0c 0a c4 23 51 1d 0c 05 e1 c1 41 80 51 26 0d 0f 02 07 51 26 0d 0f 02 08 e1 c1 41 79 51 24 0d 0f 01 01 c4 17 c1 41 6c 51 1d 0d 0f 01 06 e0 db 9b 02 16 c0 0a 0e 81 20 c1 41 78 c4 18 c1 41 6b f0 1b 00 00 00 51 25 0c 00 e1 ┆ #Q A Q& Q& AyQ$ AlQ Ax Ak Q% ┆
0x7ae0…7b30 c1 41 83 51 0f 0d 0f 01 0a c4 16 51 29 0d 0f 01 0b e1 c1 41 7c c4 16 51 29 0d 0f 02 00 e1 c1 41 6f df 71 29 c4 11 51 0f 0d 0f 02 01 e1 c1 41 73 df 71 28 c4 11 51 28 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ A Q Q) A| Q) Ao q) Q As q( Q( ┆
0x7b30…7b80 (80, 0, 400) 0f 02 02 e1 c1 41 7f df 71 28 c4 11 51 28 0d 0f 02 03 e1 c1 41 7a df 71 28 c4 11 51 29 0d 0f 02 04 e0 c0 0a 0e 81 20 c1 41 78 c4 18 c1 41 2d da 9a 03 1a db 9a 04 0b f0 1b 8a 0a 01 51 25 0c 00 d8 c1 f0 1b 0a 0a 01 51 25 0c 00 d8 b6 c4 1b 51 ┆ A q( Q( Az q( Q) Ax A- Q% Q% Q┆
0x7b80…7bd0 25 0c 00 da 9a 04 09 f0 24 00 00 00 51 00 08 0d c1 41 6d db 9a 04 05 f0 06 c0 1e 00 c0 0c 06 e1 c1 41 69 db 9a 04 05 f0 05 c0 20 00 c0 0c 07 e1 c1 41 6a db 9a 04 05 f0 05 40 14 00 c0 0c 08 e1 c1 41 75 db 9a 04 05 f0 08 84 04 00 51 1f 0c 01 ┆% $ Q Am Ai Aj @ Au Q ┆
0x7bd0…7c20 c4 0e c1 41 72 db 9a 04 05 f0 15 c0 0d 00 c0 0c 09 e1 c1 41 77 db 9a 04 05 f0 0a 80 01 00 51 1d 0c 02 c4 0e c1 41 74 db 9a 04 05 f0 15 07 07 01 51 22 0c 03 e1 c1 41 76 db 9a 04 05 f0 09 0a 0a 01 51 25 0c 04 db 9a 04 06 c4 1d 51 23 00 00 e1 ┆ Ar Aw Q At Q" Av Q% Q# ┆
0x7c20…7c70 da 9a 07 03 c1 41 85 da 9a 04 08 da 9b 02 04 e1 df 71 2f 71 2d 71 2c 71 30 71 2f 71 2e 71 26 71 25 71 24 71 23 71 22 71 21 da 20 02 00 00 20 02 00 02 20 02 00 04 00 03 00 06 00 03 00 09 00 03 00 0c 00 03 00 0f 00 04 00 12 00 05 00 16 00 06 ┆ A q/q-q,q0q/q.q&q%q$q#q"q! ┆
0x7c70…7cc0 00 1b 00 06 00 21 00 06 00 27 00 07 00 2d 00 07 00 34 00 07 00 3b 00 07 00 42 00 08 00 49 00 09 00 51 00 09 00 5a 00 09 00 63 00 09 00 6c 00 09 00 75 00 09 00 7e 00 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ ! ' - 4 ; B I Q Z c l u ~ ┆
0x7cc0…7d10 (81, 0, 400) 00 87 00 0a 00 90 00 0a 00 9a 00 0a 00 a4 00 0b 00 ae 00 0b 00 b9 00 0b 00 c4 00 10 00 cf 00 13 00 df 00 14 00 f2 00 1d 01 06 30 02 01 23 10 01 00 00 10 01 00 01 10 03 00 02 10 04 00 05 10 05 00 09 10 05 00 0e 10 07 00 13 10 08 00 1a 10 0a ┆ 0 # ┆
0x7d10…7d60 00 22 10 0a 00 2c 10 0b 00 36 10 0e 00 41 10 0f 00 4f 10 10 00 5e 00 02 00 00 00 03 00 02 00 03 00 05 00 03 00 08 00 03 00 0b 00 03 00 0e 00 03 00 11 00 08 00 14 00 09 00 1c 00 0e 00 25 00 17 00 33 00 1a 00 4a 00 26 00 64 00 32 00 8a 00 67 ┆ " , 6 A O ^ % 3 J & d 2 g┆
0x7d60…7db0 00 bc 00 75 01 23 00 e2 01 98 40 0a 02 7a 40 0c 02 84 09 ea 05 c6 0a 76 06 eb 0a ae 07 59 c0 0a 0e 81 20 c1 41 78 c4 18 c1 41 2d f0 1b 0a 0a 01 51 25 0c 00 e1 df 71 29 51 0f 0d 0f 01 07 e1 df 71 28 82 20 51 27 0d 0f 01 04 e1 c1 41 70 51 05 ┆ u # @ z@ v Y Ax A- Q% q)Q q( Q' ApQ ┆
0x7db0…7e00 0d 0f 02 05 c4 0b c0 0c 0a c4 23 51 1d 0c 05 e1 c1 41 80 51 26 0d 0f 02 07 51 26 0d 0f 02 08 e1 c1 41 79 51 24 0d 0f 01 01 c4 17 c1 41 6c 51 1d 0d 0f 01 06 e0 db 9b 02 16 c0 0a 0e 81 20 c1 41 78 c4 18 c1 41 6b f0 1b 00 00 00 51 25 0c 00 e1 ┆ #Q A Q& Q& AyQ$ AlQ Ax Ak Q% ┆
0x7e00…7e50 c1 41 83 51 0f 0d 0f 01 0a c4 16 51 29 0d 0f 01 0b e1 c1 41 7c c4 16 51 29 0d 0f 02 00 e1 c1 41 6f df 71 29 c4 11 51 0f 0d 0f 02 01 e1 c1 41 73 df 71 28 c4 11 51 28 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ A Q Q) A| Q) Ao q) Q As q( Q( ┆
0x7e50…7ea0 (82, 0, 400) 22 05 00 64 2a 2a 00 0a 01 8e 00 0c 00 07 00 03 22 05 00 6a 2a 2a 00 0b 00 0e 00 0c 00 07 00 03 22 05 00 ba 2a 2a 00 0b 00 1e 00 08 00 04 00 01 28 02 00 0b 00 2e 00 0c 00 08 00 03 20 06 00 3a 00 08 00 0b 00 3a 00 0a 00 06 00 02 26 04 82 20 ┆" d** " j** " ** ( . : : & ┆
0x7ea0…7ef0 00 0b 00 4a 00 0c 00 08 00 03 24 06 df 00 b6 2a 00 0b 00 58 00 12 00 0e 00 06 16 0c 00 3b 00 06 20 20 4b 56 49 54 00 0b 00 68 00 0c 00 08 00 03 24 06 c1 00 3b 2a 00 0b 00 7e 00 08 00 04 00 01 28 02 00 0b 00 8e 00 0c 00 08 00 03 20 06 00 3c ┆ J $ * X ; KVIT h $ ;* ~ ( <┆
0x7ef0…7f40 00 05 00 0b 00 9a 00 0a 00 06 00 02 26 04 82 20 00 0b 00 aa 00 0c 00 08 00 03 24 06 df 00 3d 2a 00 0b 00 b8 00 08 00 04 00 01 28 02 00 0b 00 c8 00 0c 00 08 00 03 20 06 00 3d 00 10 00 0b 00 d4 00 0c 00 08 00 03 24 06 df 00 b6 2a 00 0b 00 e4 ┆ & $ =* ( = $ * ┆
0x7f40…7f90 00 0a 00 06 00 02 26 04 82 20 00 0b 00 f4 00 16 00 11 00 08 16 0f 00 3e 00 09 4b 4f 4e 54 4f 4b 4f 52 54 00 00 0b 01 02 00 0c 00 08 00 03 24 06 c1 00 3e 2a 00 0b 01 1c 00 0c 00 08 00 03 26 06 da 9a 0c 04 00 0b 01 2c 00 1e 00 1a 00 0c 1a 18 ┆ & > KONTOKORT $ >* & , ┆
0x7f90…7fe0 00 3f 10 12 42 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2d 00 0b 01 3c 00 0e 00 09 00 04 22 07 00 3f 2a 0e 08 02 00 0b 01 5e 00 08 00 04 00 01 28 02 00 0b 01 70 00 0c 00 08 00 03 20 06 00 40 00 05 00 0b 01 7c 00 0a 00 06 00 02 26 04 ┆ ? B*.***.***.**9.99- < " ?* ^ ( p @ | & ┆
0x7fe0…8030 (83, 0, 400) 82 20 00 0b 01 8c 00 16 00 11 00 08 16 0f 00 41 00 09 53 54 41 52 54 20 53 55 4d 2a 00 0c 00 0a 00 0c 00 08 00 03 24 06 c1 00 41 2a 00 0c 00 24 00 08 00 04 00 01 28 02 00 0c 00 34 00 0c 00 08 00 03 20 06 00 42 00 06 00 0c 00 40 00 0c 00 08 ┆ A START SUM* $ A* $ ( 4 B @ ┆
0x8030…8080 00 03 24 06 df 00 c3 2a 00 0c 00 50 00 10 00 0c 00 05 16 0a 00 43 00 04 20 53 55 4d 00 0c 00 60 00 0c 00 08 00 03 24 06 c1 00 43 2a 00 0c 00 74 00 08 00 04 00 01 28 02 00 0c 00 84 00 0c 00 08 00 03 20 06 00 44 00 03 00 0c 00 90 00 0c 00 08 ┆ $ * P C SUM ` $ C* t ( D ┆
0x8080…80d0 00 03 24 06 df 00 45 2a 00 0c 00 a0 00 08 00 04 00 01 28 02 00 0c 00 b0 00 0c 00 08 00 03 20 06 00 45 00 61 00 0c 00 bc 00 0a 00 06 00 02 26 04 82 20 00 0c 00 cc 00 0a 00 06 00 02 26 04 b2 2a 00 0c 00 da 00 0a 00 05 00 02 26 03 e8 2a 00 0c ┆ $ E* ( E a & & * & * ┆
0x80d0…8120 00 e8 00 0a 00 06 00 02 26 04 82 20 00 0c 00 f6 00 10 00 10 00 07 26 0e c3 0a 56 45 52 53 4e 52 00 0c 01 04 00 16 00 11 00 08 16 0f 00 46 00 09 44 41 47 53 2d 44 41 54 4f 00 00 0c 01 18 00 0c 00 08 00 03 24 06 c1 00 46 2a 00 0c 01 32 00 0a ┆ & & VERSNR F DAGS-DATO $ F* 2 ┆
0x8120…8170 00 06 00 02 26 04 82 20 00 0c 01 42 00 16 00 11 00 08 16 0f 00 47 00 09 50 4f 53 54 2d 44 41 54 4f 00 00 0c 01 50 00 0c 00 08 00 03 24 06 c1 00 47 2a 00 0c 01 6a 00 0a 00 06 00 02 26 04 82 20 00 0c 01 7a 00 16 00 11 00 08 16 0f 00 48 00 09 ┆ & B G POST-DATO P $ G* j & z H ┆
0x8170…81c0 (84, 0, 398) 4d 41 53 4b 49 4e 20 4e 52 00 00 0c 01 88 00 0c 00 08 00 03 24 06 c1 00 48 2a 00 0d 00 12 00 16 00 11 00 08 16 0f 00 49 00 09 20 45 4b 53 2e 4c 42 4e 52 00 00 0d 00 22 00 0c 00 08 00 03 24 06 c1 00 49 2a 00 0d 00 3c 00 0a 00 05 00 02 26 03 ┆MASKIN NR $ H* I EKS.LBNR " $ I* < & ┆
0x81c0…8210 e8 00 00 0d 00 4c 00 0a 00 06 00 02 26 04 82 20 00 0d 00 5a 00 0c 00 07 00 03 26 05 c0 0e 01 2a 00 0d 00 68 00 18 00 13 00 09 1a 11 00 4a 10 0b 39 39 2e 39 39 2e 39 39 39 2e 39 00 00 0d 00 78 00 0e 00 09 00 04 22 07 00 4a 2a 04 0b 53 00 0d ┆ L & Z & * h J 99.99.999.9 x " J* S ┆
0x8210…8260 00 94 00 0a 00 06 00 02 26 04 82 20 00 0d 00 a6 00 16 00 12 00 08 1a 10 00 4b 10 0a 39 39 45 2d 39 39 45 2d 39 39 00 0d 00 b4 00 0e 00 09 00 04 22 07 00 4b 2a 07 0a 53 00 0d 00 ce 00 0a 00 06 00 02 26 04 83 20 00 0d 00 e0 00 16 00 12 00 08 ┆ & K 99E-99E-99 " K* S & ┆
0x8260…82b0 1a 10 00 4c 10 0a 39 39 45 2d 39 39 45 2d 39 39 00 0d 00 ee 00 0e 00 09 00 04 22 07 00 4c 2a 0d 0c 53 00 0d 01 08 00 0a 00 06 00 02 26 04 83 20 00 0d 01 1a 00 10 00 0b 00 05 1a 09 00 4d 10 03 39 39 39 52 00 0d 01 28 00 0e 00 09 00 04 22 07 ┆ L 99E-99E-99 " L* S & M 999R ( " ┆
0x82b0…82fe 00 4d 2a 0d 0b 53 00 0d 01 3c 00 0a 00 06 00 02 26 04 87 20 00 0d 01 4e 00 12 00 0d 00 06 1a 0b 00 4e 10 05 2a 2a 2a 39 39 20 00 0d 01 5c 00 0e 00 09 00 04 22 07 00 4e 2a 0f 03 53 00 0d 01 72 00 0a 00 06 00 02 26 04 83 20 00 0d 01 84 ┆ M* S < & N N ***99 " N* S r & ┆