TK:[1,54]A80/CP/-FP/-SE,MP:[1,34]A80/-SP=CHDR,EXIT,A80,CLIB/LB:FINIT/SS,CLIB/LB
/
GBLREF=FINIT
GBLREF=.PFIO
UNITS=12
STACK=3000
LIBR=FCSRES:RO
TASK=...A80
//