products/Sources/formale Sprachen/Cobol/Test-Suite/SQL P/dml1-99/     Datei vom 4.1.2008 mit Größe 6 kB image not shown  

 dml028.cob   Interaktion und
PortierbarkeitCobol

 
       IDENTIFICATION DIVISION.
       PROGRAM-ID.  DML028.
       ENVIRONMENT      * DATE 1988/04/28 EMBEDDED COBOL LANGUAGE                          
       CONFIGURATION SECTION      *  DISCLAIMER:                                                  
       SOURCE-COMPUTER.  xyz.
       OBJECT-COMPUTER.  xyz.
      *                                                              
       WORKING-STORAGE SECTION      * WRITTEN BY: HU YANPING                                       


      * EMBEDDED COBOL (file "DML028.PCO")  

      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1988/04/28 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.
      *                                                              
      * DML028.PCO                                                    
      * WRITTEN BY: HU YANPING                                       
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
      *                                                              
      *   THIS ROUTINE TESTS THE OPEN STATEMENT IN THE LANGUAGE OF   
      * SQL.  THE FORMAT:                                            
      *                  OPEN <cursor name>                          
      *                                                              
      * REFERENCES                                                   
      *       AMERICAN NATIONAL STANDARD database language - SQL     
      *                         X3.135-1989                          
      *                                                              
      *                       SECTION 8.3 <declare cursor>           
      *                       SECTION 8.6 <fetch statement>          
      *                       SECTION 8.7 <insert statement>         
      *                       SECTION 8.8 <open statement>           
      *                                                              
      ****************************************************************


           EXEC  EXEC ENDDECLARE
0  PNO1  X3.
       01  EMPNO1 PIC  X(3).
       01  SCITY PIC  X(15).
       01  PCITY PIC  X(15).
       01  HOURS1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  uid PIC X(18).
       01  uidx PIC X(18).
           EXEC SQL END DECLARE SECTION END-EXEC
       01  SQLCODE PIC S9(9) COMP.
       01  errcnt PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  i PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  ii PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE.


      * date_time declaration *
       01  TO-DAY PIC 9(6).
       01  THE-TIME PIC 9(8).
    
       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 END-EXEC
           if (uid NOT = uidx) then
             DISPLAY "ERROR: User " uid " expected."
             DISPLAY "User " uidx " connected."
             DISPLAY " "
             STOP RUN
           END-IF

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

      ******************** BEGIN TEST0126 *******************

           DISPLAY " TEST0126 "
           DISPLAY " OPEN, CLOSE, OPEN again to check. "
           DISPLAY "reference X3.135-1989 section 8.8 General Rules"
           DISPLAY " - - - - - - - - - - - - - - - - - - -"

           DISPLAY " *** EXEC SQL DECLARE X CURSOR "
           DISPLAY " *** FOR SELECT EMPNUM,HOURS "
           DISPLAY " *** FROM WORKS "
           DISPLAY " *** ORDER BY EMPNUM DESC,HOURS DESC "

           EXEC SQL DECLARE X CURSOR
             FOR SELECT EMPNUM,HOURS2
             FROM   WORKS
             ORDER  BY EMPNUM DESC,HOURS2 DESC END-EXEC
           EXEC SQL OPEN X END-EXEC
           MOVE SQLCODE TO SQL-COD

           MOVE 0 TO i
            P50 UNTILi > 6

           EXEC       1  ii S9(9)  SIGNLEADING.
           MOVE SQLCODE TO01   PIC S9(9) DISPLAYSIGN SEPARATE

           EXEC PIC ()java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
