***********************************************************************
*RMC12010 - 01/24/2007 - ROPES fix RMC11013 added TOKEN keywords to the
*                        EXEC CICS UNLOCK commands used for the ROPEQBR
*                        data set to terminate MASSINSERT operations.
*
*Problem Summary:
*    Fix RMC11013 added the TOKEN parameter to the UNLOCK commands used
*    to terminate MASSINSERT on the ROPEQBR file.  However, there is no
*    token in use for the file.  The UNLOCK fails, and if the task then
*    tries to write data to another report, the subsequent WRITE to the
*    ROPEQBR file fails with condition ILLOGIC.  Neither the original
*    nor the subsequent report is created.
*
*    This problem only occurs when ROMT Option 1, Suboption 2 specifies
*    USE MASSINSERT = Y.
*
*Symptoms:
*    Under EDF, EXEC CICS UNLOCK DATASET(ROPEQBR) TOKEN(RPRMQTOK) fails
*    with condition INVREQ because there is no token value.  Subseqent
*    EXEC CICS WRITE DATASET(ROPEQBR) will fail with condition ILLOGIC.
*
*Temporary Fix:
*    The following replacement object modules must be obtained from
*    technical support:
*        ROPEOSRV
*
*Permanent Fix:
*    This problem will be corrected by PTF in the next release of
*    ROPES.
*
*End Of Document
***********************************************************************