1 /*  START OF:       io_chnl_util_dcls.incl.pl1                *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 /* Written by Charles Hornig, 1st quarter 1981 */
 4 /* Canonicalization entry added by Chris Jones, January 1984 */
 5 
 6 /* chanid = canonicalize_chanid (chanid); */
 7 /* format: style4,delnl,insnl,indattr,ifthen,dclind10 */
 8 dcl       io_chnl_util$canonicalize_chanid
 9                                  entry (char (8) aligned) returns (char (8) aligned);
10 
11 /* call iom_to_name (iomno, channo, name, code); */
12 dcl       io_chnl_util$iom_to_name
13                                  entry (fixed bin (3), fixed bin (7), char (8) aligned, fixed bin (35));
14 
15 /* call name_to_iom (name, iomno, channo, code); */
16 dcl       io_chnl_util$name_to_iom
17                                  entry (char (8) aligned, fixed bin (3), fixed bin (7), fixed bin (35));
18 
19 /*  END OF:         io_chnl_util_dcls.incl.pl1                *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */