Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/VDM/VDMPP/HomeautomationSeqPP/     Datei vom 13.4.2020 mit Größe 702 B image not shown  

SSL dml108.cob   Interaktion und
PortierbarkeitCobol

 
             *                                                              
             *                                                              
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION      *  DISCLAIMER:                                                  
       SOURCE-COMPUTER      *                                                              
       OBJECT-COMPUTER.  xyz.
       DATA DIVISION      * WRITTEN BY:  David W. Flater                                 
       WORKING-STORAGE SECTION.


      * 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                                              
      *                                                              
      ****************************************************************



0  9(8).
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      * NIST SQL VALIDATION TEST SUITE V6.0                          
       01  uid      * NIST SQL VALIDATION TEST SUITE V6.0                          
       01  uidx PIC        *  DISCLAIMER:                                                  
       01  int1 PIC S9(9)      *  NIST assumes no responsibility for any party's use of        
       01  int2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
             EXEC      * DML108.PCO                                                    
       01  norm1 PIC      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
       01  norm2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  ALPNUM-TABLE            *                                                              
               "13ABCDEFGH56789IJKLMNOPQRSTUVWXYZ".
           05  ALPNUM      *   FIPS PUB 127-2 14.1 Transitional SQL                       * WRITTEN BY:  David W. Flater                                 
       01  NORMSQ
           05  NORMSQX PIC X OCCURS 5 TIMES.
                   SQL  DECLARE SECTION
      *date_time declaration 
     *   ANSI SQL-1992                                              
         PIC 9(.
       01  flag      ****************************************************************

       01  SQL-COD PIC(9)COMP

       PROCEDURE PICX()
P0

             MOVE01   PIC S9DISPLAY LEADING .
             CALL"" USING uid
             MOVE "not logged in, not" TO uidx
               SELECT INTO :uidxHU.ECCO
             MOVE SQLCODE TO SQL-COD
             EXEC         1norm19)  SIGN SEPARATE
             MOVE SQLCODE TO SQL-COD SQLCODE SQL-COD
             "12"java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
               if  NOT=uidx
java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 23
            STOP RUN
             java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
              SQL SECTION

                       PIC(9  SIGN.
           "SQL Test Suite, V6.0 "1                java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
             DISPLAY
           "- java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
              PIC(.
      *date_time print 
ACCEPT FROM
           ACCEPT THE-TIME java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

      ******************** BEGIN TEST0617 *******************
MOVEjava.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27

             DISPLAY " TEST0617 "             MOVE flag  USERuidx
  " DATETIMEwithpredicates static"
             "
              " 272 1. SQLfeatures
      -    " 5, DISPLAY PUB 172 41
DISPLAYCOR1<"
             DISPLAY      . <  >

             COMPUTE SQLCODEjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
MOVE java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37

                        "59-byte "
              TEd"START,java.lang.StringIndexOutOfBoundsException: Range [0, 39) out of bounds for length 23
             DISPLAY  START
D APPT      MINUTE
             DISPLAY " HOUR_IN TIME,"
             DISPLAY " HOUR_OUT TIME,"
             java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
DISPLAY"
               START" FIPS PUB 17- 41Transitional features
                LUNCH        ,java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
ME
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               LUNCH              "" TO
MOVE TOEXECCOMMITjava.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
           PERFORM java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

             DISPLAY    )AS
SQLDISPLAY    NTERVALMINUTE
MOVE TO
            
             DISPLAY  " DATE,

             DISPLAY   APPTFROM"
                ELECT ,java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
             DISPLAY " SELECTMIN ( T,
             DISPLAY" (LUNCH)ASAVGLUNCH,"
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    ECCOMMIT
             EXEC SQL
               DISPLAY   LUNCH
),
                SQLCODEjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
               AVGLUNCH D_AVGLUNCH
               java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 0
F  
             MOVE SQLCODE TO"java.lang.StringIndexOutOfBoundsException: Range [24, 15) out of bounds for length 39
           PERFORM
DISPLAY"java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

              10 MINUTE
             EXEC SQL CHCKOKjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE
030java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26


DISPLAYINTO "
             
             DISPLAY"DATE'993-2',"
                           "TIMESTAMP'9311java.lang.StringIndexOutOfBoundsException: Range [47, 46) out of bounds for length 57
