.PSECT	DSPTCH,GBL,D
	.PSECT	STRING,GBL,D
	.PSECT	SWTCH,GBL
	.NAME	RNO
	.ROOT	RNO-R1-R2-*(B1,B2)
R1:	.FCTR	RNO/LB:DATA:RUNOFF:RNCMD:RNFIO:RNORSX-DSPTCH
R2:	.FCTR	RNO/LB:FMTCM:CMTAB
F1:	.FCTR	RNO/LB:ERMSG-LB:[1,1]SYSLIB/LB:.CSI1:.CSI2

; Insert semicolon ahead of following line if FCSRES is NOT available

B1:	.FCTR	RNO/LB:START:PINDX-F1

; Delete semicolon from following four lines if FCSRES is NOT available

;B1:	.FCTR	RNO/LB:START:PINDX-(F1,F2)
;F2:	.FCTR	LB:[1,1]SYSLIB/LB:OPEN-(OP1,OP2)
;OP1:	.FCTR	LB:[1,1]SYSLIB/LB:CLOSE:CREATE:DEL:FINIT:MKDL:OPFNB:RQLCB
;OP2:	.FCTR	LB:[1,1]SYSLIB/LB:PARSE
 
B2:	.FCTR	RNO/LB:HYPHEN:INDEX:COMND-STRING
 
	.END