All: ... ... $SUBPROGRAM 'get_js_data'$ program get_js_data; type bit2 = 0..3; bit14 = 0..16383; jsnum_type = packed record js_type : bit2; js_num : bit14; js_ext : shortint; end; $sysintr 'sysintr.pub.sys'$ procedure GETPRIVMODE ; intrinsic; procedure GETUSERMODE ; intrinsic; $sysintr 'aifintr.pub.sys'$ procedure AIFJSGET ; intrinsic; PROCEDURE get_js_data(var overall_status:status_type; var pin_no :integer; var jsmain_pin_no :integer; var ci_pin_no :integer; var quiet_mode :shortint; var jsnum :jsnum_type); begin GETPRIVMODE; overall_status.all := 0; quiet_mode := 0; item_num_array[1] := 1017; item_num_array[2] := 1018; item_num_array[3] := 1005; item_num_array[4] := 0; item_array [1] := addr(jsmain_pin_no); item_array [2] := addr(ci_pin_no); item_array [3] := addr(quiet_session); item_array [4] := addr(jsnum); item_status_array := init_item_status_array; AIFJSGET(overall_status, item_num_array, item_array, item_status_array,jsnum,jskey,); quiet_mode := 0; if quiet_session = true then quiet_mode := 1; GETUSERMODE; end; begin end. How do I define this jsnum_type field in a COBOL program (which is the mainline calling this AIF procedure (PASCAL)) ?? TIA, Brian Donaldson. * To join/leave the list, search archives, change list settings, * * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *