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

⟦c35ae915d⟧

    Length: 39906 (0x9be2)
    Notes: pts_type(SC)
    Names: »SUBAPL.SC«

Derivation

└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
    └─⟦this⟧ »REMIT2/SUBAPL.SC« 

PTS(SC)

 IDENT SUBAPL 820903 NJ 
	DDUM	KMD08 
	PDIV 
	ENTRY	SPAPPL 
	ENTRY	SPCHK1 
	ENTRY	SPCHK2 
	ENTRY	SPCHK3 
	ENTRY	SPCHK4 
	ENTRY	SPCHK5 
	ENTRY	SPCHK6 
	ENTRY	SPCHK7 
	ENTRY	SPTCHK 
	ENTRY	SETKRE 
	ENTRY	SETDEB 
 ENTRY SELTR
 ENTRY CHDATO 
 ENTRY XCOP 
 ENTRY YYMMDD 
 EXT KBTEST 
 EXT ABORT
 EXT SPLIN8 
	EXT	PACKCL 
	EXT	CRKJ 
	EXT	KKCH 
 EXT KTPLAN 
 EXT TXTRD
 EXT LEVRD
 EXT REPL00 
	INCLUDE	EQUATE 
* 
SPCHK1	PROC 
********************
* 
*          SPCHK1 - CDVCHECK
* 
*          PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT
*          IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4
* 
********************
	MOVE	SPBINW3,CBIN1	INITIAL ERRORCODE 
	MOVE	GSWBIN1,SPBINW1	GET LENGTH
	CBL	GSWBIN1,CBIN3,CHK1RET	FOR LENGTH < 3, NO CHECK 
	CBL	GSWBIN1,CBIN7,CHK1ER	IF 2<LENGTH<7, ERROR
	CBE	GSWBIN1,CBIN7,CHK10	IF LENGTH = 7, OK  (CIRNR) 
	CBNE	GSWBIN1,CBIN10,CHK1ER	IF LENGTH = 10, OK   (CPRNR)
CHK10 
	MOVE	GSWBIN2,CBIN13
	MOVE	GSWBCD5,=D'0' 
	MOVE	GSWBCD6,SPINPUT	GET ITEM TO BE CHECKED
 TBT GTADMFLG,CHK11 
 CBL GSWBCD6,=D'1',CHK1ER 

CHK11	MOVE	GSWBCD3,=D'1'	BLANK GSWBCD3
	COPY	GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2	GET NEXT DIGIT
	MUL	GSWBCD3,WEIGTH1(GSWBIN2)	MULTIPLY WITH WEIGTH
	ADD	GSWBCD5,GSWBCD3	ADD TO OLD SUM 
	SUB	GSWBIN2,CBIN1	ADJUST WEIGHT INDEX
	SUB	GSWBIN1,CBIN1	ADJUST LENGTH OF ITEM
	CBNE	GSWBIN1,CBIN0,CHK11	BACK TO NEXT DIGIT
	MOVE	GSWBCD4,GSWBCD5 
	DIV	GSWBCD5,=D'11'	DIVIDE BY 11
	MUL	GSWBCD5,=D'11'	MULTIPLY WITH 11
	SUB	GSWBCD4,GSWBCD5	GET REMAINDER MOD 11 
 CBL GSWBCD4,=D'1',CHK1RET IF REMAINDER 0, THEN RETURN
CHK1ER
	MOVE	SPBINW4,CBIN6 
	MOVE	SPBINW3,CBIN3	SET ERROR VALUE 
* 
CHK1RET 
	RET
	PEND 
	EJECT
SPCHK2	PROC 
********************
* 
*          SPCHK2 - CHECK DATE
* 
*          CHECKS  0<DAY<32  AND  0<MONTH<13
*          DATE IS IN THE FORM  DDMMYY
*          INPUT FIELD: SPINPUT 
* 
*          IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4
* 
********************

	MOVE	SPBINW3,CBIN1	INITIAL ERRORCODE 
	MOVE	GSWBCD3,=D'1'	BLANK GSWBCD3 
	MOVE	GSWBCD6,SPINPUT	GET DATE
	MOVE	GSWBIN2,CBIN10	SET POINTER TO MONTH 
	COPY	GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2	GET MONTH 
	CBG	GSWBCD3,=D'12',CH29	CHECK MONTH
	CBL	GSWBCD3,=D'1',CH29 
	SUB	GSWBIN2,CBIN2	ADJUST POINTER TO DAY
	COPY	GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2	GET DAY 
	CBG	GSWBCD3,=D'31',CH29
	CBL	GSWBCD3,=D'1',CH29 
	B	CH2RET 
CH29
	MOVE	SPBINW3,CBIN3	INDICATE ERROR
	MOVE SPBINW4,CBIN7	SET ERRORCODE 
CH2RET
 MOVE GSWBCD3,=X'FF'
	RET
	PEND 
	EJECT
SPCHK3	PROC 
****************
* 
*         SPCHK3 - CHECK MONTH
* 
*          CHECKS  0<MONTH<13 
*          MONTH IS IN THE FORM  MM 
*         INPUT FIELD: SPINPUT
* 
*          IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4
* 
******************
	MOVE	GSWBCD3,SPINPUT	GET MONTH 
	CBG	GSWBCD3,=D'12',CH39	CHECK MONTH
	CBL	GSWBCD3,=D'1',CH39 
	MOVE	SPBINW3,CBIN1	SET ERRORCODE OK
	B	CH3RET 
CH39
	MOVE	SPBINW3,CBIN3	INDICATE ERROR
	MOVE	SPBINW4,CBIN7	SET ERRORCODE 
CH3RET
	RET
	PEND 
	EJECT
SPCHK4	PROC 
********************
* 
*          SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY 
* 
********************
	MOVE	SPBINW3,CBIN1 
	CBNE	SPBINW2,CBIN18,CH4RET 
	MOVE	GSWBCD7,SPINPUT	IF KREDIT KEY 
	MUL	GSWBCD7,=D'-1' 
	MOVE	SPINPUT,GSWBCD7 
	MOVE	SPBINW2,CBIN3	SIMULATE EOI-KEY
CH4RET
	RET
	PEND 
	EJECT
SPCHK5	PROC 
********************
* 
*          SPCHK5 - CHECK LINE NUMBER 
* 
******************* 
	MOVE	SPBINW3,CBIN1 
	MOVE	GSWBCD3,SPINPUT	GET LINE NUMBER 
 CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ? 
 CBE GSWBCD3,=D'91',CH510 
	MUL	GSWBCD3,=D'2'
	MOVE	GSWBCD4,CVOUTOP	GET NO OF LINES/PAGE
	SUB	GSWBCD4,GSWBCD3
	CBL	GSWBCD4,=D'0',CH5ERR	LINE NEGATIVE?
	MOVE	GSWBIN1,GSWBCD4 
 CBNL GSWBIN1,CVOUTOP,CH5ERR
	CBL	GSWBIN1,CMINLIN,CH5ERR 
	RET
CH5ERR
	MOVE	SPBINW3,CBIN3 
	MOVE	SPBINW4,CBIN8 
	RET
CH510 
 MOVE GSWBIN1,GSWBCD3 
 RET
	PEND 
	EJECT
SPCHK6	PROC 
********************
* 
*          SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, 
*          KONTOKORT
* 
******************* 
	PERF	KKCH
	MOVE	GSWBCD3,SPINPUT	GET DIGIT 
	MOVE	SPBINW3,CBIN1 
 CBL GSWBCD3,=D'1',CH6RET NO CHECK IF ZERO
	CBE	GSWBCD3,TTKTCHK,CH6RET	OK
	MOVE	SPBINW3,CBIN3	ERROR 
	MOVE	SPBINW4,CBIN13
CH6RET
	RET
	PEND 




SPCHK7	PROC 
**********
* 
*     SPCHK7- CDVCHECK (USES SPCHK1)
*             INSERTS CHECKDIGIT, IF LENGTH=8 
* 
*          PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT
*          IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4
*     FIELD MUST BE 7 OR 10 LONG
*     IF FIELD IS 8 LONG, IT IS ASSUMED TO BE A PHONE NUMBER, 
*     AND IS THEN CHANGED FROM 0XXXXXXX TO 5XXXXXXXCC 
* 
**********
* 
 TBF CLEV8FLG,CHK705
 MOVE GSWBIN1,SPBINW1 GET LENGTH
 CBE GSWBIN1,CBIN8,CHK710 SPECIAL TREATMENT OF PHONE NO 
CHK705
 PERF SPCHK1 ELSE NORMAL CDVCHK 
 B CHK7RET
* 
CHK710
 MOVE SPBINW4,CBIN0 
 MOVE GSWBCD6,SPINPUT +FFFFF0XXXXXXX
 TBT C539FLG,CHK720 JUMP IF TINGLEV 
 MOVE GSWBCD3,=D'5' +FFFF5
 COPY GSWBCD6,CBIN6,CBIN1,GSWBCD3,CBIN5 
CHK720
 MUL GSWBCD6,=D'10' +FFFF5XXXXXXX0
 MOVE SPINPUT,GSWBCD6 
 MOVE SPBINW1,CBIN9 SET LENGTH
 MOVE SPBINW5,SPBINW2 SAVE END KEY
 MOVE SPBINW2,CBIN3 SIMULATE KEY
 MOVE SPBINW3,=W'105' APPL VALUE
 PERF SPAPPL CALCULATE CONTROL DIGIT
 MOVE SPBINW2,SPBINW5 RESTORE KEY VALUE 
 CBNE GSWBCD5,=D'10',CHK730 CHECK CONTROLDIGIT
 MOVE GSWBCD5,=D'50' SET CONTROL DIGIT
CHK730
 MUL GSWBCD6,=D'10' ROOM FOR CONTROLDIGIT 
 ADD GSWBCD6,GSWBCD5 INSERT CONTROL DIGIT 
 MOVE SPBINW1,CBIN10 SET LENGTH 
 MOVE SPINPUT,GSWBCD6 
CHK7RET 
	RET
	PEND 
	EJECT
SPTCHK	PROC 
********************
* 
*          SPTCHK - CONDITIONAL TABULATION
*          CONTROLLED BY 'CTAB' IN FORMATS
* 
********************
	GETCTL	0,SPBINW3	GET APPL-VALUE
	CBE	SPBINW3,=W'84',TCHK84
	SUB	SPBINW3,CBIN16	ADJUST INDEX
	IB	SPBINW3,		C 
		TCHK17,TCHK18,TCHK19,TCHK20 
	SUB	SPBINW3,=W'61'	+16-77
	IB	SPBINW3,TCHK78,TCHK79 
 SUB SPBINW3,=W'38' 116-119 
 IB SPBINW3,TCHK116,TCHK117,TCHK118,TCHK119 
TCHK00			CORRECT FIELD
	MOVE	SPBINW3,CBIN0 
	RET
* 
TCHK17
	TBT	BCPR,TCHK00
	B	TCHK99 
* 
TCHK18
TCHK19
TCHK20
	TBF	BCPR,TCHK00
	B	TCHK99 
* 
TCHK78
 MOVE SPBINW3,TTCNTNR 
 SUB SPBINW3,=W'100'
 CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK00 CONTINUE TAB 
	B	TCHK99	CORRECT FIELD 
* 
TCHK79
 MOVE SPBINW3,TTCNTNR 
 SUB SPBINW3,=W'100'
 CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK99 CORRECT FIELD
	B	TCHK00	CONTINUE TAB
* 
TCHK84
	TBF	GTTRSEL,TCHK00 
	B	TCHK99 
* 
TCHK116 
 MOVE SPBINW3,GTTXTTKO
 IB SPBINW3,TCHK99,TCHK00,TCHK00,TCHK99,TCHK99,TCHK00 
 B TCHK99 
* 
TCHK117 
 MOVE  SPBINW3,GTTXTTKO 
 IB SPBINW3,TCHK99,TCHK99,TCHK00,TCHK99,TCHK99,TCHK99 
 B TCHK99 
* 
TCHK118 
 MOVE SPBINW3,GTTXTTKO
 IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK00,TCHK00,TCHK00 
 B TCHK99 
* 
TCHK119 
 MOVE SPBINW3,GTTXTTKO
 IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK99,TCHK00,TCHK99 
 B TCHK99 
TCHK99			CONTINUE TAB 
	MOVE	SPBINW3,CBIN2 
	RET
	PEND 
	EJECT
SPAPPL	PROC 
********************
* 
*          SPAPPL - PROCEDURE ACTIVATED BY SCREEN PACKAGE IF APPL-VALUE 
*          IS NOT ZERO, WHICH IS THE CASE FOR ALL FIELDS. 
* 
*          APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE)
*          A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT 
*          TESTING AND BRANCH TO PACKING ROUTINE
* 
********************
* 
*          SPBINW3 IS CURRENT APPL NUMBER 
			ART - RETURN 
			APK - PACK FIELD 
			APF - PACK FIELD WITH SIGN 
			AA01 - TEST FOR FIELD TO BE
			---- - AUTODUPPED
			AA02 - TEST FOR AUTODUP KEY
			AA03 - IF LENGTH ZERO, 
			---- - DELETE FIELS
			AA05 - TEST FIELD 5
			AA06 - TEST FIELD 6
			AA11 - TEST VALOERDATE 
			AA17 - TEST FORFALDSAAR
			AA65 - IF AA05, AA06 THERE 
			---- - MIGHT BE A CHOICE 
			---- - OF NEW TRANSTYPE
			A64 - TEST FIELD 64
			A65 - TEST FIELD 65
			A76  - COUNTER, TRANS 12 
			A77  - TR 4, INSERT BKO 51,52
			A78  - ACCOUNT NO, TRANS 12
			A79  -   -  -  -  -  - (COPY)
			A80-A87 - CHECK OF CONTROL 
			---- - INFORMATION FOR 
			---- - TRANSTYPES
			A88  - AUTODUP BKO, TR 4 
			A89  - STORE IN FIELD 6
			A90  - SPECIAL SLUT-FIELD
			A91 - ENTER TO SLUT-KEY
			A100 - CHECK TR 12 
			A101 - CHECK BEHL. COUNT.
			A102 - REL. DAY
			A103 - SET BEHL. COUNT 
			A104 - SET TRANS 12
                                                 A105 - CTRL.DIGIT CALC.
			A107 - AS A102 
			A108 - SPG -REGKONTONR 
			A109 - SPG-CPR/CIR/NR
			A110 - SPG-BELOB 
			A111 - SPG-OTHER FIELD 
			A115 REMIT-TXT 
			A120 - BUDGET
* 
 CBL SPBINW3,=W'90',AA01
 CBG SPBINW3,=W'114',AA01 
 B AAA	90-114 
* 
AA01
	CBNE	SPBINW1,CBIN0,AAA	IF LENGTH IS ZERO 
	MOVE	GSWBIN4,CFLTDEX(SPBINW3)	GET INDEX VALUE TO GSWBIN4 
	MOVE	GTUSED(GSWBIN4),CBIN0	DELETE FIELD
	B	ART
* 
AAA	IB	SPBINW3,		C
		ART,ART,ART,ART,A05,A06,A07,APF,ART,	FIELDS 1-9	C 
		APK,A11,APK,APK,APK,APK,APK,A17,APK,APK,	FIELDS 10,19	C 
		APK,APK,APK,APK,APK,APK,APK,APK,APK,APK,	FIELDS 20-29	C 
		APK,APK,APK,APF,APK,APK,APK,APK,APK,APF,	FIELDS 30-39	C 
		APK,APK,APK,APK,APK,APK,APK,APF,APK,APK,	FIELDS 40-49	C 
		APK,APK,APF,APF,A54,A57,A57,A57,A57,A57,	FIELDS 50-59	C 
		A57,A57,A57,APK,A64,A65,APK,ART,ART,ART,	FIELDS 60-69	C 
		APK,APK,ART,ART,ART,ART,A76,A77,A78,A79,	FIELDS 70,79	C 
		A80,A81,A82,A83,A84,A85,A86,A87,A88,A89,	FIELDS 80-89	C 
		A90,A91,A92,A93,A94,ART,ART,ART,ART,ART,	FIELDS 90,99	C 
		A100,A101,A102,A103,A104,	FIELDS 100,104	C
		A105,ART,A107,A108,A109,	FIELDS 105,109	C 
		A110,A111,ART,ART,ART, FIELS 110,114	C
		A115,A116,A117,A118,A119,A120,	FIELDS 115,120	C 
		A121,A122,APK,APK,APK,	FIELDS 121-125	C 
		ART,ART,ART,ART,A130,A131,A132
**********
A05			CHECK REGISTRERINGSKONTONUMMER
	MOVE	GSWBIN1,SPBINW1	GET LENGTH
 CBE GSWBIN1,CBIN4,A059 LENGTH = 4? 
	CBL	GSWBIN1,CBIN3,A065	TRANSTYPE HANDLING IN A065
	CMP	GSWBIN1,CBIN10	LENGTH MUST BE 10 
 BNE A058 
 MOVE GSWBCD1,SPINPUT 
 PERF KTPLAN,GSWBCD1,GTKTTYP
 MOVE GSWBIN1,GTKTTYP 
 IB GSWBIN1,		C 
		A053,A053,A051,A053,A053,A052,A0570,A0575 
A051
 B APK CPR NOT NECESSARY
A052			REMIT. NOT ALLOWED 
 IB GTREGDEX,		C
		A0520,A0520,A0520,A0520,A0520, TR 1,2,3,4,5	C 
		A0520,A0520,A0525,A0525,A0520, TR 6,7,8,9,10	C
		A0520,A0525,A0525,A0525,A0525 TR 12,18,19,28,29 
A0520 
 B APK
A0525 
 MOVE SPBINW4,CBIN20 ERROR
 B ART
A053			CPR NECESSARY
 IB GTREGDEX,		C
		A054,A055,A054,A054,A055, TR 1,2,3,4,5	C
		A054,A055,A055,A054,A054, TR 6,7,8,9,10	C 
		A054,A055,A054,A055,A054 TR 12,18,19,28,29
A054
 B APK
A055
 CBL GSWBIN1,CBIN3,A056 ERROR 
 SET SPWARNFL WARNING 
 B A054 
A056
 MOVE SPBINW4,CBIN19
 B ART
* 
A0570			7: KNT.NO. NOT ALLOWED
 MOVE SPBINW4,=W'23'
 B ART
* 
A0575			8:KNT.NO. NOT ALLOWED IN SUPL 
 CBE GTREGDEX,CBIN10,A0577 TR 10
 TBT TTSUPFLG,A0577 SUPL
 B APK OK 
A0577			NOT OK
 MOVE SPBINW4,CBIN22
 B ART
* 
A059
 CBL GTREGNR,=D'48',A058 ONLY ALLOWED WHEN
 CBG GTREGNR,=D'49',A058 IN BUDGET TR.48/49 
 B APK
* 
A058
	MOVE	SPBINW4,CBIN3	SET ERRORCODE 
	B	ART
**********
A06			CHECK CPR/CIR NUMBER
	MOVE	GSWBIN1,SPBINW1	GET LENGTH
	CBL	GSWBIN1,CBIN3,A065	TRANSTYPE HANDLING IN A065
	SET	BCPR	SET CPR-SWITCH (CPR-NO) 
	MOVE	GSWBCD1,SPINPUT 
 CBL GSWBCD1,=D'10000000',A061
 SET BLEV LEVERAND. 
 CBG GSWBCD1,=D'3900000000',A062
 CLEAR BLEV CPR.
 B A062 
A061
	CLEAR	BCPR	CLEAR CPR-SWITCH (CIR-NO) 
A062
 TBT GTBDTFLG,A0625 BUNDT REMIT 
 TBT GTSTRFLG,A0621 STRAKS REMIT
 B APK NOT REMIT
* 
A0621 
 MOVE GTLEVNR,GSWBCD1 STRAKS REMIT, SET LEVNR 
 PERF LEVRD 
 BOK A0622
			NOT OK, LEV FINDES IKKE
 SET SPWARNFL SET WARNING 
 B APK
A0622 
 CBG GTLEVBFO,=D'4',A0629 ONLY 0-4 VALID
 B A063 

* 
A0625			BUNDT REMIT 
 TBT CAD41FLG,A0630 
 MOVE GTLEVNR,GSWBCD1 SET LEVNR 
 PERF LEVRD 
 BNOK A0629 
 CBE GTLEVBFO,=D'0',A0629 
A063
 TBF GTCYFLG,A064 
 MOVE GSSWITCH(CBIN2),CBIN1 
A064
 B APK
A0629			WRONG BETALINGSFORM 
 MOVE SPBINW4,CBIN11 ERROR
 B ART
A0630 
 MOVE SPBINW4,=W'12' ADM 41,42,43,46
 B ART
**********
A54			FIELD 54 HAS BEEN ENTERED 
* THE FIELD WITH LENGTH N (N = 1,2,...,10)
* HAS TO BE LEFT-JUSTIFIED AND EXPANDED 
* TO THE LENGTH 10. 
 MOVE GSWSTR20,=C'0'
 MOVE GSWBIN1,CBIN10
 SUB GSWBIN1,SPBINW1 HOW MANY ZEROES ?
 INSRT SPINPUT,SPBINW1,GSWBIN1,GSWSTR20,CBIN0 
 MOVE SPBINW1,CBIN10 ADJUST LENGTH
 B APK
**********
A57 
 B APF
******
A065
	MOVE	SPBINW1,CBIN0	SET LENGTH TO ZERO (FUNCTION) 
	MOVE	GSWBCD3,SPINPUT	GET NEW TRANSTYPE 
* 
	CMP	SPBINW2,=W'30'	ADM ROUTINE 
	BE	ART 
	CMP	SPBINW2,=W'31'	CYCLE 
	BE	ART 
* 
*          CHECK FOR VALID TRANSTYPE
* 
*          ADJUST REGDEX
* 
	MOVE	GSWBIN1,CBIN1 
*   TEST FOR CORRECT TRANSACTIONS IN THIS CONNECTION
	TBT	GTKASSE,A0672
	CBG	GSWBCD3,=D'30',A067	CORRECT FOR NOT IN KASSE 
	B	A0675
A0672 
	CBL	GSWBCD3,=D'30',A067	CORRECT IN KASSE 

	B	A0675
* 
A067
	CBE	GSWBCD3,CREGTAB(GSWBIN1,CBIN1),A068	SEARCH REGNR 
	ADD	GSWBIN1,CBIN1	ADD 1 TO INDEX 
	CBNE	CREGTAB(GSWBIN1,CBIN1),=D'-1',A067	END OF TABLE?
* 
A0675 
	MOVE	SPBINW4,CBIN9	INVALID TRANSTYPE 
	B	ART
A068
			TAKE CARE OF NEW TRANSTYPE 
	CBE	SPBINW2,CBIN18,A0680	HANDLING OF KREDIT KEY
	CBE	SPBINW2,CBIN17,A0680	SLUT/DEB KEY
	CBE	SPBINW2,CBIN3,A0680	HANDLING OF DEBIT KEY
	MOVE	SPBINW4,CBIN4	HANDLING OF WRONG KEY 
	B	ART
A0680 
 TBT GTCYFLG,A0685 CYKEL TABEL ?
 CLEAR GTBDTFLG NO, CLEAR FLAGS 
 CLEAR GTSTRFLG 
 CBL GSWBCD3,=D'28',A0681 
 SET GTBDTFLG TRANS 28,29 
 B A0689
A0681 
 CBL GSWBCD3,=D'18',A0689 
 SET GTSTRFLG TRANS 18,19 
 B A0689
A0685			IN CYKEL/STABEL 
 TBF GTBDTFLG,A0686 TRANS 28,29 ? 
 CBL GSWBCD3,=D'28',A0675 IF NOT, INVALID TRANS 
 B A0689 VALID TRANS
A0686 
 TBT GTSTRFLG,A0687 TRANS 18, 19 ?
 			NO, ONLY TRANS 1-12 
 CBG GSWBCD3,=D'12',A0675 IF NOT, INVALID TRANS 
 B A0689 VALID TRANS
A0687 
			TRANS 18,19
 CBL GSWBCD3,=D'18',A0675 TR 1-12 INVALID 
 CBL GSWBCD3,=D'28',A0689 TR 18,19 VALID
 B A0675 TR 28,29 INVALID 
A0689 
 CBE SPBINW2,CBIN18,A06KRE KREDIT KEY 
 B A06DEB 
A06KRE
	PERF	SETKRE
	B	A066 
A06DEB
	PERF	SETDEB
A066
	MOVE	GTREGNR,GSWBCD3 
	MOVE	GTREGDEX,GSWBIN1
	SET	GTREGFLG	VALID TRANSTYPE FOUND 
	SET	TTEORFLG	START NEW TRANS 
* 
	MOVE	SPBINW2,=W'36'	SIMULATE TRANSACTION SELECTED
	B	ART
**********
A07			BKO FIELD 
			INSERT TEXT IN TT07TXT 
 CLEAR TTASKAT
 MOVE GSWBCD3,SPINPUT 
 CBNE GSWBCD3,=D'51',A070 
 SET TTASKAT
A070
 CBNE GTREGDEX,CBIN3,A0705
 CBE GSWBCD3,=D'51',A076 TRANS 3
 CBE GSWBCD3,=D'52',A076
A0705 
 MOVE GSWBIN1,CBIN0 GET LENGTH OF STRING
 COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 
 MOVE GSWBCD3,TT07TXT 
 MOVE GSWBIN2,GSWBCD3 
 MOVE TT07TXT,=' '
	MOVE	GSWBIN1,CBIN5	FIRST CHAR, POINTER 
	MOVE	GSWBIN3,CBIN0 
	CBNG	SPBINW1,CBIN2,A071
	MOVE	GSWBIN3,CBIN1	ADJUST DUPPED FIELD INDEX 
A071
 SUB GSWBIN1,CBIN7
A0708 
 ADD GSWBIN1,CBIN7
 CBG GSWBIN1,GSWBIN2,A075 
	MATCH	CTTXT07,GSWBIN1,CBIN2,SPINPUT,GSWBIN3,CBIN2
	BNOK	A0708 
