4. CUSTOMIZATION › 4.3 Specifying Rates › 4.3.1 Defining the Rate Table › 4.3.1.8 Specifying an Ext. Journal File Preprocessing Exit › 4.3.1.8.2 Ext. Journal File Preprocessing Exit Example

4.3.1.8.2 Ext. Journal File Preprocessing Exit Example

In the example in Figure 4-32, the tape management system has
an observation for each tape mounted.  This preprocessing
exit summarizes the observations to one record per user.

_____________________________________________________________

 DATA WORK.TMS;                                                        00030000
   INFILE INPUTACT;                                                    00031000
   INPUT COSTCTR1 $4. @6 COSTCTR2 $1. @8 COSTCTR3 $5. @14 VOLSER $6.;  00040000
   TAPECNT=1;                                                          00050000
 PROC SORT;                                                            00060000
   BY COSTCTR1 COSTCTR2 COSTCTR3;                                      00070000
 PROC MEANS DATA=WORK.TMS NOPRINT;                                     00080000
   BY COSTCTR1 COSTCTR2 COSTCTR3;                                      00090000
   VAR TAPECNT;                                                        00100000
   OUTPUT OUT=WORK.TMSSUM SUM=TAPECNT;                                 00110000

_____________________________________________________________


 Figure 4-32.  External Journal File Preprocessing Exit Example