ECHO OFF
IF NOT %1.==. SET PDL=%1
IF %1.==. CLS
IF %1.==. TYPE \PDL\PDLLOGO.BAT
IF %1.==. PDLWHAT s 'Enter .OBJ object member name. (no extension)'
IF %PDL%.==. GOTO  EXIT
CLS
TYPE \PDL\PDLLOGO.BAT
echo .
echo Program - %pdl%
echo .
echo LINK in progress.  Please wait ...
cd \rpgsys
LINK %cd%\%PDL%,%cd%\%pdl%,%CD%\LINK.LST,TGDBC.LIB+RPGLIB.LIB;>%CD%\LINK.ERR
CD %CD%
PDLVIEW %CD%\LINK.ERR
echo .
echo .
PDLASK Option? 1 = View LINK.LST,  2 = Re-edit,  press enter to exit.
IF ERRORLEVEL 3 GOTO  EXIT
IF ERRORLEVEL 2 \PDL\PDLS  %PDL%
IF ERRORLEVEL 1 PDLVIEW LINK.LST
:EXIT
CALL %CD%\0