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

⟦2233f8b8e⟧ 

    Length: 36558 (0x8ece)
    Notes: pts_type(SC)
    Names: »KMD08.SC«

Derivation

└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
    └─⟦this⟧ »NJREMIT/KMD08.SC« 
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
    └─⟦this⟧ »REMIT2/KMD08.SC«

PTS(SC)

	IDENT KMD08 	04.01.XXX.1 
********************************************************
* 
*     THIS IS THE MAIN MODULE FOR KMDAPLICATION 
*     CONTAINING THE CWB'S, TWB'S AND INITIAL 
*        START POINTS 
* 
* 
* 
************************************************* 
	DDIV 
 OPTNS LINES=45,ADRMOD=1
	EJECT
* 
****************************************************
* 
*           TRANSACTION TASK  TC
* 
****************************************************
	TERM	TC
* 
	CWB	CB1
 CWB CB2
 CWB CB3
	CWB	CB4
 CWB CB6
 DWB CD3(CB3) 
	DWB	CD4(CB4) 
 TWB GB1
 TWB GB2
 TWB GB3
 TWB GB5
 TWB GB4
 TWB TB1
 UWB TB2
 DWB TD2(TB2) 
FD01 DSET FC=F8	VOL 999001
FD02 DSET FC=F9	VOL 999002
KVOUCH	DSET	FC=31,DEV=TV,BUFL=100 
KJTAPE DSET FC=30,DEV=TJ,BUFL=70,BUFDS=KVOUCH 
KTALLY	DSET	FC=32,DEV=TR,BUFL=30,BUFDS=KVOUCH 
SCREEN DSET FC=50,BUFL=56 
KEYB DSET FC=20 
DK01 DSET FC=C1	FD999001 CONFDATA 
DK02 DSET FC=C2	FD999002 REGSET 
DK03 DSET FC=C3	FD999003 CYCLE SET
DK04 DSET FC=C4	FD999004 KT PLAN
DSSOPI DSET FC=10 
DSSOPO DSET FC=11 
DCOMM DSET FC=61
KCASS DSET FC=12
DK10 DSET FC=CA KONTOFILE 
DK05 DSET FC=C5 GL REGSET 
DK06 DSET FC=C6 TEXT REGISTER 
DK07 DSET FC=C7 INDEX REGISTER
DK08 DSET FC=C8 STAM REG. LEV.
DK09 DSET FC=C9 VAR.REG. LEV. 
DK11 DSET FC=CB POST. REG.
DSHCGP DSET FC=33,DEV=GP,BUFL=180 
DSHCLP DSET FC=80,DEV=LP,BUFL=180 
DK12 DSET FC=CC BUDGET LOG FILE 
FD03 DSET FC=FA	VOL 999003
FD04 DSET FC=FB	VOL 999004
 FMTCTL INDS=KEYB,OUTDS=SCREEN
	START	REGGO
 REENTER REENTC 
 STACK 300
 EJECT
 TERM RA
 CWB CB1
 CWB CB2
 CWB CBA
 CWB CBC
 CWB CB6
 CWB CBD
 TWB TBB
 TWB GB1
 TWB GB2
 TWB GB3
 TWB TBC
* 
FDRK01 DSET FC=F9 
FDRK02 DSET FC=FB 
KVOUCH DSET FC=31 
KGENP DSET FC=30
KTALLY DSET FC=32 
SCREEN DSET FC=50,BUFL=120
KEYB DSET FC=20 
DK01 DSET FC=C1	FD999001 CONFDATA 
DK02 DSET FC=C2	FD999002 REGSET 
DK03 DSET FC=C3	FD999003 CYCLE SET
DK04 DSET FC=C4	FD999004 KT PLAN
DSSOPI DSET FC=10 
DSSOPO DSET FC=11 
DCOMM DSET FC=61
KCASS DSET FC=12
DK10 DSET FC=CA KONTOFILE 
DK05 DSET FC=C5 GL REGSET 
DK06 DSET FC=C6 TEXT REGISTER 
DK07 DSET FC=C7 INDEX REGISTER
DK08 DSET FC=C8 STAM REG. LEV.
DK09 DSET FC=C9 VAR.REG. LEV. 
DK11 DSET FC=CB POST. REG.
DSHCGP DSET FC=33,DEV=GP,BUFL=140 
DSHCLP DSET FC=80,DEV=LP,BUFDS=DSHCGP 
 FMTCTL INDS=KEYB,OUTDS=SCREEN
 REENTER REENRK 
 START RAGO 
* 
	EJECT
* 
* 
*	DATA DIVISION 
* 
* 
* 
*       KB/VDU TERMINAL 
* 
	TERM	KA
* 
	CWB	CB9
	TWB	TB9
* 
	START	KBVGO
 REENTER REENKA 
* 
DSDC	DSET	FC=61 
DSICR	DSET	FC=E0,DEV=II	COPCMD=1
DSICW	DSET	FC=E1,DEV=IO 
DSVDU	DSET	FC=50,DEV=DY,BUFL=162
DSKBAN	DSET	FC=20,DEV=KA,BUFL=2 
DSKBSD	DSET	FC=40,DEV=KI,BUFL=2 
	EJECT
* 
* 
*	GTP TERMINAL
* 
* 
	TERM	GA
* 
	CWB	CB9
	TWB	TB9
* 
	START	GTPGO
 REENTER REENGA 
* 
DSDC	DSET	FC=61 
DSICR	DSET	FC=E0,DEV=II 
DSICW	DSET	FC=E1,DEV=IO	COPCMD=1
DSGTP	DSET	FC=30,DEV=GP,BUFL=162
* 
	EJECT
* 
* LINE PRINTER
* 
* 
 TERM LA
* 
 CWB CB9
 TWB TB9
* 
 START LPGO 
 REENTER REENLA 
* 
DSDC	DSET	FC=61 
DSICR	DSET	FC=E0,DEV=II 
DSICW	DSET	FC=E1,DEV=IO	COPCMD=1
DSLP DSET FC=80,DEV=LP,BUFL=162 

