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

⟦bd90b5ae1⟧ 

    Length: 23912 (0x5d68)
    Notes: pts_type(SC)
    Names: »LOG.SC«

Derivation

└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
    └─⟦this⟧ »NJ-AMT/LOG.SC« 
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
    └─⟦this⟧ »NJ-AMT/LOG.SC«

PTS(SC)

 IDENT LOG 831031 EV
 DDUM KMD08 
 PDIV 
 ENTRY LOGOPN 
 ENTRY LOGCLS 
 ENTRY LOGSPG 
 ENTRY WRITLO 
 ENTRY LOWRIT 



 EXT SPCLRA 



 INCLUDE EQUATE 
 EJECT
LOGOPN PROC 
LOPN00
 TBF CSPOOL,LOPN90 SPOOLING ALLOWED?
 SET SPPROMPT 
 ATTFMT LOGFRM07
 PERF SPCLRA
 SET TSPOOL 
 CBE SPBINW2,CBIN3,LOPN80 
 CBNG SPBINW2,CBIN0,LOPN00
 CLEAR TSPOOL CLEAR IF NOT SLUT 
LOPN80
 MOVE GSWBIN9,=W'-1'
 DSC1 ICO,X'0B',GSWBIN9 SET TIMEOUT 
 DSC1 ICI,X'0B',GSWBIN9 
LOPN90
 CMP CBIN0,CBIN0
 RET
 PEND 



LOGCLS PROC 
 CMP CBIN0,CBIN0
 RET
 PEND 



LOGSPG PROC 
 CMP CBIN0,CBIN0
 RET
 PEND 
 EJECT
WRITLO PROC P 
 TBF TSPOOL,WRITLO70 SPOOLING ALLOWED?
WRITLO02
 TBF CDKOFF,WRITLO05 DISK STOPPED?
 DELAY CBIN2 YES, WAIT A BIT
 B WRITLO02 AND TRY AGAIN 
WRITLO05
 CBE P,=W'99',WRITL099 FORCE FORM FEED
 PERF OVSKR 
 CBNE CBIN0,P,WRITLO10
 PERF LOED1 
 BNOK WRITLO70
 PERF LOED2 
 BNOK WRITLO70
 PERF LOED3 
 BNOK WRITLO70
 PERF LOED4 
 BNOK WRITLO70
 B WRITLO90 
WRITLO10
 MOVE GSWBIN9,CBIN0 
 CBE P,=W'31',WRITLO20
 EDSUB GTEJBUF,GSWBIN9,FTABEJ(P)
 B WRITLO30 
WRITLO20
 MOVE GSWBIN9,CBIN6 
 EDSUB GTEJBUF,GSWBIN9,GTSTRFMT 
WRITLO30
 PERF LOWRIT,CBIN2
 BNOK WRITLO70
 CBNE P,=W'27',WRITLO80 NYT MASKINNR? 
WRITL099
 MOVE LINECNT,=D'0' FORCE NEW HEADER
 B WRITLO80 
WRITLO70
 CLEAR TSPOOL 
 CMP CBIN0,CBIN1
 B WRITLO90 
WRITLO80
 CMP CBIN0,CBIN0
WRITLO90
 RET
 PEND 



OVSKR PROC
 CBG LINECNT,=D'2',OVSKR90
 ADD PGCNT,=D'1'
 MOVE LINECNT,=D'45' NBR OF LINES PR PAGE 
 MOVE GSWBIN9,CBIN0 
 EDSUB GTEJBUF,GSWBIN9,FMOVSK1
 PERF LOWRIT,CBIN2
 MOVE GSWBIN9,CBIN0 
 EDSUB GTEJBUF,GSWBIN9,FMOVSK2
 PERF LOWRIT,CBIN2
 MOVE GSWBIN9,CBIN0 
 EDSUB GTEJBUF,GSWBIN9,FMOVSK3
 PERF LOWRIT,CBIN2
OVSKR90 
 RET
 PEND 



