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

⟦1d3acd394⟧

    Length: 11764 (0x2df4)
    Notes: pts_type(SC)
    Names: »RGMAIN.SC«

Derivation

└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
    └─⟦this⟧ »OD-KOM/RGMAIN.SC« 

PTS(SC)

	IDENT RGMAIN 	840124 EV
	DDUM	KMD08 
	PDIV 
	ENTRY	INITRG 
 ENTRY FUNCT
 ENTRY TRINP
 ENTRY TRPAGE 
 EXT BELL 
	EXT	SETKRE 
 EXT SETDEB 
	EXT	PACKCL 
	EXT	FMSTYR 
	EXT	FRMTSP 
	EXT	SPCLRA 
	EXT	SPERR
 EXT SPCA 
 EXT SPCN 
 EXT SPCLRN 
	EXT	SPINF1 
	EXT	LSTINT 
	EXT	SUBTOT 
 EXT CYK
	EXT	MODP 
	EXT	KORT 
	EXT	KVIT 
 EXT ADM
	EXT	SUM
	EXT	DIVTR
	EXT	ENTER
	INCLUDE	EQUATE 
	EJECT
INITRG	PROC 
********************
* 
*           INITRG - THIS PROCEDURE TAKES CARE OF ALL REGISTRATIONS,
*         FROM 'KASSEAABNING' TO 'KASSELUKNING'.
*         ONLY KASSEFUNCTIONS, FROM OPEN TO CLOSE.
*         TWO DIFFERENT METHODS ARE USED, 
*         DETERMINED BY THE FLAG CTRVALG: 
*              CTRVALG TRUE : 'SKOVBOMETODE'
*              CTRVALG FALSE: 'VIBORGMETODE'
* 
********************
* 
*     GENERAL INITIATION
	MOVE	SPLINTOP,=W'1'	FIRST LINE, SCREEN 
	MOVE	SPLINLOW,=W'0'	LAST LINE, SCREEN
	MOVE	SPKEY,CBIN1	USE KEY POSITION 1
	SET	GTREGFLG	FIRST TRANS 
 CLEAR SPME 
	MOVE	GTREGNR,=D'1'	INITIAL TRANSTYPE 1 
	MOVE	GTREGDEX,CBIN1
	PERF	SETKRE	KREDIT 
	PERF	PACKCL	CLEAR PACKBUFFER 
* 
	TBF	CTRVALG,TR250
*     INITIATE SKOVBOMETODE 
TR200 
 PERF TRPAGE TRANS SELECTED 
	SET	GTDIVTR	'DIVERSE TRANS'
	B	TR400
* 
*     INITIATE VIBORGMETODE 
TR250 
	CLEAR	GTDIVTR
	MOVE	TTSTYRDX,=W'1'	'HOVEDBOG' 
	B	TR400
	EJECT
*     READ
TR400 
	SET	SPPROMPT 
	MOVE	TTTROLD,=W'-1'	CLEAR OLD TRANS NO 
TR410 
	CLEAR	SPCHANGE	READY FOR FUNCTIONS 
	TBT	GTDIVTR,TR420
	MOVE	GTDBKRC,=C' ' 
	PERF	FMSTYR	ATTACH CONTROL INF 
	CLEAR	GTTRSEL
	B	TR430
TR420 
	PERF	FRMTSP	ATTACH FULL FORMAT 
TR430 
 TBT GTLOKSPG,TR435 
 MOVE SPKEY,CBIN1 
	PERF	SPCLRA	WRITE AND READ ON SCREEN 
 B TR500
TR435 
 MOVE SPKEY,CBIN3 
 PERF SPCLRN IF LOCAL INQUIRIES 
	EJECT
TR500 
	TBT	SPCHANGE,TR600 
*      FUNCTION CALL
	PERF	FUNCT 
	SET	GTSLUTFL 
*     BRANCH ON TYPE OF FUNCTION
	IB	SPBINW3,		C 
		TR510,TR520,TR530,TR540,TR550 
* 
TR510			NEW TYPE OF CONTROL INF 
	B	TR400
* 
TR520			ERROR TYPE
	PERF	SPERR 
	CBE	SPBINW2,=W'2',TR510	MAK KEY
	B	TR530	CORRECTION 
* 
TR530			FUNCTION WITHOUT INPUT
	CLEAR	SPPROMPT 
	PERF	SPCLRA	RESTAT INPUT 
	B	TR500
* 
TR540			FUNCTION WITH INPUT 
	B	TR400
* 
TR550			OUT OF REGISTRATION 
 SET SPME 
	RET
* 
	EJECT
TR600 
*     NOT FUNCTION CALL 
	PERF	TRINP 
	SET	GTSLUTFL 
*     BRANCH ON TYPE OF INPUT 
*     (MAK, ERROR, TRSEL, END 1 PG, END MORE PG,
*     TO NEXT PAGE) 
	IB	SPBINW3,		C 
		TR610,TR620,TR630,TR640,TR650,TR660 
* 
TR610			MAK TYPE
 TBF GTSPECTR,TR615 
 PERF PACKCL IF TR 50...
TR615 
	PERF	TRPAGE
	B	TR400
* 
TR620			INVALID KEY 
	PERF	SPERR 
	CBE	SPBINW2,=W'2',TR610	MAK
	CLEAR	SPPROMPT 
	PERF	SPCN
	B	TR500
* 
TR630			TRANSACTION SELECTED
	TBT	GTDIVTR,TR620	NOT ALLOWED
	PERF	TRPAGE
	CBNE	TTTROLD,GTREGDEX,TR635
	CLEAR	SPPROMPT	SAME AS PREVIOUS TRANS
	PERF	SPINF1
	PERF	FRMTSP
	PERF	SPCN
	B	TR500
TR635 
	CBL	TTTROLD,CBIN0,TR636
	ERASE	0,CBIN4,CBIN4
	ERASE	0,CBIN6,CBIN6
TR636 
	MOVE	TTTROLD,GTREGDEX	NOT AS PREVIOUS TRANS
	SET	SPPROMPT 
	PERF	FRMTSP
	PERF	SPCA
	B	TR500
* 
TR640			1 PAGE TRANS CORRECT
	TBT	GTDIVTR,TR645
	ERASE	10,SPLINTOP,SPLINLOW	ERASE VARIABLES IN
	MOVE	GTDBKRC,=C' ' 
			CURRENT FORMAT 
TR645 
	CLEAR	SPPROMPT 
	CLEAR	GTREGFLG 
	B	TR410
* 
TR650			>1 PAGE TRANS CORRECT 
	TBT	GTDIVTR,TR615
	MOVE	GTDBKRC,=C' ' 
	CLEAR	GTREGFLG 
	B	TR610
* 
TR660			TO NEXT PAGE
			NEXT PAGE ALREADY
			ATTACHED 
	MOVE	TTTROLD,CBIN0 
	SET	SPPROMPT 
	PERF	SPCLRA
	B	TR500
* 
* 
	PEND 
	EJECT
FUNCT	PROC
********************
* 
*             FUNCT - PROCEDURE FOR EXECUTING ALL FUNCTIONS ALLOWED.
*          INPUT: 
*               SPBINW2, GIVING KEY INDEX, COMMING FROM 
*                        SCREEN PACKAGE 
*          OUTPUT:
*               SPBINW3, GIVING THE TYPE OF FUNCTION
*                   1     MAK OR NEW CONTROL INFORMATION
*                   2     INVALID KEY 
*                   3     FUNCTION WITHOUT INPUT
*                   4     FUNCTION WITH INPUT 
*                   5     REG KEY, OUT OF REGISTRATION
* 
********************
* 
	IB	SPBINW2,		C 
		FU01,FU02,FU03,FU04,FU05,FU06,FU07,FU08,FU09,FU10,		C 
		FU11,FU12,FU13,FU14,FU15,FU16,FU17,FU18,FU19,FU20,		C 
		FU21,FU22 
 B FU01 
* 
* 
FU01
FU02
 CLEAR GTLOKSPG 
			MAK
	MOVE	SPBINW3,CBIN1 
	RET
* 
FU03			ENTER
 TBT GTLOKSPG,FU08
 TEST GTDIVTR 
 BZ FUNOK 
 PERF SETDEB
 PERF BELL
 PERF SPINF1
 MOVE SPBINW3,CBIN3 DEBET 
	RET
* 
FU04			KREDIT KEY 
 TEST GTDIVTR 
 BZ FUNOK 
 CBG GTREGNR,=D'49',FUNOK	NOT IN TR 50... 
 PERF SETKRE
 PERF BELL
 PERF SPINF1
 MOVE SPBINW3,CBIN3 KREDIT
	RET
* 
FU05			REG KEY

 TBT TSPOOL,FUNOK 
 TBT GTCYFLG,FUNOK

	MOVE	SPBINW3,CBIN5	OUT OF REGISTRATION 
	RET