* 
* 
*	DCTASK
* 
* 
	TERM D0
* 
	CWB	CB9
	START	DC1GO
 REENTER REEND0 
DSDC	DSET	FC=60 
* 
	EJECT
* 
* 
*      WORK AREA FOR KEYBOARD AND DISPLAY TASKS 
* 
* 
TB9	BLK 
* 
TCT01	BIN	4X'0'	TID AND STACKBASE 
PRINTER	STRG	4X'0'	KEYBARD/VDU/PRINTER
BVDU	STRG	3840X'0'	VDU SCREEN BUFF
PCURS	STRG	4X'0'	CURSOR ADDR. BINARY
ATTRIB	STRG	4X'0'	LAST ATTRIBUTE CHARACTER
CURATT	STRG	4X'0'	CURSOR ATTRIBUTE
WCC	STRG	4X'0'	WCC/CCC CHARACTER
KBINH	STRG	4X'0'	KEYBOARD INHIBIT INDIC.
LINCNT	STRG	4X'0'	
DCLENG	STRG	4X'0'	DC READ EFFECTIVE LENGTH
ICWORK	STRG	4X'0' 
INTATT	STRG	4X'0'	INTENSITY ATTRIBUTE 
OFFFLG	STRG	4X'0'	OFFLINE FLAG
COPNO	BIN		TID FOR HARDCOPY 
MISCAR	STRG	44X'0'	CCC,MAIN,
			MODE,KEYS,ECBDCC,ECBBLK, 
STRG2 STRG 4X'0'	DK 
	EJECT

****************************
* 
*   COMMON WORK BLOCK FOR ALL TASKS 
* 
***************************************** 

CB9	BLK 
* 
CNFIGD	BOOL 
CNFBSY	BOOL 
* 
*  CONFIGURATION DATA 
* 
NBRKBV	BIN		NUMBER OF KB/VDUS 
NBRGTP	BIN		NUMBER OF GTPS
* 
MF1KBV	STRG	32X'40C1C2C3C4C5C6C7'	DV ADDRESSES KB/VDU 
MF1GTP	STRG	32X'C8C94A4B4C4D4E4F'	DV ADDRESSES GTP
* THE LENGTH OR PLACE OF THE CONFIG DATA ABOVE SHOULD NOT BE CHANGED
* 
MF1CU	STRG	X'6040'	CU-ADDRESS MF # 1
* 
CNFHC STRGI (16),'GA','GB','GC','GD','GE' HARDCOPY PRINTER
			FOR KB-VDU 1-16
* 
BINWK1	BIN
* 
FROMKX	STRGI	(12)2C'TC','TD','TE','TF','TG','TH',		C
		'TI','TJ','TK','TL','TM','TN' 
	EJECT
CB1 BLK 
* 
CBKOFLG BOOL FALSE T=ALL BKO-CODES ALLOWED
CKTFLAG BOOL FALSE F=NO SALDO AT ALL IN KORT
CCLKTFLG BOOL FALSE T=KONTOKORT I KASSELUK
CTESTFLG BOOL FALSE T=CONVERSION, TEST MODE 
CTRVALG	BOOL	FALSE	T: SKOVBO. F: VIBORG 
CFLT46 BOOL FALSE T=SPECIAL FIELD 46,TR=8 
CFLT48 BOOL FALSE T=SPECIAL FIELD 48,TR=3 
CKTAUTO BOOL TRUE T=ASK KORT AFTER TR 4 
CDCFLAG BOOL FALSE T=INCLUDES DATATRANSMISSION
CCYWRTF BOOL FALSE T=DO NOT USE CYCLE SET 
CADM22F BOOL FALSE T=ALLOWED FUNCTION (ADM 22)
C5MDISK BOOL FALSE T=5M DISK
CKASFLG BOOL TRUE T=BACKUP ON CASSETTE
CSLDFLG BOOL TRUE T=GL.SALDO PRESENT(CKTFLAG=T) 
CGLREGFL BOOL FALSE T=GL REGSET PRESENT 
CCONVERT BOOL FALSE T=CONVERSION MODE 
* 
* 
CBIN0 BIN '0' 
CBIN1 BIN '1' 
CBIN2 BIN '2' 
CBIN3 BIN '3' 
CBIN4 BIN '4' 
CBIN5 BIN '5' 
CBIN6 BIN '6' 
CBIN7 BIN '7' 
CBIN8 BIN '8' 
CBIN9 BIN '9' 
CBIN10 BIN '10' 
CBIN11	BIN	'11' 
CBIN12 BIN '12' 
CBIN13 BIN '13' 
CBIN14 BIN '14' 
WEIGTH1 BCDI (13),'7','6','5','4','3','2','7','6','5','4','3','2','1' 
CB2 BLK 
* 
CPFLG	BOOL	FALSE	T: DISK OCCUPIED 
CSPLITFL	BOOL	FALSE	T: SPLIT RECORD 
CWFLAG BOOL FALSE F=COLD START
CREMITFL BOOL FALSE F=NO REMIT
CSKIFTFL BOOL FALSE T=FD CHANGING 
CEORFLG BOOL FALSE T=END OF A RECORD
CCOLDFLG BOOL FALSE T=VERY FIRST COLD START 
CERRORFL BOOL FALSE T=ERROR IN COLD START 
CCONVFLG BOOL FALSE T=CONVERSION GOING ON 
CSWFLAG BOOL FALSE SCRATCH FLAG 
CSKIFTWN BOOL FALSE T=WARNING ABOUT FD CHANGE 
CDUOVL BOOL FALSE T=OVERLAY ON DU 
CTEXTFLG BOOL FALSE T=TEXT REG. PRESENT 
CSTRKFLG BOOL FALSE T=STRAKS CHECK (LEV REG)
CBUDTFLG BOOL FALSE T=BUNDT CHECKS (POST REG) 
CRKCOPY BOOL FALSE T=FD2 EMPTY (RESET BY R-TASKS) 
* 
* 
CBIN15 BIN '15' 
CBIN16 BIN '16' 
CBIN17 BIN '17' 
CBIN18 BIN '18' 
CBIN19 BIN '19' 
CBIN20 BIN '20' 
CBIN21 BIN '21' 
CBIN22 BIN '22' 
CBINMAX	BIN	'26'
CVOUTOP BIN W'56' 
CMINLIN BIN W'2'
	EJECT
