Re: RPG Question

[Dave Brimeyer <brimeyer.david@xxxxxxxxxx>]

I don't know of a way in RPG.  In a CLP, you can execute command  RTVNETA
SYSNAME(&sysname).  I don't think there's a system value.

Dave

Doug Aarestad wrote:

> A quick RPG question: (If y'all don't mind!)
>
> Is there a way to retrieve the system name in an RPG program? (IE;
> S10-------) (I didn't see it anywhere in the SDS)
>
> Secondarily, I could retrieve it in a CL and parm it in.  (Can't you
> RTVSYSVAL and get the system name?)
>
> (Incidentally, we are CISC (obviously by the serial #!) at V3R2)
>
> Doug Aarestad
> aarestad@feist.com
> http://www.feist.com/~aarestad
>
>   ------------------------------------------------------------------------
>
>   Douglas D Aarestad <aarestad@feist.com>
>   Systems Analyst
>   Thorn Americas
>   IT
>
>   Douglas D Aarestad
>   Systems Analyst     <aarestad@feist.com>
>   Thorn Americas
>   IT
>   A219                Work Voice: 316-636-7436
>   8200 E Thorn Drive  Home Voice: 316-733-7538
>   Wichita
>   KS
>   67216
>   USA
>   Additional Information:
>   Last Name      Aarestad
>   First Name     Douglas
>   Additional NameD
>   Label Work     A219 8200 E Thorn Drive Wichita, KS 67216 USA
>   Label Home     713 E 21st Street Andover, KS 67002 United States



+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---