++PTF(ASP0937). /*-----------------------------------------------------
ASP0937 020606 ASEF200 V110 Set Rc=4 if Select control card is not match
ASP0926 020325 ASEF200 V110 Support EXT keyword on select statement

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002

_APARLIST:

ASZ3255 020325 61VASE PM ISPZIP  P919 INCORROUT  ISPZIPX  020325 S__0926
EXT keyword on SELECT statement is ignored during uncompress.

ASZ3266 020607 61VASE GG ISPZIP  P926 INCORROUT  ISPZIPX  020607 S__0937
Support FROMDD statement during uncompress.

ASZ3267 020607 61NCYP AR ISPZIP  P926 ABU978     ISPZIPX  020607 S__0937
Abend S978 if open fails for ISPZIN DD statement during uncompress

ASZ3268 020607 61NSGB MP ISPZIP  P926 INCORROUT  ISPZIPX  020607 S__0937
Set RC=4 if selection control card is not matched during uncompress.

ASZ3269 020607 61VASE PM ISPZIP  P926 INCORROUT  ISPZIPX  020607 S__0937
Control statements in error are not printed correctly.

_NOTES:

After ASP0937 is applied ISPZIP sets a return code of 4 if any Select
control card in an uncompress operation does not match at least one file
in the input ZIP dataset.  A message 'ISPZ000W Unmatched Selection
Statement' is also issued.

A new keyword NOSELECT=OK has also been added to the Select control
card.  This can be used to force ISPZIP to ignore the fact that the
control card does not match any files and set a return code of zero.

e.g.
    S FRED.DAT
    S FRED.ERR NOSELECT=OK

If FRED.DAT is not found in the input ZIP dataset then a return code of
4 will be set.   If FRED.DAT is found but FRED.ERR is not then a return
code of 0 will be set as the NOSELECT=OK keyword has been specified.

*/
++VER(Z038) FMID(ASEF200) PRE(ASP0919)
           SUP(ASZ3255,ASP0926,ASZ3255,ASZ3266,ASZ3267,ASZ3268,ASZ3269).
++HOLD(ASP0937) FMID(ASEF200) SYSTEM REASON(DOC)
   COMMENT(THE RETURN CODE SET WHEN A SELECT STMT IS NOT MATCHED
           HAS CHANGED. REFER TO COVER LETTER NOTES).
++MOD(ISPZIPX).