/* REXX */
 MSGSTAT = MSG('OFF') /* TURN TSO/E MESSGES OFF */
/* **************************************************************
* DATE CREATED: 3-MAR-00
* DATE LAST MODIFIED:
*
* ORIGINAL AUTHOR: ProTech Professional Technical Servcies
* REXX EXEC = CHKDSN
* THIS EXEC WILL WORK AS A MACRO TO THE DSN KNOWLEDGE BASE.
*
* PURPOSE = CHECK OS/CATALOG TO DETERIMINE STATUS OF DATASET.
*****************************************************************
*/
/* GATHER DATASET NAME PASSED TO REXX EXEC */
PARSE UPPER ARG DATAIN .
DATASET = '''']]DATAIN]]''''

 IF SYSDSN(DATASET) = 'OK'
THEN DO
   /* SAY  DATASET 'RETURN CODE =999 DATASET IS CATALOGED' */
     CALL EXITCOM 999
     END
ELSE DO
  /* SAY DATASET 'RETURN CODE 0 DATASET IS NOT CATALOGED ' */
     CALL EXITCOM 0
     END
EXITCOM:
        PARSE ARG EXITRC .
        EXIT EXITRC

_