LOWRIT PROC FN
 CBE GSWBIN9,CBIN0,LOWR90 
 XCOPY GTEJBUF,CBIN0,CBIN2,CTID(TTASKNR),CBIN0
 XCOPY GTEJBUF,CBIN2,CBIN2,FN,CBIN0 
 XCOPY GTEJBUF,CBIN4,CBIN2,GSWBIN9,CBIN0
 MOVE GSWBIN9,=C'S0'
LOWR00
 RWRITE ICO,GTEJBUF,GSWBIN9 
 BERR LOWR00
LOWR01
 MOVE GSWBIN8,=W'64'
 READ ICI,GTSTRFMT,GSWBIN8
 BERR LOWR01
 MOVE GSWSTR1,GTSTRFMT EXTRACT ERRORCODE
 CBE GSWSTR1,=C'0',LOWR10 NO ERROR
 BL LOWR20
 MOVE GSWBCD1,GSWSTR1 
 MOVE GSWBIN9,GSWBCD1 
 EDWRT KJTAPE,SPERRTAB(GSWBIN9) 
 B LOWRNOK
LOWR10
 CBNE CBIN2,FN,LOWR90 NOT PRINT FUNCTION
 XCOPY GSWSTR1,CBIN0,CBIN1,GTEJBUF,CBIN6 FORM CTRL CHR
 CBE GSWSTR1,=C'0',LOWR80 
 CBE GSWSTR1,=C'+',LOWR90 
 CBE GSWSTR1,=C'1',LOWR90 
 SUB LINECNT,=D'1'
 B LOWR90 
LOWR20
 CBNE GSWSTR1,=C' ',LOWRNOK INFO ONLY?
 EDWRT KJTAPE,LOGFRM03
 B LOWR01 
LOWR80
 SUB LINECNT,=D'2'
LOWR90
 MOVE GTEJBUF,CBLANKS 
 CMP CBIN0,CBIN0
 RET
* 
* 

LOWRNOK			ERROR 
 MOVE GTEJBUF,CBLANKS 
 CMP CBIN1,CBIN0
 RET
 PEND 
 EJECT
LOED1 PROC
 MOVE GSWBIN9,CBIN0 
 EDSUB GTEJBUF,GSWBIN9,FTBL01(GTREGDEX) 
 PERF LOWRIT,CBIN2
 RET
 PEND 

LOED2 PROC
 MOVE GSWBIN9,CBIN0 
 EDSUB GTEJBUF,GSWBIN9,FTBL02(GTREGDEX) 
 PERF LOWRIT,CBIN2
 RET
 PEND 

LOED3 PROC
 MOVE GSWBIN9,CBIN0 
 EDSUB GTEJBUF,GSWBIN9,FTBL03(GTREGDEX) 
 PERF LOWRIT,CBIN2
 RET
 PEND 

LOED4 PROC
 MOVE GSWBIN9,CBIN0 
 MOVE GSWBIN10,=W'23' 
 MOVE GSWBIN11,=W'24' 
 EDSUB GTEJBUF,GSWBIN9,FTBL04(GTREGDEX) 
 PERF LOWRIT,CBIN2
 RET
 PEND 
 EJECT
LOGFRM03 FRMT 
 FILLR '0',2
 FCOPY GTSTRFMT 
 FMEND


LOGFRM07 FRMT 
 FSL
 FILLR X'5C',1
 FTEXT 'NSKES EL.JOURNAL?'
 FNL
 FTEXT 'SEND=JA, ANDET=NEJ' 
 FNL
 FKI 1
 FCOPY GSWSTR1
 FMEND
 EJECT
FTBL01 FTABLE L1FMT01,	TRANS 1,	C 
		L1FMT02,	TRANS 2,	C 
		L1FMT03,		C 
		L1FMT04,		C 
		L1FMT02,		C 
		L1FMT08,		C 
		L1FMT02,		C 
		L1FMT08,		C 
		L1FMT08,		C 
		L1FMT02,		C 
		L1FMT12 



