|
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
[ Verzeichnis aufwärts0.29unsichere Verbindung
Übersetzung europäischer Sprachen durch Browser
]
|
