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

SOURCE:     Digital Customer Support Center


OVERVIEW:

This program demonstrates how to pass information from the command line
to a PLI program using the Run-Time Library routine LIB$GET_FOREIGN.


*** CAUTION ***

This sample program has been tested using VAX PLI V3.4 on VMS V5.4.  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:

This program may be executed in one of 2 ways:

1) Run GETFOREIGN.EXE

  At the prompt, enter the information.

2) Set up a symbol as follows:

  X="$DISK:[DIRECTORY]GETFOREIGN.EXE"

Invoke the program and enter the command line data

  X ABC

ABC will be retrieved from the command line.


PROGRAM:

test: proc options(main);

%include $stsdef;
%include $rmsdef;
%include lib$get_foreign;
dcl command_line char(80) var;
dcl prompt_flag bit(32) aligned  init('0'b);


sts$value = lib$get_foreign(command_line, 'Input: ',,prompt_flag);
if ^sts$success
   then signal vaxcondition(sts$value);

Put skip list ( 'Command entered ', command_line);

end test;

buy online or call 1.800.AT.COMPAQ