ECHO OFF
IF NOT %1.==. SET PDL=%1
IF %1.==. CLS
IF %1.==. TYPE \PDL\PDLLOGO.BAT
IF %1.==. PDLWHAT s 'Enter RPG source member name.'
IF %PDL%.==. GOTO  EXIT
CLS
TYPE \PDL\PDLLOGO.BAT
echo .
echo Program - %pdl%
echo .
echo Compile in progress.  Please wait ...
cd \rpgsys
\RPGSYS\RPG  %cd%\%PDL%,%cd%\%pdl%.obj>%CD%\RPGERR.LST
CD %CD%
pdlview %cd%\rpgerr.lst
CLS
TYPE \PDL\PDLLOGO.BAT
echo .
echo Program - %pdl%
echo .
echo .
PDLASK Option? 1 = LINK, 2 = Re-edit,  press enter to quit.
IF ERRORLEVEL 3 GOTO  EXIT
IF ERRORLEVEL 2 \PDL\PDLS  %PDL%
IF ERRORLEVEL 1 PDLLINK  %PDL%
:EXIT