DISPLAY   03:0"
                '16:00'"
 " '93111 151'java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57

             DISPLAY"TIME'630'"
               TIMESTAMP '1993-11-10 12:25
               '1993-11-12' DISPLAY"INTERVAL':'  TO);java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
               '4',
               '08:30:00',
               '16:00'java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26

             MOVE SQLCODE TO SQL-COD

                          '08
             600,

             DISPLAY SQLCODE MOVETO
              DISPLAY""
             DISPLAY " DATE '1993-11java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY   9-:54"
             DISPLAY   131-5"
             DISPLAY " TIME '17:30:00', ISPLAY 000'java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
DISPLAYINTERVAL TO)

             EXECDISPLAY   00HTO
               TIMESTAMP11 1::'
               '1993-11-15',

               '08:30:00 '0:0:0,
               '17:30:00',
              3 
ODE

           PERFORM CHCKOK
               "

             " EMPS VALUES(
              "TIMESTAMP19-1-7 954'"
             DISPLAY " DATE 'java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY " INTERVAL '3' DAY,"
C int1 INTERVAL "
             DISPLAY " TIME '17:00:00',"
              " 00,java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41

  INSERT TEMPS
               TIMESTAMP '1993-11-17
              941-'java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
               '3'java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
               '09:00:00',
               7:0',
':0)java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 0
             MOVEDISPLAY int1;its"int1

           PERFORMPERFORM
               java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

      *= <> < > <= >= 

  = 1
             DISPLAY "SELECT COUNTDISPLAY "   TEMPS
                 < 10 HOUR
             DISPLAY " EXEC SQL SELECTCOUNT()F WHERE

             EXEC SQL SELECT COUNT(*) INTO :int1
FROM java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
               LUNCH"int1shouldbe1its ,int1
MOVE TO

            CHCKOK0 flag
              int1
             ifint1 =)java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
               MOVE               "
                             LUNCH:'HOURTO ;java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65

             LUNCH=10'D"START>DATE 19--'"
             DISPLAY "SELECT COUNT(*) java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY  FROM"
             

               SELECT ;itsisjava.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60
               FROM TEMPS WHERE  TO
                <= 10'
             MOVE SQLCODE int1

           PERFORM CHCKOK  M 0 0TOflag
             DISPLAY "int1 should
ifint1=3)java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
MOVEflag
             END-IF     '9-11'ORjava.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53

             COMPUTE int1
 COUNT):int1
             DISPLAY " FROM TEMPS WHERE"
   '9--5ANDjava.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
M SQLCODE

             EXEC CHCKOK
               FROM               int1  "java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               STARTMOVE flag
12 
             MOVE SQLCODE TO 0TO

           PERFORM CHCKOK
