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

⟦9ffd4ccd7⟧ 

    Length: 10902 (0x2a96)
    Notes: pts_type(SC)
    Names: »REMFMT.SC«

Derivation

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

PTS(SC)

	IDENT REMFMT 	03.01.XXX.1
 DDUM KMD08 
 PDIV 
 ENTRY FMTREM 
 ENTRY FMREMP 
 EXT FMOVE

* 
FMREMP PROC PFMTDEX 
 CALL FMOVE,EDITBUF,REMPTAB(PFMTDEX)
 RET
 PEND 
* 
REMPTAB FTABLE FBDTCHK,FBDTGIR,FBDTSAM,FBDTC821 

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=1,MAXL=10,SCHK=7,ME
 FMEL 'XXXXXXXXXX',GTLEVNR
 FB FLEV100 
FLEV005			FIRST TIME, FORESPG 
 FKI 27,MINL=1,MAXL=10,SCHK=7 
 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=7 
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=7
 FMEL 'XXXXXXXXXX',GTDUPF(CBIN2)
 FNL
 FLINK FVALDAT
 FMEL 'B99E-99E-99',GTDUPF(CBIN7) 
 FNL
 FLINK FBELOB 
 FILLR ' ',2
 FMEL 'ZZVZZZVZZ9E,99-',GTDUPF(CBIN4) 
 FNL
 FCOPY ='TEKST '
 FMEL 'ZZ9',GTDUPF(CBIN15)
 FTAB 11
 FCOPY GTLEVTXT 
 FTAB 35
 FMEL '9',GTDUPF(CBIN21)
 FNL
 FCOPY ='TEKST '
 FCOPY ='OPL '
 FMEL 'BXXXXXXXXXX',GTDUPF(CBIN13)
 FMEL 'BXXXXXXXXXX',GTDUPF(CBIN14)
 FNL
 FCOPY ='REG.KNT. ' 
 FMEL '9999999999',GTDUPF(CBIN1)
 FTAB 23
 FCOPY =']R ' 
 FMEL 'X',GTDUPF(CBIN6) 
 FNL
 FNL
 FMEL 'ZZZZ9',GTDUPF(CBIN22)
 FMEND
* 
* 
FMTLEVPR FRMT		SCREEN FORMAT FOR PRINTING 
 FSL
 FCOPY ='UDSKRIFT ' 
 FCOPY ='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=7,MAXL=10,SCHK=7 
 FMEL 'XXXXXXXXXX',GTPRTFRA 
 FKI 25,MINL=7,MAXL=10,SCHK=7 
 FMEL 'XXXXXXXXXX',GTPRTTIL 
 FNL
 FCOPY ='ALLE OPLYSNINGER (1) ' 
 FKI 22,MAXL=1
 FMEL 'X',GTLEVBFO
 FNL
 FCOPY ='NULSTIL SALDO (1) '
 FKI 22,MAXL=1
 FMEL 'X',GTLEVNR 
 FNL
 FMEND
* 
* 
FVALDAT FRMT
 FTEXT X'56414C5C52'
 FCOPY ='DATO'
 FMEND
* 
* 
* 
FBELOB FRMT 
 FTEXT X'42454C5C42'
 FMEND
* 
* 
* 
TXTPDU FRMT 
 FSL
 FBT GTSWFLAG,TXTP10
 FCOPY =C'UDSKRIFT '
 FCOPY ='AF ' 
TXTP10
 FCOPY =C'TEKST ' 
 FCOPY =C'FIL'
 FILLR ' ',4
 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 ='PRINTER=1,RULLE=2' 
 FKI 20,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
* 
	EJECT
*  FORMATS TO BE MOVED INTO EDIT BUFFER 
* 
* 

********************* BUNDTCHECK ******************** 
FBDTCHK FRMT
 FILLR '+',2
 FTEXT X'14' (1) TEXT1
 FTEXT X'15' (2) INFO1
 FNL
 FILLR ' ',21 
 FTEXT X'0F' (3) AMOUNT1
 FNL
 FILLR ' ',53 
 FMEL '99V99V99',GTPRTDAT 
 FILLR ' ',29 
 FTEXT X'0F' (4) TOTAL AMOUNT 
 FNL
 FNL
 FTEXT X'14' (5) TEXT2
 FTEXT X'15' (6) INFO2
 FNL
 FILLR ' ',21 
 FTEXT X'0F' (7) AMOUNT2
 FNL
 FNL
 FILLR ' ',51 
 FTEXT X'1E' (8) LEVNAVN
 FNL
 FTEXT X'14' (9) TEXT3
 FTEXT X'15' (10) INFO3 
 FILLR ' ',10 
 FTEXT X'20' (11) LEVADR
 FNL
 FILLR ' ',21 
 FTEXT X'0F' (12) AMOUNT3 
 FILLR ' ',15 
 FTEXT X'14' (13) LEVBY 
 FNL
 FILLR ' ',51 
 FTEXT X'04' (14) POSTNR
 FILLR ' ',2
 FTEXT X'0D' (15) POSTDIST
 FNL
 FNL
 FILLR ' ',18 
 FTEXT X'0F' (16) AMOUNT
 FMEND