FTBL02 FTABLE L2FMT00,		C 
		L2FMT00,		C 
		L2FMT00,		C 
		L2FMT04,		C 
		L2FMT00,		C 
		L2FMT06,		C 
		L2FMT00,		C 
		L2FMT08,		C 
		L2FMT08,		C 
		L2FMT00,		C 
		L2FMT00 



FTBL03 FTABLE L3FMT00,		C 
		L3FMT00,		C 
		L3FMT00,		C 
		L3FMT00,		C 
		L3FMT00,		C 
		L3FMT00,		C 
		L3FMT00,		C 
		L3FMT08,		C 
		L3FMT08,		C 
		L3FMT00,		C 
		L3FMT00 



FTBL04 FTABLE L4FMT00,		C 
		L4FMT00,		C 
		L4FMT00,		C 
		L4FMT00,		C 
		L4FMT00,		C 
		L4FMT00,		C 
		L4FMT00,		C 
		L4FMT08,		C 
		L4FMT08,		C 
		L4FMT00,		C 
		L4FMT00 



FTABEJ FTABLE EJFM01,	KVIT	C
		EJFM02,	KONTOKORT	C 
		EJFM03,	ASTERIX	C 
		EJFM04,	KASSE]BNING	C 
		EJFM05,		C
		EJFM06,		C
		EJFM07,		C
		EJFM08,		C
		EJFM09,	KASSELUKNING,	C 
		EJFM10,		C
		EJFM11,		C
		EJFM12,	START TEST	C
		EJFM13,	SLUT TEST	C 
		EJFM14,	DISK SKIFT	C
		EJFM15,	VARIOUS GSWSTR20	C
		EJFM16,	ADM	C 
		EJFM17,	VARIOUS ERROS NN XXXX NN	C
		EJFM18,	KASSELUKNING	C
		EJFM19,		C
		EJFM20,		C
		EJFM21,		C
		EJFM22,		C
		EJFM23,		C
		EJFM24,		C
		EJFM25,		C
		EJFM26,	CYKLING	C 
		EJFM27,		C
		EJFM28,	START SUM	C 
		EJFM29,	SUM	C 
		EJFM30,	AUTOMATPOSTERINGER	C
		EJFM31,	GTSTRFMT	C
		EJFM32,	BLANK LINE	C
		EJFM33,	T[LLER/DEBET/KREDIT	C 
		EJFM34,	EDB COUNTERS	C
		EJFM35,	EDB COUNTERS	C
		EJFM36,	EDB COUNTERS	C
		EJFM37,	EDB COUNTERS	C
		EJFM38,	BEV[GELSE	C 
		EJFM39,	ULTIMO	C
		L2FMT00	END 
 EJECT

* NOTE: FIRST 6 CHRS IN LINE ARE RESERVED FOR 
* INTERTASK COMMUNICATION 
* - TASKID   XX 
* - FUNCTION BIN
* - LENGTH   BIN

L2FMT00 FRMT
 FMEND



L3FMT00 FRMT
 FMEND



L4FMT00 FRMT
 FMEND



L1FMT01 FRMT
 FLINK LOSUBST EXP/C/TR 
 FMEL '9999999999',GTDUPF(CBIN1) REGKONTONR 
 FILLR ' ',1
 FMEL 'XXXXXXXXXX',GTDUPF(CBIN2) CPR/CIR/DEB
 FILLR ' ',1
 FMEL 'XXXXXXXXXX',GTDUPF(CBIN10) YDELSESMODT 
 FMEL 'ZZVZZZVZZ9,99-',GTDUPF(CBIN4) AMOUNT 
 FCOPY TTDBKRM
 FILLR ' ',30 
 FMEL 'XXXXXX',GTDUPF(CBIN7) VALOR
 FMEL 'BBX',GTDUPF(CBIN8) BFO 
 FMEL 'BBX',GTDUPF(CBIN6) RE] 
 FMEL 'BXX',GTDUPF(CBIN3) BET ART 
 FMEND



L1FMT02 FRMT
 FLINK LOSUBST
 FMEL '9999999999',GTDUPF(CBIN1) REGKONTONR 
 FILLR ' ',1
 FMEL 'XXXXXXXXXX',GTDUPF(CBIN2) CPR/CIR/DEB
 FILLR ' ',11 
 FMEL 'ZZVZZZVZZ9,99-',GTDUPF(CBIN4)
 FCOPY TTDBKRM
 FILLR ' ',41 
 FMEL 'Z',GTDUPF(CBIN6) 
 FMEND



L1FMT03 FRMT
 FLINK LOSUBST
 FILLR ' ',11 
 FMEL 'XXXXXXXXXX',GTDUPF(CBIN2) CPR/CIR/DEB
 FILLR ' ',11 
 FMEL 'ZZVZZZVZZ9,99-',GTDUPF(CBIN4)
 FCOPY TTDBKRM
 FILLR ' ',30 
 FMEL 'ZZZZZZ',GTDUPF(CBIN7) VALOR
 FMEL 'BBX',GTDUPF(CBIN8) BFO 
 FMEL 'BBX',GTDUPF(CBIN11) P]L ]R 
 FMEL 'BXX',GTDUPF(CBIN3) BET ART 
 FMEL 'BXB',GTDUPF(CBIN12) RENTE/GEBYR
 FMEL 'XXX',GTDUPF(CBIN15) DEB. LBNR
 FMEND



