C
      CHARACTER*20 AVBL(MXFLD),FIELD(MXFLD)
      CHARACTER*6 DATSET
C
      LOGICAL RITEHD,RITE2
C
      COMMON /RQSTFLD/ 
     & KGTYPE,IOUTYP,SVALUE,NFLD,IGET(MXFLD),DEC(MXFLD)
     &,IQ(MXFLD),IS(MXFLD),ISMSTG(MXFLD),ISMFUL(MXFLD)
     &,ISMOUT(MXFLD),LVLS(MXLVL,MXFLD),IDENT(MXFLD)
     &,IFILV(MXFLD),ID(25)
     &,RITEHD,RITE2,DATSET,FIELD,AVBL