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

OS/2 REXX Batch file | 1992-12-01 | 659b | 27 lines

@echo off
@echo -----------------------------------------------------------------------
@echo    CICSRRDS - Translate out of date RRDS files
@echo -----------------------------------------------------------------------
faasrptr %1 %2
if errorlevel 12 goto aserv
if errorlevel 8 goto aerror
if errorlevel 4 goto awarn
goto aend
:aserv
@echo .
@echo    Severe errors detected, check FAARRN.LOG file for details.
@echo .
goto aend
:awarn
@echo .
@echo    Warning errors detected, check FAARRN.LOG file for details.
@echo .
goto aend
:aerror
@echo .
@echo    Errors detected, check FAARRN.LOG file for details.
@echo .
goto aend
:aend