L1FMT04 FRMT
 FLINK LOSUBST
 FILLR ' ',11 
 FMEL 'XXXXXXXXXX',GTDUPF(CBIN2)
 FILLR ' ',11 
 FMEL 'ZZVZZZVZZ9,99-',GTDUPF(CBIN4)
 FCOPY TTDBKRM
 FILLR ' ',30 
 FMEL 'ZZZZZZ',GTDUPF(CBIN7)
 FILLR ' ',6
 FMEL 'BXX',GTDUPF(CBIN3) 
 FMEND



L2FMT04 FRMT
 FBZ GTUSED(CBIN10),L2FMT04A
 FTAB 42
 FTEXT '17:'
 FMEL 'XX',GTDUPF(CBIN10) 
L2FMT04A
  FBZ GTUSED(CBIN11),L2FMT04B 
 FTAB 62
 FTEXT '18:'
 FMEL 'XX',GTDUPF(CBIN11) 
L2FMT04B FBZ GTUSED(CBIN12),L2FMT04C
 FTAB 68
 FTEXT '19:'
 FMEL 'XX',GTDUPF(CBIN12) 
L2FMT04C
 FBZ GTUSED(CBIN13),L2FMT04D
 FTAB 74
 FTEXT '20:'
 FMEL 'XX',GTDUPF(CBIN13) 
L2FMT04D
L2FMT04X
 FMEND



L2FMT06 FRMT
 FBZ GTUSED(CBIN18),L2FMT06A
 FTAB 42
 FTEXT '37:'
 FMEL 'ZZZZZZ',GTDUPF(CBIN18) 
L2FMT06A
 FBZ GTUSED(CBIN19),L2FMT06B
 FTAB 52
 FTEXT '38:'
 FMEL 'ZZZZZZ',GTDUPF(CBIN19) 
L2FMT06B
 FBZ GTUSED(CBIN16),L2FMT06C
 FTAB 62
 FTEXT '27:'
 FMEL 'ZZ',GTDUPF(CBIN16) 
L2FMT06C
 FBZ GTUSED(CBIN11),L2FMT06D
 FTAB 68
 FTEXT '22:'
 FMEL 'ZZ',GTDUPF(CBIN11) 
L2FMT06D
 FBZ GTUSED(CBIN17),L2FMT06E
 FTAB 74
 FTEXT '46:'
 FMEL 'Z',GTDUPF(CBIN17)
L2FMT06E
 FMEND


