Re: system version

[Nick_Radich@xxxxxxxxxxxxxx]

Richard,

I tried it and it works great.  The value it returned in variable 
&OS400VRM was V4R5M0 for me.  I did have to add the DCL for variable 
&OS400VRM, though.

Here is my source member: 


PGM 
 
             DCL        VAR(&APIPARM) TYPE(*CHAR) LEN(1000) 
             DCL        VAR(&APIPARMLEN) TYPE(*CHAR) LEN(4) 
             DCL        VAR(&APIERRCDE) TYPE(*CHAR) LEN(4) 
             DCL        VAR(&OS400VRM) TYPE(*CHAR) LEN(6) 
             DCL        VAR(&PRDINF) TYPE(*CHAR) LEN(27) + 
                          VALUE('*OPSYS *CUR  0000*CODE') 
 
             CALL       PGM(QSZRTVPR) PARM(&APIPARM &APIPARMLEN + 
                          PRDR0100 &PRDINF &APIERRCDE) 
 
             CHGVAR     VAR(&OS400VRM) VALUE(%SST(&APIPARM 20 6)) 
 
ENDPGM 


There is 1 space between the values in the &PRDINF Variable, except no 
spaces between "0000*CODE".

Thanx Scott!!


Nick


Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct  (320) 679-6683
Toll free  (800) 388-2155  ext. 6683
Fax  (320) 679-4516
nick_radich@xxxxxxxxxxxxxx



"Richard" <rhenley@xxxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
08/22/06 04:03 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
cc

Subject
Re: system version






I tried the following, all it returned was blanks. 

What is the spacing in (&PRDINF...?


TIA,

richard

==========================================================================

Lots of different ways:

Interactively:

GO LICPGM

Option 10 F11.

> From a program, there are two methods.  My favorite (because IBM
"guarantees" that it works) is:

DCL         VAR(&APIPARM) TYPE(*CHAR) LEN(1000)
DCL         VAR(&APIPARMLEN) TYPE(*CHAR) LEN(4)
DCL         VAR(&APIERRCDE) TYPE(*CHAR) LEN(4)
DCL         VAR(&PRDINF) TYPE(*CHAR) LEN(27)  VALUE('*OPSYS *CUR 0000*CODE
')
CALL        PGM(QSZRTVPR) PARM(&APIPARM &APIPARMLEN  PRDR0100 &PRDINF
&APIERRCDE)
CHGVAR      VAR(&OS400VRM) VALUE(%SST(&APIPARM 20 6))