(SYSLIB) Programming Reference Manual - Public Support Login ...

PREPRM, PREPRO, PREPF$, and POSTPR$
14.1.4.1. REPRO$–Reusable Processor Preprocessor Routine
REPRO$ reads INFOR from the INFOR CLIST processor call statement. INFOR$ must
be set to zero. REPRO$ also performs some of the same functions as PREPRO.
Initial Conditions
The calling program must establish an INFOR CLIST. On completing SIR$, S4 of
PARTBL+13 must be zero.
PARTBL must be externally defined and at least 40 words long.
Calling Sequence
LA A0,expected-CLIST-index-or-zero
LMJ X11,REPRO$
absolute-eof return
wrong-CLIST-index return
error return
normal return
Returns
error
normal
Identical to those for PREPRO$.
absolute-eof
Indicates that an end-of-file condition has been encountered that cannot be
bypassed; that is, a nontransparent control statement or @ENDX was encountered.
In this case, the processor cannot reuse itself and must terminate.
wrong-CLIST-index
The wrong-CLIST-index return is optional for processors that have more than one
item in their INFOR CLIST and only want to analyze one specific command
automatically; the command is specified by its CLIST index given in A0 prior to
calling REPRO$. This return never occurs if A0 is zero on entry to REPRO$.
After the wrong-CLIST-index return, X11 points to a reentry location you want to
continue with the preprocessor routine. (Note that the CLIST index encountered is
found in S3 of INFOR$+1.) Use the following instructions:
LMJ X11,0,X11
error return
normal return
The two returns are the same as for PREPRO$.
14–8 7833 1733–004