* 
FU06			LISTE
	PERF	LSTINT
	BNOK	FUNOK 
	B	FUOK 
* 
FU07			SUBTOTAL 
	PERF	SUBTOT
	BNOK	FUNOK 
	B	FUOK 
* 
FU08			SPG FUNCTION 
 PERF ADM,CBIN11
	MOVE	SPBINW3,CBIN1 
	RET
* 
FU09			CYCLE
 PERF CYK,CBIN1 
	BNOK	FUNOK 
	MOVE	SPBINW3,CBIN4 
	RET
* 
FU10			STABEL 
 PERF CYK,CBIN2 
	BNOK	FUNOK 
	MOVE	SPBINW3,CBIN4 
	RET
* 
FU11			INVKEY, MODP 
	PERF	MODP
 BNOK FUNOK 
 CBE GTRETUR,=W'3',FU1110 
	B	FUOK 
FU1110
 MOVE SPBINW3,CBIN4 
 RET
* 
FU12			KONTOKORT
	PERF	KORT
	BNOK	FUNOK 
	MOVE	SPBINW3,CBIN4 
	RET
* 
FU13			KVIT 
	PERF	KVIT
	BNOK	FUNOK 
	B	FUOK 
* 
FU14			SUPL 
 PERF ADM,CBIN10
	BNOK	FUNOK 
	B	FUOK 
* 
FU15			SUM
	PERF	SUM 
	BNOK	FUNOK 
	B	FUOK 
* 
FU16			ADM KEY
	MOVE	GSWBCD3,SPINPUT	GET ADM TYPE
	MOVE	GSWBIN1,GSWBCD3 
 PERF ADM,GSWBIN1 
 MOVE SPBINW3,CBIN4 
 RET
* 
FU17			CYCLE KEY
	MOVE	GSWBCD3,SPINPUT	GET TYPE OF CYCLE 
	MOVE	GSWBIN1,GSWBCD3 
	IB	GSWBIN1,		C 
		FU09,FU10,FUNOK,FCYK4,FUNOK,	CYCLE,STABEL	C 
		FUNOK,FUNOK,FUNOK,FCYK9 
	PERF	CYK,CBIN10	END OF CYCLE/STABEL
	BNOK	FUNOK 
	B	FUOK 
* 
FCYK4			PAUSE IN CYCLE STABEL 
 PERF CYK,CBIN4 
 BNOK FUNOK 
 B FUOK 
* 
FCYK9 
	PERF	CYK,CBIN9	CLEAR ARKIV KNT. NR 
	BNOK	FUNOK 
	B	FUOK 
* 
FU18			DIV TRANS
	PERF	DIVTR 
	BNOK	FUNOK 
	MOVE	SPBINW3,CBIN1 
	RET
* 
FU19			HOVEDBOG 
	TBT	GTDIVTR,FUNOK
	MOVE	TTSTYRDX,=W'1'
	MOVE	SPBINW3,CBIN1 
	RET
* 
FU20			DEBITOR POSTERING
	TBT	GTDIVTR,FUNOK
	MOVE	TTSTYRDX,=W'2'
	MOVE	SPBINW3,CBIN1 
	RET
* 
FU21			REMITTERING
	TBT	GTDIVTR,FUNOK
	MOVE	TTSTYRDX,=W'3'
	MOVE	SPBINW3,CBIN1 
	RET
* 
FU22			TRANS SELECTION IN DIVTR 
	TBF	GTDIVTR,FUNOK
	PERF	TRPAGE
	MOVE	SPBINW3,CBIN1 
	RET
* 
* 
FUNOK 
	MOVE	SPBINW4,=W'16'	INVALID KEY
	MOVE	SPBINW3,CBIN2 
	RET
* 
FUOK
	MOVE	SPBINW3,CBIN3 
	RET
* 
* 
	PEND 
	EJECT
TRINP	PROC
********************
* 
*            TRINP - PROCEDURE FOR HANDLING INFORMATION GIVEN OVER
*          FROM THE SCREEN PACKAGE. 
*          WILL BE CALLED WHEN SOMETHING HAS BEEN ENTERED 
*          WHICH THE SCREEN PACKAGE CAN NOT TAKE CARE OF
*          ITSELF.
*          SPCHANGE WILL BE SET.
*          INPUT: 
*               SPBINW2: INDEX FOR THE KEY DEPRESSED
*          OUTPUT:
*               SPBINW3: GIVING THE TYPE OF INPUT 
*               1   MAK TYPE
*               2   INVALID KEY 
*               3   TRANSACTION SELECTED
*               4   1 PAGE TRANS CORRECT
*               5   >1 PAGE TRANS CORRECT 
*               6   NEXT PAGE OF TRANS ALREADY ATTACHED 
* 
********************
* 
	IB	SPBINW2,		C 
		IN01,IN02,IN03
	CBE	SPBINW2,=W'22',IN22
IN00
	MOVE	SPBINW3,CBIN2	INVALID KEY 
	RET
* 
IN01
IN02			MAK
	MOVE	SPBINW3,CBIN1 
	RET
* 
IN03			AFTER SLUT,
	TBT	GTTRSEL,IN030
	CBE	SPBINW1,=W'0',IN00	NOT ALLOWED 
IN030 
	PERF	ENTER 
	BNOK	IN035	ERRORS DETECTED IN FLDTST 
	IB	GTRETUR,		C 
		IN031,IN032,IN033 
IN031 
	MOVE	SPBINW3,CBIN4 
	RET
IN032 
	MOVE	SPBINW3,CBIN6 
	RET
IN033 
	MOVE	SPBINW3,CBIN5 
	RET
IN035 
	TBWD		TAB OVER LAST FIELD
	MOVE	SPBINW3,CBIN2 
	RET
* 
IN22
			TRANS SELECTED 
	MOVE	SPBINW3,CBIN3 
	RET
* 
	PEND 
	EJECT
TRPAGE	PROC 
********************
* 
*              TRPAGE - AFTER SELECTION OF TRANSTYPE, SET CORRECT 
*          INFORMATION ABOUT THE SIZE AND TYPE OF 
*          THE TRANSACTION
* 
********************
* 
	SET	GTTRSEL	TRANSACTION SELECTED 
	CLEAR	GTTYPE2
	CLEAR	GTTYPE3
	MOVE	GTPAGE,CBIN1
*          TRANSTYPE  01, 02, 03, 04, 05, 06, 07, 08, 09, 10, 
*                     12, 40, 41, 42, 45, 46, 47, 48, 49, 50, 
*                     51, 52, 53, 54
	IB	GTREGDEX,		C
		PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG02,PG02,PG01,		C 
		PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,		C 
		PG02,PG01,PG02,PG01 
* 
PG01
	RET
* 
PG02
	SET	GTTYPE2
	RET
* 
PG03
	SET	GTTYPE3
	RET
* 
	PEND 
* 
* 
* 
	END

HexDump

