%recordformat command fm(%string(31) command,
                        (%string(31) in1,  in2,  in3,
                         %string(31) out1, out2, out3     %or
                         %string(31) %array in, out(1:3)  %or
                         %string(31) %array io(1:6) ),
                         %integer modifier,
                         %string(63) parameter)
%externalrecord(command fm)%spec COMMAND
%externalroutinespec EXTRACT COMMAND (%string(*)%name C, parm, %string(127)  S)
%externalroutinespec PARSE PARAMETER (%record(commandfm)%name  C,
                                      %integer option, %string(127)  parm)
%endoffile