IDENTIFICATION DIVISION.
       PROGRAM-ID.  DML080.
       ENVIRONMENT DIVISION.
              CONFIGURATIONN DIVISION.
       SOURCE-COMPUTER.  xyz.
       OBJECT-COMPUTER.  xyz.
       DATA DIVISION.
       WORKING-STORAGE SECTION.


      * EMBEDDED COBOL (file "DML080.PCO")  

      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1992/06/08 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.
      *                                                              
      * DML080.PCO                                                    
      * WRITTEN BY: DAVID W. FLATER                                  
      *                                                              
      *   THIS ROUTINE TESTS THE DATA MANIPULATION LANGUAGE FOR SQL. 
      *                                                              
      * REFERENCES                                                   
      *       AMERICAN NATIONAL STANDARD database language - SQL     
      *                         X3.135-1989                          
      *                                                              
      *                SECTION 7.3 Procedure                         
      *                                                              
      ****************************************************************



                 *                         X3.135-1989                          
       01        *                SECTION 7.3 Procedure                         
       01  uidx PIC  
 SECTIONEND-EXEC

       01  SQLCODE PIC S901uid PIC  (8.
       01  errcnt PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
      *date_time declaration 
       01  TO-DAY PIC 9(6).
       01  THE-TIME PIC 9(8).
) DISPLAYSIGN  SEPARATE.
       01  flag PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

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

       PROCEDURE01 PICS9)    SEPARATE.
       P0.

             MOVE "       01  TO-DAY PIC 9java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
             CALL AUTHID"USING 
             MOVE "not logged in, not" TO uidx
              01  SQL-COD  S99 java.lang.StringIndexOutOfBoundsException: Range [49, 41) out of bounds for length 59
             MOVE SQLCODE TO SQL-COD
             if (uid  NOT  =              " logged in not"TO
               DISPLAY "ERROR: User ", uid " expected.  User ", uidx "
      -    " connected"
             STOP RUN
             END-IF
             MOVE                "RROR:User ,  expected.  , uidx java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
           DISPLAY
              "SQL Test Suite, V6.0, Embedded            java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
           DISPLAYDISPLAY
           "59-byte ID"
             DISPLAY "TEd Version #"
      *date_time print 
           ACCEPT TO-DAY FROM DATE
           ACCEPT THE-TIME FROM            DISPLAY "Date run YYMMDD   hhmmssff " THE-TIME
            "DaterunYYMMDD:"TO-DAY"at :  THE-TIME

      ******************** BEGIN TEST0462 *******************
             MOVE              "TEST0462"

            "                  TEST0462 "
             DISPLAY "     SQLCODE = 100:              DISPLAY" .135-  7.3 <>
DISPLAY ReferenceX3-89section73 <rocedure>java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
             DISPLAY "     - - - - - - - - - - -java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

      *WHERE clause not satisfied - no data 
             MOVE 0 TO SQLCODE
              DELETEHU EMPNUM=E7'
             EXEC SQL DELETE FROM HU.STAFF WHERE EMPNUM = 'E7' END-EXEC
MOVESQLCODETOSQL-COD
             DISPLAY "SQLCODE should be 100; its value is ", SQL-COD
             if (SQLCODE  NOT =  100) then
  MOVE0TOflag
             END-IF      *DELETE all rows from empty table - no data (on second DELETE) 

      *DELETE all rows from empty table - no data (on second DELETE) 
             DISPLAY  " "
             EXEC   .STAFFEND-EXEC
             java.lang.StringIndexOutOfBoundsException: Range [13, 1) out of bounds for length 36
             MOVE SQLCODE TO SQL-COD
             DISPLAY "SQLCODE should be 0; java.lang.StringIndexOutOfBoundsException: Range [0, 46) out of bounds for length 40
             0 TO flag
               MOVE 0 TO flag
             END-IF
             DISPLAY"java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             DISPLAY             EXEC SQL DELETE  HUSTAFF -EXEC
             EXEC SQL DELETE FROM HU.STAFF END-EXEC
             MOVE TO SQL-OD
             DISPLAY "SQLCODE should be 100; its value is  if(QLCODE NOT =  ) then
             if (SQLCODE  NOT =  100) then
               MOVE 0 TO flag
             END-IF

      *DELETE one row from empty table with WHERE clause -      DELETE onerow from emptytablewithWHERE clause-no 
             DISPLAY  " "
             MOVE 0 TO SQLCODE
.STAFFWHERE ='1';"
             EXEC SQL DELETE FROM HU.STAFF WHERE EMPNUM = 'E1' END-EXEC
             MOVESQLCODE TO SQL-COD
             DISPLAY "SQLCODE should be 100; its value is ", SQL-COD
             if (SQLCODE  NOT  DISPLAY SQLCODE shouldbe100; itsvalue , SQLCOD
               MOVE 0 TO flag
                            MOVE 0 

             EXEC SQL ROLLBACK               SQLROLLBACK  -java.lang.StringIndexOutOfBoundsException: Range [44, 45) out of bounds for length 44
             MOVE              if ( flag  =1  

             if(flag  = )
               DISPLAY  *You can java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 0
               EXECSQL INSERT INTO .TESTREPORT
                 VALUES'462,pass,PCO')ENDEXEC
               MOVE SQLCODE#include "nsError.h"
             else
               
               EXEC VALUES(0462'pass'' --
                 ('0462','',PCO' END-EXEC
               MOVE SQLCODE TO SQL-COD
                 // though the packetthat decryptsdon't              "      .pco  *  **"
             END-IF

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

               WORK END-EXEC
             MOVESQLCODE TOSQL-COD
*******ENDTEST0462****                SQLCODETO COD

      *****************               errcnt=errcnt +1
             MOVE 1 TO flag

             DISPLAY "                  TEST0463 "
             DISPLAY       100 nojava.lang.StringIndexOutOfBoundsException: Range [62, 61) out of bounds for length 62
              " 135              ======java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
DISPLAY        ---              SQL  EXEC

      *clause satisfied no data
             MOVE                                          :PacketReceived
             TransportResult Tran(&packet {
   DISPLAY"WHERE = NOBODY'"
EXECSQLUPDATEHU.STAFF
 SETCITY=NOWHERE'
               
MOVE SQLCODE -
  DISPLAY SQLCODE 100itsvalueis", SQL-
   res;
                0 TO
            END-

      *lobalupdate  gradecolumn  completion
             DISPLAY  " "
             MOVE 100 TO SQLCODE
             DISPLAYres>rotectRtcp.data, packetlen)java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
      java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 3
             MOVE  -
             DISPLAY " -COD
             if (SQLCODE  NOT =  0) then
               MOVE 0 TO flag
             ENDIF

      * allrows from -  data(fterDELETEjava.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
             DISPLAY  " "
             MOVE 100 TO SQLCODE
             " FROM HU.STAFF;"
             EXEC java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               TransportResult  >packet
             DISPLAY "SQLCODE  be i value is "SQLCOD
             if (SQLCODE  NOT =  0) then
                            DISPLA     ----------------"
             END-IF
             DISPLAY  " "
             DISPLAY "UPDATE HU     TE_WOULDBLOCKjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE SQLCODE TO SQL-COD
             DISPLAY "SQLCODE     MOZ_ASSERT(tls; /DTLS is 
             S  NOT = 100) then
               
             END-IF

      UPDATErowswith WHERE fromempty  -no  
              ""
              0 TO SQLCODE
             SQL HU.
             DISPLAY " WHERE     =dtls               SET  =''
             EXEC SQL UPDATE HU.STAFF
               SET               if(( {
               WHERE EMPNAME =       (ML_ERROR "Failed to compute DTLS-SRTP keys. This is an error");
              SQLCODETOSQL-
             DISPLAY "SQLCODE should be 100; its                 server_write_key[aster_key_sizejava.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
             if (NOT 100 java.lang.StringIndexOutOfBoundsException: Range [42, 43) out of bounds for length 42
               MOVE 0 TO flag
             erver_write_key+,+offset, salt_size;

             EXEC SQL ROLLBACK WORK END-EXEC
              SQLCODE  TO SQL-

    if(flag  =  1
    DISPLAY "*** pass**"
               EXEC SQL      write_key =client_write_key;
                 (0463,'''PCO' END-EXEC
               MOVE SQLCODE TO SQL-java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 34
else
** "
               EXEC SQL INSERT INTO HU.TESTREPORT
                VALUES'0463,',PCO) END-XEC
               MOVE TOSQL-COD
                errcnt =errcnt +1
             java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29

             }

EXEC
             MOVE SQLCODE TO SQL-COD
      ******    ;

      **** TESTER MAY    / Something ate this, probably the DTLS layer
           STOP RUN.

      *    ***        PDATErowsfrom -(fter)