*********************************************************** 
* 
*          TABLE GIVING INDEXES FOR TRANSACTIONFIELDS 
*           FIELD NR GIVES DISPLACEMENT IN TABLE
* 
************************************************************
CFLTDEX BINI (130),		C
		'26','26','26','26','1','2','3','4','5','6',	1-10	C 
		'7','8','9','4','11','12','10','11','12','13',	11-20	C
		'10','11','12','13','14','15','16','1','8','9',	21-30	C 
		'10','5','12','13','14','5','18','19','7','7',	31-40	C
		'18','14','20','21','22','17','12','15','10','1',	41-50	C 
		'2','3','4','2','3','4','5','6','7','8',	51-60	C
		'9','10','11','12','13','6','26','26','26','26',	61-70	C
		'26','26','26','26','26','26','26','26','26','26',	71-80	C
		'19','26','26','26','26','26','26','26','26','26', 81-90	C
		'26','26','26','26','26','26','26','26','26','26',  		C 
		'26','26','26','26','26','26','26','26','26','26',  		C 
		'26','26','26','26','15','13','14','18','19','26',		C 
		'26','26','26','26','26','26','26','26','26','26' 
CCNTDEX	BINI	(15),		C 
		'1','2','3','4','5','1','5','6','6','5','0',		C 
		'1','1','1','1' 
* ITEM (N,1) := REGISTR. (TC,TD,....) 
* ITEM (N,2) := R]KONV.  (RA,RB,....) 
CFLAG BINI (12,2),X'0011',X'0069',X'0010',X'0068',X'0000' 
*     BITS NUMBERED : 15, 14, 13,...,5, 4, 3, 2, 1, 0 
* 
*     BIT 0 T=MASTER KASSE
*           F=NON-MASTER
*     BIT 1 T=REMOTE
*           F=LOKAL 
*     BIT 2 T=LP
*           F=NO LP 
*     BIT 3 T=GTP 
*           F=NO GTP
*     BIT 4 T=TTP 
*           F=NO TTP
*     BIT 5 T=VDU 
*           F=PDU 
*     BIT 6 T=KBN+KBA (KBAN)
*           F=KBN 
*     BIT 7 T=NEW KB (6272) 
*           F=OLD KB (6234) 
*     BIT 8 
* 
*     BIT 9 
* 
*     BIT 10
* 
* 
 EJECT
CB3 BLK 
* 
CADVIS BOOL F T=ADVISLISTE IN PROGRESS
CBUDGET BOOL FALSE T=TRANS 40-49 ALLOWED
CFAKT10 BOOL FALSE T=FAKTNR 10 FALSEIGS 
CF9094 BOOL FALSE T=FELT 90-94 ALLOWED
CSPEC BOOL FALSE T=>3TRANS, ALWAYS SPEC I CHECK 
CSPECFLG BOOL FALSE 
C821FLG BOOL FALSE T=HJORRING 
CWORK1 BOOL F WORKFLAG REMITTERING
CBDTGIR BOOL FALSE	T=LIST GIRO, F=LISTCHECK 
CKFLAG BOOL FALSE T=EXCL ACCESS, KNT. PLAN
* 
* 
* 
* 
* 
* 
* 
DUMBC3 STRG 404 =4+128+128+128+2+6+8
CCONBUF0	STRG	398X'FF'
CCONBUF1	STRG	398X'FF'
CCONBUF2	STRG	398X'FF'
CCONBUF3	STRG	398X'FF'
CCONBUF4	STRG	398X'FF'
CCONBUF5	STRG	398X'FF'
CCONBUF6 STRG 398X'FF'
CCONBUF7 STRG 398X'FF'
CCONBUF8 STRG 398X'FF'
CTRANBUF STRG 698 
CTXBUF STRG 24
CIXBUF STRG 8 IDX.FILE BUFFER 
CLEVBUF STRG 128 LEV BUFFER 
CVARBUF STRG 49 VAR BUFFER
CTID STRGI (12),2C'TC','TD','TE','TF','TG','TH',		C 
		'TI','TJ','TK','TL','TM','TN' 
 EJECT
CB4 BLK 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
DUMCB4 BINI (6) 
CCONBUF9 STRG 398X'FF'
CVERSNR BCD 10D'01014610' VERSION NUMBER
CBLANKS STRG X'2020'
CCHKLBNR BCD 6D'0' CHECKLOBENR
CDUM1 BCD 11D'0'
CDUM2 BCD 11D'0'
CDUM3 BCD 11D'0'
EDITBUF STRG 732 FORMATEDITING BUNDT
CTRBUF STRG 40
CKFBUF STRG 7 
CCYSIZE BIN '36'
*          ONLY RELEVANT IF EITHER
*          CBKOFLG=F (CHECK BKO) OR 
*          CKTFLAG=F (NOT SALDO IN KT.) 
CTTXT07 STRG 13'00008		C
		99     0' 
CREGTAB BCDI (29,2),'01','-01',		C
		'02','-01',		C
		'03','-01',		C
		'04','-01',		C
		'05','-01',		C
		'06','-01',		C
		'07','-01',		C
		'08','-01',		C
		'09','-01',		C
		'10','-01',		C
		'12','-01',		C
		'18','-01',		C
		'19','-01',		C
		'28','-01',		C
		'29','-01',		C
		'-40','-01',		C 
		'-41','-01',		C 
		'-42','-01',		C 
		'-45','-01',		C 
		'-46','-01',		C 
		'-47','-01',		C 
		'-48','-01',		C 
		'-49','-01',		C 
		'-50','-01',		C 
		'-51','-01',		C 
		'-52','-01',		C 
		'-53','-01',		C 
		'-54','-01',		C 
		'-01','-01' 