L1FMT08 FRMT
 FLINK LOSUBST
 FMEL '9999999999',GTDUPF(CBIN1) REGKTONR 
 FILLR ' ',1
 FMEL '9999999999',GTDUPF(CBIN2) CPR/CIR/DEB
 FILLR ' ',1
 FMEL 'XXXXXXXXXX',GTDUPF(CBIN10) YDELSESMODT 
 FMEL 'ZZVZZZVZZ9,99-',GTDUPF(CBIN4)
 FCOPY TTDBKRM
 FILLR ' ',1
 FMEL 'XXXXXX',GTDUPF(CBIN12) FAKTDATO
 FMEL 'PPXXXXXXXX',GTDUPF(CBIN13) 
 FMEL 'XXXXXXXXXX',GTDUPF(CBIN14) 
 FMEL 'XXXX',GTDUPF(CBIN15) 
 FILLR ' ',1
 FMEL 'XXXXXX',GTDUPF(CBIN7) VALOR
 FMEL 'BXX',GTDUPF(CBIN8) 
 FMEL 'BBX',GTDUPF(CBIN6) REGN ]R 
 FMEL 'BXX',GTDUPF(CBIN3) BETART
 FMEND



L2FMT08 FRMT
 FLINK L2FMT06
 FBZ GTUSED(CBIN20),L2FMT08A
 FTAB 80
 FTEXT '90:'
 FCOPY GTFELT90(CBIN1)
L2FMT08A
 FMEND



L3FMT08 FRMT
 FBZ GTUSED(CBIN21),L3FMT08A
 FTAB 42
 FTEXT '91:'
 FCOPY GTFELT90(CBIN2)
L3FMT08A
 FBZ GTUSED(CBIN22),L3FMT08B
 FTAB 80
 FTEXT '92:'
 FCOPY GTFELT90(CBIN3)
L3FMT08B
 FMEND



L4FMT08 FRMT
 FBZ GTUSED(GSWBIN10),L4FMT08A
 FTAB 42
 FTEXT '93:'
 FCOPY GTFELT90(CBIN4)
L4FMT08A
 FBZ GTUSED(GSWBIN11),L4FMT08B
 FTAB 80
 FTEXT '94:'
 FCOPY GTFELT90(CBIN5)
L4FMT08B
 FMEND



L1FMT12 FRMT
 FILLR ' ',6
 FILLR '0',2
 FLINK FLBNR
 FILLR ' ',3
 FMEL '99B',GTREGNR 
 FMEND



LOSUBST FRMT
 FILLR ' ',6
 FILLR '0',2
 FLINK FLBNR
 FILLR ' ',1
 FCOPY TTCYM
 FILLR ' ',1
 FMEL '99B',GTREGNR 
 FMEND
 EJECT
EJFM01 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FLINK FLBNR
 FCOPY ='  KVIT'
 FMEND



EJFM02 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FLINK FLBNR
 FILLR ' ',6
 FCOPY ='KONTOKORT' 
 FILLR ' ',8
 FBF GTSLDFLG,EJFM02EX
 FMEL 'B*.***.***.**9.99-',TTKTSLD
EJFM02EX
 FMEND



EJFM03 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FILLR '*',50 
 FMEND



EJFM04 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FCOPY ='VERS.NR.'
 FILLR ' ',2
 FCOPY ='DAGS-DATO' 
 FILLR ' ',2
 FCOPY ='POST-DATO' 
 FILLR ' ',2
 FCOPY ='MASKIN NR' 
 FCOPY =' EKS.LBNR' 
 FMEND



EJFM05 FRMT 
 FILLR ' ',8
 FMEL '999999999',CVERSNR 
 FILLR ' ',2
	FMEL	'99E-99E-99',CMASKDAT 
	FILLR	' ',3
	FMEL	'99E-99E-99',GTDATO 
 FILLR ' ',4
	FMEL	'999',GTMSK 
	FILLR	' ',7
	FMEL	'***99',TTSTLBNR
 FMEND



EJFM06 FRMT 
 FILLR ' ',8
 FCOPY ='VERSURKONTONR' 
 FILLR ' ',4
 FMEL '999V99V999V99',TVERSUR 
 FMEND



