       Identification Division.
       Program-ID.    test9019.
       Procedure Division.
           EVALUATE WS-RESP
               WHEN DFHRESP ( NORMAL )
               WHEN DFHRESP ( ERROR )
               WHEN DFHRESP ( RDATT )
               WHEN DFHRESP ( WRBRK )
               WHEN DFHRESP ( EOF )
               WHEN DFHRESP ( EODS )
               WHEN DFHRESP ( EOC )
               WHEN DFHRESP ( INBFMH )
               WHEN DFHRESP ( ENDINPT )
               WHEN DFHRESP ( NONVAL )
               WHEN DFHRESP ( NOSTART )
               WHEN DFHRESP ( TERMIDERR )
               WHEN DFHRESP ( FILENOTFOUND )
               WHEN DFHRESP ( NOTFND )
               WHEN DFHRESP ( DUPREC )
               WHEN DFHRESP ( DUPKEY )
               WHEN DFHRESP ( INVREQ )
               WHEN DFHRESP ( IOERR )
               WHEN DFHRESP ( NOSPACE )
               WHEN DFHRESP ( NOTOPEN )
               WHEN DFHRESP ( ENDFILE )
               WHEN DFHRESP ( ILLOGIC )
               WHEN DFHRESP ( LENGERR )
               WHEN DFHRESP ( QZERO )
               WHEN DFHRESP ( SIGNAL )
               WHEN DFHRESP ( QBUSY )
               WHEN DFHRESP ( ITEMERR )
               WHEN DFHRESP ( PGMIDERR )
               WHEN DFHRESP ( TRANSIDERR )
               WHEN DFHRESP ( ENDDATA )
               WHEN DFHRESP ( INVTSREQ )
               WHEN DFHRESP ( EXPIRED )
               WHEN DFHRESP ( RETPAGE )
               WHEN DFHRESP ( RTEFAIL )
               WHEN DFHRESP ( RTESOME )
               WHEN DFHRESP ( TSIOERR )
               WHEN DFHRESP ( MAPFAIL )
               WHEN DFHRESP ( INVERRTERM )
               WHEN DFHRESP ( INVMPSZ )
               WHEN DFHRESP ( IGREQID )
               WHEN DFHRESP ( OVERFLOW )
               WHEN DFHRESP ( INVLDC )
               WHEN DFHRESP ( NOSTG )
               WHEN DFHRESP ( JIDERR )
               WHEN DFHRESP ( QIDERR )
               WHEN DFHRESP ( NOJBUFSP )
               WHEN DFHRESP ( DSSTAT )
               WHEN DFHRESP ( SELNERR )
               WHEN DFHRESP ( FUNCERR )
               WHEN DFHRESP ( UNEXPIN )
               WHEN DFHRESP ( NOPASSBKRD )
               WHEN DFHRESP ( NOPASSBKWR )
               WHEN DFHRESP ( SEGIDERR )
               WHEN DFHRESP ( SYSIDERR )
               WHEN DFHRESP ( ISCINVREQ )
               WHEN DFHRESP ( ENQBUSY )
               WHEN DFHRESP ( ENVDEFERR )
               WHEN DFHRESP ( IGREQCD )
               WHEN DFHRESP ( SESSIONERR )
               WHEN DFHRESP ( SYSBUSY )
               WHEN DFHRESP ( SESSBUSY )
               WHEN DFHRESP ( NOTALLOC )
               WHEN DFHRESP ( CBIDERR )
               WHEN DFHRESP ( INVEXITREQ )
               WHEN DFHRESP ( INVPARTNSET )
               WHEN DFHRESP ( INVPARTN )
               WHEN DFHRESP ( PARTNFAIL )
               WHEN DFHRESP ( USERIDERR )
               WHEN DFHRESP ( NOTAUTH )
               WHEN DFHRESP ( VOLIDERR )
               WHEN DFHRESP ( SUPPRESSED )
               WHEN DFHRESP ( RESIDERR )
               WHEN DFHRESP ( NOSPOOL )
               WHEN DFHRESP ( TERMERR )
               WHEN DFHRESP ( ROLLEDBACK )
               WHEN DFHRESP ( END )
               WHEN DFHRESP ( DISABLED )
               WHEN DFHRESP ( ALLOCERR )
               WHEN DFHRESP ( STRELERR )
               WHEN DFHRESP ( OPENERR )
               WHEN DFHRESP ( SPOLBUSY )
               WHEN DFHRESP ( SPOLERR )
               WHEN DFHRESP ( NODEIDERR )
               WHEN DFHRESP ( TASKIDERR )
               WHEN DFHRESP ( TCIDERR )
               WHEN DFHRESP ( DSNNOTFOUND )
               WHEN DFHRESP ( LOADING )
               WHEN DFHRESP ( MODELIDERR )
               WHEN DFHRESP ( OUTDESCRERR )
               WHEN DFHRESP ( PARTNERIDERR )
               WHEN DFHRESP ( PROFILEIDERR )
               WHEN DFHRESP ( NETNAMEIDERR )
               WHEN DFHRESP ( LOCKED )
               WHEN DFHRESP ( RECORDBUSY )
               WHEN DFHRESP ( UOWNOTFOUND )
               WHEN DFHRESP ( UOWLNOTFOUND )
               WHEN DFHRESP ( LINKABEND )
               WHEN DFHRESP ( CHANGED )
               WHEN DFHRESP ( PROCESSBUSY )
               WHEN DFHRESP ( ACTIVITYBUSY )
               WHEN DFHRESP ( PROCESSERR )
               WHEN DFHRESP ( ACTIVITYERR )
               WHEN DFHRESP ( CONTAINERERR )
               WHEN DFHRESP ( EVENTERR )
               WHEN DFHRESP ( TOKENERR )
               WHEN DFHRESP ( NOTFINISHED )
               WHEN DFHRESP ( POOLERR )
               WHEN DFHRESP ( TIMERERR )
               WHEN DFHRESP ( SYMBOLERR )
               WHEN DFHRESP ( TEMPLATERR )
               WHEN DFHRESP ( NOTSUPERUSER )
               WHEN DFHRESP ( CSDERR )
               WHEN DFHRESP ( DUPRES )
               WHEN DFHRESP ( RESUNAVAIL )
               WHEN DFHRESP ( CHANNELERR )
               WHEN DFHRESP ( CCSIDERR )
               WHEN DFHRESP ( TIMEDOUT )
               WHEN DFHRESP ( CODEPAGEERR )
               WHEN DFHRESP ( INCOMPLETE )
               WHEN DFHRESP ( APPNOTFOUND )
               WHEN DFHRESP ( BUSY )
                    CONTINUE
           END-EVALUATE
           EXEC CICS RETURN END-EXEC.

