I am trying to display messages at various points in my Pascal program.
Compiled with no errors but it gave me a run time error:

No SIZE ERROR phrase (COBERR 747)
Program file: CHATROOM.NMPRG.E3K
Library trap type = 02C200C0 (46268608)
DEBUG/iX C.25.06

HPDEBUG Intrinsic at: b6.00280b58 cob_trap_lib.print_message+$158
     PC=b6.00280b58 cob_trap_lib.print_message+$158
  0) SP=41852c20 RP=b6.00280ca8 COB_TRAP_LIB+$a8
  1) SP=41852bc8 RP=b6.00276ba0 ?COB_TRAP_LIB+$8
       export stub: b6.002ce76c P__PASCFERROR+$118
* 2) SP=418529f0 RP=b6.002ccc80 P__FERR+$70
  3) SP=418526b0 RP=b6.002d4648 P_WRITESTR+$334
  4) SP=41852630 RP=b6.002d4300 ?P_WRITESTR+$8
       export stub: 1fe.0003bf24 aif_port_open+$27c
  5) SP=41852530 RP=1fe.0003bbf4 ?aif_port_open+$8


How do I get this program to display the messages like your average COBOL
program does so easily?



The source looks like this:

$standard_level 'hp_modcal'$
$optimize on$
$global$
$assume 'LOCAL_GOTOS_ONLY'$
$assume 'LOCAL_ESCAPES_ONLY'$
$assume 'NO_HEAP_CHANGES'$
$assume 'NO_PARM_ADDRESSED'$
$SUBPROGRAM 'aif_port_open'$
program aif_port_open (output);

...
...
...

$sysintr 'sysintr.pub.sys'$
procedure GETPRIVMODE     ; intrinsic;
procedure HPGETPROCPLABEL ; intrinsic;
procedure GETUSERMODE     ; intrinsic;
$sysintr 'aifintr.pub.sys'$
procedure AIFPORTCLOSE    ; intrinsic;
procedure AIFPORTINT      ; intrinsic;
function  AIFPORTOPEN     : integer; intrinsic;
procedure AIFPORTRECEIVE  ; intrinsic;
procedure AIFPORTSEND     ; intrinsic;
procedure aif_port_open(var overall_status:status_type;
                        var proc_number   :shortint;
                        var port_id1      : integer;
                        var port_id2      : integer);

begin
   GETPRIVMODE;
   overall_status.all   := 0;
   portname             := 'chatport1';
   portpass             := 'chatpass1';
   accessmode           := 1;
   itemnum_ports        := init_itemnum_array;
   item_ports           := init_item_array;
   item_status_ports    := init_item_status_array;
   createoptions        := 2;
   maxmsgsize           := 80;
   itemnum_ports [1]    := 11201;
   item_ports    [1]    := addr(createoptions);
   itemnum_ports [2]    := 11202;
   item_ports    [2]    := addr(maxmsgsize);
   proc_name            := '#PORTHANDLER#';
   proc_file            := '#ASYNC1#';
   user_id              := 0;
   writeln ('start HPGETPROCPLABEL');
   HPGETPROCPLABEL(proc_name,
                   createhandler,
                   overall_status,
                   proc_file,
                   false);
   if overall_status.all <> 0 then
      proc_number := 5;
   itemnum_ports [3]    := 11206;
   item_ports    [3]    := addr(createhandler);
   itemnum_ports [4]    := 11207;
   item_ports    [4]    := addr(createstate);
   port_id1             := 0;
   port_id2             := 0;
   writeln('start AIFPORTOPEN #1');
   port_id1 := AIFPORTOPEN(overall_status,
                           portname,


Thanks in advance.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *