5. FILES › 5.3 VMX Information Area Files › 5.3.10 VMX User Data Configuration File (VMXVXF) › 5.3.10.4 VMXVXF Retrieval Examples

5.3.10.4 VMXVXF Retrieval Examples

List userids in the VMXVXF that are XA mode or have some
special performance preference.

   DATA _NULL_;
   SET &VMXX..VMXVXF01;
     LENGTH LINE $80.;
     FILE PRINT NOTITLES HEADER=HEADER;
     IF VMXSTCHG = 'IC' OR VMXSTCHG = 'LN';
     OK1 = VXFDMODE = '..1.....'B;          /* XA       */
     OK2 = VXFDMODE = '....1...'B;          /* V=R      */
     OK3 = VXFABSSH NE 0;                   /* ABSSHARE */
     IF NOT OK3 THEN OK4 = VXFRELSH NE 100; /* RELSHARE */
     OK5 = VXFSVM;                          /* SVM      */
     OK6 = VXFCPUCT > 0;                    /* VIRT MP  */
     IF OK1 OR OK2 OR OK3 OR OK4 OR OK5 OR OK6;
     IF OK1 THEN SUBSTR(LINE,1,2) = 'XA';
     IF OK2 THEN SUBSTR(LINE,4,3) = 'V=R';
     IF OK5 THEN SUBSTR(LINE,8,3) = 'SVM';
     IF OK6 THEN
       SUBSTR(LINE,12,8) = 'CPUs: ' || PUT(VXFCPUCT,2.);
     VXFABSSH = VXFABSSH*100;
     IF OK3 THEN DO;
       IF VXFABSSH < 0
         THEN SUBSTR(LINE,21,22) = 'Dedicated CPU';
         ELSE SUBSTR(LINE,21,22) =
           'Absolute Share: ' || PUT(VXFABSSH,5.2) || ' %';
     END;
     IF OK4 THEN SUBSTR(LINE,21,22) =
           'Relative Share: ' || PUT(VXFRELSH,5.);
     PUT @10 USER $CHAR8. +3 LINE $CHAR50.;
   RETURN;
   HEADER:
     PUT @5  'Userids Specially Configured on System '
             SYSID /
         @11 'Userid    Special Conditions' /;
   RETURN;
   RUN;