EJFM07 FRMT 
 FILLR ' ',8
 FCOPY ='KASSEKONTONR'
 FILLR ' ',5
 FMEL '999V99V999V99',TTCASHAC
 FMEND



EJFM08 FRMT 
 FILLR ' ',8
 FCOPY ='PRIMO KASSE' 
 FILLR ' ',12 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',TTSTCASH
 FMEND



EJFM09 FRMT 
 FILLR ' ',8
 FILLR '*',1
 FILLR ' ',18 
 FCOPY ='KASSELUKNING'
 FILLR ' ',18 
 FILLR '*',1
 FMEND



EJFM10 FRMT 
 FILLR ' ',8
 FILLR '*',1
 FILLR ' ',2
 FCOPY ='T[LLER'
 FILLR ' ',14 
 FCOPY ='DEBET' 
 FILLR ' ',14 
 FCOPY ='KREDIT'
 FCOPY =' *'
 FMEND



EJFM11 FRMT 
 FILLR ' ',10 
 FMEL 'ZZ',GTWBCD1
 FILLR ' ',6
 FMEL 'ZZZVZZZVZZZVZZ9,99-',TTACC(GSWBIN5,CBIN2)
 FILLR ' ',2
 FMEL 'ZZZVZZZVZZZVZZ9,99-',TTACC(GSWBIN5,CBIN1)
 FMEND



EJFM12 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FCOPY ='  START TEST'
 FMEND



EJFM13 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FCOPY ='  SLUT TEST' 
 FMEND



EJFM14 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FCOPY ='DISK SKIFT'
 FMEND



EJFM15 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FCOPY GSWSTR20 
 FMEND



EJFM16 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FMEL '999E-99E-999E-99',GTDUPF(CBIN1)
 FMEL 'ZZZZ',GTDUPF(CBIN2)
 FILLR ' ',1
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GTDUPF(CBIN4) 
 FILLR ' ',2
 FCOPY ='ADM  ' 
 FMEL 'ZZ',GTDUPF(CBIN5)
 FMEND



EJFM17 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FMEL '99B',GTWBCD2 
 FCOPY GSWSTR9
 FILLR ' ',1
 FMEL '99B',GTWBCD1 
 FMEND



EJFM18 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FCOPY GTTESTMK 
 FMEL '999',GTMSK 
 FILLR ' ',2
 FMEL '99V99V99',GTDATO 
 FILLR ' ',2
 FMEL '999',CKMDNR
 FILLR ' ',2
 FMEL '****9',TTSTLBNR
 FILLR '-',1
 FLINK FLBNR
 FILLR ' ',2
 FCOPY GSWSTR9
 FILLR ' ',2
 FCOPY GSWSTR20 
 FMEND



EJFM19 FRMT 
 FILLR ' ',8
 FILLR '*',40 
 FILLR '*',41 
 FMEND



EJFM20 FRMT 
 FILLR ' ',8
 FCOPY ='KONTONR' 
 FILLR ' ',8
 FCOPY ='T[LLER'
 FILLR ' ',15 
 FCOPY ='NETTO' 
 FILLR ' ',14 
 FCOPY ='DEBET' 
 FILLR ' ',12 
 FCOPY ='KREDIT'
 FMEND



EJFM21 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FMEL '999E-99E-999E-99',GTDUPF(CBIN1)
 FILLR ' ',3
 FMEL 'B99',GTWBCD1 
 FILLR ' ',4
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GTDUPF(CBIN4) 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',C12ACC(GSWBIN5,CBIN2) 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',C12ACC(GSWBIN5,CBIN1) 
 FMEND



EJFM22 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FMEL 'XXXE-XXE-XXXE-XX',GSWBCD6
 FILLR ' ',1
 FCOPY GSWSTR9
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GSWBCD7 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GSWBCD7 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GSWBCD7 
 FMEND



EJFM23 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FCOPY GTTESTMK 
 FMEL '999',GTMSK 
 FILLR ' ',2
 FMEL '99V99V99',GTDATO 
 FILLR ' ',2
 FCOPY ='BEHOLDNINGST[LLERE'
 FILLR ' ',2
 FCOPY GSWSTR20 
 FMEND



