Copyright (c) Digital Equipment Corporation 1991. All rights reserved
LAYERED PRODUCT:  VAX PLI             OP/SYS: VMS

SOURCE:     Digital Customer Support Center

OVERVIEW:

The following is a very short example on how to call LIB$FIND_IMAGE_SYMBOL
from a VAX PL/1 program.

*** CAUTION ***

This sample program has been tested using VAX PLI Version 3.4 on
VMS Version 5.4-2.  However, we cannot guarantee its effectiveness
because of the possibility of error in transmitting or implementing
it.  It is meant to be used as a template for writing your own
program and it may require modification for use on your system.


PROGRAM NOTES:

For more information on LIB$FIND_IMAGE_SYMBOL, please see the
"VMS RTL Library (LIB$) Manual, April 1988.

The Find Universal Symbol in Shareable Image File routine reads
universal symbols from the shareable image file.  This routine
then dynamically activates a shareable image into the P0 address
space of a process.

LIB$CALLG invokes the routine specified.


PROGRAM:

fnd_im: proc options(main);
%include lib$find_image_symbol;
%include lib$callg;

dcl (stat,symadr) fixed;
dcl day_of_week fixed;
dcl 1 arglist,                /* argument list for LIB$DAY_OF_WEEK */
    2 arg_cnt fixed init(2),
    2 arg_1   fixed init(0),
    2 arg_2   ptr;

stat = lib$find_image_symbol('LIBRTL','LIB$DAY_OF_WEEK',symadr);
if posint(stat,1,1) ^= 1 then signal vaxcondition(stat);

arg_2 = addr(day_of_week);

stat = lib$callg(arglist,value(symadr));
if posint(stat,1,1) ^= 1 then signal vaxcondition(stat);

put skip list ('the day-of-week is: ',day_of_week);
end;

buy online or call 1.800.AT.COMPAQ