Ric asked:
> I am looking for a "clean" solution to the following problem.
> It must be in MPE/iX JCL.  Please, no 3rd party software
> solutions.

And Leonard suggested:
> :ERRCLEAR          <To set certain predefined variables,
>                     including CIERROR, to default>
> :LISTF fileset>$NULL
> :IF CIERROR <> 431 THEN
> :    LISTF fileset >*MyMsg
> :ELSE
> :               do something if no files exist
> :ENDIF



I think this could be simplified as follows:

:ERRCLEAR
:LISTF fileset >*MyMsg
:IF CIERROR <> 431 THEN
:               do whatever to MyMsg
:ELSE
:               do something if no files exist
:ENDIF

But that is off the top of my head, without testing, so buyer
beware!

HTH!

 +-------------------------------------------------------------------+
  My mind is my own, as are my ideas and opinions.
  My heart, body, and soul, however, all belong to others.       Tim.
 +-------------------------------------------------------------------+
  Tim Ericson            tericson      DenKor Dental Management Corp.
  Sr. Systems Analyst     at denkor    503-526-4440 (my direct number)
    (& Systems Manager)     dot com         http://www.denkor.com
  Programming HPe3000s since 1983!     Quality dental care since 1970!
 +-------------------------------------------------------------------+
  UDCs and Command Files:  http://www.denkor.com/hp3000/command_files
 +-------------------------------------------------------------------+