;
; MAKFNLIS filnam MAKES UP A LIST OF FUNCTION NAMES, AND IT'S USE
;
;
;
.ENABLE SUBSTITUTION
.ENABLE QUIET
;
;
; OPEN THE FILE AND CLEAR THE GLOBAL OBJECT FILE
;
INS GETKWK/TASK=...GTK
;
.OPENR [5,1]'P1'.LIS
;
; LOOP ARROUND GETTING THE 
.READLP:
.READ FNAM
.IFT <EOF> .GOTO LPEX
GTK >'FNAM'.TMP -C [5,1]'FNAM'.C
.IF <EXSTAT> <> 1 .GOTO COMERR
PIP 'P1'.TMP='P1'.TMP,'FNAM'.TMP
PIP 'FNAM'.TMP;*/DE
PIP 'P1'.TMP/PU
;
;
.GOTO READLP
;
; CLOSE THE FILE
;
.LPEX:
.CLOSE
;
; BUILD THE DOCUMENT FILE
;
REM ...KWK
;
.EXIT
;
; WE HAVE A COMPILE ERROR
;
.COMERR:
.CLOSE
.OPEN TI:
.DATA
.DATA
.DATA ******** DOCUMENT ERROR ON 'FNAM' WHILE MAKING 'P1' *********
.DATA
.DATA
.CLOSE
.EXIT
;