*  NEXT 5 CHARS CONTAIN TEXT
	ADD	GSWBIN1,CBIN2
	COPY	TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 
*          SEE IF ALLOWED 
 CBNE GTREGDEX,CBIN3,A077 ONLY CHECK IF TRANSTYPE 3 
 ADD GSWBIN1,CBIN5
 MOVE GSWSTR2,=' '
 COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE
 MOVE GSWBCD3,GSWSTR2 
 CBL GSWBCD3,=D'1',A077 OK
 CBL GTREGF(CBIN2),=D'10000000',A072
 CBE GSWBCD3,=D'1',A077 CPR - BKO ALLOWED 
 B A076 
A072
 CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED 
 B A076 
A075
 TBT CBKOFLG,A077 
A076
 MOVE SPBINW4,CBIN11
 B ART
A077
 B APK
**********
A11			CHECK VAL DATE NOT GREATER
			THAN POST DATE 
 CBE GTREGDEX,CBIN3,A0110 TRANS 3 
 CBE GTREGDEX,CBIN4,A0110 TRANS 4 
 TBF TTCY1FLG,A01101
 TBF GTBDTFLG,A01101
 MOVE GSSWITCH(CBIN7),CBIN1 
A01101
 B APK
A0110 
 TBF CVALFLG,A01101 
*     GET AND CHANGE VALOERDATE 
 MOVE GSWBCD6,SPINPUT 
 PERF YYMMDD,GSWBCD6
 MOVE GSWBCD1,GSWBCD7 
*     GET AND CHANGE POSTDATE 
 PERF YYMMDD,GTDATO 
*     COMPARE 
 CMP GSWBCD1,GSWBCD7
 BNG APK
 MOVE SPBINW4,CBIN7 
 B ART
**********
A17			CHECK 'FORFALDSAAR' FAAR
			FAAR >= 70 
			FAAR <= YY+2 
	MOVE GSWBCD6,SPINPUT	GET FAAR
	CBL GSWBCD6,=D'70',A17ERR	LESS THAN 70: ERROR
	MOVE GSWBCD1,GTDATO	GET POSTDATO 
	MOVE GSWBCD3,=D'2' 
	COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR 
	ADD GSWBCD3,=D'2'	ADD 2
	CBG GSWBCD6,GSWBCD3,A17ERR	MORE THAN YY+2
 B APK
A17ERR
	MOVE SPBINW4,CBIN11	INVALID NUMBER 
	B ART
**********
A64 
	MOVE	GSWBCD3,SPINPUT	GET 'PRISREGULERINGSKODE' 
	CBG	GSWBCD3,=D'5',A649 
	CBL	GSWBCD3,=D'0',A649 
			FIELD 64 HAS BEEN ENTERED AND
	MOVE	GSSWITCH(CBIN12),CBIN1	SHOULD BE GTAUTODPPED
	B	APK
A649
	MOVE	SPBINW4,CBIN10
	B	ART
**********
A65			CHECK VALUE 1000-3999 
	MOVE	GSWBCD4,SPINPUT	GET VALUE 
	CBG	GSWBCD4,=D'3999',A659
	CBL	GSWBCD4,=D'1000',A659
	B	APK
A659
	MOVE	SPBINW4,CBIN11
	B	ART
**********
A76			COUNTER NO, TRANS 12
 CMP SPBINW1,CBIN3
 BL A065 TRANSTYPE HANDLING 
	MOVE	GSWBCD3,SPINPUT	GET VALUE 
	MOVE	TTCNTNR,SPINPUT 
	SUB	GSWBCD3,=D'100'	GET INDEX
 MOVE GSWBIN1,GSWBCD3 
 CBG GSWBIN1,CTR12(TTASKNR,CBIN2),A76NOK
	CBL	GSWBCD3,=D'1',A76NOK	MIN COUNTER NO
 ADD GSWBIN1,CTR12(TTASKNR,CBIN1) 
 CBL CTR12NR(GSWBIN1),=D'1',A76NOK
			MUST BE > 0
	B	ART	TO WRITE ON SCREEN 
A76NOK
	MOVE	SPBINW4,CBIN18
	B	ART
**********
A77			INSERT 51,52 IN TR 4
	MOVE	SPBINW3,CBIN7	FIELD 7 
	MOVE	SPBINW1,CBIN2	LENGTH
	TBT	BCPR,A775
	MOVE	SPINPUT,=X'35310000'	51 IF CIR
	B	A07
A775
	MOVE	SPINPUT,=X'35320000'	52 IF CPR
	B	A07
**********
A78			INSERT ACCOUNT NO 
			11-15
	MOVE	SPBINW3,CBIN5	SIMULATE FIELD 5
	B	APK
********
A79			AUTODUP ACCOUNT NO
	MOVE	SPBINW3,CBIN5	IN FIELD 5
	MOVE	GSWBIN1,TTCNTNR	GET COUNTER NO
	SUB	GSWBIN1,=W'100'
 ADD GSWBIN1,CTR12(TTASKNR,CBIN1) 
	MOVE	SPINPUT,CTR12NR(GSWBIN1)
	MOVE	SPBINW1,CBIN10	LENGTH 
	B	APK
**********
A80			CHECK HOVEDBOG, KONTONR 
	MOVE	SPBINW3,CBIN5	FIELD 5 
	MOVE	SPBINW5,CBIN2	MIGHT BE TRANSTYPE 2
	CBL	SPBINW1,CBIN3,A805	CHECK LENGTH
	CBE	SPBINW1,CBIN10,A801	MUST BE 10 
	MOVE	SPBINW4,CBIN3	ERROR LENGTH
	B	ART
A801
 MOVE GSWBCD1,SPINPUT 
 PERF KTPLAN,GSWBCD1,GTKTTYP
 MOVE GSWBIN1,GTKTTYP 
 CMP GSWBIN1,CBIN7 7: KNT.NO. NOT ALLOWED 
 BE A0570 
 CBNE GSWBIN1,CBIN8,A804
 TBF TTSUPFLG,A804
 B A0577 8:KNT.NO. NOT ALLOWED IN SUPL
A804
	PERF	SELTR	TRANS SELECTED
	BNOK	ART	INVALID KEY 
	B	APK	OK 
A805			CHECK FUNCTION KEYS
	MOVE	SPBINW1,CBIN0 
 CMP SPBINW2,=W'30' ADM KEY 
 BE ART 
 CMP SPBINW2,=W'31' CYCLE KEY 
 BE ART 
	MOVE	SPBINW4,CBIN4	INVALID KEY 
	B	ART
**********
A81			CHECK HOVEDBOG, CPR/CIR/NR
	MOVE	SPBINW3,CBIN6	FIELD 6 
	MOVE	SPBINW5,CBIN1	MIGHT BE TRANS TYPE 1 
	CBG	SPBINW1,CBIN2,A811	CHECK LENGTH
	MOVE	SPBINW4,CBIN3	ERROR LENGTH
	B	ART
A811			CPR OR CIR ? 
	SET	BCPR	SET CPR NO
	MOVE	GSWBCD1,SPINPUT 
 CBL GSWBCD1,=D'10000000',A814
 SET BLEV 
 CBG GSWBCD1,=D'3200000000',A812
 CLEAR BLEV 
 B A812 
A814
	CLEAR	BCPR	SET CIR NO
A812
	PERF	SELTR	TRANS SELECTED
	BNOK	ART	INVALID KEY 
	B	APK	OK 
**********
A82			CHECK HOVEDBOG, YD.MODT.
	MOVE	SPBINW3,CBIN21	FIELD 21 
	MOVE	SPBINW5,CBIN6	MIGHT BE TRANSTYPE 6
A821
	CBNE	SPBINW2,CBIN3,A822	IF ENTER KEY,
	MOVE	SPBINW2,CBIN17	SIMULATE DEBET KEY 
A822
	PERF	SELTR	TRANS SELECTED
	BNOK	ART	INVALID KEY 
	B	APK	OK 
**********
A83			CHECK DEBITOR, DEBITOR NR 
	MOVE	SPBINW3,CBIN6	FIELD 6 
	CBL	SPBINW1,CBIN3,A805	FUNCTION? 
 CBL SPBINW1,CBIN7,A833 
	MOVE	SPBINW5,CBIN4	MIGHT BE TRANSTYPE 4
	SET	BCPR	SET CPR 
	MOVE	GSWBCD1,SPINPUT 
 CBL GSWBCD1,=D'10000000',A831
 SET BLEV 
 CBG GSWBCD1,=D'3200000000',A832
 CLEAR BLEV 
 B A832 
A831
	CLEAR	BCPR	SET CIR 
A832
	PERF	SELTR 
	BNOK	ART 
	MOVE	SPBINW2,CBIN3 
	B	APK
A833
 MOVE SPBINW4,CBIN3	ERROR LENGTH
 B ART
**********
A84			CHECK DEBITOR, BKO
	MOVE	SPBINW3,CBIN7	FIELD 7 
	MOVE	SPBINW5,CBIN3	MIGHT BE TRANSTYPE 3
	CBNE	SPBINW2,CBIN3,A842
	MOVE	SPBINW2,CBIN17
A842
	MOVE	GSWBCD1,SPINPUT 
	CBE	GSWBCD1,=D'+51',A845 
	CBE	GSWBCD1,=D'+52',A845 
A843
	PERF	SELTR 
	BNOK	ART 
	B	A07
A845
	MOVE	SPBINW5,CBIN4 
	B	A843 
**********
A85			CHECK REMITTERING, KONTONR
	MOVE	SPBINW3,CBIN5	FIELD 5 
	CBL	SPBINW1,CBIN3,A805	CHECK LENGTH
	CBE	SPBINW1,CBIN10,A850	MUST BE 10 
	MOVE	SPBINW4,CBIN3	ERROR LENGTH
	B	ART
A850
  CMP SPBINW2,CBIN3   ONLY ENTER-KEY ALLOWED
 BNE A855 
 MOVE GSWBCD1,SPINPUT 
 PERF KTPLAN,GSWBCD1,GTKTTYP
 MOVE GSWBIN1,GTKTTYP 
 CBE GSWBIN1,CBIN6,A853 6: REMIT NOT ALLOWED
 CMP GSWBIN1,CBIN7 7:KNT.NO. NOT ALLOWED
 BE A0570 
 CBNE GSWBIN1,CBIN8,A854
 TBF TTSUPFLG,A854
 B A0577 8:KNT.NO. NOT ALLOWED IN SUPL
A853
 MOVE SPBINW4,CBIN20 REMIT NOT ALLOWED
 B ART
A854
 B APK
A855
	MOVE	SPBINW4,CBIN4	INVALID KEY 
	B	ART
**********
A86			CHECK REMITTERING, LEV.NR.
	MOVE	SPBINW3,CBIN6	FIELD 6 
	MOVE	SPBINW5,CBIN8	MIGHT BE TRANSTYPE 8
	CMP	SPBINW1,CBIN2	CHECK LENGTH + CPR/CIR 
 BG A811
	MOVE	SPBINW4,CBIN3	ERROR LENGTH
	B	ART
**********
A87			CHECK REMITTERING, YD.MODT. 
	MOVE	SPBINW3,CBIN21	FIELD 21 
	MOVE	SPBINW5,CBIN9	MIGHT BE TRANSTYPE 9
	B	A821	CHECK FOR INVALID KEY 
**********
A88 
	MOVE	SPBINW3,CBIN7	FIELD 7 
	MOVE	SPBINW2,=W'36'
 MOVE SPBINW1,CBIN2 
	TBT	BCPR,A885
	MOVE	SPINPUT,=X'35310000'	51 IF CIR
	B	A07
A885
	MOVE	SPINPUT,=X'35320000'	52 IF CPR
	B	A07
**********
A89 
	MOVE	SPBINW3,CBIN6	STORE IN FIELD 6
	B	APK
**********
A121			SIMULATE SLUT KEY
	CLEAR	GTSLUTFL 
	CLEAR	GTADUPFL 
	MOVE	SPBINW2,CBIN17	SLUT KEY 
	MOVE	SPBINW1,CBIN0	LENGTH ZERO 
	B	ART
**********
A122 			ENTER TO SLUT KEY 
 CMP SPBINW2,CBIN3
 BNE ART
  MOVE SPBINW2,CBIN17 
  B ART 
**********
A90 
 PERF SPACES
 MOVE GTFELT90(CBIN1),SPINPUT 
 B APK
*** 
A91 
 PERF SPACES
 MOVE GTFELT90(CBIN2),SPINPUT 
 B APK
*** 
A92 
 PERF SPACES
 MOVE GTFELT90(CBIN3),SPINPUT 
 B APK
*** 
A93 
 PERF SPACES
 MOVE GTFELT90(CBIN4),SPINPUT 
 B APK
*** 
A94 
 PERF SPACES
 MOVE GTFELT90(CBIN5),SPINPUT 
 B APK
*** 
A100			CHECK TR 12 COUNTERS 
 MOVE GSWBCD1,SPINPUT 
 SUB GSWBCD1,=D'100'
 MOVE GSWBIN6,GSWBCD1 
 CBL GSWBIN6,CBIN1,A1009 TOO SMALL
 CBG GSWBIN6,CTR12(TTASKNR,CBIN2),A1009 TOO HIGH
 ADD GSWBIN6,CTR12(TTASKNR,CBIN1) 
	B	ART
A1009 
	MOVE	SPBINW4,CBIN11
	B	ART
**********
A101			CHECK BEHL. COUNTERS 
 MOVE GSWBCD1,SPINPUT 
 CBL GSWBCD1,=D'1',A101ER 
 MOVE GSWBIN6,GSWBCD1 
 CBG GSWBIN6,CBEH(TTASKNR,CBIN2),A101ER 
 ADD GSWBIN6,CBEH(TTASKNR,CBIN1)
 B ART
A101ER
	MOVE	SPBINW4,CBIN11
	B	ART
**********
A102			CHECK RELATIVE DAY 
 MOVE GSWBCD7,CMASKDAT
	MOVE	GSWBCD5,=D'2'	INITIATE REL DAY NO.
	MOVE	GSWBCD3,=D'1'	BLANK GSWBCD3 
	MOVE	GSWBIN2,CBIN8	SET POINTER TO DAY
	COPY	GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2	GET DAY 
	ADD	GSWBCD5,GSWBCD3	ADD DAY TO REL. DAY
	ADD	GSWBIN2,CBIN2	SET POINTER TO MONTH 
	COPY	GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2	GET MONTH 
	SUB	GSWBCD3,=D'1'	GET WHOLE NO. OF MONTHS
	MUL	GSWBCD3,=D'30'	EQUAL IN DAYS 
	ADD	GSWBCD5,GSWBCD3
	MOVE	GSWBCD3,SPINPUT	GET KEYED REL. DAY
	SUB	GSWBCD5,=D'5'
	CBL	GSWBCD3,GSWBCD5,A102ER	TOO SMALL 
	ADD	GSWBCD5,=D'10' 
	CBG	GSWBCD3,GSWBCD5,A102ER	TOO LARGE 
 B A102END
A102ER
	MOVE	SPBINW4,CBIN11	INVALID VALUE
A102END 
 MOVE GSWBCD3,=X'FF'
	B	ART
**********
A103			SET BEHL. COUNTERS 
 MOVE GSWBCD3,SPINPUT 
 MOVE GSWBIN6,GSWBCD3 
 ADD GSWBIN6,CBEH(GSWBIN1,CBIN1)
 CBG GSWBIN6,=W'60',A103ER TOO MANY 
 CBE GSWBIN1,CBIN12,A1035 
 ADD GSWBIN1,CBIN1
 MOVE CBEH(GSWBIN1,CBIN1),GSWBIN6 
 SUB GSWBIN1,CBIN1
A1035 
 MOVE GSWBIN6,GSWBCD3 
 MOVE CBEH(GSWBIN1,CBIN2),GSWBIN6 
 B ART
A103ER
 MOVE SPBINW4,CBIN11
 B ART
**********
A104			SET TR 12 COUNTERS 
 MOVE GSWBCD4,SPINPUT 
 MOVE GSWBIN6,GSWBCD4 
 ADD GSWBIN6,CTR12(GSWBIN1,CBIN1) 
 CBG GSWBIN6,=W'60',A104ER TOO MANY 
 CBE GSWBIN1,CBIN12,A1045 
 ADD GSWBIN1,CBIN1
 MOVE CTR12(GSWBIN1,CBIN1),GSWBIN6
 SUB GSWBIN1,CBIN1
A1045 
 MOVE GSWBIN6,GSWBCD4 
 MOVE CTR12(GSWBIN1,CBIN2),GSWBIN6
 B ART
A104ER
 MOVE SPBINW4,CBIN11
 B ART
**********
A105 			CONRTL.DIGITCALC. 
 MOVE GSWBCD6,SPINPUT 
 CBE SPBINW2,CBIN3,CALCD01
 CMP SPBINW2,CBIN17 
 BNE ART
CALCD01 
 MOVE GSWBIN1,SPBINW1   GET LENGTH
 MOVE GSWBIN2,CBIN13
 MOVE GSWBCD5,=D'0' 
CALCD02 
  MOVE  GSWBCD3,=D'0' 
 COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2  GET NEXT DIGIT 
 SUB GSWBIN2,CBIN1   ADJUST WEIGHT-INDEX
 MUL GSWBCD3,WEIGTH1(GSWBIN2)  MULTIPLY BY WEIGHT 
 ADD GSWBCD5,GSWBCD3   ADD TO OLD SUM 
  SUB GSWBIN1,CBIN1  ADJUST LENGTH
 CBG GSWBIN1,CBIN0,CALCD02
 MOVE GSWBCD4,GSWBCD5 
 DIV GSWBCD5,=D'11' 
 MUL GSWBCD5,=D'11' 
 SUB GSWBCD4,GSWBCD5           GET REMAINDER MOD 11 
 CBNL GSWBCD4,=D'1',CALCD05 
 MOVE GSWBCD4,=D'11'
CALCD05 
 MOVE GSWBCD5,=D'11'
 SUB GSWBCD5,GSWBCD4   CALCULATE CONTROLDIGIT 
  B ART 
**********
A107			POSTDATO=MASKINDATO ?
 MOVE GSWBCD7,SPINPUT 
 CBNE GSWBCD7,CMASKDAT,A1075
 B ART
A1075 
 SET SPWARNFL 
 B ART
**********
A108			SPG-REGKONTONR 
 MOVE GSWBCD6,=D'5' 
 B ART
**********
A109			SPG-CPR/CIR/NR 
 MOVE GSWBCD6,=D'6' 
 B ART
**********
A110			SPG-BELOB
 MOVE GSWBCD6,=D'8' 
 B ART
**********
A111			SPG-OTHER FIELD
 MOVE GSWBCD6,SPINPUT 
 CBG GSWBCD6,=D'90',A111ERR 
 MOVE GSWBCD7,=D'0' 
 B ART
A111ERR 
 MOVE SPBINW4,CBIN11
 B ART
**********
A115			TEXTNR REMITTERING 
 MOVE GSWBCD6,SPINPUT 
 MOVE GSWBIN8,GSWBCD6 
 PERF TXTRD,GSWBIN8 READ TEXT 
 BNOK A1154 
 CBE GTWBCD1,=D'10',A1154 END OF FILE 
 CBL GTTXTTKO,=D'1',A1154 DELETED 
 CLEAR GTSWFLAG 
 MOVE SPBINW3,=W'26'
A1151 
 TBF TTCY1FLG,A1153 
 TBT GTBDTFLG,A1152 
 TBF GTSTRFLG,A1153 
A1152 
 MOVE GSWBIN1,CFLTDEX(SPBINW3)
 MOVE GSSWITCH(GSWBIN1),CBIN1 
A1153 
 B APK
A1154 
 MOVE SPBINW4,CBIN11 TEXT MISSING 
 B ART
**********
A116
 MOVE SPBINW3,=W'24'
 B A1151
**********
A117
 MOVE SPBINW3,=W'25'
 B A1151
**********
A118
 MOVE SPBINW3,=W'37'
 B A1151
**********
A119
 MOVE SPBINW3,=W'38'
 B A1151
**********
A120
* VALUESET: CURRENT YEAR +/- 1
 MOVE GSWBCD1,CMASKDAT DDMMYY 
 MOVE GSWBCD2,CMASKDAT
 DIV GSWBCD1,=D'100'	  DDMM 
 MUL GSWBCD1,=D'100' DDMM00 
 SUB GSWBCD2,GSWBCD1	  YY 
 MOVE GSWBCD1,GSWBCD2 
 SUB GSWBCD1,=D'1'
 ADD GSWBCD2,=D'1'
 MOVE GSWBCD3,SPINPUT 
 CBL GSWBCD3,GSWBCD1,A120E
 CBG GSWBCD3,GSWBCD2,A120E
 B APK
A120E 
 MOVE SPBINW4,CBIN11
 B ART
**********
A130
* USED IN "NYSTART" 
 MOVE GSWBCD3,SPINPUT 
 MOVE GSWBIN1,GSWBCD3 
 IB GSWBIN1,A1301,A1302,A1303 
 MOVE SPBINW4,CBIN11
 B ART
A1301 
 MOVE GTSTRFMT,=C'SYSSTART '
 B A1305
A1302 
 MOVE GTSTRFMT,=C'RESTART   ' 
 B A1305
A1303 
 MOVE GTSTRFMT,=C'RESTORE   ' 
A1305 
 MOVE GSWBIN1,=X'0516' LINE 5, POS 22 
 DSC1 SCREEN,POS,GSWBIN1
 EDWRT SCREEN,STRTFRM 
 B ART
**********
A131
* USED IN "NYSTART" 
 MOVE GSWBCD3,SPINPUT 
 MOVE GSWBIN1,GSWBCD3 
 IB GSWBIN1,A1311,A1312,A1313 
 MOVE SPBINW4,CBIN11
 B ART
A1311 
 MOVE GTSTRFMT,=C'SYSVOL '
 B A1315
A1312 
 MOVE GTSTRFMT,=C'REGVOL '
 B A1315
A1313 
 MOVE GTSTRFMT,=C'AFBRYD '
A1315 
 MOVE GSWBIN1,=X'0711'
 DSC1 SCREEN,POS,GSWBIN1
 EDWRT SCREEN,STRTFRM 
 B ART
**********
STRTFRM FRMT
 FILLR '+',2
 FCOPY GTSTRFMT 
 FMEND
**********
A132
 MOVE GSWBCD1,SPINPUT 
 MOVE GSWBIN1,=X'0301'
 DSC1 SCREEN,POS,GSWBIN1
 EDIT CVOL(CBIN2),A132FMT2
 EDIT CVOL(CBIN3),A132FMT3
 EDIT CVOL(CBIN4),A132FMT4
 EDWRT SCREEN,A132FMT1
 B ART

A132FMT1 FRMT 
 FILLR '+',2
 FCOPY CVOL(CBIN2)
 FILLR ' ',1
 FCOPY CVOL(CBIN3)
 FILLR ' ',1
 FCOPY CVOL(CBIN4)
 FMEND

A132FMT2 FRMT 
 FMEL '999',GSWBCD1 
 FTEXT '002'
 FMEND

A132FMT3 FRMT 
 FMEL '999',GSWBCD1 
 FTEXT '003'
 FMEND

A132FMT4 FRMT 
 FMEL '999',GSWBCD1 
 FTEXT '004'
 FMEND
**********
APK			KEEP INFORMATION
 TBF TTEORFLG,APK00 FIRST FIELD?
 CBE SPBINW3,CBIN5,APK10
 MOVE GTKTTYP,=D'0' NOT KONTONR.
APK10 
 PERF PACKCL YES, CLEAR GTUSED
 PERF CRKJ
 SET SPME CHECK FOR ME FIELDS 
APK00 
	MOVE	GSWBIN1,CFLTDEX(SPBINW3)	GET INDEX OF FIELD 
	MOVE	GTUSED(GSWBIN1),SPBINW3	STORE FIELDNUMBER 
	B	ART
**********
APF 
 TBF TTEORFLG,APF00 FIRST FIELD?
 MOVE GTKTTYP,=D'0' 
 PERF PACKCL YES, CLEAR GTUSED
 PERF CRKJ
 SET SPME CHECK FOR ME FIELDS 
APF00 
	TBT	SPDUPL,APF10 
	MOVE	GSWBCD6,SPINPUT	GET VALUE 
	MUL	GSWBCD6,GTDBKRS
	MOVE	SPINPUT,GSWBCD6 
APF10 
	MOVE	GSWBIN1,CFLTDEX(SPBINW3)	GET INDEX OF CURRENT FIELD 
*          MULTIPLY WITH -1 IF KREDIT 
*          STORE NEGATIVE FIELD NUMBER (NUMBER WITH SIGN) 
	MOVE	GTUSED(GSWBIN1),SPBINW3 
	MUL	GTUSED(GSWBIN1),=W'-1' 
	B	ART
**********
ART 
	MOVE	SPBINW3,CBIN1 
	CBL	SPBINW4,CBIN3,ARET 
	MOVE	SPBINW3,CBIN3 
ARET
	RET
	PEND 


SPACES PROC 
 MOVE GSWBIN1,=W'35'
 PERF REPL00,SPINPUT,GSWBIN1
 RET
 PEND 
	EJECT
SETKRE	PROC 
********************
* 
*          SETKRE - SET  KREDIT INFORMATION 
* 
********************
	MOVE	GTDBKRC,=C' KRE'
	MOVE	GTDBKRS,=D'-1'
	MOVE	TTDKBCD,=D'1' 
	MOVE	TTDKDEX,CBIN1 
	RET
	PEND 
* 
SETDEB	PROC 
********************
* 
*          SETDEB - SET DEBET INFORMATION 
* 
********************
	MOVE	GTDBKRC,=C' DEB'
	MOVE	GTDBKRS,=D'+1'
	MOVE	TTDKBCD,=D'2' 
	MOVE	TTDKDEX,CBIN2 
	RET
	PEND 
	EJECT
