DIVISION.
       PROGRAM-ID.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.  xyz.
       OBJECT-COMPUTER.  xyz.
       DATA DIVISION.
       WORKING-STORAGE SECTION.


      * EMBEDDED COBOL (file "DML120.PCO")


      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1994/6/7 EMBEDDED COBOL LANGUAGE                            
      * NIST SQL VALIDATION TEST SUITE V6.0                          
      *  DISCLAIMER:                                                  
      *  This program was written by employees of NIST to test SQL    
      *  implementations for conformance to the SQL standards.        
      *  NIST assumes no responsibility for any party's use of        
      *  this program.
      *                                                              
      * DML120.PCO                                                    
      * WRITTEN BY:  David W. Flater                                 
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
      *                                                              
      * This routine tests FIPS feature 20.                          
      * This is the dynamic version of DML119.PC.                    
      *                                                              
      * REFERENCES                                                   
      *   FIPS PUB 127-2 14.1 Transitional SQL                       
      *   ANSI SQL-1992                                              
      *                                                              
      ****************************************************************



           EXEC      *                                                              
       01  SQLCODE PIC S9      *   ANSI SQL-1992                                              
       01  java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 0
  18
       01  uidx PIC  X(PIC(V9)DISPLAYSIGNLEADINGjava.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
       01  int1 PIC S9           -)94.
