5. FILES › 5.2 VAX/VMS Accounting Information Area Files › 5.2.2 VMS ACCOUNTING Image Termination File (DEAIMG) › 5.2.2.4 DEAIMG Retrieval Examples

Previous Topic: 5.2.2.3 DEAIMG Usage Considerations

Next Topic: 5.2.3 VMS ACCOUNTING LOGIN Failed File (DEA_LF)

5.2.2.4 DEAIMG Retrieval Examples


This section presents typical DEAIMG retrieval examples.

1.  Print a list of all users and all images for node DEV1
    yesterday.

    DATA;
    SET &pDEMX..DEAIMG01;
    IF DATEPART(ENDTS)=TODAY()-1;
    IF SYSID='DEV1';
    PROC PRINT;
     VAR DEXUSER IMGNAME;

2.  Print the total volumes mounted on node DEV1 yesterday.

    DATA;
    SET &pDEMX..DEAIMG01 END=EOF;
    IF DATEPART(ENDTS)=TODAY()-1;
    IF SYSID='DEV1';
    RETAIN VOLS 0;
    VOLS+IMGVOLS;
    IF EOF THEN DO;
      PUT VOLS;
      END;