| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL P/ Datei vom 4.1.2008 mit Größe 23 kB |
|
Quelle suntab2.cob Sprache: Cobol |
|||||||||
|
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.19 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
2026-03-28