EJFM24 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FCOPY ='T[LLER'
 FILLR ' ',4
 FCOPY ='KONTONR' 
 FILLR ' ',11 
 FCOPY ='BEV.PERIODE' 
 FILLR ' ',14 
 FCOPY ='SALDO' 
 FMEND



EJFM25 FRMT 
 FILLR ' ',10 
 FMEL 'ZZ',GTWBCD1
 FILLR ' ',3
 FMEL 'XXXE-XXE-XXXE-XX',CBACC(GSWBIN3,CBIN1) 
 FILLR ' ',1
 FMEL 'ZZZVZZZVZZZVZZ9,99-',CBACC(GSWBIN3,CBIN2)
 FMEL 'ZZZVZZZVZZZVZZ9,99-',CBACC(GSWBIN3,CBIN3)
 FMEND



EJFM26 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FILLR ' ',5
 FBF TTCY1FLG,EJFM2601
 FCOPY ='ARKIV' 
 FILLR ' ',2
 FMEL '999E-99E-999E-99',GTDUPF(CBIN9)
 FB EJFM2602
EJFM2601
 FILLR ' ',20 
EJFM2602
 FILLR ' ',4
 FCOPY GSWSTR9
 FMEL 'ZZZVZZZVZZZVZZ9,99-',TTCYKTOT
 FMEND



EJFM27 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FILLR ' ',38 
 FCOPY ='MASKIN NR' 
 FILLR ' ',1
 FMEL '999',GTMSK 
 FMEND



EJFM28 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FCOPY ='START' 
 FCOPY =' SUM'
 FMEND



EJFM29 FRMT 
 FILLR ' ',3
 FMEL '999',GTMSK MASKINNR
 FILLR ' ',2
 FMEL '99V99V99',GTDATO 
 FILLR ' ',1
	FMEL	'****9',GTSUMST 
	FCOPY	='-' 
 FLINK FLBNR
  FILLR  ' ',1
	FCOPY	='TOTAL   '
	FMEL	'*.***.***.**9,99+',GTSUMCNT
	FILLR	' ',2
 FMEND



EJFM30 FRMT 
 FILLR ' ',6
 FILLR '0',2
 FTEXT '** AUTOMATPOSTERINGER **' 
 FMEND



EJFM31 FRMT 
* DUMMY, FORMAT IS FOUND IN GTSTRFMT
* NB!!!!!!!  ONLY HANDLES 1. LINE OF FORMAT 
 FMEND



EJFM32 FRMT 
 FILLR ' ',40 
 FMEND



EJFM33 FRMT 
 FILLR ' ',12 
 FMEL '99',GTWBCD1
 FILLR ' ',4
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GTDUPF(CBIN4) 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',C12ACC(GSWBIN5,CBIN2) 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',C12ACC(GSWBIN5,CBIN1) 
 FMEND



EJFM34 FRMT		EDB COUNTERS 
 FILLR ' ',6
 FILLR '0',2
 FILLR ' ',17 
 FMEL 'ZZ',GTWBCD1
 FILLR ' ',4
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GTDUPF(CBIN4) 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',TTACC(GSWBIN5,CBIN2)
 FMEL 'ZZZVZZZVZZZVZZ9,99-',TTACC(GSWBIN5,CBIN1)
 FMEND



EJFM35 FRMT		TOTAL
 FILLR ' ',6
 FILLR '0',2
 FILLR ' ',17 
 FTEXT 'TOTAL ' 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GTDUPF(CBIN4) 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GTREGF(CBIN2) 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GTREGF(CBIN1) 
 FMEND



EJFM36 FRMT		SUPL 
 FILLR ' ',6
 FILLR '0',2
 FILLR ' ',17 
 FTEXT 'SUPL  ' 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GTDUPF(CBIN5) 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',TTACC(CBIN8,CBIN2)
 FMEL 'ZZZVZZZVZZZVZZ9,99-',TTACC(CBIN8,CBIN1)
 FMEND



