DataMuseum.dk

top - metrics - download

    Length: 4768 (0x12a0)
    Notes: pts_type(UF)
    Names: »KM461.UF«

└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
    └─⟦this⟧ »OD-KOM/KM461.UF« 

PTS(SC)

PRT KM461 
PRT C461
MES ODENSE KOMMUNE - UK01 
MES SEPARATE TASK FOR BATCH TRANSMISSION
MES 840203 EV 
SCR 
LED KMD08,/S
!!CH $$DCTASK$$DCTSK$$
!!DL 121,169 KBA-VDU,GTP
!!DL 182,207 TB9
!!RE 254,$$FALSE$$TRUE$$ 5M DISK
!!RE 291,$$FALSE$$FALSE$$ DISK OVERLAY
!!RE 366,$$01014610$$%VER%REL%MOD$$ VERSION NO
!!DL 373,374 BKO
CTTXT07 STRG 381'000000000000000000376	BKO	C
		51ASKAT3		C 
		58A/S  2		C 
		52BSKAT3		C 
		60BDFLG0		C 
		68B B N1		C 
		69B B %1		C 
		64BRNFO0		C 
		62DAGPE2		C 
		56EJDSK0		C 
		59FORAB2		C 
		57ANDKM0		C 
		30FORBE1		C 
		31TPDAG1		C 
		54GLSK 1		C 
		36HUSL 0		C 
		61S[RIN0		C 
		21FORBR0		C 
		22FORBR0		C 
		65BOL]N1		C 
		67BOSIK1		C 
		46FERIE0		C 
		35VARME0		C 
		53PLIGT0		C 
		55SOCYD0		C 
		45UDBB 1		C 
		47[FBDR0		C 
		48UD[FB0		C 
		49EFUBB0		C 
		50UDBDR0		C 
		27SOMAN0		C 
		28GRONL0		C 
		29UDENL0		C 
		63GRDSK0		C 
		40DAGIN0		C 
		23FORBR0		C 
		24FORBR0		C 
		33DEPOS0		C 
		34DEPUD0		C 
		41KNBEV1		C 
		20INKAS1		C 
		42BISTH1		C 
		43SKB*D1		C 
		44SPPGA1		C 
		66NEGIN0' 
!!RE 412,$$1400$$10000$$ MAX RECORDS
!!RE 414,$$'2'$$'0'$$ ONLY USE FD461002 
!!DL 731,732 ENTRY 3270 
!!DL 737,741 EXT 3270 
!!DL 754
 MOVE GSWBIN1,=W'381' LENGTH CTTXT07
!!DL 765,800 START 3270 
!!EN
NOD C 
TRA /S,NL 
INC DIV461
NOD R 
INC SCREEN
INC RGSUB3
NOD R 
INC KMDIO 
INC DKSUBS
NOD D 
INC SUBAPL
INC KTPLN 
NOD D 
INC RGMAIN
INC RGSUBS
INC RGSUB1
INC RGSUB2
NOD D 
INC RGFRMT
INC ADM6BC
INC ADM45 
INC LOG 
NOD D 
INC RGADM 
NOD D 
INC RGKLAR
NOD D 
INC KTOPR 
INC RGSTRT
INC ADM5
TLK U,4K
INC DCTSK 
$INCGEN 
LKE M 
KPF /L,RG461
SCR 
MES $PDISC M=M:DO34,MU=M:POOL92,A=RG461,C=C461
$ASG2