| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 28 kB |
|
SSL suntab2.cob Sprache: Cobol |
|||||||||
|
IDENTIFICATION DIVISION.
PROGRAM-ID. SUNTAB2. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * Standard COBOL (file "SUNTAB2.SCO") calling SQL * procedures in file "SUNTAB2.MCO" **************************************************************** * * COMMENT SECTION * * DATE 1989/02/24 STANDARD 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.SCO * WRITTEN BY: SUN DAJUN * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL 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 SQLCODE PIC S9(9) COMP. 01 errcnt PIC S9(4) DISPLAY SIGN LEADING SEPARATE. * EXEC SQL END DECLARE SECTION END-EXEC 01 uid PIC X(18). 01 uidx PIC X(18). 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, Module COBOL, suntab2.sco" 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; CALL "SUB1" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ1_P; CALL "SUB2" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ2_F1; CALL "SUB3" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ2_F2; CALL "SUB4" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ2_F3; CALL "SUB5" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ2_F4; CALL "SUB6" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ2_F5; CALL "SUB7" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ2_F6; CALL "SUB8" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ2_F7; CALL "SUB9" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ2_F8; CALL "SUB10" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ2_F9; CALL "SUB11" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ2_F10; CALL "SUB12" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ2_P; CALL "SUB13" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ3_F; CALL "SUB14" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ3_P1; CALL "SUB15" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ3_P2; CALL "SUB16" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ3_P3; CALL "SUB17" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ3_P4; CALL "SUB18" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ3_P5; CALL "SUB19" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ3_P6; CALL "SUB20" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ3_P7; CALL "SUB21" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ3_P8; CALL "SUB22" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ3_P9; CALL "SUB23" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM SIZ3_P10; CALL "SUB24" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_P VALUES * ('E1','TTT',1,'SSS',10,'RRR','HHH','YYY',20) END-EXEC CALL "SUB25" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_P VALUES * ('E1','TTS',1,'SSS',10,'RRR','HHH','YYY',21) END-EXEC CALL "SUB26" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_P VALUES * ('E2','TTT',1,'SSS',10,'RRR','HHH','YYY',22) END-EXEC CALL "SUB27" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_P VALUES * ('E3','TTT',1,'SSS',11,'RRR','HHH','YYY',23) END-EXEC CALL "SUB28" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_P VALUES * ('E4','TTT',2,'SSS',10,'RRR','HHH','YYY',24) END-EXEC CALL "SUB29" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_P VALUES * ('E1','TTS',3,'SSS',10,'RRR','HHH','YYY',25) END-EXEC CALL "SUB30" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_P VALUES * ('E2','TTT',1,'SSS',10,'TRR','HHH','YYY',26) END-EXEC CALL "SUB31" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_P VALUES * ('E3','TTT',4,'SSS',11,'RRR','HHH','YYY',27) END-EXEC CALL "SUB32" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_F VALUES * ('E1','TTT',1,'SSS',10,'RRR','YYY',90,20) END-EXEC CALL "SUB33" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_F VALUES * ('E1','TTS',1,'SSS',10,'RRR','YYY',91,20) END-EXEC CALL "SUB34" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_F VALUES * ('E2','TTT',1,'SSS',10,'RRR','YYY',92,20) END-EXEC CALL "SUB35" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_F VALUES * ('E3','TTT',1,'SSS',11,'RRR','YYY',93,20) END-EXEC CALL "SUB36" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_F VALUES * ('E4','TTT',2,'SSS',10,'RRR','YYY',94,20) END-EXEC CALL "SUB37" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_F VALUES * ('E1','TTS',3,'SSS',10,'RRR','YYY',95,20) END-EXEC CALL "SUB38" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_F VALUES * ('E2','TTT',1,'SSS',10,'TRR','YYY',96,20) END-EXEC CALL "SUB39" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ1_F VALUES * ('E2','TTT',1,'SSS',10,'TRR','YYY',97,20) END-EXEC CALL "SUB40" USING SQLCODE 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 CALL "SUB41" USING SQLCODE 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 CALL "SUB42" USING SQLCODE 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 CALL "SUB43" USING SQLCODE 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 CALL "SUB44" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F1 VALUES (' A','AAA'); CALL "SUB45" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F1 VALUES (' C','AAB'); CALL "SUB46" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F1 VALUES (' C','AAC'); CALL "SUB47" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F1 VALUES (' D','AAD'); CALL "SUB48" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F2 VALUES (' E','BBA'); CALL "SUB49" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F2 VALUES (' E','BBB'); CALL "SUB50" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F2 VALUES (' C','BBC'); CALL "SUB51" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F2 VALUES (' D','BBD'); CALL "SUB52" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F3 VALUES (1,'CCA'); CALL "SUB53" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F3 VALUES (1,'CCB'); CALL "SUB54" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F3 VALUES (2,'CCC'); CALL "SUB55" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F3 VALUES (3,'CCD'); CALL "SUB56" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F4 VALUES (' E','DDA'); CALL "SUB57" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F4 VALUES (' F','DDB'); CALL "SUB58" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F4 VALUES (' C','DDC'); CALL "SUB59" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F4 VALUES (' D','DDD'); CALL "SUB60" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F5 VALUES (4,'EEA'); CALL "SUB61" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F5 VALUES (4,'EEB'); CALL "SUB62" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F5 VALUES (2,'EEC'); CALL "SUB63" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F5 VALUES (3,'EED'); CALL "SUB64" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F6 VALUES (' E','FFA'); CALL "SUB65" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F6 VALUES (' F','FFB'); CALL "SUB66" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F6 VALUES (' G','FFC'); CALL "SUB67" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F6 VALUES (' D','FFD'); CALL "SUB68" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F7 VALUES (' H','GGA'); CALL "SUB69" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F7 VALUES (' F','GGB'); CALL "SUB70" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F7 VALUES (' G','GGC'); CALL "SUB71" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F7 VALUES (' H','GGD'); CALL "SUB72" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F8 VALUES (4,'HHA'); CALL "SUB73" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F8 VALUES (4,'HHB'); CALL "SUB74" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F8 VALUES (5,'HHC'); CALL "SUB75" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F8 VALUES (3,'HHD'); CALL "SUB76" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F9 VALUES (4,'JJA'); CALL "SUB77" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F9 VALUES (4,'JJB'); CALL "SUB78" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F9 VALUES (6,'JJC'); CALL "SUB79" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F9 VALUES (7,'JJD'); CALL "SUB80" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F10 VALUES (5,'KKA'); CALL "SUB81" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F10 VALUES (5,'KKB'); CALL "SUB82" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F10 VALUES (7,'KKC'); CALL "SUB83" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ2_F10 VALUES (8,'KKD'); CALL "SUB84" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P1 VALUES (' A','AAA'); CALL "SUB85" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P1 VALUES (' B','AAB'); CALL "SUB86" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P1 VALUES (' C','AAC'); CALL "SUB87" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P1 VALUES (' D','AAD'); CALL "SUB88" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P2 VALUES (' B','BBA'); CALL "SUB89" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P2 VALUES (' C','BBB'); CALL "SUB90" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P2 VALUES (' D','BBC'); CALL "SUB91" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P2 VALUES (' E','BBD'); CALL "SUB92" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P3 VALUES (1,'CCA'); CALL "SUB93" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P3 VALUES (2,'CCB'); CALL "SUB94" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P3 VALUES (3,'CCC'); CALL "SUB95" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P3 VALUES (4,'CCD'); CALL "SUB96" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P4 VALUES (' E','DDA'); CALL "SUB97" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P4 VALUES (' F','DDB'); CALL "SUB98" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P4 VALUES (' C','DDC'); CALL "SUB99" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P4 VALUES (' D','DDD'); CALL "SUB100" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P5 VALUES (4,'EEA'); CALL "SUB101" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P5 VALUES (5,'EEB'); CALL "SUB102" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P5 VALUES (2,'EEC'); CALL "SUB103" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P5 VALUES (3,'EED'); CALL "SUB104" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P6 VALUES (' E','FFA'); CALL "SUB105" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P6 VALUES (' F','FFB'); CALL "SUB106" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P6 VALUES (' G','FFC'); CALL "SUB107" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P6 VALUES (' D','FFD'); CALL "SUB108" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P7 VALUES (' H','GGA'); CALL "SUB109" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P7 VALUES (' F','GGB'); CALL "SUB110" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P7 VALUES (' G','GGC'); CALL "SUB111" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P7 VALUES (' E','GGD'); CALL "SUB112" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P8 VALUES (4,'HHA'); CALL "SUB113" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P8 VALUES (6,'HHB'); CALL "SUB114" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P8 VALUES (5,'HHC'); CALL "SUB115" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P8 VALUES (3,'HHD'); CALL "SUB116" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P9 VALUES (4,'JJA'); CALL "SUB117" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P9 VALUES (5,'JJB'); CALL "SUB118" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P9 VALUES (6,'JJC'); CALL "SUB119" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P9 VALUES (7,'JJD'); CALL "SUB120" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P10 VALUES (5,'KKA'); CALL "SUB121" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P10 VALUES (6,'KKB'); CALL "SUB122" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P10 VALUES (7,'KKC'); CALL "SUB123" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO SIZ3_P10 VALUES (8,'KKD'); CALL "SUB124" USING SQLCODE 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 CALL "SUB125" USING SQLCODE 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 CALL "SUB126" USING SQLCODE 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 CALL "SUB127" USING SQLCODE 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 CALL "SUB128" USING SQLCODE 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 CALL "SUB129" USING SQLCODE 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 CALL "SUB130" USING SQLCODE 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 CALL "SUB131" USING SQLCODE 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 CALL "SUB132" USING SQLCODE MOVE SQLCODE TO SQL-COD * EXEC SQL SELECT COUNT(*) INTO :count1 FROM SIZ1_P; CALL "SUB133" USING SQLCODE count1 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; CALL "SUB134" USING SQLCODE count1 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; CALL "SUB135" USING SQLCODE count1 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; CALL "SUB136" USING SQLCODE count1 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; CALL "SUB137" USING SQLCODE count1 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; CALL "SUB138" USING SQLCODE count1 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; CALL "SUB139" USING SQLCODE count1 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; CALL "SUB140" USING SQLCODE count1 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; CALL "SUB141" USING SQLCODE count1 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; CALL "SUB142" USING SQLCODE count1 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; CALL "SUB143" USING SQLCODE count1 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; CALL "SUB144" USING SQLCODE count1 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 CALL "SUB145" USING SQLCODE count1 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; CALL "SUB146" USING SQLCODE count1 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; CALL "SUB147" USING SQLCODE count1 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; CALL "SUB148" USING SQLCODE count1 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; CALL "SUB149" USING SQLCODE count1 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; CALL "SUB150" USING SQLCODE count1 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; CALL "SUB151" USING SQLCODE count1 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; CALL "SUB152" USING SQLCODE count1 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; CALL "SUB153" USING SQLCODE count1 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; CALL "SUB154" USING SQLCODE count1 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 CALL "SUB155" USING SQLCODE count1 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; CALL "SUB156" USING SQLCODE count1 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; CALL "SUB157" USING SQLCODE MOVE SQLCODE TO SQL-COD **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOP RUN. * **** Procedures for PERFORM statements ¤ Dauer der Verarbeitung: 0.24 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
2026-03-28