RE: RTV???? command question

["Rubino, Jim" <Jim.Rubino@xxxxxxxx>]

Jeff........
What does this command do actually?  Would it be possible to get the code?

TIA
Jim


-----Original Message-----
From: Jeff Crosby [mailto:jlcrosby@DILGARDFOODS.COM]
Sent: Wednesday, October 02, 2002 8:59 AM
To: Midrange Mailing List
Subject: RTV???? command question


I've written a bazillion (it seems like) commands over the years, but
evidently I've not wanted to do this before.

I wrote the following command to retrieve control file information for
an application be used like this:

RTVOWCNT   IPNAME(&IPNAME)     +
            IPADRS(&IPADRS)     +
            ACSUSR(&ACSUSR)     +
            ACSPWD(&ACSPWD)     +
            HSTUSR(&LAPUSR)     +
            HSTPWD(&LAPPWD)     +
            ACSDLPTH(&ACSDLPTH) +
            ACSULPTH(&ACSULPTH) +
            IFSDLPTH(&IFSDLPTH) +
            IFSULPTH(&IFSULPTH) +
            OWCTLFND(&OWCTLFND)

There are times, however, when I need only 1 piece of information, like
this:

RTVOWCNT   HSTUSR(&LAPUSR)

but I can't use it like that because I get the dreaded 'pointer not set
to location referenced'.  In the CL manual it says:

"If no variable is specified for a RTNVAL(*YES) parameter, a null
pointer is passed to the command processing program"

Am I stuck with having to use all the parms all the time?  Or is there a
way for the CPP to detect and handle the null pointer thingie?

Thanks.

--
Jeff Crosby
Dilgard Frozen Foods, Inc.
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531

The opinions expressed are my own and not necessarily
the opinion of my company.  Unless I say so.



_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.