|
IDENTIFICATION DIVISION.
PROGRAM-ID. SUNTAB2.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. xyz.
OBJECT-COMPUTER. xyz.
DATA DIVISION.
WORKING-STORAGE SECTION.
* EMBEDDED COBOL (file "SUNTAB2.PCO")
****************************************************************
*
* COMMENT SECTION
*
* DATE 1989/02/24 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.
*
* SUNTAB2.PCO
* WRITTEN BY: SUN DAJUN
* TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
*
* This routine initializes the contents of tables:
* SIZ1_P, SIZ1_F
* SIZ2_P, SIZ2_F1 through SIZ2_F10
* SIZ3_P1 through SIZ3_P10, SIZ3_F
* This routine may be run at any time to re-initialize tables.
*
****************************************************************
EXEC SQL BEGIN DECLARE SECTION END-EXEC
01 count1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 uid PIC X(18).
01 uidx PIC X(18).
EXEC SQL END DECLARE SECTION END-EXEC
01 SQLCODE PIC S9(9) COMP.
01 errcnt PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
01 err PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01 SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
* date_time declaration *
01 TO-DAY PIC 9(6).
01 THE-TIME PIC 9(8).
PROCEDURE DIVISION.
P0.
MOVE "SUN" TO uid
CALL "AUTHID" USING uid
MOVE 0 TO errcnt
DISPLAY
"SQL Test Suite, V6.0, Embedded COBOL, suntab2.pco"
DISPLAY " "
DISPLAY
"59-byte ID"
DISPLAY "TEd Version #"
DISPLAY " "
* date_time print *
ACCEPT TO-DAY FROM DATE
ACCEPT THE-TIME FROM TIME
DISPLAY "Date run YYMMDD: " TO-DAY " at hhmmssff: " THE-TIME
EXEC SQL DELETE FROM SIZ1_F END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ1_P END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ2_F1 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ2_F2 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ2_F3 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ2_F4 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ2_F5 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ2_F6 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ2_F7 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ2_F8 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ2_F9 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ2_F10 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ2_P END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ3_F END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ3_P1 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ3_P2 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ3_P3 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ3_P4 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ3_P5 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ3_P6 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ3_P7 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ3_P8 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ3_P9 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL DELETE FROM SIZ3_P10 END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_P VALUES
('E1','TTT',1,'SSS',10,'RRR','HHH','YYY',20) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_P VALUES
('E1','TTS',1,'SSS',10,'RRR','HHH','YYY',21) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_P VALUES
('E2','TTT',1,'SSS',10,'RRR','HHH','YYY',22) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_P VALUES
('E3','TTT',1,'SSS',11,'RRR','HHH','YYY',23) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_P VALUES
('E4','TTT',2,'SSS',10,'RRR','HHH','YYY',24) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_P VALUES
('E1','TTS',3,'SSS',10,'RRR','HHH','YYY',25) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_P VALUES
('E2','TTT',1,'SSS',10,'TRR','HHH','YYY',26) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_P VALUES
('E3','TTT',4,'SSS',11,'RRR','HHH','YYY',27) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_F VALUES
('E1','TTT',1,'SSS',10,'RRR','YYY',90,20) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_F VALUES
('E1','TTS',1,'SSS',10,'RRR','YYY',91,20) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_F VALUES
('E2','TTT',1,'SSS',10,'RRR','YYY',92,20) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_F VALUES
('E3','TTT',1,'SSS',11,'RRR','YYY',93,20) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_F VALUES
('E4','TTT',2,'SSS',10,'RRR','YYY',94,20) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_F VALUES
('E1','TTS',3,'SSS',10,'RRR','YYY',95,20) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_F VALUES
('E2','TTT',1,'SSS',10,'TRR','YYY',96,20) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ1_F VALUES
('E2','TTT',1,'SSS',10,'TRR','YYY',97,20) END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_P VALUES
(' A',' B',1,' C',2,' D',' E',3,4,5,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_P VALUES
(' B',' C',2,' D',3,' E',' F',4,5,6,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_P VALUES
(' C',' D',3,' E',4,' F',' G',5,6,7,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_P VALUES
(' D',' E',4,' F',5,' G',' H',6,7,8,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F1 VALUES (' A','AAA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F1 VALUES (' C','AAB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F1 VALUES (' C','AAC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F1 VALUES (' D','AAD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F2 VALUES (' E','BBA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F2 VALUES (' E','BBB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F2 VALUES (' C','BBC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F2 VALUES (' D','BBD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F3 VALUES (1,'CCA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F3 VALUES (1,'CCB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F3 VALUES (2,'CCC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F3 VALUES (3,'CCD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F4 VALUES (' E','DDA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F4 VALUES (' F','DDB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F4 VALUES (' C','DDC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F4 VALUES (' D','DDD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F5 VALUES (4,'EEA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F5 VALUES (4,'EEB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F5 VALUES (2,'EEC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F5 VALUES (3,'EED') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F6 VALUES (' E','FFA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F6 VALUES (' F','FFB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F6 VALUES (' G','FFC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F6 VALUES (' D','FFD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F7 VALUES (' H','GGA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F7 VALUES (' F','GGB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F7 VALUES (' G','GGC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F7 VALUES (' H','GGD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F8 VALUES (4,'HHA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F8 VALUES (4,'HHB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F8 VALUES (5,'HHC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F8 VALUES (3,'HHD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F9 VALUES (4,'JJA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F9 VALUES (4,'JJB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F9 VALUES (6,'JJC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F9 VALUES (7,'JJD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F10 VALUES (5,'KKA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F10 VALUES (5,'KKB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F10 VALUES (7,'KKC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ2_F10 VALUES (8,'KKD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P1 VALUES (' A','AAA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P1 VALUES (' B','AAB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P1 VALUES (' C','AAC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P1 VALUES (' D','AAD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P2 VALUES (' B','BBA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P2 VALUES (' C','BBB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P2 VALUES (' D','BBC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P2 VALUES (' E','BBD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P3 VALUES (1,'CCA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P3 VALUES (2,'CCB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P3 VALUES (3,'CCC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P3 VALUES (4,'CCD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P4 VALUES (' E','DDA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P4 VALUES (' F','DDB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P4 VALUES (' C','DDC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P4 VALUES (' D','DDD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P5 VALUES (4,'EEA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P5 VALUES (5,'EEB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P5 VALUES (2,'EEC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P5 VALUES (3,'EED') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P6 VALUES (' E','FFA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P6 VALUES (' F','FFB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P6 VALUES (' G','FFC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P6 VALUES (' D','FFD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P7 VALUES (' H','GGA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P7 VALUES (' F','GGB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P7 VALUES (' G','GGC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P7 VALUES (' E','GGD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P8 VALUES (4,'HHA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P8 VALUES (6,'HHB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P8 VALUES (5,'HHC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P8 VALUES (3,'HHD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P9 VALUES (4,'JJA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P9 VALUES (5,'JJB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P9 VALUES (6,'JJC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P9 VALUES (7,'JJD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P10 VALUES (5,'KKA') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P10 VALUES (6,'KKB') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P10 VALUES (7,'KKC') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_P10 VALUES (8,'KKD') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_F VALUES
(' A',' B',1,' C',2,' D',' E',3,4,5,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_F VALUES
(' B',' C',2,' D',3,' E',' F',4,5,6,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_F VALUES
(' C',' D',3,' E',4,' F',' G',5,6,7,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_F VALUES
(' D',' E',4,' F',5,' G',' H',6,7,8,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_F VALUES
(' B',' B',1,' C',2,' D',' E',3,4,5,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_F VALUES
(' C',' C',2,' D',3,' E',' F',4,5,6,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_F VALUES
(' C',' D',3,' E',4,' F',' G',5,6,7,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL INSERT INTO SIZ3_F VALUES
(' D',' E',4,' F',5,' G',' H',6,7,8,'TTT') END-EXEC
MOVE SQLCODE TO SQL-COD
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ1_P END-EXEC
MOVE SQLCODE TO SQL-COD
MOVE 0 TO err
if (count1 NOT = 8) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ1_F END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 8) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ2_P END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ2_F1 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ2_F2 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ2_F3 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ2_F4 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ2_F5 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ2_F6 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ2_F7 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ2_F8 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ2_F9 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ2_F10
END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ3_P1 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ3_P2 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ3_P3 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ3_P4 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ3_P5 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ3_P6 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ3_P7 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ3_P8 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ3_P9 END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ3_P10
END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 4) then
COMPUTE err = err + 1
END-IF
EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ3_F END-EXEC
MOVE SQLCODE TO SQL-COD
if (count1 NOT = 8) then
COMPUTE err = err + 1
END-IF
if (err = 0) then
DISPLAY "SIZ1_P, SIZ1_F, SIZ2_P, SIZ2_F1 through
- " SIZ2_F10,"
DISPLAY " SIZ3_P1 through SIZ3_P10 and SIZ3_F"
DISPLAY " were created successfully!"
else
DISPLAY "***********************************************"
DISPLAY "* ERROR in SIZ1_P, SIZ1_F, *"
DISPLAY "* SIZ2_P, SIZ2_F1 through SIZ2_F10, *"
DISPLAY "* SIZ3_P1 through SIZ3_P10, or SIZ3_F !!! *"
DISPLAY "***********************************************"
END-IF
EXEC SQL COMMIT WORK END-EXEC
MOVE SQLCODE TO SQL-COD
**** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
STOP RUN.
* **** Procedures for PERFORM statements
¤ Dauer der Verarbeitung: 0.12 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.
|
