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

⟦810381712⟧ 

    Length: 4426 (0x114a)
    Notes: pts_type(SC)
    Names: »SL6272.SC«

Derivation

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

PTS(SC)

SPKTAB1 KTAB BSPKY1,CANKY1,NOKEY,EORKY1,NOKEY,MACKY1,		C
		FTABKY1,BTABKY1,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		COPKY1,DUPKY1,EDTKY1,SLUTKY1,		C
		KREKY1,REGKY2,LISTKY1,SBTKY1,SPGKY1,		C 
		CY1KY1,CY2KY1,INVKY1,KONKY1,KVITKY1,SUPLKY1,SUMKY1,		C
		ADMKY1,CYCKY1,DIVKY1,HBOGKY1,DEBPKY1,REMKY1,TRSEL,		C 
		ONKY1 
* 
SPKTAB2 KTAB BSPKY1,CANKY1,NOKEY,EORKY1,NOKEY,MACKY1,		C
		FTABKY1,BTABKY1,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		COPKY1,NOKEY,EDTKY1,SLUTKY1,		C 
		KREKY1,NOKEY,NOKEY,NOKEY,NOKEY,		C
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		ADMKY1,CYCKY1,NOKEY,NOKEY,NOKEY,NOKEY,TRSEL,		C 
		NOKEY 
* 
SPKTAB3	KTAB	FTBKY1,BTBKY1,INSKY1,DELKY1,		C
		CL1KY1,CL2KY1,CL3KY1,OUTKY1 
* 
SPKTAB12	KTAB	BSPKY2,CANKY2,NOKEY,EORKY2,NOKEY,MACKY2,		C 
		FTABKY2,BTABKY2,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,DUPKY2,EDTKY2,SLUTKY2,		C 
		KREKY2,REGKY2,ADMKY2,SPGKY2,KONKY2,KVITKY2,ONKY2
* 
SPKTAB22	KTAB	BSPKY2,CANKY2,NOKEY,EORKY2,NOKEY,MACKY2,		C 
		FTABKY2,BTABKY2,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,NOKEY,EDTKY2,SLUTKY2,		C
		KREKY2,NOKEY,ADMKY2,SPGKY2,KONKY2,KVITKY2,ONKY2 
* 
*          INQUIRY KEYTABLES (SPKEY=3)
* 
SPKTAB13 KTAB BSPKY1,NOKEY,CANKY1,NOKEY,NOKEY,MACKY1,		C
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,SLUTKY1,		C 
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,INVKY1,KONKY1,KVITKY1 
* 
SPKTAB23 KTAB BSPKY1,NOKEY,CANKY1,NOKEY,NOKEY,MACKY1,		C
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,		C 
		ADMKY1
* 
* 
*          R]KONVERTERING KEYTABLE (DUMMY)
* 
SPKTAB14 KTAB NOKEY 
SPKTAB24 KTAB NOKEY 
* 
SPFTBERR	FTABLE	ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT,		C
		ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT,		C
		ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT,		C
		ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT,		C
		ERRDSK,ERRFMT,ERRFMT,ERRFMT,ERRFMT,		C
		ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT	WARNINGS 
* 
SPFTBMES	FTABLE	MSFMT1,MSFMT2,MSFMT3,MSFMT4,MSFMT5,MSFMT6,		C 
		MSFMT7,MSFMT8,MSFMT9,MSFMT10,		C
		MSFMT11,MSFMT12,MSFMT13 
* 
* 
ERRFMT FRMT 
 FSL
	FCOPY	='FEJL ' 
	FMEL	'ZZ9',GSWBCD4	ERRORNR.
 FMEND
* 
ERRDSK	FRMT 
	FSL
	FMEL	'99B',GTWBCD2 
 FCOPY GSWSTR9
	FMEL	'99',GTWBCD1
	FMEND
* 
MSFMT1	FRMT 
	FSL
	FCOPY	='SKIFT JOURNAL' 
	FMEND
* 
MSFMT2	FRMT 
	FSL
  FCOPY  ='LINIE NR'
  FILLR  '.',1
	FMEND
* 
MSFMT3	FRMT 
	FSL
	FTEXT	='NY SIDE. ' 
	FMEND
* 
MSFMT4	FRMT 
	FSL
	FBF	TTSUMFLG,FMT4END 
	FTAB	15
	FCOPY	GTL8TXT
	FINP	23
	FMEL	'ZZZZZVZZ9,99+',GTSUM 
FMT4END 
	FMEND
* 
MSFMT5	FRMT 
	FSL
	FCOPY	='BILAG' 
	FMEND
* 
MSFMT6	FRMT 
	FSL
	FCOPY	='KONTOKORT' 
	FMEND
* 
MSFMT7	FRMT 
	FSL
	FCOPY	TTINF1 
	FMEND
* 
MSFMT8 FRMT 
 FSL
 FCOPY ='DISKETTE SKIFT ' 
 FILLR X'07',1
 FMEND
* 
MSFMT9 FRMT 
 FSL
 FCOPY ='OPSTART '
 FMEND
MSFMT10 FRMT
 FSL
 FMEL 'TTTTTTTTTTTT9-',GTWBCD2
 FMEND
* 
MSFMT11 FRMT
 FSL
 FCOPY ='OPRET LEV. ' 
 FMEND
* 
MSFMT12 FRMT
 FSL
 FMEND
* 
MSFMT13 FRMT
 FSL
 FCOPY ='STRAKS-CHECK'
 FMEND
*

Full view