%constinteger hdrl = 8 ;!Length of dummy area before data field
%recordformat qf(%record (qf) %name link, %integer count)
%recordformat ts29f(%string (255) s %or %byte octet1 %or %bytearray a(0:255))
%recordformat itpf(%byte cnsl, hb2, hb3, (%string(255) s %or %bytearray a(0:255)))
%recordformat x25f(%byte octet1, lcn, fn, %bytearray a(0:255))
%recordformat mef(%integer buff no, l, %byte owner,type, %c
       (%bytearray a(0:249) %c
   %or (%string(2) padding, %byte octet1,lcn,fn,(%bytearray data(0:243) %or %record(itpf) itp %or %record(ts29f) ts29)) %c
   %or %string(250) s))
%recordformat pf(%byte ser, reply, %c
   ((%byte fn, (%byte s1 %or %byte process), ((%integer buff no, (%byte gate port %or %byte len), %byte task port) %or %string(3) facility)) %c
%or (%byte a1, a2, b1, b2, c1, c2) %or (%integer a, b, c)))

%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