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
|