RE: RPG Question

[Bob Crothers <bcrothers@xxxxxxxxxxxxx>]

Doug,

System API QWCRSVAL will let you retrieve any system value 
without calling a cl program.  Below is the RPG code to use:

C                     MOVE *BLANK    $SCHDT 36
C                     Z-ADD36        $SCHLN
C*
C                     Z-ADD1         $SCHCN
C                     MOVEL'QSRLNBR' $SCHNM 10 P
C                     Z-ADD128       $SCEBY
C                     Z-ADD128       $SCEAV
C*
C                     CALL 'QWCRSVAL'             69
C                     PARM           $SCHDT
C                     PARM           $SCHLN
C                     PARM           $SCHCN
C                     PARM           $SCHNM
C                     PARM           $SCHER
C*
C           8         SUBST$SCHDT:29 $SSRLN

This works on V2R3 or better.

Regards,
Bob Crothers
Cornerstone Communications

-----Original Message-----
From:   Doug Aarestad [SMTP:aarestad@feist.com]
Sent:   Tuesday, March 03, 1998 10:32 PM
To:     MIDRANGE-L@midrange.com
Subject:        RPG Question

 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


+---
| 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
+---