|
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.
¤ Dauer der Verarbeitung: 0.44 Sekunden
(vorverarbeitet)
¤
|
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.
|
