Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/C/Lyx/ (Lyx Textverarbeitung ^©) Datei vom 12.0.1999 mit Größe 51 B

SSL dml132.cob Sprache: Cobol

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

      * EMBEDDED COBOL (file "DML132.PCO")

      ****************************************************************
      *
      *                 COMMENT SECTION
      *
      * DATE 1994/08/17 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.
      *
      * DML132.PCO
      * WRITTEN BY: David Flater
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
      *
      * This routine tests FIPS sizing.
      *
      * REFERENCES
      *   ANSI SQL-1992
      *
      ****************************************************************

           EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01  cv00 PIC  X(2).
       01  cv01 PIC  X(2).
       01  cv02 PIC  X(2).
       01  cv03 PIC  X(2).
       01  cv04 PIC  X(2).
       01  cv05 PIC  X(2).
       01  cv06 PIC  X(2).
       01  cv07 PIC  X(2).
       01  cv08 PIC  X(2).
       01  cv09 PIC  X(2).
       01  cv10 PIC  X(2).
       01  cv11 PIC  X(2).
       01  cv12 PIC  X(2).
       01  cv13 PIC  X(2).
       01  cv14 PIC  X(2).
       01  cv15 PIC  X(2).
       01  cv16 PIC  X(2).
       01  cv17 PIC  X(2).
       01  cv18 PIC  X(2).
       01  cv19 PIC  X(2).
       01  cv20 PIC  X(2).
       01  cv21 PIC  X(2).
       01  cv22 PIC  X(2).
       01  cv23 PIC  X(2).
       01  cv24 PIC  X(2).
       01  cv25 PIC  X(2).
       01  cv26 PIC  X(2).
       01  cv27 PIC  X(2).
       01  cv28 PIC  X(2).
       01  cv29 PIC  X(2).
       01  cv30 PIC  X(2).
       01  cv31 PIC  X(2).
       01  cv32 PIC  X(2).
       01  cv33 PIC  X(2).
       01  cv34 PIC  X(2).
       01  cv35 PIC  X(2).
       01  cv36 PIC  X(2).
       01  cv37 PIC  X(2).
       01  cv38 PIC  X(2).
       01  cv39 PIC  X(2).
       01  cv40 PIC  X(2).
       01  cv41 PIC  X(2).
       01  cv42 PIC  X(2).
       01  cv43 PIC  X(2).
       01  cv44 PIC  X(2).
       01  cv45 PIC  X(2).
       01  cv46 PIC  X(2).
       01  cv47 PIC  X(2).
       01  cv48 PIC  X(2).
       01  cv49 PIC  X(2).
       01  cv50 PIC  X(2).
       01  cv51 PIC  X(2).
       01  cv52 PIC  X(2).
       01  cv53 PIC  X(2).
       01  cv54 PIC  X(2).
       01  cv55 PIC  X(2).
       01  cv56 PIC  X(2).
       01  cv57 PIC  X(2).
       01  cv58 PIC  X(2).
       01  cv59 PIC  X(2).
       01  cv60 PIC  X(2).
       01  cv61 PIC  X(2).
       01  cv62 PIC  X(2).
       01  cv63 PIC  X(2).
       01  cv64 PIC  X(2).
       01  cv65 PIC  X(2).
       01  cv66 PIC  X(2).
       01  cv67 PIC  X(2).
       01  cv68 PIC  X(2).
       01  cv69 PIC  X(2).
       01  cv70 PIC  X(2).
       01  cv71 PIC  X(2).
       01  cv72 PIC  X(2).
       01  cv73 PIC  X(2).
       01  cv74 PIC  X(2).
       01  cv75 PIC  X(2).
       01  cv76 PIC  X(2).
       01  cv77 PIC  X(2).
       01  cv78 PIC  X(2).
       01  cv79 PIC  X(2).
       01  cv80 PIC  X(2).
       01  cv81 PIC  X(2).
       01  cv82 PIC  X(2).
       01  cv83 PIC  X(2).
       01  cv84 PIC  X(2).
       01  cv85 PIC  X(2).
       01  cv86 PIC  X(2).
       01  cv87 PIC  X(2).
       01  cv88 PIC  X(2).
       01  cv89 PIC  X(2).
       01  cv90 PIC  X(2).
       01  cv91 PIC  X(2).
       01  cv92 PIC  X(2).
       01  cv93 PIC  X(2).
       01  cv94 PIC  X(2).
       01  cv95 PIC  X(2).
       01  cv96 PIC  X(2).
       01  cv97 PIC  X(2).
       01  cv98 PIC  X(2).
       01  cv99 PIC  X(2).
       01  SQLCODE PIC S9(9) COMP.
       01  SQLSTATE PIC  X(5).
       01  uid PIC  X(18).
       01  uidx PIC  X(18).
       01  int1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  int2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  indic1 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  indic2 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
             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  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 "FLATER " TO uid
             CALL "AUTHID" USING uid
             MOVE "not logged in, not" TO uidx
             EXEC SQL SELECT USER INTO :uidx FROM HU.ECCO END-EXEC
             MOVE SQLCODE TO SQL-COD
             EXEC SQL ROLLBACK WORK END-EXEC
             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, Embedded COBOL, dml132.pco"
             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 TEST0515 *******************
             MOVE 1 TO flag

      *This test is based on dml098 TEST0579

             DISPLAY " TEST0515 "
             DISPLAY "FIPS sizing: NUMERIC (15) decimal precision"
             DISPLAY "References:"
             DISPLAY " FIPS 16.6 -- Sizing for database constructs"
             DISPLAY " - - - - - - - - - - - - - - - - - - -"

             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

             DISPLAY "INSERT INTO HU.P15 VALUES (999999999999999);"
             EXEC SQL INSERT INTO HU.P15 VALUES (999999999999999)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "INSERT INTO HU.P15 VALUES (-999999999999999);"
             EXEC SQL INSERT INTO HU.P15 VALUES (-999999999999999)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Since these are exact numerics, there should be no problems
      *with the precision of + and -.

             COMPUTE int1 = -1
             DISPLAY "SELECT NUMTEST - 999999999999990,"
             DISPLAY " NUMTEST / 9999999 INTO :int1, :int2"
             DISPLAY " FROM HU.P15 WHERE NUMTEST > 0;"
             EXEC SQL SELECT NUMTEST - 999999999999990,
               NUMTEST / 9999999 INTO :int1, :int2
               FROM HU.P15 WHERE NUMTEST > 0 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 9; its value is ", int1
             DISPLAY "int2 should be 100000010; its value is ", int2
             if (int1  NOT =  9  OR  int2  NOT =  100000010) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             DISPLAY "SELECT NUMTEST + 999999999999990,"
             DISPLAY " NUMTEST / 9999999 INTO :int1, :int2"
             DISPLAY " FROM HU.P15 WHERE NUMTEST < 0;"
             EXEC SQL SELECT NUMTEST + 999999999999990,
               NUMTEST / 9999999 INTO :int1, :int2
               FROM HU.P15 WHERE NUMTEST < 0 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be -9; its value is ", int1
             DISPLAY "int2 should be -100000010; its value is ", int2
             if (int1  NOT =  -9  OR  int2  NOT =  -100000010) then
               MOVE 0 TO flag
             END-IF

             DISPLAY "DELETE FROM HU.P15;"
             EXEC SQL DELETE FROM HU.P15 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "INSERT INTO HU.P15 VALUES (562949953421313);"
             EXEC SQL INSERT INTO HU.P15 VALUES (562949953421313)
             END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM HU.P15 WHERE NUMTEST = 562949953421312;"
             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM HU.P15 WHERE NUMTEST = 562949953421312 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 0; its value is ", int1
             if (int1  NOT =  0) then
               MOVE 0 TO flag
             END-IF

             COMPUTE int1 = -1
             DISPLAY "SELECT COUNT(*) INTO :int1"
             DISPLAY " FROM HU.P15 WHERE NUMTEST = 562949953421313;"
             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM HU.P15 WHERE NUMTEST = 562949953421313 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 HU.P15 WHERE NUMTEST = 562949953421314;"
             EXEC SQL SELECT COUNT(*) INTO :int1
               FROM HU.P15 WHERE NUMTEST = 562949953421314 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 0; its value is ", int1
             if (int1  NOT =  0) then
               MOVE 0 TO flag
             END-IF

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

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

      ******************** END TEST0515 ********************
      ******************** BEGIN TEST0524 *******************
             MOVE 1 TO flag

      *This test is based on dml056 TEST0246

             DISPLAY " TEST0524 "
             DISPLAY " FIPS sizing: 100 Items in a SELECT list"
             DISPLAY "References:"
             DISPLAY " FIPS 16.6 -- Sizing for database constructs"
             DISPLAY " - - - - - - - - - - - - - - - - - - -"

             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

             DISPLAY "DELETE FROM HU.T100;"
             EXEC SQL DELETE FROM HU.T100 END-EXEC
             MOVE SQLCODE TO SQL-COD

             DISPLAY "INSERT INTO HU.T100 VALUES ('00', '01', '02',"
             DISPLAY " '03', '04', '05', '06', '07', '08', '09', '0a',
      -    " '0b', '0c',"
             DISPLAY " '0d', '0e', '0f', '10', '11', '12', '13', '14',
      -    " '15', '16',"
             DISPLAY " '17', '18', '19', '1a', '1b', '1c', '1d', '1e',
      -    " '1f', '20',"
             DISPLAY " '21', '22', '23', '24', '25', '26', '27', '28',
      -    " '29', '2a',"
             DISPLAY " '2b', '2c', '2d', '2e', '2f', '30', '31', '32',
      -    " '33', '34',"
             DISPLAY " '35', '36', '37', '38', '39', '3a', '3b', '3c',
      -    " '3d', '3e',"
             DISPLAY " '3f', '40', '41', '42', '43', '44', '45', '46',
      -    " '47', '48',"
             DISPLAY " '49', '4a', '4b', '4c', '4d', '4e', '4f', '50',
      -    " '51', '52',"
             DISPLAY " '53', '54', '55', '56', '57', '58', '59', '5a',
      -    " '5b', '5c',"
             DISPLAY " '5d', '5e', '5f', '60', '61', '62', '63');"
             EXEC SQL INSERT INTO HU.T100 VALUES ('00', '01', '02',
               '03', '04', '05', '06', '07', '08', '09', '0a', '0b',
             '0c',
               '0d', '0e', '0f', '10', '11', '12', '13', '14', '15',
             '16',
               '17', '18', '19', '1a', '1b', '1c', '1d', '1e', '1f',
             '20',
               '21', '22', '23', '24', '25', '26', '27', '28', '29',
             '2a',
               '2b', '2c', '2d', '2e', '2f', '30', '31', '32', '33',
             '34',
               '35', '36', '37', '38', '39', '3a', '3b', '3c', '3d',
             '3e',
               '3f', '40', '41', '42', '43', '44', '45', '46', '47',
             '48',
               '49', '4a', '4b', '4c', '4d', '4e', '4f', '50', '51',
             '52',
               '53', '54', '55', '56', '57', '58', '59', '5a', '5b',
             '5c',
               '5d', '5e', '5f', '60', '61', '62', '63') END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             MOVE "xx" TO cv00
             MOVE "xx" TO cv01
             MOVE "xx" TO cv02
             MOVE "xx" TO cv03
             MOVE "xx" TO cv04
             MOVE "xx" TO cv05
             MOVE "xx" TO cv06
             MOVE "xx" TO cv07
             MOVE "xx" TO cv08
             MOVE "xx" TO cv09
             MOVE "xx" TO cv10
             MOVE "xx" TO cv11
             MOVE "xx" TO cv12
             MOVE "xx" TO cv13
             MOVE "xx" TO cv14
             MOVE "xx" TO cv15
             MOVE "xx" TO cv16
             MOVE "xx" TO cv17
             MOVE "xx" TO cv18
             MOVE "xx" TO cv19
             MOVE "xx" TO cv20
             MOVE "xx" TO cv21
             MOVE "xx" TO cv22
             MOVE "xx" TO cv23
             MOVE "xx" TO cv24
             MOVE "xx" TO cv25
             MOVE "xx" TO cv26
             MOVE "xx" TO cv27
             MOVE "xx" TO cv28
             MOVE "xx" TO cv29
             MOVE "xx" TO cv30
             MOVE "xx" TO cv31
             MOVE "xx" TO cv32
             MOVE "xx" TO cv33
             MOVE "xx" TO cv34
             MOVE "xx" TO cv35
             MOVE "xx" TO cv36
             MOVE "xx" TO cv37
             MOVE "xx" TO cv38
             MOVE "xx" TO cv39
             MOVE "xx" TO cv40
             MOVE "xx" TO cv41
             MOVE "xx" TO cv42
             MOVE "xx" TO cv43
             MOVE "xx" TO cv44
             MOVE "xx" TO cv45
             MOVE "xx" TO cv46
             MOVE "xx" TO cv47
             MOVE "xx" TO cv48
             MOVE "xx" TO cv49
             MOVE "xx" TO cv50
             MOVE "xx" TO cv51
             MOVE "xx" TO cv52
             MOVE "xx" TO cv53
             MOVE "xx" TO cv54
             MOVE "xx" TO cv55
             MOVE "xx" TO cv56
             MOVE "xx" TO cv57
             MOVE "xx" TO cv58
             MOVE "xx" TO cv59
             MOVE "xx" TO cv60
             MOVE "xx" TO cv61
             MOVE "xx" TO cv62
             MOVE "xx" TO cv63
             MOVE "xx" TO cv64
             MOVE "xx" TO cv65
             MOVE "xx" TO cv66
             MOVE "xx" TO cv67
             MOVE "xx" TO cv68
             MOVE "xx" TO cv69
             MOVE "xx" TO cv70
             MOVE "xx" TO cv71
             MOVE "xx" TO cv72
             MOVE "xx" TO cv73
             MOVE "xx" TO cv74
             MOVE "xx" TO cv75
             MOVE "xx" TO cv76
             MOVE "xx" TO cv77
             MOVE "xx" TO cv78
             MOVE "xx" TO cv79
             MOVE "xx" TO cv80
             MOVE "xx" TO cv81
             MOVE "xx" TO cv82
             MOVE "xx" TO cv83
             MOVE "xx" TO cv84
             MOVE "xx" TO cv85
             MOVE "xx" TO cv86
             MOVE "xx" TO cv87
             MOVE "xx" TO cv88
             MOVE "xx" TO cv89
             MOVE "xx" TO cv90
             MOVE "xx" TO cv91
             MOVE "xx" TO cv92
             MOVE "xx" TO cv93
             MOVE "xx" TO cv94
             MOVE "xx" TO cv95
             MOVE "xx" TO cv96
             MOVE "xx" TO cv97
             MOVE "xx" TO cv98
             MOVE "xx" TO cv99

             COMPUTE indic1 = -1
             COMPUTE indic2 = -1

             DISPLAY "SELECT"
             DISPLAY " C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11,
      -    " C12, C13, C14,"
             DISPLAY " C15, C16, C17, C18, C19, C20, C21, C22, C23,
      -    " C24, C25, C26,"
             DISPLAY " C27, C28, C29, C30, C31, C32, C33, C34, C35,
      -    " C36, C37, C38,"
             DISPLAY " C39, C40, C41, C42, C43, C44, C45, C46, C47,
      -    " C48, C49, C50,"
             DISPLAY " C51, C52, C53, C54, C55, C56, C57, C58, C59,
      -    " C60, C61, C62,"
             DISPLAY " C63, C64, C65, C66, C67, C68, C69, C70, C71,
      -    " C72, C73, C74,"
             DISPLAY " C75, C76, C77, C78, C79, C80, C81, C82, C83,
      -    " C84, C85, C86,"
             DISPLAY " C87, C88, C89, C90, C91, C92, C93, C94, C95,
      -    " C96, C97, C98,"
             DISPLAY " C99, C100"
             DISPLAY  " "
             DISPLAY " INTO"
             DISPLAY " :cv00, :cv01, :cv02, :cv03, :cv04:indic1,"
             DISPLAY " :cv05, :cv06, :cv07, :cv08, :cv09,"
             DISPLAY " :cv10, :cv11, :cv12, :cv13, :cv14,"
             DISPLAY " :cv15, :cv16, :cv17, :cv18, :cv19,"
             DISPLAY " :cv20, :cv21, :cv22, :cv23, :cv24,"
             DISPLAY " :cv25, :cv26, :cv27, :cv28, :cv29,"
             DISPLAY " :cv30, :cv31, :cv32, :cv33, :cv34,"
             DISPLAY " :cv35, :cv36, :cv37, :cv38, :cv39,"
             DISPLAY " :cv40, :cv41, :cv42, :cv43, :cv44,"
             DISPLAY " :cv45, :cv46, :cv47, :cv48, :cv49,"
             DISPLAY " :cv50, :cv51, :cv52, :cv53, :cv54,"
             DISPLAY " :cv55, :cv56, :cv57, :cv58, :cv59,"
             DISPLAY " :cv60, :cv61, :cv62, :cv63, :cv64,"
             DISPLAY " :cv65, :cv66, :cv67, :cv68, :cv69,"
             DISPLAY " :cv70, :cv71, :cv72, :cv73, :cv74,"
             DISPLAY " :cv75, :cv76, :cv77, :cv78, :cv79,"
             DISPLAY " :cv80, :cv81, :cv82, :cv83, :cv84,"
             DISPLAY " :cv85, :cv86, :cv87, :cv88, :cv89,"
             DISPLAY " :cv90, :cv91, :cv92, :cv93, :cv94,"
             DISPLAY " :cv95, :cv96, :cv97, :cv98, :cv99:indic2"
             DISPLAY  " "
             DISPLAY " FROM HU.T100;"

             EXEC SQL SELECT
               C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, C12, C13,
             C14,
               C15, C16, C17, C18, C19, C20, C21, C22, C23, C24, C25,
             C26,
               C27, C28, C29, C30, C31, C32, C33, C34, C35, C36, C37,
             C38,
               C39, C40, C41, C42, C43, C44, C45, C46, C47, C48, C49,
             C50,
               C51, C52, C53, C54, C55, C56, C57, C58, C59, C60, C61,
             C62,
               C63, C64, C65, C66, C67, C68, C69, C70, C71, C72, C73,
             C74,
               C75, C76, C77, C78, C79, C80, C81, C82, C83, C84, C85,
             C86,
               C87, C88, C89, C90, C91, C92, C93, C94, C95, C96, C97,
             C98,
               C99, C100

               INTO
               :cv00, :cv01, :cv02, :cv03, :cv04:indic1,
               :cv05, :cv06, :cv07, :cv08, :cv09,
               :cv10, :cv11, :cv12, :cv13, :cv14,
               :cv15, :cv16, :cv17, :cv18, :cv19,
               :cv20, :cv21, :cv22, :cv23, :cv24,
               :cv25, :cv26, :cv27, :cv28, :cv29,
               :cv30, :cv31, :cv32, :cv33, :cv34,
               :cv35, :cv36, :cv37, :cv38, :cv39,
               :cv40, :cv41, :cv42, :cv43, :cv44,
               :cv45, :cv46, :cv47, :cv48, :cv49,
               :cv50, :cv51, :cv52, :cv53, :cv54,
               :cv55, :cv56, :cv57, :cv58, :cv59,
               :cv60, :cv61, :cv62, :cv63, :cv64,
               :cv65, :cv66, :cv67, :cv68, :cv69,
               :cv70, :cv71, :cv72, :cv73, :cv74,
               :cv75, :cv76, :cv77, :cv78, :cv79,
               :cv80, :cv81, :cv82, :cv83, :cv84,
               :cv85, :cv86, :cv87, :cv88, :cv89,
               :cv90, :cv91, :cv92, :cv93, :cv94,
               :cv95, :cv96, :cv97, :cv98, :cv99:indic2

               FROM HU.T100 END-EXEC
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY "indic1 should be 0; its value is ", indic1
             if (indic1  NOT =  0) then
               MOVE 0 TO flag
             END-IF
             DISPLAY "indic2 should be 0; its value is ", indic2
             if (indic2  NOT =  0) then
               MOVE 0 TO flag
             END-IF
             DISPLAY "cv00 should be '00'; its value is ", cv00
             if (cv00  NOT  =   "00") then
               MOVE 0 TO flag
             END-IF
             DISPLAY "cv49 should be '31'; its value is ", cv49
             if (cv49  NOT  =   "31") then
               MOVE 0 TO flag
             END-IF
             DISPLAY "cv66 should be '42'; its value is ", cv66
             if (cv66  NOT  =   "42") then
               MOVE 0 TO flag
             END-IF
             DISPLAY "cv99 should be '63'; its value is ", cv99
             if (cv99  NOT  =   "63") then
               MOVE 0 TO flag
             END-IF

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

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

      ******************** END TEST0524 ********************
      ******************** BEGIN TEST0525 *******************
             MOVE 1 TO flag

             DISPLAY " TEST0525 "
             DISPLAY "FIPS sizing: 15 Table references in SQL
      -    " statement"
             DISPLAY "References:"
             DISPLAY " FIPS 16.6 -- Sizing for database constructs"
             DISPLAY " - - - - - - - - - - - - - - - - - - -"

             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

      *VS2 counts 3
      *VS1 and VSTAFF3 count 2
      *All others count 1

             DISPLAY "DECLARE SILLY CURSOR FOR"
             DISPLAY " SELECT COUNT(*) FROM"
             DISPLAY " HU.WORKS T01, HU.PROJ T02, HU.STAFF T03,"
             DISPLAY " USIG T04, U_SIG T05, BASE_VS1 T06, VS1 T07,"
             DISPLAY " VS2 T08, HU.VSTAFF3 T09, BASE_WCOV T10"
             DISPLAY " WHERE T03.EMPNUM > 'E1';"

             EXEC SQL DECLARE SILLY CURSOR FOR
               SELECT COUNT(*) FROM
               HU.WORKS T01, HU.PROJ T02, HU.STAFF T03,
               USIG T04, U_SIG T05, BASE_VS1 T06, VS1 T07,
               VS2 T08, HU.VSTAFF3 T09, BASE_WCOV T10
               WHERE T03.EMPNUM > 'E1' END-EXEC

      *Put 1 row in BASE_WCOV

             DISPLAY "DELETE FROM BASE_WCOV;"
             EXEC SQL DELETE FROM BASE_WCOV END-EXEC
             MOVE SQLCODE TO SQL-COD

             DISPLAY "INSERT INTO BASE_WCOV VALUES (1);"
             EXEC SQL INSERT INTO BASE_WCOV VALUES (1) END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Speed up the query.  Only E2 survives.

             DISPLAY "DELETE FROM HU.STAFF WHERE EMPNUM > 'E2';"
             EXEC SQL DELETE FROM HU.STAFF WHERE EMPNUM > 'E2' END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *Rows:
      *T01  12
      *T02   6
      *T03   1
      *T04   2
      *T05   2
      *T06   4
      *T07   2
      *T08   4
      *T09   5
      *T10   1
      *--------
      * 46080

             DISPLAY "OPEN SILLY;"
             EXEC SQL OPEN SILLY END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             COMPUTE int1 = -1
             DISPLAY "FETCH SILLY INTO :int1;"
             EXEC SQL FETCH SILLY INTO :int1 END-EXEC
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "int1 should be 46080; its value is ", int1
             if (int1  NOT =  46080) then
               MOVE 0 TO flag
             END-IF

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

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

      ******************** END TEST0525 ********************

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

quality96%

¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.15Angebot ¤

*Eine klare Vorstellung vom Zielzustand

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.