0x0000…0020 (0, 0, 398)  Head {h00=0x001c, h01=0x0050, text=» IDENT RGMAIN  840124 EV«, 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 INITRG «, t00=0x0000, t01=0x0046}
0x0058…006c              Head {h00=0x0010, h01=0x0050, text=» ENTRY FUNCT«, t00=0x0000, t01=0x005c}
0x006c…0080              Head {h00=0x0010, h01=0x0050, text=» ENTRY TRINP«, t00=0x0000, t01=0x0070}
0x0080…0096              Head {h00=0x0012, h01=0x0050, text=» ENTRY TRPAGE «, t00=0x0000, t01=0x0084}
0x0096…00a8              Head {h00=0x000e, h01=0x0050, text=» EXT BELL «, t00=0x0000, t01=0x009a}
0x00a8…00bc              Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0000, t01=0x00ac}
0x00bc…00d0              Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0000, t01=0x00c0}
0x00d0…00e4              Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0000, t01=0x00d4}
0x00e4…00f8              Head {h00=0x0010, h01=0x0050, text=» EXT FMSTYR «, t00=0x0000, t01=0x00e8}
0x00f8…010c              Head {h00=0x0010, h01=0x0050, text=» EXT FRMTSP «, t00=0x0000, t01=0x00fc}
0x010c…0120              Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x0110}
0x0120…0132              Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x0124}
0x0132…0144              Head {h00=0x000e, h01=0x0050, text=» EXT SPCA «, t00=0x0000, t01=0x0136}
0x0144…0156              Head {h00=0x000e, h01=0x0050, text=» EXT SPCN «, t00=0x0000, t01=0x0148}
0x0156…016a              Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0000, t01=0x015a}
0x016a…017e              Head {h00=0x0010, h01=0x0050, text=» EXT SPINF1 «, t00=0x0000, t01=0x016e}
0x017e…0192              Head {h00=0x0010, h01=0x0050, text=» EXT LSTINT «, t00=0x0000, t01=0x0182}
0x0192…01a6              Head {h00=0x0010, h01=0x0050, text=» EXT SUBTOT «, t00=0x0001, t01=0x0008}
0x01a6…01b6              Head {h00=0x000c, h01=0x0050, text=» EXT CYK«, t00=0x0001, t01=0x001c}
0x01b6…01c8              Head {h00=0x000e, h01=0x0050, text=» EXT MODP «, t00=0x0001, t01=0x002c}
0x01c8…01da              Head {h00=0x000e, h01=0x0050, text=» EXT KORT «, t00=0x0001, t01=0x003e}
0x01da…01ec              Head {h00=0x000e, h01=0x0050, text=» EXT KVIT «, t00=0x0001, t01=0x0050}
0x01ec…01fc              Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0001, t01=0x0062}
0x01fc…020c              Head {h00=0x000c, h01=0x0050, text=» EXT SUM«, t00=0x0001, t01=0x0072}
0x020c…021e              Head {h00=0x000e, h01=0x0050, text=» EXT DIVTR«, t00=0x0001, t01=0x0082}
0x021e…0230              Head {h00=0x000e, h01=0x0050, text=» EXT ENTER«, t00=0x0001, t01=0x0094}
0x0230…0248              Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x00a6}
0x0248…0256              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00be}
0x0256…026a              Head {h00=0x0010, h01=0x0050, text=»INITRG PROC «, t00=0x0001, t01=0x00cc}
0x026a…0286              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x00e0}
0x0286…0290              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fc}
0x0290…02dc              Head {h00=0x0048, h01=0x0050, text=»*           INITRG - THIS PROCEDURE TAKES CARE OF ALL REGISTRATIONS,«, t00=0x0001, t01=0x0106}
0x02dc…0314              Head {h00=0x0034, h01=0x0050, text=»*         FROM 'KASSEAABNING' TO 'KASSELUKNING'.«, t00=0x0001, t01=0x0152}
0x0314…034e              Head {h00=0x0036, h01=0x0050, text=»*         ONLY KASSEFUNCTIONS, FROM OPEN TO CLOSE.«, t00=0x0001, t01=0x018a}
0x034e…0380              Head {h00=0x002e, h01=0x0050, text=»*         TWO DIFFERENT METHODS ARE USED, «, t00=0x0002, t01=0x0034}
0x0380…03b2              Head {h00=0x002e, h01=0x0050, text=»*         DETERMINED BY THE FLAG CTRVALG: «, t00=0x0002, t01=0x0066}
0x03b2…03e6              Head {h00=0x0030, h01=0x0050, text=»*              CTRVALG TRUE : 'SKOVBOMETODE'«, t00=0x0002, t01=0x0098}
0x03e6…041a              Head {h00=0x0030, h01=0x0050, text=»*              CTRVALG FALSE: 'VIBORGMETODE'«, t00=0x0002, t01=0x00cc}
0x041a…0424              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0100}
0x0424…0440              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x010a}
0x0440…044a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0126}
0x044a…046a              Head {h00=0x001c, h01=0x0050, text=»*     GENERAL INITIATION«, t00=0x0002, t01=0x0130}
0x046a…049a              Head {h00=0x002c, h01=0x0050, text=» MOVE SPLINTOP,=W'1' FIRST LINE, SCREEN «, t00=0x0002, t01=0x0150}
0x049a…04c8              Head {h00=0x002a, h01=0x0050, text=» MOVE SPLINLOW,=W'0' LAST LINE, SCREEN«, t00=0x0002, t01=0x0180}
0x04c8…04f4              Head {h00=0x0028, h01=0x0050, text=» MOVE SPKEY,CBIN1 USE KEY POSITION 1«, t00=0x0003, t01=0x001e}
0x04f4…0516              Head {h00=0x001e, h01=0x0050, text=» SET GTREGFLG FIRST TRANS «, t00=0x0003, t01=0x004a}
0x0516…052a              Head {h00=0x0010, h01=0x0050, text=» CLEAR SPME «, t00=0x0003, t01=0x006c}
0x052a…055a              Head {h00=0x002c, h01=0x0050, text=» MOVE GTREGNR,=D'1' INITIAL TRANSTYPE 1 «, t00=0x0003, t01=0x0080}
0x055a…0576              Head {h00=0x0018, h01=0x0050, text=» MOVE GTREGDEX,CBIN1«, t00=0x0003, t01=0x00b0}
0x0576…0592              Head {h00=0x0018, h01=0x0050, text=» PERF SETKRE KREDIT «, t00=0x0003, t01=0x00cc}
0x0592…05b8              Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL CLEAR PACKBUFFER «, t00=0x0003, t01=0x00e8}
0x05b8…05c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010e}
0x05c2…05dc              Head {h00=0x0016, h01=0x0050, text=» TBF CTRVALG,TR250«, t00=0x0003, t01=0x0118}
0x05dc…0600              Head {h00=0x0020, h01=0x0050, text=»*     INITIATE SKOVBOMETODE «, t00=0x0003, t01=0x0132}
0x0600…060e              Head {h00=0x000a, h01=0x0050, text=»TR200 «, t00=0x0003, t01=0x0156}
0x060e…0632              Head {h00=0x0020, h01=0x0050, text=» PERF TRPAGE TRANS SELECTED «, t00=0x0003, t01=0x0164}
0x0632…0656              Head {h00=0x0020, h01=0x0050, text=» SET GTDIVTR 'DIVERSE TRANS'«, t00=0x0003, t01=0x0188}
0x0656…0666              Head {h00=0x000c, h01=0x0050, text=» B TR400«, t00=0x0004, t01=0x001c}
0x0666…0670              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002c}
0x0670…0694              Head {h00=0x0020, h01=0x0050, text=»*     INITIATE VIBORGMETODE «, t00=0x0004, t01=0x0036}
0x0694…06a2              Head {h00=0x000a, h01=0x0050, text=»TR250 «, t00=0x0004, t01=0x005a}
0x06a2…06b8              Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDIVTR«, t00=0x0004, t01=0x0068}
0x06b8…06e0              Head {h00=0x0024, h01=0x0050, text=» MOVE TTSTYRDX,=W'1' 'HOVEDBOG' «, t00=0x0004, t01=0x007e}
0x06e0…06f0              Head {h00=0x000c, h01=0x0050, text=» B TR400«, t00=0x0004, t01=0x00a6}
0x06f0…06fe              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00b6}
0x06fe…0710              Head {h00=0x000e, h01=0x0050, text=»*     READ«, t00=0x0004, t01=0x00c4}
0x0710…071e              Head {h00=0x000a, h01=0x0050, text=»TR400 «, t00=0x0004, t01=0x00d6}
0x071e…0734              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x00e4}
0x0734…0764              Head {h00=0x002c, h01=0x0050, text=» MOVE TTTROLD,=W'-1' CLEAR OLD TRANS NO «, t00=0x0004, t01=0x00fa}
0x0764…0772              Head {h00=0x000a, h01=0x0050, text=»TR410 «, t00=0x0004, t01=0x012a}
0x0772…079e              Head {h00=0x0028, h01=0x0050, text=» CLEAR SPCHANGE READY FOR FUNCTIONS «, t00=0x0004, t01=0x0138}
0x079e…07b8              Head {h00=0x0016, h01=0x0050, text=» TBT GTDIVTR,TR420«, t00=0x0004, t01=0x0164}
0x07b8…07d4              Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRC,=C' ' «, t00=0x0004, t01=0x017e}
0x07d4…07fc              Head {h00=0x0024, h01=0x0050, text=» PERF FMSTYR ATTACH CONTROL INF «, t00=0x0005, t01=0x000a}
0x07fc…0812              Head {h00=0x0012, h01=0x0050, text=» CLEAR GTTRSEL«, t00=0x0005, t01=0x0032}
0x0812…0822              Head {h00=0x000c, h01=0x0050, text=» B TR430«, t00=0x0005, t01=0x0048}
0x0822…0830              Head {h00=0x000a, h01=0x0050, text=»TR420 «, t00=0x0005, t01=0x0058}
0x0830…0858              Head {h00=0x0024, h01=0x0050, text=» PERF FRMTSP ATTACH FULL FORMAT «, t00=0x0005, t01=0x0066}
0x0858…0866              Head {h00=0x000a, h01=0x0050, text=»TR430 «, t00=0x0005, t01=0x008e}
0x0866…0882              Head {h00=0x0018, h01=0x0050, text=» TBT GTLOKSPG,TR435 «, t00=0x0005, t01=0x009c}
0x0882…089c              Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0005, t01=0x00b8}
0x089c…08ca              Head {h00=0x002a, h01=0x0050, text=» PERF SPCLRA WRITE AND READ ON SCREEN «, t00=0x0005, t01=0x00d2}
0x08ca…08da              Head {h00=0x000c, h01=0x0050, text=» B TR500«, t00=0x0005, t01=0x0100}
0x08da…08e8              Head {h00=0x000a, h01=0x0050, text=»TR435 «, t00=0x0005, t01=0x0110}
0x08e8…0902              Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN3 «, t00=0x0005, t01=0x011e}
0x0902…092a              Head {h00=0x0024, h01=0x0050, text=» PERF SPCLRN IF LOCAL INQUIRIES «, t00=0x0005, t01=0x0138}
0x092a…0938              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0160}
0x0938…0946              Head {h00=0x000a, h01=0x0050, text=»TR500 «, t00=0x0005, t01=0x016e}
0x0946…0962              Head {h00=0x0018, h01=0x0050, text=» TBT SPCHANGE,TR600 «, t00=0x0005, t01=0x017c}
0x0962…097e              Head {h00=0x0018, h01=0x0050, text=»*      FUNCTION CALL«, t00=0x0006, t01=0x0008}
0x097e…0992              Head {h00=0x0010, h01=0x0050, text=» PERF FUNCT «, t00=0x0006, t01=0x0024}
0x0992…09a8              Head {h00=0x0012, h01=0x0050, text=» SET GTSLUTFL «, t00=0x0006, t01=0x0038}
0x09a8…09d0              Head {h00=0x0024, h01=0x0050, text=»*     BRANCH ON TYPE OF FUNCTION«, t00=0x0006, t01=0x004e}
0x09d0…09e8              Head {h00=0x0014, h01=0x0050, text=» IB SPBINW3,  C «, t00=0x0006, t01=0x0076}
0x09e8…0a10              Head {h00=0x0024, h01=0x0050, text=»  TR510,TR520,TR530,TR540,TR550 «, t00=0x0006, t01=0x008e}
0x0a10…0a1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b6}
0x0a1a…0a42              Head {h00=0x0024, h01=0x0050, text=»TR510   NEW TYPE OF CONTROL INF «, t00=0x0006, t01=0x00c0}
0x0a42…0a52              Head {h00=0x000c, h01=0x0050, text=» B TR400«, t00=0x0006, t01=0x00e8}
0x0a52…0a5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f8}
0x0a5c…0a76              Head {h00=0x0016, h01=0x0050, text=»TR520   ERROR TYPE«, t00=0x0006, t01=0x0102}
0x0a76…0a8a              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0006, t01=0x011c}
0x0a8a…0ab2              Head {h00=0x0024, h01=0x0050, text=» CBE SPBINW2,=W'2',TR510 MAK KEY«, t00=0x0006, t01=0x0130}
0x0ab2…0ace              Head {h00=0x0018, h01=0x0050, text=» B TR530 CORRECTION «, t00=0x0006, t01=0x0158}
0x0ace…0ad8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0174}
0x0ad8…0afe              Head {h00=0x0022, h01=0x0050, text=»TR530   FUNCTION WITHOUT INPUT«, t00=0x0006, t01=0x017e}
0x0afe…0b16              Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0007, t01=0x0014}
0x0b16…0b38              Head {h00=0x001e, h01=0x0050, text=» PERF SPCLRA RESTAT INPUT «, t00=0x0007, t01=0x002c}
0x0b38…0b48              Head {h00=0x000c, h01=0x0050, text=» B TR500«, t00=0x0007, t01=0x004e}
0x0b48…0b52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005e}
0x0b52…0b76              Head {h00=0x0020, h01=0x0050, text=»TR540   FUNCTION WITH INPUT «, t00=0x0007, t01=0x0068}
0x0b76…0b86              Head {h00=0x000c, h01=0x0050, text=» B TR400«, t00=0x0007, t01=0x008c}
0x0b86…0b90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009c}
0x0b90…0bb4              Head {h00=0x0020, h01=0x0050, text=»TR550   OUT OF REGISTRATION «, t00=0x0007, t01=0x00a6}
0x0bb4…0bc6              Head {h00=0x000e, h01=0x0050, text=» SET SPME «, t00=0x0007, t01=0x00ca}
0x0bc6…0bd2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00dc}
0x0bd2…0bdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e8}
0x0bdc…0bea              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00f2}
0x0bea…0bf8              Head {h00=0x000a, h01=0x0050, text=»TR600 «, t00=0x0007, t01=0x0100}
0x0bf8…0c18              Head {h00=0x001c, h01=0x0050, text=»*     NOT FUNCTION CALL «, t00=0x0007, t01=0x010e}
0x0c18…0c2c              Head {h00=0x0010, h01=0x0050, text=» PERF TRINP «, t00=0x0007, t01=0x012e}
0x0c2c…0c42              Head {h00=0x0012, h01=0x0050, text=» SET GTSLUTFL «, t00=0x0007, t01=0x0142}
0x0c42…0c68              Head {h00=0x0022, h01=0x0050, text=»*     BRANCH ON TYPE OF INPUT «, t00=0x0007, t01=0x0158}
0x0c68…0ca0              Head {h00=0x0034, h01=0x0050, text=»*     (MAK, ERROR, TRSEL, END 1 PG, END MORE PG,«, t00=0x0007, t01=0x017e}
0x0ca0…0cbc              Head {h00=0x0018, h01=0x0050, text=»*     TO NEXT PAGE) «, t00=0x0008, t01=0x0026}
0x0cbc…0cd4              Head {h00=0x0014, h01=0x0050, text=» IB SPBINW3,  C «, t00=0x0008, t01=0x0042}
0x0cd4…0d02              Head {h00=0x002a, h01=0x0050, text=»  TR610,TR620,TR630,TR640,TR650,TR660 «, t00=0x0008, t01=0x005a}
0x0d02…0d0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0088}
0x0d0c…0d24              Head {h00=0x0014, h01=0x0050, text=»TR610   MAK TYPE«, t00=0x0008, t01=0x0092}
0x0d24…0d40              Head {h00=0x0018, h01=0x0050, text=» TBF GTSPECTR,TR615 «, t00=0x0008, t01=0x00aa}
0x0d40…0d60              Head {h00=0x001c, h01=0x0050, text=» PERF PACKCL IF TR 50...«, t00=0x0008, t01=0x00c6}
0x0d60…0d6e              Head {h00=0x000a, h01=0x0050, text=»TR615 «, t00=0x0008, t01=0x00e6}
0x0d6e…0d82              Head {h00=0x0010, h01=0x0050, text=» PERF TRPAGE«, t00=0x0008, t01=0x00f4}
0x0d82…0d92              Head {h00=0x000c, h01=0x0050, text=» B TR400«, t00=0x0008, t01=0x0108}
0x0d92…0d9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0118}
0x0d9c…0db8              Head {h00=0x0018, h01=0x0050, text=»TR620   INVALID KEY «, t00=0x0008, t01=0x0122}
0x0db8…0dcc              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0008, t01=0x013e}
0x0dcc…0df0              Head {h00=0x0020, h01=0x0050, text=» CBE SPBINW2,=W'2',TR610 MAK«, t00=0x0008, t01=0x0152}
0x0df0…0e08              Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0008, t01=0x0176}
0x0e08…0e1a              Head {h00=0x000e, h01=0x0050, text=» PERF SPCN«, t00=0x0008, t01=0x018e}
0x0e1a…0e2a              Head {h00=0x000c, h01=0x0050, text=» B TR500«, t00=0x0009, t01=0x0010}
0x0e2a…0e34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0020}
0x0e34…0e58              Head {h00=0x0020, h01=0x0050, text=»TR630   TRANSACTION SELECTED«, t00=0x0009, t01=0x002a}
0x0e58…0e7e              Head {h00=0x0022, h01=0x0050, text=» TBT GTDIVTR,TR620 NOT ALLOWED«, t00=0x0009, t01=0x004e}
0x0e7e…0e92              Head {h00=0x0010, h01=0x0050, text=» PERF TRPAGE«, t00=0x0009, t01=0x0074}
0x0e92…0eb6              Head {h00=0x0020, h01=0x0050, text=» CBNE TTTROLD,GTREGDEX,TR635«, t00=0x0009, t01=0x0088}
0x0eb6…0ee4              Head {h00=0x002a, h01=0x0050, text=» CLEAR SPPROMPT SAME AS PREVIOUS TRANS«, t00=0x0009, t01=0x00ac}
0x0ee4…0ef8              Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0009, t01=0x00da}
0x0ef8…0f0c              Head {h00=0x0010, h01=0x0050, text=» PERF FRMTSP«, t00=0x0009, t01=0x00ee}
0x0f0c…0f1e              Head {h00=0x000e, h01=0x0050, text=» PERF SPCN«, t00=0x0009, t01=0x0102}
0x0f1e…0f2e              Head {h00=0x000c, h01=0x0050, text=» B TR500«, t00=0x0009, t01=0x0114}
0x0f2e…0f3c              Head {h00=0x000a, h01=0x0050, text=»TR635 «, t00=0x0009, t01=0x0124}
0x0f3c…0f5c              Head {h00=0x001c, h01=0x0050, text=» CBL TTTROLD,CBIN0,TR636«, t00=0x0009, t01=0x0132}
0x0f5c…0f78              Head {h00=0x0018, h01=0x0050, text=» ERASE 0,CBIN4,CBIN4«, t00=0x0009, t01=0x0152}
0x0f78…0f94              Head {h00=0x0018, h01=0x0050, text=» ERASE 0,CBIN6,CBIN6«, t00=0x0009, t01=0x016e}
0x0f94…0fa2              Head {h00=0x000a, h01=0x0050, text=»TR636 «, t00=0x0009, t01=0x018a}
0x0fa2…0fd6              Head {h00=0x0030, h01=0x0050, text=» MOVE TTTROLD,GTREGDEX NOT AS PREVIOUS TRANS«, t00=0x000a, t01=0x0008}
0x0fd6…0fec              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x000a, t01=0x003c}
0x0fec…1000              Head {h00=0x0010, h01=0x0050, text=» PERF FRMTSP«, t00=0x000a, t01=0x0052}
0x1000…1012              Head {h00=0x000e, h01=0x0050, text=» PERF SPCA«, t00=0x000a, t01=0x0066}
0x1012…1022              Head {h00=0x000c, h01=0x0050, text=» B TR500«, t00=0x000a, t01=0x0078}
0x1022…102c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0088}
0x102c…1050              Head {h00=0x0020, h01=0x0050, text=»TR640   1 PAGE TRANS CORRECT«, t00=0x000a, t01=0x0092}
0x1050…106a              Head {h00=0x0016, h01=0x0050, text=» TBT GTDIVTR,TR645«, t00=0x000a, t01=0x00b6}
0x106a…10a0              Head {h00=0x0032, h01=0x0050, text=» ERASE 10,SPLINTOP,SPLINLOW ERASE VARIABLES IN«, t00=0x000a, t01=0x00d0}
0x10a0…10bc              Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRC,=C' ' «, t00=0x000a, t01=0x0106}
0x10bc…10d6              Head {h00=0x0016, h01=0x0050, text=»   CURRENT FORMAT «, t00=0x000a, t01=0x0122}
0x10d6…10e4              Head {h00=0x000a, h01=0x0050, text=»TR645 «, t00=0x000a, t01=0x013c}
0x10e4…10fc              Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x000a, t01=0x014a}
0x10fc…1114              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTREGFLG «, t00=0x000a, t01=0x0162}
0x1114…1124              Head {h00=0x000c, h01=0x0050, text=» B TR410«, t00=0x000a, t01=0x017a}
0x1124…112e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018a}
0x112e…1154 (11, 0, 398) Head {h00=0x0022, h01=0x0050, text=»TR650   >1 PAGE TRANS CORRECT «, t00=0x000b, t01=0x0004}
0x1154…116e              Head {h00=0x0016, h01=0x0050, text=» TBT GTDIVTR,TR615«, t00=0x000b, t01=0x002a}
0x116e…118a              Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRC,=C' ' «, t00=0x000b, t01=0x0044}
0x118a…11a2              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTREGFLG «, t00=0x000b, t01=0x0060}
0x11a2…11b2              Head {h00=0x000c, h01=0x0050, text=» B TR610«, t00=0x000b, t01=0x0078}
0x11b2…11bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0088}
0x11bc…11d8              Head {h00=0x0018, h01=0x0050, text=»TR660   TO NEXT PAGE«, t00=0x000b, t01=0x0092}
0x11d8…11f4              Head {h00=0x0018, h01=0x0050, text=»   NEXT PAGE ALREADY«, t00=0x000b, t01=0x00ae}
0x11f4…1208              Head {h00=0x0010, h01=0x0050, text=»   ATTACHED «, t00=0x000b, t01=0x00ca}
0x1208…1224              Head {h00=0x0018, h01=0x0050, text=» MOVE TTTROLD,CBIN0 «, t00=0x000b, t01=0x00de}
0x1224…123a              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x000b, t01=0x00fa}
0x123a…124e              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x000b, t01=0x0110}
0x124e…125e              Head {h00=0x000c, h01=0x0050, text=» B TR500«, t00=0x000b, t01=0x0124}
0x125e…1268              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0134}
0x1268…1272              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x013e}
0x1272…1280              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0148}
0x1280…128e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0156}
0x128e…12a0              Head {h00=0x000e, h01=0x0050, text=»FUNCT PROC«, t00=0x000b, t01=0x0164}
0x12a0…12bc              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x0176}
0x12bc…12c6 (12, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0004}
0x12c6…1312              Head {h00=0x0048, h01=0x0050, text=»*             FUNCT - PROCEDURE FOR EXECUTING ALL FUNCTIONS ALLOWED.«, t00=0x000c, t01=0x000e}
0x1312…132c              Head {h00=0x0016, h01=0x0050, text=»*          INPUT: «, t00=0x000c, t01=0x005a}
0x132c…136c              Head {h00=0x003c, h01=0x0050, text=»*               SPBINW2, GIVING KEY INDEX, COMMING FROM «, t00=0x000c, t01=0x0074}
0x136c…139c              Head {h00=0x002c, h01=0x0050, text=»*                        SCREEN PACKAGE «, t00=0x000c, t01=0x00b4}
0x139c…13b6              Head {h00=0x0016, h01=0x0050, text=»*          OUTPUT:«, t00=0x000c, t01=0x00e4}
0x13b6…13f2              Head {h00=0x0038, h01=0x0050, text=»*               SPBINW3, GIVING THE TYPE OF FUNCTION«, t00=0x000c, t01=0x00fe}
0x13f2…1432              Head {h00=0x003c, h01=0x0050, text=»*                   1     MAK OR NEW CONTROL INFORMATION«, t00=0x000c, t01=0x013a}
0x1432…1460              Head {h00=0x002a, h01=0x0050, text=»*                   2     INVALID KEY «, t00=0x000c, t01=0x017a}
0x1460…1498              Head {h00=0x0034, h01=0x0050, text=»*                   3     FUNCTION WITHOUT INPUT«, t00=0x000d, t01=0x0018}
0x1498…14ce              Head {h00=0x0032, h01=0x0050, text=»*                   4     FUNCTION WITH INPUT «, t00=0x000d, t01=0x0050}
0x14ce…150c              Head {h00=0x003a, h01=0x0050, text=»*                   5     REG KEY, OUT OF REGISTRATION«, t00=0x000d, t01=0x0086}
0x150c…1516              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c4}
0x1516…1532              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x00ce}
0x1532…153c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ea}
0x153c…1554              Head {h00=0x0014, h01=0x0050, text=» IB SPBINW2,  C «, t00=0x000d, t01=0x00f4}
0x1554…1594              Head {h00=0x003c, h01=0x0050, text=»  FU01,FU02,FU03,FU04,FU05,FU06,FU07,FU08,FU09,FU10,  C «, t00=0x000d, t01=0x010c}
0x1594…15d4              Head {h00=0x003c, h01=0x0050, text=»  FU11,FU12,FU13,FU14,FU15,FU16,FU17,FU18,FU19,FU20,  C «, t00=0x000d, t01=0x014c}
0x15d4…15e8              Head {h00=0x0010, h01=0x0050, text=»  FU21,FU22 «, t00=0x000d, t01=0x018c}
0x15e8…15f8              Head {h00=0x000c, h01=0x0050, text=» B FU01 «, t00=0x000e, t01=0x0010}
0x15f8…1602              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0020}
0x1602…160c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002a}
0x160c…1618              Head {h00=0x0008, h01=0x0050, text=»FU01«, t00=0x000e, t01=0x0034}
0x1618…1624              Head {h00=0x0008, h01=0x0050, text=»FU02«, t00=0x000e, t01=0x0040}
0x1624…163c              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x000e, t01=0x004c}
0x163c…164a              Head {h00=0x000a, h01=0x0050, text=»   MAK«, t00=0x000e, t01=0x0064}
0x164a…1666              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000e, t01=0x0072}
0x1666…1672              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x008e}
0x1672…167c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009a}
0x167c…1690              Head {h00=0x0010, h01=0x0050, text=»FU03   ENTER«, t00=0x000e, t01=0x00a4}
0x1690…16aa              Head {h00=0x0016, h01=0x0050, text=» TBT GTLOKSPG,FU08«, t00=0x000e, t01=0x00b8}
0x16aa…16c0              Head {h00=0x0012, h01=0x0050, text=» TEST GTDIVTR «, t00=0x000e, t01=0x00d2}
0x16c0…16d2              Head {h00=0x000e, h01=0x0050, text=» BZ FUNOK «, t00=0x000e, t01=0x00e8}
0x16d2…16e6              Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x000e, t01=0x00fa}
0x16e6…16f8              Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x000e, t01=0x010e}
0x16f8…170c              Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x000e, t01=0x0120}
0x170c…172e              Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW3,CBIN3 DEBET «, t00=0x000e, t01=0x0134}
0x172e…173a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x0156}
0x173a…1744              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0162}
0x1744…175e              Head {h00=0x0016, h01=0x0050, text=»FU04   KREDIT KEY «, t00=0x000e, t01=0x016c}
0x175e…1774              Head {h00=0x0012, h01=0x0050, text=» TEST GTDIVTR «, t00=0x000e, t01=0x0186}
0x1774…1786              Head {h00=0x000e, h01=0x0050, text=» BZ FUNOK «, t00=0x000f, t01=0x000c}
0x1786…17b8              Head {h00=0x002e, h01=0x0050, text=» CBG GTREGNR,=D'49',FUNOK NOT IN TR 50... «, t00=0x000f, t01=0x001e}
0x17b8…17cc              Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x000f, t01=0x0050}
0x17cc…17de              Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x000f, t01=0x0064}
0x17de…17f2              Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x000f, t01=0x0076}
0x17f2…1814              Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW3,CBIN3 KREDIT«, t00=0x000f, t01=0x008a}
0x1814…1820              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x00ac}
0x1820…182a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b8}
0x182a…1840              Head {h00=0x0012, h01=0x0050, text=»FU05   REG KEY«, t00=0x000f, t01=0x00c2}
0x1840…1848              Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00d8}
0x1848…1862              Head {h00=0x0016, h01=0x0050, text=» TBT TSPOOL,FUNOK «, t00=0x000f, t01=0x00e0}
0x1862…187c              Head {h00=0x0016, h01=0x0050, text=» TBT GTCYFLG,FUNOK«, t00=0x000f, t01=0x00fa}
0x187c…1884              Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0114}
0x1884…18b4              Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW3,CBIN5 OUT OF REGISTRATION «, t00=0x000f, t01=0x011c}
0x18b4…18c0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x014c}
0x18c0…18ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0158}
0x18ca…18de              Head {h00=0x0010, h01=0x0050, text=»FU06   LISTE«, t00=0x000f, t01=0x0162}
0x18de…18f2              Head {h00=0x0010, h01=0x0050, text=» PERF LSTINT«, t00=0x000f, t01=0x0176}
0x18f2…1906              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x000f, t01=0x018a}
0x1906…1916              Head {h00=0x000c, h01=0x0050, text=» B FUOK «, t00=0x0010, t01=0x000e}
0x1916…1920              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001e}
0x1920…1938              Head {h00=0x0014, h01=0x0050, text=»FU07   SUBTOTAL «, t00=0x0010, t01=0x0028}
0x1938…194c              Head {h00=0x0010, h01=0x0050, text=» PERF SUBTOT«, t00=0x0010, t01=0x0040}
0x194c…1960              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0010, t01=0x0054}
0x1960…1970              Head {h00=0x000c, h01=0x0050, text=» B FUOK «, t00=0x0010, t01=0x0068}
0x1970…197a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0078}
0x197a…1996              Head {h00=0x0018, h01=0x0050, text=»FU08   SPG FUNCTION «, t00=0x0010, t01=0x0082}
0x1996…19ae              Head {h00=0x0014, h01=0x0050, text=» PERF ADM,CBIN11«, t00=0x0010, t01=0x009e}
0x19ae…19ca              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0010, t01=0x00b6}
0x19ca…19d6              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00d2}
0x19d6…19e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00de}
0x19e0…19f4              Head {h00=0x0010, h01=0x0050, text=»FU09   CYCLE«, t00=0x0010, t01=0x00e8}
0x19f4…1a0c              Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN1 «, t00=0x0010, t01=0x00fc}
0x1a0c…1a20              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0010, t01=0x0114}
0x1a20…1a3c              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN4 «, t00=0x0010, t01=0x0128}
0x1a3c…1a48              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0144}
0x1a48…1a52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0150}
0x1a52…1a68              Head {h00=0x0012, h01=0x0050, text=»FU10   STABEL «, t00=0x0010, t01=0x015a}
0x1a68…1a80              Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN2 «, t00=0x0010, t01=0x0170}
0x1a80…1a94              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0010, t01=0x0188}
0x1a94…1ab0              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN4 «, t00=0x0011, t01=0x000c}
0x1ab0…1abc              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0028}
0x1abc…1ac6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0034}
0x1ac6…1ae2              Head {h00=0x0018, h01=0x0050, text=»FU11   INVKEY, MODP «, t00=0x0011, t01=0x003e}
0x1ae2…1af4              Head {h00=0x000e, h01=0x0050, text=» PERF MODP«, t00=0x0011, t01=0x005a}
0x1af4…1b08              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0011, t01=0x006c}
0x1b08…1b2a              Head {h00=0x001e, h01=0x0050, text=» CBE GTRETUR,=W'3',FU1110 «, t00=0x0011, t01=0x0080}
0x1b2a…1b3a              Head {h00=0x000c, h01=0x0050, text=» B FUOK «, t00=0x0011, t01=0x00a2}
0x1b3a…1b48              Head {h00=0x000a, h01=0x0050, text=»FU1110«, t00=0x0011, t01=0x00b2}
0x1b48…1b64              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN4 «, t00=0x0011, t01=0x00c0}
0x1b64…1b70              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x00dc}
0x1b70…1b7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e8}
0x1b7a…1b92              Head {h00=0x0014, h01=0x0050, text=»FU12   KONTOKORT«, t00=0x0011, t01=0x00f2}
0x1b92…1ba4              Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x0011, t01=0x010a}
0x1ba4…1bb8              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0011, t01=0x011c}
0x1bb8…1bd4              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN4 «, t00=0x0011, t01=0x0130}
0x1bd4…1be0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x014c}
0x1be0…1bea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0158}
0x1bea…1bfe              Head {h00=0x0010, h01=0x0050, text=»FU13   KVIT «, t00=0x0011, t01=0x0162}
0x1bfe…1c10              Head {h00=0x000e, h01=0x0050, text=» PERF KVIT«, t00=0x0011, t01=0x0176}
0x1c10…1c24              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0011, t01=0x0188}
0x1c24…1c34              Head {h00=0x000c, h01=0x0050, text=» B FUOK «, t00=0x0012, t01=0x000c}
0x1c34…1c3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x001c}
0x1c3e…1c52              Head {h00=0x0010, h01=0x0050, text=»FU14   SUPL «, t00=0x0012, t01=0x0026}
0x1c52…1c6a              Head {h00=0x0014, h01=0x0050, text=» PERF ADM,CBIN10«, t00=0x0012, t01=0x003a}
0x1c6a…1c7e              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0012, t01=0x0052}
0x1c7e…1c8e              Head {h00=0x000c, h01=0x0050, text=» B FUOK «, t00=0x0012, t01=0x0066}
0x1c8e…1c98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0076}
0x1c98…1caa              Head {h00=0x000e, h01=0x0050, text=»FU15   SUM«, t00=0x0012, t01=0x0080}
0x1caa…1cbc              Head {h00=0x000e, h01=0x0050, text=» PERF SUM «, t00=0x0012, t01=0x0092}
0x1cbc…1cd0              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0012, t01=0x00a4}
0x1cd0…1ce0              Head {h00=0x000c, h01=0x0050, text=» B FUOK «, t00=0x0012, t01=0x00b8}
0x1ce0…1cea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c8}
0x1cea…1d00              Head {h00=0x0012, h01=0x0050, text=»FU16   ADM KEY«, t00=0x0012, t01=0x00d2}
0x1d00…1d2a              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET ADM TYPE«, t00=0x0012, t01=0x00e8}
0x1d2a…1d48              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0012, t01=0x0112}
0x1d48…1d62              Head {h00=0x0016, h01=0x0050, text=» PERF ADM,GSWBIN1 «, t00=0x0012, t01=0x0130}
0x1d62…1d7e              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN4 «, t00=0x0012, t01=0x014a}
0x1d7e…1d8a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x0166}
0x1d8a…1d94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0172}
0x1d94…1dac              Head {h00=0x0014, h01=0x0050, text=»FU17   CYCLE KEY«, t00=0x0012, t01=0x017c}
0x1dac…1ddc (19, 0, 398) Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET TYPE OF CYCLE «, t00=0x0013, t01=0x0004}
0x1ddc…1dfa              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0013, t01=0x0034}
0x1dfa…1e12              Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1,  C «, t00=0x0013, t01=0x0052}
0x1e12…1e48              Head {h00=0x0032, h01=0x0050, text=»  FU09,FU10,FUNOK,FCYK4,FUNOK, CYCLE,STABEL C «, t00=0x0013, t01=0x006a}
0x1e48…1e6a              Head {h00=0x001e, h01=0x0050, text=»  FUNOK,FUNOK,FUNOK,FCYK9 «, t00=0x0013, t01=0x00a0}
0x1e6a…1e96              Head {h00=0x0028, h01=0x0050, text=» PERF CYK,CBIN10 END OF CYCLE/STABEL«, t00=0x0013, t01=0x00c2}
0x1e96…1eaa              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0013, t01=0x00ee}
0x1eaa…1eba              Head {h00=0x000c, h01=0x0050, text=» B FUOK «, t00=0x0013, t01=0x0102}
0x1eba…1ec4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0112}
0x1ec4…1eea              Head {h00=0x0022, h01=0x0050, text=»FCYK4   PAUSE IN CYCLE STABEL «, t00=0x0013, t01=0x011c}
0x1eea…1f02              Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN4 «, t00=0x0013, t01=0x0142}
0x1f02…1f16              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0013, t01=0x015a}
0x1f16…1f26              Head {h00=0x000c, h01=0x0050, text=» B FUOK «, t00=0x0013, t01=0x016e}
0x1f26…1f30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x017e}
0x1f30…1f3e              Head {h00=0x000a, h01=0x0050, text=»FCYK9 «, t00=0x0013, t01=0x0188}
0x1f3e…1f6a              Head {h00=0x0028, h01=0x0050, text=» PERF CYK,CBIN9 CLEAR ARKIV KNT. NR «, t00=0x0014, t01=0x0008}
0x1f6a…1f7e              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0014, t01=0x0034}
0x1f7e…1f8e              Head {h00=0x000c, h01=0x0050, text=» B FUOK «, t00=0x0014, t01=0x0048}
0x1f8e…1f98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0058}
0x1f98…1fb0              Head {h00=0x0014, h01=0x0050, text=»FU18   DIV TRANS«, t00=0x0014, t01=0x0062}
0x1fb0…1fc4              Head {h00=0x0010, h01=0x0050, text=» PERF DIVTR «, t00=0x0014, t01=0x007a}
0x1fc4…1fd8              Head {h00=0x0010, h01=0x0050, text=» BNOK FUNOK «, t00=0x0014, t01=0x008e}
0x1fd8…1ff4              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0014, t01=0x00a2}
0x1ff4…2000              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x00be}
0x2000…200a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ca}
0x200a…2022              Head {h00=0x0014, h01=0x0050, text=»FU19   HOVEDBOG «, t00=0x0014, t01=0x00d4}
0x2022…203c              Head {h00=0x0016, h01=0x0050, text=» TBT GTDIVTR,FUNOK«, t00=0x0014, t01=0x00ec}
0x203c…2058              Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,=W'1'«, t00=0x0014, t01=0x0106}
0x2058…2074              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0014, t01=0x0122}
0x2074…2080              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x013e}
0x2080…208a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014a}
0x208a…20aa              Head {h00=0x001c, h01=0x0050, text=»FU20   DEBITOR POSTERING«, t00=0x0014, t01=0x0154}
0x20aa…20c4              Head {h00=0x0016, h01=0x0050, text=» TBT GTDIVTR,FUNOK«, t00=0x0014, t01=0x0174}
0x20c4…20e0              Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,=W'2'«, t00=0x0014, t01=0x018e}
0x20e0…20fc              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0015, t01=0x001a}
0x20fc…2108              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x0036}
0x2108…2112              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0042}
0x2112…212c              Head {h00=0x0016, h01=0x0050, text=»FU21   REMITTERING«, t00=0x0015, t01=0x004c}
0x212c…2146              Head {h00=0x0016, h01=0x0050, text=» TBT GTDIVTR,FUNOK«, t00=0x0015, t01=0x0066}
0x2146…2162              Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,=W'3'«, t00=0x0015, t01=0x0080}
0x2162…217e              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0015, t01=0x009c}
0x217e…218a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x00b8}
0x218a…2194              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c4}
0x2194…21bc              Head {h00=0x0024, h01=0x0050, text=»FU22   TRANS SELECTION IN DIVTR «, t00=0x0015, t01=0x00ce}
0x21bc…21d6              Head {h00=0x0016, h01=0x0050, text=» TBF GTDIVTR,FUNOK«, t00=0x0015, t01=0x00f6}
0x21d6…21ea              Head {h00=0x0010, h01=0x0050, text=» PERF TRPAGE«, t00=0x0015, t01=0x0110}
0x21ea…2206              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0015, t01=0x0124}
0x2206…2212              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x0140}
0x2212…221c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014c}
0x221c…2226              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0156}
0x2226…2234              Head {h00=0x000a, h01=0x0050, text=»FUNOK «, t00=0x0015, t01=0x0160}
0x2234…225c              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'16' INVALID KEY«, t00=0x0015, t01=0x016e}
0x225c…2278              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN2 «, t00=0x0016, t01=0x0008}
0x2278…2284              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0024}
0x2284…228e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0030}
0x228e…229a              Head {h00=0x0008, h01=0x0050, text=»FUOK«, t00=0x0016, t01=0x003a}
0x229a…22b6              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x0016, t01=0x0046}
0x22b6…22c2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0062}
0x22c2…22cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x006e}
0x22cc…22d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0078}
0x22d6…22e4              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x0082}
0x22e4…22f2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0090}
0x22f2…2304              Head {h00=0x000e, h01=0x0050, text=»TRINP PROC«, t00=0x0016, t01=0x009e}
0x2304…2320              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0016, t01=0x00b0}
0x2320…232a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00cc}
0x232a…2374              Head {h00=0x0046, h01=0x0050, text=»*            TRINP - PROCEDURE FOR HANDLING INFORMATION GIVEN OVER«, t00=0x0016, t01=0x00d6}
0x2374…23a0              Head {h00=0x0028, h01=0x0050, text=»*          FROM THE SCREEN PACKAGE. «, t00=0x0016, t01=0x0120}
0x23a0…23e2              Head {h00=0x003e, h01=0x0050, text=»*          WILL BE CALLED WHEN SOMETHING HAS BEEN ENTERED «, t00=0x0016, t01=0x014c}
0x23e2…2422              Head {h00=0x003c, h01=0x0050, text=»*          WHICH THE SCREEN PACKAGE CAN NOT TAKE CARE OF«, t00=0x0016, t01=0x018e}
0x2422…243c              Head {h00=0x0016, h01=0x0050, text=»*          ITSELF.«, t00=0x0017, t01=0x003e}
0x243c…2464              Head {h00=0x0024, h01=0x0050, text=»*          SPCHANGE WILL BE SET.«, t00=0x0017, t01=0x0058}
0x2464…247e              Head {h00=0x0016, h01=0x0050, text=»*          INPUT: «, t00=0x0017, t01=0x0080}
0x247e…24ba              Head {h00=0x0038, h01=0x0050, text=»*               SPBINW2: INDEX FOR THE KEY DEPRESSED«, t00=0x0017, t01=0x009a}
0x24ba…24d4              Head {h00=0x0016, h01=0x0050, text=»*          OUTPUT:«, t00=0x0017, t01=0x00d6}
0x24d4…250e              Head {h00=0x0036, h01=0x0050, text=»*               SPBINW3: GIVING THE TYPE OF INPUT «, t00=0x0017, t01=0x00f0}
0x250e…2532              Head {h00=0x0020, h01=0x0050, text=»*               1   MAK TYPE«, t00=0x0017, t01=0x012a}
0x2532…255a              Head {h00=0x0024, h01=0x0050, text=»*               2   INVALID KEY «, t00=0x0017, t01=0x014e}
0x255a…258a              Head {h00=0x002c, h01=0x0050, text=»*               3   TRANSACTION SELECTED«, t00=0x0017, t01=0x0176}
0x258a…25ba              Head {h00=0x002c, h01=0x0050, text=»*               4   1 PAGE TRANS CORRECT«, t00=0x0018, t01=0x0016}
0x25ba…25ec              Head {h00=0x002e, h01=0x0050, text=»*               5   >1 PAGE TRANS CORRECT «, t00=0x0018, t01=0x0046}
0x25ec…262c              Head {h00=0x003c, h01=0x0050, text=»*               6   NEXT PAGE OF TRANS ALREADY ATTACHED «, t00=0x0018, t01=0x0078}
0x262c…2636              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b8}
0x2636…2652              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0018, t01=0x00c2}
0x2652…265c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00de}
0x265c…2674              Head {h00=0x0014, h01=0x0050, text=» IB SPBINW2,  C «, t00=0x0018, t01=0x00e8}
0x2674…268c              Head {h00=0x0014, h01=0x0050, text=»  IN01,IN02,IN03«, t00=0x0018, t01=0x0100}
0x268c…26ac              Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW2,=W'22',IN22«, t00=0x0018, t01=0x0118}
0x26ac…26b8              Head {h00=0x0008, h01=0x0050, text=»IN00«, t00=0x0018, t01=0x0138}
0x26b8…26e0              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW3,CBIN2 INVALID KEY «, t00=0x0018, t01=0x0144}
0x26e0…26ec              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x016c}
0x26ec…26f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0178}
0x26f6…2702              Head {h00=0x0008, h01=0x0050, text=»IN01«, t00=0x0018, t01=0x0182}
0x2702…2714              Head {h00=0x000e, h01=0x0050, text=»IN02   MAK«, t00=0x0018, t01=0x018e}
0x2714…2730              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0019, t01=0x0010}
0x2730…273c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x002c}
0x273c…2746              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0038}
0x2746…2760              Head {h00=0x0016, h01=0x0050, text=»IN03   AFTER SLUT,«, t00=0x0019, t01=0x0042}
0x2760…277a              Head {h00=0x0016, h01=0x0050, text=» TBT GTTRSEL,IN030«, t00=0x0019, t01=0x005c}
0x277a…27a6              Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,=W'0',IN00 NOT ALLOWED «, t00=0x0019, t01=0x0076}
0x27a6…27b4              Head {h00=0x000a, h01=0x0050, text=»IN030 «, t00=0x0019, t01=0x00a2}
0x27b4…27c8              Head {h00=0x0010, h01=0x0050, text=» PERF ENTER «, t00=0x0019, t01=0x00b0}
0x27c8…27f6              Head {h00=0x002a, h01=0x0050, text=» BNOK IN035 ERRORS DETECTED IN FLDTST «, t00=0x0019, t01=0x00c4}
0x27f6…280e              Head {h00=0x0014, h01=0x0050, text=» IB GTRETUR,  C «, t00=0x0019, t01=0x00f2}
0x280e…282a              Head {h00=0x0018, h01=0x0050, text=»  IN031,IN032,IN033 «, t00=0x0019, t01=0x010a}
0x282a…2838              Head {h00=0x000a, h01=0x0050, text=»IN031 «, t00=0x0019, t01=0x0126}
0x2838…2854              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN4 «, t00=0x0019, t01=0x0134}
0x2854…2860              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x0150}
0x2860…286e              Head {h00=0x000a, h01=0x0050, text=»IN032 «, t00=0x0019, t01=0x015c}
0x286e…288a              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN6 «, t00=0x0019, t01=0x016a}
0x288a…2896              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x0186}
0x2896…28a4 (26, 0, 400) Head {h00=0x000a, h01=0x0050, text=»IN033 «, t00=0x001a, t01=0x0004}
0x28a4…28c0              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN5 «, t00=0x001a, t01=0x0012}
0x28c0…28cc              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x002e}
0x28cc…28da              Head {h00=0x000a, h01=0x0050, text=»IN035 «, t00=0x001a, t01=0x003a}
0x28da…28fc              Head {h00=0x001e, h01=0x0050, text=» TBWD  TAB OVER LAST FIELD«, t00=0x001a, t01=0x0048}
0x28fc…2918              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN2 «, t00=0x001a, t01=0x006a}
0x2918…2924              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x0086}
0x2924…292e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0092}
0x292e…293a              Head {h00=0x0008, h01=0x0050, text=»IN22«, t00=0x001a, t01=0x009c}
0x293a…2954              Head {h00=0x0016, h01=0x0050, text=»   TRANS SELECTED «, t00=0x001a, t01=0x00a8}
0x2954…2970              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x001a, t01=0x00c2}
0x2970…297c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x00de}
0x297c…2986              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ea}
0x2986…2994              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x00f4}
0x2994…29a2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0102}
0x29a2…29b6              Head {h00=0x0010, h01=0x0050, text=»TRPAGE PROC «, t00=0x001a, t01=0x0110}
0x29b6…29d2              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001a, t01=0x0124}
0x29d2…29dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0140}
0x29dc…2a26              Head {h00=0x0046, h01=0x0050, text=»*              TRPAGE - AFTER SELECTION OF TRANSTYPE, SET CORRECT «, t00=0x001a, t01=0x014a}
0x2a26…2a60 (27, 0, 400) Head {h00=0x0036, h01=0x0050, text=»*          INFORMATION ABOUT THE SIZE AND TYPE OF «, t00=0x001b, t01=0x0004}
0x2a60…2a82              Head {h00=0x001e, h01=0x0050, text=»*          THE TRANSACTION«, t00=0x001b, t01=0x003e}
0x2a82…2a8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0060}
0x2a8c…2aa8              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x006a}
0x2aa8…2ab2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0086}
0x2ab2…2adc              Head {h00=0x0026, h01=0x0050, text=» SET GTTRSEL TRANSACTION SELECTED «, t00=0x001b, t01=0x0090}
0x2adc…2af2              Head {h00=0x0012, h01=0x0050, text=» CLEAR GTTYPE2«, t00=0x001b, t01=0x00ba}
0x2af2…2b08              Head {h00=0x0012, h01=0x0050, text=» CLEAR GTTYPE3«, t00=0x001b, t01=0x00d0}
0x2b08…2b22              Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN1«, t00=0x001b, t01=0x00e6}
0x2b22…2b68              Head {h00=0x0042, h01=0x0050, text=»*          TRANSTYPE  01, 02, 03, 04, 05, 06, 07, 08, 09, 10, «, t00=0x001b, t01=0x0100}
0x2b68…2bae              Head {h00=0x0042, h01=0x0050, text=»*                     12, 40, 41, 42, 45, 46, 47, 48, 49, 50, «, t00=0x001b, t01=0x0146}
0x2bae…2bda              Head {h00=0x0028, h01=0x0050, text=»*                     51, 52, 53, 54«, t00=0x001b, t01=0x018c}
0x2bda…2bf2              Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX,  C«, t00=0x001c, t01=0x0028}
0x2bf2…2c32              Head {h00=0x003c, h01=0x0050, text=»  PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG02,PG02,PG01,  C «, t00=0x001c, t01=0x0040}
0x2c32…2c72              Head {h00=0x003c, h01=0x0050, text=»  PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,  C «, t00=0x001c, t01=0x0080}
0x2c72…2c90              Head {h00=0x001a, h01=0x0050, text=»  PG02,PG01,PG02,PG01 «, t00=0x001c, t01=0x00c0}
0x2c90…2c9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00de}
0x2c9a…2ca6              Head {h00=0x0008, h01=0x0050, text=»PG01«, t00=0x001c, t01=0x00e8}
0x2ca6…2cb2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x00f4}
0x2cb2…2cbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0100}
0x2cbc…2cc8              Head {h00=0x0008, h01=0x0050, text=»PG02«, t00=0x001c, t01=0x010a}
0x2cc8…2cdc              Head {h00=0x0010, h01=0x0050, text=» SET GTTYPE2«, t00=0x001c, t01=0x0116}
0x2cdc…2ce8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x012a}
0x2ce8…2cf2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0136}
0x2cf2…2cfe              Head {h00=0x0008, h01=0x0050, text=»PG03«, t00=0x001c, t01=0x0140}
0x2cfe…2d12              Head {h00=0x0010, h01=0x0050, text=» SET GTTYPE3«, t00=0x001c, t01=0x014c}
0x2d12…2d1e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x0160}
0x2d1e…2d28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016c}
0x2d28…2d36              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001c, t01=0x0176}
0x2d36…2d40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0184}
0x2d40…2d4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x018e}
0x2d4a…2d54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0008}
0x2d54…2d60              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001d, t01=0x0012}
0x2d60…2d64              Head {h00=0x4004, h01=0x0000}
0x2d64…2d68              00 1d 00 1e                                                                                                                                                                                                                                       ┆    ┆
0x2d68…2d70 (30, 1, 8)   20 04 00 00 00 1e 00 04                                                                                                                                                                                                                           ┆        ┆
0x2d70…2d86 (31, 2, 22)  e7 0a 01 8c 00 84 87 22 00 14 82 2b d7 74 00 a3 87 02 00 3c 82 2b                                                                                                                                                                                 ┆       "   + t     < +┆
0x2d86…2d9c (32, 2, 22)  e8 96 01 8c 82 34 d7 7e 00 9a 85 37 00 2a 82 20 e8 66 00 7c 85 2c                                                                                                                                                                                 ┆     4 ~   7 *   f | ,┆
0x2d9c…2db2 (33, 2, 22)  ea 22 01 8c 00 48 84 0c 10 0a 42 39 ea 48 00 69 83 c9 10 11 2a 2e                                                                                                                                                                                 ┆ "   H    B9 H i    *.┆
0x2db2…2dc8 (34, 2, 22)  eb ae 01 8c 39 39 ec fa 00 4a 82 77 10 0b 39 39 d9 68 00 59 82 70                                                                                                                                                                                 ┆    99   J w  99 h Y p┆
0x2dc8…2dde (35, 2, 22)  ed 3a 01 8c 81 50 10 08 5a 5a d9 40 00 14 80 00 10 02 39 39 e9 62                                                                                                                                                                                 ┆ :   P  ZZ @      99 b┆
0x2dde…2df4 (36, 2, 22)  ee c6 01 8c 00 00 54 3a 45 58 49 54 00 00 f9 de ee 8e ee d0 c0 0d                                                                                                                                                                                 ┆      T:EXIT          ┆

Reduced view