The MAREN system provides a means of charging for certain volume archiving services. It can produce accounting records for:
reserved computer center tapes (service type 430);
archived foreign tapes (service type 430);
exporting volumes (service type 432).
By specifying an accounting period in the MARENADM statement WRITE-ACCOUNTING-RECORDS (using the FROM-DATE and TO-DATE operands), it is possible to evaluate the current MAREN catalog and if necessary an additional logging file (specified in the LOGGING-FILE operand). The resulting accounting records are written to a SAM file (OUTPUT-FILE operand).
MAREN generates accounting records as follows:
The current MAREN catalog is first evaluated. Thus accounting records are generated for service types 430 and 431. In addition to the user ID and account number, these records include information on the reservation period (beginning, end, and number of days). If the reservation period lies outside the accounting period, the start and end date are specified.
If a logging file is specified, accounting records are then generated for magnetic tapes and disks which were reserved during the accounting period but which have since been released or reallocated. The information in the logging file is also used to produce accounting records for service type 432 if a computer center volume has been exported using the EXPORT-VOLUME statement or a private volume has been returned. The start and end date are taken from the EXPORT-DATE, and the number of days is set to “1”.
Format of the accounting records
| Field no. | Offset | Length (bytes) | Format | Meaning | |
| hex. | dec. | ||||
| 1 | 00 | 0 | 4 | B | Record length field (X'00734040') |
| 2 | 04 | 4 | 2 | A | Record type (C'H4') |
| 3 | 06 | 6 | 8 | A | System (C'41AR'BLANK''BLANK''BLANK''BLANK'') |
| 4 | 0E | 14 | 8 | A | User ID from the catalog entry |
| 5 | 16 | 22 | 8 | A | Account number from the catalog entry |
| 6 | 1E | 30 | 8 | A | User configuration (blanks) |
| 7 | 26 | 38 | 8 | A | Reserved (blanks) |
| 8 | 2E | 46 | 8 | A | Job name (blanks) |
| 9 | 36 | 54 | 1 | A | Accounting type (blanks) |
| 10 | 37 | 55 | 8 | A | Start date in the format ddmmyyyy |
| 11 | 3F | 63 | 4 | A | Start time in the format hhmmss |
| 12 | 43 | 67 | 8 | A | End date in the format ddmmyyyy |
| 13 | 48 | 75 | 4 | A | End time in the format hhmmss |
| 14 | 4F | 79 | 3 | A | Performance type (C'430', C'431' or C'432') |
| 15 | 52 | 82 | 8 | A | Number of days in the accounting period in the format C''BLANK''BLANK''BLANK''BLANK''BLANK''BLANK'nn' |
| 16 | 5A | 90 | 4 | A | TSN (blanks) |
| 17 | 5E | 94 | 7 | A | Fill characters (blanks) |
| 18 | 65 | 101 | 14 | A | Comment in the format C'aaaaaa/mm.yyyy' aaaaaa: rchive number (VSN) mm.yyyy: month and year of expiration date |
Corresponding fields in the COBOL structure of RAV V5.0
| Field no. | Meaning | Field name in the COBOL structure |
| 1 | Record length field (X'00734040') | |
| 2 | Satzart (C'H4') | HA-KA |
| 3 | System (C'41AR'BLANK''BLANK''BLANK''BLANK'') | HA-CPUID/ HA-KF-KEY |
| 4 | User ID from the catalog entry | USERID |
| 5 | Account number from the catalog entry | HA-ACCNR |
| 6 | User configuration (blanks) | HA-BRKF |
| 7 | Reserved (blanks) | HA-ACCID |
| 8 | Job name (blanks) | HA-JOB-NAME |
| 9 | Accounting type (blanks) | HA-VERR-ART |
| 10 | Start date in the format ddmmyyyy | HA-VON-DATUM/HA-START-DATUM |
| 11 | Start time in the format hhmmss | HA-VON-ZEIT/HA-START-ZEIT |
| 12 | End date in the format ddmmyyyy | HA-BIS-DATUM/HA-ENDE-DATUM |
| 13 | End time in the format hhmmss | HA-BIS-ZEIT/HA-ENDE-ZEIT |
| 14 | Activity (C'430', C'431' oder C'432') | HA-LEIST-ART |
| 15 | Number of days in the accounting period in the format C''BLANK''BLANK''BLANK''BLANK''BLANK''BLANK'nn' | HA-MENGE |
| 16 | TSN (blanks) | HA-FILLER |
| 17 | Fill characters (blanks) | TSN |
| 18 | Comment in the format C'aaaaaa/mm.yyyy' aaaaaa: archive number (VSN) mm.yyyy: month and year of expiration date | HA-BEMERKUNG |