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

⟦c25624920⟧ 

    Length: 11190 (0x2bb6)
    Notes: pts_type(SC)
    Names: »REMFMT.SC«

Derivation

└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
    └─⟦this⟧ »REMIT2/REMFMT.SC«

PTS(SC)

 IDENT REMFMT 820901 NJ 
 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,FMTFMT

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
 FTEXT '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
 FTEXT 'ADR'
 FTAB 5 
 FBT GTSPGFLG,FLEV030 
 FKI 5,MAXL=32,ALPHA
FLEV030 
 FCOPY GTLEVADR 
 FNL
 FTEXT 'BY' 
 FTAB 5 
 FBT GTSPGFLG,FLEV040 
 FKI 5,MAXL=20,ALPHA
FLEV040 
 FCOPY GTLEVBY
 FNL
 FTEXT 'POSTNR '
 FBT GTSPGFLG,FLEV050 
 FKI 8,MAXL=4,MINL=4
FLEV050 
 FMEL 'ZZZZ',GTLEVPNR 
 FTAB 14
 FTEXT '-DISTR '
 FBT GTSPGFLG,FLEV060 
 FKI 21,MAXL=13,ALPHA 
FLEV060 
 FCOPY GTLEVPDI 
 FNL
 FTEXT '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
 FTEXT '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 
 FTEXT '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
 FTEXT 'NR' 
 FKI 27 
 FMEL 'XXXXXXXXXX',GTLEVNR
FLEV210 
 FNL
 FCOPY ='SIDSTE ' 
 FCOPY ='UDB '
 FMEL '99V99V99',GTREGF(CBIN10) 
 FTAB 22
 FMEL 'ZZZVZZZVZZ9V99-',GTREGF(CBIN11)
 FNL
 FTEXT 'UDB.]TD ' 
 FTAB 22
 FMEL 'ZZZVZZZVZZ9V99-',GTREGF(CBIN12)
 FNL
 FTEXT 'N[STE ' 
 FTEXT X'56414C5C52'
 FCOPY ='DATO'
 FTAB 17
 FMEL '99V99V99',GTREGF(CBIN13) 
 FNL
 FCOPY ='FAKTURA' 
 FTEXT X'42454C5C42'
 FTAB 17
 FMEL 'ZZZVZZZVZZ9V99-',GTREGF(CBIN14)
 FNL
 FTEXT 'KREDITNOTA' 
 FTEXT X'42454C5C42'
 FTAB 17
 FMEL 'ZZZVZZZVZZ9V99-',GTREGF(CBIN15)
 FNL
 FTEXT 'SKYLDIGT' 
 FTEXT X'42454C5C42'
 FTAB 17
 FMEL 'ZZZVZZZVZZ9V99-',GTREGF(CBIN16)
 FMEND



FMTLEVTR FRMT		REMIT TRANS
 FSL
 FCOPY GSWSTR9
 FILLR ' ',1
 FCOPY ='LEVERAND ' 
 FTAB 24
 FTEXT 'NR' 
 FKI 27,MINL=10,MAXL=10,SCHK=7
 FMEL 'XXXXXXXXXX',GTDUPF(CBIN2)
 FNL
 FTEXT X'56414C5C52'
 FCOPY ='DATO'
 FILLR ' ',1
 FMEL '99V99V99',GTDUPF(CBIN7)
 FNL
 FTEXT X'42454C5C42'
 FILLR ' ',1
 FMEL 'ZZZVZZZVZZ9V99-',GTDUPF(CBIN4) 
 FNL
 FCOPY ='TEKST '
 FMEL 'ZZ9',GTDUPF(CBIN15)
 FTAB 11
 FCOPY GTLEVTXT 
 FTAB 35
 FMEL '9',GTDUPF(CBIN21)
 FNL
 FCOPY ='TEKST '
 FTEXT 'OPL ' 
 FMEL 'XXXXXXXXXX',GTDUPF(CBIN13) 
 FILLR ' ',1
 FMEL 'XXXXXXXXXX',GTDUPF(CBIN14) 
 FNL
 FTEXT '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 ' 
 FTEXT 'AF '
 FCOPY ='LEVERAND ' 
 FTEXT 'FIL'
 FTAB 29
 FMEL '99V99V99',CMASKDAT 
 FNL
 FTEXT 'VEDL.'
 FCOPY ='DATO'
 FKI 13,MINL=6,MAXL=6,SCHK=4
 FMEL '99V99V99',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
 FTEXT 'ALLE OPLYSNINGER (1)' 
 FKI 22,MAXL=1
 FMEL 'X',GTLEVBFO
 FNL
 FTEXT 'NULSTIL SALDO (1)'
 FKI 22,MAXL=1
 FMEL 'X',GTLEVNR 
 FNL
 FMEND


TXTPDU FRMT 
 FSL
 FBT GTSWFLAG,TXTP10
 FCOPY =C'UDSKRIFT '
 FTEXT 'AF '
TXTP10
 FCOPY =C'TEKST ' 
 FTEXT 'FIL'
 FILLR ' ',4
 FMEL '99V99V99',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
 FTEXT 'PRINTER=1,RULLE=2'
 FKI 20,MINL=1,MAXL=1 
 FMEL '9',GSWBCD5 
TXTP20
 FMEND
* 
* 
TXTVEDL FRMT
 FSL
 FTEXT 'TEKSTNR'
 FBF GTSWFLAG,TXTV10
 FKI 20,MINL=1,MAXL=3 
TXTV10
 FMEL 'ZZ9',GSWBCD1 
 FBT GTSWFLAG,TXTV20
 FNL	 
 FNL
 FCOPY =C'TEKST ' 
 FKI 7,MINL=1,MAXL=22,ALPHA 
 FCOPY GTLEVTXT 
 FNL
 FNL
 FTEXT '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

FMTFMT FRMT 
 FILLR ' ',2
 FMEND
 END

Full view