1 /* BEGIN INCLUDE FILE  gtss_iocmd.incl.pl1 */
 2 iocmd:    proc (rwc)returns (char (*));
 3 
 4 /* Interpret select sequence i/o command. */
 5 dcl  rwc                      bit(6) parm;
 6                if rwc = read_cmd then return ("READ");
 7                if rwc = write_cmd then return ("WRITE");
 8                return (char (rwc));
 9           end                                               /* iocmd */;
10 /*   END INCLUDE FILE  gtss_iocmd.incl.pl1 */