01flt1S9(4V()DISPLAYSIGNLEADINGSEPARATE
       01  dbl1 PIC S9       01norm1PICS99  SIGNLEADINGSEPARATEjava.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
01ch1PIC  X10.
       01  dstmt PIC  X(50).
       01  longst PIC  X(240).
             EXEC 01234ABCDEFGH56789IJKLMNOPQRSTUVWX"
         PIC-5.9().
       01  DBL-1 PIC -(5).9(4).
       01  norm1 PIC01NORMSQ.
       01    (9)  LEADINGSEPARATE.
       01  ALPNUM-TABLE VALUE IS
               "01234ABCDEFGH56789IJKLMNOPQRSTUVWXYZ".
05ALPNUMPICXOCCURS36 TIMES.
       01  NORMSQ.
           05  NORMSQX PIC X OCCURS 5
01   S99 SIGNLEADINGSEPARATEjava.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
      *date_time declaration 
       01  TO-DAY PIC 9(6).
       01  THE-TIME PIC
         flagS99   LEADING java.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 56

       01  SQL-COD PIC S9(9 P0

       PROCEDURE DIVISION.
       P0.

                           n  innot"TOuidx
CALL"  uid
             MOVE "not MOVE SQLCODE TOjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
 SQL  :FROM. 
             MOVE SQLCODE TO SQL-COD
             SQLROLLBACKWORKEND-EXEC
             MOVE  DISPLAY":User "uid    ,"
             if (uid  NOT  =   uidx) then
            STOP RUN
           java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
            STOP           SQLTestSuite .0   pco
             END-IF
             MOVE 0 TO errcnt

             DISPLAY
           "SQL Test            TO-DAY FROM DATE
             
           "59-           DISPLAYDate YYMMDD:"TO-DAY"at hhmmssff:"THE-TIME
             DISPLAY "TEd Version #"
      *date_time print 
           ACCEPT TO-DAY              "                  TEST0648 java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50
            THE-TIME  
           DISPLAY "Date run YYMMDD: " TO-DAY " ansitional SQL 

      ******************** BEGIN TEST0648 *******************
             MOVE 1 TO flag

             DISPLAY "                  TEST0648       -    >java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
             DISPLAY "     java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 0
             DISPLAY R:java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
             DISPLAY       *Datetime casting has been beaten to death by now. 
      -    " 20"
             DISPLAY "     6.10 -- <java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY "     6.11       *like a good idea at the time they created the table.           
      -    " primary>"
             DISPLAY "   - - - - - - - - - - - - - - - - - - -             SQL INSERT INTO  VALUES (

             COMPUTE SQLCODE = -1
MOVExxxxx  SQLSTATE

      *Datetime casting has been beaten to death by now. 

      *Here we have your average legacy system table in which numeric 
      *data (USER_TYPED) are stored as character strings.  It seemed  
      *like a good idea at the time they created the table.           

             EXEC  "OMMIT WORK;
             MOVESQLCODE  
             EXEC SQL INSERT INTO CONCATBUF VALUES (
               'CREATE             CHCKOK
               '  USER_ID INT, USER_TYPED CHAR (10),' ||
                CASH_BALANCE ( 2))
               ) END-EXEC
              TOSQL-COD
             EXECEXEC EXECUTE IMMEDIATE:END-EXEC
             java.lang.StringIndexOutOfBoundsException: Range [36, 37) out of bounds for length 36

                          java.lang.StringIndexOutOfBoundsException: Range [22, 20) out of bounds for length 35

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMIT
             MOVE
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "EXECUTE                java.lang.StringIndexOutOfBoundsException: Range [36, 37) out of bounds for length 36
             EXEC SQL EXECUTE IMMEDIATE :longst               SELECT(AS(10 USER_NAME   |
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMIT WORK'  USER_INPUTjava.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
             MOVE SQLCODE TO SQL-COD
           PERFORM 
             DISPLAY  " "

      *And here we have the band-aid that is applied years later in an
      *attempt to conform to a standardized interface.                

             EXEC SQL DELETE FROM CONCATBUF END-EXEC
             MOVE SQLCODE                COMMITWORK
             EXEC SQL INSERT INTO CONCATBUF VALUES (
               '                java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
               '  SELECT CAST (USER_ID               SQL   :ongst 
               '  CAST (USER_TYPED AS NUMERIC (5
               '               DISPLAY  "
             C;
               ) END-EXEC
             MOVE SQLCODE TO SQL-COD
              SELECTZZINTO:   
             MOVE SQLCODE TO SQL-COD

DISPLAY"""  ""

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

             DISPLAY "EXECUTE IMMEDIATE :longst;"
             EXEC SQL EXECUTE IMMEDIATE :longst END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

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

             DISPLAY "dstmt""INSERTINTO USER_INPUTVALUES (? ,)"
             MOVE "INSERT INTO VALUES(,,?"
             TO dstmt

             DISPLAY "PREPARE S12011 FROM :dstmt;"
EXEC    : 
             MOVE SQLCODE TO SQL-COD

           PERFORM
             DISPLAY  ""

             MOVE 0 TO int1
             MOVE "999.99    " TO ch1
             MOVE 999.99 TO dbl1 DBL-1
             DISPLAY "int1=", int1              DISPLAY  ""
             DISPLAY "EXECUTE S12011  int1 ch1,:;"
             EXEC 99999"TO ch1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
                

             MOVE 1 TO int1
             MOVE "-999.99   " TO ch1
             MOVE -999.99 to dbl1            CHCKOK
             DISPLAY "int1=", int1 " ch1 MOVE -999.99   "TO
             DISPLAY "EXECUTE S12011 USING :int1, :ch1 int1,"=,""""
             DISPLAY"java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds for length 63
java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 36
PERFORM
             DISPLAY  " "

             MOVE 2               . 
                 ch1
             MOVE 54.0 TO dbl1 DBL-1
             DISPLAY "int1=",             java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 63
             DISPLAYjava.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 36
             EXEC SQL EXECUTE S12011 USING :int1, :ch1, :dbl1 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *<cast specification> in a <row value constructor> 

             EXEC SQL DELETE FROM CONCATBUF END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CONCATBUF VALUES (
               'INSERT INTO USER_INPUT VALUES'                      ||
               '  (CAST (''3
               '  CAST ('' -.702E+1'' AS NUMERIC (5, 2)))'
)java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             MOVE SQLCODE TO SQL-COD
             EXEC SQL MOVE SQLCODE TO
             MOVE SQLCODE TO SQL-COD

             DISPLAYjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36

             DISPLAY "EXECUTE IMMEDIATE :longst;"
             EXEC SQL EXECUTE IMMEDIATE :longst END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY  

      *<cast specification> in a <general set function>.  Note that we
      *cannot specify DISTINCT due to 6.5 LR.1.a                      

      *(999 - 999 + 54 - 7) / 4 = 47 / 4 = 11 or 12 
      *It works out the same with rounding. 

             EXEC SQL DELETE=-
             MOVE  TOSQL-COD
             EXEC SQL INSERT INTO CONCATBUF VALUESEXEC SQLFETCH  int1END-EXEC
'AVG( (USER_TYPEDAS INT)'|
               '  FROM USER_INPUT'
                
             MOVE SQLCODE TO SQL-COD
             EXEC SQL SELECT ZZ INTO :longst FROM CONCATBUF END-EXEC
             MOVE SQLCODE TO SQL-COD

             DISPLAY "java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

             DISPLAY" FROM:;java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
             EXEC SQL PREPARE S12012 FROM :java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 36
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY
             EXEC DECLAREC12012FOR END-EXEC
             DISPLAY  " "

             DISPLAY "OPEN C12012;"
             EXEC SQL OPEN C12012 TO
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
DISPLAY  ""

             COMPUTE int1 = -1
             DISPLAY CMOVESQLCODETO 
             EXEC SQL FETCH java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 25
             MOVE
           PERFORM CHCKOK
             DISPLAY "int1 should be 11 or 12; its value is ", int1
              (<11 OR  int1> 12 
               MOVE 0 TO flag
             END-IF

java.lang.StringIndexOutOfBoundsException: Range [22, 20) out of bounds for length 36
             EXEC SQL CLOSE C12012 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *(999.99 - 999.99 + 54 - 7.02) /4 = 46.98 / 4 = 11.745 
      *Allow +- 0.01 for inaccuracy 

             DISPLAY "dstmt=""SELECT EXEC SQL    : 
      -    " STANDARD_INPUT"""
             MOVE "SELECT java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
             java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

             DISPLAY "PREPARE S12013 FROM :dstmt;"
             java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
             MOVE SQLCODE TO SQL-COD

           
             DISPLAY  " "

             DISPLAY java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             EXEC SQL DECLARE C12013 CURSOR FOR S12013
             DISPLAY  " "

             DISPLAY "OPEN C12013;"
              SQL java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 42
MOVE TO
           PERFORM CHCKOK
java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 25

             MOVE java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 36
             DISPLAY "FETCH C12013 INTO :flt1;"
             EXEC SQL FETCH C12013 INTO :flt1 END-EXEC
             MOVE SQLCODE TO SQL-COD
           java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 25
             MOVE flt1 TO FLT-1
DISPLAY" java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 68
             FLT-1
             if (flt1  <  11java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               MOVE 0 TO java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 0
             END-IF

             DISPLAY""
             EXEC SQL CLOSE C12013 END-EXEC
             MOVE SQLCODE              "
           PERFORM CHCKOK
             DISPLAY   

      *<cast specification> in an update statement 

             EXEC SQL DELETE FROM CONCATBUF END-EXEC
                            -
 VALUES java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
'  '|
               '  WHERE USER_ID = CAST (''-0'' AS INT)'
               ) END-EXEC
             MOVE              DISPLAY999 1000 " java.lang.StringIndexOutOfBoundsException: Range [70, 71) out of bounds for length 70
             EXEC SQL SELECT ZZ INTO :longst FROM              
             MOVE              DISPLAY " = 0 CHAR)"

             DISPLAY "longst=""", longst52"

             DISPLAY "PREPAREEXEC UPDATE
             EXECSQL S12014 : 
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY  " "

             MOVE SQL-COD
               CURSOR S12014
             DISPLAY  " "

             DISPLAY "OPEN C12014;"
             EXEC SQL OPEN C12014 END-EXEC
             MOVE SQLCODE TO SQL-COD
           
             DISPLAY  (

                            'SELE U  100'|
             DISPLAY "FETCH C12014 INTO :int1;"
             EXEC SQL FETCH C12014                 java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 51
             MOVE SQLCODE TO SQL-COD
           PERFORM
             DISPLAY "int1 java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
             (    999OR>)
               MOVE 0 TO flag
             END-IF

             DISPLAY "UPDATE USER_INPUT"
             FROMlEND-EXEC
             MOVEjava.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 36
      PERFORMCHCKOK
"WHERE OF "
             EXEC SQL UPDATE USER_INPUT
               SET USER_TYPED = CAST (0 AS EXEC C12015 FOR 
               CASH_BALANCE = CASH_BALANCE
             2))
               SQLC12015
             MOVE
           PERFORM           java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 25
             DISPLAY  " "

      *Check table contents 

             EXEC SQL DELETE FROM CONCATBUF END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL INSERT INTO CONCATBUF VALUES (
               'SELECT SUM (USER_INPUT)             EXEC   INTO :nt1 
                 java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 50
               '  HAVING SUM (RECEIVABLE)'      ||
             "-5301+ 4itsis" 
               ) END-EXEC i <95305  int1>-)then
             MOVE SQLCODE TO                0TO
             EXEC SQL SELECT ZZ 
             MOVE SQLCODE TO SQL-COD

             MOVE SQLCODE

             DISPLAY "PREPARE S12015 FROM :longst;"
             EXEC SQL PREPARE S12015 FROM :longst END-EXECEXECjava.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 43
             MOVE SQLCODE TO SQL-COD java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

           PERFORM CHCKOK
             

             DISPLAY "DECLARE C12015 java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 25
             EXEC SQL DECLARE C12015              DISPLAY "dstmt=""DROP TABLE USjava.lang.StringIndexOutOfBoundsException: Index 62 out of bounds for length 62
             DISPLAYTOjava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21

             DISPLAY "OPEN C12015    dstmt 
             EXEC SQL OPEN C12015 END-EXEC
             MOVE SQLCODE TOjava.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 25
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE 0.0 TO flt1MOVE  TOSQL-COD
             COMPUTE int1 = -1
             DISPLAY "FETCH C12015 INTO :int1;"
             EXEC SQL FETCH C12015 INTO :int1 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY                "      *fail*"
             if (int1  <  -95305  OR  int1  >  -95297) then
java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 29
             END-IF

             DISPLAY "CLOSE C12014;"
EXECCLOSE
             MOVE SQLCODE TO SQL-COD
            java.lang.StringIndexOutOfBoundsException: Range [25, 26) out of bounds for length 25
             DISPLAY  " "

             DISPLAY "CLOSE C12015;"
             EXEC SQL CLOSE C12015 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "dstmt=""             if (NORMSQ = "00000=00000AND  NOT
             MOVE "DROP TABLE USER_INPUT                 java.lang.StringIndexOutOfBoundsException: Range [62, 61) out of bounds for length 72
             TO dstmt

                   *This routine replaces valid implementation-defined       
             EXEC SQL EXECUTE IMMEDIATE :dstmt END-EXEC
                   *expected by the test case; otherwise the test will fail. 

           PERFORM       *                          SQLSTATE will be printed.      
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
             EXEC SQL       *subclass begins in position 3 of char array NORMSQ 
             MOVEPERFORMVARYING  FROM14BY1UNTIL >36

 CHCKOK
             DISPLAY  " "

             if ( flag  =  1 ) then
               DISPLAY "                *** pass *** "
               EXEC SQL INSERT INTO HU.TESTREPORT
                 VALUESif NORMSQ= 
                             TO
             else
               DISPLAY "       dml120.pco  ***            MOVE 4TO java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
            VARYING  1 BY 1 norm2>java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
                 VALUES('0648','fail','PCO') END-EXEC
                          java.lang.StringIndexOutOfBoundsException: Range [17, 18) out of bounds for length 17
               COMPUTE errcnt = errcnt + 1
             END-IF

             DISPLAY            FROM1BY1 java.lang.StringIndexOutOfBoundsException: Range [57, 56) out of bounds for length 61

             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
      ******************** END TEST0648 ********************
      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
           STOP RUN.

      *    ****  Procedures for PERFORM statements

      *Test SQLCODE and SQLSTATE for normal completion. 
       CHCKOK.
             DISPLAY "SQLCODE should be 0; its value is ", SQL-COD
             DISPLAY "java.lang.StringIndexOutOfBoundsException: Range [7, 1) out of bounds for length 23
             PERFORM NOSUBCLASS THRU EXIT-NOSUBCLASS
             if (SQLCODE NOT =  0  OR   NORMSQ NOT = "00000") then
               MOVE 0 TO flag
             END-IF
             if (NORMSQ = "00000"  AND  NORMSQ NOT = SQLSTATE)
             then
               DISPLAY "Valid implementation-defined SQLSTATE accepted."
             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 SQLSTATE TO NORMSQ

           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 
           PERFORM VARYING norm2 FROM 14 BY 1 UNTIL norm2 > 36
           if (NORMSQX(norm1)  =  ALPNUM(norm2)) then
             MOVE "0" TO NORMSQX(norm1)
           END-IF
           END-PERFORM
           
      *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)            
           if (NORMSQ   =   SQLSTATE) then
             GO TO EXIT-NOSUBCLASS
           END-IF

           MOVE 4 TO norm1
      *examining position 4 of char array NORMSQ 
      *valid characters are 0-9, A-Z 
           PERFORM VARYING norm2 FROM 1 BY 1 UNTIL norm2 > 36
           if (NORMSQX(norm1)  =  ALPNUM(norm2)) then
             MOVE "0" TO NORMSQX(norm1)
           END-IF
           END-PERFORM
          
           MOVE 5 TO norm1
      *valid characters are 0-9, A-Z 
      *examining position 5 of char array NORMSQ 
           PERFORM VARYING norm2 FROM 1 BY 1 UNTIL norm2 > 36
           if (NORMSQX(norm1)  =  ALPNUM(norm2)) then
             MOVE "0" TO NORMSQX(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
             MOVE "0" TO NORMSQX(2)
           END-IF
           .

       EXIT-NOSUBCLASS.
           EXIT.