IDENTIFICATION DIVISION .PROGRAM-ID . SDL026BYADDING12CH.ENVIRONMENT DIVISION .CONFIGURATION SECTION .SOURCE-COMPUTER . xyz.OBJECT-COMPUTER . xyz.DATA DIVISION .WORKING-STORAGE SECTION . * Standard COBOL (file "SDL026BYADDING12CH.SCO") calling SQL * procedures in file "SDL026BYADDING12CH.MCO" **************************************************************** * * COMMENT SECTION * * DATE 1989/06/26 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. * * SDL026BYADDING12CH.SCO * WRITTEN BY: S HURWITZ * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE * * THIS ROUTINE TESTS 18 CHARACTER LENGTH FOR AN IDENTIFIER * * REFERENCES * AMERICAN NATIONAL STANDARD database language - SQL * X3.135-1989 * Section 5.3 SR 3) * FIPS 127-1 * **************************************************************** * EXEC SQL BEGIN DECLARE SECTION END-EXEC PIC X(4).PIC X(4).PIC S9(4) DISPLAY SIGN LEADING SEPARATE . * EXEC SQL END DECLARE SECTION END-EXEC PIC X(18).PIC X(18).PIC S9(9) DISPLAY SIGN LEADING SEPARATE .PIC S9(9) COMP .PIC S9(4) DISPLAY SIGN LEADING SEPARATE .PIC S9(9) DISPLAY SIGN LEADING SEPARATE .PIC S9(4) DISPLAY SIGN LEADING SEPARATE . * date_time declaration * PIC 9(6).PIC 9(8).PROCEDURE DIVISION .MOVE 0 TO ctMOVE "CANWEPARSELENGTH18" TO uidCALL "AUTHID" USING uidMOVE "not logged in, not" TO uidxCALL "AUTHCK" USING SQLCODE uidxMOVE SQLCODE TO SQL-CODif (uid NOT = uidx) then DISPLAY "ERROR: User " uid " expected." DISPLAY "User " uidx " connected." DISPLAY " " STOP RUN END-IF MOVE 0 TO errcntDISPLAY "SQL Test Suite, V6.0, Module COBOL, sdl026.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-TIMEDISPLAY "===============================================" DISPLAY " TEST0237 " DISPLAY " Tests 18 character length for an identifier " DISPLAY " Reference X3.135-89 section 5.3 3); 5.4 " DISPLAY " - - - - - - - - - - - - - - - - - - -" DISPLAY "*** CREATE SCHEMA AUTHORIZATION CANWEPARSELENGTH18 " DISPLAY "*** CREATE TABLE CHARACTER18TABLE18 " DISPLAY "*** (CHARS18NAME18CHARX CHAR(4) " DISPLAY "*** CHARS18NAME18CHARS CHAR(4)) " DISPLAY "***CREATE VIEW " CHARACTERS18VIEW18(LONGNAME18LONGNAME) " DISPLAY "*** AS SELECT CHARS18NAME18CHARS " DISPLAY "*** FROM CHARACTER18TABLE18 " DISPLAY "*** WHERE CHARS18NAME18CHARS <> 'long'; " MOVE 99 TO indic1byadding12ch * EXEC SQL DELETE FROM CHARACTER18TABLE18; CALL "SUB1" USING SQLCODEMOVE SQLCODE TO SQL-COD * EXEC SQL INSERT INTO CHARACTERS18VIEW18 (LONGNAME18LONGNAME) * VALUES ('VALU') END-EXEC CALL "SUB2" USING SQLCODEMOVE SQLCODE TO SQL-COD * EXEC SQL COMMIT WORK; CALL "SUB3" USING SQLCODEMOVE SQLCODE TO SQL-COD * EXEC SQL UPDATE CHARACTER18TABLE18 SET CHARS18NAME18CHARS = * 'VAL4' WHERE CHARS18NAME18CHARS = 'VALU' END-EXEC CALL "SUB4" USING SQLCODEMOVE SQLCODE TO SQL-COD * EXEC SQL COMMIT WORK; CALL "SUB5" USING SQLCODEMOVE SQLCODE TO SQL-COD * EXEC SQL SELECT * INTO :MAKE18BYADDING12CH :indic1byadding12ch * FROM CANWEPARSELENGTH18.CHARACTERS18VIEW18 END-EXEC CALL "SUB6IS18CHARLENGTH" USING MOVE SQLCODE TO SQL-COD * EXEC SQL DECLARE CURSOR18LONGCURSOR CURSOR FOR * SELECT CORRELATIONNAMES18.CHARS18NAME18CHARS * FROM CHARACTER18TABLE18 CORRELATIONNAMES18 * WHERE CORRELATIONNAMES18.CHARS18NAME18CHARS * = 'VAL4' END-EXEC * EXEC SQL OPEN CURSOR18LONGCURSOR; CALL "SUB7" USING SQLCODEMOVE SQLCODE TO SQL-COD * EXEC SQL FETCH * CURSOR18LONGCURSOR INTO :TOBE18BYADDING12CH :indic1byadding12ch * END-EXEC CALL "SUB8" USING MOVE SQLCODE TO SQL-CODMOVE indic1byadding12ch TO DISP1 * EXEC SQL CLOSE CURSOR18LONGCURSOR; CALL "SUB9" USING SQLCODEMOVE SQLCODE TO SQL-COD * EXEC SQL DELETE FROM CHARACTER18TABLE18; CALL "SUB10" USING SQLCODEMOVE SQLCODE TO SQL-CODDISPLAY " *** TOBE18BYADDING12CH & MAKE18BYADDING12CH "should both be VAL4 & indic1byadding12ch = 0 " DISPLAY " TOBE18BYADDING12CH = " , TOBE18BYADDING12CH " MAKE18BYADDING12CH = " , MAKE18BYADDING12CH DISPLAY " indic1byadding12ch = " , DISP1 " " if ( TOBE18BYADDING12CH = "VAL4" ) then MOVE 1 TO ctEND-IF if (MAKE18BYADDING12CH = "VAL4" AND indic1byadding12ch = 0)then COMPUTE ct = ct + 1END-IF if ( ct = 2) then DISPLAY " *** pass *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0237','pass','MCO') END-EXEC CALL "SUB11" USING SQLCODEMOVE SQLCODE TO SQL-CODelse DISPLAY " sdl026.sco *** fail *** " * EXEC SQL INSERT INTO HU.TESTREPORT * VALUES('0237','fail','MCO') END-EXEC ADD 1 TO errcntCALL "SUB12" USING SQLCODEMOVE SQLCODE TO SQL-CODEND-IF DISPLAY "===============================================" * EXEC SQL COMMIT WORK; CALL "SUB13" USING SQLCODEMOVE SQLCODE TO SQL-COD **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOP RUN . * **** Procedures for PERFORM statements quality 100%
¤ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet)
¤ *© Formatika GbR, Deutschland
