5. FILES › 5.2 VMC Information Area Files › 5.2.2 VM Device Accounting File (VMCDAC) › 5.2.2.4 VMCDAC Retrieval Examples

Previous Topic: 5.2.2.3 VMCDAC Usage Considerations

Next Topic: 5.2.3 VM RSCS Accounting File (VMCVRA)

5.2.2.4 VMCDAC Retrieval Examples


Determine how many tape drives user 'JONES' allocated
yesterday:

  %LET BY = SYSID USER;
  PROC SORT DATA=&VMCX..VMCDAC01 OUT=DAC;
    BY &BY; RUN;
  DATA _NULL_;
    SET DAC END=LAST;
    BY &BY;
    RETAIN CARTCNT TAPECNT 0;
  IF USER = 'JONES' AND DEVCLASS = 'TAPE' THEN DO;
    IF DEVTYPE = '3480' THEN CARTCNT+DACNRALC;
    ELSE TAPECNT+DACNRALC;
  END;
  IF LAST THEN PUT "USER JONES ALLOCATED " CARTCNT " 3480
     TAPE " "DRIVES AND " TAPECNT " OTHER TAPE DRIVES.";
  RUN;