Using *SYSTEMVAL

[David Frederick (714)969-4600 x4109]

On 07-Jan-1998 Rich Jesse wrote:

>(trying *both* lists!)
>
>O.K., I give up.  I've searched the manuals, Cognos' web site, tutorials, etc.
>There is no where I can find that states how the hell SETSYSTEMVAL and it's
>cousins GETSYSTEMVAL and DELETESYSTEMVAL are used in 7.10 QTP on OVMS 6.2.  I
>tried using them with the QUICK syntax, but I'm sure you know where that went. 
>I then tried using them within a DEFINE statement, like I finally figured out
>how to do in QUIZ (and the way the manuals *eluded* to), but the statement is
>apparently never executed?  Very short QTP example:
>
>	ACCESS MY_TABLE
>	DEFINE DUMMY_VALUE CHAR*1 = " " IF SETSYSTEMVAL("DCL_LOGNAME", "VALUE")
>	GO
>
>The logical DCL_LOGNAME is never created in any logical table.  I also 
>verified that a symbol is also not created, despite the manual stating that
>logical creation is the default.
>
>Anyone???  And if anyone knows, can you also relay where you found this out?
>
>TYVMIA,
>Rich Jesse                              Programmer/Analyst
>rjesse@qtiworld.com                     Quad/Tech International, Sussex, WI USA
>

    Use global temporary variables.  Example:
    
        GLOBAL TEMP G_STUFF_AND_THINGS CHAR*2 INITIAL &    
        	GETSYSTEMVAL("DCL_LOGNAME",LOGICAL,"LNM$JOB")
        

    David Frederick
    Programmer/Analyst
    Wycliffe Bible Translators USA
    Internet:  David.Frederick@wycliffe.org
    ----
    Disclaimer: Opinions expressed may not reflect those of my employer.