SELTR	PROC
********************
* 
*          SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN 
*          SELECTED.
*          SELECTED TRANSTYPE IS IN SPBINW5 
* 
********************
	CBE	SPBINW2,CBIN3,SELOK	ENTER KEY
	CBE	SPBINW2,CBIN18,SEL10	KREDIT KEY
	CBE	SPBINW2,CBIN17,SEL20	DEBET KEY 
	MOVE	SPBINW4,CBIN4	INVALID KEY 
	CMP	CBIN1,CBIN0	NOK, SET CR<>0 
	RET
SEL10			KREDIT
	PERF	SETKRE
	B	SEL30
SEL20			DEBET 
	PERF	SETDEB
SEL30			TRANSTYPE SELECTED
 MOVE GSWBIN1,GTKTTYP 
 IB GSWBIN1,		C 
		SEL40,SEL40,SEL90,SEL40,SEL40 
 B SEL90
SEL40 
 IB SPBINW5,		C 
		SEL90,SEL45,SEL90,SEL90,SEL90,SEL90,SEL90,SEL45,SEL90 
SEL45 
 CBL GSWBIN1,CBIN3,SEL50
 SET SPWARNFL WARNING 
 B SEL90
SEL50 
 MOVE SPBINW4,CBIN19 ERROR
 CMP CBIN1,CBIN0
 RET
SEL90 
	MOVE	GTREGNR,SPBINW5	TYPE
	MOVE	GTREGDEX,SPBINW5	TYPE INDEX. OK FOR <11 
	MOVE	SPBINW2,=W'36'	SIMULATE TRANS SELECTED
	SET	GTTRSEL
SELOK 
	CMP	CBIN0,CBIN0	OK, SET CR=0 
	RET
 PEND 
 EJECT



YYMMDD PROC P 
**********
* YYMMDD CHECKS THAT THE DATE IS IN FOR FORMAT YYMMDD.
* IF NOT, IT WILL BE INVERTED 
* OUTPUT IN GSWBCD7 
**********
 MOVE GSWBCD7,P 
 CBG P,=D'800000',YYMM90
 MOVE GSWBCD6,P 
 XCOPY GSWBCD7,CBIN6,CBIN1,GSWBCD6,CBIN4
 XCOPY GSWBCD7,CBIN4,CBIN1,GSWBCD6,CBIN6
YYMM90
 RET
 PEND 

CHDATO PROC 
**********
*     CHANGES GSWBCD6  (DDMMYY) TO
*     GSWBCD7  (YYMMDD) 
**********
 MOVE GSWBCD7,GSWBCD6 
 XCOPY GSWBCD7,CBIN6,CBIN1,GSWBCD6,CBIN4
 XCOPY GSWBCD7,CBIN4,CBIN1,GSWBCD6,CBIN6
 RET
 PEND 
* 
XCOP PROC TO,$TOPNT,$SIZE,FROM,$FROMPNT 
 PLIT $TOPNT
 PLIT $SIZE 
 PLIT $FROMPNT
 MOVE GSWBIN1,$TOPNT START OF RECEIVING FIELD 
 MOVE GSWBIN4,$SIZE LENGTH
 MOVE GSWBIN5,$FROMPNT START OF SENDING FIELD 
 XCOPY TO,GSWBIN1,GSWBIN4,FROM,GSWBIN5
 RET
 PEND 
	END

HexDump

