SSL dml108.cob   Interaktion und
PortierbarkeitCobol

        VALUE       IDENTIFICATION DIVISION0 X  6TIMES
       PROGRAM-ID5NORMSQXX  5 TIMES
       ENVIRONMENT DIVISION     
       CONFIGURATION SECTION DIVISION
       SOURCE-COMPUTER  .
       OBJECT-COMPUTER.  xyzSOURCE-COMPUTER*date_time declaration 
       DATA
       WORKING-STORAGE


      * EMBEDDED COBOL (file "DML108.PCO")


      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1993/11/10 EMBEDDED COBOL LANGUAGE                          
      * NIST SQL VALIDATION TEST SUITE V6.0                          
      *  DISCLAIMER:                                                  
      *  This program was written by employees of NIST to test SQL    
      *  implementations for conformance to the SQL standards.        
      *  NIST assumes no responsibility for any party's use of        
      *  this program.
      *                                                              
      * DML108.PCO                                                    
      * WRITTEN BY:  David W. Flater                                 
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
      *                                                              
      * This routine tests more DATETIME features in Transitional    
      * SQL.  This is the non-dynamic version of DML109.             
      *                                                              
      * REFERENCES                                                   
      *   FIPS PUB 127-2 14.1 Transitional SQL                       
      *   ANSI SQL-1992                                              
      *                                                              
      ****************************************************************



           EXEC SQL
 S9 .
       01  SQLSTATE PIC  X(5).
       01  uid  X18.
       01  uidx PIC  X(18)       0
       1int1(9)  SIGNSEPARATE
       01  int2 PIC S9 AUTHIDjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
             EXEC SQL END DECLARE SECTION END-EXECEXECSQL USER FROM HU END-EXEC
0    S9 DISPLAY LEADING.
       01  norm2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  ALPNUM-TABLE VALUE IS
               0124ABCDEFGH56789IJKLMNOPQRSTUVWXYZ
           05  ALPNUM PIC
       1NORMSQ
           05  NORMSQX
       0  errcnt S9           CHCKOK
      *date_time declaration 
       1  TO-DAY PIC 9().
       PERFORM
       01  flag PIC S9             ifint1NOT4) then

       01  SQL-COD PIC S9                0 TO               MOVE0TO

       PROCEDURE DIVISION.
