DG53289 ;ALB/RMM - Means Test Workload Cleanup Utility ; 23 Aug 2000 7:00 AM
Source file <DG53289.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;
; Pre-install set up checkpoint and tracking global... |
|
| EN | ; Begin Processing...
|
|
| EN1 | ; Begin processing
; Write message to installation device and to INSTALL file (#9.7) |
|
| RECCHK | ; Process Control Body
|
|
| SETARR | ; Setup an array with Means Test info
|
|
| CHKREC(DGDFN) | ; Validate each year by the earliest record
|
|
| SETREC(IY,REC31,ERRS) | ; The record met all criteria, now set the PRIMARY
|
|
| COUNT(DATE) | ; Update process tracking counter
; Input: ; DATE = inverse of the date from "AID" x-ref in 408.31 |
