Previous Topic: Distributed Sample Source Code

Next Topic: JR70TVA1 Control Statements


JR70TVA1: Debit Record Creation

In JR70TVA1, CA JARS Wizard is used to:

JR70TVA1 executes on the assumption that your tape management system master file contains an account number. For CA 1, the account number is taken from the TMC TMUSER field. For CA DYNAM/TLMS, the account number is taken from the VMF BAJOBACC field.

Note: It is your responsibility to ensure that a valid account number is contained in the appropriate field for your tape management system.

JR70TVA1 does test for a blank account number. If found, JR70TVA1 uses the account MISC.ACCOUNT for the account number. You can alter this accordingly.

Be sure to include DD statements for the following ddnames:

The sample report produced with the debit record output file with JR70TVA1 is shown next.

                                                 TOTAL TAPE SYSTEM CHARGES BY ACCOUNT                        18 OCT 1998 PAGE    1                                                                         TVA BILLING                                  ACCOUNT NUMBER        TOTAL CHARGE         RECORDS     DAYS OF USAGE                                 ----------------     --------------     -----------     -------------                                        AMOCO                $145.00               1                29                                  CAP1.FIMS.FEDX             $145.00               1                29                                  TERRY DENNIS               $145.00               1                29                                 BETTYE SPARKS               $435.00               3                87                                 BEV HALWA                   $145.00               1                29                                 BF-MEMBERS 6/79             $145.00               1                29                                 BILL VALLIERE             $1,015.00               7               203                                 BKUP DS 080679              $580.00               4               116                                 BKUP HAW MOVE               $145.00               1                29                                 BKUP MIMS 1.3               $145.00               1                29                                 BKUP OF OPT.REL             $145.00               1                29                                 BKUP OF TLMSII              $145.00               1                29                                 BKUP REL-1.2                $145.00               1                29                                 BKUP SL,RL,CL,R             $145.00               1                29                                 BKUP 79-REL 2.0             $145.00               1                29                                 BKUP-071578-1.0             $145.00               1                29                                        .                                        .                                        .                                                                         TVA BILLING                                  ACCOUNT NUMBER        TOTAL CHARGE         RECORDS     DAYS OF USAGE                                 ----------------     --------------     -----------     -------------    GRAND TOTAL                                        $1,581,175.00          11,977           316,235