Extracting the SMS group description using ops/MVS and Address Sysview

[Steve Ives]

I am trying to extract the SMS Group description from the SMSGROUP panel via an Ops/MVS Ops/EXEC as follows:

this = opsinfo('program')

sysvcmd = 'SMSGROUP;',
'SEL NAME eq 'smsGroup';',
'XVEXTRAC DATA Type type.;',
'XVEXTRAC DATA Capacity capacity.;',
'XVEXTRAC DATA Free free.;',
'XVEXTRAC DATA Used used.;',
'XVEXTRAC DATA Used% usedPct.',
'XVEXTRAC DATA Description desc.'

say this" returned "desc.0" description lines"

but desc. is not being populated. 

Is it not being returned or do I have the wrong column name, and if so how do I find the correct one?

Thanks,

Steve

[Hennie Hermans]

Hi Steve,

For the Sysview Rexx execution.. 
When i check the XVEXTRAC help screen the sample Rexx shows another syntax as you used in your Rexx program.
See here the sample:

....+....1....+....2....+....3....+....4....+....5....+....6
/* REXX */
ADDRESS 'LINK' 'GSVXRXAA'
ADDRESS 'SYSVIEWE'
'COMMAND(ACTIVITY) STACK(NO)'
'COMMAND(XVEXTRAC DATA jobname jobname.)'
DO i = 1 TO jobname.0
SAY "jobname." || i jobname.i
END
'COMMAND(END)'
EXIT

Could you please change your Rexx according the sample and see if it works.

Best regards
Hennie Hermans

------------------------------
Principal Support Engineer
Broadcom Software
------------------------------

[Steve Ives]

Hi Hennie,

OK - found the error thanks to your prompt. I'd missed off the ';' from the end of the line

'XVEXTRAC DATA Used% usedPct.', which is necessary as this is a series of stacked commands, so what was happening was I was sending the string :

SMSGROUP;SEL NAME eq 'smsGroup';XVEXTRAC DATA Type type.;XVEXTRAC DATA Capacity capacity.;XVEXTRAC DATA Free free.;XVEXTRAC DATA Used used. <SEMI_COLON NEEDED HERE> XVEXTRAC DATA Used% usedPct. <AND HERE> XVEXTRAC DATA Description desc.

to Sysview as a command and the XVEXTRACs for both Used% and Description weren't part of the 'SMSGROUP' command and so the variables weren't being populated (I'd missed the fact that usedPct was also not populated).

Regards,

Steve

[Steve Ives]

Just as a follow-up Hennie, is the FIELDS command on any Sysview display the definitive list of fields than can be extracted via XVEXTRAC?

Also yes - I've hit the max command length using a stacked command like this so I've got some code somewhere that loops around a list of commands and issues them separately, which seems to get around that problem. 

Thanks,

Steve

[Hennie Hermans]

Hi Steve,
Check our screen format... Is it DEFAULT?

The DEFAULT screen format of the SMSGROUP contains the fields Description and Used%... 

See here:

------------------------------------------------ Lvl 3 Row 1-31/31 Col 1-79/219
Cmd Command  Screen  Field       Type   APIType   FldL DatL Input Status
    SMSGROUP DEFAULT Cmd         CHAR                3      INPUT
    .        .       Name        CHAR                8
    .        .       Status      CHAR                8
    .        .       Type        CHAR                8
    .        .       Volumes     NUM_FD              7
    .        .       Capacity    NUM_FX              8
    .        .       Free        NUM_FX              5
    .        .       Large       NUM_FX              5
    .        .       Used        NUM_FX              5
    .        .       Used%       NUM_PCT             5
    .        .       UsedGraph   CHAR               20             STATUS
    .        .       Online      NUM_FD              6
    .        .       Offline     NUM_FD              7
    .        .       Enabled     NUM_FD              7
    .        .       Disabled    NUM_FD              8
    .        .       Quiesced    NUM_FD              8
    .        .       AMigr       CHAR                5
    .        .       Migr-Sys    CHAR                8
    .        .       ABkup       CHAR                5
    .        .       Bkup-Sys    CHAR                8
    .        .       ADump       CHAR                5
    .        .       Dump-Sys    CHAR                8
    .        .       HMig        NUM_PCT             4
    .        .       LMig        NUM_PCT             4
    .        .       GBFrq       NUM CHAR            5
    .        .       Description CHAR               39  120
    .        .       DumpCl-1    CHAR                8
    .        .       DumpCl-2    CHAR                8
    .        .       DumpCl-3    CHAR                8
    .        .       DumpCl-4    CHAR                8
    .        .       DumpCl-5    CHAR                8
********************************* End of Data *********************************
Best regards,

Hennie Hermans

------------------------------
Principal Support Engineer
Broadcom Software
------------------------------

[Steve Ives]

Thanks Hennie.

Steve

[Jerry Scott]

Hi Steve,

I believe that this code might work for you. 

/* REXX */
Address 'SYSVIEWE'                                                      /* Set address env */
'COMMAND(SET APISTACK OFF)'                                /* Set EDQ off       */ 
'COMMAND(SMSGROUP)'                                             /* Sysview command */
'COMMAND(XVEXTRAC DATA Name sms_group.)'     /* Extract Name to stem */
'COMMAND(XVEXTRAC DATA Type sms_type.)'         /* Extract Type to stem */
'COMMAND(XVEXTRAC DATA Free sms_free.)'           /* Extract Free to stem */
'COMMAND(XVEXTRAC DATA Used sms_used.)'         /* Extract Used to stem */
'COMMAND(XVEXTRAC DATA Used% sms_usedPct.)' /* Extract Used% to stem */
'COMMAND(XVEXTRAC DATA Description sms_desc.) /* Extract Description to stem */
Select
   When RC > 4 Then Do                            /* if RC > 4 */
      Say 'API command error RC = 'RC      /* Then say so */
      Say SYSV_MESSAGE                            /* dispaly sysv msg */
      Signal PGM_EXIT                                   /* Get Out */
  End   /* When RC > 4 */                   
  When RC > 0 Then ,                                 /* if RC > 0 */
      Say SYSV_MESSAGE                            /* display sysv msg */
  Otherwise NOP                                         /* No OP */
End   /* Select */
Do i = 1 to sms_name.0                               /* Loop through stem var */
   Say 'SMS Group = 'sms_group.i' Type = 'sms_type.i' Free = 'sms_free.i' Used = 'sms_used.i
   Say 'Used % = 'sms_usedPct.i' Descr = 'sms_desc.i
End
PGM_EXIT:
'COMMAND(End)'                                         /* end Sysview session*/
Return RC


Now if you wanted a specific SMS Group you could add a SELECT command before the XVEXTRAC commands like;
'COMMAND(SELECT NAME EQ STANDARD)'           /*limit display to group STANDARD */

Also in CA OPS OSF servers, there is no requirement to ADDRESS 'LINK' 'GSVXRAA'), but this would be required in a TSO REXX. 

Also the online help for XVEXTRAC is very detailed and helpful.



------------------------------
Jerry Scott
Broadcom Technical Consultant
[e-mail]
------------------------------

[Steve Ives]

Thanks Jerry,

Steve