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

⟦511bc663a⟧ 

    Length: 7916 (0x1eec)
    Notes: pts_type(SC)
    Names: »REMFMT.SC«

Derivation

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

PTS(SC)

	IDENT REMFMT 	03.01.XXX.1
 DDUM KMD08 
 PDIV 
 ENTRY FMTREM 


FMTREM PROC XFMTDEX 
 ATTFMT ATTTAB(XFMTDEX) 
 RET
 PEND 


ATTTAB FTABLE TXTPDU,TXTVEDL,FMTLEVST,FMTLEVVR,		C
		FMTLEVTR,FMTLEVPR 


FMTLEVST FRMT		STAMOPLYSNINGER
 FSL
 FCOPY GSWSTR9 VEDLIGEH/SLETNING/FORESPG
 FILLR ' ',1
 FCOPY ='LEVERAND ' 
 FTAB 24
 FCOPY ='NR'
 FBF GTDYFLG,FLEV010 T=FIRST TIME 
 FBT GTSPGFLG,FLEV005 T=FORESPG 
 FKI 27,MINL=10,MAXL=10,SCHK=1,ME 
 FMEL 'XXXXXXXXXX',GTLEVNR
 FB FLEV100 
FLEV005			FIRST TIME, FORESPG 
 FKI 27,MINL=10,MAXL=10,SCHK=1
 FMEL 'XXXXXXXXXX',GTLEVNR
 FB FLEV100 
FLEV010 
 FTAB 27
 FBF GTSPGFLG,FLEV15
 FKI 27 
FLEV15
 FMEL 'XXXXXXXXXX',GTLEVNR
 FNL
 FCOPY ='NAVN'
 FTAB 6 
 FBT GTSPGFLG,FLEV020 
 FKI 6,MAXL=30,ME,ALPHA 
FLEV020 
 FCOPY GTLEVNVN 
 FNL
 FCOPY ='ADR' 
 FTAB 5 
 FBT GTSPGFLG,FLEV030 
 FKI 5,MAXL=32,ALPHA
FLEV030 
 FCOPY GTLEVADR 
 FNL
 FCOPY ='BY ' 
 FTAB 5 
 FBT GTSPGFLG,FLEV040 
 FKI 5,MAXL=20,ALPHA
FLEV040 
 FCOPY GTLEVBY
 FNL
 FCOPY ='POSTNR ' 
 FBT GTSPGFLG,FLEV050 
 FKI 8,MAXL=4,MINL=4
FLEV050 
 FMEL 'XXXX',GTLEVPNR 
 FTAB 14
 FCOPY ='-DISTR ' 
 FBT GTSPGFLG,FLEV060 
 FKI 21,MAXL=13,ALPHA 
FLEV060 
 FCOPY GTLEVPDI 
 FNL
 FCOPY ='BET.FORM ' 
 FBT GTSPGFLG,FLEV070 
 FKI 10,MAXL=1,ME 
FLEV070 
 FMEL 'X',GTLEVBFO
 FTAB 14
 FCOPY ='GIRONR ' 
 FBT GTSPGFLG,FLEV080 
 FKI 21,MAXL=7,MINL=7,SCHK=1
FLEV080 
 FMEL 'XXXXXXX',GTLEVGI 
 FNL
 FCOPY ='ALT.ADR '
 FBT GTSPGFLG,FLEV090 
 FKI 9,MINL=10,MAXL=10,SCHK=1 
FLEV090 
 FMEL 'XXXXXXXXXX',GTLEVALT 
 FTAB 29
 FMEL 'XXVXXVXX',GTLEVDAT 
 FNL
 FBF GTSWFLAG,FLEV095 
 FCOPY ='SLETNING EJ TILLADT' 
FLEV095 
 FBF GTSPGFLG,FLEV100 
 FBF GTVDUFLG,FLEV100 
 FNL
 FLINK FMTLEVVR 
FLEV100 
 FMEND



FMTLEVVR FRMT		VARIABLE OPLYSNINGER 
 FBT GTVDUFLG,FLEV210 
 FSL
 FCOPY GSWSTR9 FORESPG
 FILLR ' ',1
 FCOPY ='LEVERAND ' 
 FTAB 24
 FCOPY ='NR ' 
 FKI 27 
 FMEL 'XXXXXXXXXX',GTLEVNR
FLEV210 
 FNL
 FCOPY ='SIDSTE UDB ' 
 FMEL ='99E-99E-99',GTREGF(CBIN10)
 FTAB 22
 FMEL ='ZZZVZZZVZZ9E,99-',GTREGF(CBIN11)
 FNL
 FCOPY ='UDB. ]TD ' 
 FTAB 22
 FMEL ='ZZZVZZZVZZ9E,99-',GTREGF(CBIN12)
 FNL
 FCOPY ='N[STE '
 FLINK FVALDAT
 FTAB 17
 FMEL ='99E-99E-99',GTREGF(CBIN13)
 FNL
 FCOPY ='FAKTURA' 
 FLINK FBELOB 
 FTAB 17
 FMEL ='ZZZVZZZVZZ9E,99-',GTREGF(CBIN14)
 FNL
 FCOPY ='KREDITNOTA'
 FLINK FBELOB 
 FTAB 17
 FMEL ='ZZZVZZZVZZ9E,99-',GTREGF(CBIN15)
 FNL
 FCOPY ='SKYLDIGT ' 
 FLINK FBELOB 
 FTAB 17
 FMEL 'ZZZVZZZVZZ9E,99-',GTREGF(CBIN16) 
 FMEND



