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

OS/2 REXX Batch file | 1992-07-14 | 2KB | 50 lines

@echo off
@echo -----------------------------------------------------------------------
@echo    CICSLINK -  Link %1.obj
@echo -----------------------------------------------------------------------
if %1.==. goto msg
if not exist %1.obj goto msg1
if exist %1.def goto dlink
@echo ;Module definition file for %1 program >  %1.def
@echo LIBRARY INITINSTANCE >>   %1.def
@echo PROTMODE             >>   %1.def
@echo DATA NONSHARED       >>   %1.def
@echo CODE LOADONCALL      >>   %1.def
@echo EXPORTS %1 @1        >>   %1.def
:dlink
link /NOD /NOP /MAP %1,%1.dll,,COBLIB+DOSCALLS+FAACLIB,%1.DEF;
if errorlevel 1 goto aerr
goto aend
:aerr
@echo .
@echo    Link errors discovered
@echo .
goto aend
:msg1
@echo .
@echo    %1.obj does not exist
:msg
@echo .
@echo    This command will link a translated and compiled CICS program. The
@echo    object module is expected to have an extension of OBJ and the module
@echo    definition file and extension of DEF. The input into this process is:
@echo .
@echo      File             Contents                  Source
@echo    -------------    ---------------------     -----------------
@echo    progname.OBJ     Object module              from CICSCOMP
@echo    progname.DEF     Module definition file     user defined
@echo    COBLIB.LIB       COBOL compiler library     Supplied with COBOL/2
@echo    DOSCALLS.LIB     OS/2 call library          Supplied with OS/2
@echo    FAACLIB.LIB      CICS OS/2 library          Supplied with CICS OS/2
@echo .
@echo    The Output is:-     progname.DLL     Executable program
@echo                        progname.MAP     Map listing
@echo .
@echo    To run this command enter:  CICSLINK progname
@echo .
@echo                        progname can be fully qualified and is required
@echo .
@echo    The definitions file progname.DEF is created if it does not exist
:aend