1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4    *                                                         *
 5    *********************************************************** */
 6 /* BEGIN INCLUDE FILE ... _imft_get_channel_names.incl.pl1 */
 7 /* Created:  July 1982 by G. Palter */
 8 
 9 /* Data structure used by imft_io_ to return names of channels used for data transmission */
10 
11 dcl  1 get_channel_names aligned based (get_channel_names_ptr),
12        2 version character (8),
13        2 input_channel character (32) unaligned,
14        2 output_channel character (32) unaligned;
15 
16 dcl  get_channel_names_ptr pointer;
17 
18 dcl  GET_CHANNEL_NAMES_VERSION_1 character (8) static options (constant) initial ("igcn_001");
19 
20 /* END INCLUDE FILE ... _imft_get_channel_names.incl.pl1 */