DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦ca992d767⟧

    Length: 33534 (0x82fe)
    Notes: pts_type(SC)
    Names: »SUBAPL.SC«

Derivation

└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
    └─⟦this⟧ »REMIT2/SUBAPL.SC« 

PTS(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

HexDump

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      &       ┆

Reduced view