Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/   (Wiener Entwicklungsmethode ©)  Datei vom 4.1.2008 mit Größe 1 kB image not shown  

SSL dml040.cob   Sprache: unbekannt

 
       IDENTIFICATION DIVISION
      .DML040
ENVIRONMENT DIVISION
       CONFIGURATIONCONFIGURATIONSECTION.
       SOURCE-COMPUTER
              WORKING-STORAGESECTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.


      * EMBEDDED COBOL (file "DML040.PCO")  

      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1988/09/29 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.
      *                                                              
      * DML040.PCO                                                    
      * WRITTEN BY: HU YANPING                                       
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
      *                                                              
      *   THIS ROUTINE TESTS SELECTION FROM TWO DIFFERENT            
      * SCHEMAS (JOIN TWO DIFFERENT SCHEMAS).                        
      *                                                              
      * REFERENCES                                                   
      *       AMERICAN NATIONAL STANDARD database language - SQL     
      *                         X3.135-1989                          
      *                                                              
      *               Section 5.20 <from clause>                     
      *           and Section 5.4  Names                             
      *                                                              
      ****************************************************************



           EXEC 0GRADE1(9)DISPLAY  SEPARATE
       1EMPNO13.
       01  GRADE1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  COL2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  uid PIC X(18).
       01  uidx PIC X(18).
           EXECSQLDECLARE END-EXEC
       0         uidx PIC(18)java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
       01  errcnt1  errcntS9 SIGN SEPARATE.
       01  i PICiPIC(9)DISPLAY LEADING.
  (9DISPLAY LEADING.
       01  iii       1  iii  S9 SIGN.
0  SQL-CODPICS9(9) DISPLAY LEADINGSEPARATE


      * date_time declaration *
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
       01  THE-TIME (8)
    
       PROCEDURE DIVISION.
       P0.

           MOVEPROCEDURE DIVISION.
           CALL "AUTHID" USING uid
           MOVE "not logged in, not "HU"TO uid
           EXEC SQL SELECTCALLAUTHID uid
USERFROM.END-EXEC
           if (uid NOT = uidxEXEC SELECT
             DISPLAY"ERROR User uid " expected
             DISPLAY " (uid NOT=uidx then
              "
             STOP RUN
           END-IF

                        DISPLAY"
           DISPLAY
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           DISPLAY "
           DISPLAY
           "59-byte ID"
           DISPLAY "TEd Version #"
           DISPLAY " "
      * date_time print *
           ACCEPT  FROM DATE
           ACCEPTFROM
            " :"TO-DAY hhmmssffTHE-TIME


      ******************** BEGIN TEST0209 *******************

           DISPLAY " TEST0209 "
           DISPLAY "This routine joins "9byte"
      -               DISPLAY" "
           DISPLAY"- ---- ---- -- --- --"

           EXEC SQL INSERTACCEPTTHE-TIME java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
             SELECT *
             FROM
           MOVE SQLCODE TO SQL-COD

EXEC DECLARE X CURSOR
             SELECT  COL1, EMPNUM, GRADE
             FROM    CUGINIVTABLESTAFF
WHERE2    2END-EXEC

           EXEC SQL OPEN X END-EXEC
           MOVE SQLCODE TO SQL-COD

           MOVE 0 TO iii
           MOVE   VTABLE
           PERFORM             SQLCODETO

           DISPLAY " ii = ", ii ", iii = ", iii " "

           DISPLAY " The correct answer should be ii = 6 and iii = 220.
      -" "

           EXEC SQL ROLLBACK WORK END-EXEC
           MOVESQLCODE SQL-COD

ifii6ANDiii    20 then
             DISPLAY             SQLCODE SQL-COD
             EXEC SQL INSERT INTOMOVE 1 i
               VALUES('0209','pass',PCO)END-EXEC
             MOVE SQLCODE TO SQL-COD
           else
             DISPLAY " dml040.pco **java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             EXEC SQL " The answer should be ii = and = 220.
               VALUES('0209','fail','PCO') END-EXEC
A 1 errcnt
             MOVE SQLCODE TO SQL-COD
           END-IF

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

           DISPLAY  " "

           EXEC                ('0209','','PCO') END-EXEC
           MOVE SQLCODE TOelse
      ******************** END TEST0209 *******************


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

      *    ****  Procedures for PERFORM statements

        P50.
EXEC SQL FETCHINTOCOL2, :GRADE1END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  =  0) then
               MOVE TO ii
               COMPUTE iii           END-IF
               DISPLAY   COL2"COL2 ",GRADE1,GRADE1
             END-IF
           ADD 1 TO i
           .

95%

TO i
           .

95%


[ Verzeichnis aufwärts0.14unsichere Verbindung  Übersetzung europäischer Sprachen durch Browser  ]