**********************************************************************          
*  EZDB  5.6 PTF CQI05.006                         September 2009    *          
*                                                                    *          
*  KEYWORDS   : COSQCNT ABEND  JSEQ < FIRST JOURNAL RECORD           *          
*                                                                    *          
*  Description: If COSQRUQP is run when there were no runits         *          
*               active at the last journal swap and no updates have  *          
*               occured since the swap, then it will set the quiesce *          
*               sequence number to the last sequence written to the  *          
*               swapped from journal.                                *          
*               When this is used by COSQCNCT it will abend with     *          
*               the above message.                                   *          
*               This PTF adds a check into COSQCNCT to allow the SQP *          
*               sequence to be exactly one less than the first on    *          
*               the archive journal sequence number read             *          
*                                                                    *          
*  Prereqs    : None                                                 *          
*                                                                    *          
*  Tapes      : EZDB CI0502 CA-IDMS Release 17                       *          
*                                                                    *          
**********************************************************************          
* CQI05.006                                                IDMS 17.0 *          
**********************************************************************          
*                                                                               
NAME COSQCNCT CNCTSOFT                                                          
VER 0150 D507,B02A,B01A            CLC   SEQOLD(8),SEQZERO                      
VER 0156 4780,C08E                 BE    RTAMTERR                               
*                                                                               
REP 0150 58E0,A1F0                 L     R14,CCCSA                              
REP 0154 58E0,E018                 L     R14,COXAPTCH                           
REP 0158 47F0,E110                 B     PCTH+X'110'                            
*                                                                               
*                                                                               
NAME COXAPTCH COXAPTCH                                                          
VER 0110 F110,F112,F114,F116,F118,F11A,F11C,F11E                                
VER 0120 F120,F122,F124,F126,F128,F12A,F12C,F12E                                
VER 0130 F130,F132,F134,F136,F138,F13A,F13C,F13E                                
VER 0140 F140,F142,F144,F146,F148,F14A,F14C,F14E                                
VER 0150 F150,F152,F154,F156,F158,F15A,F15C,F15E                                
*                                                                               
REP 0110 D507,B02A,B01A            CLC   SEQOLD,SEQZERO                         
REP 0116 4770,C170                 BNE   BTBLKEND                               
REP 011A D503,A1D4,E154            CLC   CVQCESEQ+4,(4),ALLFS                   
REP 0120 4770,E134                 BNE   PATCH+X'134'                           
REP 0124 58F0,A1D0                 L     R15,CVQVESEQ                           
REP 0128 5EF0,B00E                 AL    R15,ONE                                
REP 012C 50F0,E158                 ST    R15,TEMPSEQ                            
REP 0130 47F0,E146                 B     PATCH+X'146'                           
REP 0134 58F0,A1D4                 L     R15,CVQCESEQ+4                         
REP 0138 5EF0,B00E                 AL    R15,ONE                                
REP 013C 50F0,E15C                 ST    R15,TEMPSEQ+4                          
REP 0140 D203,E158,A1D0            MVC   TEMPSEQ(4),CVQCESEQ                    
REP 0146 D507,E158,7010            CLC   TEMPSEQ,JTRSEQ                         
REP 014C 4770,C08E                 BNE   RTMTERR                                
REP 0150 47F0,C170                 B     BTBLKEND                               
REP 0154 FFFF,FFFF                 ALLFS DC X'FFFFFFFF'                         
REP 0158 0000,0000,0000,0000       TEMPSEQ DC X'00000000000000000'              
*                                                                               
NAME COXAPTCH COXAZAPS                                                          
VER 0028 0000,0000,0000,0000                                                    
REP 0028 C3D8,C9F0,F5F0,F0F6      CQI05.006