Quelle yts781.cob Sprache: Cobol

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

      * Standard COBOL (file "YTS781.SCO") calling SQL
      * procedures in file "YTS781.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
      *
      * YTS781.SCO
      * WRITTEN BY:  Susan Watters
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE
      *
      * Set local time zone - valid value
      *
      *
      * REFERENCES
      *   16.5 GR1a <set local time zone statement>, LOCAL
      *   16.5 GR1b <set local time zone statement>, <interval
      *             value expression>
      *   6.6  GR3  <extract expression>
      *   6.15 F    <interval value expression>
      *   F#41      Time zone specification
      *   F#5       DATETIME data types
      *
      * DATE LAST ALTERED 02.01.96 CTS5 Hand-over Test
      * 24/10/95 Table Inserts Corrected
      *
      * QA Status: Full FC
      *
      * Revised by DWF 1996-03-18
      *   Added rollback after authid
      *   Fixed syntax errors
      *   Removed EXEC SQL from printf
      *   Delete pre-existing stuff in TTIME
      *   Match up statement with printf
      *   Removed or rewrote broken/confusing math and logic
      *   Fixed expected results
      *   Removed duplicate cursor definition
      ****************************************************************

      * EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01  SQLCODE PIC S9(9) COMP.
       01  SQLSTATE PIC  X(5).
       01  h PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  m PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  pk1 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  yr PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  mon PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  dya PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  mni PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  hr PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  min2 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  hr2 PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  co PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  co2 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  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  i PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  flag PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  tmin PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  thr PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
       01  tday PIC S9(4) 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, yts781.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 TEST7536 *******************
             MOVE 1 TO flag

             DISPLAY " TEST7536 "
             DISPLAY " Set local time zone - valid value"
             DISPLAY "References:"
             DISPLAY " 16.5 GR1a
      -    " statement>,LOCAL"
             DISPLAY " 16.5 GR1b ,"
             DISPLAY " "
             DISPLAY " 6.6 GR3 "
             DISPLAY " 6.15 F "
             DISPLAY " F#41 Time zone specification"
             DISPLAY " F#5 DATETIME data types"
             DISPLAY " - - - - - - - - - - - - - - - - - - -"

             COMPUTE SQLCODE = -1
             MOVE "xxxxx" TO SQLSTATE

      *set local time zone to UTC

      *It does not appear that this has to be outside of a transaction

             DISPLAY "SET TIME ZONE INTERVAL '00:00' HOUR TO MINUTE;"
      *  EXEC SQL SET TIME ZONE INTERVAL '00:00' HOUR TO MINUTE
      * ;
             CALL "SUB3" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *insert values into table at UTC

      *insert values for noon
             DISPLAY "populate the table"
             DISPLAY "=================="

             DISPLAY "DELETE FROM TTIME_BASE;"
      *  EXEC SQL DELETE FROM TTIME_BASE;
             CALL "SUB4" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "INSERT INTO TTIME VALUES"
             DISPLAY "(1,TIME '12:00:00', TIMESTAMP '1995-04-10
      -    " 12:00:00');"
      *  EXEC SQL INSERT INTO TTIME VALUES
      *    (1, TIME '12:00:00', TIMESTAMP '1995-04-10 12:00:00')
      * ;
             CALL "SUB5" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *insert values in the first two hours of the day

             DISPLAY "INSERT INTO TTIME VALUES"
             DISPLAY "(2, TIME '00:15:22', TIMESTAMP '1995-04-10
      -    " 01:45:33');"
      *  EXEC SQL INSERT INTO TTIME VALUES
      *    (2, TIME '00:15:22', TIMESTAMP '1995-04-10 01:45:33')
      * ;
             CALL "SUB6" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *insert values in the last two hours of the day

             DISPLAY "INSERT INTO TTIME VALUES"
             DISPLAY "(3, TIME '23:28:54',TIMESTAMP '1995-04-10
      -    " 22:54:12');"
      *  EXEC SQL INSERT INTO TTIME VALUES
      *    (3, TIME '23:28:54', TIMESTAMP '1995-04-10 22:54:12')
      * ;
             CALL "SUB7" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *insert values in the first half of the day

             DISPLAY "INSERT INTO TTIME VALUES"
             DISPLAY "(4, TIME '06:31:01', TIMESTAMP '1995-04-10
      -    " 11:59:59');"
      *  EXEC SQL INSERT INTO TTIME VALUES
      *    (4, TIME '06:31:01', TIMESTAMP '1995-04-10 11:59:59')
      * ;
             CALL "SUB8" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *insert values in the last half of the day

             DISPLAY "INSERT INTO TTIME VALUES"
             DISPLAY "(5, TIME '18:49:34', TIMESTAMP '1995-04-10
      -    " 19:30:02');"
      *  EXEC SQL INSERT INTO TTIME VALUES
      *    (5, TIME '18:49:34', TIMESTAMP '1995-04-10 19:30:02')
      * ;
             CALL "SUB9" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *set database to local time

             DISPLAY "set the database to local time"
             DISPLAY "=============================="

             DISPLAY "SET TIME ZONE LOCAL;"
      *  EXEC SQL SET TIME ZONE LOCAL;
             CALL "SUB10" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *calculate time zone displacement

             DISPLAY "Determine time zone displacement"
             DISPLAY "================================"

             DISPLAY "SELECT EXTRACT (TIMEZONE_HOUR FROM CURRENT_TIME)"
             DISPLAY " INTO :h FROM CTS1.ECCO;"
      *  EXEC SQL SELECT EXTRACT (TIMEZONE_HOUR FROM CURRENT_TIME)
      *    INTO :h FROM CTS1.ECCO;
             CALL "SUB11" USING SQLCODE SQLSTATE h
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "SELECT EXTRACT (TIMEZONE_MINUTE FROM
      -    " CURRENT_TIME)"
             DISPLAY " INTO :m FROM CTS1.ECCO;"
      *  EXEC SQL SELECT EXTRACT (TIMEZONE_MINUTE FROM CURRENT_TIME)
      *    INTO :m FROM CTS1.ECCO;
             CALL "SUB12" USING SQLCODE SQLSTATE m
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

             DISPLAY "Local Time Zone Displacement is ", h, " hrs ", m,
             " mins"

             DISPLAY "retrieve row that contains value for noon"
             DISPLAY "========================================="

      *Declare cursor to fetch values in TTIME
             DISPLAY "Declare cursor to fetch values in TTIME"
             DISPLAY "======================================="

             DISPLAY "DECLARE data781 CURSOR FOR"
             DISPLAY "SELECT PK,"
             DISPLAY " EXTRACT (YEAR FROM TS),"
             DISPLAY " EXTRACT (MONTH FROM TS),"
             DISPLAY " EXTRACT (DAY FROM TS),"
             DISPLAY " EXTRACT (MINUTE FROM TS),"
             DISPLAY " EXTRACT (HOUR FROM TS),"
             DISPLAY " EXTRACT (MINUTE FROM TT),"
             DISPLAY " EXTRACT (HOUR FROM TT)"
             DISPLAY "FROM TTIME"
             DISPLAY "ORDER BY PK;"
      *  EXEC SQL DECLARE data781 CURSOR FOR
      *    SELECT PK,
      *    EXTRACT (YEAR FROM TS),
      *    EXTRACT (MONTH FROM TS),
      *    EXTRACT (DAY FROM TS),
      *    EXTRACT (MINUTE FROM TS),
      *    EXTRACT (HOUR FROM TS),
      *    EXTRACT (MINUTE FROM TT),
      *    EXTRACT (HOUR FROM TT)
      *    FROM TTIME
      *    ORDER BY PK END-EXEC

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

      *FETCH data781

             DISPLAY "Fetch all rows in table TTIME"
             DISPLAY "============================="

             MOVE 65 TO pk1
             MOVE 65 TO yr
             MOVE 65 TO mon
             MOVE 65 TO dya
             MOVE 65 TO mni
             MOVE 65 TO hr
             MOVE 65 TO min2
             MOVE 65 TO hr2
             DISPLAY "FETCH data781 INTO"
             DISPLAY ":pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2"
      *  EXEC SQL FETCH data781 INTO
      *    :pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;
             CALL "SUB14" USING SQLCODE SQLSTATE pk1 yr mon dya mni hr
             min2 hr2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK

             MOVE m TO tmin
             COMPUTE thr = 12 + h
             MOVE 10 TO tday
             if (tmin  <  0) then
               COMPUTE tmin = tmin + 60
               COMPUTE thr = thr - 1
             END-IF
             if (tmin  NOT <  60) then
               COMPUTE tmin = tmin - 60
               COMPUTE thr = thr + 1
             END-IF
             if (thr  <  0) then
               COMPUTE thr = thr + 24
               COMPUTE tday = tday - 1
             END-IF
             if (thr  NOT <  24) then
               COMPUTE thr = thr - 24
               COMPUTE tday = tday + 1
             END-IF

             DISPLAY "min should be ", tmin, "; its value is ", mni
             DISPLAY "hr should be ", thr, "; its value is ", hr
             DISPLAY "day should be ", tday, "; its value is ", dya
             DISPLAY "mon should be 4; its value is ", mon
             DISPLAY "yr should be 1995; its value is ", yr
             if (mni  NOT =  tmin  OR  hr  NOT =  thr  OR  dya  NOT =
             tday) then
               MOVE 0 TO flag
             END-IF
             if (mon  NOT =  4  OR  yr  NOT =  1995) then
               MOVE 0 TO flag
             END-IF

      *TIME is same as TIMESTAMP for this row

             DISPLAY "min2 should be ", tmin, "; its value is ", min2
             DISPLAY "hr2 should be ", thr, "; its value is ", hr2
             if (min2  NOT =  tmin  OR  hr2  NOT =  thr) then
               MOVE 0 TO flag
             END-IF

      *initialise all host variables
             COMPUTE yr = -99
             MOVE 99 TO mon
             MOVE 99 TO dya
             MOVE 99 TO mni
             MOVE 99 TO hr
             MOVE 99 TO min2
             MOVE 99 TO hr2

             DISPLAY "FETCH data781 INTO"
             DISPLAY ":pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;"
      *  EXEC SQL FETCH data781 INTO
      *    :pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;
             CALL "SUB15" USING SQLCODE SQLSTATE pk1 yr mon dya mni hr
             min2 hr2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK

             COMPUTE tmin = 45 + m
             COMPUTE thr = 1 + h
             MOVE 10 TO tday
             if (tmin  <  0) then
               COMPUTE tmin = tmin + 60
               COMPUTE thr = thr - 1
             END-IF
             if (tmin  NOT <  60) then
               COMPUTE tmin = tmin - 60
               COMPUTE thr = thr + 1
             END-IF
             if (thr  <  0) then
               COMPUTE thr = thr + 24
               COMPUTE tday = tday - 1
             END-IF
             if (thr  NOT <  24) then
               COMPUTE thr = thr - 24
               COMPUTE tday = tday + 1
             END-IF

             DISPLAY "min should be ", tmin, "; its value is ", mni
             DISPLAY "hr should be ", thr, "; its value is ", hr
             DISPLAY "day should be ", tday, "; its value is ", dya
             DISPLAY "mon should be 4; its value is ", mon
             DISPLAY "yr should be 1995; its value is ", yr
             if (mni  NOT =  tmin  OR  hr  NOT =  thr  OR  dya  NOT =
             tday) then
               MOVE 0 TO flag
             END-IF
             if (mon  NOT =  4  OR  yr  NOT =  1995) then
               MOVE 0 TO flag
             END-IF

             COMPUTE tmin = 15 + m
             MOVE h TO thr
             if (tmin  <  0) then
               COMPUTE tmin = tmin + 60
               COMPUTE thr = thr - 1
             END-IF
             if (tmin  NOT <  60) then
               COMPUTE tmin = tmin - 60
               COMPUTE thr = thr + 1
             END-IF
             if (thr  <  0) then
               COMPUTE thr = thr + 24
             END-IF
             if (thr  NOT <  24) then
               COMPUTE thr = thr - 24
             END-IF

             DISPLAY "min2 should be ", tmin, "; its value is ", min2
             DISPLAY "hr2 should be ", thr, "; its value is ", hr2
             if (min2  NOT =  tmin  OR  hr2  NOT =  thr) then
               MOVE 0 TO flag
             END-IF

      *FETCH data781

      *initialise all host variables
             COMPUTE yr = -99
             MOVE 99 TO mon
             MOVE 99 TO dya
             MOVE 99 TO mni
             MOVE 99 TO hr
             MOVE 99 TO min2
             MOVE 99 TO hr2

             DISPLAY "FETCH data781 INTO"
             DISPLAY ":pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;"
      *  EXEC SQL FETCH data781 INTO
      *    :pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;
             CALL "SUB16" USING SQLCODE SQLSTATE pk1 yr mon dya mni hr
             min2 hr2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK

             COMPUTE tmin = 54 + m
             COMPUTE thr = 22 + h
             MOVE 10 TO tday
             if (tmin  <  0) then
               COMPUTE tmin = tmin + 60
               COMPUTE thr = thr - 1
             END-IF
             if (tmin  NOT <  60) then
               COMPUTE tmin = tmin - 60
               COMPUTE thr = thr + 1
             END-IF
             if (thr  <  0) then
               COMPUTE thr = thr + 24
               COMPUTE tday = tday - 1
             END-IF
             if (thr  NOT <  24) then
               COMPUTE thr = thr - 24
               COMPUTE tday = tday + 1
             END-IF

             DISPLAY "min should be ", tmin, "; its value is ", mni
             DISPLAY "hr should be ", thr, "; its value is ", hr
             DISPLAY "day should be ", tday, "; its value is ", dya
             DISPLAY "mon should be 4; its value is ", mon
             DISPLAY "yr should be 1995; its value is ", yr
             if (mni  NOT =  tmin  OR  hr  NOT =  thr  OR  dya  NOT =
             tday) then
               MOVE 0 TO flag
             END-IF
             if (mon  NOT =  4  OR  yr  NOT =  1995) then
               MOVE 0 TO flag
             END-IF

             COMPUTE tmin = 28 + m
             COMPUTE thr = 23 + h
             if (tmin  <  0) then
               COMPUTE tmin = tmin + 60
               COMPUTE thr = thr - 1
             END-IF
             if (tmin  NOT <  60) then
               COMPUTE tmin = tmin - 60
               COMPUTE thr = thr + 1
             END-IF
             if (thr  <  0) then
               COMPUTE thr = thr + 24
             END-IF
             if (thr  NOT <  24) then
               COMPUTE thr = thr - 24
             END-IF

             DISPLAY "min2 should be ", tmin, "; its value is ", min2
             DISPLAY "hr2 should be ", thr, "; its value is ", hr2
             if (min2  NOT =  tmin  OR  hr2  NOT =  thr) then
               MOVE 0 TO flag
             END-IF

      *FETCH data781

      *initialise all host variables
             COMPUTE yr = -99
             MOVE 99 TO mon
             MOVE 99 TO dya
             MOVE 99 TO mni
             MOVE 99 TO hr
             MOVE 99 TO min2
             MOVE 99 TO hr2

             DISPLAY "FETCH data781 INTO"
             DISPLAY ":pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;"
      *  EXEC SQL FETCH data781 INTO
      *    :pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;
             CALL "SUB17" USING SQLCODE SQLSTATE pk1 yr mon dya mni hr
             min2 hr2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK

             COMPUTE tmin = 59 + m
             COMPUTE thr = 11 + h
             MOVE 10 TO tday
             if (tmin  <  0) then
               COMPUTE tmin = tmin + 60
               COMPUTE thr = thr - 1
             END-IF
             if (tmin  NOT <  60) then
               COMPUTE tmin = tmin - 60
               COMPUTE thr = thr + 1
             END-IF
             if (thr  <  0) then
               COMPUTE thr = thr + 24
               COMPUTE tday = tday - 1
             END-IF
             if (thr  NOT <  24) then
               COMPUTE thr = thr - 24
               COMPUTE tday = tday + 1
             END-IF

             DISPLAY "min should be ", tmin, "; its value is ", mni
             DISPLAY "hr should be ", thr, "; its value is ", hr
             DISPLAY "day should be ", tday, "; its value is ", dya
             DISPLAY "mon should be 4; its value is ", mon
             DISPLAY "yr should be 1995; its value is ", yr
             if (mni  NOT =  tmin  OR  hr  NOT =  thr  OR  dya  NOT =
             tday) then
               MOVE 0 TO flag
             END-IF
             if (mon  NOT =  4  OR  yr  NOT =  1995) then
               MOVE 0 TO flag
             END-IF

             COMPUTE tmin = 31 + m
             COMPUTE thr = 6 + h
             if (tmin  <  0) then
               COMPUTE tmin = tmin + 60
               COMPUTE thr = thr - 1
             END-IF
             if (tmin  NOT <  60) then
               COMPUTE tmin = tmin - 60
               COMPUTE thr = thr + 1
             END-IF
             if (thr  <  0) then
               COMPUTE thr = thr + 24
             END-IF
             if (thr  NOT <  24) then
               COMPUTE thr = thr - 24
             END-IF

             DISPLAY "min2 should be ", tmin, "; its value is ", min2
             DISPLAY "hr2 should be ", thr, "; its value is ", hr2
             if (min2  NOT =  tmin  OR  hr2  NOT =  thr) then
               MOVE 0 TO flag
             END-IF

      *FETCH data781

      *initialise all host variables
             COMPUTE yr = -99
             MOVE 99 TO mon
             MOVE 99 TO dya
             MOVE 99 TO mni
             MOVE 99 TO hr
             MOVE 99 TO min2
             MOVE 99 TO hr2

             DISPLAY "FETCH data781 INTO"
             DISPLAY ":pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;"
      *  EXEC SQL FETCH data781 INTO
      *    :pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;
             CALL "SUB18" USING SQLCODE SQLSTATE pk1 yr mon dya mni hr
             min2 hr2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK

             COMPUTE tmin = 30 + m
             COMPUTE thr = 19 + h
             MOVE 10 TO tday
             if (tmin  <  0) then
               COMPUTE tmin = tmin + 60
               COMPUTE thr = thr - 1
             END-IF
             if (tmin  NOT <  60) then
               COMPUTE tmin = tmin - 60
               COMPUTE thr = thr + 1
             END-IF
             if (thr  <  0) then
               COMPUTE thr = thr + 24
               COMPUTE tday = tday - 1
             END-IF
             if (thr  NOT <  24) then
               COMPUTE thr = thr - 24
               COMPUTE tday = tday + 1
             END-IF

             DISPLAY "min should be ", tmin, "; its value is ", mni
             DISPLAY "hr should be ", thr, "; its value is ", hr
             DISPLAY "day should be ", tday, "; its value is ", dya
             DISPLAY "mon should be 4; its value is ", mon
             DISPLAY "yr should be 1995; its value is ", yr
             if (mni  NOT =  tmin  OR  hr  NOT =  thr  OR  dya  NOT =
             tday) then
               MOVE 0 TO flag
             END-IF
             if (mon  NOT =  4  OR  yr  NOT =  1995) then
               MOVE 0 TO flag
             END-IF

             COMPUTE tmin = 49 + m
             COMPUTE thr = 18 + h
             if (tmin  <  0) then
               COMPUTE tmin = tmin + 60
               COMPUTE thr = thr - 1
             END-IF
             if (tmin  NOT <  60) then
               COMPUTE tmin = tmin - 60
               COMPUTE thr = thr + 1
             END-IF
             if (thr  <  0) then
               COMPUTE thr = thr + 24
             END-IF
             if (thr  NOT <  24) then
               COMPUTE thr = thr - 24
             END-IF

             DISPLAY "min2 should be ", tmin, "; its value is ", min2
             DISPLAY "hr2 should be ", thr, "; its value is ", hr2
             if (min2  NOT =  tmin  OR  hr2  NOT =  thr) then
               MOVE 0 TO flag
             END-IF

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

      *set time zone to value other than local

             DISPLAY "SET TIME ZONE INTERVAL '05:41' HOUR TO MINUTE;"
      *  EXEC SQL SET TIME ZONE INTERVAL '05:41' HOUR TO MINUTE
      * ;
             CALL "SUB20" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD

           PERFORM CHCKOK
             DISPLAY  " "

      *FETCH each row in table TTIME
      *and check values are altered correctly

             DISPLAY "Check each row in TTIME is updated correctly"
             DISPLAY "============================================"

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

      *initialise all host variables
             MOVE 0 TO pk1
             COMPUTE yr = -99
             MOVE 99 TO mon
             MOVE 99 TO dya
             MOVE 99 TO mni
             MOVE 99 TO hr
             MOVE 99 TO min2
             MOVE 99 TO hr2

             DISPLAY "FETCH data781 INTO"
             DISPLAY ":pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;"
      *  EXEC SQL FETCH data781 INTO
      *    :pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;
             CALL "SUB22" USING SQLCODE SQLSTATE pk1 yr mon dya mni hr
             min2 hr2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "pk1 should be 1; its value is ", pk1
             DISPLAY "yr should be 1995; its value is ", yr
             DISPLAY "mon should be 4; its value is ", mon
             DISPLAY "day should be 10; its value is ", dya
             DISPLAY "hr should be 17; its value is ", hr
             DISPLAY "min should be 41; its value is ", mni
             DISPLAY "hr2 should be 17; its value is ", hr2
             DISPLAY "min2 should be 41; its value is ", min2
             if (pk1  NOT =  1  OR  yr  NOT =  1995  OR  mon  NOT =  4)
             then
               MOVE 0 TO flag
             END-IF
             if (dya  NOT =  10  OR  hr  NOT =  17  OR  mni  NOT =  41)
             then
               MOVE 0 TO flag
             END-IF
             if (hr2  NOT =  17  OR  min2  NOT =  41) then
               MOVE 0 TO flag
             END-IF

             MOVE 0 TO pk1
             COMPUTE yr = -99
             MOVE 99 TO mon
             MOVE 99 TO dya
             MOVE 99 TO mni
             MOVE 99 TO hr
             MOVE 99 TO min2
             MOVE 99 TO hr2

             DISPLAY "FETCH data781 INTO"
             DISPLAY ":pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;"
      *  EXEC SQL FETCH data781 INTO
      *    :pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;
             CALL "SUB23" USING SQLCODE SQLSTATE pk1 yr mon dya mni hr
             min2 hr2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "pk1 should be 2; its value is ", pk1
             DISPLAY "yr should be 1995; its value is ", yr
             DISPLAY "mon should be 4; its value is ", mon
             DISPLAY "day should be 10; its value is ", dya
             DISPLAY "hr should be 7; its value is ", hr
             DISPLAY "min should be 26; its value is ", mni
             DISPLAY "hr2 should be 5; its value is ", hr2
             DISPLAY "min2 should be 56; its value is ", min2
             if (pk1  NOT =  2  OR  yr  NOT =  1995  OR  mon  NOT =  4)
             then
               MOVE 0 TO flag
             END-IF
             if (dya  NOT =  10  OR  hr  NOT =  7  OR  mni  NOT =  26)
             then
               MOVE 0 TO flag
             END-IF
             if (hr2  NOT =  5  OR  min2  NOT =  56) then
               MOVE 0 TO flag
             END-IF

             MOVE 0 TO pk1
             COMPUTE yr = -99
             MOVE 99 TO mon
             MOVE 99 TO dya
             MOVE 99 TO mni
             MOVE 99 TO hr
             MOVE 99 TO min2
             MOVE 99 TO hr2

             DISPLAY "FETCH data781 INTO"
             DISPLAY ":pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;"
      *  EXEC SQL FETCH data781 INTO
      *    :pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;
             CALL "SUB24" USING SQLCODE SQLSTATE pk1 yr mon dya mni hr
             min2 hr2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "pk1 should be 3; its value is ", pk1
             DISPLAY "yr should be 1995; its value is ", yr
             DISPLAY "mon should be 4; its value is ", mon
             DISPLAY "day should be 11; its value is ", dya
             DISPLAY "hr should be 4; its value is ", hr
             DISPLAY "min should be 35; its value is ", mni
             DISPLAY "hr2 should be 5; its value is ", hr2
             DISPLAY "min2 should be 9; its value is ", min2
             if (pk1  NOT =  3  OR  yr  NOT =  1995  OR  mon  NOT =  4)
             then
               MOVE 0 TO flag
             END-IF
             if (dya  NOT =  11  OR  hr  NOT =  4  OR  mni  NOT =  35)
             then
               MOVE 0 TO flag
             END-IF
             if (hr2  NOT =  5  OR  min2  NOT =  9) then
               MOVE 0 TO flag
             END-IF

             MOVE 0 TO pk1
             COMPUTE yr = -99
             MOVE 99 TO mon
             MOVE 99 TO dya
             MOVE 99 TO mni
             MOVE 99 TO hr
             MOVE 99 TO min2
             MOVE 99 TO hr2

             DISPLAY "FETCH data781 INTO"
             DISPLAY ":pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;"
      *  EXEC SQL FETCH data781 INTO
      *    :pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;
             CALL "SUB25" USING SQLCODE SQLSTATE pk1 yr mon dya mni hr
             min2 hr2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "pk1 should be 4; its value is ", pk1
             DISPLAY "yr should be 1995; its value is ", yr
             DISPLAY "mon should be 4; its value is ", mon
             DISPLAY "day should be 10; its value is ", dya
             DISPLAY "hr should be 17; its value is ", hr
             DISPLAY "min should be 40; its value is ", mni
             DISPLAY "hr2 should be 12; its value is ", hr2
             DISPLAY "min2 should be 12; its value is ", min2
             if (pk1  NOT =  4  OR  yr  NOT =  1995  OR  mon  NOT =  4)
             then
               MOVE 0 TO flag
             END-IF
             if (dya  NOT =  10  OR  hr  NOT =  17  OR  mni  NOT =  40)
             then
               MOVE 0 TO flag
             END-IF
             if (hr2  NOT =  12  OR  min2  NOT =  12) then
               MOVE 0 TO flag
             END-IF

             MOVE 0 TO pk1
             COMPUTE yr = -99
             MOVE 99 TO mon
             MOVE 99 TO dya
             MOVE 99 TO mni
             MOVE 99 TO hr
             MOVE 99 TO min2
             MOVE 99 TO hr2

             DISPLAY "FETCH data781 INTO"
             DISPLAY ":pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;"
      *  EXEC SQL FETCH data781 INTO
      *    :pk1, :yr, :mon, :dya, :mni, :hr, :min2, :hr2;
             CALL "SUB26" USING SQLCODE SQLSTATE pk1 yr mon dya mni hr
             min2 hr2
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "pk1 should be 5; its value is ", pk1
             DISPLAY "yr should be 1995; its value is ", yr
             DISPLAY "mon should be 4; its value is ", mon
             DISPLAY "day should be 11; its value is ", dya
             DISPLAY "hr should be 1; its value is ", hr
             DISPLAY "min should be 11; its value is ", mni
             DISPLAY "hr2 should be 0; its value is ", hr2
             DISPLAY "min2 should be 30; its value is ", min2
             if (pk1  NOT =  5  OR  yr  NOT =  1995  OR  mon  NOT =  4)
             then
               MOVE 0 TO flag
             END-IF
             if (dya  NOT =  11  OR  hr  NOT =  1  OR  mni  NOT =  11)
             then
               MOVE 0 TO flag
             END-IF
             if (hr2  NOT =  0  OR  min2  NOT =  30) then
               MOVE 0 TO flag
             END-IF

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

      *set local time zone to -12:58

             DISPLAY "SET TIME ZONE INTERVAL '-12:58' HOUR TO MINUTE;"
      *  EXEC SQL SET TIME ZONE INTERVAL '-12:58' HOUR TO MINUTE
      * ;
             CALL "SUB28" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *retrieve count of rows where value in TTV is within
      *the range 5:00 - 11:00

             MOVE 99 TO co
             DISPLAY "SELECT COUNT (*) INTO :co FROM TTIME"
             DISPLAY "WHERE TT BETWEEN"
             DISPLAY "CAST (TIME '05:00:00' AS TIME WITH TIME ZONE) AND"
             DISPLAY "CAST (TIME '11:00:00' AS TIME WITH TIME ZONE);"
      *  EXEC SQL SELECT COUNT (*) INTO :co FROM TTIME
      *    WHERE TT BETWEEN
      *    CAST (TIME '05:00:00' AS TIME WITH TIME ZONE) AND
      *    CAST (TIME '11:00:00' AS TIME WITH TIME ZONE);
             CALL "SUB29" USING SQLCODE SQLSTATE co
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "co should be 2; its value is ", co
             if (co  NOT =  2) then
               MOVE 0 TO flag
             END-IF

      *set local time zone to 12:27

             DISPLAY "SET TIME ZONE INTERVAL '12:27' HOUR TO MINUTE;"
      *  EXEC SQL SET TIME ZONE INTERVAL '12:27' HOUR TO MINUTE
      * ;
             CALL "SUB30" USING SQLCODE SQLSTATE
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY  " "

      *retrieve count of rows where value in TTV is within
      *the range 5:00 - 11:00

             MOVE 99 TO co
             DISPLAY "SELECT COUNT (*) INTO :co FROM TTIME"
             DISPLAY "WHERE TT BETWEEN"
             DISPLAY "CAST (TIME '05:00:00' AS TIME WITH TIME ZONE) AND"
             DISPLAY "CAST (TIME '11:00:00' AS TIME WITH TIME ZONE);"
      *  EXEC SQL SELECT COUNT (*) INTO :co FROM TTIME
      *    WHERE TT BETWEEN
      *    CAST (TIME '05:00:00' AS TIME WITH TIME ZONE) AND
      *    CAST (TIME '11:00:00' AS TIME WITH TIME ZONE);
             CALL "SUB31" USING SQLCODE SQLSTATE co
             MOVE SQLCODE TO SQL-COD
           PERFORM CHCKOK
             DISPLAY "co should be 1; its value is ", co
             if (co  NOT =  1) then
               MOVE 0 TO flag
             END-IF

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

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

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

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

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

quality100%

¤ Dauer der Verarbeitung: 0.21 Sekunden (vorverarbeitet) ¤

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.