* 
* 
 EJECT
CB6 BLK 
* 
CCYPFLG BOOL FALSE CYSET OCCUPIED ? 
C167FLG BOOL FALSE T=KMD167 (HVIDOVRE)
CTALLY BOOL F T: OUTPUT ON TALLY
CTXTFLG BOOL F T: TEXTBUF OCCUPIED
CLEVFLG BOOL FALSE T=LEV BUFFER RESERVED
CVARFLG BOOL FALSE T=VAR BUFFER RESERVED
CIDXFLG BOOL FALSE T=INDEX BUFFER RESERVED
CTRFFLG BOOL F T=TRANSFILE OCCUPIED 
CKFFLG BOOL F T=KONTOFILE OCCUPIED
CKRESP BOOL F T=KREDITSPC. (+ WORKFLAG) 
CDKOFF BOOL FALSE T=DISK SWITCH OFF 
CLEV8FLG BOOL FALSE T=GENERATE LEV NR 
C539FLG BOOL FALSE T=KMD539 (TINGLEV) 
CVALFLG BOOL TRUE T=CHECK VALORDATO, TR 3,4 
CAD41FLG BOOL FALSE T=IN ADM 41/43
CVAREXFL BOOL FALSE T=EXCLUSIVE ACCESS ON FREE LEV
* 
* 
CKTLAST BIN '0' LAST RECORD USED, KTPLAN
CMAXREC BIN W'1400' GIVES WARNING OF FULL REGSET
CKTMAX BIN '21' MAX SIZE KONTOPLAN
CIXLAST BIN		LAST RECORD IN INDEXFILE 
CIXFREE BIN		FIRST FREE RECORD
CREMPT1 BIN 
CBUDPT BIN
CRECLGD BIN W'128'
CRECBCD	BCD	6D	LOGICAL RECORD NR. 
CKMDNAM STRG 6'OD-KOM'
CKTINDX BCDI (7),14D KNT.PLAN MASTER INDEX
CIXINDX BCDI (20),14D IDX.FILE MASTER INDEX 
CKTTOP BCD 4D'5' FIRST LINE KORT (DEFAULT)
FROMTX	STRGI	(12)2C'KA','KB','KC','KD','KE','KF','KG',		C 
		'KH','KI','KJ','KK','KL'
 EJECT
TB1	BLK 
* 
TTCY1FLG	BOOL	FALSE	IN CYCLE? 
TTCY2FLG	BOOL	FALSE	IN STABEL?
TTLSTFLG BOOL FALSE 
TTPSEFLG BOOL FALSE PAUSE STATE 
TTTSTFLG BOOL FALSE FIRST ENTRY IN CYKLE ?
TTINVFLG BOOL FALSE INDICATE MODPOST
TTJTEND BOOL FALSE END OF JOURNAL 
TTEORFLG	BOOL	FALSE	*-- END OF RECORD 
TTSUPFLG	BOOL	FALSE	SUPPLEMENT POST 
TTSMALL	BOOL	FALSE	*-- SMALL GIRO KVIT? 
TTR11FLG	BOOL	FALSE	T: KASSE CLOSE
TTKORTFL BOOL FALSE T: IN KONTOKORT MODE
TTASKAT BOOL FALSE T=BKO 51 
TTLEVFLG BOOL F T= LEVIN HAS BEEN EXECUTED
* 
* 
* 
* 
TTDKDEX BIN 
TTSTYRDX	BIN	'1'	HBOG/DEBP/REM
TTTROLD	BIN		NO OF OLD TRANS
GTLINE	BIN		CURRENT LINE
TTDKBCD	BCD	2	D/K VALUE 
TTARKSAV BCD 12 SAVED ARK KT NR 
TTCYKTOT BCD 14 SAVED CYKLE TOTAL 
TTCYKPOS BCD 4 SAVED CYKLE LINE NR
TTLINNR BCD 4 LINE NR ON VOUCHER
TTCNTNR BCD 4 COUNTER TAELLER NR
TTEJEDB BCD 14 TOTAL OF EJ EDB
GTMSK	BCD	6D'999' 
GTDATO	BCD	8X'FFFFFFFF' 
TSWBCD2	BCD	2	*-- 
TTCYM STRG 1 CYKLE MARK ON JOURNAL
GTREGF	BCDI	(26),16X'F'	TRANSACTION FIELDS
	EJECT
GB1 BLK 
* 
GTEXFLAG BOOL FALSE 
GTADUPFL BOOL FALSE 
GTAUTODP BOOL FALSE 
GTREGFLG BOOL FALSE 
GTCYFLG BOOL FALSE
GTTFLG BOOL FALSE CLOSE ? 
GTCLRN	BOOL	FALSE	*-- SPCLRN OR SPCLRA
GTTYPE2	BOOL	FALSE	*--
GTTYPE3	BOOL	FALSE	*--
GTKASSE	BOOL	FALSE	*-- TRUE- IN KASSE FUNCTIONS 
GTSLUTFL	BOOL	TRUE	FALSE: SLUT KEY IS SIMULATED 
GTDIVTR	BOOL	FALSE	T: DIVERSE TRANS 
GTTRSEL	BOOL	FALSE	T: TRANSACTION SELECTED
GTMASTFL BOOL FALSE T=MASTER TERMINAL 
GTASUMFL BOOL FALSE T=AUTO SUM
GTSUBFLG BOOL FALSE T=SUBTOTAL
* 
* 
GSWBIN5 BIN 
GSWBIN6 BIN 
GSWBIN7 BIN 
GSWBIN8 BIN 
GSWBCD1 BCD 14
GSWBCD2 BCD 14
GSWBCD3 BCD 6 
GSWBCD4 BCD 6D
GSWBCD5 BCD 6 
GSWBCD6 BCD 14
GSWBCD7 BCD 14
GTWBCD1 BCD 14
GTWBCD2 BCD 14
GSWSTR1	STRG 1
GSWSTR2 STRG 2
GTSTRFMT STRG 14 STRING FOR FORMATS 
 EJECT