MOVE SQLCODE SQL-COD

           EXEC SQL FETCH X INTO :EMPNO1,:HOURS1 END-EXECEXEC SELECT
           MOVE TO SQL-COD

           DISPLAY "After close and open again, the first should be
      -    " fetched."
            " EMPNO1" EMPNO1 " HOURS1="
             HOURS1 " "
           if      E4  HOURS1 java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
             EXEC SQL              ""
               VALUES('0126','pass TOPRUN
             MOVE SQLCODE TO           END-IF
             DISPLAY " ** pass***"
           else
             SPLAY
               VALUES('0126','fail','PCO'END-EXEC
ADDTO
MOVE TO SQL-COD
              "dml028pco ** fail ** "
           END-IF
           "==========================="
           DISPLAY              "TEd Version #"

           EXEC SQL COMMITTO-DAYDATE
           MOVE SQLCODE TO SQL-COD

      ******************** END TEST0126 *******************
      ******************** BEGIN TEST0127 *******************

           DISPLAY " TEST0127 "
           
           DISPLAY "reference X3.135-1989 section java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
DISPLAY------   - --------"
           DISPLAY " *** DISPLAY"- -  -         -----java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
            "** SELECT EMPNUM,PNUM"
           DISPLAY             " * WORKS "
           DISPLAY " *** ORDER BY EMPNUM "   **            BY EMPNUMDESC DESC

           EXEC SQL DECLARE SELECT,HOURS2
             FOR EMPNUMPNUM
             FROM   WORKS
             ORDERBYEMPNUM,PNUM END-EXEC

           EXEC DECLAREjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
FOR CITY
             FROM   STAFF
WHERE =:EMPNO1END-EXEC

           EXEC SQL DECLARE A CURSOR
             FORSELECT
                PROJ
             WHERE  PNUM = :PNO1

           EXEC SQL OPEN Y END-EXEC
           MOVE TO

           MOVE 0 TO
PERFORMP49 i>java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34

           if
             XEC 
               VALUES    "fetched."
 TO
             HOURS1
           else
             EXECEXEC INSERT TESTREPORT
               VALUES''','PCO END-EXEC
             ADD 1 TO              SQLCODE SQL-COD
             MOVE
 " dml028.pco**fail** "
           END-IF
           DISPLAY "===================VALUES(02''''' 
           DISPLAY  "java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23

           EXEC SQLDISPLAY       .  *fail
MOVE TO

      ******************** END TEST0127 *******************
      ******************** BEGIN TEST0128 *******************

           DISPLAY                             
           DISPLAY"OPENthreecursorsat same time to check java.lang.StringIndexOutOfBoundsException: Index 64 out of bounds for length 64
           DISPLAY "reference X3. ******************** BEGIN TEST0127 *******************
DISPLAY-                 "
SOR
*FOR ,PNUM
           DISPLAY             " ,java.lang.StringIndexOutOfBoundsException: Range [69, 70) out of bounds for length 69
   EMPNUM,PNUMjava.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53

            SQL ZCURSOR
             FOR SELECT EMPNUM,PNUMFOR CITY
                WORKS
                          WHERE  EMPNUM = :EMPNO1


EXEC SQL D CURSOR
             FOR              FORSELECT
             FROM   STAFF
             WHERE   = :EMPNO1

           EXEC             SQL Y END-EXEC
             FOR SELECT CITY
             FROM   PROJ
             WHERE  PNUM = :PNO1 END-EXEC

           EXEC           MOVE TO
           MOVE TOSQL-COD

           MOVE 0 TO i
           PERFORM UNTIL 4

           if                ALUES(017''ass END-EXEC
             EXECSQL INTO
               VALUES('0 DISPLAY "*** pass** "
             MOVE SQLCODEjava.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
             DISPLAY " *** pass *** "
           java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
             EXEC SQL INSERT INTOMOVE TO
VALUES,failEND-EXEC
             ADD 1 TO errcnt
             MOVE TOjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
DISPLAYdml028  **fail
           END-IF
           DISPLAY"
           DISPLAY  " "

                      XEC COMMIT END-EXEC
           MOVESQLCODE SQL-COD

      ******************** END TEST0128 *******************



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

      *    ****  Procedures for PERFORM statements

        P50.
             EXEC FETCH INTOEMPNO1 END-EXEC
             MOVE "reference X3.135-98 8.8 General "
             if (SQLCODE  =  0) then
               DISPLAY " EMPNO1=", EMPNO1 " and HOURS1=",
  java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
END-IF
           ADDDISPLAY   *           WORKS
.

        P49.
             EXEC SQL FETCH Y INTO :EMPNO1,:PNO1 END-EXEC
MOVE TO
             DISPLAY " EMPNO1=", EMPNO1 "java.lang.StringIndexOutOfBoundsException: Range [0, 50) out of bounds for length 35

             EXEC SQL OPEN Z END-EXEC
             MOVE            SQL D CURSOR
             EXEC SQL
             MOVE TOSQL-COD
             EXEC SQL
             MOVESQLCODE SQL-COD

             EXEC SQL java.lang.StringIndexOutOfBoundsException: Range [0, 26) out of bounds for length 24
             MOVE SQLCODE TO SQL-COD
             EXECEXEC OPEN END-EXEC
             MOVE TO
              SQL
             MOVE SQLCODE TO SQL-COD P48 i  4

DISPLAY STAFF" ", PROJ =,PCITYjava.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 71
           ADD 1 TO
           .

        P48.
             EXEC SQL  B INTO :,:PNO1
MOVE TO
             DISPLAY " EMPNO1=", EMPNO1           

             EXEC SQL ('0128,'ail END-EXEC
             MOVE TOSQL-COD
             EXEC SQL OPEN E END-EXEC
             MOVE TO

                            dml028     java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
             MOVE  ""

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE SQLCODE             SQLCODE

             EXEC 
             MOVE      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
             EXEC SQL
             MOVE SQLCODE TO SQL-COD

DISPLAY"STAFFCITY=" SCITYCITY " "
           ADD 1 TO SQLCODESQL-COD
           .

97%


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

*© Formatika GbR, Deutschland






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.