1 pragma Extend_System (Aux_DEC);
2 with System; use System;
4 package Valued_Proc_Pkg is
6 procedure GETMSG (STATUS : out UNSIGNED_LONGWORD;
7 MSGLEN : out UNSIGNED_WORD);
9 pragma Interface (EXTERNAL, GETMSG);
11 pragma IMPORT_VALUED_PROCEDURE (GETMSG, "SYS$GETMSG",
12 (UNSIGNED_LONGWORD, UNSIGNED_WORD),