Quelle yts803.cob Sprache: Cobol

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

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

      *Copyright 1996 National Computing Centre Ltd,
      *and Computer Logic R&D S.A
      *on behalf of CTS5 SQL2 Project.
      *All rights reserved.
      *The CTS5 SQL2 Project is sponsored by the European Community.
      *
      *The National Computing Centre Limited and Computer Logic R&D
      *have given permission to NIST to distribute this program
      *over the World Wide Web in order to promote SQL standards.
      *DISCLAIMER:
      *This program was reviewed by employees of NIST for
      *conformance to the SQL standards.
      *NIST assumes no responsibility for any party's use of
      *this program.

      ****************************************************************
      *
      *                 COMMENT SECTION
      *
      * SQL VALIDATION TEST SUITE V6.0
      *
      * YTS803.SCO
      * WRITTEN BY:  Susan Watters
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE
      *
      * Support of SQL_SIZING table in documentation schema
      *
      *
      * REFERENCES
      *   FIPS15.2  SQL_Sizing table
      *   F# 50     Documentation schema
      *
      * DATE LAST ALTERED 02.01.96 CTS5 Hand-over Test
      *
      * QA Status: Full FC
      *
      * Revised by DWF 1996-03-27
      *   Added rollback after authid
      *   Removed EXEC SQL from printf
      *   Added FIPS printout
      *   Reduced severity of coding rule violations
      *   Fixed logic errors
      *   Added check for existence of all columns
      *   Fixed typos in feature names
      *   Removed extraneous code
      *   Fixed syntax errors (C language)
      *   Fixed pass criteria
      ****************************************************************

      * EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01  SQLCODE PIC S9(9) COMP.
       01  SQLSTATE PIC  X(5).
       01  co1 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  sid PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  desc PIC  X(50).
       01  entv PIC S9(5) DISPLAY SIGN LEADING SEPARATE.
       01  intv PIC S9(5) DISPLAY SIGN LEADING SEPARATE.
       01  indic1 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  indic2 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  uid PIC  X(18).
       01  uidx PIC  X(18).
      *  EXEC SQL END DECLARE SECTION END-EXEC
       01  norm1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  norm2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  i PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  S1 PIC  X(50).
       01  S2 PIC  X(50).
       01  S3 PIC  X(50).
       01  S4 PIC  X(50).
       01  S5 PIC  X(50).
       01  S6 PIC  X(50).
       01  S7 PIC  X(50).
       01  S8 PIC  X(50).
       01  S9 PIC  X(50).
       01  S10 PIC  X(50).
       01  S11 PIC  X(50).
       01  S12 PIC  X(50).
       01  S13 PIC  X(50).
       01  S14 PIC  X(50).
       01  S15 PIC  X(50).
       01  S16 PIC  X(50).
       01  S17 PIC  X(50).
       01  S18 PIC  X(50).
       01  S19 PIC  X(50).
       01  S20 PIC  X(50).
       01  S21 PIC  X(50).
       01  S22 PIC  X(50).
       01  S23 PIC  X(50).
       01  S24 PIC  X(50).
       01  S25 PIC  X(50).
       01  S26 PIC  X(50).
       01  S27 PIC  X(50).
       01  S28 PIC  X(50).
       01  S29 PIC  X(50).
       01  S30 PIC  X(50).
       01  S31 PIC  X(50).
       01  S32 PIC  X(50).
       01  S33 PIC  X(50).
       01  S34 PIC  X(50).
       01  S35 PIC  X(50).
       01  S36 PIC  X(50).
       01  S37 PIC  X(50).
       01  S38 PIC  X(50).
       01  S39 PIC  X(50).
       01  S40 PIC  X(50).
       01  S41 PIC  X(50).
       01  S42 PIC  X(50).
       01  S43 PIC  X(50).
       01  S44 PIC  X(50).
       01  S45 PIC  X(50).
       01  S46 PIC  X(50).
       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 "CTS1 " TO uid
             CALL "AUTHID" USING uid
             MOVE "not logged in, not" TO uidx
      *  EXEC SQL SELECT USER INTO :uidx FROM CTS1.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, yts803.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

      ******************** BEGIN TEST7549 *******************
             MOVE 1 TO flag

             DISPLAY " FIPS TEST7549"
             DISPLAY " Support SQL_SIZING table in documentation
      -    " schema"
             DISPLAY "References:"
             DISPLAY " FIPS15.2 SQL_Sizing table"
             DISPLAY " F# 50 Documentation schema"
             DISPLAY " - - - - - - - - - - - - - - - - - - -"

             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

      *initialise variables
             MOVE 1 TO i
      *set up the comparison arrays for SQL_SIZING.Description

             MOVE "Length of an identifier "
             TO S1
             MOVE "CHARACTER max length "
             TO S2
             MOVE "CHARACTER VARYING max length "
             TO S3
             MOVE "BIT max length in bits "
             TO S4
             MOVE "BIT VARYING max length in bits "
             TO S5
             MOVE "NATIONAL CHARACTER max length "
             TO S6
             MOVE "NATIONAL CHAR VARYING max length "
             TO S7
             MOVE "NUMERIC decimal precision "
             TO S8
             MOVE "DECIMAL decimal precision "
             TO S9
             MOVE "INTEGER decimal precision "
             TO S10
             MOVE "INTEGER binary precision "
             TO S11
             MOVE "SMALLINT decimal precision "
             TO S12
             MOVE "SMALLINT binary precision "
             TO S13
             MOVE "FLOAT binary mantissa precision "
             TO S14
             MOVE "FLOAT binary exponent precision "
             TO S15
             MOVE "REAL binary mantissa precision "
             TO S16
             MOVE "REAL binary exponent precision "
             TO S17
             MOVE "DOUBLE PRECISION binary mantissa precision "
             TO S18
             MOVE "DOUBLE PRECISION binary exponent precision "
             TO S19
             MOVE "TIME decimal fractional second precision "
             TO S20
             MOVE "TIMESTAMP decimal fractional second precision "
             TO S21
             MOVE "INTERVAL decimal fractional second precision "
             TO S22
             MOVE "INTERVAL decimal leading field precision "
             TO S23
             MOVE "Columns in a table "
             TO S24
             MOVE "Values in an INSERT statement "
             TO S25
             MOVE "Set clauses in UPDATE statement "
             TO S26
             MOVE "Length of a row "
             TO S27
             MOVE "Columns in UNIQUE constraint "
             TO S28
             MOVE "Length of UNIQUE columns "
             TO S29
             MOVE "Columns in GROUP BY column list "
             TO S30
             MOVE "Length of GROUP BY column list "
             TO S31
             MOVE "Sort items in ORDER BY clause "
             TO S32
             MOVE "Length of ORDER BY column list "
             TO S33
             MOVE "Referencing columns in FOREIGN KEY "
             TO S34
             MOVE "Length of FOREIGN KEY column list "
             TO S35
             MOVE "Table references in an SQL statement "
             TO S36
             MOVE "Cursors simultaneously open "
             TO S37
             MOVE "WHEN clauses in a CASE expression "
             TO S38
             MOVE "Columns in a named columns JOIN "
             TO S39
             MOVE "Length of JOIN column list "
             TO S40
             MOVE "Items in a SELECT list "
             TO S41
             MOVE "Length of SQL "
             TO S42
             MOVE "Length of "
             TO S43
             MOVE "Length of "
             TO S44
             MOVE "Occurrences in an ALLOCATE DESCRIPTOR "
             TO S45
             MOVE "Default occurrences in ALLOCATE DESCRIPTOR "
             TO S46

      *declare  cursor to return SIZING_FEATURES
             DISPLAY "DECLARE data803 CURSOR FOR;"
             DISPLAY "SELECT SIZING_ID, DESCRIPTION, ENTRY_VALUE,"
             DISPLAY "INTERMEDIATE_VALUE"
             DISPLAY "FROM FIPS_DOCUMENTATION.SQL_SIZING"
             DISPLAY "ORDER BY SIZING_ID;"

      *  EXEC SQL DECLARE data803 CURSOR FOR
      *    SELECT SIZING_ID, DESCRIPTION, ENTRY_VALUE,
      *    INTERMEDIATE_VALUE
      *    FROM FIPS_DOCUMENTATION.SQL_SIZING
      *    ORDER BY SIZING_ID END-EXEC

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

      *check all 46 items in 16.6 of FIPS 127-2 appear

             MOVE 0 TO co1
             DISPLAY "SELECT COUNT (*) INTO :co1"
             DISPLAY "FROM FIPS_DOCUMENTATION.SQL_SIZING;"
      *  EXEC SQL SELECT COUNT (*) INTO :co1
      *    FROM FIPS_DOCUMENTATION.SQL_SIZING;
             CALL "SUB4" USING SQLCODE SQLSTATE co1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "co1 should be 46; its value is ", co1
             if (co1  NOT =  46) then
               MOVE 0 TO flag
             END-IF

      *Check existence of all columns

             MOVE 0 TO co1
             DISPLAY "SELECT COUNT (*) INTO :co1"
             DISPLAY "FROM FIPS_DOCUMENTATION.SQL_SIZING"
             DISPLAY "WHERE VALUE_SUPPORTED IS NOT NULL"
             DISPLAY "OR SIZING_COMMENTS IS NOT NULL"
             DISPLAY "OR SIZING_ID IS NOT NULL;"
      *  EXEC SQL SELECT COUNT (*) INTO :co1
      *    FROM FIPS_DOCUMENTATION.SQL_SIZING
      *    WHERE VALUE_SUPPORTED IS NOT NULL
      *    OR SIZING_COMMENTS IS NOT NULL
      *    OR SIZING_ID IS NOT NULL;
             CALL "SUB5" USING SQLCODE SQLSTATE co1
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "co1 should be 46; its value is ", co1
             if (co1  NOT =  46) then
               MOVE 0 TO flag
             END-IF

      *return and check all values of cursor

           .
        P100.

      *initialise all host variables before FETCH
             MOVE 0 TO sid
             MOVE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
             TO desc
             COMPUTE entv = -10
             COMPUTE intv = -10
             MOVE 99 TO indic1
             MOVE 99 TO indic2

             DISPLAY "FETCH data803 "
             DISPLAY "INTO :sid,:desc,:entv:indic1,:intv:indic2;"
      *  EXEC SQL FETCH data803
      *    INTO :sid,:desc,:entv:indic1,:intv:indic2;
             CALL "SUB6" USING SQLCODE SQLSTATE sid desc entv indic1
             intv indic2
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  NOT =  0) then
               GO TO P102
             END-IF
           PERFORM CHCKOK

      *check the next sizing identifier returned was the one anticipat
           .
        P101.
             if (sid  NOT =  i  AND  i  <  47) then
               DISPLAY "********** ERROR -- FEATURE NUMBER ", i, " IS
      -    " MISSING"
               COMPUTE i = i + 1
               MOVE 0 TO flag
               GO TO P101
             END-IF

      *check correct values are returned for each SIZING constraint
             if (sid  =  1) then
               if (desc  NOT  =   S1  OR  entv  NOT =  18  OR  intv  NOT
             =  128) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #1 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  2) then
               if (desc  NOT  =   S2  OR  entv  NOT =  240  OR  intv
             NOT =  1000) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #2 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  3) then
               if (desc  NOT  =   S3  OR  entv  NOT =  254  OR  intv
             NOT =  1000) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #3 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  4) then
               if (desc  NOT  =   S4  OR  indic1  NOT =  -1  OR  intv
             NOT =  8000) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #4 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  5) then
               if (desc  NOT  =   S5  OR  indic1  NOT =  -1  OR  intv
             NOT =  8000) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #5 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  6) then
               if (desc  NOT  =   S6  OR  indic1  NOT =  -1  OR  intv
             NOT =  500) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #6 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  7) then
               if (desc  NOT  =   S7  OR  indic1  NOT =  -1  OR  intv
             NOT =  500) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #7 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  8) then
               if (desc  NOT  =   S8  OR  entv  NOT =  15  OR  intv  NOT
             =  15) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #8 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  9) then
               if (desc  NOT  =   S9  OR  entv  NOT =  15  OR  intv  NOT
             =  15) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #9 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  10) then
               if (desc  NOT  =   S10  OR  entv  NOT =  9  OR  indic2
             NOT =  -1) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #10 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  11) then
               if (desc  NOT  =   S11  OR  indic1  NOT =  -1  OR  intv
             NOT =  31) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #11 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  12) then
               if (desc  NOT  =   S12  OR  entv  NOT =  4  OR  indic2
             NOT =  -1) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #12 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  13) then
               if (desc  NOT  =   S13  OR  indic1  NOT =  -1  OR  intv
             NOT =  15) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #13 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  14) then
               if (desc  NOT  =   S14  OR  entv  NOT =  20  OR  intv
             NOT =  47) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #14 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  15) then
               if (desc  NOT  =   S15  OR  indic1  NOT =  -1  OR  intv
             NOT =  9) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #15 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  16) then
               if (desc  NOT  =   S16  OR  entv  NOT =  20  OR  intv
             NOT =  23) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #16 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  17) then
               if (desc  NOT  =   S17  OR  indic1  NOT =  -1  OR  intv
             NOT =  7) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #17 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  18) then
               if (desc  NOT  =   S18  OR  entv  NOT =  30  OR  intv
             NOT =  47) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #18 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  19) then
               if (desc  NOT  =   S19  OR  indic1  NOT =  -1  OR  intv
             NOT =  9) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #19 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  20) then
               if (desc  NOT  =   S20  OR  indic1  NOT =  -1  OR  intv
             NOT =  0) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #20 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  21) then
               if (desc  NOT  =   S21  OR  indic1  NOT =  -1  OR  intv
             NOT =  6) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #21 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  22) then
               if (desc  NOT  =   S22  OR  indic1  NOT =  -1  OR  intv
             NOT =  6) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #22 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  23) then
               if (desc  NOT  =   S23  OR  indic1  NOT =  -1  OR  intv
             NOT =  7) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #23 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  24) then
               if (desc  NOT  =   S24  OR  entv  NOT =  100  OR  intv
             NOT =  250) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #24 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  25) then
               if (desc  NOT  =   S25  OR  entv  NOT =  100  OR  intv
             NOT =  250) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #25 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  26) then
               if (desc  NOT  =   S26  OR  entv  NOT =  20  OR  intv
             NOT =  250) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #26 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  27) then
               if (desc  NOT  =   S27  OR  entv  NOT =  2000  OR  intv
             NOT =  8000) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #27 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  28) then
               if (desc  NOT  =   S28  OR  entv  NOT =  6  OR  intv  NOT
             =  15) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #28 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  29) then
               if (desc  NOT  =   S29  OR  entv  NOT =  120  OR  intv
             NOT =  750) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #29 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  30) then
               if (desc  NOT  =   S30  OR  entv  NOT =  6  OR  intv  NOT
             =  15) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #30 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  31) then
               if (desc  NOT  =   S31  OR  entv  NOT =  120  OR  intv
             NOT =  750) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #31 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  32) then
               if (desc  NOT  =   S32  OR  entv  NOT =  6  OR  intv  NOT
             =  15) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #32 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  33) then
               if (desc  NOT  =   S33  OR  entv  NOT =  120  OR  intv
             NOT =  750) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #33 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  34) then
               if (desc  NOT  =   S34  OR  entv  NOT =  6  OR  intv  NOT
             =  15) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #34 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  35) then
               if (desc  NOT  =   S35  OR  entv  NOT =  120  OR  intv
             NOT =  750) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #35 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  36) then
               if (desc  NOT  =   S36  OR  entv  NOT =  15  OR  intv
             NOT =  50) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #36 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  37) then
               if (desc  NOT  =   S37  OR  entv  NOT =  10  OR  intv
             NOT =  100) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #37 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  38) then
               if (desc  NOT  =   S38  OR  indic1  NOT =  -1  OR  intv
             NOT =  50) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #38 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  39) then
               if (desc  NOT  =   S39  OR  indic1  NOT =  -1  OR  intv
             NOT =  15) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #39 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  40) then
               if (desc  NOT  =   S40  OR  indic1  NOT =  -1  OR  intv
             NOT =  750) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #40 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  41) then
               if (desc  NOT  =   S41  OR  entv  NOT =  100  OR  intv
             NOT =  250) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #41 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  42) then
               if (desc  NOT  =   S42  OR  indic1  NOT =  -1  OR  intv
             NOT =  30000) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #42 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  43) then
               if (desc  NOT  =   S43  OR  indic1  NOT =  -1  OR  intv
             NOT =  4000) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #43 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  44) then
               if (desc  NOT  =   S44  OR  indic1  NOT =  -1  OR  intv
             NOT =  4000) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #44 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  45) then
               if (desc  NOT  =   S45  OR  indic1  NOT =  -1  OR  intv
             NOT =  100) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #45 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  =  46) then
               if (desc  NOT  =   S46  OR  indic1  NOT =  -1  OR  intv
             NOT =  100) then
                 DISPLAY "********** ERROR -- Reference to
      -    " SIZING_FEATURE #46 incorrect"
                 MOVE 0 TO flag
               END-IF
             END-IF
             if (sid  <  1  OR  sid  >  46) then
               DISPLAY "Incorrect value for SIZING_ID"
               MOVE 0 TO flag
             END-IF

             COMPUTE i = i + 1
             GO TO P100

           .
        P102.
             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  " "
             if (i  NOT =  47) then
               DISPLAY "Incorrect number of rows returned!"
               MOVE 0 TO flag
             END-IF

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

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

             if ( flag  =  1 ) then
               DISPLAY " yts803.mco *** pass *** "
      *    EXEC SQL INSERT INTO CTS1.TESTREPORT
      *      VALUES('7549','pass','MCO');
               CALL "SUB9" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY " yts803.mco *** fail *** "
      *    EXEC SQL INSERT INTO CTS1.TESTREPORT
      *      VALUES('7549','fail','MCO');
               CALL "SUB10" USING SQLCODE SQLSTATE
               MOVE SQLCODE TO SQL-COD
               COMPUTE errcnt = errcnt + 1
             END-IF

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

      *  EXEC SQL COMMIT WORK;
             CALL "SUB11" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
      ******************** END TEST7549 ********************

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

quality99%

¤ 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.11Bemerkung: (vorverarbeitet) ¤

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