R: retrieve os version

[Finucci Domenico <Domenico.Finucci@xxxxxxxxxxxx>]

Good morning. Try this:
DCL        VAR(&VERSION) TYPE(*CHAR) LEN(10)
RTVDTAARA  DTAARA(QSS1MRI (1 10)) RTNVAR(&VERSION)
SNDPGMMSG  MSG(' Version: ' *CAT &VERSION)

Sincerely
Domenico Finucci
Fiditalia , Milano, 02- 4301-2494


-----Messaggio originale-----
Da: Al Barsa, Jr. [mailto:barsa2@ibm.net]
Inviato: martedì 6 febbraio 2001 01.08
A: MIDRANGE-L@midrange.com
Oggetto: Re: retrieve os version


At 06:42 PM 2/5/01 -0500, you wrote:

It's much simpler to call from CL.  I have the code at home.

Al in Rochester (where else would anyone want to be in February.)


>Albert,   I kept this one around.
>
>
>
>/***************************************************/
>/* Get machine model, type, proc_grp, sn#, OSver   */
>/* Author - Phil Hall   phall@ssax.com             */
>/***************************************************/
>
>#include <stdio.h>
>#include <stdlib.h>
>#include <string.h>
>#include <qmhsndpm.h>
>#include <qszrtvpr.h>
>#include <mimchint.h>
>
>typedef struct error_code_struct
>{
>      int  bytes_provided;
>      int  bytes_avail;
>      char expt_id[7];
>      char RESERVED;
>      char expt_data[100];
>  } Error_Code_Struct;
>
>  /*-- Function prototypes --*/
>  void sndpgmmsg(char *msd_id, char *msg_data, char *msg_type);
>
>  int main (void)
>  {
>    _MMTR_Template_T        this_400_info;
>    Qsz_Product_Info_Rec_t  prd_to_query;
>    Qsz_PRDR0100_t          prd_info;
>    Error_Code_Struct       error_code;
>    char                    os400_ver[10];
>    char                    msg_string[100];
>
>      /*-- get system info --*/
>      this_400_info.Options.Template_Size = sizeof(this_400_info);
>      matmatr( &this_400_info, _MMTR_VPD );
>
>      /*-- get OS/400 version --*/
>      memset(&prd_to_query, ' ', sizeof(prd_to_query));
>      memset(&error_code, 0, sizeof(error_code));
>      memcpy(prd_to_query.Product_Id,     "*OPSYS", 6);
>      memcpy(prd_to_query.Release_Level,  "*CUR",   4);
>      memcpy(prd_to_query.Product_Option, "0000",   4);
>      memcpy(prd_to_query.Load_Id,        "*CODE",  5);
>
>      /*-- let's query the OS/400 product --*/
>  QSZRTVPR(
>  &prd_info,
>
>  sizeof(prd_info),
>
>  "PRDR0100",
>
>  &prd_to_query,
>
>  &error_code);
>      if (error_code.bytes_avail ==
>  0)
>  {
>  /*-- we have the product info for OS/400 licpgm--*/
>          sprintf(os400_ver, "%.6s", prd_info.Release_Level
>  );                                   }   else   {        /*-- error
>ocurred
>  --*/
>          strcpy(os400_ver,
>  "V?R?M?");                                                           }
>    sprintf(msg_string, "Model %.4s, Type %.4s-%.4s, PRC Group %.4s, SN#
>%.10s, OS is at %s.",
>            this_400_info.Options.Data.VPD.CEC_Info.Type,
>            this_400_info.Options.Data.VPD.CEC_Info.Model,
>            this_400_info.Options.Data.VPD.CEC_Info.Feature_Code,
>            this_400_info.Options.Data.VPD.CEC_Info.Group_Id,
>            this_400_info.Options.Data.VPD.CEC_Info.Serial_No,
>            os400_ver);
>    sndpgmmsg( "CPF9897", msg_string, "*COMP     ");
>    return 1;
>  }
>
>  void sndpgmmsg(char *msg_id, char *msg_data, char *msg_type)
>  {
>    Error_Code_Struct  err_code;
>    char               msg_key[4];
>    char               tmp_msg_id[7];
>   char               tmp_msg_type[10];
>
>     memset(&err_code, 0, sizeof(err_code));
>
>     /*-- copy parms to AS/400 API format... --*/
>     memcpy(tmp_msg_id, msg_id, sizeof(tmp_msg_id));
>     memcpy(tmp_msg_type, msg_type, sizeof(tmp_msg_type));
>
>     /*-- send message... --*/
>     QMHSNDPM(tmp_msg_id,
>              "QCPFMSG   QSYS      ",
>              msg_data,
>              strlen(msg_data),
>              tmp_msg_type,             "*         ",             3,
>              msg_key,                  &err_code);  }
>
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
>| To subscribe to this list send email to MIDRANGE-L-SUB@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
>+---



+--------------------------------------------------+
| Please do not send private mail to this address. |
| Private mail should go to barsa@ibm.net.         |
+--------------------------------------------------+

Al Barsa, Jr. - Account for Midrange-L
Barsa Consulting, LLC.  
400 > 390

Phone:          914-251-1234
Fax:            914-251-9406
http://www.barsaconsulting.com
http://www.taatool.com
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---