VOC: Quickly compile the same program

VOC B

PA
* This paragraph will compile a program and propose to run it.
* Author: dreller2034, Apr 13 2020.
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* Change the @PGMLIB to set the file which contains the program source.
SET @PGMLIB "DEVCORE.PGM"
* Change the @PGMNAME to set the program file to compile.
SET @PGMNAME "DC.CREATE.FILE.SUBR"
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
CLR
DISPLAY - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
DISPLAY                         C O M P I L E R
DISPLAY - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
DISPLAY User   : <<@LOGNAME>>
DISPLAY Library: <<@PGMLIB>>
DISPLAY Program: <<@PGMNAME>>
DISPLAY Account: <<@ACCOUNT>>
DISPLAY - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
DISPLAY
BASIC <<@PGMLIB>> <<@PGMNAME>>
IF <<@SYSTEM.RETURN.CODE>> EQ 1 THEN GO 500
DISPLAY 
DISPLAY - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
DISPLAY  * Failed to compile *
STOP
500:
DISPLAY
DISPLAY - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
IF <<I3,Run program (Y/N) ?>> # "Y" THEN STOP
CLR
RUN <<@PGMLIB>> <<@PGMNAME>>