topic Re: CLI$ROUTINES.H in Operating System - OpenVMS

CLI$ROUTINES.H

ram_47 — Tue, 02 Aug 2005 02:04:13 GMT

I am trying to add the ability to read command line arguments in my program. Is there an example which I can refer to for doing this. I came across a header file which has routines for doing that but not sure how to do it.

Re: CLI$ROUTINES.H

David B Sneddon — Tue, 02 Aug 2005 02:21:01 GMT

ram,

if you do

$ SEARCH SYS$EXAMPLES:*.C CLI$

you will see there are three sample programs that
use the CLI routines. These may help.

Dave

Re: CLI$ROUTINES.H

Willem Grooters — Tue, 02 Aug 2005 02:21:09 GMT

In SYS$EXAMPLES: you will find a number of C programs you can use as a reference:

ACMEUTIL.C
GCU$BALANCER.C

(Besides HELP and the online documentation, SYS$EXAMPLES is a perfect source for examples (hence the name ;-)). Great part: All are buildable and run when compiled and linked according the documentation)

Willem

Re: CLI$ROUTINES.H

Brian Reiter — Tue, 02 Aug 2005 02:24:35 GMT

Ram

Have a look at the CLI$PRESENT function. These coupled with a .CLD definition allow very easy to implement CLI.

I've attached a Pascal snipped which may help.

cheers

Brian

Re: CLI$ROUTINES.H

ram_47 — Tue, 02 Aug 2005 02:33:28 GMT

RE5::[VMSUSER] >search sys$examples:*.c cli$

******************************
SYS$COMMON:[SYSHLP.EXAMPLES]DISKMOUNT.C;1

unsigned int spawn_flag = CLI$M_NOWAIT;
RE5::[VMSUSER] >

Not sure what it means.

Re: CLI$ROUTINES.H

Brian Reiter — Tue, 02 Aug 2005 02:39:07 GMT

unsigned int spawn_flag = CLI$M_NOWAIT

is a flag for LIB$SPAWN to allow the subprocess to run in parallel rather than wait for it to complete.

Re: CLI$ROUTINES.H

David B Sneddon — Tue, 02 Aug 2005 03:03:34 GMT

ram,

Is that the entire output of the search command?
What version of VMS do you have?

Dave

Re: CLI$ROUTINES.H

Antoniov. — Tue, 02 Aug 2005 03:36:51 GMT

Hi Ram,
$ HELP CLI is your friend.

Antonio Vigliotti

Re: CLI$ROUTINES.H

ram_47 — Tue, 02 Aug 2005 03:39:56 GMT

Dave,

yes, that was all i got after the search command.

version - DEC C V5.6-003 on OpenVMS VAX V6.2

Re: CLI$ROUTINES.H

ram_47 — Tue, 02 Aug 2005 03:43:30 GMT

Antonio-

>HELP CLI
sorry no documentation on CLI.

Could you pl give me complete path.

Re: CLI$ROUTINES.H

Martin Vorlaender — Tue, 02 Aug 2005 04:08:20 GMT

ram,

if all else fails, read the FM ;-)

http://h71000.www7.hp.com/doc/731FINAL/4493/4493pro_003.html#8_exampleofusingthecliroutine

cu,
Martin

Re: CLI$ROUTINES.H

Kris Clippeleyr — Tue, 02 Aug 2005 04:15:55 GMT

Ram,

VAX/VMS V6.2 & DEC C V5.7 (the versions you have) do not bring SYS$SHARE:SYS$STARLET_C.TLB (at least AFAIK).
I suggest upgrading the VAX to VMS version 7.3 and DEC C V6.4 (the latest for VAX/VMS), then you'll have all the declarations of the VMS specific routines like CLI$, LIB$, etc. siting in SYS$SHARE:SYS$STARLET_C.TLB.

I attach the CLI$ROUTINES.H file for you.

Regards,
Kris (aka Qkcl)

Re: CLI$ROUTINES.H

ram_47 — Tue, 02 Aug 2005 04:53:24 GMT

Kris,

Does it imply that if i try to run an example for CLI it would fail since my version does not support CLI library?

Re: CLI$ROUTINES.H

Kris Clippeleyr — Tue, 02 Aug 2005 05:09:07 GMT

Ram,

Does it imply that if i try to run an example for CLI it would fail since my version does not support CLI library?

Not at all. The CLI$ routines are present in the OS. What I meant was that the text library SYS$SHARE:SYS$STARLET_C.TLB is probably not present on your system.
Older versions of the C compiler did not bring that file along. DEC C V6.4 does.

Regards,
Kris (aka Qkcl)

Re: CLI$ROUTINES.H

ram_47 — Tue, 02 Aug 2005 06:20:06 GMT

int status = 0;
const char* label = "input";
struct dsc$descriptor_s* entity;

entity->dsc$b_class = DSC$K_CLASS_S;
entity->dsc$b_dtype = DSC$K_DTYPE_T;
entity->dsc$w_length = strlen(label);
entity->dsc$a_pointer = label ;
status = CLI$PRESENT(entity);

what would be the value of 'status' after the CLI$PRESENT(entity) command is executed?

Re: CLI$ROUTINES.H

Brian Reiter — Tue, 02 Aug 2005 06:50:45 GMT

Depends if it was there or not.

Could get

CLI$_PRESENT = 261401

if 'input' was present,or

CLI$_ABSENT = 229872

if it wasn't there. Standard VMS error checks apply :) Gets more complex when looking for negated qualifiers though.

Re: CLI$ROUTINES.H

ram_47 — Tue, 02 Aug 2005 07:13:54 GMT

Even though the 'input' is present it returns a value that is different from
CLI$_PRESENT and CLI$_DEFAULTED. What could be the reason for this?

Re: CLI$ROUTINES.H

David B Sneddon — Tue, 02 Aug 2005 07:29:52 GMT

try const char* label = "INPUT";
i.e. in uppercase

Re: CLI$ROUTINES.H

Brian Reiter — Tue, 02 Aug 2005 07:30:07 GMT

Ram

Have you tried (from DCL) just entering

$exit

and see what comes out? This may prove helpful.

Re: CLI$ROUTINES.H

Antoniov. — Tue, 02 Aug 2005 10:08:23 GMT

/* Include status definition */
#include
/* I guess this is already declared *
#include

/* Set initial status */
int status = SS$_NORNAL;

/* Declare & allocate descripted var */
$DESCRIPTOR (entity, "input");

const char* label = "input";
struct dsc$descriptor_s* entity;

status = CLI$PRESENT(entity);
if (status == CLI$_PRESENT)
{
printf ("Entity present in command\n");
}
else if (status == CLI$_NEGATED)
{
printf ("Entity negated like /NOENTITY\n");
}
else if (status == CLI$_LOCPRES)
{
printf ("Entity present as local qual.\n");
}
else if (status == CLI$_LOCNEG)
{
printf ("Entity negated in loc.qualf.\n");
}
else if (status == CLI$_DEFAULTED)
{
printf ("Default value for entity\n");
}
else if (status == CLI$_ABSENT)
{
printf ("Entity not presenet\n");
}
else
{
printf ("Uhu, wrong software :-?\n");
}

Antonio Vigliotti