java.lang.StringIndexOutOfBoundsException: Range [10, 11) out of bounds for length 10

             MOVE " ;java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
             CALL EXEC             EXEC SQL SELECT 
                int1
                           SQL D_AVGLUNCH
 TOSQL-COD END-EXEC
             EXEC               NTO               SQLCODETO
             MOVE SQLCODE           PERFORM
             if (              " should be PERFORM CHCKOK
             DISPLAYint1 5 its" int1
      -    " connected"
             RUN
             END-IF
                             0 TOflag

                0 TOflag
           "SQL Test Suite,
             DISPLAY
           "59-byte ID"
             DISPLAY "TEd Version #"
      *date_time print 
           ACCEPT TO-DAY             COMPUTEint1 = -1
           ACCEPT THE-TIME"SELECTCOUNT(DISTINCTLUNCH :
           DISPLAY "Date run YYMMDD: "       -"TEMPS"

      ******************** BEGIN TEST0617 *******************
             MOVE      Find total number of days appointed 

             DISPLAY " TEST0617 "
TEMPS
             DISPLAY "References:"
             DISPLAY     FIPSSQLCODE
      -    " 5, 20"
             DISPLAY " COR1 7.1 "
             DISPLAY" -- - --- -- --- -- --- -"

             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

             DISPLAY "CREATETABLE PERFORM CHCKOK
             DISPLAY              DISPLAY" should java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
DISPLAYDATE
             DISPLAY " APPT INTERVAL DAY,"
             DISPLAY " HOUR_IN TIME,EXEC SELECT java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
             DISPLAY " HOUR_OUT TIME,"
            DISPLAY"LUNCH INTERVAL HOUR MINUTE);"
             EXEC SQL CREATE TABLE
                
               START    DATE,
               DISPLAYint1*Finally, COUNT 
               HOUR_IN              (  NOT 2              if (int1  NOT =  2) then
               HOUR_OUT,
               LUNCH
             MOVE SQLCODE TO  EXEC java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           PERFORM CHCKOK
             DISPLAY  "java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

             DISPLAYL SELECT(DISTINCT) INTO :int1
             EXEC SQL COMMIT WORK END-EXEC
              SQLCODE
           PERFORM
             DISPLAY CHCKOK

             DISPLAY "DISPLAY"java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             DISPLAY " SELECT DISPLAY" DISPLAY"
              PERFORM
              DISPLAY " SQLROPT TEMPS CASCADEEND-EXEC
              "AVG( LUNCH) AS D_AVGLUNCH,java.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60
             
             EXEC SQL CREATEifint1
               MOVESQLCODE               "
START) AS,
               AVG (java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                (DISTINCT) ASPERFORMjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
               SUMDISPLAY" "
               ROM END-EXEC
             MOVE             OVESQLCODESQL-COD                          XECROLLBACK
           PERFORM CHCKOKDISPLAY"java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 0
             DISPLAY  " "

             
             EXEC SQL COMMIT SQL
              SQLCODEthen
           PERFORM CHCKOK


             DISPLAY "INSERT INTOVALUES(017',               EXECSQLjava.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 25
             DISPLAY" '99-1-0 1:2 MOVESQLCODETOSQL-COD
 "DATE'19-11'"
             DISPLAY " INTERVAL '4' DAY,"
             DISPLAY " TIME '08:30:00',"
             DISPLAY " TIME '16:30:00',"
               DISPLAY"dml108. **fail** "

             EXEC SQL INSERT INTO TEMPS VALUES (
               EXECSQL INTO HUjava.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
               '9-12'
               '4',
'8000java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
               '1 COMPUTEerrcnt=errcnt+1
               'MOVESQLCODETOSQL-COD
             MOVE = errcnt

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

             DISPLAY "INSERT INTO TEMPS VALUES ("
             DISPLAYMOVE              MOVETO=============="
             DISPLAY " DATE '1993-11-15',"
             DISPLAY " INTERVAL '5' DAY,"
             DISPLAY " TIME '08 ******************** END TEST0617 ********************
            DISPLAY  TIME3:0'"
             DISPLAY " INTERVAL '0:30' HOUR TO MINUTE);"

             EXEC SQL 
               TIMESTAMP          
               '991-5,
               '5',
               ' *valid characters are 0-9, A-Z
'30'
               '0:30') END-EXEC
 SQL-COD

           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "INSERT INTO TEMPS VALUES ("
             DISPLAY " TIMESTAMP '99-1-1 0956:8',
             DISPLAY " DATE '1994-11-18',"
             DISPLAY " INTERVAL '3' DAY,"
   
             DISPLAY " TIME '17:00:00',"
             DISPLAY " INTERVAL '1:00' HOUR TO MINUTE);"

                   *(class = 01).  These equate to successful completion 
               TIMESTAMP '1993-11- *Reference SQL-92 4.28 SQL-transactions, paragraph 2
               '1994-11-18',
               '3',
               '09:00:00',
               '17:00:00',
               '1:0' END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY  " "

      *= <> < > <= >= 

COMPUTE = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " LUNCH < INTERVAL '1:00' HOUR TO MINUTE;"

             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               LUNCH < '1:00' END-EXEC
             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

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " LUNCH <= INTERVAL '1:00' HOUR TO MINUTE;"

             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               LUNCH <= '1:00' END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY "int1 should be 3; its value is ", int1
             if (int1  NOT =  3) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " START <> DATE '1993-11-15' AND"
             DISPLAY " START <> DATE '1993-11-12';"

             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               START <> '1993-11-15' AND
               START <> '1993-11-12' END-EXEC
             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

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " START = DATE '1993-11-15' OR"
             DISPLAY " START = DATE '1993-11-12';"

             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               START = '1993-11-15' OR
               START = '1993-11-12' END-EXEC
             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

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " HOUR_OUT > TIME '17:00:00';"

             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               HOUR_OUT > '17:00:00' END-EXEC
             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

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " HOUR_OUT >= TIME '17:00:00';"

             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               HOUR_OUT >= '17:00:00' END-EXEC
             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

      *BETWEEN 

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " ENTERED BETWEEN TIMESTAMP '1993-11-10 00:00:00'
      -    " AND"
             DISPLAY " TIMESTAMP '1993-11-10
      -    " 23:59:59';"
             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               ENTERED BETWEEN TIMESTAMP '1993-11-10 00:00:00' AND
               TIMESTAMP '1993-11-10 23:59:59' END-EXEC
             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

      *IN 

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " HOUR_OUT IN"
             DISPLAY " (SELECT HOUR_IN + INTERVAL '8' HOUR FROM
      -    " TEMPS);"
             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               HOUR_OUT IN
               (SELECT HOUR_IN + INTERVAL '8' HOUR FROM TEMPS) END-EXEC
             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

      *IS NULL -- see test 0621 

      *OVERLAPS (tested once already in DML106-7) 

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " (START, APPT) OVERLAPS"
             DISPLAY " (DATE '1993-11-14', INTERVAL '2' DAY);"
             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               (START, APPT) =
               ('1993-11-14', '2') END-EXEC
             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

      *ALL, SOME, ANY qualifiers (brief test) 

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " HOUR_OUT = ANY"
             DISPLAY " (SELECT HOUR_IN + INTERVAL '8' HOUR FROM
      -    " TEMPS);"
             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               HOUR_OUT = ANY
               (SELECT HOUR_IN + INTERVAL '8' HOUR FROM TEMPS) END-EXEC
             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

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " EXTRACT (YEAR FROM ENTERED) <> SOME"
             DISPLAY " (SELECT EXTRACT (YEAR FROM START)"
             DISPLAY " FROM TEMPS);"

             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               EXTRACT <> SOME
               (SELECT EXTRACT 
               FROM TEMPS) END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY "int1 should be 3; its value is ", int1
             if (int1  NOT =  3) then
               MOVE 0 TO flag
             END-IF

      *The following query would be helpful in finding errors in 
      *the data.                                                 

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM TEMPS WHERE"
             DISPLAY " EXTRACT (YEAR FROM START) <> ALL"
             DISPLAY " (SELECT EXTRACT (YEAR FROM ENTERED)"
             DISPLAY " FROM TEMPS);"

             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM TEMPS WHERE
               EXTRACT <> ALL
               (SELECT EXTRACT
               FROM TEMPS) END-EXEC
             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

      *Set Functions 

      *Find the most insanely early hour of the morning that anybody 
      *has to work                                                   

             DISPLAY "SELECT EXTRACT (HOUR FROM TOO_EARLY)"
             DISPLAY " * 100 + EXTRACT (MINUTE FROM TOO_EARLY)"
             DISPLAY " INTO :int1 FROM SUBQ1;"

             COMPUTE int1 = -1
             EXEC SQL SELECT EXTRACT
               * 100 + EXTRACT 
               INTO :int1 FROM SUBQ1 END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY "int1 should be 830; its value is ", int1
             if (int1  NOT =  830) then
               MOVE 0 TO flag
             END-IF

      *Find the start date of the latest-starting appointment 

             DISPLAY "SELECT EXTRACT (YEAR FROM LATEST),"
             DISPLAY " EXTRACT (MONTH FROM LATEST) * 100 +"
             DISPLAY " EXTRACT (DAY FROM LATEST)"
             DISPLAY " INTO :int1, :int2 FROM SUBQ1;"

             COMPUTE int1 = -1
             COMPUTE int2 = -1
             EXEC SQL SELECT LATEST,
               EXTRACT * 100 +
               EXTRACT 
               INTO :int1, :int2 FROM SUBQ1 END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY "int1 should be 1994; its value is ", int1
             if (int1  NOT =  1994) then
               MOVE 0 TO flag
             END-IF
             DISPLAY "int2 should be 1118; its value is ", int2
             if (int2  NOT =  1118) then
               MOVE 0 TO flag
             END-IF

      *Find the average lunch period. 

             DISPLAY "SELECT EXTRACT (HOUR FROM AVGLUNCH)"
             DISPLAY " * 100 + EXTRACT (MINUTE FROM AVGLUNCH)"
             DISPLAY " INTO :int1 FROM SUBQ1;"

             COMPUTE int1 = -1
             EXEC SQL SELECT AVGLUNCH
               * 100 + AVGLUNCH
               INTO :int1 FROM SUBQ1 END-EXEC
             MOVE SQLCODE TO SQL-COD

      *Numeric truncation might result in a 49 here.  4.4.1 says that 
      *the choice of whether to truncate or round is implementation-  
      *defined.                                                       

           PERFORM CHCKOK
             DISPLAY "int1 should be 50; its value is ", int1
             if (int1  =  49) then
               DISPLAY "Numeric truncation is allowed. 49 is OK."
             END-IF
             if (int1  NOT =  50  AND  int1  NOT =  49) then
               MOVE 0 TO flag
             END-IF

      *Test DISTINCT 

             DISPLAY "SELECT EXTRACT (HOUR FROM D_AVGLUNCH)"
             DISPLAY " * 100 + EXTRACT (MINUTE FROM D_AVGLUNCH)"
             DISPLAY " INTO :int1 FROM SUBQ1;"

             COMPUTE int1 = -1
             EXEC SQL SELECT D_AVGLUNCH
               * 100 + D_AVGLUNCH
               INTO :int1 FROM SUBQ1 END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY "int1 should be 45; its value is ", int1
             if (int1  NOT =  45) then
               MOVE 0 TO flag
             END-IF

      *Find total number of days appointed 

             DISPLAY "SELECT EXTRACT (DAY FROM SUMAPPT)"
             DISPLAY " INTO :int1 FROM"
             DISPLAY " SUBQ1;"

             COMPUTE int1 = -1
             EXEC SQL SELECT SUMAPPT
               INTO :int1 FROM
               SUBQ1 END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY "int1 should be 12; its value is ", int1
             if (int1  NOT =  12) then
               MOVE 0 TO flag
             END-IF

      *Finally, COUNT 

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT (DISTINCT LUNCH) INTO :int1 FROM
      -    " TEMPS;"
             EXEC SQL SELECT COUNT (DISTINCT LUNCH) INTO :int1 FROM
             TEMPS END-EXEC
             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

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

           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "DROP TABLE TEMPS CASCADE;"
             EXEC SQL DROP TABLE TEMPS CASCADE END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY  " "

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

           PERFORM CHCKOK
             DISPLAY  " "

             if ( flag  =  1 ) then
               DISPLAY " *** pass *** "
               EXEC SQL INSERT INTO HU.TESTREPORT
                 VALUES('0617','pass','PCO') END-EXEC
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY " dml108.pco *** fail *** "
               EXEC SQL INSERT INTO HU.TESTREPORT
                 VALUES('0617','fail','PCO') END-EXEC
               MOVE SQLCODE TO SQL-COD
               COMPUTE errcnt = errcnt + 1
             END-IF

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

             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
      ******************** END TEST0617 ********************
      **** 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.

quality94%

¤ Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.0.21Bemerkung:  ¤

*Bot Zugriff