5. FILES › 5.2 VAX/VMS Accounting Information Area Files › 5.2.4 VMS ACCOUNTING Print Queued File (DEAPRQ) › 5.2.4.4 DEAPRQ Retrieval Examples

Previous Topic: 5.2.4.3 DEAPRQ Usage Considerations

Next Topic: 5.2.5 VMS ACCOUNTING Initialization File (DEAINT)

5.2.4.4 DEAPRQ Retrieval Examples


This section presents typical DEAPRQ retrieval examples.

1.  Print a list of all users who used printers yesterday.

    DATA;
    SET &pDEMX..DEAPRQ01;
    IF DATEPART(ENDTS)=TODAY()-1;
    PROC FREQ;
     TABLE DEXUSER;

2.  Print  the  total  number  of  lines printed on node DEV1
    yesterday.

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