Invoking IFAURP

IFAURP (the usage report program) is invoked by specifying PGM=IFAURP on the execute JCL statement using JCL similar to that shown in Figure 1.

Figure 1. Sample JCL and control statements for invoking IFAURP

//IFAURP   EXEC PGM=IFAURP,REGION=0M,PARM=ALLREPORTS
//STEPLIB  DD  DSN=SYS1.SIFALIB,DISP=SHR
//         DD  DSN=vendor.lib,DISP=SHR   (OPTIONAL - PROVIDED BY VENDOR)
//SYSMSGS  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//vendor   DD  SYSOUT=*                   (OPTIONAL - FOR vendor's REPORTS)
//SMFDATA  DD  DSN=&&SORT89,DISP=(OLD,DELETE)
//SYSHIN   DD  DSN=MULC.HISTORY.#1234567(0),DISP=OLD
//SYSHOUT  DD  DSN=MULC.HISTORY.#1234567(+1),DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=VBS,LRECL=32760,BLKSIZE=16384),
//             UNIT=SYSDA,SPACE=.....
//SYSIN    DD  *

*
* Customer name and address
*
  CUSTOMER(NAME('Acme Tulle and Dye Company')
           ADDRESS('155 Main Street',
                   'New London, CT 05512')
           CONTACT('Fred Tulle')
           PHONE('(203) 000-1212 ex 54'))

*
* Vendor name and address
* (sample only - IBM rep will supply to each customer)
*
  VENDOR(PRODOWNER('IBM CORP')
         NAME('IBM Branch Office')
         ADDRESS('1133 Westchester Avenue',
                 'Major City, Sample State  10604',
                 'FAX: 1-800-000-1212  ATTN: Measured Usage Pricing')
         CODE(1234567))

*
* Parallel sysplex definition and products
*
  SYSPLEX(ID(SYSPLEX1)
          PLEXDATE(19940328)
          PROCESSOR ((9021,962,33333),(9672,RX5,00166))
          PRODUCT (PRODOWNER('IBM CORP')
                   PRODNAME('CICS')
                   START(19941101,ALIGN(1)))
          PRODUCT (PRODOWNER('IBM CORP')
                   PRODNAME('IMS TM')
                   START(19941101)))

*
* Processor definition and products
*
  PROCESSOR((9021,952,01111)
            PRODUCT (PRODOWNER('IBM CORP')
                     PRODNAME('CICS')
                     START(19941103))
            PRODUCT (PRODOWNER('IBM CORP')
                     PRODNAME('TSO/E')
                     START(19941103))
            PRODUCT (PRODOWNER('IBM CORP')
                     PRODNAME('IMS TM')
                     START(19941103)))
/*