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 *