EJFM37	FRMT		KOR
 FILLR ' ',6
 FILLR '4',2
 FILLR ' ',17 
 FTEXT 'KOR'
 FILLR ' ',22 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',TTACC(CBIN7,CBIN2)
 FMEL 'ZZZVZZZVZZZVZZ9,99-',TTACC(CBIN7,CBIN1)
 FMEND



EJFM38 FRMT		BEV
 FILLR ' ',6
 FILLR '4',2
 FILLR ' ',17 
 FTEXT 'BEV   ' 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GTDUPF(CBIN4) 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GTDUPF(CBIN5) 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',GTDUPF(CBIN6) 
 FMEND



EJFM39 FRMT		ULTIMO 
 FILLR ' ',6
 FILLR '2',2
 FILLR ' ',17 
 FTEXT 'ULTIMO' 
 FMEL 'ZZZVZZZVZZZVZZ9,99-',TTCASH
 FMEND






FLBNR FRMT
 FBT GTLOKSPG,FLBNR10 
 FMEL '****9',TTLBNR
 FB FLBNR20 
FLBNR10 
 FMEL '****9',GTLBNR
FLBNR20 
 FMEND
 EJECT
FMOVSK1 FRMT
 FILLR ' ',6
 FILLR '1',2
 FTEXT '0080 ELEKTRONISK JOURNAL  UDSKR.' 
 FCOPY ='DATO ' 
 FMEL '999999',CMASKDAT 
 FTEXT ' POSTERINGS'
 FCOPY ='DATO ' 
 FMEL '999999',GTDATO 
 FTEXT '  MASK.NR.' 
 FMEL '999',GTMSK 
 FILLR ' ',22 
 FTEXT 'SIDE '
 FMEL '9999',PGCNT
 FMEND

FMOVSK2 FRMT
 FILLR ' ',6
 FILLR '0',2
 FTEXT 'EKSP. C TR  ' 
 FCOPY ='KONTONR' 
 FILLR ' ',2
 FCOPY ='CPR/CIR/DEB' 
 FILLR ' ',2
 FCOPY ='YDELSESM'
 FILLR ' ',5
 FCOPY =X'42454C5C42' 
 FILLR ' ',4
 FCOPY ='D/K' 
 FILLR ' ',1
 FCOPY ='FAKTD  FAKTNR  L.KONTO  TXT '
 FCOPY ='VAL' 
 FILLR X'5C',1
 FCOPY ='R BFO ]R BA R DB'
 FMEND

FMOVSK3 FRMT
 FILLR ' ',8
 FMEND
 EJECT
SPERRTAB FTABLE SPFMT1,SPFMT2,SPFMT3,SPFMT4,		C 
		SPFMT5,SPFMT6,SPFMT7,SPFMT8,		C 
		SPFMT9

SPFMT1 FRMT 
 FILLR '0',2
 FTEXT 'ASSIGNFEJL P] SPOOLFILE'
 FMEND

SPFMT2 FRMT 
 FILLR '0',2
 FTEXT 'I/O FEJL P] SPOOLFILE'
 FMEND

SPFMT3 FRMT 
 FILLR '0',2
 FTEXT 'DISK FYLDT OP. START UDSKRIVNING' 
 FMEND

SPFMT4 FRMT 
 FILLR '0',2
 FTEXT 'FEJL I INTERTASKCOMM.'
 FMEND

SPFMT5 FRMT 
 FILLR '0',2
 FTEXT 'SPOOLTASK UDEFINERET' 
 FMEND

SPFMT6 FRMT 
 FILLR '0',2
 FTEXT 'FUNKTION UDEFINERET'
 FMEND

SPFMT7 FRMT 
 FILLR '0',2
 FMEND

SPFMT8 FRMT 
 FILLR '0',2
 FMEND

SPFMT9 FRMT 
 FILLR '0',2
 FMEND

 END
!!~

Full view