4. CUSTOMIZATION › 4.15 Defining and Submitting Utility Jobs › 4.15.2 Defining the Utility Job Input Routine › 4.15.2.2 Utility Job Input Routine Example

4.15.2.2 Utility Job Input Routine Example

In the example in Figure 4-97, the value of PROOLD, PRONEW,
and PROPER are read from the input file.  The input file has
the prorating information.  If you want to create the ISPF/DM
MAF$PR table records, these are the three variables that must
be read from the input.  The following coding is an example
of defining the input routine for the Prorating Table Update.
The input in this example is an OS sequential file.

         +----------------------------------------------------------------------------------------------------------+
         |                                                                                                          |
         |Date: ____/____/____                        Administrator:  ____________________________________________  |
         +----------------------------------------------------------------------------------------------------------+
 
                                     UTILITY JOB INPUT ROUTINE EXAMPLE
 
 
          SAS Statements:
 
                        /*------------------------------------------------------------------*/
                        /** ENTER THE NECESSARY SAS CODING TO READ THE VARIABLES FROM YOUR **/
                        /** INPUT FILE.  THE THREE VARIABLES ARE TO BE CALLED 'PROOLD',    **/
                        /** 'PRONEW' AND 'PROPER'.  THE 'PROPER' IS THE PRORATE PERCENTAGE.**/
                        /** THE PERCENTAGE CANNOT EXCEED 100.  THE TOTAL OF THE PERCENTAGE **/
                        /** FOR ANY 'PROOLD' MUST BE 100 PERCENT.  A MAXIMUM OF 4 DECIMAL  **/
                        /** POSITIONS CAN BE READ INTO THE PERCENTAGE FIELD(IE. 50.1111).  **/
                        /** SAMPLE CODING IS SHOWN AFTER THE NEXT LINE.                    **/
                        /********************************************************************/
                          INFILE INPUTACT MISSOVER LS=80 COLUMN=COLUMN END=ENDIT;
                          INPUT INDATA $ 1-80 +BACK80 @;
                          PUT INDATA;
                          IF INDATA =: '*' OR INDATA =: '/*'  OR INDATA=:BLANKS THEN RETURN;
                          INPUT PROOLD : $ PRONEW : $ PROPER : 4.;
____________________________________________________________________________________________________________________________________

 Figure 4-97.  Utility Job Input Routine Example