GB2 BLK 
* 
SPPROMPT BOOL FALSE 
SPCHANGE BOOL FALSE 
SPDUPL	BOOL	FALSE	TRUE: FIELD HAS BEEN DUPPED 
SPME BOOL FALSE FALSE: NO CHECK FOR ME FIELDS 
SPKEYFLG BOOL TRUE FALSE NO KOR-KEY IN SPERR
SPWARNFL BOOL FALSE T: WARNING
TTKEY1 BOOL FALSE KEY 1 
TTKEY2 BOOL FALSE KEY 2 
TTKEY3 BOOL FALSE KEY 3 
TTKEY4 BOOL FALSE KEY4
TTKEYFLG BOOL FALSE T=KB: 6271,6272 
TTSUMFLG BOOL FALSE SUM ON SCREEN ? 
GTGTPFLG BOOL FALSE T=GTP 
GTLPFLG BOOL FALSE T=LP 
* 
* 
* 
* 
SPBINW1 BIN 
SPBINW2 BIN 
SPBINW3 BIN 
SPBINW4 BIN 
SPBINW5 BIN 
SPKEY	BIN	'1' 
SPERASE	BIN	'0'	0:ERASE; 4:NO ERASE 
GTPAGE BIN
GTRETUR	BIN 
GTREGDEX BIN '0' TRANSTYPE INDEX
GTDFLIN	BIN	'27'	DEFAULT LINE NUMBER
GTHCDEV BIN		HARDCOPY 1=GTP, 2=LP 
TTASKNR BIN 
GSSWITCH	BINI	(26)
GTUSED	BINI	(26)
 EJECT
GB3 BLK 
* 
PSIGNFLG BOOL FALSE 
BCPR BOOL FALSE T=CPR  F=CIR
BLEV BOOL FALSE T=LEV., F=CPR 
GTDYFLG BOOL FALSE T=DISPLAY
GTSPGFLG BOOL FALSE 
GTKORTFL BOOL FALSE	T=KONTO FOUND IN KONTOPLAN
GTTESTFL BOOL FALSE T=IN TEST MODE
GTSWFLAG BOOL FALSE SCRATCH FLAG
GTSUMKEY	BOOL	FALSE	SUM INDIKATOR 
GTNWFLG BOOL FALSE T= USE .NW 
GTADMFLG BOOL FALSE T= IN ADM FUNCTIONS 
GTLOKSPG BOOL FALSE T=LOKAL INQUIRIES 
GTSLDFLG BOOL FALSE T=SALDO PRESENT. F=NOT PRESENT
GTGLSPG BOOL FALSE T=INQUIRIES ON GL REGSET 
GTRKMFLG BOOL F T=R]KONV. MASTER TERMINAL 
TTCYTRFL BOOL FALSE F: BEFORE 1. TRANS IN CYKEL 
* 
* 
GSWBIN1 BIN 
GSWBIN2 BIN 
GSWBIN3 BIN 
GSWBIN4 BIN 
GTTRKEY BIN 
GTPSELIN BIN '0' LINE NO. WHEN PAUSE
GTRECNR BIN		SPG. RECORD NO.
GTLBNR BCD 6D SPG. EKSP.LB.NO.
GTLBNRIN BCD 6D EKSP.LB.NR ASKED FOR
GTANTAL BCD 4 
GTREGNR BCD 3 TRANSTYPE 
GTDBKRS BCD 2 SIGN FOR AMOUNT 
GTL8TXT	STRG	8	TEXT FOR LINE 8
SPINPUT STRG 35 
GSWSTR9 STRG 9
GSWSTR20	STRG	20
 EJECT
GB4 BLK 
* 
GTCYWRTF BOOL FALSE T=NO WRITE ON CYSET 
GTCYTRPF BOOL FALSE T=TRANSPORT IN CYCLE
GTBDTFLG BOOL F T= TRANS 28/29
GTCHKPR BOOL F T= FIRST CHECK ON PAGE 
GTSTRFLG BOOL F T= TRANS 18/19
GTASTFLG BOOL F T=LAST REC '**' (BUDGET)
GTZERO BOOL F ZERO LEVAMOUNT (ONCE A YEAR)
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
GTCYIN BIN		NEXT USED, CYCSET 
GTCYOUT BIN		NEXT FREE, CYCSET
GTCHKCY BIN '1' LINENR. ON CYSET FOR CHECK
GSWBIN9 BIN '0' 
GSWBIN10 BIN
GTSCHLOW BIN '0' USED IN IDXGET 
GTSCHMID BIN '0' USED IN IDXGET 
GTSCHHGH BIN '0' USED IN IDXGET 
GTKTTYP BCD 4D KTPLAN TYPE
GTKFVAL BCD 14 VALUE-KONTOFILE
GTBSUM1 BCD 11D'0'
GTBSUM2 BCD 11D'0'
GTBSUM3 BCD 11D'0'
* 
* 
* 
 EJECT
GB5 BLK 
* 
GTKBAFLG BOOL FALSE T=INCLUDES KBA
GTVDUFLG BOOL FALSE T=VDU, F=PDU
GTTTPFLG BOOL TRUE T=TTP,F=NO TTP 
TREMFLG BOOL F T=REMOTE 
TFELT90 BOOL F
TFELT91 BOOL F
TFELT92 BOOL F
TFELT93 BOOL
TFELT94 BOOL F
TFELT901 BOOL F 
TFELT911 BOOL F 
TFELT921 BOOL F 
TFELT931 BOOL F 
TFELT941 BOOL F 
* 
* 
* 
GTLEVNR BCD 12
GTLEVPNR BCD 6
GTLEVBFO BCD 2
GTLEVGI BCD 8 
GTLEVALT BCD 12 
GTLEVTKO BCD 2
GTLEVDAT BCD 8 OPRET DATO 
GTTXTTKO BCD 4 TEXT KODE
GTLEVNVN STRG 30
GTLEVADR STRG 32
GTLEVBY STRG 20 
GTLEVPDI STRG 13
GTLEVTXT STRG 22
GTPRTDAT BCD 8 PRINT DATO 
GTPRTFRA BCD 12 LEV FRA 
GTPRTTIL BCD 12 LEV TIL 
 EJECT
