%recordformat  filefm(%integer  unit,owner,N1,N2)
%recordformat  parmfm(%short dsno,dact,
               (%short  ssno, sact, (%integer  P1, P2, P3, P4   %or
                                     %record(filefm)  file      %or
                                     %string(23)  text ),
                                                         %integer  P5, P6) %or
               (%short  pad,  %string(25)  filename)   )
%endoffile