PSUCSR0 ;BIR/DJM,DJE - Extract records for CS ;25 AUG 1998
Source file <PSUCSR0.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN(PSUMSG) | ;Scan and process for Division(s)
 ; PSUMSGT ("M")= # MESSAGES ("L")= # LINES  | 
|
| TEST | ||
| DIV(PSUMSG) | ;EP returns PSUMSG("M")= # MESSAGES ("L")= # LINES
 ; Scan TMP, split lines, transmit per MAX lines in Netmail  | 
|
| VARS(PSUMMS,S,E) | ; Setup variables for contents
 |