TB2 BLK 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
DUMTB2 STRG 24
GTDBKRC	STRG	4	DEB/KRE TEXT 
GTTESTMK	STRG	1 
TTSUPMRK	STRG	1	SUPPLEMENT MARK 
TTSUMMRK	STRG	1	SUM MARK
GTTEXT	STRG	6 
TTSPARE3	STRG	1C'.' 
TCONBUF STRG 398X'FF' 
TTCYKST BCD 4 1. LINE CYCLE/STABEL
TTKTSLD	BCD 14	KONTOKORT, SALDO 
TTKTLIN	BCD	4	KONTOKORT, LINIE NR 
TTKTCHK	BCD	2	KONTOKORT, CHECKCIFFER
TTDBKRM STRG 1C'K' DEB/KRE MARK ON JOURNAL
TT16TXT	STRG	3	RENTE/GEBYR/RATE 
TT07TXT	STRG	5	BKO TEXTS
GTDUPF	BCDI	(26),16X'F'	DUP FIELDS
 EJECT
CD3 DBLK
* 
* 
* 
* 
* 
SOPINP STRG 4 
CPCKBUF	STRG	128	PACKBUFFER 
CCYBUF STRG 128 CYSET BUFFER
CKTBUF STRG 128 KTPLAN BUFFER 
CEDATNR	BCD	4	DATASET NR. 
ASVOL STRG 6
ASFNAME STRG 8
CMASK BCDI (12),4D
CBACC BCDI (60,3),14D BEHOLDNINGER
CTR12NR BCDI (60),12D EJ-EDB ACCOUNT NOS. 
CRELDAY BCD 4X'FFFF'
CCONFREC BCD 6
C12ACC BCDI (60,2),14D EJ-EDB COUNTERS
 EJECT
* 
CD4 DBLK
* 
* 
* 
* 
* 
CTWBIN1 BIN 
CTWBIN2 BIN 
CMAXTASK BIN		NO OF TASKS 
CTASKNR BIN		NO. OF 0PEN TASKS
CRECNR	BIN		PHYSICAL RECORD NR. 
CGLRECNR BIN '0' LAST RECNR, GL REGSET
CBEH BINI (12,2) FIRST AND SIZE OF BEHLDN.
CTR12 BINI (12,2) FIRST AND SIZE OF TR 12 
CFNAME STRGI (8),8
CVOLNO BCD 6 VOLUME NUMBER
CKMDNR BCD 6D KOMMUNE NR
CMASKDAT BCD 8X'FFFFFFFF' 
CVOL STRGI (4),6
 EJECT
TD2 DBLK
* 
* 
* 
* 
* 
GTSUM BCD 14
GTCYSUM BCD 14
GTSUMST	BCD	6	1. NUMBER FOR SUM FUNCTION
GTSUMCNT	BCD	14	COUNTER FOR SUMFUNCTION 
TTINF1	STRG	14
TTRECOPN BCD 6 REC. NO. FOR OPEN OR CLOSE 
TTRECCHN BCD 6 REC. NO. FOR FD CHANGE 
TTSTLBNR	BCD	6D	FIRST EKSP. LBNR
TTSTCASH	BCD	14D	PRIMO CASH AMOUNT
TTCASHAC	BCD	12D	CASH ACC. NR 
TVERSUR BCD 12D VERSUR ACC NR 
TTCASH	BCD	14D	CURRENT CASH AMOUNT
TTLBNR BCD 6D CURRENT EKSP.LBNR 
TTACC BCDI (8,2),16D'0' EDB COUNTERS
TTGLREC BCD 6 SAVE RECORD NO, GL REGSET 
 EJECT
CBA BLK 
* 
CRKKLAR BOOL F R]KONV CAN COMMENCE
FDBUSY BOOL FALSE 
COPYFLG BOOL F
OBS BOOL FALSE
OPTION1 BOOL FALSE T=FORSK.REG ALLOWED
OPTION2 BOOL FALSE T=LONOPLYSNING 
SLUTL BOOL F T=SLUTLIGNING
FORSKUD BOOL F
LONOPL BOOL F 
CHFLAG BOOL F 
TTPBUSY BOOL F
* 
* 
* 
* 
* 
* 
* 
LENGTH BIN '128'
HEX31 BIN X'0031' 
HEX82 BIN X'0082' 
HEX86 BIN X'0086' 
HEX91 BIN X'0091' 
HEX95 BIN X'0095' 
HEXB7 BIN X'00B7' 
HEXB8 BIN X'00B8' 
MAXREC BIN '1924' 
LASTREC BIN '1950'
CENTRAL BIN		1=BBY, 2=REST
RKKMNR BCD 3 KOMMUNENR
STR25 STRG X'2525'
STR7F STRG X'7F7F'
KEYTAB STRGI (6),'          ' 
 EJECT
