OS/2 Shareware BBS: 10 Tools/10-Tools.zip/o22516d1.zip/CICSCOMP.@MD/CICSCOMP.CMD

OS/2 REXX Batch file | 1992-07-14 | 979b | 36 lines

@echo off
@echo -----------------------------------------------------------------------
@echo    CICSCOMP -  Compile %1.cbl
@echo -----------------------------------------------------------------------
if %1.==. goto msg
if not exist %1.cbl goto msg1
COBOL %1,%1,%1,,%2;
if errorlevel 1 goto aerr
goto aend
:aerr
@echo .
@echo    Compiler errors discovered
@echo .
goto aend
:msg1
@echo .
@echo    %1.cbl does not exist
:msg
@echo .
@echo    This command will compile a translated CICS program.  The program
@echo    is expected to have an extension of CBL. The output is:
@echo .
@echo          programname.OBJ    (object file)
@echo          programname.LST    (Listing file)
@echo .
@echo    To run this command enter:
@echo .
@echo        CICSCOMP programname  'compiler directives'
@echo .
@echo    programname can be fully qualified and is required
@echo .
@echo    'compiler directives' can be any valid COBOL/2 directive
@echo .
:aend