Re: system version

Oops,

I screwed up.  When I was reading your code, I thought it looked very good
to me!

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

"i" comes before "p", "x" and "z"
e gads

Our system's had more names than Elizabeth Taylor!

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com
http://www.as400connection.com



                                                                           
             Nick_Radich@epcmo                                             
             lding.com                                                     
             Sent by:                                                   To 
             midrange-l-bounce         Midrange Systems Technical          
             s@xxxxxxxxxxxx            Discussion                          
                                       <midrange-l@xxxxxxxxxxxx>           
                                                                        cc 
             08/22/2006 05:39                                              
             PM                                                    Subject 
                                       Re: system version                  
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
             <midrange-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




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



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


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