%constinteger hdrl = 8                                         ;! Length of dummy area before data field
%recordformat qf(%record (qf) %name link, %integer count)
%recordformat x25f(%byte octet1, lcn, fn, %bytearray a(0:255))
%recordformat mef(%integer buff no, l, %byte owner, type, %c
   (%bytearray a(0:249) %or (%string(2) padding, %byte octet1, lcn, fn, %c
   (%bytearray data(0:243) %or %string(250) s ))))

%recordformat pf(%byte ser, reply, %c
   ((%byte fn, %byte s1 , %c
   ((%integer buff no, %byte gate port , task port) %c
     %or %string(3) facility)) %c
     %or (%byte a1, a2, b1, b2, c1, c2) %or (%integer a, b, c) %c
     %or (%byte j1, process, j2, j3, len, j4)))

%recordformat cvf((%byte l, (%byte reason, cause, diags, %bytearray our ct(0:3), our segs(0:7),pss ct(0:3), pss segs(0:7)) %c
                         %or %bytearray a(0:26)) %c
               %or %string(27) s)

%endoffile