;
; temp kludge for PL/I FMS interface clustering
;
	.title temp

VX$FMS==0	;;;TEMP TILL VEXT STRAIGHTENED OUT
VX$FME==2
VX$FMD==6
VX$TKL==10

T$LUN==5	;TEMP
FS$SUC==1
FE$FNM==177767
F$STS ==000000
FE$FRM==177770
F$TRM ==000010
FE$FSP==177775
F$VAL ==000012
FE$ICH==177772
FE$IFN==177755
FE$IMP==177776
FE$INI==177753
FE$IOL==177774
FE$IOR==177756
FC$ALL==000020
FE$LIN==177766
FC$ANY==000022
FE$NOF==177764
FC$CLS==000006
FE$NSC==177762
FC$CSH==000000
FE$STR==177752
FC$DAT==000032
FE$UTR==177757
FC$GET==000016
FC$GSC==000034
FC$LST==000010
FC$OPN==000004
FC$PAL==000014
FC$PSC==000036
FC$PUT==000012
FC$RAL==000026
FC$RTN==000024
FC$SHO==000002
FC$SLN==000044
FC$SPF==000040
FC$SPN==000042
FC$TRM==000030
FE$ARG==177754
F$CHN ==000002
FE$DLN==177760
F$FNC ==000000
FE$DNM==177761
F$IMP ==000004
FE$DSP==177763
F$LEN ==000014
FE$FCD==177777
F$NAM ==000004
FE$FCH==177771
F$NUM ==000006
FE$FLB==177773
F$REQ ==000002
FE$FLD==177765
F$RSIZ==000006

	.end