FMTLEVTR FRMT		REMIT TRANS
 FSL
 FCOPY GSWSTR9
 FILLR ' ',1
 FCOPY ='LEVERAND ' 
 FTAB 24
 FCOPY ='NR'
 FKI 27,MINL=10,MAXL=10,SCHK=1
 FMEL 'XXXXXXXXXX',GTLEVNR
 FNL
 FLINK FVALDAT
 FMEL '99E-99E-99',GTREGF(CBIN7)
 FNL
 FLINK FBELOB 
 FILLR ' ',2
 FMEL 'ZZVZZVZZ9E,99-',GTREGF(CBIN4)
 FNL
 FCOPY ='TEKST '
 FMEL '999',GTREGF(CBIN17)
 FTAB 11
 FCOPY GTLEVTXT 
 FTAB 35
 FMEL 'X',GTLEVTKO
 FNL
 FCOPY ='TEKST OPL '
 FMEL 'BXXXXXXXXXX',GTREGF(CBIN19)
 FMEL 'BXXXXXXXXXX',GTREGF(CBIN20)
 FNL
 FCOPY ='REG.KNT. ' 
 FMEL '9999999999',GTREGF(CBIN1)
 FTAB 23
 FCOPY =']R ' 
 FMEL 'X',GTREGF(CBIN6) 
 FMEND
* 
* 
FMTLEVPR FRMT		SCREEN FORMAT FOR PRINTING 
 FSL
 FCOPY ='UDSKRIFT AF '
 FCOPY ='LEVERAND ' 
 FCOPY ='FIL' 
 FTAB 29
 FMEL '99E-99E-99',CMASKDAT 
 FNL
 FCOPY ='VEDL. '
 FCOPY ='DATO'
 FKI 13,MINL=6,MAXL=6,SCHK=4
 FMEL 'XXE-XXE-XX',GTPRTDAT 
 FNL
 FCOPY ='FRA/TIL NR ' 
 FKI 13,MINL=10,MAXL=10,SCHK=1
 FMEL 'XXXXXXXXXX',GTPRTFRA 
 FKI 25,MINL=10,MAXL=10,SCHK=1
 FMEL 'XXXXXXXXXX',GTPRTTIL 
 FNL
 FCOPY ='ALLE OPLYSNINGER (1) ' 
 FKI 22,MAXL=1
 FMEL 'X',GTLEVBFO
 FNL
 FMEND
* 
* 
FVALDAT FRMT
 FTEXT 'VAL'
 FILLR X'5C',1
 FTEXT 'RDATO'
 FMEND
* 
* 
* 
FBELOB FRMT 
 FTEXT 'BEL'
 FILLR X'5C',1
 FILLR 'B',1
 FMEND
* 
* 
* 
TXTPDU FRMT 
 FSL
 FBT GTSWFLAG,TXTP10
 FCOPY =C'UDSKRIFT AF ' 
TXTP10
 FCOPY =C'TEKSTFIL' 
 FILLR ' ',5
 FMEL '99E-99E-99',CMASKDAT 
 FNL
 FCOPY =C'FRA/TIL-NR:'
 FKI 13,MINL=1,MAXL=3 
 FMEL 'ZZ9',GSWBCD3 
 FILLR '-',1
 FKI 18,MINL=1,MAXL=3 
 FMEL 'ZZ9',GSWBCD4 
 FNL
 FNL
 FBT GTSWFLAG,TXTP20
 FCOPY =C'PRINTENHED?'
 FNL
 FCOPY =C'JOURNALSKRIVER=1,REGNERULLE=2'
 FKI 35,MINL=1,MAXL=1 
 FMEL '9',GSWBCD5 
TXTP20
 FMEND
* 
* 
* 
TXTVEDL FRMT
 FSL
 FCOPY =C'REMIT.TEKST  NR:' 
 FBF GTSWFLAG,TXTV10
 FKI 20,MINL=1,MAXL=3 
TXTV10
 FMEL 'XXX',GSWBCD1 
 FBT GTSWFLAG,TXTV20
 FNL	 
 FNL
 FCOPY =C'TEKST:' 
 FKI 7,MINL=1,MAXL=22,ALPHA 
 FCOPY GTLEVTXT 
 FNL
 FNL
 FCOPY =C'KODE:'
 FKI 7,MINL=1,MAXL=2,NUM
 FMEL 'X',GTTXTTKO
TXTV20
 FMEND
 END

Full view