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
|