recordformat  scbf(integer  p,l,bs,bl,fs,fl, mode,
                   string (255)name  filename,record (*{iof})name  io,
                   integer  pc,gla, a,b,c,d,e)
recordformat  scbdf(record (scbf)name  scb,record (scbdf)name  next)
constinteger  ser min = 0,     ser max = 5,
              ser closein = 0, ser closeout = 1,
              ser setin = 2,   ser setout = 3,
              ser refresh = 4, ser flush = 5