Quelle  dml124.cob

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


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


      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1994/6/20 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.
      *                                                              
      * DML124.SCO                                                    
      * WRITTEN BY:  David W. Flater                                 
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE
      * Bug fixes & stronger pass criteria by Joan Sullivan 2/27/95  
      * Corrected in accordance with X3H2-95-105 5/9/95              
      *                                                              
      * This routine tests SQL descriptors, which is a feature of    
      * Dynamic SQL.                                                 
      *                                                              
      * REFERENCES                                                   
      *   FIPS PUB 127-2 14.1 Transitional SQL                       
      *   ANSI SQL-1992                                              
      *                                                              
      ****************************************************************



      * EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01  SQLCODE PIC S9(9) COMP.
       01  SQLSTATE PIC  X(5).
       01  uid PIC  X(18).
       01  uidx PIC  X(18).
       01  int1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  int2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  int3 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  int4 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  int5 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  int6 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  int7 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  flt1 PIC S9(4)V9(4) DISPLAY SIGN LEADING SEPARATE.
      *    OK to change the precision of smint1 to match SMALLINT
       01  smint1 PIC S9(2) BINARY.
      *    OK to change the precision of bin2 to match SMALLINT
       01  bin2 PIC S9(2) BINARY.
      *    OK to change the precision of bin9 to match INTEGER
       01  bin9 PIC S9(9) BINARY.
       01  dstmt PIC  X(50).
       01  longst PIC  X(240).
       01  cname PIC  X(20).
       01  indic1 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  c2 PIC  X(2).
       01  c4 PIC  X(4).
       01  c6 PIC  X(6).
       01  c7 PIC  X(7).
      *  EXEC SQL END DECLARE SECTION END-EXEC
       01  FLT-1  PIC -(5).9999.
       01  BIN-1  PIC -(5).
       01  intprc PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  relprc PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  norm1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  norm2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  ALPNUM-TABLE VALUE IS
               "01234ABCDEFGH56789IJKLMNOPQRSTUVWXYZ".
           05  ALPNUM PIC X OCCURS 36 TIMES.
       01  NORMSQ.
           05  NORMSQX PIC X OCCURS 5 TIMES.
       01  errcnt PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
      *date_time declaration 
       01  TO-DAY PIC 9(6).
       01  THE-TIME PIC 9(8).
       01  flag PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

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

       PROCEDURE DIVISION.
       P0.

             MOVE "HU                " TO uid
             CALL "AUTHID" USING uid
             MOVE "not logged in, not" TO uidx
      *  EXEC SQL SELECT USER INTO :uidx FROM HU.ECCO;
             CALL "SUB1" USING SQLCODE SQLSTATE uidx
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL ROLLBACK WORK;
             CALL "SUB2" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
             if (uid  NOT  =   uidx) then
               DISPLAY "ERROR: User ", uid " expected.  User ", uidx "
      -    " connected"
            STOP RUN
             END-IF
             MOVE 0 TO errcnt

             DISPLAY
           "SQL Test Suite, V6.0, Module COBOL, dml124.sco"
             DISPLAY
           "59-byte ID"
             DISPLAY "TEd Version #"
      *date_time print 
           ACCEPT TO-DAY FROM DATE
           ACCEPT THE-TIME FROM TIME
           DISPLAY "Date run YYMMDD: " TO-DAY " at hhmmssff: " THE-TIME

      *This test was converted from a FLATER test to a HU test.  We 
      *need CONCATBUF. 
             DISPLAY "CREATE TABLE CONCATBUF (ZZ CHAR(240));"
      *  EXEC SQL CREATE TABLE CONCATBUF (ZZ CHAR(240));
             CALL "SUB3" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB4" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD

      ******************** BEGIN TEST0653 *******************
             MOVE 1 TO flag

             DISPLAY "                  TEST0653 "
             DISPLAY "       Descriptors:  DESCRIBE OUTPUT"
             DISPLAY "References:"
             DISPLAY "    F# 1 -- Dynamic SQL"
             DISPLAY "    17.8 -- <describe statement>"
             DISPLAY "    17.1 -- Description of SQL item descriptor
      -    " areas"
             DISPLAY "    17.2 GR.3 -- limit on descriptor areas is"
             DISPLAY "                 implementation-defined"
             DISPLAY "     7.9 SR.10 -- nullability"
             DISPLAY "     6.1 -- <data type>"
             DISPLAY "   - - - - - - - - - - - - - - - - - - -"

             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

             DISPLAY "CREATE TABLE CACHESTAT ("
             DISPLAY "  HIT_RATIO FLOAT (17) NOT NULL,"
             DISPLAY "  FRAGMENTATION_PCT FLOAT);"
      *  EXEC SQL CREATE TABLE CACHESTAT (
      *    HIT_RATIO FLOAT (17) NOT NULL,
      *    FRAGMENTATION_PCT FLOAT);
             CALL "SUB5" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB6" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "CREATE VIEW COMBINATIONS (INTTEST,"
             DISPLAY "  REALTEST, SMALLTEST, DOUBLETEST, NUMTEST,"
             DISPLAY "  DECTEST) AS SELECT * FROM HU.EE, HU.GG, HU.HH,"
             DISPLAY "  HU.II, HU.LL, HU.PP;"
      *  EXEC SQL CREATE VIEW COMBINATIONS (INTTEST,
      *    REALTEST, SMALLTEST, DOUBLETEST, NUMTEST,
      *    DECTEST) AS SELECT * FROM HU.EE, HU.GG, HU.HH,
      *    HU.II, HU.LL, HU.PP;
             CALL "SUB7" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB8" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "ALLOCATE DESCRIPTOR 'D12411' WITH MAX 8;"
      *  EXEC SQL ALLOCATE DESCRIPTOR 'D12411' WITH MAX 8;
             CALL "SUB9" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             if (SQLSTATE   =   "07009")  then
               DISPLAY "Received SQLSTATE 07009!"
               DISPLAY "This test must be rewritten by NIST (in the
      -    " event of"
               DISPLAY "a validation) to accomodate
      -    " implementation-defined"
               DISPLAY "limit on <occurrences>."
             END-IF
             DISPLAY  " "

             DISPLAY "dstmt=""SELECT * FROM HU.STAFF"""
             MOVE "SELECT * FROM HU.STAFF                    
      -    "        " TO dstmt

             DISPLAY "PREPARE S12411 FROM :dstmt;"
      *  EXEC SQL PREPARE S12411 FROM :dstmt;
             CALL "SUB10" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DESCRIBE OUTPUT S12411 USING SQL DESCRIPTOR
      -    " 'D12411';"
      *  EXEC SQL DESCRIBE OUTPUT S12411 USING SQL DESCRIPTOR
      *  'D12411';
             CALL "SUB11" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             DISPLAY "GET DESCRIPTOR 'D12411' :int1 = COUNT;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' :int1 = COUNT;
             CALL "SUB12" USING SQLCODE SQLSTATE int1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 4; its value is ", int1
             if (int1  NOT =  4) then
               MOVE 0 TO flag
             END-IF

      *CHARACTER_SET_* and COLLATION_* are orphaned features 

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             COMPUTE int5 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 1"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = LENGTH, :int5 =
      -    " OCTET_LENGTH;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 1
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int4 = LENGTH, :int5 = OCTET_LENGTH
      * ;
             CALL "SUB13" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int4 int5
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 1 (CHARACTER); its value is ", int1
             DISPLAY "int2 should be 0 (NOT NULL); its value is ", int2
             DISPLAY "int3 should be 0 (named); its value is ", int3
             DISPLAY "cname should be 'EMPNUM              '; its value
      -    " is '", cname "'"
             DISPLAY "int4 should be 3; its value is ", int4
             DISPLAY "int5 should be > 2; its value is ", int5
             if (int1  NOT =  1  OR  int2  NOT =  0  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  NOT =  3  OR  int5  NOT >  2) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "EMPNUM              ") then
               MOVE 0 TO flag
             END-IF

             COMPUTE bin9 = -1
             COMPUTE int2 = -1
             COMPUTE bin2 = -1
             COMPUTE int4 = -1
             COMPUTE int5 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 2"
             DISPLAY "  :bin9 = TYPE, :int2 = NULLABLE, :bin2 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = LENGTH, :int5 =
      -    " OCTET_LENGTH;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 2
      *    :bin9 = TYPE, :int2 = NULLABLE, :bin2 = UNNAMED,
      *    :cname = NAME, :int4 = LENGTH, :int5 = OCTET_LENGTH
      * ;
             CALL "SUB14" USING SQLCODE SQLSTATE
                bin9 int2 bin2 cname int4 int5
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             MOVE bin9 TO BIN-1
             DISPLAY "bin9 should be 1 (CHARACTER); its value is " BIN-1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             MOVE bin2 TO BIN-1
             DISPLAY "bin2 should be 0 (named); its value is ", BIN-1
             DISPLAY "cname should be 'EMPNAME             '; its value
      -    " is '", cname "'"
             DISPLAY "int4 should be 20; its value is ", int4
             DISPLAY "int5 should be > 14; its value is ", int5
             if (bin9  NOT =  1  OR  int2  NOT =  1  OR  bin2  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  NOT =  20  OR  int5  NOT >  14) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "EMPNAME             ") then
               MOVE 0 TO flag
             END-IF

             COMPUTE bin2 = -1
             COMPUTE int2 = -1
             COMPUTE bin9 = -1
             COMPUTE int4 = -1
             COMPUTE int5 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 3"
             DISPLAY "  :bin2 = TYPE, :int2 = NULLABLE, :bin9 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = PRECISION, :int5 =
      -    " SCALE;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 3
      *    :bin2 = TYPE, :int2 = NULLABLE, :bin9 = UNNAMED,
      *    :cname = NAME, :int4 = PRECISION, :int5 = SCALE;
             CALL "SUB15" USING SQLCODE SQLSTATE
                bin2 int2 bin9 cname int4 int5
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             MOVE bin2 TO BIN-1
             DISPLAY "bin2 should be 3 (DECIMAL); its value is ", BIN-1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             MOVE bin9 TO BIN-1
             DISPLAY "bin9 should be 0 (named); its value is ", BIN-1
             DISPLAY "cname should be 'GRADE               '; its value
      -    " is '", cname "'"
             DISPLAY "int4 should be >= 4; its value is ", int4
             DISPLAY "int5 should be 0; its value is ", int5
             if (bin2  NOT =  3  OR  int2  NOT =  1  OR  bin9  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  <  4  OR  int5  NOT =  0) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "GRADE               ") then
               MOVE 0 TO flag
             END-IF

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 4"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :bin2 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :bin9 = LENGTH, :int5 =
      -    " OCTET_LENGTH;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 4
      *    :int1 = TYPE, :int2 = NULLABLE, :bin2 = UNNAMED,
      *    :cname = NAME, :bin9 = LENGTH, :int5 = OCTET_LENGTH
      * ;
             CALL "SUB16" USING SQLCODE SQLSTATE
                int1 int2 bin2 cname bin9 int5
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 1 (CHARACTER); its value is ", int1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             MOVE bin2 TO BIN-1
             DISPLAY "bin2 should be 0 (named); its value is ", BIN-1
             DISPLAY "cname should be 'CITY                '; its value
      -    " is '", cname "'"
             MOVE bin9 TO BIN-1
             DISPLAY "bin9 should be 15; its value is ", BIN-1
             DISPLAY "int5 should be > 11; its value is ", int5
             if (int1  NOT =  1  OR  int2  NOT =  1  OR  bin2  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (bin9  NOT =  15  OR  int5  NOT >  11) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "CITY                ") then
               MOVE 0 TO flag
             END-IF

      *  EXEC SQL DELETE FROM CONCATBUF;
             CALL "SUB17" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO CONCATBUF VALUES (
      *    'SELECT * FROM CACHESTAT, COMBINATIONS' ||
      *    '  WHERE HIT_RATIO < .97'
      *    );
             CALL "SUB18" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL SELECT ZZ INTO :longst FROM CONCATBUF;
             CALL "SUB19" USING SQLCODE SQLSTATE longst
             MOVE SQLCODE TO SQL-COD

             DISPLAY "longst=""", longst """"

             DISPLAY "PREPARE S12412 FROM :longst;"
      *  EXEC SQL PREPARE S12412 FROM :longst;
             CALL "SUB20" USING SQLCODE SQLSTATE longst
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DESCRIBE S12412 USING SQL DESCRIPTOR 'D12411';"
      *  EXEC SQL DESCRIBE S12412 USING SQL DESCRIPTOR 'D12411'
      * ;
             CALL "SUB21" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             DISPLAY "GET DESCRIPTOR 'D12411' :int1 = COUNT;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' :int1 = COUNT;
             CALL "SUB22" USING SQLCODE SQLSTATE int1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 8; its value is ", int1
             if (int1  NOT =  8) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 1"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 1
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int4 = PRECISION;
             CALL "SUB23" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int4
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 6 (FLOAT); its value is ", int1
             DISPLAY "int2 should be 0 (NOT NULL); its value is ", int2
             DISPLAY "int3 should be 0 (named); its value is ", int3
             DISPLAY "cname should be 'HIT_RATIO           '; its value
      -    " is '", cname "'"
             DISPLAY "int4 should be > 0; its value is ", int4
             if (int1  NOT =  6  OR  int2  NOT =  0  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  NOT >  0) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "HIT_RATIO           ") then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 2"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 2
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int4 = PRECISION;
             CALL "SUB24" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int4
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 6 (FLOAT); its value is ", int1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             DISPLAY "int3 should be 0 (named); its value is ", int3
             DISPLAY "cname should be 'FRAGMENTATION_PCT   '; its value
      -    " is '", cname "'"
             DISPLAY "int4 should be > 0; its value is ", int4
             if (int1  NOT =  6  OR  int2  NOT =  1  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  <  1) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "FRAGMENTATION_PCT   ") then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             COMPUTE int5 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 3"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = PRECISION, :int5 =
      -    " SCALE;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 3
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int4 = PRECISION, :int5 = SCALE;
             CALL "SUB25" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int4 int5
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 4 (INTEGER); its value is ", int1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             DISPLAY "int3 should be 0 (named); its value is ", int3
             DISPLAY "cname should be 'INTTEST             '; its value
      -    " is '", cname "'"
             DISPLAY "int4 should be > 0; its value is ", int4
             DISPLAY "int5 should be 0; its value is ", int5
             if (int1  NOT =  4  OR  int2  NOT =  1  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  <  1  OR  int5  NOT =  0) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "INTTEST             ") then
               MOVE 0 TO flag
             END-IF
             MOVE int4 TO intprc

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 4"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 4
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int4 = PRECISION;
             CALL "SUB26" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int4
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 7 (REAL); its value is ", int1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             DISPLAY "int3 should be 0 (named); its value is ", int3
             DISPLAY "cname should be 'REALTEST            '; its value
      -    " is '", cname "'"
             DISPLAY "int4 should be > 0; its value is ", int4
             if (int1  NOT =  7  OR  int2  NOT =  1  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  <  1) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "REALTEST            ") then
               MOVE 0 TO flag
             END-IF
             MOVE int4 TO relprc

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             COMPUTE int5 = -1
             MOVE 5 TO int6
             DISPLAY "int6 = 5"
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE :int6"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = PRECISION, :int5 =
      -    " SCALE;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE :int6
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int4 = PRECISION, :int5 = SCALE;
             CALL "SUB27" USING SQLCODE SQLSTATE
                int6 int1 int2 int3 cname int4 int5
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 5 (SMALLINT); its value is ", int1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             DISPLAY "int3 should be 0 (named); its value is ", int3
             DISPLAY "cname should be 'SMALLTEST           '; its value
      -    " is '", cname "'"
             DISPLAY "int4 should be 0 < int4 <= ", intprc "; its value
      -    " is ", int4
             DISPLAY "int5 should be 0; its value is ", int5
             if (int1  NOT =  4  OR  int2  NOT =  1  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  <  1  OR  int4  >  intprc  OR  int5  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "SMALLTEST           ") then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 6"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 6
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int4 = PRECISION;
             CALL "SUB28" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int4
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 8 (DOUBLE); its value is ", int1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             DISPLAY "int3 should be 0 (named); its value is ", int3
             DISPLAY "cname should be 'DOUBLETEST          '; its value
      -    " is '", cname "'"
             DISPLAY "int4 should be > ", relprc "; its value is ", int4
             if (int1  NOT =  8  OR  int2  NOT =  1  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  <  1  OR  int4  NOT >  relprc) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "DOUBLETEST          ") then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             COMPUTE int5 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 7"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = PRECISION, :int5 =
      -    " SCALE;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 7
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int4 = PRECISION, :int5 = SCALE;
             CALL "SUB29" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int4 int5
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 2 (NUMERIC); its value is ", int1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             DISPLAY "int3 should be 0 (named); its value is ", int3
             DISPLAY "cname should be 'NUMTEST             '; its value
      -    " is '", cname "'"
             DISPLAY "int4 should be 13; its value is ", int4
             DISPLAY "int5 should be 6; its value is ", int5
             if (int1  NOT =  2  OR  int2  NOT =  1  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  NOT =  13  OR  int5  NOT =  6) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "NUMTEST             ") then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             COMPUTE int5 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 8"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = PRECISION, :int5 =
      -    " SCALE;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 8
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int4 = PRECISION, :int5 = SCALE;
             CALL "SUB30" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int4 int5
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 3 (DECIMAL); its value is ", int1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             DISPLAY "int3 should be 0 (named); its value is ", int3
             DISPLAY "cname should be 'DECTEST             '; its value
      -    " is '", cname "'"
             DISPLAY "int4 should be >= 13; its value is ", int4
             DISPLAY "int5 should be 6; its value is ", int5
             if (int1  NOT =  3  OR  int2  NOT =  1  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  <  13  OR  int5  NOT =  6) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "DECTEST             ") then
               MOVE 0 TO flag
             END-IF

      *Unnamed columns 

             DISPLAY "dstmt=""SELECT USER, COUNT(*) FROM HU.ECCO"""
             MOVE "SELECT USER, COUNT(*) FROM HU.ECCO        
      -    "        " TO dstmt

             DISPLAY "PREPARE S12413 FROM :dstmt;"
      *  EXEC SQL PREPARE S12413 FROM :dstmt;
             CALL "SUB31" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DESCRIBE S12413 USING SQL DESCRIPTOR 'D12411';"
      *  EXEC SQL DESCRIBE S12413 USING SQL DESCRIPTOR 'D12411'
      * ;
             CALL "SUB32" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             DISPLAY "GET DESCRIPTOR 'D12411' :int1 = COUNT;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' :int1 = COUNT;
             CALL "SUB33" USING SQLCODE SQLSTATE int1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 2; its value is ", int1
             if (int1  NOT =  2) then
               MOVE 0 TO flag
             END-IF

      *Nullability of columns:  7.9 GR.10 

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             COMPUTE int5 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 1"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = LENGTH, :int5 =
      -    " OCTET_LENGTH;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 1
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int4 = LENGTH, :int5 = OCTET_LENGTH
      * ;
             CALL "SUB34" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int4 int5
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 1 (CHARACTER); its value is ", int1
             DISPLAY "int2 should be 0 (NOT NULL); its value is ", int2
             DISPLAY "int3 should be 1 (unnamed); its value is ", int3
             DISPLAY "cname is '", cname "'"
             DISPLAY "int4 should be > 7; its value is ", int4
             DISPLAY "int5 should be > 4; its value is ", int5
             if (int1  NOT =  1  OR  int2  NOT =  0  OR  int3  NOT =  1)
             then
               MOVE 0 TO flag
             END-IF
             if (int4  NOT >  7  OR  int5  NOT >  4)  then
               DISPLAY "The correct values for int4 and int5 are
      -    " implementation-"
               DISPLAY "defined, but must be justified since they are
      -    " unexpectedly low."
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             COMPUTE int5 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 2"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int4 = PRECISION, :int5 =
      -    " SCALE;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 2
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int4 = PRECISION, :int5 = SCALE;
             CALL "SUB35" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int4 int5
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 2 <= int1 <= 5; its value is ",
             int1
             DISPLAY "int2 should be 0 (NOT NULL); its value is ", int2
             DISPLAY "int3 should be 1 (unnamed); its value is ", int3
             DISPLAY "cname is '", cname "'"
             DISPLAY "int4 should be > 0; its value is ", int4
             DISPLAY "int5 should be 0; its value is ", int5
             if (int1  <  2  OR  int1  >  5  OR  int2  NOT =  0) then
               MOVE 0 TO flag
             END-IF
             if (int3  NOT =  1  OR  int4  <  1  OR  int5  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF

      *X3H2-95-103:  Question marks are possibly nullable 
      *17.9 GR.3.e.iii  Unnamed columns 

      *  EXEC SQL DELETE FROM CONCATBUF;
             CALL "SUB36" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO CONCATBUF VALUES (
      *    'SELECT HIT_RATIO AS HR, FRAGMENTATION_PCT * ?' ||
      *    '  FROM CACHESTAT'
      *    );
             CALL "SUB37" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL SELECT ZZ INTO :longst FROM CONCATBUF;
             CALL "SUB38" USING SQLCODE SQLSTATE longst
             MOVE SQLCODE TO SQL-COD

             DISPLAY "longst=""", longst """"

             DISPLAY "PREPARE S12414 FROM :longst;"
      *  EXEC SQL PREPARE S12414 FROM :longst;
             CALL "SUB39" USING SQLCODE SQLSTATE longst
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DESCRIBE S12414 USING SQL DESCRIPTOR 'D12411';"
      *  EXEC SQL DESCRIBE S12414 USING SQL DESCRIPTOR 'D12411'
      * ;
             CALL "SUB40" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname
             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 1"
             DISPLAY "  :int1 = NULLABLE, :int2 = UNNAMED, :cname =
      -    " NAME;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 1
      *    :int1 = NULLABLE, :int2 = UNNAMED, :cname = NAME;
             CALL "SUB41" USING SQLCODE SQLSTATE
                int1 int2 cname
             MOVE SQLCODE TO SQL-COD
             DISPLAY "int1 should be 0 (NOT NULL); its value is ", int1
             DISPLAY "int2 should be 0 (named); its value is ", int2
             DISPLAY "cname should be 'HR                  '; its value
      -    " is '", cname "'"
             if (int1  NOT =  0  OR  int2  NOT =  0) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "HR                  ") then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             DISPLAY "GET DESCRIPTOR 'D12411' VALUE 2"
             DISPLAY "  :int1 = NULLABLE, :int2 = UNNAMED;"
      *  EXEC SQL GET DESCRIPTOR 'D12411' VALUE 2
      *    :int1 = NULLABLE, :int2 = UNNAMED;
             CALL "SUB42" USING SQLCODE SQLSTATE int1 int2
             MOVE SQLCODE TO SQL-COD
             DISPLAY "int1 should be 1 (NULLABLE); its value is ", int1
             DISPLAY "int2 should be 1 (unnamed); its value is ", int2
             if (int1  NOT =  1  OR  int2  NOT =  1) then
               MOVE 0 TO flag
             END-IF

             DISPLAY "DEALLOCATE DESCRIPTOR 'D12411';"
      *  EXEC SQL DEALLOCATE DESCRIPTOR 'D12411';
             CALL "SUB43" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

           .
        P199.
             DISPLAY "ROLLBACK WORK;"
      *  EXEC SQL ROLLBACK WORK;
             CALL "SUB44" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP TABLE CACHESTAT CASCADE;"
      *  EXEC SQL DROP TABLE CACHESTAT CASCADE;
             CALL "SUB45" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB46" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP VIEW COMBINATIONS CASCADE;"
      *  EXEC SQL DROP VIEW COMBINATIONS CASCADE;
             CALL "SUB47" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB48" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             if ( flag  =  1 ) then
               DISPLAY "                *** pass *** "
      *    EXEC SQL INSERT INTO HU.TESTREPORT
      *      VALUES('0653','pass','MCO');
               CALL "SUB49" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY "       dml124.sco  *** fail *** "
      *    EXEC SQL INSERT INTO HU.TESTREPORT
      *      VALUES('0653','fail','MCO');
               CALL "SUB50" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
               COMPUTE errcnt = errcnt + 1
             END-IF

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

      *  EXEC SQL COMMIT WORK;
             CALL "SUB51" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      ******************** END TEST0653 ********************
      ******************** BEGIN TEST0654 *******************
             MOVE 1 TO flag

             DISPLAY "                  TEST0654 "
             DISPLAY "    Descriptors:  INTO SQL DESCRIPTOR"
             DISPLAY "References:"
             DISPLAY "    F# 1 -- Dynamic SQL"
             DISPLAY "    17.9 -- <using clause>"
             DISPLAY "    17.8 -- <describe statement>"
             DISPLAY "    17.1 -- Description of SQL item descriptor
      -    " areas"
             DISPLAY "    17.2 GR.3 -- limit on descriptor areas is"
             DISPLAY "                 implementation-defined"
             DISPLAY "     6.1 -- <data type>"
             DISPLAY "   - - - - - - - - - - - - - - - - - - -"

             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

             DISPLAY "CREATE TABLE BANKTAB ("
             DISPLAY "  NAAM CHAR (10), BALANCE NUMERIC (7, 2),"
             DISPLAY "  INTEREST DECIMAL (3, 2), TRANSACTIONS INT,"
             DISPLAY "  PAYMENTS SMALLINT, INTEREST_RATE FLOAT,"
             DISPLAY "  ANNUAL_YIELD REAL, FRACTIONAL_CENTS DOUBLE
      -    " PRECISION);"
      *  EXEC SQL CREATE TABLE BANKTAB (
      *    NAAM CHAR (10), BALANCE NUMERIC (7, 2),
      *    INTEREST DECIMAL (3, 2), TRANSACTIONS INT,
      *    PAYMENTS SMALLINT, INTEREST_RATE FLOAT,
      *    ANNUAL_YIELD REAL, FRACTIONAL_CENTS DOUBLE PRECISION)
      * ;
             CALL "SUB52" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB53" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "INSERT INTO BANKTAB VALUES ("
             DISPLAY "  'Bubba', 524.07, 2.42, 13, 1, 3.0, 3.1, -.256);"
      *  EXEC SQL INSERT INTO BANKTAB VALUES (
      *    'Bubba', 524.07, 2.42, 13, 1, 3.0, 3.1, -.256);
             CALL "SUB54" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Allocate one extra occurrence 

             DISPLAY "ALLOCATE DESCRIPTOR 'D12421' WITH MAX 9;"
      *  EXEC SQL ALLOCATE DESCRIPTOR 'D12421' WITH MAX 9;
             CALL "SUB55" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             if (SQLSTATE   =   "07009")  then
               DISPLAY "Received SQLSTATE 07009!"
               DISPLAY "This test must be rewritten by NIST (in the
      -    " event of"
               DISPLAY "a validation) to accomodate
      -    " implementation-defined"
               DISPLAY "limit on <occurrences>."
             END-IF
             DISPLAY  " "

             DISPLAY "dstmt=""SELECT * FROM BANKTAB"""
             MOVE "SELECT * FROM BANKTAB                     
      -    "        " TO dstmt

             DISPLAY "PREPARE S12421 FROM :dstmt;"
      *  EXEC SQL PREPARE S12421 FROM :dstmt;
             CALL "SUB56" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DESCRIBE OUTPUT S12421 USING SQL DESCRIPTOR
      -    " 'D12421';"
      *  EXEC SQL DESCRIBE OUTPUT S12421 USING SQL DESCRIPTOR
      *  'D12421';
             CALL "SUB57" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Doctor results of describe to "match" host language variables 
      *Implementation-dependent precisions, etc. 

             DISPLAY "SET DESCRIPTOR 'D12421' VALUE 1"
             DISPLAY "  LENGTH = 20;"
      *  EXEC SQL SET DESCRIPTOR 'D12421' VALUE 1
      *    LENGTH = 20;
             CALL "SUB58" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *      TYPE is already 2
             DISPLAY "SET DESCRIPTOR 'D12421' VALUE 2"
             DISPLAY "  PRECISION = 8, SCALE = 4;"
      *  EXEC SQL SET DESCRIPTOR 'D12421' VALUE 2
      *    PRECISION = 8, SCALE = 4;
             CALL "SUB59" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "SET DESCRIPTOR 'D12421' VALUE 3"
             DISPLAY "  TYPE = 2, PRECISION = 8, SCALE = 4;"
      *  EXEC SQL SET DESCRIPTOR 'D12421' VALUE 3
      *    TYPE = 2, PRECISION = 8, SCALE = 4;
             CALL "SUB60" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "SET DESCRIPTOR 'D12421' VALUE 6"
             DISPLAY "  TYPE = 2, PRECISION = 8, SCALE = 4;"
      *  EXEC SQL SET DESCRIPTOR 'D12421' VALUE 6
      *    TYPE = 2, PRECISION = 8, SCALE = 4;
             CALL "SUB61" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "SET DESCRIPTOR 'D12421' VALUE 7"
             DISPLAY "  TYPE = 2, PRECISION = 8, SCALE = 4;"
      *  EXEC SQL SET DESCRIPTOR 'D12421' VALUE 7
      *    TYPE = 2, PRECISION = 8, SCALE = 4;
             CALL "SUB62" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "SET DESCRIPTOR 'D12421' VALUE 8"
             DISPLAY "  TYPE = 2, PRECISION = 8, SCALE = 4;"
      *  EXEC SQL SET DESCRIPTOR 'D12421' VALUE 8
      *    TYPE = 2, PRECISION = 8, SCALE = 4;
             CALL "SUB63" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DECLARE C12421 CURSOR FOR S12421;"
      *  EXEC SQL DECLARE C12421 CURSOR FOR S12421 END-EXEC
             DISPLAY  " "

             DISPLAY "OPEN C12421;"
      *  EXEC SQL OPEN C12421;
             CALL "SUB64" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "FETCH C12421 INTO SQL DESCRIPTOR 'D12421';"
      *  EXEC SQL FETCH C12421 INTO SQL DESCRIPTOR 'D12421';
             CALL "SUB65" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             DISPLAY "GET DESCRIPTOR 'D12421' :int1 = COUNT;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' :int1 = COUNT;
             CALL "SUB66" USING SQLCODE SQLSTATE int1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 8; its value is ", int1
             if (int1  NOT =  8) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname
             DISPLAY "GET DESCRIPTOR 'D12421' VALUE 1"
             DISPLAY "  :int1 = INDICATOR, :cname = DATA;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' VALUE 1
      *    :int1 = INDICATOR, :cname = DATA;
             CALL "SUB67" USING SQLCODE SQLSTATE
                int1 cname
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 0; its value is ", int1
             DISPLAY "cname should be 'Bubba               '; its value
      -    " is '", cname "'"
             if (int1  NOT =  0  OR  cname  NOT  =   "Bubba             
      -    "  ") then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE flt1 = -1.0
             DISPLAY "GET DESCRIPTOR 'D12421' VALUE 2"
             DISPLAY "  :int1 = INDICATOR, :flt1 = DATA;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' VALUE 2
      *    :int1 = INDICATOR, :flt1 = DATA;
             CALL "SUB68" USING SQLCODE SQLSTATE int1 flt1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 0; its value is ", int1
             MOVE flt1 TO FLT-1
             DISPLAY "flt1 should be 524.07 +-.005; its value is ",
               FLT-1
             if (int1  NOT =  0  OR  flt1  <  524.065  OR  flt1  > 
             524.075) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE flt1 = -1.0
             DISPLAY "GET DESCRIPTOR 'D12421' VALUE 3"
             DISPLAY "  :int1 = INDICATOR, :flt1 = DATA;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' VALUE 3
      *    :int1 = INDICATOR, :flt1 = DATA;
             CALL "SUB69" USING SQLCODE SQLSTATE int1 flt1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 0; its value is ", int1
             MOVE flt1 TO FLT-1
             DISPLAY "flt1 should be 2.42 +-.005; its value is ", FLT-1
             if (int1  NOT =  0  OR  flt1  <  2.415  OR  flt1  >  2.425)
             then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname
             DISPLAY "GET DESCRIPTOR 'D12421' VALUE 4"
             DISPLAY "  :int1 = INDICATOR, :bin9 = DATA;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' VALUE 4
      *    :int1 = INDICATOR, :bin9 = DATA;
             CALL "SUB70" USING SQLCODE SQLSTATE int1 bin9
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 0; its value is ", int1
             MOVE bin9 TO BIN-1
             DISPLAY "bin9 should be 13; its value is ", BIN-1
             if (int1  NOT =  0  OR  bin9  NOT =  13) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname
             DISPLAY "GET DESCRIPTOR 'D12421' VALUE 5"
             DISPLAY "  :int1 = INDICATOR, :bin2 = DATA;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' VALUE 5
      *    :int1 = INDICATOR, :bin2 = DATA;
             CALL "SUB71" USING SQLCODE SQLSTATE int1 bin2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 0; its value is ", int1
             MOVE bin2 TO BIN-1
             DISPLAY "bin2 should be 1; its value is ", BIN-1
             if (int1  NOT =  0  OR  bin2  NOT =  1) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE flt1 = -1.0
             DISPLAY "GET DESCRIPTOR 'D12421' VALUE 6"
             DISPLAY "  :int1 = INDICATOR, :flt1 = DATA;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' VALUE 6
      *    :int1 = INDICATOR, :flt1 = DATA;
             CALL "SUB72" USING SQLCODE SQLSTATE int1 flt1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 0; its value is ", int1
             MOVE flt1 TO FLT-1
             DISPLAY "flt1 should be 3.0 +-.05; its value is ", FLT-1
             if (int1  NOT =  0  OR  flt1  <  2.95  OR  flt1  >  3.05)
             then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE flt1 = -1.0
             DISPLAY "GET DESCRIPTOR 'D12421' VALUE 7"
             DISPLAY "  :int1 = INDICATOR, :flt1 = DATA;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' VALUE 7
      *    :int1 = INDICATOR, :flt1 = DATA;
             CALL "SUB73" USING SQLCODE SQLSTATE int1 flt1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 0; its value is ", int1
             MOVE flt1 TO FLT-1
             DISPLAY "flt1 should be 3.1 +-.05; its value is ", FLT-1
             if (int1  NOT =  0  OR  flt1  <  3.05  OR  flt1  >  3.15)
             then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE flt1 = -1.0
             DISPLAY "GET DESCRIPTOR 'D12421' VALUE 8"
             DISPLAY "  :int1 = INDICATOR, :flt1 = DATA;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' VALUE 8
      *    :int1 = INDICATOR, :flt1 = DATA;
             CALL "SUB74" USING SQLCODE SQLSTATE int1 flt1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 0; its value is ", int1
             MOVE flt1 TO FLT-1
             DISPLAY "flt1 should be -.256 +-.0005; its value is ",
               FLT-1
             if (int1  NOT =  0  OR  flt1  <  -.2565  OR  flt1  > 
             -.2555) then
               MOVE 0 TO flag
             END-IF

      *17.4 GR 4, no data (SQLSTATE 02000) if <item number> > COUNT 

             COMPUTE int1 = -1
             DISPLAY "GET DESCRIPTOR 'D12421' VALUE 9"
             DISPLAY "  :int1 = INDICATOR;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' VALUE 9
      *    :int1 = INDICATOR;
             CALL "SUB75" USING SQLCODE SQLSTATE int1
             MOVE SQLCODE TO SQL-COD
             DISPLAY "SQLCODE should be 100; its value is ", SQL-COD
             DISPLAY "SQLSTATE should be 02000; its value is ", SQLSTATE
           PERFORM NOSUBCLASS THRU EXIT-NOSUBCLASS
             if (SQLCODE  NOT =  100  OR  NORMSQ  NOT  =   "02000") then
               MOVE 0 TO flag
             END-IF
             if (NORMSQ   =   "02000"  AND  NORMSQ  NOT  =   SQLSTATE)
             then
               DISPLAY "Valid implementation-defined SQLSTATE accepted."
             END-IF
             DISPLAY  " "

      *Implicit casting:  17.9 GR.7 
      *Substitute integer for real 

             DISPLAY "SET DESCRIPTOR 'D12421' VALUE 2"
             DISPLAY "  TYPE = 4;"
      *  EXEC SQL SET DESCRIPTOR 'D12421' VALUE 2
      *    TYPE = 4;
             CALL "SUB76" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "CLOSE C12421;"
      *  EXEC SQL CLOSE C12421;
             CALL "SUB77" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "OPEN C12421;"
      *  EXEC SQL OPEN C12421;
             CALL "SUB64" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "FETCH C12421 INTO SQL DESCRIPTOR 'D12421';"
      *  EXEC SQL FETCH C12421 INTO SQL DESCRIPTOR 'D12421';
             CALL "SUB79" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Make sure it didn't munge the settings 

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE bin9 = -1
             COMPUTE int6 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12421' VALUE 2"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int6 = INDICATOR, :bin9 = DATA;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' VALUE 2
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int6 = INDICATOR, :bin9 = DATA;
             CALL "SUB80" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int6 bin9
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 4 (INTEGER); its value is ", int1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             DISPLAY "int3 should be 0 (named); its value is ", int3
             DISPLAY "cname should be 'BALANCE             '; its value
      -    " is '", cname "'"
             MOVE bin9 TO BIN-1
             DISPLAY "bin9 should be 524; its value is ", BIN-1
             DISPLAY "int6 should be 0; its value is ", int6
             if (int1  NOT =  4  OR  int2  NOT =  1  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (bin9  NOT =  524  OR  int6  NOT =  0) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "BALANCE             ") then
               MOVE 0 TO flag
             END-IF

      *Test null 

             DISPLAY "CLOSE C12421;"
      *  EXEC SQL CLOSE C12421;
             CALL "SUB81" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "UPDATE BANKTAB SET BALANCE = NULL;"
      *  EXEC SQL UPDATE BANKTAB SET BALANCE = NULL;
             CALL "SUB82" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "OPEN C12421;"
      *  EXEC SQL OPEN C12421;
             CALL "SUB64" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "FETCH C12421 INTO SQL DESCRIPTOR 'D12421';"
      *  EXEC SQL FETCH C12421 INTO SQL DESCRIPTOR 'D12421';
             CALL "SUB84" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int6 = -1
             COMPUTE bin9 = -1
             MOVE "xxxxxxxxxxxxxxxxxxxx" TO cname

             DISPLAY "GET DESCRIPTOR 'D12421' VALUE 2"
             DISPLAY "  :int1 = TYPE, :int2 = NULLABLE, :int3 =
      -    " UNNAMED,"
             DISPLAY "  :cname = NAME, :int6 = INDICATOR, :bin9 = DATA;"
      *  EXEC SQL GET DESCRIPTOR 'D12421' VALUE 2
      *    :int1 = TYPE, :int2 = NULLABLE, :int3 = UNNAMED,
      *    :cname = NAME, :int6 = INDICATOR, :bin9 = DATA;
             CALL "SUB85" USING SQLCODE SQLSTATE
                int1 int2 int3 cname int6 bin9
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 4 (INTEGER); its value is ", int1
             DISPLAY "int2 should be 1 (NULLABLE); its value is ", int2
             DISPLAY "int3 should be 0 (named); its value is ", int3
             DISPLAY "cname should be 'BALANCE             '; its value
      -    " is '", cname "'"
             DISPLAY "int6 should be -1; its value is ", int6
             if (int1  NOT =  4  OR  int2  NOT =  1  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF
             if (int6  NOT =  -1) then
               MOVE 0 TO flag
             END-IF
             if (cname  NOT  =   "BALANCE             ") then
               MOVE 0 TO flag
             END-IF

           .
        P198.
             DISPLAY "ROLLBACK WORK;"
      *  EXEC SQL ROLLBACK WORK;
             CALL "SUB86" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *TEd Hook #1 
             DISPLAY "DROP TABLE BANKTAB CASCADE;"
      *  EXEC SQL DROP TABLE BANKTAB CASCADE;
             CALL "SUB87" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB88" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "
      *TEd Hook #2 

             if ( flag  =  1 ) then
               DISPLAY "                *** pass *** "
      *    EXEC SQL INSERT INTO HU.TESTREPORT
      *      VALUES('0654','pass','MCO');
               CALL "SUB89" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY "       dml124.sco  *** fail *** "
      *    EXEC SQL INSERT INTO HU.TESTREPORT
      *      VALUES('0654','fail','MCO');
               CALL "SUB90" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
               COMPUTE errcnt = errcnt + 1
             END-IF

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

      *  EXEC SQL COMMIT WORK;
             CALL "SUB91" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      ******************** END TEST0654 ********************
      ******************** BEGIN TEST0655 *******************
             MOVE 1 TO flag

             DISPLAY "                  TEST0655 "
             DISPLAY "    Descriptors:  USING SQL DESCRIPTOR"
             DISPLAY "References:"
             DISPLAY "    F# 1 -- Dynamic SQL"
             DISPLAY "    17.9 -- <using clause>"
             DISPLAY "    17.10 -- <execute statement>"
             DISPLAY "    17.14 -- <dynamic open statement>"
             DISPLAY "    17.1 -- Description of SQL item descriptor
      -    " areas"
             DISPLAY "    17.2 GR.3 -- limit on descriptor areas is"
             DISPLAY "                 implementation-defined"
             DISPLAY "     6.1 -- <data type>"
             DISPLAY "   - - - - - - - - - - - - - - - - - - -"

             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

      *TEd Hook #1 
             DISPLAY "CREATE TABLE BANKTAB ("
             DISPLAY "  NAAM CHAR (10), BALANCE NUMERIC (7, 2),"
             DISPLAY "  INTEREST DECIMAL (3, 2), TRANSACTIONS INT,"
             DISPLAY "  PAYMENTS SMALLINT, INTEREST_RATE FLOAT,"
             DISPLAY "  ANNUAL_YIELD REAL, FRACTIONAL_CENTS DOUBLE
      -    " PRECISION);"
      *  EXEC SQL CREATE TABLE BANKTAB (
      *    NAAM CHAR (10), BALANCE NUMERIC (7, 2),
      *    INTEREST DECIMAL (3, 2), TRANSACTIONS INT,
      *    PAYMENTS SMALLINT, INTEREST_RATE FLOAT,
      *    ANNUAL_YIELD REAL, FRACTIONAL_CENTS DOUBLE PRECISION)
      * ;
             CALL "SUB92" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB93" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "
      *TEd Hook #2 

             DISPLAY "ALLOCATE DESCRIPTOR 'D12431' WITH MAX 8;"
      *  EXEC SQL ALLOCATE DESCRIPTOR 'D12431' WITH MAX 8;
             CALL "SUB94" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             if (SQLSTATE   =   "07009")  then
               DISPLAY "Received SQLSTATE 07009!"
               DISPLAY "This test must be rewritten by NIST (in the
      -    " event of"
               DISPLAY "a validation) to accomodate
      -    " implementation-defined"
               DISPLAY "limit on <occurrences>."
             END-IF
             DISPLAY  " "

      *Now we're going to do implicit casting in the other direction 

             DISPLAY "SET DESCRIPTOR 'D12431' COUNT = 8;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' COUNT = 8;
             CALL "SUB95" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Name is NULL 

             DISPLAY "SET DESCRIPTOR 'D12431' VALUE 1"
             DISPLAY "  TYPE = 2, PRECISION = 3, SCALE = 0, INDICATOR =
      -    " -1;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE 1
      *    TYPE = 2, PRECISION = 3, SCALE = 0, INDICATOR = -1
      * ;
             CALL "SUB96" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE 3785.2 TO flt1
             DISPLAY "SET DESCRIPTOR 'D12431' VALUE 2"
             DISPLAY "  DATA = :flt1, TYPE = 2,"
             DISPLAY "  PRECISION = 8, SCALE = 4,"
             DISPLAY "  INDICATOR = 0;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE 2
      *    DATA = :flt1, TYPE = 2,
      *    PRECISION = 8, SCALE = 4,
      *    INDICATOR = 0;
             CALL "SUB97" USING SQLCODE SQLSTATE flt1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE 1 TO int1
             MOVE 4 TO int2
             MOVE 0 TO int3
             DISPLAY "int1 = 1"
             DISPLAY "int2 = 4"
             DISPLAY "int3 = 0"
             MOVE "7.67" TO c4
             DISPLAY "SET DESCRIPTOR 'D12431' VALUE 3"
             DISPLAY "  TYPE = :int1, LENGTH = :int2,"
             DISPLAY "  INDICATOR = :int3, DATA = :c4;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE 3
      *    TYPE = :int1, LENGTH = :int2,
      *    INDICATOR = :int3, DATA = :c4;
             CALL "SUB98" USING SQLCODE SQLSTATE int1 int2 int3 c4
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE 4 TO int1
             DISPLAY "int1 = 4"
             MOVE 5 TO int2
             DISPLAY "SET DESCRIPTOR 'D12431' VALUE :int1"
             DISPLAY "  TYPE = 2, PRECISION = 9, INDICATOR = 0, "
             DISPLAY "  DATA = :int2;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE :int1 TYPE = 2,
      *      PRECISION = 9, INDICATOR = 0, DATA = :int2;
             CALL "SUB99" USING SQLCODE SQLSTATE int1 int2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE 0 TO int2
             DISPLAY "SET DESCRIPTOR 'D12431' VALUE 5"
             DISPLAY "  TYPE = 2, PRECISION = 9, "
             DISPLAY "  INDICATOR = 0, DATA = :int2;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE 5
      *    TYPE = 2, PRECISION = 9, SCALE = 0, INDICATOR = 0,
      *    DATA = :int2;
             CALL "SUB100" USING SQLCODE SQLSTATE int2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "010.95" TO c6
             DISPLAY "SET DESCRIPTOR 'D12431' VALUE 6"
             DISPLAY "  TYPE = 1, LENGTH = 6,"
             DISPLAY "  INDICATOR = 0, DATA = :c6"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE 6
      *    TYPE = 1, LENGTH = 6,
      *    INDICATOR = 0, DATA = :c6;
             CALL "SUB101" USING SQLCODE SQLSTATE c6
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *17.5 GR.5.a:  character set fields are automatically set 

             MOVE 2 TO int1
             DISPLAY "int1 = 2"
             MOVE "11" TO c2
             DISPLAY "c2 = '", c2 "'"
             DISPLAY "SET DESCRIPTOR 'D12431' VALUE 7"
             DISPLAY "  TYPE = 1, INDICATOR = 0, LENGTH = :int1, DATA =
      -    " :c2;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE 7
      *    TYPE = 1, INDICATOR = 0, LENGTH = :int1, DATA = :c2
      * ;
             CALL "SUB102" USING SQLCODE SQLSTATE int1 c2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE .3 TO flt1
             DISPLAY "SET DESCRIPTOR 'D12431' VALUE 8 TYPE = 2,"
             DISPLAY "  PRECISION = 8, SCALE = 4,"
             DISPLAY "  INDICATOR = 0, DATA = :flt1;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE 8 TYPE = 2,
      *    PRECISION = 8, SCALE = 4,
      *    INDICATOR = 0, DATA = :flt1;
             CALL "SUB103" USING SQLCODE SQLSTATE flt1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Here goes nothing 

             DISPLAY "dstmt=""INSERT INTO BANKTAB VALUES
      -    " (?,?,?,?,?,?,?,?)"""
             MOVE "INSERT INTO BANKTAB VALUES (?,?,?,?,?,?,?,?)      "
             TO dstmt

             DISPLAY "PREPARE S12431 FROM :dstmt;"
      *  EXEC SQL PREPARE S12431 FROM :dstmt;
             CALL "SUB104" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "EXECUTE S12431 USING SQL DESCRIPTOR 'D12431';"
      *  EXEC SQL EXECUTE S12431 USING SQL DESCRIPTOR 'D12431'
      * ;
             CALL "SUB105" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Verify results without using descriptors 

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1 FROM BANKTAB"
             DISPLAY "  WHERE NAAM IS NULL"
             DISPLAY "  AND BALANCE >= 3785.19 AND BALANCE <= 3785.21"
             DISPLAY "  AND INTEREST = 7.67"
             DISPLAY "  AND TRANSACTIONS = 5"
             DISPLAY "  AND PAYMENTS = 0"
             DISPLAY "  AND INTEREST_RATE >= 10.94 AND INTEREST_RATE <=
      -    " 10.96"
             DISPLAY "  AND ANNUAL_YIELD >= 10.99 AND ANNUAL_YIELD <=
      -    " 11.01"
             DISPLAY "  AND FRACTIONAL_CENTS >= 0.29 AND
      -    " FRACTIONAL_CENTS <= 0.31;"
      *  EXEC SQL SELECT COUNT(*) INTO :int1 FROM BANKTAB
      *    WHERE NAAM IS NULL
      *    AND BALANCE >= 3785.19 AND BALANCE <= 3785.21
      *    AND INTEREST = 7.67
      *    AND TRANSACTIONS = 5
      *    AND PAYMENTS = 0
      *    AND INTEREST_RATE >= 10.94 AND INTEREST_RATE <= 10.96
      *    AND ANNUAL_YIELD >= 10.99 AND ANNUAL_YIELD <= 11.01
      *    AND FRACTIONAL_CENTS >= 0.29 AND FRACTIONAL_CENTS <= 0.31
      * ;
             CALL "SUB106" USING SQLCODE SQLSTATE int1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 1; its value is ", int1
             if (int1  NOT =  1) then
               MOVE 0 TO flag
             END-IF

      *Now substitute some equal values in various fields in the 
      *descriptor and test for equality.                         

             DISPLAY "SET DESCRIPTOR 'D12431' VALUE 1"
             DISPLAY "  TYPE = 6, PRECISION = 1, INDICATOR = -1;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE 1
      *    TYPE = 6, PRECISION = 1, INDICATOR = -1;
             CALL "SUB107" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE 0 TO bin2
             DISPLAY "bin2 = 0"
             MOVE 5 TO smint1
             DISPLAY "SET DESCRIPTOR 'D12431' VALUE 4"
             DISPLAY "  TYPE = 5, INDICATOR = :bin2, DATA = :smint1;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE 4
      *    TYPE = 5, INDICATOR = :bin2, DATA = :smint1;
             CALL "SUB108" USING SQLCODE SQLSTATE bin2 smint1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE 0 TO bin9
             MOVE 0 TO smint1
             DISPLAY "bin9 = 0"
             DISPLAY "SET DESCRIPTOR 'D12431' VALUE 5"
             DISPLAY "  TYPE = 5, INDICATOR = :bin9, DATA = :smint1;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE 5
      *    TYPE = 5, INDICATOR = :bin9, DATA = :smint1;
             CALL "SUB109" USING SQLCODE SQLSTATE bin9 smint1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "010.950" TO c7
             DISPLAY "SET DESCRIPTOR 'D12431' VALUE 6"
             DISPLAY "  TYPE = 1, LENGTH = 7,"
             DISPLAY "  INDICATOR = 0, DATA = :c7;"
      *  EXEC SQL SET DESCRIPTOR 'D12431' VALUE 6
      *    TYPE = 1, LENGTH = 7,
      *    INDICATOR = 0, DATA = :c7;
             CALL "SUB110" USING SQLCODE SQLSTATE c7
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *  EXEC SQL DELETE FROM CONCATBUF;
             CALL "SUB111" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO CONCATBUF VALUES (
      *    'SELECT COUNT(*) FROM BANKTAB'            ||
      *    ' WHERE (NAAM = ? OR NAAM IS NULL) AND BALANCE = ?' ||
      *    ' AND INTEREST = ? AND TRANSACTIONS = ?'  ||
      *    ' AND PAYMENTS = ? AND INTEREST_RATE = ?' ||
      *    ' AND ANNUAL_YIELD = ? AND FRACTIONAL_CENTS = ?'
      *    );
             CALL "SUB112" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL SELECT ZZ INTO :longst FROM CONCATBUF;
             CALL "SUB113" USING SQLCODE SQLSTATE longst
             MOVE SQLCODE TO SQL-COD

             DISPLAY "longst=""", longst """"

             DISPLAY "PREPARE S12432 FROM :longst;"
      *  EXEC SQL PREPARE S12432 FROM :longst;
             CALL "SUB114" USING SQLCODE SQLSTATE longst
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DECLARE C12432 CURSOR FOR S12432;"
      *  EXEC SQL DECLARE C12432 CURSOR FOR S12432 END-EXEC
             DISPLAY  " "

             DISPLAY "OPEN C12432 USING SQL DESCRIPTOR 'D12431';"
      *  EXEC SQL OPEN C12432 USING SQL DESCRIPTOR 'D12431';
             CALL "SUB115" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             DISPLAY "FETCH C12432 INTO :int1;"
      *  EXEC SQL FETCH C12432 INTO :int1;
             CALL "SUB116" USING SQLCODE SQLSTATE int1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 1; its value is ", int1
             if (int1  NOT =  1) then
               MOVE 0 TO flag
             END-IF

             DISPLAY "CLOSE C12432;"
      *  EXEC SQL CLOSE C12432;
             CALL "SUB117" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DEALLOCATE DESCRIPTOR 'D12431';"
      *  EXEC SQL DEALLOCATE DESCRIPTOR 'D12431';
             CALL "SUB118" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

           .
        P197.
             DISPLAY "ROLLBACK WORK;"
      *  EXEC SQL ROLLBACK WORK;
             CALL "SUB119" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP TABLE BANKTAB CASCADE;"
      *  EXEC SQL DROP TABLE BANKTAB CASCADE;
             CALL "SUB120" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB121" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             if ( flag  =  1 ) then
               DISPLAY "                *** pass *** "
      *    EXEC SQL INSERT INTO HU.TESTREPORT
      *      VALUES('0655','pass','MCO');
               CALL "SUB122" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY "       dml124.sco  *** fail *** "
      *    EXEC SQL INSERT INTO HU.TESTREPORT
      *      VALUES('0655','fail','MCO');
               CALL "SUB123" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
               COMPUTE errcnt = errcnt + 1
             END-IF

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

      *  EXEC SQL COMMIT WORK;
             CALL "SUB124" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      ******************** END TEST0655 ********************
      ******************** BEGIN TEST0656 *******************
             MOVE 1 TO flag

             DISPLAY "                  TEST0656 "
             DISPLAY "         Descriptors:  datetimes"
             DISPLAY "References:"
             DISPLAY "    F# 1 -- Dynamic SQL"
             DISPLAY "     6.1 -- <data type> esp. temporal types"
             DISPLAY "    10.1 -- <interval qualifier>"
             DISPLAY "    17.1 -- Description of SQL item descriptor
      -    " areas"
             DISPLAY "    17.9 -- <using clause>"
             DISPLAY "    17.10 -- <execute statement>"
             DISPLAY "    17.14 -- <dynamic open statement>"
             DISPLAY "    17.2 GR.3 -- limit on descriptor areas is"
             DISPLAY "                 implementation-defined"
             DISPLAY "   - - - - - - - - - - - - - - - - - - -"

             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

             DISPLAY "CREATE TABLE LOTSA_DATETIMES ("
             DISPLAY "  C1 DATE, C2 TIME, C3 TIMESTAMP,"
             DISPLAY "  C4 INTERVAL YEAR, C5 INTERVAL MONTH, C6 INTERVAL
      -    " DAY,"
             DISPLAY "  C7 INTERVAL HOUR, C8 INTERVAL MINUTE, C9
      -    " INTERVAL SECOND,"
             DISPLAY "  C10 INTERVAL YEAR TO MONTH,"
             DISPLAY "  C11 INTERVAL DAY TO HOUR,"
             DISPLAY "  C12 INTERVAL DAY TO MINUTE,"
             DISPLAY "  C13 INTERVAL DAY TO SECOND,"
             DISPLAY "  C14 INTERVAL HOUR TO MINUTE,"
             DISPLAY "  C15 INTERVAL HOUR TO SECOND,"
             DISPLAY "  C16 INTERVAL MINUTE TO SECOND);"
      *  EXEC SQL CREATE TABLE LOTSA_DATETIMES (
      *    C1 DATE, C2 TIME, C3 TIMESTAMP,
      *    C4 INTERVAL YEAR, C5 INTERVAL MONTH, C6 INTERVAL DAY,
      *    C7 INTERVAL HOUR, C8 INTERVAL MINUTE, C9 INTERVAL SECOND,
      *    C10 INTERVAL YEAR TO MONTH,
      *    C11 INTERVAL DAY TO HOUR,
      *    C12 INTERVAL DAY TO MINUTE,
      *    C13 INTERVAL DAY TO SECOND,
      *    C14 INTERVAL HOUR TO MINUTE,
      *    C15 INTERVAL HOUR TO SECOND,
      *    C16 INTERVAL MINUTE TO SECOND);
             CALL "SUB125" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB126" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "ALLOCATE DESCRIPTOR 'D12441' WITH MAX 16;"
      *  EXEC SQL ALLOCATE DESCRIPTOR 'D12441' WITH MAX 16;
             CALL "SUB127" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             if (SQLSTATE   =   "07009")  then
               DISPLAY "Received SQLSTATE 07009!"
               DISPLAY "This test must be rewritten by NIST (in the
      -    " event of"
               DISPLAY "a validation) to accomodate
      -    " implementation-defined"
               DISPLAY "limit on <occurrences>."
             END-IF
             DISPLAY  " "

             DISPLAY "dstmt=""SELECT * FROM LOTSA_DATETIMES"""
             MOVE "SELECT * FROM LOTSA_DATETIMES             
      -    "        " TO dstmt

             DISPLAY "PREPARE S12441 FROM :dstmt;"
      *  EXEC SQL PREPARE S12441 FROM :dstmt;
             CALL "SUB128" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DESCRIBE OUTPUT S12441 USING SQL DESCRIPTOR
      -    " 'D12441';"
      *  EXEC SQL DESCRIBE OUTPUT S12441 USING SQL DESCRIPTOR
      *  'D12441';
             CALL "SUB129" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' :int1 = COUNT;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' :int1 = COUNT;
             CALL "SUB130" USING SQLCODE SQLSTATE int1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 16; its value is ", int1
             if (int1  NOT =  16) then
               MOVE 0 TO flag
             END-IF

      *The LENGTH field of the descriptor is tested in DML154, test 0849

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 1"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 1
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE;
             CALL "SUB131" USING SQLCODE SQLSTATE int1 int2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 9; its value is ", int1
             DISPLAY "int2 should be 1; its value is ", int2
             if (int1  NOT =  9  OR  int2  NOT =  1) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 2"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 2
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = PRECISION;
             CALL "SUB132" USING SQLCODE SQLSTATE int1 int2 int3
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 9; its value is ", int1
             DISPLAY "int2 should be 2; its value is ", int2
             DISPLAY "int3 should be 0; its value is ", int3
             if (int1  NOT =  9  OR  int2  NOT =  2  OR  int3  NOT =  0)
             then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 3"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 3
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = PRECISION;
             CALL "SUB133" USING SQLCODE SQLSTATE int1 int2 int3
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 9; its value is ", int1
             DISPLAY "int2 should be 3; its value is ", int2
             DISPLAY "int3 should be 6; its value is ", int3
             if (int1  NOT =  9  OR  int2  NOT =  3  OR  int3  NOT =  6)
             then
               MOVE 0 TO flag
             END-IF

      *Interval leading field precision = 2:  10.1 SR.5 

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 4"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 4
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION;
             CALL "SUB134" USING SQLCODE SQLSTATE int1 int2 int3
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 1; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             if (int1  NOT =  10  OR  int2  NOT =  1  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 5"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 5
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION;
             CALL "SUB135" USING SQLCODE SQLSTATE int1 int2 int3
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 2; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             if (int1  NOT =  10  OR  int2  NOT =  2  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 6"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 6
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION;
             CALL "SUB136" USING SQLCODE SQLSTATE int1 int2 int3
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 3; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             if (int1  NOT =  10  OR  int2  NOT =  3  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 7"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 7
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION;
             CALL "SUB137" USING SQLCODE SQLSTATE int1 int2 int3
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 4; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             if (int1  NOT =  10  OR  int2  NOT =  4  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 8"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 8
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION;
             CALL "SUB138" USING SQLCODE SQLSTATE int1 int2 int3
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 5; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             if (int1  NOT =  10  OR  int2  NOT =  5  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 9"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION,"
             DISPLAY "  :int4 = PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 9
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION,
      *    :int4 = PRECISION;
             CALL "SUB139" USING SQLCODE SQLSTATE int1 int2 int3 int4
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 6; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             DISPLAY "int4 should be 6; its value is ", int4
             if (int1  NOT =  10  OR  int2  NOT =  6  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF
             if (int4  NOT =  6) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 10"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 10
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION;
             CALL "SUB140" USING SQLCODE SQLSTATE int1 int2 int3
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 7; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             if (int1  NOT =  10  OR  int2  NOT =  7  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 11"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 11
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION;
             CALL "SUB141" USING SQLCODE SQLSTATE int1 int2 int3
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 8; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             if (int1  NOT =  10  OR  int2  NOT =  8  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 12"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 12
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION;
             CALL "SUB142" USING SQLCODE SQLSTATE int1 int2 int3
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 9; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             if (int1  NOT =  10  OR  int2  NOT =  9  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 13"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION,"
             DISPLAY "  :int4 = PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 13
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION,
      *    :int4 = PRECISION;
             CALL "SUB143" USING SQLCODE SQLSTATE int1 int2 int3 int4
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 10; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             DISPLAY "int4 should be 6; its value is ", int4
             if (int1  NOT =  10  OR  int2  NOT =  10  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF
             if (int4  NOT =  6) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 14"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 14
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION;
             CALL "SUB144" USING SQLCODE SQLSTATE int1 int2 int3
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 11; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             if (int1  NOT =  10  OR  int2  NOT =  11  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 15"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION,"
             DISPLAY "  :int4 = PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 15
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION,
      *    :int4 = PRECISION;
             CALL "SUB145" USING SQLCODE SQLSTATE int1 int2 int3 int4
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 12; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             DISPLAY "int4 should be 6; its value is ", int4
             if (int1  NOT =  10  OR  int2  NOT =  12  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF
             if (int4  NOT =  6) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             COMPUTE int3 = -1
             COMPUTE int4 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 16"
             DISPLAY "  :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,"
             DISPLAY "  :int3 = DATETIME_INTERVAL_PRECISION,"
             DISPLAY "  :int4 = PRECISION;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 16
      *    :int1 = TYPE, :int2 = DATETIME_INTERVAL_CODE,
      *    :int3 = DATETIME_INTERVAL_PRECISION,
      *    :int4 = PRECISION;
             CALL "SUB146" USING SQLCODE SQLSTATE int1 int2 int3 int4
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 10; its value is ", int1
             DISPLAY "int2 should be 13; its value is ", int2
             DISPLAY "int3 should be 2; its value is ", int3
             DISPLAY "int4 should be 6; its value is ", int4
             if (int1  NOT =  10  OR  int2  NOT =  13  OR  int3  NOT = 
             2) then
               MOVE 0 TO flag
             END-IF
             if (int4  NOT =  6) then
               MOVE 0 TO flag
             END-IF

      *Set the data values in the descriptor and insert 

             MOVE "DATE '1994-06-24'                         
      -    "        " TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 1"
             DISPLAY "  INDICATOR = 0, TYPE = 1,"
             DISPLAY "  LENGTH = 50, DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 1
      *    INDICATOR = 0, TYPE = 1,
      *    LENGTH = 50, DATA = :dstmt;
             CALL "SUB147" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "TIME '14:41:10'                                   "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 2"
             DISPLAY "  INDICATOR = 0, TYPE = 1,"
             DISPLAY "  LENGTH = 50, DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 2
      *    INDICATOR = 0, TYPE = 1, LENGTH = 50,
      *    DATA = :dstmt;
             CALL "SUB148" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "TIMESTAMP '1994-12-25 00:00:00.000000'    
      -    "        " TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 3"
             DISPLAY "  INDICATOR = 0,"
             DISPLAY "  TYPE = 1, LENGTH = 50, DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 3
      *    INDICATOR = 0,
      *    TYPE = 1, LENGTH = 50, DATA = :dstmt;
             CALL "SUB149" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '01' YEAR                                "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 4"
             DISPLAY "  INDICATOR = 0, TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 4
      *    INDICATOR = 0, TYPE = 1, LENGTH = 50,
      *    DATA = :dstmt;
             CALL "SUB150" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '05' MONTH                               "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 5"
             DISPLAY "  INDICATOR = 0, TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 5
      *    INDICATOR = 0, TYPE = 1, LENGTH = 50,
      *    DATA = :dstmt;
             CALL "SUB151" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '20' DAY                                 "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 6"
             DISPLAY "  INDICATOR = 0, TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 6
      *    INDICATOR = 0, TYPE = 1, LENGTH = 50,
      *    DATA = :dstmt;
             CALL "SUB152" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '30' HOUR                                "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 7"
             DISPLAY "  INDICATOR = 0, TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 7
      *    INDICATOR = 0, TYPE = 1, LENGTH = 50,
      *    DATA = :dstmt;
             CALL "SUB153" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '15' MINUTE                              "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 8"
             DISPLAY "  INDICATOR = 0, TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 8
      *    INDICATOR = 0, TYPE = 1, LENGTH = 50,
      *    DATA = :dstmt;
             CALL "SUB154" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 9"
             DISPLAY "  INDICATOR = -1;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 9
      *    INDICATOR = -1;
             CALL "SUB155" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '03-11' YEAR TO MONTH            
      -    "        " TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 10"
             DISPLAY "  INDICATOR = 0, TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 10
      *    INDICATOR = 0, TYPE = 1, LENGTH = 50, DATA = :dstmt
      * ;
             CALL "SUB156" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '01 16' DAY TO HOUR                      "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 11"
             DISPLAY "  INDICATOR = 0, TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 11
      *    INDICATOR = 0, TYPE = 1, LENGTH = 50, DATA = :dstmt
      * ;
             CALL "SUB157" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '01 16:10' DAY TO MINUTE                 "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 12"
             DISPLAY "  INDICATOR = 0, TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 12
      *    INDICATOR = 0, TYPE = 1, LENGTH = 50, DATA = :dstmt
      * ;
             CALL "SUB158" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '01 16:10:07.000000' DAY TO SECOND       "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 13"
             DISPLAY "  INDICATOR = 0, DATA ="
             DISPLAY "  :dstmt, TYPE = 1, LENGTH = 50;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 13
      *    INDICATOR = 0, DATA =
      *    :dstmt, TYPE = 1, LENGTH = 50;
             CALL "SUB159" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '02:17' HOUR TO MINUTE                   "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 14"
             DISPLAY "  INDICATOR = 0, TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 14
      *    INDICATOR = 0, TYPE = 1, LENGTH = 50, DATA = :dstmt
      * ;
             CALL "SUB160" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '02:17:56.000000' HOUR TO SECOND         "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 15"
             DISPLAY "  INDICATOR = 0, DATA ="
             DISPLAY "  :dstmt, TYPE = 1, LENGTH = 50;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 15
      *    INDICATOR = 0, DATA =
      *    :dstmt, TYPE = 1, LENGTH = 50;
             CALL "SUB161" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '00:56.000000' MINUTE TO SECOND          "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 16"
             DISPLAY "  INDICATOR = 0, DATA ="
             DISPLAY "  :dstmt, TYPE = 1, LENGTH = 50;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 16
      *    INDICATOR = 0, DATA =
      *    :dstmt, TYPE = 1, LENGTH = 50;
             CALL "SUB162" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *  EXEC SQL DELETE FROM CONCATBUF;
             CALL "SUB163" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO CONCATBUF VALUES (
      *    'INSERT INTO LOTSA_DATETIMES VALUES (' ||
      *    '  ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'
      *    );
             CALL "SUB164" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL SELECT ZZ INTO :longst FROM CONCATBUF;
             CALL "SUB165" USING SQLCODE SQLSTATE longst
             MOVE SQLCODE TO SQL-COD

             DISPLAY "longst=""", longst """"

             DISPLAY "PREPARE S12442 FROM :longst;"
      *  EXEC SQL PREPARE S12442 FROM :longst;
             CALL "SUB166" USING SQLCODE SQLSTATE longst
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "EXECUTE S12442 USING SQL DESCRIPTOR 'D12441';"
      *  EXEC SQL EXECUTE S12442 USING SQL DESCRIPTOR 'D12441'
      * ;
             CALL "SUB167" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY "  FROM LOTSA_DATETIMES WHERE"
             DISPLAY "  C1 = DATE '1994-06-24' AND C2 = TIME '14:41:10'"
             DISPLAY "  AND C3 = TIMESTAMP '1994-12-25 00:00:00'"
             DISPLAY "  AND C4 = INTERVAL '1' YEAR"
             DISPLAY "  AND C5 = INTERVAL '5' MONTH AND C6 = INTERVAL
      -    " '20' DAY"
             DISPLAY "  AND C7 = INTERVAL '30' HOUR AND C8 = INTERVAL
      -    " '15' MINUTE"
             DISPLAY "  AND C9 IS NULL AND"
             DISPLAY "  C10 = INTERVAL '3-11' YEAR TO MONTH AND"
             DISPLAY "  C11 = INTERVAL '1 16' DAY TO HOUR AND"
             DISPLAY "  C12 = INTERVAL '1 16:10' DAY TO MINUTE AND"
             DISPLAY "  C13 = INTERVAL '1 16:10:07' DAY TO SECOND AND"
             DISPLAY "  C14 = INTERVAL '2:17' HOUR TO MINUTE AND"
             DISPLAY "  C15 = INTERVAL '2:17:56' HOUR TO SECOND AND"
             DISPLAY "  C16 = INTERVAL '0:56' MINUTE TO SECOND;"
      *  EXEC SQL SELECT COUNT(*) INTO :int1
      *    FROM LOTSA_DATETIMES WHERE
      *    C1 = DATE '1994-06-24' AND C2 = TIME '14:41:10'
      *    AND C3 = TIMESTAMP '1994-12-25 00:00:00'
      *    AND C4 = INTERVAL '1' YEAR
      *    AND C5 = INTERVAL '5' MONTH AND C6 = INTERVAL '20' DAY
      *    AND C7 = INTERVAL '30' HOUR AND C8 = INTERVAL '15' MINUTE
      *    AND C9 IS NULL AND
      *    C10 = INTERVAL '3-11' YEAR TO MONTH AND
      *    C11 = INTERVAL '1 16' DAY TO HOUR AND
      *    C12 = INTERVAL '1 16:10' DAY TO MINUTE AND
      *    C13 = INTERVAL '1 16:10:07' DAY TO SECOND AND
      *    C14 = INTERVAL '2:17' HOUR TO MINUTE AND
      *    C15 = INTERVAL '2:17:56' HOUR TO SECOND AND
      *    C16 = INTERVAL '0:56' MINUTE TO SECOND;
             CALL "SUB168" USING SQLCODE SQLSTATE int1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 1; its value is ", int1
             if (int1  NOT =  1) then
               MOVE 0 TO flag
             END-IF

      *Yet more implicit casting 

             MOVE "DATE '1994-12-25'                         
      -    "        " TO dstmT
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 3"
             DISPLAY "  TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 3
      *    TYPE = 1, LENGTH = 50, DATA = :dstmt
      * ;
             CALL "SUB169" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE 1 TO smint1
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 4"
             DISPLAY "  TYPE = 5, DATA = :smint1;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 4
      *    TYPE = 5, DATA = :smint1;
             CALL "SUB170" USING SQLCODE SQLSTATE smint1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *17.9 GR.5.b.iv  NULLs do not generate exception for invalid cas

             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 9"
             DISPLAY "  TYPE = 8;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 9
      *    TYPE = 8;
             CALL "SUB171" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Syntax required by SQL-92 

             MOVE "INTERVAL '1 16:10' DAY TO MINUTE                  "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 12"
             DISPLAY "  TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 12
      *    TYPE = 1, LENGTH = 50,
      *    DATA = :dstmt;
             CALL "SUB172" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Nice, normal syntax legalized by X3H2-94-15 

             MOVE "1 16:10:07                                        "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 13"
             DISPLAY "  TYPE = 1, LENGTH = 50, DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 13
      *    TYPE = 1, LENGTH = 50, DATA = :dstmt;
             CALL "SUB173" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "INTERVAL '56' SECOND                              "
             TO dstmt
             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 16"
             DISPLAY "  TYPE = 1, LENGTH = 50,"
             DISPLAY "  DATA = :dstmt;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 16
      *    TYPE = 1, LENGTH = 50,
      *    DATA = :dstmt;
             CALL "SUB174" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *  EXEC SQL DELETE FROM CONCATBUF;
             CALL "SUB175" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL INSERT INTO CONCATBUF VALUES (
      *    'SELECT COUNT(*) FROM LOTSA_DATETIMES' ||
      *    ' WHERE C1 = ? AND C2 = ? AND C3 = ?'  ||
      *    ' AND C4 = ? AND C5 = ? AND C6 = ?'    ||
      *    ' AND C7 = ? AND C8 = ? AND (C9 = ? OR C9 IS NULL)'    ||
      *    ' AND C10 = ? AND C11 = ? AND C12 = ?' ||
      *    ' AND C13 = ? AND C14 = ? AND C15 = ?' ||
      *    ' AND C16 = ?'
      *    );
             CALL "SUB176" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      *  EXEC SQL SELECT ZZ INTO :longst FROM CONCATBUF;
             CALL "SUB177" USING SQLCODE SQLSTATE longst
             MOVE SQLCODE TO SQL-COD

             DISPLAY "longst=""", longst """"

             DISPLAY "PREPARE S12443 FROM :longst;"
      *  EXEC SQL PREPARE S12443 FROM :longst;
             CALL "SUB178" USING SQLCODE SQLSTATE longst
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DECLARE C12443 CURSOR FOR S12443;"
      *  EXEC SQL DECLARE C12443 CURSOR FOR S12443 END-EXEC
             DISPLAY  " "

             DISPLAY "OPEN C12443 USING SQL DESCRIPTOR 'D12441';"
      *  EXEC SQL OPEN C12443 USING SQL DESCRIPTOR 'D12441';
             CALL "SUB179" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             DISPLAY "FETCH C12443 INTO :int1;"
      *  EXEC SQL FETCH C12443 INTO :int1;
             CALL "SUB180" USING SQLCODE SQLSTATE int1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 1; its value is ", int1
             if (int1  NOT =  1) then
               MOVE 0 TO flag
             END-IF

             DISPLAY "CLOSE C12443;"
      *  EXEC SQL CLOSE C12443;
             CALL "SUB181" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Still have to test INTO 

             DISPLAY "DESCRIBE OUTPUT S12441 USING SQL DESCRIPTOR
      -    " 'D12441';"
      *  EXEC SQL DESCRIBE OUTPUT S12441 USING SQL DESCRIPTOR
      *  'D12441';
             CALL "SUB182" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Set up cast to integer 

             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 4"
             DISPLAY "  TYPE = 4;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 4
      *    TYPE = 4;
             CALL "SUB183" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 9"
             DISPLAY "  PRECISION = 0, TYPE = 9, DATETIME_INTERVAL_CODE
      -    " = 1;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 9
      *    PRECISION = 0, TYPE = 9, DATETIME_INTERVAL_CODE = 1
      * ;
             CALL "SUB184" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *set up cast to char 

             DISPLAY "SET DESCRIPTOR 'D12441' VALUE 15"
             DISPLAY "  TYPE = 1, LENGTH = 50;"
      *  EXEC SQL SET DESCRIPTOR 'D12441' VALUE 15
      *    TYPE = 1, LENGTH = 50;
             CALL "SUB185" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DECLARE C12441 CURSOR FOR S12441;"
      *  EXEC SQL DECLARE C12441 CURSOR FOR S12441 END-EXEC
             DISPLAY  " "

             DISPLAY "OPEN C12441;"
      *  EXEC SQL OPEN C12441;
             CALL "SUB186" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "FETCH C12441 INTO SQL DESCRIPTOR 'D12441';"
      *  EXEC SQL FETCH C12441 INTO SQL DESCRIPTOR 'D12441';
             CALL "SUB187" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE bin9 = -1
             COMPUTE int2 = -1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 4"
             DISPLAY "  :bin9 = DATA, :int2 = INDICATOR;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 4
      *    :bin9 = DATA, :int2 = INDICATOR;
             CALL "SUB188" USING SQLCODE SQLSTATE bin9 int2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             MOVE bin9 TO BIN-1
             DISPLAY "bin9 should be 1; its value is ", BIN-1
             DISPLAY "int2 should be 0; its value is ", int2
             if (bin9  NOT =  1  OR  int2  NOT =  0) then
               MOVE 0 TO flag
             END-IF

      *6.10 GR.2.a:  NULLs can be cast from anything to anything. 

             MOVE 42 TO int1
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 9"
             DISPLAY "  :int1 = INDICATOR;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 9
      *    :int1 = INDICATOR;
             CALL "SUB189" USING SQLCODE SQLSTATE int1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be -1; its value is ", int1
             if (int1  NOT =  -1) then
               MOVE 0 TO flag
             END-IF

      *Syntax required by SQL-92 

             MOVE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
             TO dstmt
             DISPLAY "GET DESCRIPTOR 'D12441' VALUE 15"
             DISPLAY "  :dstmt = DATA;"
      *  EXEC SQL GET DESCRIPTOR 'D12441' VALUE 15
      *    :dstmt = DATA;
             CALL "SUB190" USING SQLCODE SQLSTATE dstmt
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "dstmt should be very similar to"
             DISPLAY "     INTERVAL '2:17:56.000000' HOUR TO SECOND"
             DISPLAY "Its value is ", dstmt
             if (dstmt  NOT  >   "INTERVAL                              
      -    "            ") then
               MOVE 0 TO flag
             END-IF
             if (dstmt  NOT  <   "INTERVAM                              
      -    "            ") then
               MOVE 0 TO flag
             END-IF

             DISPLAY "DEALLOCATE DESCRIPTOR 'D12441';"
      *  EXEC SQL DEALLOCATE DESCRIPTOR 'D12441';
             CALL "SUB191" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

           .
        P196.
             DISPLAY "ROLLBACK WORK;"
      *  EXEC SQL ROLLBACK WORK;
             CALL "SUB192" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP TABLE LOTSA_DATETIMES CASCADE;"
      *  EXEC SQL DROP TABLE LOTSA_DATETIMES CASCADE;
             CALL "SUB193" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB194" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             if ( flag  =  1 ) then
               DISPLAY "                *** pass *** "
      *    EXEC SQL INSERT INTO HU.TESTREPORT
      *      VALUES('0656','pass','MCO');
               CALL "SUB195" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY "       dml124.sco  *** fail *** "
      *    EXEC SQL INSERT INTO HU.TESTREPORT
      *      VALUES('0656','fail','MCO');
               CALL "SUB196" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
               COMPUTE errcnt = errcnt + 1
             END-IF

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

      *  EXEC SQL COMMIT WORK;
             CALL "SUB197" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      ******************** END TEST0656 ********************
             DISPLAY "DROP TABLE CONCATBUF CASCADE;"
      *  EXEC SQL DROP TABLE CONCATBUF CASCADE;
             CALL "SUB198" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
             DISPLAY "COMMIT WORK;"
      *  EXEC SQL COMMIT WORK;
             CALL "SUB199" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      **** 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 "SQLSTATE should be 00000; its value is ", SQLSTATE
             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.