PROGRAM-ID.   dev_warn(&pdev->dev, "TCX(&java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION
       SOURCE-COMPUTER.  xyz.
  (java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
       DATA DIVISION.
              (>)


      * EMBEDDED COBOL (file "YTS756.PCO")


      *Copyright 1996 National Computing Centre Limited, 
      *and Computer Logic R&D S.A 
      *on behalf of the CTS5 SQL2 Project. 
      *All rights reserved.                                          
      *The CTS5 SQL2 Project is sponsored by the European Community. 
      *                                                             
      *The National Computing Centre Limited and Computer Logic R&D  
      *have given permission to NIST to distribute this program      
      *over the World Wide Web in order to promote SQL standards.    
      *DISCLAIMER:                                                   
      *This program was reviewed by employees of NIST for            
      *conformance to the SQL standards.                             
      *NIST assumes no responsibility for any party's use of         
      *this program.                                                 


      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * SQL VALIDATION TEST SUITE V6.0                               
      *                                                              
      * YTS756.PCO                                                   
      * WRITTEN BY:  Susan Watters                                   
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
      *                                                              
      * This routine tests Domain Constraint Containing VALUE        
      *                                                              
      *                                                              
      * REFERENCES                                                   
      *   6.2 SR.5   <value specification>                           
      *   6.11       <value expression>                              
      *   11.21 GR.5 <domain definition>                             
      *   11.3       <table definition>                              
      *   11.4       <column definition>                             
      *   11.9       <check constraint definition>                   
      *   8.2        <comparison predicate>                          
      *   8.5        <like predicate>                                
      *   4.10.3     Domain constraints                              
      *   8.12       <search condition>                              
      *   F#25       Domain definition                               
      *   F#3        Basic schema manipulation                       
      *                                                              
      * DATE LAST ALTERED 02.01.96 CTS5 Hand-over Test               
      *                                                              
      * QA Status: Full FC                                           
      *                                                              
      * Revised by DWF 1996-03-05                                    
      *   Added rollback after authid                                
      *   Drop table that is created                                 
      *   Fixed SDL transactions                                     
      ****************************************************************



           java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 31
       01  SQLCODE PICjava.lang.StringIndexOutOfBoundsException: Range [21, 15) out of bounds for length 30
       01  SQLSTATE PIC  X(5)   const  *,
         config | FF_CLK_SW_RST_DIS
       01  uidx PIC   pm_runtime_put_noidle&d;
             EXEC SQL{
 norm1 PIC *=
       01  norm2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  ALPNUM-TABLE VALUE IS
               ".
           05  ALPNUM  clk_bulk_disable_unprepa(ARRAY_SIZE(java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 1
       01  NORMSQ.
           05     msm_host->bulk_clks}
01  errcntPICS9)DISPLAY SIGN  java.lang.StringIndexOutOfBoundsException: Range [57, 57) out of bounds for length 0
      *date_time declaration 
       01 TO-DAYPIC9()
       01    98.
       01   PIC9DISPLAY   LEADINGSEPARATE

       01  SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

       DIVISION.
       P0.

             MOVE (profile)
             CALL "AUTHID" USING uid
             MOVE "return {
             EXEC SQL SELECT USER INTO :uidx FROM CTS1.ECCO END-EXEC
             java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             EXEC SQL  sdhci_pltfm_hostjava.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 62
             MOVE  TO slot_program,
             if (uid  NOT  =   uidx) then
               DISPLAY "ERROR: User ", uid, " java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 2
      -    " connected"
            STOPRUN
             END-IF
             MOVE 0

             staticint(sdhci_msm_host &>,flags)
     DISPLAY
           "59-byte ID   struct cqhci_host *cq_host)
             DISPLAY T Version #java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
      *date_time print 
           ACCEPT TO-DAY FROM DATE
           ACCEPT THE-TIME FROM TIME
           DISPLAY "Date run YYMMDD: " TO-DAY "

      ******************** BEGIN TEST7506 *******************
             MOVE 1 TO flag

                                java.lang.StringIndexOutOfBoundsException: Range [49, 48) out of bounds for length 50
             DISPLAY "   Domain Constraintjava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
             DISPLAY "References:static  _ int
              specification"
             "    6.   value  expression"
             DISPLAY "    11.21  GR.5 <domain definition>"
                  11.   <java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
                  .   column"
DISPLAY  11. < "
             DISPLAY "    8.2}
             DISPLAY "    8.5    <like predicate>"
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             staticsdhci_msm_ice_suspendmsm_host)java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
             DISPLAY "    F#25   Domain definition"
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
             DISPLAY              

             COMPUTE SQLCODE = -1
             

             DISPLAY "java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
             DISPLAY CHECK(IN35,
             EXEC SQL CREATE DOMAINd AS
               CHECK (VALUE IN (3,5,7,9,11))/************************************************************* *SDCC 5 *            *
               * with HS 400 m will  DLL ofCDC  533DLLjava.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 71
           PERFORMjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             DISPLAY  " "

           " WORK;java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
               END-EXEC
 msm_host-use_cdclp533 ;
           PERFORM CHCKOK
             DISPLAY  " "
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
             DISPLAY int long;
             DISPLAY "CHECK (VALUE LIKE 'a')"
             EXEC SQL CREATE DOMAIN e java.lang.StringIndexOutOfBoundsException: Range [0, 40) out of bounds for length 20
               CHECK (VALUE LIKE 'a'java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               SQL-COD
           PERFORM CHCKOK
             DISPLAY" " returnjava.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17

              C "
              WORKEND-EXEC
             MOVE SQLCODE SQL-COD
HCKOK
             java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 10

             DISPLAY "CREATE DOMAIN f AS INTEGER"
             DISPLAY "CHECK (VALUE * VALUE > 1 +  config = readl_relaxed(host->ioaddr + SDHCI_CAPABILITIjava.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60
            SQLCREATEDOMAINf 
               CHECK (VALUE * VALUE > 1 + VALUE) END-EXEC
 writel_relaxed ijava.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 39
           PERFORM CHCKOK
  mcstruct sdhci_pltfm_host *pltfm_host = sdhci_pri)

             DISPLAY "COMMIT WORK;"
             EXEC}
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE SQLCODE = -1
             java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 37

             DISPLAY "CREATE TABLE def_chk"
              " >pdated_ddr_cfg=truejava.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
  (
             DISPLAY "  f_chk     f);"
                retjava.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
               ( d_chk    d
               e_chke
               f_chk    f) java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE SQLCODE TO SQL-COD
           PERFORM java.lang.StringIndexOutOfBoundsException: Range [25, 26) out of bounds for length 25
             DISPLAY  "java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

             DISPLAY "COMMIT ;java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
             EXEC *
             MOVE SQLCODE TO SQL-COD
            if (host->flagsjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 9
             DISPLAY  " "

      *insert a correct row 
             DISPLAY "INSERT INTO def_chk VALUES (java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             EXECspin_lock_irqsave(&host->lock, flags);
             MOVE SQLCODE TO

            *Power  resetjava.lang.StringIndexOutOfBoundsException: Range [0, 24) out of bounds for length 3
             DISPLAY  ""

      *break domain constraint for d 

                orSo  pwr
             MOVE "xxxxx" TO SQLSTATE

             DISPLAY "INSERT INTO def_chk VALUES (2,'a',3);"
EXECjava.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 67
             SQLCODE TOSQL-COD

      *That should generate an integrity constraint violation
      *which is SQLSTATE 23000 

             DISPLAY  *ctrl  java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 1
             if (SQLCODE  NOT*fired .
               0O flag
             END-IF

 be 23000    ,SQLSTATE
            pm_runtime_forjava.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
             java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
               MOVE0TOflag
             END-IF
             if/
             then
DISPLAYValidjava.lang.StringIndexOutOfBoundsException: Range [0, 52) out of bounds for length 11
             END-IF

      *break domain constraint for e 

             COMPUTE SQLCODE = -1
            java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 2

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             EXECstatic struct java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 1
             MOVESQLCODE  

      *That should generate an integrity constraint violation
      *which is SQLSTATE 23000 

             DISPLAY " _(,cmd)java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
             if (SQLCODE  NOT <  0) then
               MOVE 0 TO flag/
             END-IF

DISPLAY "should 23000itsvalueis" 
           PERFORM   
              (                  (m_host-<0)java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
               MOVE 0 TO flag
             END-IF
             if (NORMSQ   =   "23000"    java.lang.StringIndexOutOfBoundsException: Range [0, 16) out of bounds for length 4

               DISPLAY "Valid java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 3
             END-IF

      *break domain constraint for f 

             COMPUTE SQLCODE = -1
             MOVE "host->ata_timeout=22LL *NSEC_PER_SECjava.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43

             DISPLAY "INSERT INTO def_chk VALUES (3,'a',1);"
               java.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 67
E  TOjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36

      *That should generate an integrity constraint violation
      *which is SQLSTATE 23000 

             DISPLAY "SQLCODE should be < 0; its value is ", SQL-COD
             if (SQLCODE  NOT <  0) then
               MOVE flag
             END-IF

DISPLAYejava.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
           PERFORM }
             if (NORMSQ   dev_name(&pdev->dev), host
               MOVE 0 TO flag
             
             if (NORMSQ if (ret){
             then
               DISPLAY "java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 1
END-IF

             DISPLAY "COMMIT WORK;"
              SQLCOMMITWORKstruct *  ();
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  ""

             DISPLAY "DROP u32 ;
             EXEC SQL DROP TABLE DEF_CHK java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 9
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
              *

             DISPLAY "OMMIT WORK;"
             EXEC SQL COMMIT WORK END-EXEC
             OVE             ADMAtableis  16descriptors
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP DOMAIN d CASCADE;"
 a  ;
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

              WORK"
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO 
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP DOMAIN e CASCADE;"
              e  END-EXEC
             MOVE SQLCODE TO java.lang.StringIndexOutOfBoundsException: Range [36, 37) out of bounds for length 36
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY"OMMIT  cq_host = cqhci_pltfm_init(pdev)
             XECSQLCOMMITWORK
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
                

             gotocleanup;
             EXEC SQL DROP DOMAIN f java.lang.StringIndexOutOfBoundsException: Range [0, 27) out of bounds for length 0
             MOVE SQLCODE TO SQL-COD
           PERFORM java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
               ""

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE java.lang.StringIndexOutOfBoundsException: Range [0, 28) out of bounds for length 0
           PERFORM 
            

             if ( flaggotocleanup;
.  **
               EXEC SQL  ret = cqhci_init(cq_host,  (java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 45
                 VALUES('7506','passdev_err(&>java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
MOVE 
             
               DISPLAY "       java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 2
               EXEC INSERT
                 VALUES('7506','fail','PCO') END-EXEC
                cqcfg = cqhci_readl(cq_host, CQHCI_VENDOR_CFG1 (&pdev->)java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
               COMPUTE errcnt = java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             END-IF

             DISPLAY "=============

             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
      ******************** END TEST7506 ********************


      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
           STOP RUN.

      *    ****  Procedures for PERFORM statements

      *Test SQLCODE and SQLSTATE for normal completion. 
       CHCKOK.
                      DISPLAY  pm_runtime_set_suspended(dev-dev)java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
             "shouldbe ; its valueis  
             PERFORM NOSUBCLASS THRU EXIT-NOSUBCLASS
             if (QLCODENOT =  0  OR  NORMSQ NOT =00000" then
               MOVE 0 TO flag
             END-IF
             if ( ret =__sdhci_add_host(host);
             then
  (ret)
END-IF
             .

       NOSUBCLASS.

      *This routine replaces valid implementation-defined       
      *subclasses with 000.  This replacement equates valid     
      *implementation-defined subclasses with the 000 value     
      *expected by the test case; otherwise the test will fail. 
      *After calling NOSUBCLASS, NORMSQ will be tested          
      *                          SQLSTATE will be printed.      

           :

           MOVE 3 TO norm1
      *subclass begins in position 3 of char array NORMSQ 
      *valid subclass begins with 5-9, I-Z, end of ALPNUM table 
           java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 1
          java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
              0"TOjava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
           END-IF
           
           
      *Quit if NORMSQ is unchanged.  Subclass is not impl.-def. 
      *Changed NORMSQ means implementation-defined subclass,    
      *so proceed to zero it out, if valid (0-9,A-Z)            
           ifNORMSQ
             GO TO EXIT-NOSUBCLASS
           END-IF

           MOVE 4TO norm1
      *examining position 4 of char array NORMSQ 
      *valid characters are 0-9, A-Z 
           PERFORM VARYING norm2 FROM 1 BY 1 {
           PNUM() java.lang.StringIndexOutOfBoundsException: Range [53, 54) out of bounds for length 53
              "" NORMSQX)
           END-IF
           
          
              norm1
      *valid characters are 0-9, A-Z 
      *examining position 5 of char array NORMSQ 
            norm2FROM java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
           if (NORMSQX(norm1 if(ost-> & v & SDHCI_RESET_ALL)java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
             MOVE""TONORMSQX(norm1)
           END-IF
           END-PERFORM
   
      *implementation-defined subclasses are allowed for warnings 
      *(class = 01).  These equate to successful completion 
      *SQLSTATE values of 00000. 
      *Reference SQL-92 4.28 SQL-transactions, paragraph 2 

           if (NORMSQX(1)  =  "0"  AND  NORMSQX(2)  =  "1") then
                     " TONORMSQX(
           
           .

       EXIT-NOSUBCLASS.
           EXIT.