*************** BUNDTCHECK HJORRING *************** 
FBDTC821 FRMT 
 FILLR '+',2
 FNL	 
 FNL
 FNL
 FNL
 FNL
 FNL
 FNL
 FNL
 FNL
 FNL
 FILLR ' ',10 
 FMEL '99V99V99',GTPRTDAT 
 FILLR ' ',34 
 FTEXT X'0F' (1) TOTAL AMOUNT 
 FNL
 FNL
 FNL
 FILLR ' ',9
 FTEXT X'1E' (2) LEVNAVN
 FNL
 FILLR ' ',9
 FTEXT X'20' (3) LEVADR 
 FNL
 FILLR ' ',9
 FTEXT X'14' (4) LEVBY
 FNL
 FILLR ' ',9
 FTEXT X'04' (5) POSTNR 
 FILLR ' ',2
 FTEXT X'0D' (6) POSTDIST 
 FNL
 FNL
 FNL
 FNL
 FNL
 FNL
 FNL
 FNL
 FMEND


********** GIROKORT **********
FBDTGIR FRMT
 FILLR '+',2
 FTEXT X'16' (1) TEXT1
 FILLR ' ',20 
 FTEXT X'0A' (2) GIRO1
 FILLR ' ',5
 FTEXT X'16' (3) TEXT 2 
 FILLR ' ',20 
 FTEXT X'0A' (4) GIRO 2 
 FNL
 FTEXT X'15' (5) INFO 1 
 FILLR ' ',36 
 FTEXT X'15' (6) INFO 2 
 FNL
 FILLR ' ',7
 FTEXT X'0F' (7) AMOUNT 1 
 FILLR ' ',42 
 FTEXT X'0F' (8) AMOUNT 2 
 FNL
 FILLR  ' ',24
 FTEXT X'1E' (9) LEVNAVN
 FILLR ' ',28 
 FTEXT X'1E' (10) LEVNAVN 
 FNL
 FTEXT X'16' (11) TEXT2 
 FILLR ' ',2
 FTEXT X'20' (12) LEVADR
 FILLR ' ',1
 FTEXT X'16' (13) TEXT 2
 FILLR ' ',3
 FTEXT X'20' (14) LEVADR
 FNL
 FTEXT X'15' (15) INFO2 
 FILLR ' ',3
 FTEXT X'14' (16) LEVBY 
 FILLR ' ',13 
 FTEXT X'15' (17) INFO2 
 FILLR ' ',4
 FTEXT X'14' (18) LEVBY 
 FNL
 FILLR ' ',7
 FTEXT X'0F' (19) AMOUNT2 
 FILLR ' ',2
 FTEXT X'04' (20) POSTNR
 FILLR ' ',2
 FTEXT X'0D' (21) POSTDIST
 FILLR ' ',21 
 FTEXT X'0F' (22) AMOUNT2 
 FILLR ' ',3
 FTEXT X'04' (23) POSTNR
 FILLR ' ',2
 FTEXT X'0D' (24) POSTDIST
 FNL
 FNL
 FTEXT X'16' (25) TEXT3 
 FILLR ' ',35 
 FTEXT X'16' (26) TEXT3 
 FNL
 FTEXT X'15' (27) INFO3 
 FILLR ' ',36 
 FTEXT X'15' (28) INFO3 
 FNL
 FILLR ' ',7
 FTEXT X'0F' (29) AMOUNT 3
 FILLR ' ',42 
 FTEXT X'0F' (30) AMOUNT3 
 FNL
 FILLR ' ',26 
 FTEXT X'0F' (31) AMOUNT
 FILLR ' ',43 
 FTEXT X'0F' (32) AMOUNT
 FMEND


**********BUNDTREMITTERINGSDETAILLINIE ********** 
FBDTSAM FRMT
 FNL
 FTEXT X'0F' (1) TOTAL
 FILLR ' ',1
 FTEXT X'0A' (2) GTLEVNR
  FILLR ' ',1 
 FTEXT X'1E' (3) GTLEVNAVN
 FNL
 FILLR ' ',27 
 FTEXT X'15' (4) INFO 1 
 FILLR ' ',1
 FTEXT X'15' (5) INFO 2 
 FILLR ' ',1
 FTEXT X'15' (6) INFO 3 
 FMEND

 END

Full view