0x0000…0020 (0, 0, 400)   Head {h00=0x001c, h01=0x0050, text=» IDENT SUBAPL 820903 NJ «, t00=0x0000, t01=0x0004}
0x0020…0034               Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042               Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0058               Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAPPL «, t00=0x0000, t01=0x0046}
0x0058…006e               Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK1 «, t00=0x0000, t01=0x005c}
0x006e…0084               Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK2 «, t00=0x0000, t01=0x0072}
0x0084…009a               Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK3 «, t00=0x0000, t01=0x0088}
0x009a…00b0               Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK4 «, t00=0x0000, t01=0x009e}
0x00b0…00c6               Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK5 «, t00=0x0000, t01=0x00b4}
0x00c6…00dc               Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK6 «, t00=0x0000, t01=0x00ca}
0x00dc…00f2               Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK7 «, t00=0x0000, t01=0x00e0}
0x00f2…0108               Head {h00=0x0012, h01=0x0050, text=» ENTRY SPTCHK «, t00=0x0000, t01=0x00f6}
0x0108…011e               Head {h00=0x0012, h01=0x0050, text=» ENTRY SETKRE «, t00=0x0000, t01=0x010c}
0x011e…0134               Head {h00=0x0012, h01=0x0050, text=» ENTRY SETDEB «, t00=0x0000, t01=0x0122}
0x0134…0148               Head {h00=0x0010, h01=0x0050, text=» ENTRY SELTR«, t00=0x0000, t01=0x0138}
0x0148…015e               Head {h00=0x0012, h01=0x0050, text=» ENTRY CHDATO «, t00=0x0000, t01=0x014c}
0x015e…0172               Head {h00=0x0010, h01=0x0050, text=» ENTRY XCOP «, t00=0x0000, t01=0x0162}
0x0172…0188               Head {h00=0x0012, h01=0x0050, text=» ENTRY YYMMDD «, t00=0x0000, t01=0x0176}
0x0188…019c               Head {h00=0x0010, h01=0x0050, text=» EXT KBTEST «, t00=0x0000, t01=0x018c}
0x019c…01ae               Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0001, t01=0x0010}
0x01ae…01c2               Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x0022}
0x01c2…01d6               Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0001, t01=0x0036}
0x01d6…01e8               Head {h00=0x000e, h01=0x0050, text=» EXT CRKJ «, t00=0x0001, t01=0x004a}
0x01e8…01fa               Head {h00=0x000e, h01=0x0050, text=» EXT KKCH «, t00=0x0001, t01=0x005c}
0x01fa…020e               Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0001, t01=0x006e}
0x020e…0220               Head {h00=0x000e, h01=0x0050, text=» EXT TXTRD«, t00=0x0001, t01=0x0082}
0x0220…0232               Head {h00=0x000e, h01=0x0050, text=» EXT LEVRD«, t00=0x0001, t01=0x0094}
0x0232…0246               Head {h00=0x0010, h01=0x0050, text=» EXT REPL00 «, t00=0x0001, t01=0x00a6}
0x0246…025e               Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x00ba}
0x025e…0268               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d2}
0x0268…027c               Head {h00=0x0010, h01=0x0050, text=»SPCHK1 PROC «, t00=0x0001, t01=0x00dc}
0x027c…0298               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x00f0}
0x0298…02a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010c}
0x02a2…02c6               Head {h00=0x0020, h01=0x0050, text=»*          SPCHK1 - CDVCHECK«, t00=0x0001, t01=0x0116}
0x02c6…02d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02d0…0310               Head {h00=0x003c, h01=0x0050, text=»*          PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT«, t00=0x0001, t01=0x0144}
0x0310…034c               Head {h00=0x0038, h01=0x0050, text=»*          IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4«, t00=0x0001, t01=0x0184}
0x034c…0356               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0030}
0x0356…0372               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x003a}
0x0372…03a0               Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0002, t01=0x0056}
0x03a0…03c8               Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0002, t01=0x0084}
0x03c8…0404               Head {h00=0x0038, h01=0x0050, text=» CBL GSWBIN1,CBIN3,CHK1RET FOR LENGTH < 3, NO CHECK «, t00=0x0002, t01=0x00ac}
0x0404…043a               Head {h00=0x0032, h01=0x0050, text=» CBL GSWBIN1,CBIN7,CHK1ER IF 2<LENGTH<7, ERROR«, t00=0x0002, t01=0x00e8}
0x043a…0476               Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN1,CBIN7,CHK10 IF LENGTH = 7, OK  (CIRNR) «, t00=0x0002, t01=0x011e}
0x0476…04b6               Head {h00=0x003c, h01=0x0050, text=» CBNE GSWBIN1,CBIN10,CHK1ER IF LENGTH = 10, OK   (CPRNR)«, t00=0x0002, t01=0x015a}
0x04b6…04c4               Head {h00=0x000a, h01=0x0050, text=»CHK10 «, t00=0x0003, t01=0x000a}
0x04c4…04e0               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN13«, t00=0x0003, t01=0x0018}
0x04e0…04fc               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0003, t01=0x0034}
0x04fc…0530               Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED«, t00=0x0003, t01=0x0050}
0x0530…054c               Head {h00=0x0018, h01=0x0050, text=» TBT GTADMFLG,CHK11 «, t00=0x0003, t01=0x0084}
0x054c…056e               Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD6,=D'1',CHK1ER «, t00=0x0003, t01=0x00a0}
0x056e…0576               Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00c2}
0x0576…05a4               Head {h00=0x002a, h01=0x0050, text=»CHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3«, t00=0x0003, t01=0x00ca}
0x05a4…05e4               Head {h00=0x003c, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT«, t00=0x0003, t01=0x00f8}
0x05e4…061e               Head {h00=0x0036, h01=0x0050, text=» MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH«, t00=0x0003, t01=0x0138}
0x061e…064a               Head {h00=0x0028, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x0003, t01=0x0172}
0x064a…0678               Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN2,CBIN1 ADJUST WEIGHT INDEX«, t00=0x0004, t01=0x000e}
0x0678…06a8               Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN1,CBIN1 ADJUST LENGTH OF ITEM«, t00=0x0004, t01=0x003c}
0x06a8…06dc               Head {h00=0x0030, h01=0x0050, text=» CBNE GSWBIN1,CBIN0,CHK11 BACK TO NEXT DIGIT«, t00=0x0004, t01=0x006c}
0x06dc…06fa               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x0004, t01=0x00a0}
0x06fa…0722               Head {h00=0x0024, h01=0x0050, text=» DIV GSWBCD5,=D'11' DIVIDE BY 11«, t00=0x0004, t01=0x00be}
0x0722…074e               Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD5,=D'11' MULTIPLY WITH 11«, t00=0x0004, t01=0x00e6}
0x074e…0780               Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x0004, t01=0x0112}
0x0780…07be               Head {h00=0x003a, h01=0x0050, text=» CBL GSWBCD4,=D'1',CHK1RET IF REMAINDER 0, THEN RETURN«, t00=0x0004, t01=0x0144}
0x07be…07cc               Head {h00=0x000a, h01=0x0050, text=»CHK1ER«, t00=0x0004, t01=0x0182}
0x07cc…07e8               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN6 «, t00=0x0004, t01=0x0190}
0x07e8…0814               Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN3 SET ERROR VALUE «, t00=0x0005, t01=0x001c}
0x0814…081e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0048}
0x081e…082e               Head {h00=0x000c, h01=0x0050, text=»CHK1RET «, t00=0x0005, t01=0x0052}
0x082e…083a               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0062}
0x083a…0848               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x006e}
0x0848…0856               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x007c}
0x0856…086a               Head {h00=0x0010, h01=0x0050, text=»SPCHK2 PROC «, t00=0x0005, t01=0x008a}
0x086a…0886               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x009e}
0x0886…0890               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ba}
0x0890…08b6               Head {h00=0x0022, h01=0x0050, text=»*          SPCHK2 - CHECK DATE«, t00=0x0005, t01=0x00c4}
0x08b6…08c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ea}
0x08c0…08f4               Head {h00=0x0030, h01=0x0050, text=»*          CHECKS  0<DAY<32  AND  0<MONTH<13«, t00=0x0005, t01=0x00f4}
0x08f4…0922               Head {h00=0x002a, h01=0x0050, text=»*          DATE IS IN THE FORM  DDMMYY«, t00=0x0005, t01=0x0128}
0x0922…094a               Head {h00=0x0024, h01=0x0050, text=»*          INPUT FIELD: SPINPUT «, t00=0x0005, t01=0x0156}
0x094a…0954               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017e}
0x0954…0990               Head {h00=0x0038, h01=0x0050, text=»*          IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0005, t01=0x0188}
0x0990…099a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0034}
0x099a…09b6               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0006, t01=0x003e}
0x09b6…09be               Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x005a}
0x09be…09ec               Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0006, t01=0x0062}
0x09ec…0a16               Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0006, t01=0x0090}
0x0a16…0a3c               Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET DATE«, t00=0x0006, t01=0x00ba}
0x0a3c…0a6e               Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,CBIN10 SET POINTER TO MONTH «, t00=0x0006, t01=0x00e0}
0x0a6e…0aaa               Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH «, t00=0x0006, t01=0x0112}
0x0aaa…0ad6               Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH29 CHECK MONTH«, t00=0x0006, t01=0x014e}
0x0ad6…0af6               Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0006, t01=0x017a}
0x0af6…0b26               Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,CBIN2 ADJUST POINTER TO DAY«, t00=0x0007, t01=0x000a}
0x0b26…0b60               Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY «, t00=0x0007, t01=0x003a}
0x0b60…0b80               Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'31',CH29«, t00=0x0007, t01=0x0074}
0x0b80…0ba0               Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0007, t01=0x0094}
0x0ba0…0bb2               Head {h00=0x000e, h01=0x0050, text=» B CH2RET «, t00=0x0007, t01=0x00b4}
0x0bb2…0bbe               Head {h00=0x0008, h01=0x0050, text=»CH29«, t00=0x0007, t01=0x00c6}
0x0bbe…0be8               Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0007, t01=0x00d2}
0x0be8…0c12               Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN7 SET ERRORCODE «, t00=0x0007, t01=0x00fc}
0x0c12…0c20               Head {h00=0x000a, h01=0x0050, text=»CH2RET«, t00=0x0007, t01=0x0126}
0x0c20…0c3c               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0007, t01=0x0134}
0x0c3c…0c48               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0150}
0x0c48…0c56               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x015c}
0x0c56…0c64               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x016a}
0x0c64…0c78               Head {h00=0x0010, h01=0x0050, text=»SPCHK3 PROC «, t00=0x0007, t01=0x0178}
0x0c78…0c90               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x018c}
0x0c90…0c9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0014}
0x0c9a…0cc0               Head {h00=0x0022, h01=0x0050, text=»*         SPCHK3 - CHECK MONTH«, t00=0x0008, t01=0x001e}
0x0cc0…0cca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0044}
0x0cca…0cf0               Head {h00=0x0022, h01=0x0050, text=»*          CHECKS  0<MONTH<13 «, t00=0x0008, t01=0x004e}
0x0cf0…0d1c               Head {h00=0x0028, h01=0x0050, text=»*          MONTH IS IN THE FORM  MM «, t00=0x0008, t01=0x0074}
0x0d1c…0d42               Head {h00=0x0022, h01=0x0050, text=»*         INPUT FIELD: SPINPUT«, t00=0x0008, t01=0x00a0}
0x0d42…0d4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c6}
0x0d4c…0d88               Head {h00=0x0038, h01=0x0050, text=»*          IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0008, t01=0x00d0}
0x0d88…0d92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d92…0dac               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0008, t01=0x0116}
0x0dac…0dd4               Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET MONTH «, t00=0x0008, t01=0x0130}
0x0dd4…0e00               Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH39 CHECK MONTH«, t00=0x0008, t01=0x0158}
0x0e00…0e20               Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH39 «, t00=0x0008, t01=0x0184}
0x0e20…0e4c               Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN1 SET ERRORCODE OK«, t00=0x0009, t01=0x0014}
0x0e4c…0e5e               Head {h00=0x000e, h01=0x0050, text=» B CH3RET «, t00=0x0009, t01=0x0040}
0x0e5e…0e6a               Head {h00=0x0008, h01=0x0050, text=»CH39«, t00=0x0009, t01=0x0052}
0x0e6a…0e94               Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0009, t01=0x005e}
0x0e94…0ebe               Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN7 SET ERRORCODE «, t00=0x0009, t01=0x0088}
0x0ebe…0ecc               Head {h00=0x000a, h01=0x0050, text=»CH3RET«, t00=0x0009, t01=0x00b2}
0x0ecc…0ed8               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x00c0}
0x0ed8…0ee6               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x00cc}
0x0ee6…0ef4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00da}
0x0ef4…0f08               Head {h00=0x0010, h01=0x0050, text=»SPCHK4 PROC «, t00=0x0009, t01=0x00e8}
0x0f08…0f24               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x00fc}
0x0f24…0f2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0118}
0x0f2e…0f6e               Head {h00=0x003c, h01=0x0050, text=»*          SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY «, t00=0x0009, t01=0x0122}
0x0f6e…0f78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0162}
0x0f78…0f94               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x016c}
0x0f94…0fb0               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0009, t01=0x0188}
0x0fb0…0fd4               Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,CBIN18,CH4RET «, t00=0x000a, t01=0x0014}
0x0fd4…1000               Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT IF KREDIT KEY «, t00=0x000a, t01=0x0038}
0x1000…101c               Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD7,=D'-1' «, t00=0x000a, t01=0x0064}
0x101c…103a               Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD7 «, t00=0x000a, t01=0x0080}
0x103a…1066               Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,CBIN3 SIMULATE EOI-KEY«, t00=0x000a, t01=0x009e}
0x1066…1074               Head {h00=0x000a, h01=0x0050, text=»CH4RET«, t00=0x000a, t01=0x00ca}
0x1074…1080               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x00d8}
0x1080…108e               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x00e4}
0x108e…109c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00f2}
0x109c…10b0               Head {h00=0x0010, h01=0x0050, text=»SPCHK5 PROC «, t00=0x000a, t01=0x0100}
0x10b0…10cc               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x0114}
0x10cc…10d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0130}
0x10d6…1104               Head {h00=0x002a, h01=0x0050, text=»*          SPCHK5 - CHECK LINE NUMBER «, t00=0x000a, t01=0x013a}
0x1104…110e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0168}
0x110e…112a               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000a, t01=0x0172}
0x112a…1146               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000a, t01=0x018e}
0x1146…1174               Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NUMBER «, t00=0x000b, t01=0x001a}
0x1174…11aa               Head {h00=0x0032, h01=0x0050, text=» CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ? «, t00=0x000b, t01=0x0048}
0x11aa…11cc               Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'91',CH510 «, t00=0x000b, t01=0x007e}
0x11cc…11e6               Head {h00=0x0016, h01=0x0050, text=» MUL GSWBCD3,=D'2'«, t00=0x000b, t01=0x00a0}
0x11e6…1218               Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE«, t00=0x000b, t01=0x00ba}
0x1218…1234               Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD4,GSWBCD3«, t00=0x000b, t01=0x00ec}
0x1234…1264               Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE?«, t00=0x000b, t01=0x0108}
0x1264…1282               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD4 «, t00=0x000b, t01=0x0138}
0x1282…12a6               Head {h00=0x0020, h01=0x0050, text=» CBNL GSWBIN1,CVOUTOP,CH5ERR«, t00=0x000b, t01=0x0156}
0x12a6…12ca               Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CMINLIN,CH5ERR «, t00=0x000b, t01=0x017a}
0x12ca…12d6               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x000e}
0x12d6…12e4               Head {h00=0x000a, h01=0x0050, text=»CH5ERR«, t00=0x000c, t01=0x001a}
0x12e4…1300               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x000c, t01=0x0028}
0x1300…131c               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN8 «, t00=0x000c, t01=0x0044}
0x131c…1328               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0060}
0x1328…1336               Head {h00=0x000a, h01=0x0050, text=»CH510 «, t00=0x000c, t01=0x006c}
0x1336…1354               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x000c, t01=0x007a}
0x1354…1360               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0098}
0x1360…136e               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x00a4}
0x136e…137c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00b2}
0x137c…1390               Head {h00=0x0010, h01=0x0050, text=»SPCHK6 PROC «, t00=0x000c, t01=0x00c0}
0x1390…13ac               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x00d4}
0x13ac…13b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f0}
0x13b6…13fc               Head {h00=0x0042, h01=0x0050, text=»*          SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, «, t00=0x000c, t01=0x00fa}
0x13fc…1418               Head {h00=0x0018, h01=0x0050, text=»*          KONTOKORT«, t00=0x000c, t01=0x0140}
0x1418…1422               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x015c}
0x1422…143e               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x0166}
0x143e…1450               Head {h00=0x000e, h01=0x0050, text=» PERF KKCH«, t00=0x000c, t01=0x0182}
0x1450…1478 (13, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET DIGIT «, t00=0x000d, t01=0x0004}
0x1478…1494               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000d, t01=0x002c}
0x1494…14c6               Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH6RET NO CHECK IF ZERO«, t00=0x000d, t01=0x0048}
0x14c6…14ec               Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD3,TTKTCHK,CH6RET OK«, t00=0x000d, t01=0x007a}
0x14ec…150e               Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW3,CBIN3 ERROR «, t00=0x000d, t01=0x00a0}
0x150e…152a               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN13«, t00=0x000d, t01=0x00c2}
0x152a…1538               Head {h00=0x000a, h01=0x0050, text=»CH6RET«, t00=0x000d, t01=0x00de}
0x1538…1544               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00ec}
0x1544…1552               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00f8}
0x1552…155a               Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0106}
0x155a…1562               Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x010e}
0x1562…156a               Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0116}
0x156a…1572               Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x011e}
0x1572…1586               Head {h00=0x0010, h01=0x0050, text=»SPCHK7 PROC «, t00=0x000d, t01=0x0126}
0x1586…1598               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x013a}
0x1598…15a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014c}
0x15a2…15ce               Head {h00=0x0028, h01=0x0050, text=»*     SPCHK7- CDVCHECK (USES SPCHK1)«, t00=0x000d, t01=0x0156}
0x15ce…1604               Head {h00=0x0032, h01=0x0050, text=»*             INSERTS CHECKDIGIT, IF LENGTH=8 «, t00=0x000d, t01=0x0182}
0x1604…160e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0028}
0x160e…164e               Head {h00=0x003c, h01=0x0050, text=»*          PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT«, t00=0x000e, t01=0x0032}
0x164e…168a               Head {h00=0x0038, h01=0x0050, text=»*          IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4«, t00=0x000e, t01=0x0072}
0x168a…16b2               Head {h00=0x0024, h01=0x0050, text=»*     FIELD MUST BE 7 OR 10 LONG«, t00=0x000e, t01=0x00ae}
0x16b2…16f8               Head {h00=0x0042, h01=0x0050, text=»*     IF FIELD IS 8 LONG, IT IS ASSUMED TO BE A PHONE NUMBER, «, t00=0x000e, t01=0x00d6}
0x16f8…1736               Head {h00=0x003a, h01=0x0050, text=»*     AND IS THEN CHANGED FROM 0XXXXXXX TO 5XXXXXXXCC «, t00=0x000e, t01=0x011c}
0x1736…1740               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x015a}
0x1740…1752               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0164}
0x1752…175c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0176}
0x175c…1778               Head {h00=0x0018, h01=0x0050, text=» TBF CLEV8FLG,CHK705«, t00=0x000e, t01=0x0180}
0x1778…17a0               Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x000f, t01=0x000c}
0x17a0…17e0               Head {h00=0x003c, h01=0x0050, text=» CBE GSWBIN1,CBIN8,CHK710 SPECIAL TREATMENT OF PHONE NO «, t00=0x000f, t01=0x0034}
0x17e0…17ee               Head {h00=0x000a, h01=0x0050, text=»CHK705«, t00=0x000f, t01=0x0074}
0x17ee…1816               Head {h00=0x0024, h01=0x0050, text=» PERF SPCHK1 ELSE NORMAL CDVCHK «, t00=0x000f, t01=0x0082}
0x1816…1828               Head {h00=0x000e, h01=0x0050, text=» B CHK7RET«, t00=0x000f, t01=0x00aa}
0x1828…1832               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00bc}
0x1832…1840               Head {h00=0x000a, h01=0x0050, text=»CHK710«, t00=0x000f, t01=0x00c6}
0x1840…185c               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN0 «, t00=0x000f, t01=0x00d4}
0x185c…1888               Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT +FFFFF0XXXXXXX«, t00=0x000f, t01=0x00f0}
0x1888…18b4               Head {h00=0x0028, h01=0x0050, text=» TBT C539FLG,CHK720 JUMP IF TINGLEV «, t00=0x000f, t01=0x011c}
0x18b4…18d6               Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD3,=D'5' +FFFF5«, t00=0x000f, t01=0x0148}
0x18d6…1906               Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD6,CBIN6,CBIN1,GSWBCD3,CBIN5 «, t00=0x000f, t01=0x016a}
0x1906…1914               Head {h00=0x000a, h01=0x0050, text=»CHK720«, t00=0x0010, t01=0x000a}
0x1914…193e               Head {h00=0x0026, h01=0x0050, text=» MUL GSWBCD6,=D'10' +FFFF5XXXXXXX0«, t00=0x0010, t01=0x0018}
0x193e…195c               Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x0010, t01=0x0042}
0x195c…1982               Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW1,CBIN9 SET LENGTH«, t00=0x0010, t01=0x0060}
0x1982…19ac               Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW5,SPBINW2 SAVE END KEY«, t00=0x0010, t01=0x0086}
0x19ac…19d4               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW2,CBIN3 SIMULATE KEY«, t00=0x0010, t01=0x00b0}
0x19d4…19fc               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW3,=W'105' APPL VALUE«, t00=0x0010, t01=0x00d8}
0x19fc…1a28               Head {h00=0x0028, h01=0x0050, text=» PERF SPAPPL CALCULATE CONTROL DIGIT«, t00=0x0010, t01=0x0100}
0x1a28…1a58               Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,SPBINW5 RESTORE KEY VALUE «, t00=0x0010, t01=0x012c}
0x1a58…1a8e               Head {h00=0x0032, h01=0x0050, text=» CBNE GSWBCD5,=D'10',CHK730 CHECK CONTROLDIGIT«, t00=0x0010, t01=0x015c}
0x1a8e…1abc (17, 0, 400)  Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD5,=D'50' SET CONTROL DIGIT«, t00=0x0011, t01=0x0004}
0x1abc…1aca               Head {h00=0x000a, h01=0x0050, text=»CHK730«, t00=0x0011, t01=0x0032}
0x1aca…1afc               Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD6,=D'10' ROOM FOR CONTROLDIGIT «, t00=0x0011, t01=0x0040}
0x1afc…1b2e               Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD6,GSWBCD5 INSERT CONTROL DIGIT «, t00=0x0011, t01=0x0072}
0x1b2e…1b56               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW1,CBIN10 SET LENGTH «, t00=0x0011, t01=0x00a4}
0x1b56…1b74               Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x0011, t01=0x00cc}
0x1b74…1b84               Head {h00=0x000c, h01=0x0050, text=»CHK7RET «, t00=0x0011, t01=0x00ea}
0x1b84…1b90               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x00fa}
0x1b90…1b9e               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x0106}
0x1b9e…1bac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0114}
0x1bac…1bc0               Head {h00=0x0010, h01=0x0050, text=»SPTCHK PROC «, t00=0x0011, t01=0x0122}
0x1bc0…1bdc               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0136}
0x1bdc…1be6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0152}
0x1be6…1c18               Head {h00=0x002e, h01=0x0050, text=»*          SPTCHK - CONDITIONAL TABULATION«, t00=0x0011, t01=0x015c}
0x1c18…1c4a               Head {h00=0x002e, h01=0x0050, text=»*          CONTROLLED BY 'CTAB' IN FORMATS«, t00=0x0011, t01=0x018e}
0x1c4a…1c54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0030}
0x1c54…1c70               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x003a}
0x1c70…1c98               Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x0012, t01=0x0056}
0x1c98…1cba               Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,=W'84',TCHK84«, t00=0x0012, t01=0x007e}
0x1cba…1ce2               Head {h00=0x0024, h01=0x0050, text=» SUB SPBINW3,CBIN16 ADJUST INDEX«, t00=0x0012, t01=0x00a0}
0x1ce2…1cfa               Head {h00=0x0014, h01=0x0050, text=» IB SPBINW3,  C «, t00=0x0012, t01=0x00c8}
0x1cfa…1d20               Head {h00=0x0022, h01=0x0050, text=»  TCHK17,TCHK18,TCHK19,TCHK20 «, t00=0x0012, t01=0x00e0}
0x1d20…1d42               Head {h00=0x001e, h01=0x0050, text=» SUB SPBINW3,=W'61' +16-77«, t00=0x0012, t01=0x0106}
0x1d42…1d64               Head {h00=0x001e, h01=0x0050, text=» IB SPBINW3,TCHK78,TCHK79 «, t00=0x0012, t01=0x0128}
0x1d64…1d88               Head {h00=0x0020, h01=0x0050, text=» SUB SPBINW3,=W'38' 116-119 «, t00=0x0012, t01=0x014a}
0x1d88…1dbc               Head {h00=0x0030, h01=0x0050, text=» IB SPBINW3,TCHK116,TCHK117,TCHK118,TCHK119 «, t00=0x0012, t01=0x016e}
0x1dbc…1dda               Head {h00=0x001a, h01=0x0050, text=»TCHK00   CORRECT FIELD«, t00=0x0013, t01=0x0012}
0x1dda…1df6               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN0 «, t00=0x0013, t01=0x0030}
0x1df6…1e02               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x004c}
0x1e02…1e0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0058}
0x1e0c…1e1a               Head {h00=0x000a, h01=0x0050, text=»TCHK17«, t00=0x0013, t01=0x0062}
0x1e1a…1e32               Head {h00=0x0014, h01=0x0050, text=» TBT BCPR,TCHK00«, t00=0x0013, t01=0x0070}
0x1e32…1e44               Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0013, t01=0x0088}
0x1e44…1e4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009a}
0x1e4e…1e5c               Head {h00=0x000a, h01=0x0050, text=»TCHK18«, t00=0x0013, t01=0x00a4}
0x1e5c…1e6a               Head {h00=0x000a, h01=0x0050, text=»TCHK19«, t00=0x0013, t01=0x00b2}
0x1e6a…1e78               Head {h00=0x000a, h01=0x0050, text=»TCHK20«, t00=0x0013, t01=0x00c0}
0x1e78…1e90               Head {h00=0x0014, h01=0x0050, text=» TBF BCPR,TCHK00«, t00=0x0013, t01=0x00ce}
0x1e90…1ea2               Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0013, t01=0x00e6}
0x1ea2…1eac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f8}
0x1eac…1eba               Head {h00=0x000a, h01=0x0050, text=»TCHK78«, t00=0x0013, t01=0x0102}
0x1eba…1ed8               Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x0013, t01=0x0110}
0x1ed8…1ef4               Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x0013, t01=0x012e}
0x1ef4…1f32               Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK00 CONTINUE TAB «, t00=0x0013, t01=0x014a}
0x1f32…1f52               Head {h00=0x001c, h01=0x0050, text=» B TCHK99 CORRECT FIELD «, t00=0x0013, t01=0x0188}
0x1f52…1f5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0018}
0x1f5c…1f6a               Head {h00=0x000a, h01=0x0050, text=»TCHK79«, t00=0x0014, t01=0x0022}
0x1f6a…1f88               Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x0014, t01=0x0030}
0x1f88…1fa4               Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x0014, t01=0x004e}
0x1fa4…1fe2               Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK99 CORRECT FIELD«, t00=0x0014, t01=0x006a}
0x1fe2…2000               Head {h00=0x001a, h01=0x0050, text=» B TCHK00 CONTINUE TAB«, t00=0x0014, t01=0x00a8}
0x2000…200a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c6}
0x200a…2018               Head {h00=0x000a, h01=0x0050, text=»TCHK84«, t00=0x0014, t01=0x00d0}
0x2018…2034               Head {h00=0x0018, h01=0x0050, text=» TBF GTTRSEL,TCHK00 «, t00=0x0014, t01=0x00de}
0x2034…2046               Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0014, t01=0x00fa}
0x2046…2050               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x010c}
0x2050…2060               Head {h00=0x000c, h01=0x0050, text=»TCHK116 «, t00=0x0014, t01=0x0116}
0x2060…207e               Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,GTTXTTKO«, t00=0x0014, t01=0x0126}
0x207e…20bc               Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK00,TCHK00,TCHK99,TCHK99,TCHK00 «, t00=0x0014, t01=0x0144}
0x20bc…20ce               Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0014, t01=0x0182}
0x20ce…20d8 (21, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0004}
0x20d8…20e8               Head {h00=0x000c, h01=0x0050, text=»TCHK117 «, t00=0x0015, t01=0x000e}
0x20e8…2108               Head {h00=0x001c, h01=0x0050, text=» MOVE  SPBINW3,GTTXTTKO «, t00=0x0015, t01=0x001e}
0x2108…2146               Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK99,TCHK00,TCHK99,TCHK99,TCHK99 «, t00=0x0015, t01=0x003e}
0x2146…2158               Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0015, t01=0x007c}
0x2158…2162               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x008e}
0x2162…2172               Head {h00=0x000c, h01=0x0050, text=»TCHK118 «, t00=0x0015, t01=0x0098}
0x2172…2190               Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,GTTXTTKO«, t00=0x0015, t01=0x00a8}
0x2190…21ce               Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK00,TCHK00,TCHK00 «, t00=0x0015, t01=0x00c6}
0x21ce…21e0               Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0015, t01=0x0104}
0x21e0…21ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0116}
0x21ea…21fa               Head {h00=0x000c, h01=0x0050, text=»TCHK119 «, t00=0x0015, t01=0x0120}
0x21fa…2218               Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,GTTXTTKO«, t00=0x0015, t01=0x0130}
0x2218…2256               Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK99,TCHK00,TCHK99 «, t00=0x0015, t01=0x014e}
0x2256…2268               Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0015, t01=0x018c}
0x2268…2286               Head {h00=0x001a, h01=0x0050, text=»TCHK99   CONTINUE TAB «, t00=0x0016, t01=0x000e}
0x2286…22a2               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN2 «, t00=0x0016, t01=0x002c}
0x22a2…22ae               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0048}
0x22ae…22bc               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x0054}
0x22bc…22ca               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0062}
0x22ca…22de               Head {h00=0x0010, h01=0x0050, text=»SPAPPL PROC «, t00=0x0016, t01=0x0070}
0x22de…22fa               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0016, t01=0x0084}
0x22fa…2304               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a0}
0x2304…2354               Head {h00=0x004c, h01=0x0050, text=»*          SPAPPL - PROCEDURE ACTIVATED BY SCREEN PACKAGE IF APPL-VALUE «, t00=0x0016, t01=0x00aa}
0x2354…2396               Head {h00=0x003e, h01=0x0050, text=»*          IS NOT ZERO, WHICH IS THE CASE FOR ALL FIELDS. «, t00=0x0016, t01=0x00fa}
0x2396…23a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x013c}
0x23a0…23e4               Head {h00=0x0040, h01=0x0050, text=»*          APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE)«, t00=0x0016, t01=0x0146}
0x23e4…2428               Head {h00=0x0040, h01=0x0050, text=»*          A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT «, t00=0x0016, t01=0x018a}
0x2428…2460               Head {h00=0x0034, h01=0x0050, text=»*          TESTING AND BRANCH TO PACKING ROUTINE«, t00=0x0017, t01=0x003e}
0x2460…246a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0076}
0x246a…2486               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0017, t01=0x0080}
0x2486…2490               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x009c}
0x2490…24c2               Head {h00=0x002e, h01=0x0050, text=»*          SPBINW3 IS CURRENT APPL NUMBER «, t00=0x0017, t01=0x00a6}
0x24c2…24da               Head {h00=0x0014, h01=0x0050, text=»   ART - RETURN «, t00=0x0017, t01=0x00d8}
0x24da…24f6               Head {h00=0x0018, h01=0x0050, text=»   APK - PACK FIELD «, t00=0x0017, t01=0x00f0}
0x24f6…251c               Head {h00=0x0022, h01=0x0050, text=»   APF - PACK FIELD WITH SIGN «, t00=0x0017, t01=0x010c}
0x251c…2542               Head {h00=0x0022, h01=0x0050, text=»   AA01 - TEST FOR FIELD TO BE«, t00=0x0017, t01=0x0132}
0x2542…255e               Head {h00=0x0018, h01=0x0050, text=»   ---- - AUTODUPPED«, t00=0x0017, t01=0x0158}
0x255e…2584               Head {h00=0x0022, h01=0x0050, text=»   AA02 - TEST FOR AUTODUP KEY«, t00=0x0017, t01=0x0174}
0x2584…25a6               Head {h00=0x001e, h01=0x0050, text=»   AA03 - IF LENGTH ZERO, «, t00=0x0018, t01=0x000a}
0x25a6…25c4               Head {h00=0x001a, h01=0x0050, text=»   ---- - DELETE FIELS«, t00=0x0018, t01=0x002c}
0x25c4…25e2               Head {h00=0x001a, h01=0x0050, text=»   AA05 - TEST FIELD 5«, t00=0x0018, t01=0x004a}
0x25e2…2600               Head {h00=0x001a, h01=0x0050, text=»   AA06 - TEST FIELD 6«, t00=0x0018, t01=0x0068}
0x2600…2622               Head {h00=0x001e, h01=0x0050, text=»   AA11 - TEST VALOERDATE «, t00=0x0018, t01=0x0086}
0x2622…2644               Head {h00=0x001e, h01=0x0050, text=»   AA17 - TEST FORFALDSAAR«, t00=0x0018, t01=0x00a8}
0x2644…266a               Head {h00=0x0022, h01=0x0050, text=»   AA65 - IF AA05, AA06 THERE «, t00=0x0018, t01=0x00ca}
0x266a…268e               Head {h00=0x0020, h01=0x0050, text=»   ---- - MIGHT BE A CHOICE «, t00=0x0018, t01=0x00f0}
0x268e…26b0               Head {h00=0x001e, h01=0x0050, text=»   ---- - OF NEW TRANSTYPE«, t00=0x0018, t01=0x0114}
0x26b0…26ce               Head {h00=0x001a, h01=0x0050, text=»   A64 - TEST FIELD 64«, t00=0x0018, t01=0x0136}
0x26ce…26ec               Head {h00=0x001a, h01=0x0050, text=»   A65 - TEST FIELD 65«, t00=0x0018, t01=0x0154}
0x26ec…2710               Head {h00=0x0020, h01=0x0050, text=»   A76  - COUNTER, TRANS 12 «, t00=0x0018, t01=0x0172}
0x2710…2738               Head {h00=0x0024, h01=0x0050, text=»   A77  - TR 4, INSERT BKO 51,52«, t00=0x0019, t01=0x0008}
0x2738…275e               Head {h00=0x0022, h01=0x0050, text=»   A78  - ACCOUNT NO, TRANS 12«, t00=0x0019, t01=0x0030}
0x275e…2786               Head {h00=0x0024, h01=0x0050, text=»   A79  -   -  -  -  -  - (COPY)«, t00=0x0019, t01=0x0056}
0x2786…27ac               Head {h00=0x0022, h01=0x0050, text=»   A80-A87 - CHECK OF CONTROL «, t00=0x0019, t01=0x007e}
0x27ac…27ce               Head {h00=0x001e, h01=0x0050, text=»   ---- - INFORMATION FOR «, t00=0x0019, t01=0x00a4}
0x27ce…27ea               Head {h00=0x0018, h01=0x0050, text=»   ---- - TRANSTYPES«, t00=0x0019, t01=0x00c6}
0x27ea…280e               Head {h00=0x0020, h01=0x0050, text=»   A88  - AUTODUP BKO, TR 4 «, t00=0x0019, t01=0x00e2}
0x280e…2830               Head {h00=0x001e, h01=0x0050, text=»   A89  - STORE IN FIELD 6«, t00=0x0019, t01=0x0106}
0x2830…2854               Head {h00=0x0020, h01=0x0050, text=»   A90  - SPECIAL SLUT-FIELD«, t00=0x0019, t01=0x0128}
0x2854…2876               Head {h00=0x001e, h01=0x0050, text=»   A91 - ENTER TO SLUT-KEY«, t00=0x0019, t01=0x014c}
0x2876…2894               Head {h00=0x001a, h01=0x0050, text=»   A100 - CHECK TR 12 «, t00=0x0019, t01=0x016e}
0x2894…28b8               Head {h00=0x0020, h01=0x0050, text=»   A101 - CHECK BEHL. COUNT.«, t00=0x0019, t01=0x018c}
0x28b8…28d2               Head {h00=0x0016, h01=0x0050, text=»   A102 - REL. DAY«, t00=0x001a, t01=0x0020}
0x28d2…28f4               Head {h00=0x001e, h01=0x0050, text=»   A103 - SET BEHL. COUNT «, t00=0x001a, t01=0x003a}
0x28f4…2912               Head {h00=0x001a, h01=0x0050, text=»   A104 - SET TRANS 12«, t00=0x001a, t01=0x005c}
0x2912…2962               Head {h00=0x004c, h01=0x0050, text=»                                                 A105 - CTRL.DIGIT CALC.«, t00=0x001a, t01=0x007a}
0x2962…297c               Head {h00=0x0016, h01=0x0050, text=»   A107 - AS A102 «, t00=0x001a, t01=0x00ca}
0x297c…299e               Head {h00=0x001e, h01=0x0050, text=»   A108 - SPG -REGKONTONR «, t00=0x001a, t01=0x00e4}
0x299e…29be               Head {h00=0x001c, h01=0x0050, text=»   A109 - SPG-CPR/CIR/NR«, t00=0x001a, t01=0x0106}
0x29be…29da               Head {h00=0x0018, h01=0x0050, text=»   A110 - SPG-BELOB «, t00=0x001a, t01=0x0126}
0x29da…29fc               Head {h00=0x001e, h01=0x0050, text=»   A111 - SPG-OTHER FIELD «, t00=0x001a, t01=0x0142}
0x29fc…2a16               Head {h00=0x0016, h01=0x0050, text=»   A115 REMIT-TXT «, t00=0x001a, t01=0x0164}
0x2a16…2a2e               Head {h00=0x0014, h01=0x0050, text=»   A120 - BUDGET«, t00=0x001a, t01=0x017e}
0x2a2e…2a38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0008}
0x2a38…2a58               Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW3,=W'90',AA01«, t00=0x001b, t01=0x0012}
0x2a58…2a7a               Head {h00=0x001e, h01=0x0050, text=» CBG SPBINW3,=W'114',AA01 «, t00=0x001b, t01=0x0032}
0x2a7a…2a90               Head {h00=0x0012, h01=0x0050, text=» B AAA 90-114 «, t00=0x001b, t01=0x0054}
0x2a90…2a9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006a}
0x2a9a…2aa6               Head {h00=0x0008, h01=0x0050, text=»AA01«, t00=0x001b, t01=0x0074}
0x2aa6…2ad8               Head {h00=0x002e, h01=0x0050, text=» CBNE SPBINW1,CBIN0,AAA IF LENGTH IS ZERO «, t00=0x001b, t01=0x0080}
0x2ad8…2b1a               Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN4,CFLTDEX(SPBINW3) GET INDEX VALUE TO GSWBIN4 «, t00=0x001b, t01=0x00b2}
0x2b1a…2b4a               Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(GSWBIN4),CBIN0 DELETE FIELD«, t00=0x001b, t01=0x00f4}
0x2b4a…2b58               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001b, t01=0x0124}
0x2b58…2b62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0132}
0x2b62…2b7c               Head {h00=0x0016, h01=0x0050, text=»AAA IB SPBINW3,  C«, t00=0x001b, t01=0x013c}
0x2b7c…2bb8               Head {h00=0x0038, h01=0x0050, text=»  ART,ART,ART,ART,A05,A06,A07,APF,ART, FIELDS 1-9 C «, t00=0x001b, t01=0x0156}
0x2bb8…2bfa (28, 0, 400)  Head {h00=0x003e, h01=0x0050, text=»  APK,A11,APK,APK,APK,APK,APK,A17,APK,APK, FIELDS 10,19 C «, t00=0x001c, t01=0x0004}
0x2bfa…2c3c               Head {h00=0x003e, h01=0x0050, text=»  APK,APK,APK,APK,APK,APK,APK,APK,APK,APK, FIELDS 20-29 C «, t00=0x001c, t01=0x0046}
0x2c3c…2c7e               Head {h00=0x003e, h01=0x0050, text=»  APK,APK,APK,APF,APK,APK,APK,APK,APK,APF, FIELDS 30-39 C «, t00=0x001c, t01=0x0088}
0x2c7e…2cc0               Head {h00=0x003e, h01=0x0050, text=»  APK,APK,APK,APK,APK,APK,APK,APF,APK,APK, FIELDS 40-49 C «, t00=0x001c, t01=0x00ca}
0x2cc0…2d02               Head {h00=0x003e, h01=0x0050, text=»  APK,APK,APF,APF,A54,A57,A57,A57,A57,A57, FIELDS 50-59 C «, t00=0x001c, t01=0x010c}
0x2d02…2d44               Head {h00=0x003e, h01=0x0050, text=»  A57,A57,A57,APK,A64,A65,APK,ART,ART,ART, FIELDS 60-69 C «, t00=0x001c, t01=0x014e}
0x2d44…2d86               Head {h00=0x003e, h01=0x0050, text=»  APK,APK,ART,ART,ART,ART,A76,A77,A78,A79, FIELDS 70,79 C «, t00=0x001c, t01=0x0190}
0x2d86…2dc8               Head {h00=0x003e, h01=0x0050, text=»  A80,A81,A82,A83,A84,A85,A86,A87,A88,A89, FIELDS 80-89 C «, t00=0x001d, t01=0x0042}
0x2dc8…2e0a               Head {h00=0x003e, h01=0x0050, text=»  A90,A91,A92,A93,A94,ART,ART,ART,ART,ART, FIELDS 90,99 C «, t00=0x001d, t01=0x0084}
0x2e0a…2e3e               Head {h00=0x0030, h01=0x0050, text=»  A100,A101,A102,A103,A104, FIELDS 100,104 C«, t00=0x001d, t01=0x00c6}
0x2e3e…2e72               Head {h00=0x0030, h01=0x0050, text=»  A105,ART,A107,A108,A109, FIELDS 105,109 C «, t00=0x001d, t01=0x00fa}
0x2e72…2ea2               Head {h00=0x002c, h01=0x0050, text=»  A110,A111,ART,ART,ART, FIELS 110,114 C«, t00=0x001d, t01=0x012e}
0x2ea2…2edc               Head {h00=0x0036, h01=0x0050, text=»  A115,A116,A117,A118,A119,A120, FIELDS 115,120 C «, t00=0x001d, t01=0x015e}
0x2edc…2f0e               Head {h00=0x002e, h01=0x0050, text=»  A121,A122,APK,APK,APK, FIELDS 121-125 C «, t00=0x001e, t01=0x0008}
0x2f0e…2f36               Head {h00=0x0024, h01=0x0050, text=»  ART,ART,ART,ART,A130,A131,A132«, t00=0x001e, t01=0x003a}
0x2f36…2f48               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001e, t01=0x0062}
0x2f48…2f74               Head {h00=0x0028, h01=0x0050, text=»A05   CHECK REGISTRERINGSKONTONUMMER«, t00=0x001e, t01=0x0074}
0x2f74…2f9c               Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x001e, t01=0x00a0}
0x2f9c…2fc8               Head {h00=0x0028, h01=0x0050, text=» CBE GSWBIN1,CBIN4,A059 LENGTH = 4? «, t00=0x001e, t01=0x00c8}
0x2fc8…3002               Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A065 TRANSTYPE HANDLING IN A065«, t00=0x001e, t01=0x00f4}
0x3002…3030               Head {h00=0x002a, h01=0x0050, text=» CMP GSWBIN1,CBIN10 LENGTH MUST BE 10 «, t00=0x001e, t01=0x012e}
0x3030…3042               Head {h00=0x000e, h01=0x0050, text=» BNE A058 «, t00=0x001e, t01=0x015c}
0x3042…3060               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x001e, t01=0x016e}
0x3060…3084               Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x001e, t01=0x018c}
0x3084…30a2               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x001f, t01=0x0020}
0x30a2…30ba               Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1,  C «, t00=0x001f, t01=0x003e}
0x30ba…30ee               Head {h00=0x0030, h01=0x0050, text=»  A053,A053,A051,A053,A053,A052,A0570,A0575 «, t00=0x001f, t01=0x0056}
0x30ee…30fa               Head {h00=0x0008, h01=0x0050, text=»A051«, t00=0x001f, t01=0x008a}
0x30fa…311a               Head {h00=0x001c, h01=0x0050, text=» B APK CPR NOT NECESSARY«, t00=0x001f, t01=0x0096}
0x311a…313c               Head {h00=0x001e, h01=0x0050, text=»A052   REMIT. NOT ALLOWED «, t00=0x001f, t01=0x00b6}
0x313c…3154               Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX,  C«, t00=0x001f, t01=0x00d8}
0x3154…318c               Head {h00=0x0034, h01=0x0050, text=»  A0520,A0520,A0520,A0520,A0520, TR 1,2,3,4,5 C «, t00=0x001f, t01=0x00f0}
0x318c…31c4               Head {h00=0x0034, h01=0x0050, text=»  A0520,A0520,A0525,A0525,A0520, TR 6,7,8,9,10 C«, t00=0x001f, t01=0x0128}
0x31c4…31fe               Head {h00=0x0036, h01=0x0050, text=»  A0520,A0525,A0525,A0525,A0525 TR 12,18,19,28,29 «, t00=0x001f, t01=0x0160}
0x31fe…320c               Head {h00=0x000a, h01=0x0050, text=»A0520 «, t00=0x0020, t01=0x000a}
0x320c…321a               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0020, t01=0x0018}
0x321a…3228               Head {h00=0x000a, h01=0x0050, text=»A0525 «, t00=0x0020, t01=0x0026}
0x3228…324a               Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,CBIN20 ERROR«, t00=0x0020, t01=0x0034}
0x324a…3258               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0020, t01=0x0056}
0x3258…3274               Head {h00=0x0018, h01=0x0050, text=»A053   CPR NECESSARY«, t00=0x0020, t01=0x0064}
0x3274…328c               Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX,  C«, t00=0x0020, t01=0x0080}
0x328c…32be               Head {h00=0x002e, h01=0x0050, text=»  A054,A055,A054,A054,A055, TR 1,2,3,4,5 C«, t00=0x0020, t01=0x0098}
0x32be…32f2               Head {h00=0x0030, h01=0x0050, text=»  A054,A055,A055,A054,A054, TR 6,7,8,9,10 C «, t00=0x0020, t01=0x00ca}
0x32f2…3326               Head {h00=0x0030, h01=0x0050, text=»  A054,A055,A054,A055,A054 TR 12,18,19,28,29«, t00=0x0020, t01=0x00fe}
0x3326…3332               Head {h00=0x0008, h01=0x0050, text=»A054«, t00=0x0020, t01=0x0132}
0x3332…3340               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0020, t01=0x013e}
0x3340…334c               Head {h00=0x0008, h01=0x0050, text=»A055«, t00=0x0020, t01=0x014c}
0x334c…3372               Head {h00=0x0022, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A056 ERROR «, t00=0x0020, t01=0x0158}
0x3372…3390               Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x0020, t01=0x017e}
0x3390…33a0               Head {h00=0x000c, h01=0x0050, text=» B A054 «, t00=0x0021, t01=0x000c}
0x33a0…33ac               Head {h00=0x0008, h01=0x0050, text=»A056«, t00=0x0021, t01=0x001c}
0x33ac…33c8               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN19«, t00=0x0021, t01=0x0028}
0x33c8…33d6               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0021, t01=0x0044}
0x33d6…33e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0052}
0x33e0…3406               Head {h00=0x0022, h01=0x0050, text=»A0570   7: KNT.NO. NOT ALLOWED«, t00=0x0021, t01=0x005c}
0x3406…3422               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'23'«, t00=0x0021, t01=0x0082}
0x3422…3430               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0021, t01=0x009e}
0x3430…343a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ac}
0x343a…3468               Head {h00=0x002a, h01=0x0050, text=»A0575   8:KNT.NO. NOT ALLOWED IN SUPL «, t00=0x0021, t01=0x00b6}
0x3468…3490               Head {h00=0x0024, h01=0x0050, text=» CBE GTREGDEX,CBIN10,A0577 TR 10«, t00=0x0021, t01=0x00e4}
0x3490…34b0               Head {h00=0x001c, h01=0x0050, text=» TBT TTSUPFLG,A0577 SUPL«, t00=0x0021, t01=0x010c}
0x34b0…34c2               Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0021, t01=0x012c}
0x34c2…34d8               Head {h00=0x0012, h01=0x0050, text=»A0577   NOT OK«, t00=0x0021, t01=0x013e}
0x34d8…34f4               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN22«, t00=0x0021, t01=0x0154}
0x34f4…3502               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0021, t01=0x0170}
0x3502…350c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x017e}
0x350c…3518               Head {h00=0x0008, h01=0x0050, text=»A059«, t00=0x0021, t01=0x0188}
0x3518…354a (34, 0, 400)  Head {h00=0x002e, h01=0x0050, text=» CBL GTREGNR,=D'48',A058 ONLY ALLOWED WHEN«, t00=0x0022, t01=0x0004}
0x354a…357e               Head {h00=0x0030, h01=0x0050, text=» CBG GTREGNR,=D'49',A058 IN BUDGET TR.48/49 «, t00=0x0022, t01=0x0036}
0x357e…358c               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0022, t01=0x006a}
0x358c…3596               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0078}
0x3596…35a2               Head {h00=0x0008, h01=0x0050, text=»A058«, t00=0x0022, t01=0x0082}
0x35a2…35cc               Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN3 SET ERRORCODE «, t00=0x0022, t01=0x008e}
0x35cc…35da               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0022, t01=0x00b8}
0x35da…35ec               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x00c6}
0x35ec…360e               Head {h00=0x001e, h01=0x0050, text=»A06   CHECK CPR/CIR NUMBER«, t00=0x0022, t01=0x00d8}
0x360e…3636               Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0022, t01=0x00fa}
0x3636…3670               Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A065 TRANSTYPE HANDLING IN A065«, t00=0x0022, t01=0x0122}
0x3670…369a               Head {h00=0x0026, h01=0x0050, text=» SET BCPR SET CPR-SWITCH (CPR-NO) «, t00=0x0022, t01=0x015c}
0x369a…36b8               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0022, t01=0x0186}
0x36b8…36de               Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A061«, t00=0x0023, t01=0x0014}
0x36de…36fa               Head {h00=0x0018, h01=0x0050, text=» SET BLEV LEVERAND. «, t00=0x0023, t01=0x003a}
0x36fa…3722               Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3900000000',A062«, t00=0x0023, t01=0x0056}
0x3722…373a               Head {h00=0x0014, h01=0x0050, text=» CLEAR BLEV CPR.«, t00=0x0023, t01=0x007e}
0x373a…374a               Head {h00=0x000c, h01=0x0050, text=» B A062 «, t00=0x0023, t01=0x0096}
0x374a…3756               Head {h00=0x0008, h01=0x0050, text=»A061«, t00=0x0023, t01=0x00a6}
0x3756…3784               Head {h00=0x002a, h01=0x0050, text=» CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO) «, t00=0x0023, t01=0x00b2}
0x3784…3790               Head {h00=0x0008, h01=0x0050, text=»A062«, t00=0x0023, t01=0x00e0}
0x3790…37b8               Head {h00=0x0024, h01=0x0050, text=» TBT GTBDTFLG,A0625 BUNDT REMIT «, t00=0x0023, t01=0x00ec}
0x37b8…37e0               Head {h00=0x0024, h01=0x0050, text=» TBT GTSTRFLG,A0621 STRAKS REMIT«, t00=0x0023, t01=0x0114}
0x37e0…37f8               Head {h00=0x0014, h01=0x0050, text=» B APK NOT REMIT«, t00=0x0023, t01=0x013c}
0x37f8…3802               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0154}
0x3802…3810               Head {h00=0x000a, h01=0x0050, text=»A0621 «, t00=0x0023, t01=0x015e}
0x3810…3846               Head {h00=0x0032, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD1 STRAKS REMIT, SET LEVNR «, t00=0x0023, t01=0x016c}
0x3846…385a               Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0024, t01=0x0012}
0x385a…386c               Head {h00=0x000e, h01=0x0050, text=» BOK A0622«, t00=0x0024, t01=0x0026}
0x386c…388e               Head {h00=0x001e, h01=0x0050, text=»   NOT OK, LEV FINDES IKKE«, t00=0x0024, t01=0x0038}
0x388e…38b0               Head {h00=0x001e, h01=0x0050, text=» SET SPWARNFL SET WARNING «, t00=0x0024, t01=0x005a}
0x38b0…38be               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0024, t01=0x007c}
0x38be…38cc               Head {h00=0x000a, h01=0x0050, text=»A0622 «, t00=0x0024, t01=0x008a}
0x38cc…38fc               Head {h00=0x002c, h01=0x0050, text=» CBG GTLEVBFO,=D'4',A0629 ONLY 0-4 VALID«, t00=0x0024, t01=0x0098}
0x38fc…390c               Head {h00=0x000c, h01=0x0050, text=» B A063 «, t00=0x0024, t01=0x00c8}
0x390c…3914               Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x00d8}
0x3914…391e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e0}
0x391e…393a               Head {h00=0x0018, h01=0x0050, text=»A0625   BUNDT REMIT «, t00=0x0024, t01=0x00ea}
0x393a…3956               Head {h00=0x0018, h01=0x0050, text=» TBT CAD41FLG,A0630 «, t00=0x0024, t01=0x0106}
0x3956…397e               Head {h00=0x0024, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD1 SET LEVNR «, t00=0x0024, t01=0x0122}
0x397e…3992               Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0024, t01=0x014a}
0x3992…39a6               Head {h00=0x0010, h01=0x0050, text=» BNOK A0629 «, t00=0x0024, t01=0x015e}
0x39a6…39c8               Head {h00=0x001e, h01=0x0050, text=» CBE GTLEVBFO,=D'0',A0629 «, t00=0x0024, t01=0x0172}
0x39c8…39d4 (37, 0, 400)  Head {h00=0x0008, h01=0x0050, text=»A063«, t00=0x0025, t01=0x0004}
0x39d4…39ee               Head {h00=0x0016, h01=0x0050, text=» TBF GTCYFLG,A064 «, t00=0x0025, t01=0x0010}
0x39ee…3a12               Head {h00=0x0020, h01=0x0050, text=» MOVE GSSWITCH(CBIN2),CBIN1 «, t00=0x0025, t01=0x002a}
0x3a12…3a1e               Head {h00=0x0008, h01=0x0050, text=»A064«, t00=0x0025, t01=0x004e}
0x3a1e…3a2c               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0025, t01=0x005a}
0x3a2c…3a50               Head {h00=0x0020, h01=0x0050, text=»A0629   WRONG BETALINGSFORM «, t00=0x0025, t01=0x0068}
0x3a50…3a72               Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,CBIN11 ERROR«, t00=0x0025, t01=0x008c}
0x3a72…3a80               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0025, t01=0x00ae}
0x3a80…3a8e               Head {h00=0x000a, h01=0x0050, text=»A0630 «, t00=0x0025, t01=0x00bc}
0x3a8e…3aba               Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW4,=W'12' ADM 41,42,43,46«, t00=0x0025, t01=0x00ca}
0x3aba…3ac8               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0025, t01=0x00f6}
0x3ac8…3ada               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x0104}
0x3ada…3b02               Head {h00=0x0024, h01=0x0050, text=»A54   FIELD 54 HAS BEEN ENTERED «, t00=0x0025, t01=0x0116}
0x3b02…3b34               Head {h00=0x002e, h01=0x0050, text=»* THE FIELD WITH LENGTH N (N = 1,2,...,10)«, t00=0x0025, t01=0x013e}
0x3b34…3b64               Head {h00=0x002c, h01=0x0050, text=»* HAS TO BE LEFT-JUSTIFIED AND EXPANDED «, t00=0x0025, t01=0x0170}
0x3b64…3b80               Head {h00=0x0018, h01=0x0050, text=»* TO THE LENGTH 10. «, t00=0x0026, t01=0x0010}
0x3b80…3b9c               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=C'0'«, t00=0x0026, t01=0x002c}
0x3b9c…3bb8               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN10«, t00=0x0026, t01=0x0048}
0x3bb8…3be6               Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN1,SPBINW1 HOW MANY ZEROES ?«, t00=0x0026, t01=0x0064}
0x3be6…3c1c               Head {h00=0x0032, h01=0x0050, text=» INSRT SPINPUT,SPBINW1,GSWBIN1,GSWSTR20,CBIN0 «, t00=0x0026, t01=0x0092}
0x3c1c…3c46               Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW1,CBIN10 ADJUST LENGTH«, t00=0x0026, t01=0x00c8}
0x3c46…3c54               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0026, t01=0x00f2}
0x3c54…3c66               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x0100}
0x3c66…3c72               Head {h00=0x0008, h01=0x0050, text=»A57 «, t00=0x0026, t01=0x0112}
0x3c72…3c80               Head {h00=0x000a, h01=0x0050, text=» B APF«, t00=0x0026, t01=0x011e}
0x3c80…3c8e               Head {h00=0x000a, h01=0x0050, text=»******«, t00=0x0026, t01=0x012c}
0x3c8e…3c9a               Head {h00=0x0008, h01=0x0050, text=»A065«, t00=0x0026, t01=0x013a}
0x3c9a…3cd4               Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW1,CBIN0 SET LENGTH TO ZERO (FUNCTION) «, t00=0x0026, t01=0x0146}
0x3cd4…3d04               Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET NEW TRANSTYPE «, t00=0x0026, t01=0x0180}
0x3d04…3d0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0020}
0x3d0e…3d36               Head {h00=0x0024, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM ROUTINE «, t00=0x0027, t01=0x002a}
0x3d36…3d46               Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0027, t01=0x0052}
0x3d46…3d68               Head {h00=0x001e, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE «, t00=0x0027, t01=0x0062}
0x3d68…3d78               Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0027, t01=0x0084}
0x3d78…3d82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0094}
0x3d82…3dae               Head {h00=0x0028, h01=0x0050, text=»*          CHECK FOR VALID TRANSTYPE«, t00=0x0027, t01=0x009e}
0x3dae…3db8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ca}
0x3db8…3dd8               Head {h00=0x001c, h01=0x0050, text=»*          ADJUST REGDEX«, t00=0x0027, t01=0x00d4}
0x3dd8…3de2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f4}
0x3de2…3dfe               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0027, t01=0x00fe}
0x3dfe…3e3a               Head {h00=0x0038, h01=0x0050, text=»*   TEST FOR CORRECT TRANSACTIONS IN THIS CONNECTION«, t00=0x0027, t01=0x011a}
0x3e3a…3e54               Head {h00=0x0016, h01=0x0050, text=» TBT GTKASSE,A0672«, t00=0x0027, t01=0x0156}
0x3e54…3e8e               Head {h00=0x0036, h01=0x0050, text=» CBG GSWBCD3,=D'30',A067 CORRECT FOR NOT IN KASSE «, t00=0x0027, t01=0x0170}
0x3e8e…3e9e               Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x0028, t01=0x001a}
0x3e9e…3eac               Head {h00=0x000a, h01=0x0050, text=»A0672 «, t00=0x0028, t01=0x002a}
0x3eac…3ede               Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE «, t00=0x0028, t01=0x0038}
0x3ede…3ee6               Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x006a}
0x3ee6…3ef6               Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x0028, t01=0x0072}
0x3ef6…3f00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0082}
0x3f00…3f0c               Head {h00=0x0008, h01=0x0050, text=»A067«, t00=0x0028, t01=0x008c}
0x3f0c…3f4a               Head {h00=0x003a, h01=0x0050, text=» CBE GSWBCD3,CREGTAB(GSWBIN1,CBIN1),A068 SEARCH REGNR «, t00=0x0028, t01=0x0098}
0x3f4a…3f74               Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CBIN1 ADD 1 TO INDEX «, t00=0x0028, t01=0x00d6}
0x3f74…3fb2               Head {h00=0x003a, h01=0x0050, text=» CBNE CREGTAB(GSWBIN1,CBIN1),=D'-1',A067 END OF TABLE?«, t00=0x0028, t01=0x0100}
0x3fb2…3fbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x013e}
0x3fbc…3fca               Head {h00=0x000a, h01=0x0050, text=»A0675 «, t00=0x0028, t01=0x0148}
0x3fca…3ff8               Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,CBIN9 INVALID TRANSTYPE «, t00=0x0028, t01=0x0156}
0x3ff8…4006               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0028, t01=0x0184}
0x4006…4012 (41, 0, 400)  Head {h00=0x0008, h01=0x0050, text=»A068«, t00=0x0029, t01=0x0004}
0x4012…4038               Head {h00=0x0022, h01=0x0050, text=»   TAKE CARE OF NEW TRANSTYPE «, t00=0x0029, t01=0x0010}
0x4038…4070               Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW2,CBIN18,A0680 HANDLING OF KREDIT KEY«, t00=0x0029, t01=0x0036}
0x4070…409e               Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,CBIN17,A0680 SLUT/DEB KEY«, t00=0x0029, t01=0x006e}
0x409e…40d4               Head {h00=0x0032, h01=0x0050, text=» CBE SPBINW2,CBIN3,A0680 HANDLING OF DEBIT KEY«, t00=0x0029, t01=0x009c}
0x40d4…4106               Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW4,CBIN4 HANDLING OF WRONG KEY «, t00=0x0029, t01=0x00d2}
0x4106…4114               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0029, t01=0x0104}
0x4114…4122               Head {h00=0x000a, h01=0x0050, text=»A0680 «, t00=0x0029, t01=0x0112}
0x4122…414a               Head {h00=0x0024, h01=0x0050, text=» TBT GTCYFLG,A0685 CYKEL TABEL ?«, t00=0x0029, t01=0x0120}
0x414a…4172               Head {h00=0x0024, h01=0x0050, text=» CLEAR GTBDTFLG NO, CLEAR FLAGS «, t00=0x0029, t01=0x0148}
0x4172…418a               Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSTRFLG «, t00=0x0029, t01=0x0170}
0x418a…41ac               Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,=D'28',A0681 «, t00=0x0029, t01=0x0188}
0x41ac…41ce               Head {h00=0x001e, h01=0x0050, text=» SET GTBDTFLG TRANS 28,29 «, t00=0x002a, t01=0x001a}
0x41ce…41de               Head {h00=0x000c, h01=0x0050, text=» B A0689«, t00=0x002a, t01=0x003c}
0x41de…41ec               Head {h00=0x000a, h01=0x0050, text=»A0681 «, t00=0x002a, t01=0x004c}
0x41ec…420e               Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,=D'18',A0689 «, t00=0x002a, t01=0x005a}
0x420e…4230               Head {h00=0x001e, h01=0x0050, text=» SET GTSTRFLG TRANS 18,19 «, t00=0x002a, t01=0x007c}
0x4230…4240               Head {h00=0x000c, h01=0x0050, text=» B A0689«, t00=0x002a, t01=0x009e}
0x4240…4260               Head {h00=0x001c, h01=0x0050, text=»A0685   IN CYKEL/STABEL «, t00=0x002a, t01=0x00ae}
0x4260…428a               Head {h00=0x0026, h01=0x0050, text=» TBF GTBDTFLG,A0686 TRANS 28,29 ? «, t00=0x002a, t01=0x00ce}
0x428a…42c2               Head {h00=0x0034, h01=0x0050, text=» CBL GSWBCD3,=D'28',A0675 IF NOT, INVALID TRANS «, t00=0x002a, t01=0x00f8}
0x42c2…42de               Head {h00=0x0018, h01=0x0050, text=» B A0689 VALID TRANS«, t00=0x002a, t01=0x0130}
0x42de…42ec               Head {h00=0x000a, h01=0x0050, text=»A0686 «, t00=0x002a, t01=0x014c}
0x42ec…4316               Head {h00=0x0026, h01=0x0050, text=» TBT GTSTRFLG,A0687 TRANS 18, 19 ?«, t00=0x002a, t01=0x015a}
0x4316…4336               Head {h00=0x001c, h01=0x0050, text=»    NO, ONLY TRANS 1-12 «, t00=0x002a, t01=0x0184}
0x4336…436e               Head {h00=0x0034, h01=0x0050, text=» CBG GSWBCD3,=D'12',A0675 IF NOT, INVALID TRANS «, t00=0x002b, t01=0x0014}
0x436e…438a               Head {h00=0x0018, h01=0x0050, text=» B A0689 VALID TRANS«, t00=0x002b, t01=0x004c}
0x438a…4398               Head {h00=0x000a, h01=0x0050, text=»A0687 «, t00=0x002b, t01=0x0068}
0x4398…43ae               Head {h00=0x0012, h01=0x0050, text=»   TRANS 18,19«, t00=0x002b, t01=0x0076}
0x43ae…43e0               Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'18',A0675 TR 1-12 INVALID «, t00=0x002b, t01=0x008c}
0x43e0…4410               Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD3,=D'28',A0689 TR 18,19 VALID«, t00=0x002b, t01=0x00be}
0x4410…4432               Head {h00=0x001e, h01=0x0050, text=» B A0675 TR 28,29 INVALID «, t00=0x002b, t01=0x00ee}
0x4432…4440               Head {h00=0x000a, h01=0x0050, text=»A0689 «, t00=0x002b, t01=0x0110}
0x4440…446e               Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,CBIN18,A06KRE KREDIT KEY «, t00=0x002b, t01=0x011e}
0x446e…4480               Head {h00=0x000e, h01=0x0050, text=» B A06DEB «, t00=0x002b, t01=0x014c}
0x4480…448e               Head {h00=0x000a, h01=0x0050, text=»A06KRE«, t00=0x002b, t01=0x015e}
0x448e…44a2               Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x002b, t01=0x016c}
0x44a2…44b2               Head {h00=0x000c, h01=0x0050, text=» B A066 «, t00=0x002b, t01=0x0180}
0x44b2…44c0               Head {h00=0x000a, h01=0x0050, text=»A06DEB«, t00=0x002b, t01=0x0190}
0x44c0…44d4               Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x002c, t01=0x000e}
0x44d4…44e0               Head {h00=0x0008, h01=0x0050, text=»A066«, t00=0x002c, t01=0x0022}
0x44e0…44fe               Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGNR,GSWBCD3 «, t00=0x002c, t01=0x002e}
0x44fe…451c               Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGDEX,GSWBIN1«, t00=0x002c, t01=0x004c}
0x451c…4548               Head {h00=0x0028, h01=0x0050, text=» SET GTREGFLG VALID TRANSTYPE FOUND «, t00=0x002c, t01=0x006a}
0x4548…456e               Head {h00=0x0022, h01=0x0050, text=» SET TTEORFLG START NEW TRANS «, t00=0x002c, t01=0x0096}
0x456e…4578               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00bc}
0x4578…45b2               Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANSACTION SELECTED«, t00=0x002c, t01=0x00c6}
0x45b2…45c0               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002c, t01=0x0100}
0x45c0…45d2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x010e}
0x45d2…45ea               Head {h00=0x0014, h01=0x0050, text=»A07   BKO FIELD «, t00=0x002c, t01=0x0120}
0x45ea…460c               Head {h00=0x001e, h01=0x0050, text=»   INSERT TEXT IN TT07TXT «, t00=0x002c, t01=0x0138}
0x460c…4622               Head {h00=0x0012, h01=0x0050, text=» CLEAR TTASKAT«, t00=0x002c, t01=0x015a}
0x4622…4640               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x002c, t01=0x0170}
0x4640…4662               Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBCD3,=D'51',A070 «, t00=0x002c, t01=0x018e}
0x4662…4676               Head {h00=0x0010, h01=0x0050, text=» SET TTASKAT«, t00=0x002d, t01=0x0020}
0x4676…4682               Head {h00=0x0008, h01=0x0050, text=»A070«, t00=0x002d, t01=0x0034}
0x4682…46a4               Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,CBIN3,A0705«, t00=0x002d, t01=0x0040}
0x46a4…46cc               Head {h00=0x0024, h01=0x0050, text=» CBE GSWBCD3,=D'51',A076 TRANS 3«, t00=0x002d, t01=0x0062}
0x46cc…46ec               Head {h00=0x001c, h01=0x0050, text=» CBE GSWBCD3,=D'52',A076«, t00=0x002d, t01=0x008a}
0x46ec…46fa               Head {h00=0x000a, h01=0x0050, text=»A0705 «, t00=0x002d, t01=0x00aa}
0x46fa…472a               Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 GET LENGTH OF STRING«, t00=0x002d, t01=0x00b8}
0x472a…475c               Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x002d, t01=0x00e8}
0x475c…477a               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,TT07TXT «, t00=0x002d, t01=0x011a}
0x477a…4798               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBCD3 «, t00=0x002d, t01=0x0138}
0x4798…47b2               Head {h00=0x0016, h01=0x0050, text=» MOVE TT07TXT,=' '«, t00=0x002d, t01=0x0156}
0x47b2…47e2               Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 FIRST CHAR, POINTER «, t00=0x002d, t01=0x0170}
0x47e2…47fe               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x002e, t01=0x0010}
0x47fe…481e               Head {h00=0x001c, h01=0x0050, text=» CBNG SPBINW1,CBIN2,A071«, t00=0x002e, t01=0x002c}
0x481e…4854               Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN3,CBIN1 ADJUST DUPPED FIELD INDEX «, t00=0x002e, t01=0x004c}
0x4854…4860               Head {h00=0x0008, h01=0x0050, text=»A071«, t00=0x002e, t01=0x0082}
0x4860…487a               Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN7«, t00=0x002e, t01=0x008e}
0x487a…4888               Head {h00=0x000a, h01=0x0050, text=»A0708 «, t00=0x002e, t01=0x00a8}
0x4888…48a2               Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN7«, t00=0x002e, t01=0x00b6}
0x48a2…48c4               Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,GSWBIN2,A075 «, t00=0x002e, t01=0x00d0}
0x48c4…48fe               Head {h00=0x0036, h01=0x0050, text=» MATCH CTTXT07,GSWBIN1,CBIN2,SPINPUT,GSWBIN3,CBIN2«, t00=0x002e, t01=0x00f2}
0x48fe…4912               Head {h00=0x0010, h01=0x0050, text=» BNOK A0708 «, t00=0x002e, t01=0x012c}
0x4912…4936               Head {h00=0x0020, h01=0x0050, text=»*  NEXT 5 CHARS CONTAIN TEXT«, t00=0x002e, t01=0x0140}
0x4936…4950               Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN2«, t00=0x002e, t01=0x0164}
0x4950…4982               Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x002e, t01=0x017e}
0x4982…49a4               Head {h00=0x001e, h01=0x0050, text=»*          SEE IF ALLOWED «, t00=0x002f, t01=0x0020}
0x49a4…49e0               Head {h00=0x0038, h01=0x0050, text=» CBNE GTREGDEX,CBIN3,A077 ONLY CHECK IF TRANSTYPE 3 «, t00=0x002f, t01=0x0042}
0x49e0…49fa               Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN5«, t00=0x002f, t01=0x007e}
0x49fa…4a14               Head {h00=0x0016, h01=0x0050, text=» MOVE GSWSTR2,=' '«, t00=0x002f, t01=0x0098}
0x4a14…4a4e               Head {h00=0x0036, h01=0x0050, text=» COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE«, t00=0x002f, t01=0x00b2}
0x4a4e…4a6c               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GSWSTR2 «, t00=0x002f, t01=0x00ec}
0x4a6c…4a8e               Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,=D'1',A077 OK«, t00=0x002f, t01=0x010a}
0x4a8e…4aba               Head {h00=0x0028, h01=0x0050, text=» CBL GTREGF(CBIN2),=D'10000000',A072«, t00=0x002f, t01=0x012c}
0x4aba…4aec               Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'1',A077 CPR - BKO ALLOWED «, t00=0x002f, t01=0x0158}
0x4aec…4afc               Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x002f, t01=0x018a}
0x4afc…4b08               Head {h00=0x0008, h01=0x0050, text=»A072«, t00=0x0030, t01=0x000a}
0x4b08…4b3a               Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED «, t00=0x0030, t01=0x0016}
0x4b3a…4b4a               Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x0030, t01=0x0048}
0x4b4a…4b56               Head {h00=0x0008, h01=0x0050, text=»A075«, t00=0x0030, t01=0x0058}
0x4b56…4b70               Head {h00=0x0016, h01=0x0050, text=» TBT CBKOFLG,A077 «, t00=0x0030, t01=0x0064}
0x4b70…4b7c               Head {h00=0x0008, h01=0x0050, text=»A076«, t00=0x0030, t01=0x007e}
0x4b7c…4b98               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0030, t01=0x008a}
0x4b98…4ba6               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0030, t01=0x00a6}
0x4ba6…4bb2               Head {h00=0x0008, h01=0x0050, text=»A077«, t00=0x0030, t01=0x00b4}
0x4bb2…4bc0               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0030, t01=0x00c0}
0x4bc0…4bd2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00ce}
0x4bd2…4bfa               Head {h00=0x0024, h01=0x0050, text=»A11   CHECK VAL DATE NOT GREATER«, t00=0x0030, t01=0x00e0}
0x4bfa…4c14               Head {h00=0x0016, h01=0x0050, text=»   THAN POST DATE «, t00=0x0030, t01=0x0108}
0x4c14…4c3e               Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,CBIN3,A0110 TRANS 3 «, t00=0x0030, t01=0x0122}
0x4c3e…4c68               Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,CBIN4,A0110 TRANS 4 «, t00=0x0030, t01=0x014c}
0x4c68…4c84               Head {h00=0x0018, h01=0x0050, text=» TBF TTCY1FLG,A01101«, t00=0x0030, t01=0x0176}
0x4c84…4ca0 (49, 0, 400)  Head {h00=0x0018, h01=0x0050, text=» TBF GTBDTFLG,A01101«, t00=0x0031, t01=0x0004}
0x4ca0…4cc4               Head {h00=0x0020, h01=0x0050, text=» MOVE GSSWITCH(CBIN7),CBIN1 «, t00=0x0031, t01=0x0020}
0x4cc4…4cd2               Head {h00=0x000a, h01=0x0050, text=»A01101«, t00=0x0031, t01=0x0044}
0x4cd2…4ce0               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0031, t01=0x0052}
0x4ce0…4cee               Head {h00=0x000a, h01=0x0050, text=»A0110 «, t00=0x0031, t01=0x0060}
0x4cee…4d0a               Head {h00=0x0018, h01=0x0050, text=» TBF CVALFLG,A01101 «, t00=0x0031, t01=0x006e}
0x4d0a…4d32               Head {h00=0x0024, h01=0x0050, text=»*     GET AND CHANGE VALOERDATE «, t00=0x0031, t01=0x008a}
0x4d32…4d50               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0031, t01=0x00b2}
0x4d50…4d6c               Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GSWBCD6«, t00=0x0031, t01=0x00d0}
0x4d6c…4d8a               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,GSWBCD7 «, t00=0x0031, t01=0x00ec}
0x4d8a…4db0               Head {h00=0x0022, h01=0x0050, text=»*     GET AND CHANGE POSTDATE «, t00=0x0031, t01=0x010a}
0x4db0…4dcc               Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GTDATO «, t00=0x0031, t01=0x0130}
0x4dcc…4de2               Head {h00=0x0012, h01=0x0050, text=»*     COMPARE «, t00=0x0031, t01=0x014c}
0x4de2…4dfe               Head {h00=0x0018, h01=0x0050, text=» CMP GSWBCD1,GSWBCD7«, t00=0x0031, t01=0x0162}
0x4dfe…4e0e               Head {h00=0x000c, h01=0x0050, text=» BNG APK«, t00=0x0031, t01=0x017e}
0x4e0e…4e2a               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN7 «, t00=0x0031, t01=0x018e}
0x4e2a…4e38               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0032, t01=0x001a}
0x4e38…4e4a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0032, t01=0x0028}
0x4e4a…4e70               Head {h00=0x0022, h01=0x0050, text=»A17   CHECK 'FORFALDSAAR' FAAR«, t00=0x0032, t01=0x003a}
0x4e70…4e86               Head {h00=0x0012, h01=0x0050, text=»   FAAR >= 70 «, t00=0x0032, t01=0x0060}
0x4e86…4e9e               Head {h00=0x0014, h01=0x0050, text=»   FAAR <= YY+2 «, t00=0x0032, t01=0x0076}
0x4e9e…4ec4               Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET FAAR«, t00=0x0032, t01=0x008e}
0x4ec4…4efa               Head {h00=0x0032, h01=0x0050, text=» CBL GSWBCD6,=D'70',A17ERR LESS THAN 70: ERROR«, t00=0x0032, t01=0x00b4}
0x4efa…4f24               Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD1,GTDATO GET POSTDATO «, t00=0x0032, t01=0x00ea}
0x4f24…4f40               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'2' «, t00=0x0032, t01=0x0114}
0x4f40…4f7a               Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR «, t00=0x0032, t01=0x0130}
0x4f7a…4f9a               Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD3,=D'2' ADD 2«, t00=0x0032, t01=0x016a}
0x4f9a…4fcc               Head {h00=0x002e, h01=0x0050, text=» CBG GSWBCD6,GSWBCD3,A17ERR MORE THAN YY+2«, t00=0x0032, t01=0x018a}
0x4fcc…4fda               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0033, t01=0x002c}
0x4fda…4fe8               Head {h00=0x000a, h01=0x0050, text=»A17ERR«, t00=0x0033, t01=0x003a}
0x4fe8…5014               Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW4,CBIN11 INVALID NUMBER «, t00=0x0033, t01=0x0048}
0x5014…5022               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0033, t01=0x0074}
0x5022…5034               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0033, t01=0x0082}
0x5034…5040               Head {h00=0x0008, h01=0x0050, text=»A64 «, t00=0x0033, t01=0x0094}
0x5040…5078               Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET 'PRISREGULERINGSKODE' «, t00=0x0033, t01=0x00a0}
0x5078…5098               Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'5',A649 «, t00=0x0033, t01=0x00d8}
0x5098…50b8               Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'0',A649 «, t00=0x0033, t01=0x00f8}
0x50b8…50e0               Head {h00=0x0024, h01=0x0050, text=»   FIELD 64 HAS BEEN ENTERED AND«, t00=0x0033, t01=0x0118}
0x50e0…511a               Head {h00=0x0036, h01=0x0050, text=» MOVE GSSWITCH(CBIN12),CBIN1 SHOULD BE GTAUTODPPED«, t00=0x0033, t01=0x0140}
0x511a…5128               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0033, t01=0x017a}
0x5128…5134               Head {h00=0x0008, h01=0x0050, text=»A649«, t00=0x0033, t01=0x0188}
0x5134…5150 (52, 0, 400)  Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN10«, t00=0x0034, t01=0x0004}
0x5150…515e               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0034, t01=0x0020}
0x515e…5170               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0034, t01=0x002e}
0x5170…5194               Head {h00=0x0020, h01=0x0050, text=»A65   CHECK VALUE 1000-3999 «, t00=0x0034, t01=0x0040}
0x5194…51bc               Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT GET VALUE «, t00=0x0034, t01=0x0064}
0x51bc…51de               Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD4,=D'3999',A659«, t00=0x0034, t01=0x008c}
0x51de…5200               Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD4,=D'1000',A659«, t00=0x0034, t01=0x00ae}
0x5200…520e               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0034, t01=0x00d0}
0x520e…521a               Head {h00=0x0008, h01=0x0050, text=»A659«, t00=0x0034, t01=0x00de}
0x521a…5236               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0034, t01=0x00ea}
0x5236…5244               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0034, t01=0x0106}
0x5244…5256               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0034, t01=0x0114}
0x5256…5278               Head {h00=0x001e, h01=0x0050, text=»A76   COUNTER NO, TRANS 12«, t00=0x0034, t01=0x0126}
0x5278…5292               Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW1,CBIN3«, t00=0x0034, t01=0x0148}
0x5292…52b6               Head {h00=0x0020, h01=0x0050, text=» BL A065 TRANSTYPE HANDLING «, t00=0x0034, t01=0x0162}
0x52b6…52de               Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x0034, t01=0x0186}
0x52de…52fc               Head {h00=0x001a, h01=0x0050, text=» MOVE TTCNTNR,SPINPUT «, t00=0x0035, t01=0x001e}
0x52fc…5322               Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD3,=D'100' GET INDEX«, t00=0x0035, t01=0x003c}
0x5322…5340               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0035, t01=0x0062}
0x5340…5370               Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CTR12(TTASKNR,CBIN2),A76NOK«, t00=0x0035, t01=0x0080}
0x5370…53a0               Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD3,=D'1',A76NOK MIN COUNTER NO«, t00=0x0035, t01=0x00b0}
0x53a0…53ca               Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0035, t01=0x00e0}
0x53ca…53f4               Head {h00=0x0026, h01=0x0050, text=» CBL CTR12NR(GSWBIN1),=D'1',A76NOK«, t00=0x0035, t01=0x010a}
0x53f4…540a               Head {h00=0x0012, h01=0x0050, text=»   MUST BE > 0«, t00=0x0035, t01=0x0134}
0x540a…542c               Head {h00=0x001e, h01=0x0050, text=» B ART TO WRITE ON SCREEN «, t00=0x0035, t01=0x014a}
0x542c…543a               Head {h00=0x000a, h01=0x0050, text=»A76NOK«, t00=0x0035, t01=0x016c}
0x543a…5456               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN18«, t00=0x0035, t01=0x017a}
0x5456…5464               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0036, t01=0x0008}
0x5464…5476               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x0016}
0x5476…5498               Head {h00=0x001e, h01=0x0050, text=»A77   INSERT 51,52 IN TR 4«, t00=0x0036, t01=0x0028}
0x5498…54bc               Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN7 FIELD 7 «, t00=0x0036, t01=0x004a}
0x54bc…54de               Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW1,CBIN2 LENGTH«, t00=0x0036, t01=0x006e}
0x54de…54f4               Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A775«, t00=0x0036, t01=0x0090}
0x54f4…5520               Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x0036, t01=0x00a6}
0x5520…552e               Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0036, t01=0x00d2}
0x552e…553a               Head {h00=0x0008, h01=0x0050, text=»A775«, t00=0x0036, t01=0x00e0}
0x553a…5566               Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x0036, t01=0x00ec}
0x5566…5574               Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0036, t01=0x0118}
0x5574…5586               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x0126}
0x5586…55a6               Head {h00=0x001c, h01=0x0050, text=»A78   INSERT ACCOUNT NO «, t00=0x0036, t01=0x0138}
0x55a6…55b6               Head {h00=0x000c, h01=0x0050, text=»   11-15«, t00=0x0036, t01=0x0158}
0x55b6…55e2               Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN5 SIMULATE FIELD 5«, t00=0x0036, t01=0x0168}
0x55e2…55f0 (55, 0, 400)  Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0037, t01=0x0004}
0x55f0…5600               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0037, t01=0x0012}
0x5600…5620               Head {h00=0x001c, h01=0x0050, text=»A79   AUTODUP ACCOUNT NO«, t00=0x0037, t01=0x0022}
0x5620…5646               Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,CBIN5 IN FIELD 5«, t00=0x0037, t01=0x0042}
0x5646…5672               Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR GET COUNTER NO«, t00=0x0037, t01=0x0068}
0x5672…568e               Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN1,=W'100'«, t00=0x0037, t01=0x0094}
0x568e…56b8               Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0037, t01=0x00b0}
0x56b8…56de               Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,CTR12NR(GSWBIN1)«, t00=0x0037, t01=0x00da}
0x56de…5702               Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW1,CBIN10 LENGTH «, t00=0x0037, t01=0x0100}
0x5702…5710               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0037, t01=0x0124}
0x5710…5722               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x0132}
0x5722…5748               Head {h00=0x0022, h01=0x0050, text=»A80   CHECK HOVEDBOG, KONTONR «, t00=0x0037, t01=0x0144}
0x5748…576c               Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN5 FIELD 5 «, t00=0x0037, t01=0x016a}
0x576c…579c               Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN2 MIGHT BE TRANSTYPE 2«, t00=0x0037, t01=0x018e}
0x579c…57c8               Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,CBIN3,A805 CHECK LENGTH«, t00=0x0038, t01=0x002e}
0x57c8…57f4               Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,CBIN10,A801 MUST BE 10 «, t00=0x0038, t01=0x005a}
0x57f4…581c               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x0038, t01=0x0086}
0x581c…582a               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0038, t01=0x00ae}
0x582a…5836               Head {h00=0x0008, h01=0x0050, text=»A801«, t00=0x0038, t01=0x00bc}
0x5836…5854               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0038, t01=0x00c8}
0x5854…5878               Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x0038, t01=0x00e6}
0x5878…5896               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0038, t01=0x010a}
0x5896…58c8               Head {h00=0x002e, h01=0x0050, text=» CMP GSWBIN1,CBIN7 7: KNT.NO. NOT ALLOWED «, t00=0x0038, t01=0x0128}
0x58c8…58da               Head {h00=0x000e, h01=0x0050, text=» BE A0570 «, t00=0x0038, t01=0x015a}
0x58da…58fa               Head {h00=0x001c, h01=0x0050, text=» CBNE GSWBIN1,CBIN8,A804«, t00=0x0038, t01=0x016c}
0x58fa…5914               Head {h00=0x0016, h01=0x0050, text=» TBF TTSUPFLG,A804«, t00=0x0038, t01=0x018c}
0x5914…5942               Head {h00=0x002a, h01=0x0050, text=» B A0577 8:KNT.NO. NOT ALLOWED IN SUPL«, t00=0x0039, t01=0x0016}
0x5942…594e               Head {h00=0x0008, h01=0x0050, text=»A804«, t00=0x0039, t01=0x0044}
0x594e…5970               Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0039, t01=0x0050}
0x5970…598e               Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0039, t01=0x0072}
0x598e…59a0               Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0039, t01=0x0090}
0x59a0…59c2               Head {h00=0x001e, h01=0x0050, text=»A805   CHECK FUNCTION KEYS«, t00=0x0039, t01=0x00a2}
0x59c2…59de               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x0039, t01=0x00c4}
0x59de…5a02               Head {h00=0x0020, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM KEY «, t00=0x0039, t01=0x00e0}
0x5a02…5a12               Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0039, t01=0x0104}
0x5a12…5a38               Head {h00=0x0022, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE KEY «, t00=0x0039, t01=0x0114}
0x5a38…5a48               Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0039, t01=0x013a}
0x5a48…5a70               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN4 INVALID KEY «, t00=0x0039, t01=0x014a}
0x5a70…5a7e               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0039, t01=0x0172}
0x5a7e…5a90               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x0180}
0x5a90…5ab8 (58, 0, 400)  Head {h00=0x0024, h01=0x0050, text=»A81   CHECK HOVEDBOG, CPR/CIR/NR«, t00=0x003a, t01=0x0004}
0x5ab8…5adc               Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN6 FIELD 6 «, t00=0x003a, t01=0x002c}
0x5adc…5b0e               Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW5,CBIN1 MIGHT BE TRANS TYPE 1 «, t00=0x003a, t01=0x0050}
0x5b0e…5b3a               Head {h00=0x0028, h01=0x0050, text=» CBG SPBINW1,CBIN2,A811 CHECK LENGTH«, t00=0x003a, t01=0x0082}
0x5b3a…5b62               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x003a, t01=0x00ae}
0x5b62…5b70               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003a, t01=0x00d6}
0x5b70…5b8c               Head {h00=0x0018, h01=0x0050, text=»A811   CPR OR CIR ? «, t00=0x003a, t01=0x00e4}
0x5b8c…5ba8               Head {h00=0x0018, h01=0x0050, text=» SET BCPR SET CPR NO«, t00=0x003a, t01=0x0100}
0x5ba8…5bc6               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003a, t01=0x011c}
0x5bc6…5bec               Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A814«, t00=0x003a, t01=0x013a}
0x5bec…5bfe               Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x003a, t01=0x0160}
0x5bfe…5c26               Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A812«, t00=0x003a, t01=0x0172}
0x5c26…5c3a               Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x003b, t01=0x000a}
0x5c3a…5c4a               Head {h00=0x000c, h01=0x0050, text=» B A812 «, t00=0x003b, t01=0x001e}
0x5c4a…5c56               Head {h00=0x0008, h01=0x0050, text=»A814«, t00=0x003b, t01=0x002e}
0x5c56…5c74               Head {h00=0x001a, h01=0x0050, text=» CLEAR BCPR SET CIR NO«, t00=0x003b, t01=0x003a}
0x5c74…5c80               Head {h00=0x0008, h01=0x0050, text=»A812«, t00=0x003b, t01=0x0058}
0x5c80…5ca2               Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x003b, t01=0x0064}
0x5ca2…5cc0               Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x003b, t01=0x0086}
0x5cc0…5cd2               Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x003b, t01=0x00a4}
0x5cd2…5ce4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003b, t01=0x00b6}
0x5ce4…5d0a               Head {h00=0x0022, h01=0x0050, text=»A82   CHECK HOVEDBOG, YD.MODT.«, t00=0x003b, t01=0x00c8}
0x5d0a…5d30               Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,CBIN21 FIELD 21 «, t00=0x003b, t01=0x00ee}
0x5d30…5d60               Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN6 MIGHT BE TRANSTYPE 6«, t00=0x003b, t01=0x0114}
0x5d60…5d6c               Head {h00=0x0008, h01=0x0050, text=»A821«, t00=0x003b, t01=0x0144}
0x5d6c…5d9a               Head {h00=0x002a, h01=0x0050, text=» CBNE SPBINW2,CBIN3,A822 IF ENTER KEY,«, t00=0x003b, t01=0x0150}
0x5d9a…5dca               Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,CBIN17 SIMULATE DEBET KEY «, t00=0x003b, t01=0x017e}
0x5dca…5dd6               Head {h00=0x0008, h01=0x0050, text=»A822«, t00=0x003c, t01=0x001e}
0x5dd6…5df8               Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x003c, t01=0x002a}
0x5df8…5e16               Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x003c, t01=0x004c}
0x5e16…5e28               Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x003c, t01=0x006a}
0x5e28…5e3a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x007c}
0x5e3a…5e62               Head {h00=0x0024, h01=0x0050, text=»A83   CHECK DEBITOR, DEBITOR NR «, t00=0x003c, t01=0x008e}
0x5e62…5e86               Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN6 FIELD 6 «, t00=0x003c, t01=0x00b6}
0x5e86…5eb0               Head {h00=0x0026, h01=0x0050, text=» CBL SPBINW1,CBIN3,A805 FUNCTION? «, t00=0x003c, t01=0x00da}
0x5eb0…5ed0               Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW1,CBIN7,A833 «, t00=0x003c, t01=0x0104}
0x5ed0…5f00               Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN4 MIGHT BE TRANSTYPE 4«, t00=0x003c, t01=0x0124}
0x5f00…5f1a               Head {h00=0x0016, h01=0x0050, text=» SET BCPR SET CPR «, t00=0x003c, t01=0x0154}
0x5f1a…5f38               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003c, t01=0x016e}
0x5f38…5f5e               Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A831«, t00=0x003c, t01=0x018c}
0x5f5e…5f70               Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x003d, t01=0x0022}
0x5f70…5f98               Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A832«, t00=0x003d, t01=0x0034}
0x5f98…5fac               Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x003d, t01=0x005c}
0x5fac…5fbc               Head {h00=0x000c, h01=0x0050, text=» B A832 «, t00=0x003d, t01=0x0070}
0x5fbc…5fc8               Head {h00=0x0008, h01=0x0050, text=»A831«, t00=0x003d, t01=0x0080}
0x5fc8…5fe4               Head {h00=0x0018, h01=0x0050, text=» CLEAR BCPR SET CIR «, t00=0x003d, t01=0x008c}
0x5fe4…5ff0               Head {h00=0x0008, h01=0x0050, text=»A832«, t00=0x003d, t01=0x00a8}
0x5ff0…6004               Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x003d, t01=0x00b4}
0x6004…6016               Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x003d, t01=0x00c8}
0x6016…6032               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,CBIN3 «, t00=0x003d, t01=0x00da}
0x6032…6040               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x003d, t01=0x00f6}
0x6040…604c               Head {h00=0x0008, h01=0x0050, text=»A833«, t00=0x003d, t01=0x0104}
0x604c…6074               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x003d, t01=0x0110}
0x6074…6082               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003d, t01=0x0138}
0x6082…6094               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x0146}
0x6094…60b4               Head {h00=0x001c, h01=0x0050, text=»A84   CHECK DEBITOR, BKO«, t00=0x003d, t01=0x0158}
0x60b4…60d8               Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN7 FIELD 7 «, t00=0x003d, t01=0x0178}
0x60d8…6108               Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN3 MIGHT BE TRANSTYPE 3«, t00=0x003e, t01=0x000c}
0x6108…6128               Head {h00=0x001c, h01=0x0050, text=» CBNE SPBINW2,CBIN3,A842«, t00=0x003e, t01=0x003c}
0x6128…6144               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,CBIN17«, t00=0x003e, t01=0x005c}
0x6144…6150               Head {h00=0x0008, h01=0x0050, text=»A842«, t00=0x003e, t01=0x0078}
0x6150…616e               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003e, t01=0x0084}
0x616e…6190               Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+51',A845 «, t00=0x003e, t01=0x00a2}
0x6190…61b2               Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+52',A845 «, t00=0x003e, t01=0x00c4}
0x61b2…61be               Head {h00=0x0008, h01=0x0050, text=»A843«, t00=0x003e, t01=0x00e6}
0x61be…61d2               Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x003e, t01=0x00f2}
0x61d2…61e4               Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x003e, t01=0x0106}
0x61e4…61f2               Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x003e, t01=0x0118}
0x61f2…61fe               Head {h00=0x0008, h01=0x0050, text=»A845«, t00=0x003e, t01=0x0126}
0x61fe…621a               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW5,CBIN4 «, t00=0x003e, t01=0x0132}
0x621a…622a               Head {h00=0x000c, h01=0x0050, text=» B A843 «, t00=0x003e, t01=0x014e}
0x622a…623c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003e, t01=0x015e}
0x623c…6264               Head {h00=0x0024, h01=0x0050, text=»A85   CHECK REMITTERING, KONTONR«, t00=0x003e, t01=0x0170}
0x6264…6288               Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN5 FIELD 5 «, t00=0x003f, t01=0x0008}
0x6288…62b4               Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,CBIN3,A805 CHECK LENGTH«, t00=0x003f, t01=0x002c}
0x62b4…62e0               Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,CBIN10,A850 MUST BE 10 «, t00=0x003f, t01=0x0058}
0x62e0…6308               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x003f, t01=0x0084}
0x6308…6316               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003f, t01=0x00ac}
0x6316…6322               Head {h00=0x0008, h01=0x0050, text=»A850«, t00=0x003f, t01=0x00ba}
0x6322…6356               Head {h00=0x0030, h01=0x0050, text=»  CMP SPBINW2,CBIN3   ONLY ENTER-KEY ALLOWED«, t00=0x003f, t01=0x00c6}
0x6356…6368               Head {h00=0x000e, h01=0x0050, text=» BNE A855 «, t00=0x003f, t01=0x00fa}
0x6368…6386               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003f, t01=0x010c}
0x6386…63aa               Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x003f, t01=0x012a}
0x63aa…63c8               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x003f, t01=0x014e}
0x63c8…63fc               Head {h00=0x0030, h01=0x0050, text=» CBE GSWBIN1,CBIN6,A853 6: REMIT NOT ALLOWED«, t00=0x003f, t01=0x016c}
0x63fc…642c               Head {h00=0x002c, h01=0x0050, text=» CMP GSWBIN1,CBIN7 7:KNT.NO. NOT ALLOWED«, t00=0x0040, t01=0x0010}
0x642c…643e               Head {h00=0x000e, h01=0x0050, text=» BE A0570 «, t00=0x0040, t01=0x0040}
0x643e…645e               Head {h00=0x001c, h01=0x0050, text=» CBNE GSWBIN1,CBIN8,A854«, t00=0x0040, t01=0x0052}
0x645e…6478               Head {h00=0x0016, h01=0x0050, text=» TBF TTSUPFLG,A854«, t00=0x0040, t01=0x0072}
0x6478…64a6               Head {h00=0x002a, h01=0x0050, text=» B A0577 8:KNT.NO. NOT ALLOWED IN SUPL«, t00=0x0040, t01=0x008c}
0x64a6…64b2               Head {h00=0x0008, h01=0x0050, text=»A853«, t00=0x0040, t01=0x00ba}
0x64b2…64e0               Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,CBIN20 REMIT NOT ALLOWED«, t00=0x0040, t01=0x00c6}
0x64e0…64ee               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0040, t01=0x00f4}
0x64ee…64fa               Head {h00=0x0008, h01=0x0050, text=»A854«, t00=0x0040, t01=0x0102}
0x64fa…6508               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0040, t01=0x010e}
0x6508…6514               Head {h00=0x0008, h01=0x0050, text=»A855«, t00=0x0040, t01=0x011c}
0x6514…653c               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN4 INVALID KEY «, t00=0x0040, t01=0x0128}
0x653c…654a               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0040, t01=0x0150}
0x654a…655c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x015e}
0x655c…6584               Head {h00=0x0024, h01=0x0050, text=»A86   CHECK REMITTERING, LEV.NR.«, t00=0x0040, t01=0x0170}
0x6584…65a8               Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN6 FIELD 6 «, t00=0x0041, t01=0x0008}
0x65a8…65d8               Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN8 MIGHT BE TRANSTYPE 8«, t00=0x0041, t01=0x002c}
0x65d8…660a               Head {h00=0x002e, h01=0x0050, text=» CMP SPBINW1,CBIN2 CHECK LENGTH + CPR/CIR «, t00=0x0041, t01=0x005c}
0x660a…661a               Head {h00=0x000c, h01=0x0050, text=» BG A811«, t00=0x0041, t01=0x008e}
0x661a…6642               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x0041, t01=0x009e}
0x6642…6650               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0041, t01=0x00c6}
0x6650…6662               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x00d4}
0x6662…668c               Head {h00=0x0026, h01=0x0050, text=»A87   CHECK REMITTERING, YD.MODT. «, t00=0x0041, t01=0x00e6}
0x668c…66b2               Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,CBIN21 FIELD 21 «, t00=0x0041, t01=0x0110}
0x66b2…66e2               Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN9 MIGHT BE TRANSTYPE 9«, t00=0x0041, t01=0x0136}
0x66e2…6708               Head {h00=0x0022, h01=0x0050, text=» B A821 CHECK FOR INVALID KEY «, t00=0x0041, t01=0x0166}
0x6708…671a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x018c}
0x671a…6726               Head {h00=0x0008, h01=0x0050, text=»A88 «, t00=0x0042, t01=0x000e}
0x6726…674a               Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN7 FIELD 7 «, t00=0x0042, t01=0x001a}
0x674a…6766               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'36'«, t00=0x0042, t01=0x003e}
0x6766…6782               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN2 «, t00=0x0042, t01=0x005a}
0x6782…6798               Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A885«, t00=0x0042, t01=0x0076}
0x6798…67c4               Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x0042, t01=0x008c}
0x67c4…67d2               Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0042, t01=0x00b8}
0x67d2…67de               Head {h00=0x0008, h01=0x0050, text=»A885«, t00=0x0042, t01=0x00c6}
0x67de…680a               Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x0042, t01=0x00d2}
0x680a…6818               Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0042, t01=0x00fe}
0x6818…682a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x010c}
0x682a…6836               Head {h00=0x0008, h01=0x0050, text=»A89 «, t00=0x0042, t01=0x011e}
0x6836…6862               Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN6 STORE IN FIELD 6«, t00=0x0042, t01=0x012a}
0x6862…6870               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0042, t01=0x0156}
0x6870…6882               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x0164}
0x6882…68a2               Head {h00=0x001c, h01=0x0050, text=»A121   SIMULATE SLUT KEY«, t00=0x0042, t01=0x0176}
0x68a2…68ba               Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLUTFL «, t00=0x0043, t01=0x0008}
0x68ba…68d2               Head {h00=0x0014, h01=0x0050, text=» CLEAR GTADUPFL «, t00=0x0043, t01=0x0020}
0x68d2…68f8               Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW2,CBIN17 SLUT KEY «, t00=0x0043, t01=0x0038}
0x68f8…6920               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW1,CBIN0 LENGTH ZERO «, t00=0x0043, t01=0x005e}
0x6920…692e               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0043, t01=0x0086}
0x692e…6940               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0094}
0x6940…6962               Head {h00=0x001e, h01=0x0050, text=»A122    ENTER TO SLUT KEY «, t00=0x0043, t01=0x00a6}
0x6962…697c               Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN3«, t00=0x0043, t01=0x00c8}
0x697c…698c               Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x0043, t01=0x00e2}
0x698c…69aa               Head {h00=0x001a, h01=0x0050, text=»  MOVE SPBINW2,CBIN17 «, t00=0x0043, t01=0x00f2}
0x69aa…69ba               Head {h00=0x000c, h01=0x0050, text=»  B ART «, t00=0x0043, t01=0x0110}
0x69ba…69cc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0120}
0x69cc…69d8               Head {h00=0x0008, h01=0x0050, text=»A90 «, t00=0x0043, t01=0x0132}
0x69d8…69ec               Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0043, t01=0x013e}
0x69ec…6a12               Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN1),SPINPUT «, t00=0x0043, t01=0x0152}
0x6a12…6a20               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0043, t01=0x0178}
0x6a20…6a2c               Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0043, t01=0x0186}
0x6a2c…6a38 (68, 0, 400)  Head {h00=0x0008, h01=0x0050, text=»A91 «, t00=0x0044, t01=0x0004}
0x6a38…6a4c               Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0044, t01=0x0010}
0x6a4c…6a72               Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN2),SPINPUT «, t00=0x0044, t01=0x0024}
0x6a72…6a80               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0044, t01=0x004a}
0x6a80…6a8c               Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0044, t01=0x0058}
0x6a8c…6a98               Head {h00=0x0008, h01=0x0050, text=»A92 «, t00=0x0044, t01=0x0064}
0x6a98…6aac               Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0044, t01=0x0070}
0x6aac…6ad2               Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN3),SPINPUT «, t00=0x0044, t01=0x0084}
0x6ad2…6ae0               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0044, t01=0x00aa}
0x6ae0…6aec               Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0044, t01=0x00b8}
0x6aec…6af8               Head {h00=0x0008, h01=0x0050, text=»A93 «, t00=0x0044, t01=0x00c4}
0x6af8…6b0c               Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0044, t01=0x00d0}
0x6b0c…6b32               Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN4),SPINPUT «, t00=0x0044, t01=0x00e4}
0x6b32…6b40               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0044, t01=0x010a}
0x6b40…6b4c               Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0044, t01=0x0118}
0x6b4c…6b58               Head {h00=0x0008, h01=0x0050, text=»A94 «, t00=0x0044, t01=0x0124}
0x6b58…6b6c               Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0044, t01=0x0130}
0x6b6c…6b92               Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN5),SPINPUT «, t00=0x0044, t01=0x0144}
0x6b92…6ba0               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0044, t01=0x016a}
0x6ba0…6bac               Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0044, t01=0x0178}
0x6bac…6bd0               Head {h00=0x0020, h01=0x0050, text=»A100   CHECK TR 12 COUNTERS «, t00=0x0044, t01=0x0184}
0x6bd0…6bee               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0045, t01=0x0018}
0x6bee…6c0a               Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD1,=D'100'«, t00=0x0045, t01=0x0036}
0x6c0a…6c28               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x0045, t01=0x0052}
0x6c28…6c52               Head {h00=0x0026, h01=0x0050, text=» CBL GSWBIN6,CBIN1,A1009 TOO SMALL«, t00=0x0045, t01=0x0070}
0x6c52…6c8a               Head {h00=0x0034, h01=0x0050, text=» CBG GSWBIN6,CTR12(TTASKNR,CBIN2),A1009 TOO HIGH«, t00=0x0045, t01=0x009a}
0x6c8a…6cb4               Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(TTASKNR,CBIN1) «, t00=0x0045, t01=0x00d2}
0x6cb4…6cc2               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0045, t01=0x00fc}
0x6cc2…6cd0               Head {h00=0x000a, h01=0x0050, text=»A1009 «, t00=0x0045, t01=0x010a}
0x6cd0…6cec               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0045, t01=0x0118}
0x6cec…6cfa               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0045, t01=0x0134}
0x6cfa…6d0c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0045, t01=0x0142}
0x6d0c…6d30               Head {h00=0x0020, h01=0x0050, text=»A101   CHECK BEHL. COUNTERS «, t00=0x0045, t01=0x0154}
0x6d30…6d4e               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0045, t01=0x0178}
0x6d4e…6d70               Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'1',A101ER «, t00=0x0046, t01=0x0008}
0x6d70…6d8e               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x0046, t01=0x002a}
0x6d8e…6dbe               Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,CBEH(TTASKNR,CBIN2),A101ER «, t00=0x0046, t01=0x0048}
0x6dbe…6de6               Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(TTASKNR,CBIN1)«, t00=0x0046, t01=0x0078}
0x6de6…6df4               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0046, t01=0x00a0}
0x6df4…6e02               Head {h00=0x000a, h01=0x0050, text=»A101ER«, t00=0x0046, t01=0x00ae}
0x6e02…6e1e               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0046, t01=0x00bc}
0x6e1e…6e2c               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0046, t01=0x00d8}
0x6e2c…6e3e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x00e6}
0x6e3e…6e60               Head {h00=0x001e, h01=0x0050, text=»A102   CHECK RELATIVE DAY «, t00=0x0046, t01=0x00f8}
0x6e60…6e7e               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,CMASKDAT«, t00=0x0046, t01=0x011a}
0x6e7e…6eae               Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD5,=D'2' INITIATE REL DAY NO.«, t00=0x0046, t01=0x0138}
0x6eae…6ed8               Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0046, t01=0x0168}
0x6ed8…6f06 (71, 0, 400)  Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN2,CBIN8 SET POINTER TO DAY«, t00=0x0047, t01=0x0004}
0x6f06…6f40               Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET DAY «, t00=0x0047, t01=0x0032}
0x6f40…6f70               Head {h00=0x002c, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD DAY TO REL. DAY«, t00=0x0047, t01=0x006c}
0x6f70…6fa0               Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN2,CBIN2 SET POINTER TO MONTH «, t00=0x0047, t01=0x009c}
0x6fa0…6fdc               Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET MONTH «, t00=0x0047, t01=0x00cc}
0x6fdc…700e               Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD3,=D'1' GET WHOLE NO. OF MONTHS«, t00=0x0047, t01=0x0108}
0x700e…7038               Head {h00=0x0026, h01=0x0050, text=» MUL GSWBCD3,=D'30' EQUAL IN DAYS «, t00=0x0047, t01=0x013a}
0x7038…7054               Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3«, t00=0x0047, t01=0x0164}
0x7054…7084               Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET KEYED REL. DAY«, t00=0x0047, t01=0x0180}
0x7084…709e               Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD5,=D'5'«, t00=0x0048, t01=0x0020}
0x709e…70cc               Head {h00=0x002a, h01=0x0050, text=» CBL GSWBCD3,GSWBCD5,A102ER TOO SMALL «, t00=0x0048, t01=0x003a}
0x70cc…70e8               Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,=D'10' «, t00=0x0048, t01=0x0068}
0x70e8…7116               Head {h00=0x002a, h01=0x0050, text=» CBG GSWBCD3,GSWBCD5,A102ER TOO LARGE «, t00=0x0048, t01=0x0084}
0x7116…7128               Head {h00=0x000e, h01=0x0050, text=» B A102END«, t00=0x0048, t01=0x00b2}
0x7128…7136               Head {h00=0x000a, h01=0x0050, text=»A102ER«, t00=0x0048, t01=0x00c4}
0x7136…7160               Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN11 INVALID VALUE«, t00=0x0048, t01=0x00d2}
0x7160…7170               Head {h00=0x000c, h01=0x0050, text=»A102END «, t00=0x0048, t01=0x00fc}
0x7170…718c               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0048, t01=0x010c}
0x718c…719a               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0048, t01=0x0128}
0x719a…71ac               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0048, t01=0x0136}
0x71ac…71ce               Head {h00=0x001e, h01=0x0050, text=»A103   SET BEHL. COUNTERS «, t00=0x0048, t01=0x0148}
0x71ce…71ec               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0048, t01=0x016a}
0x71ec…720a               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x0048, t01=0x0188}
0x720a…7232               Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(GSWBIN1,CBIN1)«, t00=0x0049, t01=0x0016}
0x7232…725e               Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A103ER TOO MANY «, t00=0x0049, t01=0x003e}
0x725e…7280               Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1035 «, t00=0x0049, t01=0x006a}
0x7280…729a               Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0049, t01=0x008c}
0x729a…72c4               Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN1),GSWBIN6 «, t00=0x0049, t01=0x00a6}
0x72c4…72de               Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x0049, t01=0x00d0}
0x72de…72ec               Head {h00=0x000a, h01=0x0050, text=»A1035 «, t00=0x0049, t01=0x00ea}
0x72ec…730a               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x0049, t01=0x00f8}
0x730a…7334               Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN2),GSWBIN6 «, t00=0x0049, t01=0x0116}
0x7334…7342               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0049, t01=0x0140}
0x7342…7350               Head {h00=0x000a, h01=0x0050, text=»A103ER«, t00=0x0049, t01=0x014e}
0x7350…736c               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0049, t01=0x015c}
0x736c…737a               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0049, t01=0x0178}
0x737a…738c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x0186}
0x738c…73ae               Head {h00=0x001e, h01=0x0050, text=»A104   SET TR 12 COUNTERS «, t00=0x004a, t01=0x0008}
0x73ae…73cc               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT «, t00=0x004a, t01=0x002a}
0x73cc…73ea               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x004a, t01=0x0048}
0x73ea…7414               Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(GSWBIN1,CBIN1) «, t00=0x004a, t01=0x0066}
0x7414…7440               Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A104ER TOO MANY «, t00=0x004a, t01=0x0090}
0x7440…7462               Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1045 «, t00=0x004a, t01=0x00bc}
0x7462…747c               Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x004a, t01=0x00de}
0x747c…74a6               Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN1),GSWBIN6«, t00=0x004a, t01=0x00f8}
0x74a6…74c0               Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x004a, t01=0x0122}
0x74c0…74ce               Head {h00=0x000a, h01=0x0050, text=»A1045 «, t00=0x004a, t01=0x013c}
0x74ce…74ec               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x004a, t01=0x014a}
0x74ec…7516               Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN2),GSWBIN6«, t00=0x004a, t01=0x0168}
0x7516…7524 (75, 0, 400)  Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004b, t01=0x0004}
0x7524…7532               Head {h00=0x000a, h01=0x0050, text=»A104ER«, t00=0x004b, t01=0x0012}
0x7532…754e               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x004b, t01=0x0020}
0x754e…755c               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004b, t01=0x003c}
0x755c…756e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x004a}
0x756e…7590               Head {h00=0x001e, h01=0x0050, text=»A105    CONRTL.DIGITCALC. «, t00=0x004b, t01=0x005c}
0x7590…75ae               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x004b, t01=0x007e}
0x75ae…75d0               Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,CBIN3,CALCD01«, t00=0x004b, t01=0x009c}
0x75d0…75ec               Head {h00=0x0018, h01=0x0050, text=» CMP SPBINW2,CBIN17 «, t00=0x004b, t01=0x00be}
0x75ec…75fc               Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x004b, t01=0x00da}
0x75fc…760c               Head {h00=0x000c, h01=0x0050, text=»CALCD01 «, t00=0x004b, t01=0x00ea}
0x760c…7636               Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1   GET LENGTH«, t00=0x004b, t01=0x00fa}
0x7636…7652               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN13«, t00=0x004b, t01=0x0124}
0x7652…766e               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x004b, t01=0x0140}
0x766e…767e               Head {h00=0x000c, h01=0x0050, text=»CALCD02 «, t00=0x004b, t01=0x015c}
0x767e…769c               Head {h00=0x001a, h01=0x0050, text=»  MOVE  GSWBCD3,=D'0' «, t00=0x004b, t01=0x016c}
0x769c…76de               Head {h00=0x003e, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2  GET NEXT DIGIT «, t00=0x004b, t01=0x018a}
0x76de…770e               Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,CBIN1   ADJUST WEIGHT-INDEX«, t00=0x004c, t01=0x003c}
0x770e…7748               Head {h00=0x0036, h01=0x0050, text=» MUL GSWBCD3,WEIGTH1(GSWBIN2)  MULTIPLY BY WEIGHT «, t00=0x004c, t01=0x006c}
0x7748…7776               Head {h00=0x002a, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3   ADD TO OLD SUM «, t00=0x004c, t01=0x00a6}
0x7776…77a0               Head {h00=0x0026, h01=0x0050, text=»  SUB GSWBIN1,CBIN1  ADJUST LENGTH«, t00=0x004c, t01=0x00d4}
0x77a0…77c2               Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,CBIN0,CALCD02«, t00=0x004c, t01=0x00fe}
0x77c2…77e0               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x004c, t01=0x0120}
0x77e0…77fc               Head {h00=0x0018, h01=0x0050, text=» DIV GSWBCD5,=D'11' «, t00=0x004c, t01=0x013e}
0x77fc…7818               Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD5,=D'11' «, t00=0x004c, t01=0x015a}
0x7818…7854               Head {h00=0x0038, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5           GET REMAINDER MOD 11 «, t00=0x004c, t01=0x0176}
0x7854…7878               Head {h00=0x0020, h01=0x0050, text=» CBNL GSWBCD4,=D'1',CALCD05 «, t00=0x004d, t01=0x0022}
0x7878…7894               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD4,=D'11'«, t00=0x004d, t01=0x0046}
0x7894…78a4               Head {h00=0x000c, h01=0x0050, text=»CALCD05 «, t00=0x004d, t01=0x0062}
0x78a4…78c0               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'11'«, t00=0x004d, t01=0x0072}
0x78c0…78f6               Head {h00=0x0032, h01=0x0050, text=» SUB GSWBCD5,GSWBCD4   CALCULATE CONTROLDIGIT «, t00=0x004d, t01=0x008e}
0x78f6…7906               Head {h00=0x000c, h01=0x0050, text=»  B ART «, t00=0x004d, t01=0x00c4}
0x7906…7918               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004d, t01=0x00d4}
0x7918…793c               Head {h00=0x0020, h01=0x0050, text=»A107   POSTDATO=MASKINDATO ?«, t00=0x004d, t01=0x00e6}
0x793c…795a               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT «, t00=0x004d, t01=0x010a}
0x795a…797e               Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD7,CMASKDAT,A1075«, t00=0x004d, t01=0x0128}
0x797e…798c               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004d, t01=0x014c}
0x798c…799a               Head {h00=0x000a, h01=0x0050, text=»A1075 «, t00=0x004d, t01=0x015a}
0x799a…79b0               Head {h00=0x0012, h01=0x0050, text=» SET SPWARNFL «, t00=0x004d, t01=0x0168}
0x79b0…79be               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004d, t01=0x017e}
0x79be…79d0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004d, t01=0x018c}
0x79d0…79ee               Head {h00=0x001a, h01=0x0050, text=»A108   SPG-REGKONTONR «, t00=0x004e, t01=0x000e}
0x79ee…7a0a               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'5' «, t00=0x004e, t01=0x002c}
0x7a0a…7a18               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004e, t01=0x0048}
0x7a18…7a2a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x0056}
0x7a2a…7a48               Head {h00=0x001a, h01=0x0050, text=»A109   SPG-CPR/CIR/NR «, t00=0x004e, t01=0x0068}
0x7a48…7a64               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'6' «, t00=0x004e, t01=0x0086}
0x7a64…7a72               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004e, t01=0x00a2}
0x7a72…7a84               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x00b0}
0x7a84…7a9c               Head {h00=0x0014, h01=0x0050, text=»A110   SPG-BELOB«, t00=0x004e, t01=0x00c2}
0x7a9c…7ab8               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'8' «, t00=0x004e, t01=0x00da}
0x7ab8…7ac6               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004e, t01=0x00f6}
0x7ac6…7ad8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x0104}
0x7ad8…7af6               Head {h00=0x001a, h01=0x0050, text=»A111   SPG-OTHER FIELD«, t00=0x004e, t01=0x0116}
0x7af6…7b14               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x004e, t01=0x0134}
0x7b14…7b38               Head {h00=0x0020, h01=0x0050, text=» CBG GSWBCD6,=D'90',A111ERR «, t00=0x004e, t01=0x0152}
0x7b38…7b54               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'0' «, t00=0x004e, t01=0x0176}
0x7b54…7b62 (79, 0, 400)  Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004f, t01=0x0004}
0x7b62…7b72               Head {h00=0x000c, h01=0x0050, text=»A111ERR «, t00=0x004f, t01=0x0012}
0x7b72…7b8e               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x004f, t01=0x0022}
0x7b8e…7b9c               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004f, t01=0x003e}
0x7b9c…7bae               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004f, t01=0x004c}
0x7bae…7bd0               Head {h00=0x001e, h01=0x0050, text=»A115   TEXTNR REMITTERING «, t00=0x004f, t01=0x005e}
0x7bd0…7bee               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x004f, t01=0x0080}
0x7bee…7c0c               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GSWBCD6 «, t00=0x004f, t01=0x009e}
0x7c0c…7c32               Head {h00=0x0022, h01=0x0050, text=» PERF TXTRD,GSWBIN8 READ TEXT «, t00=0x004f, t01=0x00bc}
0x7c32…7c46               Head {h00=0x0010, h01=0x0050, text=» BNOK A1154 «, t00=0x004f, t01=0x00e2}
0x7c46…7c74               Head {h00=0x002a, h01=0x0050, text=» CBE GTWBCD1,=D'10',A1154 END OF FILE «, t00=0x004f, t01=0x00f6}
0x7c74…7c9e               Head {h00=0x0026, h01=0x0050, text=» CBL GTTXTTKO,=D'1',A1154 DELETED «, t00=0x004f, t01=0x0124}
0x7c9e…7cb6               Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x004f, t01=0x014e}
0x7cb6…7cd2               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'26'«, t00=0x004f, t01=0x0166}
0x7cd2…7ce0               Head {h00=0x000a, h01=0x0050, text=»A1151 «, t00=0x004f, t01=0x0182}
0x7ce0…7cfc               Head {h00=0x0018, h01=0x0050, text=» TBF TTCY1FLG,A1153 «, t00=0x004f, t01=0x0190}
0x7cfc…7d18               Head {h00=0x0018, h01=0x0050, text=» TBT GTBDTFLG,A1152 «, t00=0x0050, t01=0x001c}
0x7d18…7d34               Head {h00=0x0018, h01=0x0050, text=» TBF GTSTRFLG,A1153 «, t00=0x0050, t01=0x0038}
0x7d34…7d42               Head {h00=0x000a, h01=0x0050, text=»A1152 «, t00=0x0050, t01=0x0054}
0x7d42…7d68               Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3)«, t00=0x0050, t01=0x0062}
0x7d68…7d8e               Head {h00=0x0022, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN1 «, t00=0x0050, t01=0x0088}
0x7d8e…7d9c               Head {h00=0x000a, h01=0x0050, text=»A1153 «, t00=0x0050, t01=0x00ae}
0x7d9c…7daa               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0050, t01=0x00bc}
0x7daa…7db8               Head {h00=0x000a, h01=0x0050, text=»A1154 «, t00=0x0050, t01=0x00ca}
0x7db8…7de2               Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN11 TEXT MISSING «, t00=0x0050, t01=0x00d8}
0x7de2…7df0               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0050, t01=0x0102}
0x7df0…7e02               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0050, t01=0x0110}
0x7e02…7e0e               Head {h00=0x0008, h01=0x0050, text=»A116«, t00=0x0050, t01=0x0122}
0x7e0e…7e2a               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'24'«, t00=0x0050, t01=0x012e}
0x7e2a…7e3a               Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0050, t01=0x014a}
0x7e3a…7e4c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0050, t01=0x015a}
0x7e4c…7e58               Head {h00=0x0008, h01=0x0050, text=»A117«, t00=0x0050, t01=0x016c}
0x7e58…7e74               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'25'«, t00=0x0050, t01=0x0178}
0x7e74…7e84 (81, 0, 400)  Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0051, t01=0x0004}
0x7e84…7e96               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x0014}
0x7e96…7ea2               Head {h00=0x0008, h01=0x0050, text=»A118«, t00=0x0051, t01=0x0026}
0x7ea2…7ebe               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'37'«, t00=0x0051, t01=0x0032}
0x7ebe…7ece               Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0051, t01=0x004e}
0x7ece…7ee0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x005e}
0x7ee0…7eec               Head {h00=0x0008, h01=0x0050, text=»A119«, t00=0x0051, t01=0x0070}
0x7eec…7f08               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'38'«, t00=0x0051, t01=0x007c}
0x7f08…7f18               Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0051, t01=0x0098}
0x7f18…7f2a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x00a8}
0x7f2a…7f36               Head {h00=0x0008, h01=0x0050, text=»A120«, t00=0x0051, t01=0x00ba}
0x7f36…7f5c               Head {h00=0x0022, h01=0x0050, text=»* VALUESET: CURRENT YEAR +/- 1«, t00=0x0051, t01=0x00c6}
0x7f5c…7f82               Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD1,CMASKDAT DDMMYY «, t00=0x0051, t01=0x00ec}
0x7f82…7fa0               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD2,CMASKDAT«, t00=0x0051, t01=0x0112}
0x7fa0…7fc4               Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'100'   DDMM «, t00=0x0051, t01=0x0130}
0x7fc4…7fe8               Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'100' DDMM00 «, t00=0x0051, t01=0x0154}
0x7fe8…800a               Head {h00=0x001e, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1   YY «, t00=0x0051, t01=0x0178}
0x800a…8028               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,GSWBCD2 «, t00=0x0052, t01=0x000a}
0x8028…8042               Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD1,=D'1'«, t00=0x0052, t01=0x0028}
0x8042…805c               Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD2,=D'1'«, t00=0x0052, t01=0x0042}
0x805c…807a               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0052, t01=0x005c}
0x807a…809c               Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,GSWBCD1,A120E«, t00=0x0052, t01=0x007a}
0x809c…80be               Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD3,GSWBCD2,A120E«, t00=0x0052, t01=0x009c}
0x80be…80cc               Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0052, t01=0x00be}
0x80cc…80da               Head {h00=0x000a, h01=0x0050, text=»A120E «, t00=0x0052, t01=0x00cc}
0x80da…80f6               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0052, t01=0x00da}
0x80f6…8104               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0052, t01=0x00f6}
0x8104…8116               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x0104}
0x8116…8122               Head {h00=0x0008, h01=0x0050, text=»A130«, t00=0x0052, t01=0x0116}
0x8122…813e               Head {h00=0x0018, h01=0x0050, text=»* USED IN "NYSTART" «, t00=0x0052, t01=0x0122}
0x813e…815c               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0052, t01=0x013e}
0x815c…817a               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0052, t01=0x015c}
0x817a…81a0               Head {h00=0x0022, h01=0x0050, text=» IB GSWBIN1,A1301,A1302,A1303 «, t00=0x0052, t01=0x017a}
0x81a0…81bc               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0053, t01=0x0010}
0x81bc…81ca               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0053, t01=0x002c}
0x81ca…81d8               Head {h00=0x000a, h01=0x0050, text=»A1301 «, t00=0x0053, t01=0x003a}
0x81d8…81fc               Head {h00=0x0020, h01=0x0050, text=» MOVE GTSTRFMT,=C'SYSSTART '«, t00=0x0053, t01=0x0048}
0x81fc…820c               Head {h00=0x000c, h01=0x0050, text=» B A1305«, t00=0x0053, t01=0x006c}
0x820c…821a               Head {h00=0x000a, h01=0x0050, text=»A1302 «, t00=0x0053, t01=0x007c}
0x821a…8240               Head {h00=0x0022, h01=0x0050, text=» MOVE GTSTRFMT,=C'RESTART   ' «, t00=0x0053, t01=0x008a}
0x8240…8250               Head {h00=0x000c, h01=0x0050, text=» B A1305«, t00=0x0053, t01=0x00b0}
0x8250…825e               Head {h00=0x000a, h01=0x0050, text=»A1303 «, t00=0x0053, t01=0x00c0}
0x825e…8284               Head {h00=0x0022, h01=0x0050, text=» MOVE GTSTRFMT,=C'RESTORE   ' «, t00=0x0053, t01=0x00ce}
0x8284…8292               Head {h00=0x000a, h01=0x0050, text=»A1305 «, t00=0x0053, t01=0x00f4}
0x8292…82c0               Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN1,=X'0516' LINE 5, POS 22 «, t00=0x0053, t01=0x0102}
0x82c0…82e0               Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,POS,GSWBIN1«, t00=0x0053, t01=0x0130}
0x82e0…82fe               Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,STRTFRM «, t00=0x0053, t01=0x0150}
0x82fe…830c               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0053, t01=0x016e}
0x830c…831e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x017c}
0x831e…832a               Head {h00=0x0008, h01=0x0050, text=»A131«, t00=0x0053, t01=0x018e}
0x832a…8346               Head {h00=0x0018, h01=0x0050, text=»* USED IN "NYSTART" «, t00=0x0054, t01=0x000a}
0x8346…8364               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0054, t01=0x0026}
0x8364…8382               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0054, t01=0x0044}
0x8382…83a8               Head {h00=0x0022, h01=0x0050, text=» IB GSWBIN1,A1311,A1312,A1313 «, t00=0x0054, t01=0x0062}
0x83a8…83c4               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0054, t01=0x0088}
0x83c4…83d2               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0054, t01=0x00a4}
0x83d2…83e0               Head {h00=0x000a, h01=0x0050, text=»A1311 «, t00=0x0054, t01=0x00b2}
0x83e0…8402               Head {h00=0x001e, h01=0x0050, text=» MOVE GTSTRFMT,=C'SYSVOL '«, t00=0x0054, t01=0x00c0}
0x8402…8412               Head {h00=0x000c, h01=0x0050, text=» B A1315«, t00=0x0054, t01=0x00e2}
0x8412…8420               Head {h00=0x000a, h01=0x0050, text=»A1312 «, t00=0x0054, t01=0x00f2}
0x8420…8442               Head {h00=0x001e, h01=0x0050, text=» MOVE GTSTRFMT,=C'REGVOL '«, t00=0x0054, t01=0x0100}
0x8442…8452               Head {h00=0x000c, h01=0x0050, text=» B A1315«, t00=0x0054, t01=0x0122}
0x8452…8460               Head {h00=0x000a, h01=0x0050, text=»A1313 «, t00=0x0054, t01=0x0132}
0x8460…8482               Head {h00=0x001e, h01=0x0050, text=» MOVE GTSTRFMT,=C'AFBRYD '«, t00=0x0054, t01=0x0140}
0x8482…8490               Head {h00=0x000a, h01=0x0050, text=»A1315 «, t00=0x0054, t01=0x0162}
0x8490…84ae               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=X'0711'«, t00=0x0054, t01=0x0170}
0x84ae…84ce               Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,POS,GSWBIN1«, t00=0x0054, t01=0x018e}
0x84ce…84ec               Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,STRTFRM «, t00=0x0055, t01=0x001e}
0x84ec…84fa               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0055, t01=0x003c}
0x84fa…850c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x004a}
0x850c…8520               Head {h00=0x0010, h01=0x0050, text=»STRTFRM FRMT«, t00=0x0055, t01=0x005c}
0x8520…8534               Head {h00=0x0010, h01=0x0050, text=» FILLR '+',2«, t00=0x0055, t01=0x0070}
0x8534…854c               Head {h00=0x0014, h01=0x0050, text=» FCOPY GTSTRFMT «, t00=0x0055, t01=0x0084}
0x854c…855a               Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0055, t01=0x009c}
0x855a…856c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x00aa}
0x856c…8578               Head {h00=0x0008, h01=0x0050, text=»A132«, t00=0x0055, t01=0x00bc}
0x8578…8596               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0055, t01=0x00c8}
0x8596…85b4               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=X'0301'«, t00=0x0055, t01=0x00e6}
0x85b4…85d4               Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,POS,GSWBIN1«, t00=0x0055, t01=0x0104}
0x85d4…85f6               Head {h00=0x001e, h01=0x0050, text=» EDIT CVOL(CBIN2),A132FMT2«, t00=0x0055, t01=0x0124}
0x85f6…8618               Head {h00=0x001e, h01=0x0050, text=» EDIT CVOL(CBIN3),A132FMT3«, t00=0x0055, t01=0x0146}
0x8618…863a               Head {h00=0x001e, h01=0x0050, text=» EDIT CVOL(CBIN4),A132FMT4«, t00=0x0055, t01=0x0168}
0x863a…8658               Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,A132FMT1«, t00=0x0055, t01=0x018a}
0x8658…8666               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0056, t01=0x0018}
0x8666…866e               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0026}
0x866e…8684               Head {h00=0x0012, h01=0x0050, text=»A132FMT1 FRMT «, t00=0x0056, t01=0x002e}
0x8684…8698               Head {h00=0x0010, h01=0x0050, text=» FILLR '+',2«, t00=0x0056, t01=0x0044}
0x8698…86b2               Head {h00=0x0016, h01=0x0050, text=» FCOPY CVOL(CBIN2)«, t00=0x0056, t01=0x0058}
0x86b2…86c6               Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0056, t01=0x0072}
0x86c6…86e0               Head {h00=0x0016, h01=0x0050, text=» FCOPY CVOL(CBIN3)«, t00=0x0056, t01=0x0086}
0x86e0…86f4               Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0056, t01=0x00a0}
0x86f4…870e               Head {h00=0x0016, h01=0x0050, text=» FCOPY CVOL(CBIN4)«, t00=0x0056, t01=0x00b4}
0x870e…871c               Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x00ce}
0x871c…8724               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00dc}
0x8724…873a               Head {h00=0x0012, h01=0x0050, text=»A132FMT2 FRMT «, t00=0x0056, t01=0x00e4}
0x873a…8756               Head {h00=0x0018, h01=0x0050, text=» FMEL '999',GSWBCD1 «, t00=0x0056, t01=0x00fa}
0x8756…876a               Head {h00=0x0010, h01=0x0050, text=» FTEXT '002'«, t00=0x0056, t01=0x0116}
0x876a…8778               Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x012a}
0x8778…8780               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0138}
0x8780…8796               Head {h00=0x0012, h01=0x0050, text=»A132FMT3 FRMT «, t00=0x0056, t01=0x0140}
0x8796…87b2               Head {h00=0x0018, h01=0x0050, text=» FMEL '999',GSWBCD1 «, t00=0x0056, t01=0x0156}
0x87b2…87c6               Head {h00=0x0010, h01=0x0050, text=» FTEXT '003'«, t00=0x0056, t01=0x0172}
0x87c6…87d4               Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x0186}
0x87d4…87dc (87, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0004}
0x87dc…87f2               Head {h00=0x0012, h01=0x0050, text=»A132FMT4 FRMT «, t00=0x0057, t01=0x000c}
0x87f2…880e               Head {h00=0x0018, h01=0x0050, text=» FMEL '999',GSWBCD1 «, t00=0x0057, t01=0x0022}
0x880e…8822               Head {h00=0x0010, h01=0x0050, text=» FTEXT '004'«, t00=0x0057, t01=0x003e}
0x8822…8830               Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0057, t01=0x0052}
0x8830…8842               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0057, t01=0x0060}
0x8842…8860               Head {h00=0x001a, h01=0x0050, text=»APK   KEEP INFORMATION«, t00=0x0057, t01=0x0072}
0x8860…8888               Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APK00 FIRST FIELD?«, t00=0x0057, t01=0x0090}
0x8888…88a8               Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW3,CBIN5,APK10«, t00=0x0057, t01=0x00b8}
0x88a8…88d0               Head {h00=0x0024, h01=0x0050, text=» MOVE GTKTTYP,=D'0' NOT KONTONR.«, t00=0x0057, t01=0x00d8}
0x88d0…88de               Head {h00=0x000a, h01=0x0050, text=»APK10 «, t00=0x0057, t01=0x0100}
0x88de…8904               Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0057, t01=0x010e}
0x8904…8916               Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0057, t01=0x0134}
0x8916…893c               Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0057, t01=0x0146}
0x893c…894a               Head {h00=0x000a, h01=0x0050, text=»APK00 «, t00=0x0057, t01=0x016c}
0x894a…8984               Head {h00=0x0036, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF FIELD «, t00=0x0057, t01=0x017a}
0x8984…89bc               Head {h00=0x0034, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 STORE FIELDNUMBER «, t00=0x0058, t01=0x0024}
0x89bc…89ca               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0058, t01=0x005c}
0x89ca…89dc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x006a}
0x89dc…89e8               Head {h00=0x0008, h01=0x0050, text=»APF «, t00=0x0058, t01=0x007c}
0x89e8…8a10               Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APF00 FIRST FIELD?«, t00=0x0058, t01=0x0088}
0x8a10…8a2c               Head {h00=0x0018, h01=0x0050, text=» MOVE GTKTTYP,=D'0' «, t00=0x0058, t01=0x00b0}
0x8a2c…8a52               Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0058, t01=0x00cc}
0x8a52…8a64               Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0058, t01=0x00f2}
0x8a64…8a8a               Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0058, t01=0x0104}
0x8a8a…8a98               Head {h00=0x000a, h01=0x0050, text=»APF00 «, t00=0x0058, t01=0x012a}
0x8a98…8ab2               Head {h00=0x0016, h01=0x0050, text=» TBT SPDUPL,APF10 «, t00=0x0058, t01=0x0138}
0x8ab2…8ada               Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET VALUE «, t00=0x0058, t01=0x0152}
0x8ada…8af6               Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD6,GTDBKRS«, t00=0x0058, t01=0x017a}
0x8af6…8b14               Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x0059, t01=0x0008}
0x8b14…8b22               Head {h00=0x000a, h01=0x0050, text=»APF10 «, t00=0x0059, t01=0x0026}
0x8b22…8b64               Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF CURRENT FIELD «, t00=0x0059, t01=0x0034}
0x8b64…8b92               Head {h00=0x002a, h01=0x0050, text=»*          MULTIPLY WITH -1 IF KREDIT «, t00=0x0059, t01=0x0076}
0x8b92…8bd4               Head {h00=0x003e, h01=0x0050, text=»*          STORE NEGATIVE FIELD NUMBER (NUMBER WITH SIGN) «, t00=0x0059, t01=0x00a4}
0x8bd4…8bfa               Head {h00=0x0022, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 «, t00=0x0059, t01=0x00e6}
0x8bfa…8c1e               Head {h00=0x0020, h01=0x0050, text=» MUL GTUSED(GSWBIN1),=W'-1' «, t00=0x0059, t01=0x010c}
0x8c1e…8c2c               Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0059, t01=0x0130}
0x8c2c…8c3e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0059, t01=0x013e}
0x8c3e…8c4a               Head {h00=0x0008, h01=0x0050, text=»ART «, t00=0x0059, t01=0x0150}
0x8c4a…8c66               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0059, t01=0x015c}
0x8c66…8c86               Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW4,CBIN3,ARET «, t00=0x0059, t01=0x0178}
0x8c86…8ca2               Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x005a, t01=0x0008}
0x8ca2…8cae               Head {h00=0x0008, h01=0x0050, text=»ARET«, t00=0x005a, t01=0x0024}
0x8cae…8cba               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005a, t01=0x0030}
0x8cba…8cc8               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005a, t01=0x003c}
0x8cc8…8cd0               Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x004a}
0x8cd0…8cd8               Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0052}
0x8cd8…8cec               Head {h00=0x0010, h01=0x0050, text=»SPACES PROC «, t00=0x005a, t01=0x005a}
0x8cec…8d08               Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'35'«, t00=0x005a, t01=0x006e}
0x8d08…8d2c               Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,SPINPUT,GSWBIN1«, t00=0x005a, t01=0x008a}
0x8d2c…8d38               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005a, t01=0x00ae}
0x8d38…8d46               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005a, t01=0x00ba}
0x8d46…8d54               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x00c8}
0x8d54…8d68               Head {h00=0x0010, h01=0x0050, text=»SETKRE PROC «, t00=0x005a, t01=0x00d6}
0x8d68…8d84               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005a, t01=0x00ea}
0x8d84…8d8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0106}
0x8d8e…8dc2               Head {h00=0x0030, h01=0x0050, text=»*          SETKRE - SET  KREDIT INFORMATION «, t00=0x005a, t01=0x0110}
0x8dc2…8dcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0144}
0x8dcc…8de8               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005a, t01=0x014e}
0x8de8…8e06               Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' KRE'«, t00=0x005a, t01=0x016a}
0x8e06…8e22               Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'-1'«, t00=0x005a, t01=0x0188}
0x8e22…8e3e               Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'1' «, t00=0x005b, t01=0x0014}
0x8e3e…8e5a               Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN1 «, t00=0x005b, t01=0x0030}
0x8e5a…8e66               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005b, t01=0x004c}
0x8e66…8e74               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005b, t01=0x0058}
0x8e74…8e7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0066}
0x8e7e…8e92               Head {h00=0x0010, h01=0x0050, text=»SETDEB PROC «, t00=0x005b, t01=0x0070}
0x8e92…8eae               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005b, t01=0x0084}
0x8eae…8eb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00a0}
0x8eb8…8eea               Head {h00=0x002e, h01=0x0050, text=»*          SETDEB - SET DEBET INFORMATION «, t00=0x005b, t01=0x00aa}
0x8eea…8ef4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00dc}
0x8ef4…8f10               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005b, t01=0x00e6}
0x8f10…8f2e               Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' DEB'«, t00=0x005b, t01=0x0102}
0x8f2e…8f4a               Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'+1'«, t00=0x005b, t01=0x0120}
0x8f4a…8f66               Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'2' «, t00=0x005b, t01=0x013c}
0x8f66…8f82               Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN2 «, t00=0x005b, t01=0x0158}
0x8f82…8f8e               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005b, t01=0x0174}
0x8f8e…8f9c               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005b, t01=0x0180}
0x8f9c…8faa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x018e}
0x8faa…8fbc               Head {h00=0x000e, h01=0x0050, text=»SELTR PROC«, t00=0x005c, t01=0x000c}
0x8fbc…8fd8               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005c, t01=0x001e}
0x8fd8…8fe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x003a}
0x8fe2…9024               Head {h00=0x003e, h01=0x0050, text=»*          SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN «, t00=0x005c, t01=0x0044}
0x9024…9040               Head {h00=0x0018, h01=0x0050, text=»*          SELECTED.«, t00=0x005c, t01=0x0086}
0x9040…9074               Head {h00=0x0030, h01=0x0050, text=»*          SELECTED TRANSTYPE IS IN SPBINW5 «, t00=0x005c, t01=0x00a2}
0x9074…907e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00d6}
0x907e…909a               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005c, t01=0x00e0}
0x909a…90c4               Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,CBIN3,SELOK ENTER KEY«, t00=0x005c, t01=0x00fc}
0x90c4…90f0               Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,CBIN18,SEL10 KREDIT KEY«, t00=0x005c, t01=0x0126}
0x90f0…911c               Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,CBIN17,SEL20 DEBET KEY «, t00=0x005c, t01=0x0152}
0x911c…9144               Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN4 INVALID KEY «, t00=0x005c, t01=0x017e}
0x9144…916c               Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x005d, t01=0x0016}
0x916c…9178               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005d, t01=0x003e}
0x9178…918e               Head {h00=0x0012, h01=0x0050, text=»SEL10   KREDIT«, t00=0x005d, t01=0x004a}
0x918e…91a2               Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x005d, t01=0x0060}
0x91a2…91b2               Head {h00=0x000c, h01=0x0050, text=» B SEL30«, t00=0x005d, t01=0x0074}
0x91b2…91c8               Head {h00=0x0012, h01=0x0050, text=»SEL20   DEBET «, t00=0x005d, t01=0x0084}
0x91c8…91dc               Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x005d, t01=0x009a}
0x91dc…91fe               Head {h00=0x001e, h01=0x0050, text=»SEL30   TRANSTYPE SELECTED«, t00=0x005d, t01=0x00ae}
0x91fe…921c               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x005d, t01=0x00d0}
0x921c…9234               Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1,  C «, t00=0x005d, t01=0x00ee}
0x9234…925c               Head {h00=0x0024, h01=0x0050, text=»  SEL40,SEL40,SEL90,SEL40,SEL40 «, t00=0x005d, t01=0x0106}
0x925c…926c               Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x005d, t01=0x012e}
0x926c…927a               Head {h00=0x000a, h01=0x0050, text=»SEL40 «, t00=0x005d, t01=0x013e}
0x927a…9292               Head {h00=0x0014, h01=0x0050, text=» IB SPBINW5,  C «, t00=0x005d, t01=0x014c}
0x9292…92d2               Head {h00=0x003c, h01=0x0050, text=»  SEL90,SEL45,SEL90,SEL90,SEL90,SEL90,SEL90,SEL45,SEL90 «, t00=0x005d, t01=0x0164}
0x92d2…92e0               Head {h00=0x000a, h01=0x0050, text=»SEL45 «, t00=0x005e, t01=0x0014}
0x92e0…9300               Head {h00=0x001c, h01=0x0050, text=» CBL GSWBIN1,CBIN3,SEL50«, t00=0x005e, t01=0x0022}
0x9300…931e               Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x005e, t01=0x0042}
0x931e…932e               Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x005e, t01=0x0060}
0x932e…933c               Head {h00=0x000a, h01=0x0050, text=»SEL50 «, t00=0x005e, t01=0x0070}
0x933c…935e               Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,CBIN19 ERROR«, t00=0x005e, t01=0x007e}
0x935e…9376               Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x005e, t01=0x00a0}
0x9376…9382               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005e, t01=0x00b8}
0x9382…9390               Head {h00=0x000a, h01=0x0050, text=»SEL90 «, t00=0x005e, t01=0x00c4}
0x9390…93b2               Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGNR,SPBINW5 TYPE«, t00=0x005e, t01=0x00d2}
0x93b2…93e8               Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGDEX,SPBINW5 TYPE INDEX. OK FOR <11 «, t00=0x005e, t01=0x00f4}
0x93e8…941c               Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANS SELECTED«, t00=0x005e, t01=0x012a}
0x941c…9430               Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x005e, t01=0x015e}
0x9430…943e               Head {h00=0x000a, h01=0x0050, text=»SELOK «, t00=0x005e, t01=0x0172}
0x943e…9464               Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x005e, t01=0x0180}
0x9464…9470               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005f, t01=0x0016}
0x9470…947e               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005f, t01=0x0022}
0x947e…948c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x0030}
0x948c…9494               Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x003e}
0x9494…949c               Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x0046}
0x949c…94a4               Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x004e}
0x94a4…94ba               Head {h00=0x0012, h01=0x0050, text=»YYMMDD PROC P «, t00=0x005f, t01=0x0056}
0x94ba…94cc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005f, t01=0x006c}
0x94cc…950a               Head {h00=0x003a, h01=0x0050, text=»* YYMMDD CHECKS THAT THE DATE IS IN FOR FORMAT YYMMDD.«, t00=0x005f, t01=0x007e}
0x950a…9530               Head {h00=0x0022, h01=0x0050, text=»* IF NOT, IT WILL BE INVERTED «, t00=0x005f, t01=0x00bc}
0x9530…954c               Head {h00=0x0018, h01=0x0050, text=»* OUTPUT IN GSWBCD7 «, t00=0x005f, t01=0x00e2}
0x954c…955e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005f, t01=0x00fe}
0x955e…9576               Head {h00=0x0014, h01=0x0050, text=» MOVE GSWBCD7,P «, t00=0x005f, t01=0x0110}
0x9576…9596               Head {h00=0x001c, h01=0x0050, text=» CBG P,=D'800000',YYMM90«, t00=0x005f, t01=0x0128}
0x9596…95ae               Head {h00=0x0014, h01=0x0050, text=» MOVE GSWBCD6,P «, t00=0x005f, t01=0x0148}
0x95ae…95de               Head {h00=0x002c, h01=0x0050, text=» XCOPY GSWBCD7,CBIN6,CBIN1,GSWBCD6,CBIN4«, t00=0x005f, t01=0x0160}
0x95de…960e               Head {h00=0x002c, h01=0x0050, text=» XCOPY GSWBCD7,CBIN4,CBIN1,GSWBCD6,CBIN6«, t00=0x005f, t01=0x0190}
0x960e…961c               Head {h00=0x000a, h01=0x0050, text=»YYMM90«, t00=0x0060, t01=0x0030}
0x961c…9628               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0060, t01=0x003e}
0x9628…9636               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0060, t01=0x004a}
0x9636…963e               Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x0058}
0x963e…9652               Head {h00=0x0010, h01=0x0050, text=»CHDATO PROC «, t00=0x0060, t01=0x0060}
0x9652…9664               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x0074}
0x9664…968e               Head {h00=0x0026, h01=0x0050, text=»*     CHANGES GSWBCD6  (DDMMYY) TO«, t00=0x0060, t01=0x0086}
0x968e…96ae               Head {h00=0x001c, h01=0x0050, text=»*     GSWBCD7  (YYMMDD) «, t00=0x0060, t01=0x00b0}
0x96ae…96c0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x00d0}
0x96c0…96de               Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,GSWBCD6 «, t00=0x0060, t01=0x00e2}
0x96de…970e               Head {h00=0x002c, h01=0x0050, text=» XCOPY GSWBCD7,CBIN6,CBIN1,GSWBCD6,CBIN4«, t00=0x0060, t01=0x0100}
0x970e…973e               Head {h00=0x002c, h01=0x0050, text=» XCOPY GSWBCD7,CBIN4,CBIN1,GSWBCD6,CBIN6«, t00=0x0060, t01=0x0130}
0x973e…974a               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0060, t01=0x0160}
0x974a…9758               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0060, t01=0x016c}
0x9758…9762               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x017a}
0x9762…9792               Head {h00=0x002c, h01=0x0050, text=»XCOP PROC TO,$TOPNT,$SIZE,FROM,$FROMPNT «, t00=0x0060, t01=0x0184}
0x9792…97a6               Head {h00=0x0010, h01=0x0050, text=» PLIT $TOPNT«, t00=0x0061, t01=0x0024}
0x97a6…97ba               Head {h00=0x0010, h01=0x0050, text=» PLIT $SIZE «, t00=0x0061, t01=0x0038}
0x97ba…97d0               Head {h00=0x0012, h01=0x0050, text=» PLIT $FROMPNT«, t00=0x0061, t01=0x004c}
0x97d0…9806               Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,$TOPNT START OF RECEIVING FIELD «, t00=0x0061, t01=0x0062}
0x9806…9828               Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN4,$SIZE LENGTH«, t00=0x0061, t01=0x0098}
0x9828…985e               Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN5,$FROMPNT START OF SENDING FIELD «, t00=0x0061, t01=0x00ba}
0x985e…988c               Head {h00=0x002a, h01=0x0050, text=» XCOPY TO,GSWBIN1,GSWBIN4,FROM,GSWBIN5«, t00=0x0061, t01=0x00f0}
0x988c…9898               Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0061, t01=0x011e}
0x9898…98a6               Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0061, t01=0x012a}
0x98a6…98b2               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0061, t01=0x0138}
0x98b2…98b6               Head {h00=0x4004, h01=0x0000}
0x98b6…98ba               00 61 01 44                                                                                                                                                                                                                                       ┆ a D┆
0x98ba…98c2 (98, 1, 8)    20 04 00 00 00 62 00 04                                                                                                                                                                                                                           ┆     b  ┆
0x98c2…9912 (99, 0, 400)  a4 00 83 a4 01 b0 83 41 a7 80 0b 83 54 8b 03 ca 7a 01 ef 17 8e 01 ef 1d 8e 01 ef 1e 8e 01 ef 23 8e 01 ef 24 8e 01 ef 20 8e 01 ef 26 8e 01 ef 14 8e 01 ef 16 8e 01 ef 11 8e 01 ef 12 83 21 ef 27 8e 0d 40 a7 80 1b 83 54 50 00 83 ef 27 5f 48 01   ┆       A    T   z              #   $       &                 ! '  @    TP   '_H ┆
0x9912…9962               b0 83 80 07 54 43 00 ef 27 a4 40 a7 80 1b 83 54 38 02 df 1b ca 00 a4 82 80 08 54 2d 00 b0 c9 80 07 54 26 01 df 1a 8e 01 df 1b 8e 01 df 1c 8e 01 df 1d 8e 01 df 1e 8e 01 df 20 8e 00 a4 10 80 08 54 07 40 3a 06 10 10 57 05 40 3a 06 10 11 34 00   ┆    TC  ' @    T8         T-     T&                             T @:   W @:   4 ┆
0x9962…99b2               01 b0 83 80 01 00 83 11 01 ef 22 8e 80 0b 83 50 02 57 bf 29 8b 7d b4 57 37 80 0b 83 50 32 21 8b 83 02 57 77 00 83 ef 22 41 a7 80 0b 83 54 a3 01 ef 27 8e 80 1b 83 54 9a 01 b0 83 80 07 54 93 00 a4 11 00 df 1b 83 00 df 1c 83 80 08 54 84 57 7b   ┆          "    P W ) } W7   P2!   Ww   "A    T   '    T      T              T W{┆
0x99b2…9a02               00 8c 83 80 06 1a 13 01 ef 12 83 01 ef 17 8e 01 ef 1d 8e 01 ef 1e 8e 01 ef 23 8e 01 ef 24 8e 01 ef 20 8e 01 ef 26 7c 01 ef 14 8e 01 ef 16 8e 01 ef 11 8e 00 ef 27 83 03 ef 27 7a 40 a7 80 1b 83 54 40 00 ef 22 83 02 83 11 5f 82 02 83 11 80 0b   ┆                         #   $       &|              '   'z@    T@  "    _      ┆
0x9a02…9a52               83 50 06 11 8b 83 83 5f 0e 00 ef 21 83 00 83 ef 22 80 0b 83 50 05 04 83 11 5f 0a 00 ef 27 ef 21 80 1b 83 5c 0f 00 83 ef 21 5f b2 80 01 06 10 10 57 05 80 01 06 10 11 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05   ┆ P     _   !    "   P    _   ' !        !_      W      4                        ┆
0x9a52…9aa2 (100, 0, 400) 00 00 ef 27 a4 00 a4 00 80 1b 00 54 13 80 1c 29 b0 83 04 03 df 1b 7a 80 08 54 05 06 10 10 57 03 06 11 10 34 01 80 1a 5f 01 b0 83 80 07 54 0d 80 1d 10 00 54 07 40 5f 06 10 10 57 05 40 5f 06 10 11 34 01 80 1e 80 1f 25 84 cf 00 54 05 06 10 10   ┆   '       T   )      z  T    W    4   _     T     T @_   W @_   4     %   T    ┆
0x9aa2…9af2               57 03 06 10 11 34 01 01 a0 31 01 cf 8b 80 20 25 84 cf a0 00 54 07 80 21 06 10 10 57 03 06 10 11 34 01 00 a2 ef 27 20 82 10 15 41 a7 00 83 82 80 0b 83 54 1a 00 ef 27 a2 80 1b 83 54 11 57 0a 00 a4 ef 27 80 08 54 07 57 00 06 10 10 57 03 06 10   ┆W    4   1     %    T  !   W    4    '    A       T   '    T W    '  T W    W   ┆
0x9af2…9b42               11 34 00 41 a7 20 00 10 19 80 0b 00 54 47 00 83 ef 27 00 01 ef 27 80 0b 83 54 3a 80 1b 00 54 35 57 2e 00 83 a4 00 01 a4 80 0b 83 54 28 00 a4 ef 27 29 b0 83 17 05 df 1b 7a 23 df 1b 91 0e 01 8c 84 00 93 26 01 8b 91 01 ae 8d 80 22 80 08 54 05   ┆ 4 A        TG   '   '   T:   T5W.         T(   ')      z#         &       "  T ┆
0x9b42…9b92               06 10 10 57 03 06 10 11 34 02 49 a7 ee 80 23 a0 10 12 cf 2f 00 ef 25 a0 01 8a 7a 6a 8a 12 15 cf 10 00 ef 12 8a 01 8a 7a 6a 8a 14 13 cf 15 00 ef 17 8a 6a a0 10 12 cf 23 00 ef 20 a0 00 a0 10 6a a0 11 11 cf 25 00 ef 26 a0 6a 8a 10 17 cf 26 00   ┆   W    4 I   #    /  %   zj           zj         j    #       j    %  & j    & ┆
0x9b92…9be2               ef 14 8a 01 8a 7a 80 23 8a 16 11 cf 2a 00 ef 16 8a 01 8a 7a 80 23 8a 12 15 cf 2b 00 ef 11 8a 01 ef 1d 8e 01 ef 1e 8e 01 ef 23 8e 01 ef 24 8e 01 8a 7a 00 a0 ef 26 00 b7 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆     z #    *      z #    +              #   $   z   &                          ┆

Reduced view