5. FILES › 5.2 VMC Information Area Files › 5.2.3 VM RSCS Accounting File (VMCVRA) › 5.2.3.4 VMCVRA Retrieval Examples

5.2.3.4 VMCVRA Retrieval Examples

Determine how many jobs were sent to MVS (node MVSSYS1)
yesterday:

  DATA _NULL_;
    SET &VMCX..VMCVRA01 END=LAST;
    RETAIN DESTNODE 'MVSSYS1 ' COUNT 0;
  IF VRALSTNN = DESTNODE AND VRALSTNN = 'JOB' THEN COUNT+1;
  IF LAST THEN PUT ">>> " COUNT " JOBS SENT TO " DESTNODE;
  RUN;