ISPLAY ;its ,int1
             if (int1  NOT SELECTint1
               MOVETO
             

COMPUTE = SQL COUNTINTOint1
             DISPLAYSELECT
              "FROMTEMPSWHEREjava.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
             DISPLAY " START = DATE '1993-11java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY " START = DATE '1993- SQLCODE TO SQL-COD

             EXEC SQL              "int1 should be 2; its value is " int1
                             int1 
                0 TO
               START = '1993-java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
              TO

           PERFORM " TEMPS "
ue int1
             if (int1
                 flag
             END-IF

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(* FROM WHERE
             DISPLAY" TEMPS "
             DISPLAY " HOUR_OUT > TIME '17:00 SQLCODE TO SQL-COD

             EXEC SQL              " should be 1; its PERFORMCHCKOK
                 java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
                > 10'
             MOVE

            CHCKOK
             DISPLAY "int1 should be 1; its value is ", int1
             if      *BETWEEN 
               0TOjava.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
                           "FROMTEMPS"

             COMPUTE int1 = -1
             DISPLAY               FROM 
             DISPLAY                  9310
             DISPLAY " HOUR_OUT >= TIME SQLCODE

EXECSELECT  :java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
               FROMTIMESTAMP311 23595'END-EXEC
                > 1               OVE
             MOVE             

           PERFORM CHCKOK
             DISPLAY "int1 should be 2; its value is ", int1
             if (int1  NOT =              "FROMTEMPSWHEREjava.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
VE java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
             END-IF

      *BETWEEN 

COMPUTE =
             DISPLAY "SELECT COUNT(*) INTO :int1"
              FROMWHERE
             DISPLAY " BETWEEN TIMESTAMP '1993-111- TEMPS"
      -    "
             DISPLAY " TIMESTAMP '1993-11-10
           2          PERFORM
             COUNT):java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
               FROM TEMPS
               ENTERED BETWEEN
               TIMESTAMP--0 35:5' END-EXEC
                           "SELECT COUNT(* INTO:int1"
           PERFORM CHCKOK             DISPLAY "nt1 shouldbe ; itsvalue is ", int1
             DISPLAY "int1 should if int1 = NTERVAL'HOUR
t1  2 java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
               0TO
java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 19

      *IN 

             COMPUTED                TOjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
             DISPLAY " DISPLAY "int1 be2; its 
               (START)=
             DISPLAY   "
DISPLAY  SELECT'
      -    " TEMPS);"
             EXEC SQL SELECT
               FROM WHERE
               HOUR_OUT IN
CT+  ''  FROM END-EXEC
             MOVE SQLCODE TO SQL-COD              "SELECT()MOVE TOflag

           PERFORMDISPLAY" TEMPSWHEREjava.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
DISPLAYint1 ;itsisint1
             if (int1 =  2)then
               MOVEFROM WHEREDISPLAY  FROMWHERE
             END-IF

      *IS NULL -- see test 0621 
             MOVE TOjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
      *OVERLAPS (tested once already in DML106-7) 

             COMPUTEint1  ; its is ,
                            (   =2 then
             DISPLAY  MOVETO flag
             DISPLAY  (,APPT
             DISPLAYjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             EXEC SELECT
               FROM " COUNT(*)INTO :int1DISPLAY" should2; isjava.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60
               (START, M 0 TO
               ('1993-11-14', '2') END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORMDISPLAY "FROMTEMPSWHERE"
              "int1 should be 2 DISPLAY YEARFROME) >SOME"
               ROM WHERE
               LAY" TEMPS;"
             END-IF

      *ALL, SOME, ANY qualifiers (brief test) 

             COMPUTE TWHERE
             DISPLAYSELECT* NTO
             DISPLAY " FROM TEMPS WHERE"
  )
             DISPLAY "MOVE flag
          "java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
EXEC SELECTINTO"
               FROM             DISPLAY  flag
               HOUR_OUT
SELECT8java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
MOVE

           PERFORM SELECTCOUNT)INTO
             DISPLAYint1its,
             if (int1EXTRACT             COMPUTEint1-1
               MOVETO
             END-IF

              nt1SQLCODE
             java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
DISPLAYFROMTEMPS
             DISPLAY " EXTRACT (YEAR FROM ENTERED) <> SOME"
              " (ELECTEXTRACT (
              MOVE flag

              SQL              EXEC SQL SELECT COUNT
               FROM TEMPS WHERE
                < SOME
               (SELECT                java.lang.StringIndexOutOfBoundsException: Range [0, 1) out of bounds for length 0
FROMTEMPS
             MOVE SQLCODEDISPLAY"FROM TEMPSWHERE"
              " (YEAR FROM START)java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           PERFORM 
             DISPLAY "int1 should be 3; its value is ", int1              int1             EXEC  COUNT*) :
             if (int1FROM WHERE
MOVE
             END-IF

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

             
             DISPLAY "SELECT DISPLAY DISPLAY"  ; value int1
             DISPLAY DISPLAY   0   MINUTE  TO
             END-IF
             
             DISPLAY " FROM TEMPS;java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38

             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM

               (SELECT EXTRACT "10+EXTRACT(FROMTOO_EARLY)"
               FROM TEMPS) END-EXEC
MOVETO

           PERFORM CHCKOK 10java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 0
             DISPLAY "int1 should be 1; its value s "" int1
             if (int1  NOT =  1) then
               MOVE 0 TO flag
             END-IF

             EXEC SQL SELECT EXTRACT

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

             DISPLAY "SELECT EXTRACT (HOUR FROM :int1 FROM END-EXEC
             DISPLAY" * 10 +EXTRACT( TOO_EARLY)"
             

             COMPUTE int1 = -1
             EXEC SQL SELECT EXTRACTDISPLAY"  EXTRACT
               * 100 + EXTRACTjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                             " EXTRACT (MONTH FROM LATEST) * 100 +java.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60
             MOVE

           PERFORM CHCKOK
             DISPLAY"COMPUTE -
             if ( SQLSELECT,
                0T 
             END-IF 

      *Find the start date of the latest-starting appointment 

              SELECT
              java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               EXTRACTFROMLATEST
             DISPLAY " INTO :INTO :int1, :int2 FROM ifint1 NOT=19) then

             COMPUTE int1 = -1
             OMPUTE = -1
             EXEC SQL SELECTjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               *10 +
               EXTRACT (  NOT=19)then (  NOT11)
               INTO :int1java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
             MOVE

           PERFORM
M 0 lag
             if (int1  NOT =  1                          "* 0 EXTRACT MINUTE FROM AVGLUNCH)java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
MOVE             " EXTRACT(HOURFROMAVGLUNCH"
             END-IF
             DISPLAY "int2 should be 1118; its value is ", int2" :int1FROMSUBQ1;"
             if (int2  NOT =  1             COMPUTEint1                *0+java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
               MOVE 0 TO flagMOVE TO
                   *Numeric truncation might result in a 49 here.  4.4.1 says that 

      *Find the average lunch period. 

             DISPLAY "SELECT EXTRACT (HOUR java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY " * 100 + EXTRACT *the choice of whether to truncate or round is implementation-
DISPLAY   int1

             COMPUTE int1 = -1
             EXEC SQL SELECT DISPLAY" is 9isOK"
               * 100 + AVGLUNCH
               INTO :int1 FROM              if (  NOT =  50  AND  NOT =  49
             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 " :int1 SUBQ1;"
             DISPLAY "int1 should be 50; its value is ",java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             (=9 then
               DISPLAY "Numeric truncation is allowed. 49 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             END-IF
              (  NOT= 0                :FROMSUBQ1
               MOVE0  flag


      *Test DISTINCT 

             DISPLAY" .
             DISPLAYDISPLAYINTODISPLAY
             DISPLAY                = 1

              : 
EXEC SELECT
               * 100 + DE 
I :int1
             MOVE

PERFORM
 " should be4; value is ,
             ifif(  STOP
MOVE flag
             END-IFjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20

      *Find total number of days appointed 

             DISPLAY"M SQLCODE TO SQL-COD
              - -       -   -
              java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

             COMPUTE =)then
             EXEC SQLINTO FROM 0TO
INTO FROM
 END-EXECWORK
             MOVE 

 java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             DISPLAYDISPLAYCOUNTDISPLAYSTART
then    LUNCH



      *Finally, COUNT 

             COMPUTE int1 flag TIME
             DISPLAY " ;
      -    " TEMPS;"
LCOUNT  LUNCHFROM
             TEMPS END-EXECMOVE
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

          
            "EXECABLETEMPSjava.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
              (           PERFORM CHCK
               MOVE 0 TO LATESTAVG
             END-IF

             DISPLAY "
   
             MOVE SQLCODE                 

           PERFORMMOVE java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
"

             DISPLAY "TIMESTAMP1311 12 java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
             EXEC SQL             DISPLAY       pcofailjava.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
                              (' 1--'

           PERFORM CHCKOK   java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0

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

           PERFORM CHCKOK
             DISPLAY      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0

      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0      *    ****  Procedures for PERFORM statements
                "** *** "
               EXEC SQL INSERT
                 (''''') java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
               MOVE SQLCODE               NOSUBCLASS 
             java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
               DISPLAY " dml108.pco *** fail *** java.lang.StringIndexOutOfBoundsException: Range [56, 57) out of bounds for length 19
               EXEC SQL INSERT INTOhen
                 VALUES('0617','fail','PCO'END-IF
               MOVE TO.
               COMPUTE      *This routine replaces valid implementation-defined       
             END-IF      *implementation-defined subclasses with the 000 value     

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

             EXEC SQL COMMIT SQLSTATE       .
             MOVE      This routine replaces valid implementation-defined       
      ******************** 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
             DISPLAY
              NOSUBCLASS java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
             if (            *valid subclass begins with 5-9, I-Z, end of ALPNUM table 
               MOVE 0 TOif(ORMSQXGO
           java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
             if (NORMSQ = " *examining position 4 of char array NORMSQ
      *so proceed to zero it out, if valid (0-9,A-Z)              norm21 if      then
               MOVE " NORMSQXnorm1java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
      *valid characters are 0-9, A-Z 
             

       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.      

           MOVEMOVE TO

           STATE 000 
      *subclass begins in position 3 of char array NORMSQ 
      *valid subclass begins with 5-9, I-Z, end of ALPNUM table 
            VARYING FROM  1UNTIL" (java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
           
             MOVE "0" TOjava.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
           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 "0" TO(2)
             GO TO EXIT-NOSUBCLASS
       .

           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( " TIME '17:00',
           
           END-PERFORM
          
           MOVE19-11'
      *valid characters are 0-9, A-Z 
      *examining position 5 of char array NORMSQ 
           PERFORM                '7:0:0,
           if (NORMSQX(             MOVE SQLCODE TO
             MOVE
            "13110:64'"
           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 (NORMSQX0)END-EXEC
             MOVE "0"java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           END-IF
           .

                     int1
           EXIT.

94%


¤ 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.18Bemerkung:  ¤

*Bot Zugriff




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.