CBC BLK 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
CSLUTFLD BINI (100,2),		C 
		'93','6',	HENVISNINGSNUMMER	C 
		'101','8',	SAMBESKATNINGSKODE	C 
		'106','9',	SAKTTEPLIGTENS OMFANG	C
		'113','1',	PERSONFRADRAGSKODE	C 
		'118','8',	KIRKESKATTEKODE	C
		'120','10',	FORSKUDT REGNSKABS]R	C
		'125','11',	SKONSKODE	C 
		'132','15',	LIGNINGSART	C 
		'156','0',	DODSBOKODE	C 
		'168','12',	ERKL[RINGSKODE	C
		'170','17',	ENKEKODE	C
		'175','0',	LIGNINGSMYNDIGHEDSKODE	C 
		'182','0',	UDSOGNINGSKODE	C 
		'187','18',	S[RBEHANDLINGSKODE	C
		'194','0',	]RSAGSKODE	C 
		'199','16',	SLETTEKODE	C
		'202','2',	A-INDKOMST	C 
		'207','2',	B-INDKOMST	C 
		'219','2',	OVERSKUD AF EJENDOM	C
		'221','2',	OVERSKUD OF VIRKSOMHED	C 
		'233','2',	RENTEINDT[GTER AF BANKB	C
		'238','2',	RENTEINDT[GT IOVRIGT	C 
		'240','2',	OBLIGATIONSRENTER	C
		'245','3',	AKTIEUDBYTTE	C 
		'252','2',	SKATTEGODTGORELSE	C
		'264','2',	INDKOMST SOM MEDHJ [GTEF[LLE	C 
		'271','2',	SOMANDSINDKOMST	C
		'290','2',	UDENL INDKOMST 1	C 
		'295','2',	UDENL INDKOMST 2	C 
		'404','2',	LONMODT FRAGDRAG	C 
		'411','2',	UNDERHOLDSBIDRAG	C 
		'416','2',	FORSIKR FULD FRADRAG	C 
		'423','2',	FRADRAG B	C
		'428','2',	UNDERSKUD AF EJENDOM	C 
		'430','2',	FRADRAG A	C
		'435','2',	UNDERSKUD AF VIRKSOMHED	C
		'442','2',	FORSIKRINGER BEGR FRADRAG	C
		'454','0',	OVERFORT UNDERSKUD	C 
		'473','19',	FRADRAG FOR MEDHJ [GTEF[LLE	C 
		'480','2',	RENTEUDGIFTER	C
		'505','0',	SELVANGIVEN ALM INDKOMST	C 
		'517','0',	ANSAT ALM INDKOMST	C 
		'555','4',	RENTENEDSLAGSBELOB	C 
		'567','2',	SOC YDELSER	C
		'579','0',	EENGANGSBELOB	C
		'586','4',	UDENL SKAT	C 
		'601','0',	AKTIVER	C
		'606','0',	PASSIVER	C 
		'613','0',	SELVANGIVEN FORMUE	C 
		'618','0',	ANSAT FORMUE	C 
		'625','0',	UDENLANDSK FORMUE	C
		'632','0',	FRIV[RDI	C 
		'651','0',	S[RLIG INDKOMST	C
		'656','23',	FRADRAG S[RLIG INDKOMST	C 
		'663','0',	SELVANGIVEN S[RLIG INDKOMST	C
		'668','2',	ANSAT S[RLIG INDKOMST	C
		'675','5',	S[RLIGT UDBYTTE	C
		'682','0',	TILL[GSSKPL 40%	C
		'687','22',	TILL[GSSKATTEPLIGTIGT BELOB	C 
		'699','0',	AFST]ELSESAFGIFT	C 
		'702','13',	SKATTEPL INDTR]DEN	C
		'707','13',	SKATTEPL OPHOR	C
		'714','13',	KIRKEDATO	C 
		'719','21',	ANTAL DAGE SOMAND	C 
		'726','0',	BEREGNET SLUTSKAT	C
		'733','0',	FORMUESKATTEANDEL	C
		'740','14',	KONTROLLOVSTILL[G INDK	C
		'745','14',	KONTROLLOVSTILL[G FORMUE	C
		'752','14',	KONTROLLOVSTILL[G SI	C
		'764','2',	PRIVATFORBRUG	C
		'771','0',	SLUTOPG ALM INDK	C 
		'776','0',	SLUTOPG SI	C 
		'783','0',	SLUTOPG TI	C 
		'790','0',	SEKRET[R	C 
		'795','0',	STILLING	C 
		'803','2',	STATSSKAT	C
		'808','2',	FORKEPENSIONSBIDRAG	C
		'810','2',	DAGPENGEFOND	C 
		'815','2',	AMTSKOMMUNESKAT	C
		'822','2',	KOMMUNESKAT	C
		'827','2',	KIRKESKAT	C
		'834','2',	FORMUESKAT	C 
		'839','2',	S[RLIG INDKOMSTSKAT	C
		'841','2',	TILL[GSSKAT	C
		'846','2',	S[RLIG UDBYTTEKSAT	C 
		'853','2',	HENSTANDSBELOB	C 
		'865','2',	SAMMENT[LLING	C
		'947','7',	CIRNR	C
		'954','7',	CIRNR	C
		'959','7',	CIRNR	C
		'961','7',	CIRNR	C
		'966','7',	CIRNR	C
		'973','0',	NY A-SKAT	C
		'978','0',		C 
		'980','0',		C 
		'985','0',		C 
		'992','0',		C 
		'997','0',		C 
		'1000','0'	LAST ENTRY 
MEDHJ BCD 7D
FORMUE BCD 7D 
DATE BCD 7
STARTIX BCD D'1923' 
CDSNAME STRG 8
BINULL STRG X'0000' 
YEAR BCD 4D 
* 
FROMRX STRGI (12)2C'KA','KB','KC','KD','KE','KF',		C
		'KG','KH','KI','KJ','KL'
* 
 EJECT
CBD BLK 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
ENDREC BIN
RECFREE  BIN
RECUSE BIN
RECIX BIN 
SPLITBIN BIN
FRAAK STRG 'BG30300D' 
FFORSK STRG 'BG30100D'
FLONOPL STRG 'BG99999D' 
VALFFLD BCDI (1),'0'
CPRKEY STRGI (9),10C
CPRIX BCDI (9),6D 
WORK0 BCDI (4),11D'0' 
* 
* 
* 
* 
* 
 EJECT
TBC BLK 
* 
RKKBAFLG BOOL F DONT MOVE BLOCK OR FLAGS
RKVDUFLG BOOL F 
RKTTPFLG BOOL F 
RKREMOTE BOOL F 
FULL BOOL 
SLUTFLAG BOOL F 
INQ1 BOOL 
INQ2 BOOL 
INQ3 BOOL 
CPRFLAG BOOL
* 
* 
* 
* 
* 
* 
* 
* 
CARDPT BIN
CPRNR BCD 12
SAMSKAT BCD 2 
OMF BCD 2 
BCDWK BCD 6 
WORK5 BCD 6 
CARDBUF STRG 70 
* 
* 
* 
* 
* 
* 
 EJECT
TBB BLK 
* 
TBOOL1 BOOL F USED IN INPUTTEST 
TBOOL2 BOOL F - 
TBOOL3 BOOL F - 
TBOOL4 BOOL F - 
TBOOL5 BOOL F - 
TBOOL6 BOOL F - 
TBOOL7 BOOL F 
TBOOL8 BOOL F - 
TBOOL9 BOOL F - 
TBOOL10 BOOL F -
TERROR BOOL F 
GTRKONV BOOL F
TMALE BOOL F -
* 
* 
* 
* 
* 
* 
WORK6 BCD 3 
WORK7 BCD 13
GSWSTR3 STRG 3
GSWSTR80 STRG 80
TEDBUF STRG 128 
WORK12 STRG 3 
WORK13 STRG 10
WORK14 STRG 10
COPYBUF STRG 85 
FIELD BCDI (12,4),3D
SAVEF STRGI (12,4),12C
* 
* 
	PDIV 
 ENTRY REGGO
 ENTRY REENTC 
	ENTRY	KBVGO
 ENTRY REENKA 
 ENTRY GTPGO
 ENTRY REENGA 
	ENTRY	DC1GO
 ENTRY REEND0 
 ENTRY LPGO 
 ENTRY REENLA 
 ENTRY RAGO 
 ENTRY REENRK 
 ENTRY RAEXIT 
 EXT SETFLG 
 EXT RKGO 
 EXT T1GO 
 EXT DCTASK 
	EXT	VDUKB
	EXT	PRINT
	EXT	SWITCH 
	EXT	GETTID	GET TASK IDENTITY 
 EXT SETKEY 
	ENTRY	OFFLNE	OFFLINE START ADDRESS 
 ENTRY ONLINE 
 EXT DKTEST 
 INCLUDE EQUATE 

	DSC0	DSDC,2	DUMMY REFERENCE T:IO 
****************************************
* 
*     START OF REGISTRATION 
* 
****************************************

REGGO 
 B T1GO 



****************************************
* 
*   START ADDRESS FOR KEYBOARD TASK 
****************************************
KBVGO 
	ADD	NBRKBV,='1'
	CALL	GETTID,TCT01
	SUB	TCT01,=X'4B40' 
*	PERF CONF READ & CONVERT CONFIG DATA
	MOVE	COPNO,CNFHC(TCT01)
 MOVE STRG2,FROMKX(TCT01) GET OFFLINE TASK ID 
 CBE STRG2,=C'  ',KB050 ANY ? 
 CBL STRG2,=C'RA',KB030 
 CBG STRG2,=C'RF',KB030 
 B KB050 R]KONV. DEFAULT OFFLINE
KB030 
 PAUSE		YES, WAIT FOR RESTART 
KB050 
	CALL	VDUKB,TCT01 
	PERF	OFFLNE	BRANCH TO CREDIT CODE
	B	KB050	RETURN TO IBM-3270 EMULATION 



************************************* 
* 
* START ADDRESS FOR R]KONVERTERINGSTASK 
* 
************************************* 

RAGO
 SET GTRKONV
 CALL GETTID,TTASKNR
 SUB TTASKNR,=X'5240' ADJUST TO TASKNBR 
 PERF SETFLG,CBIN2
 PAUSE
RA010 
 B RKGO 
RAEXIT
 PERF RKSWITCH
 B RA010



********************************************* 
* 
*   START ADDRESS FOR GENERAL PRINTER TASK
* 
********************************************* 

GTPGO 
	ADD	NBRGTP,='1'
	CALL	GETTID,TCT01
	SUB	TCT01,=X'4740' 
	MOVE	PRINTER,=X'0001'
*	PERF	CONF 
	CALL	PRINT,TCT01 



************************************************
* 
* START ADDRESS FOR LINE PRINTER TASK 
* 
************************************************

LPGO
 MOVE PRINTER,=X'001' 
 MOVE TCT01,=W'2' 
 CALL PRINT,TCT01 


*********************************************** 
* 
*   START ADDRESS FOR DC-TASK 
* 
********************************* 

DC1GO 
	CALL	DCTASK,MF1CU
* 




***************************** 
* 
*     RESTART OFF LINE TASK 
* 
****************************

OFFLNE PROC 
 MOVE STRG2,FROMKX(TCT01)	GET OFF LINE TASK NAME
 CBE STRG2,=C'  ',RETOFF	ANY OFFLINE ?
 RSTRT STRG2	YES
 PAUSE
RETOFF
 RET
 PEND 
* 



**************************
* 
*     RESTART ON LINE TASK
* 
******************************
ONLINE PROC 
 MOVE GSWSTR2,FROMTX(TTASKNR)	GET ONLINE TASK NAME
 CBE GSWSTR2,=C'  ',RETON	ANY ON LINE ? 
 RSTRT GSWSTR2	YES
 PAUSE
 PERF SETKEY
 PERF DKTEST
RETON 
 RET
 PEND 
* 
* 
************************* 
*      RESTART TASK AFTER RKONV EXIT
************************* 
RKSWITCH PROC 
 MOVE GSWSTR2,FROMRX(TTASKNR) 
 CBE GSWSTR2,=C'  ',RETRK 
 RSTRT GSWSTR2
 PAUSE
RETRK 
 RET
 PEND 
 EJECT
REENTC
REENRK
 MOVE GSWBIN2,=W'2047'
 DSC1 DSSOPO,ON,GSWBIN2 
 DELAY CBIN10 
 MOVE GSWBIN2,=W'2047'
 DSC1 DSSOPO,OFF,GSWBIN2
 DELAY CBIN10 
 B REENTC 
* 
REENKA
REENGA
REENLA
REEND0
 EXIT 

	END

Full view