gcmf.cmd

@ECHO OFF
rem CLS 
echo.
echo ************************************************************************
echo * Compile a GnuCOBOL subprogram - by Arnold Trembley, 2016-11-14.      *
echo * This .CMD file will install non-persistent GnuCOBOL Environment      *
echo * Variables and PATH for Windows XP and higher.  Then compile the      *
echo * COBOL source program passed as the initial parameter: "gcmf cobdump" *
echo * NOTE:  This .CMD file can only be executed in the directory where    *
echo * the GnuCOBOL compiler is installed.  A dynamically callable .DLL     *
echo * executable program file will be created.                             *
echo * NOTE that -F means the COBOL source code must be Free-Form rather    *
echo * than fixed format.                                                   * 
echo ************************************************************************
if exist %temp%\%1.dll erase %temp%\%1.dll 
if exist %temp%\%1.lst erase %temp%\%1.lst

REM pause 
echo call %~dp0\set_env.cmd
call %~dp0\set_env.cmd

if exist .\%1.COB goto COMPILECOB
if exist .\%1.CBL goto COMPILECBL
echo.
echo COBOL source code file "%1.cob" or "%1.cbl" 
echo not found in this directory.  
echo No compilation will occur. 
exit /b 1 

goto ALLDONE

:COMPILECOB
echo.
echo Compile the Free-form "%1" program as executable DLL program (-m),
echo enable most warnings (-W), with no binary truncation (-fnotrunc) 
echo. 
echo cobc -m -W -F -fnotrunc -t %temp%\%1.lst -o %temp%\%1.dll %1.cob 
echo. 
cobc -m -W -F -fnotrunc -t %temp%\%1.lst -o %temp%\%1.dll %1.cob  
echo.
echo GnuCOBOL Compile Returncode = %errorlevel%
GOTO ALLDONE

:COMPILECBL
echo.
echo Compile the Free-form "%1" program as executable DLL program (-m),
echo enable most warnings (-W), with no binary truncation (-fnotrunc) 
echo. 
echo cobc -m -W -F -fnotrunc -t %temp%\%1.lst -o %temp%\%1.dll %1.cbl 
echo. 
cobc -m -W -F -fnotrunc -t %temp%\%1.lst -o %temp%\%1.dll %1.cbl  
echo.
echo GnuCOBOL Compile Returncode = %errorlevel%
GOTO ALLDONE

:ALLDONE
if exist %temp%\%1.dll copy %temp%\%1.dll .\
if exist %temp%\%1.lst copy %temp%\%1.lst .\
if exist %temp%\%1.dll erase %temp%\%1.dll 
if exist %temp%\%1.lst erase %temp%\%1.lst

echo.