IDENTIFICATION DIVISION.
       PROGRAM-ID.  DML076.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
             * WRITTEN BY: YOLANDA HERD                              
       OBJECT-COMPUTER.  xyz.
       DATA DIVISION.
       WORKING-STORAGE SECTION.


      * Standard COBOL (file "DML076.SCO") calling SQL
      * procedures in file "DML076.MCO".


      * STANDARD COBOL (file "DML076.SCO")     

      *********************************************************
      *                                                       
      *             COMMENT SECTION                           
      *                                                       
      * DATE 1991/06/18 STANDARD 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.
      *                                                       
      * DML076.SCO                                             
      * WRITTEN BY: YOLANDA HERD                              
      *                                                       
      * THIS ROUTINE TESTS NULLS AND CURSORS                  
      *                                                       
      * REFERENCES                                            
      *  AMERICAN NATIONAL STANDARD database language - SQL   
      *                               X3.135-1989             
      *                                                       
      *                SECTION 4.2                            
      *                  DATA TYPES, DEFINITION OF NULL       
      *                  SECTION 8.10, GR 8                   
      *                                                       
      *********************************************************


      * EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01  CHARTP PIC  X(1).
       01  INTTP PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  REALTP-SUB PIC S9(6)V99 DISPLAY SIGN LEADING SEPARATE.
       01  SMLTPPIC(DISPLAYSIGN LEADING SEPARATE.
       01  NUMTP PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  DECTP PIC S9(9) DISPLAY java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 27
       01  GRDE 01  indic4 PIC4 SIGN LEADING SEPARATE.
       01  NME1 PIC  X(20).
       01  NME2 PIC  X(20).
       01  CITY1 PIC  X(15).
       01  VAR1 PIC  X(3).
01  indic1  S9(4 DISPLAY SIGN LEADING SEPARATE.
       01  indic2 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  indic3 PIC S9(4) DISPLAY SIGN        01  indic7 PIC S9(4) DISPLAY SIGN LEADING
       01  indic4 PIC S9(4) DISPLAY SIGN LEADING 01  indic9 PIC S9(4) DISPLAY SIGN LEADING SEPARATE
       01  indic5 PICS9(4)DISPLAY SIGN LEADINGSEPARATEjava.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
       01  indic6 PIC S9(4)01count3 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
      01  indic7 PIC S9(4 DISPLAY SIGN LEADING SEPARATE.
       01  indic8 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  indic9 PIC S9(4) DISPLAY SIGN LEADING         count5 S9() DISPLAY SIGN LEADING SEPARATE.
       01  indicx PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
        SEPARATE.
       01  count2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  count3PIC (9 DISPLAY  SIGN LEADING SEPARATE.
       01  count4 PIC S9()DISPLAY SIGN LEADING SEPARATE.
       01  count5 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
      01  count6 PIC (9) ISPLAY  SEPARATE.
       01  count7 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01   PIC (9)DISPLAY SIGN LEADING SEPARATE.
       01  count9 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  countxPIC S9() DISPLAY SIGN LEADING SEPARATE.
      *  EXEC SQL END DECLARE SECTION END-EXEC

       01  uid PIC  X(18).
       01  uidx PIC X(18).
 PICS9) DISPLAY SIGN LEADING SEPARATE.
       01  flag2 PIC  01  SQLCODEPIC S9()COMP
java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
       01  SQLCODE PIC S9(9) COMP.
       01  errcnt PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  i PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

       01  SQL-COD PIC        01  DISP1 PIC S9(4  LEADING SEPARATE.
       01  DISP1PIC (4)DISPLAY SIGN LEADING SEPARATE.
       01  DISP2  01DISP4  S9() DISPLAY SIGN LEADING SEPARATE.
       01DISP4 S9()DISPLAY LEADING SEPARATE.
       01  DISP7 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  DISP8 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.

      * date_time declaration *
       01  TO-DAY PIC 9(java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
       01  THE-TIME PIC 9(8).
    
       PROCEDURE DIVISION.
       P0
             MOVE "
              "AUTHID USING uid
           MOVE        P0.
           CALL "UTHCK USING SQLCODE uidx
           MOVE SQLCODE               "AUTHID"USING 
           if (uid NOT = uidx) then
             ": User "uid"expected."
            DISPLAY "User " uidx " connected."
            DISPLAY ""
            STOP RUN
           END-IF

           MOVE 0 TO errcnt
           DISPLAY
           "SQL Test Suite, V6.0, Module COBOL, dml076.sco"
DISPLAY "
           DISPLAY
           "59-byte ID"
                       DISPLAY"User " uidx  connectedjava.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
           DISPLAY " "
      * date_time print *
                      TO-DAY FROM 
           ACCEPT THE-TIME FROM           MOVE 0 TO errcnt
           DISPLAY "Date run YYMMDD           SQL Test , V6.0 ModuleCOBOL, dml076.sco"


      ********************** BEGIN TEST0410 *********************
      *This program tests NULL values in OPEN CURSORS           
      *                                                         

             DISPLAY "                      TEST0410      * date_time print *
             DISPLAY "             NULL value in OPEN             THE-TIME FROM TIME
DISPLAY "referenceX3135-1989 5..11 GR2 and 5.1GR2 
      -    " "
             DISPLAY "
      -    " --java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

             MOVE "IRM" TO NME1
             MOVE "XXX" TO VAR1
                   *                                                         
             MOVE 0 TO
             MOVE10000 TO 
             MOVE 0 TO count3

      *  EXEC SQL DECLARE X CURSOR
      *    FOR SELECT PNUM
      *    FROM PROJ
      *    WHERE PNAME = :NME1:indic1 OR BUDGET > :count1:indic2
      *  END-EXEC

      *  EXEC SQL OPEN X;
             CALL "SUB1" USING SQLCODE              DISPLAY "
MOVE  SQL-COD

             MOVE 1 TO i
             PERFORM  UNTILi > 6

                          MOVE "XXX"TOVAR1
             MOVE "XXXXXX" TO CITY1
             MOVE 50000 TO count1
             MOVE 0 TOcount2
             MOVE -1 TO indic1 
             MOVE0  indic2

      *  EXEC SQL DECLARE Y CURSOR
      *    FOR SELECT CITY
      *    FROM PROJ
      *    WHERE PNAME = :NME1:indic2 OR BUDGET < :count1:indic1
      *  END-EXEC

      *  EXEC SQL OPEN Y;
             CALL "SUB2" USING SQLCODE NME1 indic2 count1 indic1
             MOVE SQLCODE TO SQL-COD

             MOVE 1 TO i
IL i >6

             DISPLAY " The correct answers are:"
             DISPLAY "   count3 = 4 and count2 = 1  "
" "
             DISPLAY " Your answers are:"
DISPLAY"count3 = ", count3 " and count2 = ", count2 " "

             if ((java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      *    EXEC SQL INSERT INTO TESTREPORT 
      *      VALUES('0410','pass','MCO');
               CALL "SUB3" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
               DISPLAY "                  *** pass ***                  MOVE  TO indic1java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
             else
      *    EXEC SQL INSERT INTO TESTREPORT 
      *      VALUES('0410','fail','MCO');
             ADD 1  CALL"  SQLCODENME1  count1 
               CALL "SUB4" USING SQLCODE
               MOVE PERFORM P49 UNTIL>6
               DISPLAY "        dml076.sco  re:"
             END-IF

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

                         DISPLAY""


      *  EXEC SQL COMMIT WORK;
             CALL "SUB5              ((  =  4)AND(count2  =  1)
              SQLCODE TO SQL-COD

      ********************** END TEST0410 *********************

      ********************** BEGIN TEST0435 *********************
      *This program tests UPDATES WHERE CURRENT                 
      *                                                         

             DISPLAY "                      TEST0435          "
             DISPLAY "        Host variables in UPDATE WHERE CURRENT"
             DISPLAY "    reference X3.135-1989 8.11, value expression"
             DISPLAY " 
      -    " ---------               DISPLAY "        dml076.sco  *** fail ***     "

      *  EXEC SQL DECLARE DINO CURSOR 
      *    FOR SELECT EMPNUM, CITY
      *    FROM STAFF
      *    WHERE CITY > 'Dino' END-EXEC

      *  EXEC SQL OPEN DINO;
             CALL "SUB6" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

              0 TO 
             MOVE "XXXXX" TO CITY1
             MOVE "XXX      *  EXEC SQL COMMIT WORK;
             MOVE "XXX" TO VAR1

             MOVE
             PERFORM P48 UNTIL i > 5

             MOVE -1 TO GRDE      *This program tests UPDATES WHERE CURRENT                 
             MOVE "Joan" TO NME1

      *  EXEC SQL SELECT SUM(GRADE) INTO :GRDE
      *    FROM STAFF
      *    WHERE CITY = :CITY1;
             CALL "SUB7" USING SQLCODE GRDE CITY1
             MOVE  SQLCODE TO

      *  EXEC SQL SELECT EMPNAME INTO :NME1
      *    FROM STAFF
      *    WHERE EMPNAME > 'Ed';
             CALL "SUB8" USING SQLCODE NME1
             -------------------------------"

      *  EXEC SQL ROLLBACK WORK;
             CALL "SUB9" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

             DISPLAY  " "
             DISPLAY       *  EXEC SQL OPEN DINO;
DISPLAY"GRDE=35and NME1 = Smith"
             DISPLAY  " "
             DISPLAY " Your answers are:"
             MOVE SQLCODE TO SQL-COD

             if ((GRDE  =  35)               MOVE TO GRDE
      -    "")  then
      *    EXEC SQL INSERT INTO TESTREPORT 
      *      VALUES('0435','pass','MCO');
               CALL "SUB10" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
               DISPLAY "                  *** pass ***     "
             else
      *    EXEC SQL INSERT INTO TESTREPORT 
      *      VALUES('0435','fail','MCO');
             ADD 1 TO errcnt
               CALL "SUB11" USING SQLCODE
               SQLCODE TO 
               DISPLAY "        dml076.sco  ***java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             END-IF

             DISPLAY
             "========      *  EXEC SQL SELECT SUM(GRADE) INTO :GRDE

             DISPLAY  " "


      *  EXEC SQL COMMIT WORK;
             CALL "SUB12" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      ********************** END TEST0435 *********************



      ********************** BEGIN TEST0436 *********************
      *This program tests the NULL values for various           
      *SQL Data Types                                           

                      "
             DISPLAY "        NULL values for various SQL Data Types
      -    "  "
             java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 0
      -    " "
             DISPLAY "  
      -    " ---------------      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0


             MOVE"" TO CHARTP
             MOVE 0 TO indic1
             MOVE 0 TO indic2
             MOVE 0 TO indic3
             MOVE 0 TO indic4
             MOVE 0 TO indic5
             MOVE 0 TO indic6
             MOVE 0 TO indic7
             MOVE 0 TO indic8
             MOVE 0 TO count1
             MOVE 0 TO count2
              count3   1
             MOVE 99999 TO java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 21
MOVE99 java.lang.StringIndexOutOfBoundsException: Range [29, 30) out of bounds for length 29
             MOVE 999 TO NUMTP
             MOVE java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

      *  EXEC SQL INSERT INTO BB VALUES(NULL);
             CALL "SUB13" USING SQLCODE      *    EXEC SQL FETCH Y INTO :CITY1;
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO EE VALUES(NULL);
             CALL "SUB14" USING SQLCODE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO GG VALUES(NULL);
             CALL "SUB15" USING SQLCODE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO HH VALUES(NULL);
             CALL "SUB16" USING SQLCODE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO II VALUES(NULL);
             CALL "               DISPLAYCITY1=" CITY1
              SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO JJ VALUES(NULL);
             CALL""USING SQLCODE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO MM VALUES(NULL);
             CALL "SUB19" USING SQLCODE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO SS VALUES(NULL);
             CALL"UB20" USING 
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT CHARTEST INTO :CHARTP:indic1 
      *    FROM BB;
             CALL "SUB21" USING SQLCODE CHARTP indic1
             MOVE SQLCODE  if(QLCODE=  ) then
             MOVE                  DISPLAYVAR1=" VAR1 " CITY1 =,CITY1

      *  EXEC SQL SELECT INTTEST INTO :INTTP:indic2 
      *    FROM EE;
             CALL "SUB22" USING SQLCODE INTTP indic2
             MOVE SQLCODE TO SQL-COD
             MOVE indic2 TO      *        WHERE CURRENT OF DINO;
 
      *  EXEC SQL SELECT COUNT(*) INTO :count1 
      *    FROM GG 
      *    WHERE REALTEST IS NULL;
             CALL "SUB24" USING SQLCODE count1
             MOVE SQLCODE TO SQL-COD
          
      *  EXEC SQL SELECT SMALLTEST INTO :SMLTP:indic4 
      *    FROM HH;
             CALL "SUB25" USING SQLCODE SMLTP indic4
             MOVE SQLCODE TO                  MOVE "Smith" TO""TONME1
             MOVE indic4 TO DISP4

      *  EXEC SQL SELECT COUNT(*) INTO :count2 
      *    FROM II 
      *    WHERE DOUBLETEST IS NULL;
             CALL "SUB27" USING SQLCODE count2
             MOVE SQLCODE TO SQL-COD


      *  EXEC SQL SELECT COUNT(*) INTO :count3 
      *    FROM JJ 
      *    WHERE FLOATTEST IS NULL;
             CALL "SUB29" USING SQLCODE count3
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT NUMTEST INTO :NUMTP:indic7 
      *    FROM MM;
             CALL "SUB30" USING SQLCODE NUMTP indic7
             MOVE SQLCODE TO SQL-COD
             MOVE indic7 TO DISP7

      *  EXEC SQL SELECT NUMTEST INTO :DECTP:indic8 
      *    FROM SS;
             CALL "SUB31" USING SQLCODE DECTP indic8
             MOVE SQLCODE TO SQL-COD
             MOVE indic8 TO DISP8

      *  EXEC SQL ROLLBACK WORK;
             CALL "SUB32" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

             DISPLAY " The correct answers are:"
             DISPLAY "    All indicator variables should be -1"
             DISPLAY "    count1, count2, and count3 = 1"
             DISPLAY  " "
             DISPLAY " Your answers are:"
             DISPLAY "    indic1 = ", DISP1 ", indic2 = ", DISP2
             DISPLAY "    indic4 = ", DISP4
             DISPLAY "    indic7 = ", DISP7 ", indic8 = ", DISP8
             DISPLAY "    count1 = ", count1 ", count2 = ", count2 ",
      -    " count3 = ", count3

             MOVE 0 TO flag1

             MOVE 0 TO flag2

             if (indic1  NOT =  -1  OR  indic2  NOT =  -1  OR  
               indic4  NOT =  -1)  then
               MOVE 1 TO flag1
             END-IF

             if (indic7 NOT =  -1  OR  indic8  NOT =  -1)   then
               MOVE 1 TO flag1
             END-IF

             if (count1  NOT =  1  OR  count2  NOT =  1  OR  count3  NOT
             =  1)  then
               MOVE 1 TO flag2
             END-IF


             if (flag1  =  0  AND  flag2  =  0)  then
      *    EXEC SQL INSERT INTO TESTREPORT 
      *      VALUES('0436','pass','MCO');
               CALL "SUB33" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
               DISPLAY "                  *** pass ***     "
             else
      *    EXEC SQL INSERT INTO TESTREPORT 
      *      VALUES('0436','fail','MCO');
             ADD 1 TO errcnt
               CALL "SUB34" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
               DISPLAY "        dml076.sco  *** fail ***     "
             END-IF

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

             DISPLAY  " "

      *  EXEC SQL COMMIT WORK;
             CALL "SUB35" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      ********************** END TEST0436 *********************


      ********************** BEGIN TEST0437 *******************

             DISPLAY "                      TEST0437             "
             DISPLAY "       NULL values for various host variables    
      -    " "
             DISPLAY "   reference X3.135-1989 section 4.2, 8.7, 5.6 GR
      -    " 1 or 2   "
             DISPLAY " 
      -    " --------------------------------------------------   "

             MOVE -1 TO indic1 
             MOVE -1 TO indic2 
             MOVE -1 TO indic3 
             MOVE 0 TO indic4
             MOVE 0 TO indic5
             MOVE 0 TO indic6
             MOVE 0 TO count1
             MOVE 0 TO count2
             MOVE 0 TO count3
             MOVE 0 TO count4

             MOVE "2" TO CHARTP
             MOVE -23 TO DECTP
             MOVE 99 TO REALTP-SUB
      *  EXEC SQL INSERT INTO BB VALUES(:CHARTP :indic1);
             CALL "SUB36" USING SQLCODE CHARTP indic1
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO SS VALUES(:DECTP  :indic2);
             CALL "SUB37" USING SQLCODE DECTP indic2
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO GG VALUES(:REALTP-SUB :indic3);
             CALL "SUB38" USING SQLCODE REALTP-SUB indic3
             MOVE SQLCODE TO SQL-COD


             MOVE "X" TO CHARTP
             MOVE 23 TO DECTP
             MOVE 45 TO REALTP-SUB
      *  EXEC SQL INSERT INTO BB VALUES(:CHARTP :indic4);
             CALL "SUB39" USING SQLCODE CHARTP indic4
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO SS VALUES(:DECTP  :indic5);
             CALL "SUB40" USING SQLCODE DECTP indic5
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO GG VALUES(:REALTP-SUB :indic6);
             CALL "SUB41" USING SQLCODE REALTP-SUB indic6
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL INSERT INTO DD SELECT * FROM BB;
             CALL "SUB42" USING SQLCODE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO PP SELECT NUMTEST FROM SS;
             CALL "SUB43" USING SQLCODE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO JJ SELECT REALTEST FROM GG
      *    WHERE REALTEST IS NULL OR REALTEST > 0;
             CALL "SUB44" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT CHARTEST INTO :CHARTP 
      *    FROM DD 
      *    WHERE CHARTEST IS NOT NULL;
             CALL "SUB45" USING SQLCODE CHARTP
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT NUMTEST INTO :DECTP 
      *    FROM PP 
      *    WHERE NUMTEST IS NOT NULL;
             CALL "SUB46" USING SQLCODE DECTP
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :REALTP-SUB
      *    FROM JJ 
      *    WHERE FLOATTEST BETWEEN 44 AND 46;
             CALL "SUB47" USING SQLCODE REALTP-SUB
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :count1
      *    FROM JJ 
      *    WHERE FLOATTEST IS NOT NULL;
             CALL "SUB48" USING SQLCODE count1
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :count2
      *    FROM DD
      *    WHERE CHARTEST IS NULL;
             CALL "SUB49" USING SQLCODE count2
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :count3
      *    FROM PP
      *    WHERE NUMTEST IS NULL;
             CALL "SUB50" USING SQLCODE count3
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :count4
      *    FROM JJ
      *    WHERE FLOATTEST IS NULL;
             CALL "SUB51" USING SQLCODE count4
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL ROLLBACK WORK;
             CALL "SUB52" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

             DISPLAY " The correct answers are:"
             DISPLAY "   CHARTP = X, DECTP = 23, REALTP-SUB = 1"
             DISPLAY "   count1 = 1, count2 = 1"
             DISPLAY "   count3 = 1, count4 = 1"
             DISPLAY  " "
             DISPLAY " Your answers are:"
             DISPLAY "   CHARTP = ", CHARTP ", DECTP = ", DECTP ",
      -    " REALTP-SUB = ", REALTP-SUB
             DISPLAY "   count1 = ", count1 ", count2 = ", count2
             DISPLAY "   count3 = ", count3 ", count4 = ", count4

             MOVE 0 TO flag1

             if ((CHARTP  NOT  =   "X")  OR  DECTP  NOT =  23) then
               MOVE 1 TO flag1
             END-IF

             MOVE 0 TO flag2

             if (REALTP-SUB  NOT =  1) then
               MOVE 1 TO flag2
             END-IF

             MOVE 0 TO flag3

             if (count1  NOT =  1  OR  count2  NOT =  1  OR  count3  NOT
             =  1  OR  count4  NOT =  1) then
               MOVE 1 TO flag3
             END-IF

             if (flag1  =  0  AND  flag2  =  0  AND  flag3  =  0) then
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0437','pass','MCO');
               CALL "SUB53" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
               DISPLAY "                 *** pass ***      "
             else
      *    EXEC SQL INSERT INTO TESTREPORT
      *      VALUES('0437','fail','MCO');
             ADD 1 TO errcnt
               CALL "SUB54" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
               DISPLAY "       dml076.sco  *** fail ***      "
             END-IF

             DISPLAY
             "====================================================="
      *  EXEC SQL COMMIT WORK;
             CALL "SUB5" USING SQLCODE

             DISPLAY  " "
      ********************** END TEST0437 *********************

      ********************** BEGIN TEST0441 *******************

             DISPLAY "                    TEST0441     "
             DISPLAY "           NULL values for various predicates"
             DISPLAY "   reference 5.6 <value specification> GR 1 or 2"
             DISPLAY
             "----------------------------------------------------"

             MOVE 0 TO count1
             MOVE -1 TO count2 
             MOVE 0 TO count3
             MOVE -1 TO count4 
             MOVE 0 TO count5
             MOVE -1 TO count6 
             MOVE 0 TO count7
             MOVE -1 TO count8 
             MOVE 0 TO count9
             MOVE -1 TO countx 
             MOVE 0 TO indic1
             MOVE -1 TO indic2 
             MOVE 0 TO indic3
             MOVE -1 TO indic4 
             MOVE 0 TO indic5
             MOVE -1 TO indic6 
             MOVE 0 TO indic7
             MOVE -1 TO indic8 
             MOVE 0 TO indic9
             MOVE -1 TO indicx 

             MOVE 11 TO DECTP
             MOVE "V___na%" TO CITY1
             MOVE "S_P%" TO NME1

      *  EXEC SQL SELECT COUNT(*) INTO :count1 
      *    FROM STAFF 
      *    WHERE GRADE BETWEEN 9 AND :DECTP :indic1;
             CALL "SUB55" USING SQLCODE count1 DECTP indic1
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :count2 
      *    FROM STAFF 
      *    WHERE GRADE BETWEEN 9 AND :DECTP :indic2;
             CALL "SUB56" USING SQLCODE count2 DECTP indic2
             MOVE SQLCODE TO SQL-COD

             MOVE 39999 TO DECTP

      *  EXEC SQL SELECT COUNT(*) INTO :count3 
      *    FROM PROJ 
      *    WHERE BUDGET NOT BETWEEN 9999 AND :DECTP :indic3;
             CALL "SUB57" USING SQLCODE count3 DECTP indic3
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :count4  
      *    FROM PROJ 
      *    WHERE BUDGET NOT BETWEEN 999 AND :DECTP :indic4;
             CALL "SUB58" USING SQLCODE count4 DECTP indic4
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :count5 
      *    FROM  PROJ 
      *    WHERE PNAME LIKE :NME1 :indic5;
             CALL "SUB59" USING SQLCODE count5 NME1 indic5
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :count6 
      *    FROM PROJ 
      *    WHERE PNAME LIKE :NME1 :indic6;
             CALL "SUB60" USING SQLCODE count6 NME1 indic6
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :count7 
      *    FROM STAFF 
      *    WHERE CITY NOT LIKE :CITY1 :indic7;
             CALL "SUB61" USING SQLCODE count7 CITY1 indic7
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :count8 
      *    FROM STAFF 
      *    WHERE CITY NOT LIKE :CITY1 :indic8;
             CALL "SUB62" USING SQLCODE count8 CITY1 indic8
             MOVE SQLCODE TO SQL-COD

             MOVE 20 TO DECTP

      *  EXEC SQL SELECT COUNT(*) INTO :count9
      *    FROM WORKS
      *    WHERE HOURS <> :DECTP :indic9;
             CALL "SUB63" USING SQLCODE count9 DECTP indic9
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL SELECT COUNT(*) INTO :countx
      *    FROM WORKS
      *    WHERE HOURS <> :DECTP :indicx;
             CALL "SUB64" USING SQLCODE countx DECTP indicx
             MOVE SQLCODE TO SQL-COD

      *  EXEC SQL ROLLBACK WORK;
             CALL "SUB65" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

             DISPLAY " The correct answers are:"
             DISPLAY "  count1 = 1,  count2 = 0"
             DISPLAY "  count3 = 1,  count4 = 0"
             DISPLAY "  count5 = 2,  count6 = 0"
             DISPLAY "  count7 = 3,  count8 = 0"
             DISPLAY "  count9 = 8,  countx = 0"
             DISPLAY  " "
             DISPLAY " Your answers are:"
             DISPLAY "  count1 = ", count1 ",  count2 = ", count2
             DISPLAY "  count3 = ", count3 ",  count4 = ", count4
             DISPLAY "  count5 = ", count5 ",  count6 = ", count6
             DISPLAY "  count7 = ", count7 ",  count8 = ", count8
             DISPLAY "  count9 = ", count9 ",  countx = ", countx

             MOVE 0 TO flag1
             MOVE 0 TO flag2
             MOVE 0 TO flag3

             if ((count1  NOT =  1)  OR  (count2  NOT =  0)  OR  (count3
              NOT =  1)  OR  (count4  NOT =  0))  then
               MOVE 1 TO flag1
             END-IF

             if ((count5  NOT =  2)  OR  (count6  NOT =  0)  OR  (count7
              NOT =  3)  OR  (count8  NOT =  0))  then
               MOVE 1 TO flag2
             END-IF

             if ((count9  NOT =  8)  OR  (countx  NOT =  0)) then
               MOVE 1 TO flag3
             END-IF

             if ((flag1  =  0)  AND  (flag2  =  0)  AND  (flag3  =  0))
             then
      *    EXEC SQL INSERT INTO TESTREPORT 
      *      VALUES('0441','pass','MCO');
               CALL "SUB66" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
               DISPLAY "                  *** pass ***     "
             else
      *    EXEC SQL INSERT INTO TESTREPORT 
      *      VALUES('0441','fail','MCO');
             ADD 1 TO errcnt
               CALL "SUB67" USING SQLCODE
               MOVE SQLCODE TO SQL-COD
               DISPLAY "        dml076.sco  *** fail ***     "
             END-IF

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

             DISPLAY  " "


      *  EXEC SQL COMMIT WORK;
             CALL "SUB68" USING SQLCODE
             MOVE SQLCODE TO SQL-COD

      ********************** END TEST0441 *********************





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

      *    ****  Procedures for PERFORM statements

        P50.
      *    EXEC SQL FETCH X INTO :VAR1;
               CALL "SUB69" USING SQLCODE VAR1
               MOVE SQLCODE TO SQL-COD
               if (SQLCODE  =  0) then
                 COMPUTE count3 = count3 + 1
               END-IF
               DISPLAY "VAR1 = ", VAR1
             ADD 1 TO i
           .

        P49.
      *    EXEC SQL FETCH Y INTO :CITY1;
               CALL "SUB70" USING SQLCODE CITY1
               MOVE SQLCODE TO SQL-COD
               if (SQLCODE  =  0) then
                 COMPUTE count2 = count2 + 1
               END-IF
               DISPLAY "CITY1 = ", CITY1
             ADD 1 TO i
           .

        P48.
               MOVE i TO GRDE
      *    EXEC SQL FETCH DINO INTO :VAR1, :CITY1;
               CALL "SUB71" USING SQLCODE VAR1 CITY1
               MOVE SQLCODE TO SQL-COD

               if (SQLCODE  =  0) then
                 DISPLAY " VAR1 = ", VAR1 ", CITY1 = ", CITY1
                 MOVE "Dinoville" TO CITY1
      *      EXEC SQL UPDATE STAFF
      *        SET GRADE = :GRDE + 10, CITY = :CITY1
      *        WHERE CURRENT OF DINO;
                 CALL "SUB72" USING SQLCODE GRDE CITY1
                 MOVE SQLCODE TO SQL-COD
               END-IF


               if (i  =  2) then
                 MOVE "Smith" TO NME1
      *      EXEC SQL UPDATE STAFF
      *        SET GRADE = GRADE * :GRDE, EMPNAME = :NME1
      *        WHERE CURRENT OF DINO;
                 CALL "SUB73" USING SQLCODE GRDE NME1
                 MOVE SQLCODE TO SQL-COD
                 DISPLAY " VAR1 = ", VAR1 ", GRDE = ", GRDE
               END-IF
             ADD 1 TO i
           .