| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL P/dml100-186/ Datei vom 4.1.2008 mit Größe 103 kB |
|
Quelle dml178.cob Sprache: Cobol |
|||||||||
|
IDENTIFICATION DIVISION.
PROGRAM-ID. DML178. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. xyz. OBJECT-COMPUTER. xyz. DATA DIVISION. WORKING-STORAGE SECTION. * EMBEDDED COBOL (file "DML178.PCO") **************************************************************** * * COMMENT SECTION * * DATE 1996-05-14 EMBEDDED COBOL LANGUAGE * 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. * * DML178.PCO * WRITTEN BY: David Flater * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE * * This routine tests Intermediate SQL. * * REFERENCES * FIPS PUB 127-2 14.2 Intermediate SQL * ANSI SQL-1992 * **************************************************************** EXEC SQL BEGIN DECLARE SECTION END-EXEC 01 SQLCODE PIC S9(9) COMP. 01 SQLSTATE PIC X(5). 01 uid PIC X(18). 01 uidx PIC X(18). 01 int1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int3 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int4 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int5 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int6 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int7 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int8 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int9 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int10 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int11 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int12 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int13 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int14 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int15 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int16 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int17 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int18 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int19 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int20 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int21 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int22 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int23 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int24 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int25 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int26 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int27 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int28 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int29 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int30 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int31 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int32 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int33 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int34 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int35 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int36 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int37 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int38 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int39 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int40 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int41 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int42 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int43 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int44 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int45 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int46 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int47 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int48 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int49 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int50 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int51 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int52 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int53 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int54 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int55 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int56 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int57 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int58 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int59 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int60 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int61 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int62 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int63 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int64 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int65 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int66 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int67 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int68 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int69 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int70 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int71 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int72 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int73 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int74 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int75 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int76 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int77 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int78 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int79 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int80 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int81 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int82 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int83 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int84 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int85 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int86 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int87 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int88 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int89 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int90 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int91 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int92 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int93 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int94 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int95 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int96 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int97 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int98 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int99 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int100 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int101 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int102 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int103 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int104 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int105 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int106 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int107 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int108 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int109 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int110 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int111 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int112 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int113 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int114 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int115 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int116 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int117 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int118 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int119 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int120 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int121 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int122 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int123 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int124 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int125 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int126 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int127 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int128 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int129 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int130 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int131 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int132 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int133 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int134 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int135 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int136 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int137 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int138 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int139 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int140 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int141 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int142 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int143 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int144 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int145 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int146 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int147 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int148 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int149 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int150 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int151 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int152 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int153 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int154 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int155 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int156 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int157 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int158 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int159 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int160 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int161 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int162 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int163 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int164 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int165 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int166 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int167 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int168 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int169 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int170 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int171 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int172 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int173 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int174 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int175 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int176 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int177 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int178 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int179 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int180 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int181 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int182 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int183 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int184 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int185 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int186 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int187 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int188 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int189 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int190 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int191 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int192 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int193 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int194 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int195 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int196 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int197 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int198 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int199 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int200 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int201 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int202 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int203 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int204 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int205 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int206 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int207 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int208 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int209 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int210 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int211 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int212 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int213 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int214 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int215 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int216 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int217 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int218 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int219 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int220 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int221 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int222 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int223 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int224 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int225 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int226 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int227 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int228 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int229 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int230 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int231 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int232 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int233 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int234 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int235 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int236 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int237 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int238 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int239 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int240 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int241 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int242 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int243 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int244 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int245 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int246 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int247 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int248 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int249 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 int250 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. EXEC SQL END DECLARE SECTION END-EXEC 01 norm1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 norm2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 ALPNUM-TABLE VALUE IS "01234ABCDEFGH56789IJKLMNOPQRSTUVWXYZ". 05 ALPNUM PIC X OCCURS 36 TIMES. 01 NORMSQ. 05 NORMSQX PIC X OCCURS 5 TIMES. 01 errcnt PIC S9(9) DISPLAY SIGN LEADING SEPARATE. *date_time declaration 01 TO-DAY PIC 9(6). 01 THE-TIME PIC 9(8). 01 flag PIC S9(9) DISPLAY SIGN LEADING SEPARATE. 01 SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE. PROCEDURE DIVISION. P0. MOVE "FLATER " TO uid CALL "AUTHID" USING uid MOVE "not logged in, not" TO uidx EXEC SQL SELECT USER INTO :uidx FROM HU.ECCO END-EXEC MOVE SQLCODE TO SQL-COD EXEC SQL ROLLBACK WORK END-EXEC MOVE SQLCODE TO SQL-COD if (uid NOT = uidx) then DISPLAY "ERROR: User ", uid, " expected. User ", uidx, " - " connected" STOP RUN END-IF MOVE 0 TO errcnt DISPLAY "SQL Test Suite, V6.0, Embedded COBOL, dml178.pco" DISPLAY "59-byte ID" DISPLAY "TEd Version #" *date_time print ACCEPT TO-DAY FROM DATE ACCEPT THE-TIME FROM TIME DISPLAY "Date run YYMMDD: " TO-DAY " at hhmmssff: " THE-TIME ******************** BEGIN TEST0891 ******************* MOVE 1 TO flag DISPLAY " FIPS sizing TEST0891" DISPLAY "FIPS sizing, 250 columns, 4000 char data - " statement" DISPLAY "References:" DISPLAY " FIPS 16.6 -- Sizing #24, Columns in a table" DISPLAY " FIPS 16.6 -- Sizing #25, Values in an INSERT - " statement" DISPLAY " FIPS 16.6 -- Sizing #26, Set clauses in an - " UPDATE statement" DISPLAY " FIPS 16.6 -- Sizing #41, Items in a SELECT list" DISPLAY " FIPS 16.6 -- Sizing #43, Length of - " statement>" DISPLAY " - - - - - - - - - - - - - - - - - - -" COMPUTE SQLCODE = -1 MOVE "xxxxx" TO SQLSTATE DISPLAY "CREATE TABLE L1 (" DISPLAY "C1 INT, C2 INT, C3 INT, C4 INT, C5 INT, C6 INT, " DISPLAY "C7 INT, C8 INT, C9 INT, C10 INT, C11 INT, C12 INT, - " " DISPLAY "C13 INT, C14 INT, C15 INT, C16 INT, C17 INT, C18 - " INT, " DISPLAY "C19 INT, C20 INT, C21 INT, C22 INT, C23 INT, C24 - " INT, " DISPLAY "C25 INT, C26 INT, C27 INT, C28 INT, C29 INT, C30 - " INT, " DISPLAY "C31 INT, C32 INT, C33 INT, C34 INT, C35 INT, C36 - " INT, " DISPLAY "C37 INT, C38 INT, C39 INT, C40 INT, C41 INT, C42 - " INT, " DISPLAY "C43 INT, C44 INT, C45 INT, C46 INT, C47 INT, C48 - " INT, " DISPLAY "C49 INT, C50 INT, C51 INT, C52 INT, C53 INT, C54 - " INT, " DISPLAY "C55 INT, C56 INT, C57 INT, C58 INT, C59 INT, C60 - " INT, " DISPLAY "C61 INT, C62 INT, C63 INT, C64 INT, C65 INT, C66 - " INT, " DISPLAY "C67 INT, C68 INT, C69 INT, C70 INT, C71 INT, C72 - " INT, " DISPLAY "C73 INT, C74 INT, C75 INT, C76 INT, C77 INT, C78 - " INT, " DISPLAY "C79 INT, C80 INT, C81 INT, C82 INT, C83 INT, C84 - " INT, " DISPLAY "C85 INT, C86 INT, C87 INT, C88 INT, C89 INT, C90 - " INT, " DISPLAY "C91 INT, C92 INT, C93 INT, C94 INT, C95 INT, C96 - " INT, " DISPLAY "C97 INT, C98 INT, C99 INT, C100 INT, C101 INT, - " C102 INT, " DISPLAY "C103 INT, C104 INT, C105 INT, C106 INT, C107 INT, - " C108 INT, " DISPLAY "C109 INT, C110 INT, C111 INT, C112 INT, C113 INT, - " C114 INT, " DISPLAY "C115 INT, C116 INT, C117 INT, C118 INT, C119 INT, - " C120 INT, " DISPLAY "C121 INT, C122 INT, C123 INT, C124 INT, C125 INT, - " C126 INT, " DISPLAY "C127 INT, C128 INT, C129 INT, C130 INT, C131 INT, - " C132 INT, " DISPLAY "C133 INT, C134 INT, C135 INT, C136 INT, C137 INT, - " C138 INT, " DISPLAY "C139 INT, C140 INT, C141 INT, C142 INT, C143 INT, - " C144 INT, " DISPLAY "C145 INT, C146 INT, C147 INT, C148 INT, C149 INT, - " C150 INT, " DISPLAY "C151 INT, C152 INT, C153 INT, C154 INT, C155 INT, - " C156 INT, " DISPLAY "C157 INT, C158 INT, C159 INT, C160 INT, C161 INT, - " C162 INT, " DISPLAY "C163 INT, C164 INT, C165 INT, C166 INT, C167 INT, - " C168 INT, " DISPLAY "C169 INT, C170 INT, C171 INT, C172 INT, C173 INT, - " C174 INT, " DISPLAY "C175 INT, C176 INT, C177 INT, C178 INT, C179 INT, - " C180 INT, " DISPLAY "C181 INT, C182 INT, C183 INT, C184 INT, C185 INT, - " C186 INT, " DISPLAY "C187 INT, C188 INT, C189 INT, C190 INT, C191 INT, - " C192 INT, " DISPLAY "C193 INT, C194 INT, C195 INT, C196 INT, C197 INT, - " C198 INT, " DISPLAY "C199 INT, C200 INT, C201 INT, C202 INT, C203 INT, - " C204 INT, " DISPLAY "C205 INT, C206 INT, C207 INT, C208 INT, C209 INT, - " C210 INT, " DISPLAY "C211 INT, C212 INT, C213 INT, C214 INT, C215 INT, - " C216 INT, " DISPLAY "C217 INT, C218 INT, C219 INT, C220 INT, C221 INT, - " C222 INT, " DISPLAY "C223 INT, C224 INT, C225 INT, C226 INT, C227 INT, - " C228 INT, " DISPLAY "C229 INT, C230 INT, C231 INT, C232 INT, C233 INT, - " C234 INT, " DISPLAY "C235 INT, C236 INT, C237 INT, C238 INT, C239 INT, - " C240 INT, " DISPLAY "C241 INT, C242 INT, C243 INT, C244 INT, C245 INT, - " C246 INT, " DISPLAY "C247 INT, C248 INT, C249 INT, C250 INT);" EXEC SQL CREATE TABLE L1 ( C1 INT, C2 INT, C3 INT, C4 INT, C5 INT, C6 INT, C7 INT, C8 INT, C9 INT, C10 INT, C11 INT, C12 INT, C13 INT, C14 INT, C15 INT, C16 INT, C17 INT, C18 INT, C19 INT, C20 INT, C21 INT, C22 INT, C23 INT, C24 INT, C25 INT, C26 INT, C27 INT, C28 INT, C29 INT, C30 INT, C31 INT, C32 INT, C33 INT, C34 INT, C35 INT, C36 INT, C37 INT, C38 INT, C39 INT, C40 INT, C41 INT, C42 INT, C43 INT, C44 INT, C45 INT, C46 INT, C47 INT, C48 INT, C49 INT, C50 INT, C51 INT, C52 INT, C53 INT, C54 INT, C55 INT, C56 INT, C57 INT, C58 INT, C59 INT, C60 INT, C61 INT, C62 INT, C63 INT, C64 INT, C65 INT, C66 INT, C67 INT, C68 INT, C69 INT, C70 INT, C71 INT, C72 INT, C73 INT, C74 INT, C75 INT, C76 INT, C77 INT, C78 INT, C79 INT, C80 INT, C81 INT, C82 INT, C83 INT, C84 INT, C85 INT, C86 INT, C87 INT, C88 INT, C89 INT, C90 INT, C91 INT, C92 INT, C93 INT, C94 INT, C95 INT, C96 INT, C97 INT, C98 INT, C99 INT, C100 INT, C101 INT, C102 INT, C103 INT, C104 INT, C105 INT, C106 INT, C107 INT, C108 INT, C109 INT, C110 INT, C111 INT, C112 INT, C113 INT, C114 INT, C115 INT, C116 INT, C117 INT, C118 INT, C119 INT, C120 INT, C121 INT, C122 INT, C123 INT, C124 INT, C125 INT, C126 INT, C127 INT, C128 INT, C129 INT, C130 INT, C131 INT, C132 INT, C133 INT, C134 INT, C135 INT, C136 INT, C137 INT, C138 INT, C139 INT, C140 INT, C141 INT, C142 INT, C143 INT, C144 INT, C145 INT, C146 INT, C147 INT, C148 INT, C149 INT, C150 INT, C151 INT, C152 INT, C153 INT, C154 INT, C155 INT, C156 INT, C157 INT, C158 INT, C159 INT, C160 INT, C161 INT, C162 INT, C163 INT, C164 INT, C165 INT, C166 INT, C167 INT, C168 INT, C169 INT, C170 INT, C171 INT, C172 INT, C173 INT, C174 INT, C175 INT, C176 INT, C177 INT, C178 INT, C179 INT, C180 INT, C181 INT, C182 INT, C183 INT, C184 INT, C185 INT, C186 INT, C187 INT, C188 INT, C189 INT, C190 INT, C191 INT, C192 INT, C193 INT, C194 INT, C195 INT, C196 INT, C197 INT, C198 INT, C199 INT, C200 INT, C201 INT, C202 INT, C203 INT, C204 INT, C205 INT, C206 INT, C207 INT, C208 INT, C209 INT, C210 INT, C211 INT, C212 INT, C213 INT, C214 INT, C215 INT, C216 INT, C217 INT, C218 INT, C219 INT, C220 INT, C221 INT, C222 INT, C223 INT, C224 INT, C225 INT, C226 INT, C227 INT, C228 INT, C229 INT, C230 INT, C231 INT, C232 INT, C233 INT, C234 INT, C235 INT, C236 INT, C237 INT, C238 INT, C239 INT, C240 INT, C241 INT, C242 INT, C243 INT, C244 INT, C245 INT, C246 INT, C247 INT, C248 INT, C249 INT, C250 INT) END-EXEC MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " DISPLAY "COMMIT WORK;" EXEC SQL COMMIT WORK END-EXEC MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " DISPLAY "INSERT INTO L1 VALUES (" DISPLAY "1, 2, 3, 4, 5, 6, " DISPLAY "7, 8, 9, 10, 11, 12, " DISPLAY "13, 14, 15, 16, 17, 18, " DISPLAY "19, 20, 21, 22, 23, 24, " DISPLAY "25, 26, 27, 28, 29, 30, " DISPLAY "31, 32, 33, 34, 35, 36, " DISPLAY "37, 38, 39, 40, 41, 42, " DISPLAY "43, 44, 45, 46, 47, 48, " DISPLAY "49, 50, 51, 52, 53, 54, " DISPLAY "55, 56, 57, 58, 59, 60, " DISPLAY "61, 62, 63, 64, 65, 66, " DISPLAY "67, 68, 69, 70, 71, 72, " DISPLAY "73, 74, 75, 76, 77, 78, " DISPLAY "79, 80, 81, 82, 83, 84, " DISPLAY "85, 86, 87, 88, 89, 90, " DISPLAY "91, 92, 93, 94, 95, 96, " DISPLAY "97, 98, 99, 100, 101, 102, " DISPLAY "103, 104, 105, 106, 107, 108, " DISPLAY "109, 110, 111, 112, 113, 114, " DISPLAY "115, 116, 117, 118, 119, 120, " DISPLAY "121, 122, 123, 124, 125, 126, " DISPLAY "127, 128, 129, 130, 131, 132, " DISPLAY "133, 134, 135, 136, 137, 138, " DISPLAY "139, 140, 141, 142, 143, 144, " DISPLAY "145, 146, 147, 148, 149, 150, " DISPLAY "151, 152, 153, 154, 155, 156, " DISPLAY "157, 158, 159, 160, 161, 162, " DISPLAY "163, 164, 165, 166, 167, 168, " DISPLAY "169, 170, 171, 172, 173, 174, " DISPLAY "175, 176, 177, 178, 179, 180, " DISPLAY "181, 182, 183, 184, 185, 186, " DISPLAY "187, 188, 189, 190, 191, 192, " DISPLAY "193, 194, 195, 196, 197, 198, " DISPLAY "199, 200, 201, 202, 203, 204, " DISPLAY "205, 206, 207, 208, 209, 210, " DISPLAY "211, 212, 213, 214, 215, 216, " DISPLAY "217, 218, 219, 220, 221, 222, " DISPLAY "223, 224, 225, 226, 227, 228, " DISPLAY "229, 230, 231, 232, 233, 234, " DISPLAY "235, 236, 237, 238, 239, 240, " DISPLAY "241, 242, 243, 244, 245, 246, " DISPLAY "247, 248, 249, 250" DISPLAY ");" EXEC SQL INSERT INTO L1 VALUES ( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250 ) END-EXEC MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " DISPLAY "The next statement is 4000 characters long, - " including newlines." DISPLAY "UPDATE L1 SET" DISPLAY "C1 = C1 + 1, C2 = C2 + 1, C3 = C3 + 1, " DISPLAY "C4 = C4 + 1, C5 = C5 + 1, C6 = C6 + 1, " DISPLAY "C7 = C7 + 1, C8 = C8 + 1, C9 = C9 + 1, " DISPLAY "C10 = C10 + 1, C11 = C11 + 1, C12 = C12 + 1, " DISPLAY "C13 = C13 + 1, C14 = C14 + 1, C15 = C15 + 1, " DISPLAY "C16 = C16 + 1, C17 = C17 + 1, C18 = C18 + 1, " DISPLAY "C19 = C19 + 1, C20 = C20 + 1, C21 = C21 + 1, " DISPLAY "C22 = C22 + 1, C23 = C23 + 1, C24 = C24 + 1, " DISPLAY "C25 = C25 + 1, C26 = C26 + 1, C27 = C27 + 1, " DISPLAY "C28 = C28 + 1, C29 = C29 + 1, C30 = C30 + 1, " DISPLAY "C31 = C31 + 1, C32 = C32 + 1, C33 = C33 + 1, " DISPLAY "C34 = C34 + 1, C35 = C35 + 1, C36 = C36 + 1, " DISPLAY "C37 = C37 + 1, C38 = C38 + 1, C39 = C39 + 1, " DISPLAY "C40 = C40 + 1, C41 = C41 + 1, C42 = C42 + 1, " DISPLAY "C43 = C43 + 1, C44 = C44 + 1, C45 = C45 + 1, " DISPLAY "C46 = C46 + 1, C47 = C47 + 1, C48 = C48 + 1, " DISPLAY "C49 = C49 + 1, C50 = C50 + 1, C51 = C51 + 1, " DISPLAY "C52 = C52 + 1, C53 = C53 + 1, C54 = C54 + 1, " DISPLAY "C55 = C55 + 1, C56 = C56 + 1, C57 = C57 + 1, " DISPLAY "C58 = C58 + 1, C59 = C59 + 1, C60 = C60 + 1, " DISPLAY "C61 = C61 + 1, C62 = C62 + 1, C63 = C63 + 1, " DISPLAY "C64 = C64 + 1, C65 = C65 + 1, C66 = C66 + 1, " DISPLAY "C67 = C67 + 1, C68 = C68 + 1, C69 = C69 + 1, " DISPLAY "C70 = C70 + 1, C71 = C71 + 1, C72 = C72 + 1, " DISPLAY "C73 = C73 + 1, C74 = C74 + 1, C75 = C75 + 1, " DISPLAY "C76 = C76 + 1, C77 = C77 + 1, C78 = C78 + 1, " DISPLAY "C79 = C79 + 1, C80 = C80 + 1, C81 = C81 + 1, " DISPLAY "C82 = C82 + 1, C83 = C83 + 1, C84 = C84 + 1, " DISPLAY "C85 = C85 + 1, C86 = C86 + 1, C87 = C87 + 1, " DISPLAY "C88 = C88 + 1, C89 = C89 + 1, C90 = C90 + 1, " DISPLAY "C91 = C91 + 1, C92 = C92 + 1, C93 = C93 + 1, " DISPLAY "C94 = C94 + 1, C95 = C95 + 1, C96 = C96 + 1, " DISPLAY "C97 = C97 + 1, C98 = C98 + 1, C99 = C99 + 1, " DISPLAY "C100 = C100 + 1, C101 = C101 + 1, C102 = C102 + 1, - " " DISPLAY "C103 = C103 + 1, C104 = C104 + 1, C105 = C105 + 1, - " " DISPLAY "C106 = C106 + 1, C107 = C107 + 1, C108 = C108 + 1, - " " DISPLAY "C109 = C109 + 1, C110 = C110 + 1, C111 = C111 +1, - " " DISPLAY "C112 = C112 +1, C113 = C113 +1, C114 = C114 +1, " DISPLAY "C115 = C115 +1, C116 = C116 +1, C117 = C117 +1, " DISPLAY "C118 = C118 +1, C119 = C119 +1, C120 = C120 +1, " DISPLAY "C121 = C121 +1, C122 = C122 +1, C123 = C123 +1, " DISPLAY "C124 = C124 +1, C125 = C125 +1, C126 = C126 +1, " DISPLAY "C127 = C127 +1, C128 = C128 +1, C129 = C129 +1, " DISPLAY "C130 = C130 +1, C131 = C131 +1, C132 = C132 +1, " DISPLAY "C133 = C133 +1, C134 = C134 +1, C135 = C135 +1, " DISPLAY "C136 = C136 +1, C137 = C137 +1, C138 = C138 +1, " DISPLAY "C139 = C139 +1, C140 = C140 +1, C141 = C141 +1, " DISPLAY "C142 = C142 +1, C143 = C143 +1, C144 = C144 +1, " DISPLAY "C145 = C145 +1, C146 = C146 +1, C147 = C147 +1, " DISPLAY "C148 = C148 +1, C149 = C149 +1, C150 = C150 +1, " DISPLAY "C151 = C151 +1, C152 = C152 +1, C153 = C153 +1, " DISPLAY "C154 = C154 +1, C155 = C155 +1, C156 = C156 +1, " DISPLAY "C157 = C157 +1, C158 = C158 +1, C159 = C159 +1, " DISPLAY "C160 = C160 +1, C161 = C161 +1, C162 = C162 +1, " DISPLAY "C163 = C163 +1, C164 = C164 +1, C165 = C165 +1, " DISPLAY "C166 = C166 +1, C167 = C167 +1, C168 = C168 +1, " DISPLAY "C169 = C169 +1, C170 = C170 +1, C171 = C171 +1, " DISPLAY "C172 = C172 +1, C173 = C173 +1, C174 = C174 +1, " DISPLAY "C175 = C175 +1, C176 = C176 +1, C177 = C177 +1, " DISPLAY "C178 = C178 +1, C179 = C179 +1, C180 = C180 +1, " DISPLAY "C181 = C181 +1, C182 = C182 +1, C183 = C183 +1, " DISPLAY "C184 = C184 +1, C185 = C185 +1, C186 = C186 +1, " DISPLAY "C187 = C187 +1, C188 = C188 +1, C189 = C189 +1, " DISPLAY "C190 = C190 +1, C191 = C191 +1, C192 = C192 +1, " DISPLAY "C193 = C193 +1, C194 = C194 +1, C195 = C195 +1, " DISPLAY "C196 = C196 +1, C197 = C197 +1, C198 = C198 +1, " DISPLAY "C199 = C199 +1, C200 = C200 +1, C201 = C201 +1, " DISPLAY "C202 = C202 +1, C203 = C203 +1, C204 = C204 +1, " DISPLAY "C205 = C205 +1, C206 = C206 +1, C207 = C207 +1, " DISPLAY "C208 = C208 +1, C209 = C209 +1, C210 = C210 +1, " DISPLAY "C211 = C211 +1, C212 = C212 +1, C213 = C213 +1, " DISPLAY "C214 = C214 +1, C215 = C215 +1, C216 = C216 +1, " DISPLAY "C217 = C217 +1, C218 = C218 +1, C219 = C219 +1, " DISPLAY "C220 = C220 +1, C221 = C221 +1, C222 = C222 +1, " DISPLAY "C223 = C223 +1, C224 = C224 +1, C225 = C225 +1, " DISPLAY "C226 = C226 +1, C227 = C227 +1, C228 = C228 +1, " DISPLAY "C229 = C229 +1, C230 = C230 +1, C231 = C231 +1, " DISPLAY "C232 = C232 +1, C233 = C233 +1, C234 = C234 +1, " DISPLAY "C235 = C235 +1, C236 = C236 +1, C237 = C237 +1, " DISPLAY "C238 = C238 +1, C239 = C239 +1, C240 = C240 +1, " DISPLAY "C241 = C241 +1, C242 = C242 +1, C243 = C243 +1, " DISPLAY "C244 = C244 +1, C245 = C245 +1, C246 = C246 +1, " DISPLAY "C247 = C247 +1, C248 = C248 +1, C249 = C249 +1, " DISPLAY "C250 = C250 +1;" EXEC SQL UPDATE L1 SET C1 = C1 + 1, C2 = C2 + 1, C3 = C3 + 1, C4 = C4 + 1, C5 = C5 + 1, C6 = C6 + 1, C7 = C7 + 1, C8 = C8 + 1, C9 = C9 + 1, C10 = C10 + 1, C11 = C11 + 1, C12 = C12 + 1, C13 = C13 + 1, C14 = C14 + 1, C15 = C15 + 1, C16 = C16 + 1, C17 = C17 + 1, C18 = C18 + 1, C19 = C19 + 1, C20 = C20 + 1, C21 = C21 + 1, C22 = C22 + 1, C23 = C23 + 1, C24 = C24 + 1, C25 = C25 + 1, C26 = C26 + 1, C27 = C27 + 1, C28 = C28 + 1, C29 = C29 + 1, C30 = C30 + 1, C31 = C31 + 1, C32 = C32 + 1, C33 = C33 + 1, C34 = C34 + 1, C35 = C35 + 1, C36 = C36 + 1, C37 = C37 + 1, C38 = C38 + 1, C39 = C39 + 1, C40 = C40 + 1, C41 = C41 + 1, C42 = C42 + 1, C43 = C43 + 1, C44 = C44 + 1, C45 = C45 + 1, C46 = C46 + 1, C47 = C47 + 1, C48 = C48 + 1, C49 = C49 + 1, C50 = C50 + 1, C51 = C51 + 1, C52 = C52 + 1, C53 = C53 + 1, C54 = C54 + 1, C55 = C55 + 1, C56 = C56 + 1, C57 = C57 + 1, C58 = C58 + 1, C59 = C59 + 1, C60 = C60 + 1, C61 = C61 + 1, C62 = C62 + 1, C63 = C63 + 1, C64 = C64 + 1, C65 = C65 + 1, C66 = C66 + 1, C67 = C67 + 1, C68 = C68 + 1, C69 = C69 + 1, C70 = C70 + 1, C71 = C71 + 1, C72 = C72 + 1, C73 = C73 + 1, C74 = C74 + 1, C75 = C75 + 1, C76 = C76 + 1, C77 = C77 + 1, C78 = C78 + 1, C79 = C79 + 1, C80 = C80 + 1, C81 = C81 + 1, C82 = C82 + 1, C83 = C83 + 1, C84 = C84 + 1, C85 = C85 + 1, C86 = C86 + 1, C87 = C87 + 1, C88 = C88 + 1, C89 = C89 + 1, C90 = C90 + 1, C91 = C91 + 1, C92 = C92 + 1, C93 = C93 + 1, C94 = C94 + 1, C95 = C95 + 1, C96 = C96 + 1, C97 = C97 + 1, C98 = C98 + 1, C99 = C99 + 1, C100 = C100 + 1, C101 = C101 + 1, C102 = C102 + 1, C103 = C103 + 1, C104 = C104 + 1, C105 = C105 + 1, C106 = C106 + 1, C107 = C107 + 1, C108 = C108 + 1, C109 = C109 + 1, C110 = C110 + 1, C111 = C111 +1, C112 = C112 +1, C113 = C113 +1, C114 = C114 +1, C115 = C115 +1, C116 = C116 +1, C117 = C117 +1, C118 = C118 +1, C119 = C119 +1, C120 = C120 +1, C121 = C121 +1, C122 = C122 +1, C123 = C123 +1, C124 = C124 +1, C125 = C125 +1, C126 = C126 +1, C127 = C127 +1, C128 = C128 +1, C129 = C129 +1, C130 = C130 +1, C131 = C131 +1, C132 = C132 +1, C133 = C133 +1, C134 = C134 +1, C135 = C135 +1, C136 = C136 +1, C137 = C137 +1, C138 = C138 +1, C139 = C139 +1, C140 = C140 +1, C141 = C141 +1, C142 = C142 +1, C143 = C143 +1, C144 = C144 +1, C145 = C145 +1, C146 = C146 +1, C147 = C147 +1, C148 = C148 +1, C149 = C149 +1, C150 = C150 +1, C151 = C151 +1, C152 = C152 +1, C153 = C153 +1, C154 = C154 +1, C155 = C155 +1, C156 = C156 +1, C157 = C157 +1, C158 = C158 +1, C159 = C159 +1, C160 = C160 +1, C161 = C161 +1, C162 = C162 +1, C163 = C163 +1, C164 = C164 +1, C165 = C165 +1, C166 = C166 +1, C167 = C167 +1, C168 = C168 +1, C169 = C169 +1, C170 = C170 +1, C171 = C171 +1, C172 = C172 +1, C173 = C173 +1, C174 = C174 +1, C175 = C175 +1, C176 = C176 +1, C177 = C177 +1, C178 = C178 +1, C179 = C179 +1, C180 = C180 +1, C181 = C181 +1, C182 = C182 +1, C183 = C183 +1, C184 = C184 +1, C185 = C185 +1, C186 = C186 +1, C187 = C187 +1, C188 = C188 +1, C189 = C189 +1, C190 = C190 +1, C191 = C191 +1, C192 = C192 +1, C193 = C193 +1, C194 = C194 +1, C195 = C195 +1, C196 = C196 +1, C197 = C197 +1, C198 = C198 +1, C199 = C199 +1, C200 = C200 +1, C201 = C201 +1, C202 = C202 +1, C203 = C203 +1, C204 = C204 +1, C205 = C205 +1, C206 = C206 +1, C207 = C207 +1, C208 = C208 +1, C209 = C209 +1, C210 = C210 +1, C211 = C211 +1, C212 = C212 +1, C213 = C213 +1, C214 = C214 +1, C215 = C215 +1, C216 = C216 +1, C217 = C217 +1, C218 = C218 +1, C219 = C219 +1, C220 = C220 +1, C221 = C221 +1, C222 = C222 +1, C223 = C223 +1, C224 = C224 +1, C225 = C225 +1, C226 = C226 +1, C227 = C227 +1, C228 = C228 +1, C229 = C229 +1, C230 = C230 +1, C231 = C231 +1, C232 = C232 +1, C233 = C233 +1, C234 = C234 +1, C235 = C235 +1, C236 = C236 +1, C237 = C237 +1, C238 = C238 +1, C239 = C239 +1, C240 = C240 +1, C241 = C241 +1, C242 = C242 +1, C243 = C243 +1, C244 = C244 +1, C245 = C245 +1, C246 = C246 +1, C247 = C247 +1, C248 = C248 +1, C249 = C249 +1, C250 = C250 +1 END-EXEC MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY " " MOVE 0 TO int1 MOVE 0 TO int2 MOVE 0 TO int3 MOVE 0 TO int4 MOVE 0 TO int5 MOVE 0 TO int6 MOVE 0 TO int7 MOVE 0 TO int8 MOVE 0 TO int9 MOVE 0 TO int10 MOVE 0 TO int11 MOVE 0 TO int12 MOVE 0 TO int13 MOVE 0 TO int14 MOVE 0 TO int15 MOVE 0 TO int16 MOVE 0 TO int17 MOVE 0 TO int18 MOVE 0 TO int19 MOVE 0 TO int20 MOVE 0 TO int21 MOVE 0 TO int22 MOVE 0 TO int23 MOVE 0 TO int24 MOVE 0 TO int25 MOVE 0 TO int26 MOVE 0 TO int27 MOVE 0 TO int28 MOVE 0 TO int29 MOVE 0 TO int30 MOVE 0 TO int31 MOVE 0 TO int32 MOVE 0 TO int33 MOVE 0 TO int34 MOVE 0 TO int35 MOVE 0 TO int36 MOVE 0 TO int37 MOVE 0 TO int38 MOVE 0 TO int39 MOVE 0 TO int40 MOVE 0 TO int41 MOVE 0 TO int42 MOVE 0 TO int43 MOVE 0 TO int44 MOVE 0 TO int45 MOVE 0 TO int46 MOVE 0 TO int47 MOVE 0 TO int48 MOVE 0 TO int49 MOVE 0 TO int50 MOVE 0 TO int51 MOVE 0 TO int52 MOVE 0 TO int53 MOVE 0 TO int54 MOVE 0 TO int55 MOVE 0 TO int56 MOVE 0 TO int57 MOVE 0 TO int58 MOVE 0 TO int59 MOVE 0 TO int60 MOVE 0 TO int61 MOVE 0 TO int62 MOVE 0 TO int63 MOVE 0 TO int64 MOVE 0 TO int65 MOVE 0 TO int66 MOVE 0 TO int67 MOVE 0 TO int68 MOVE 0 TO int69 MOVE 0 TO int70 MOVE 0 TO int71 MOVE 0 TO int72 MOVE 0 TO int73 MOVE 0 TO int74 MOVE 0 TO int75 MOVE 0 TO int76 MOVE 0 TO int77 MOVE 0 TO int78 MOVE 0 TO int79 MOVE 0 TO int80 MOVE 0 TO int81 MOVE 0 TO int82 MOVE 0 TO int83 MOVE 0 TO int84 MOVE 0 TO int85 MOVE 0 TO int86 MOVE 0 TO int87 MOVE 0 TO int88 MOVE 0 TO int89 MOVE 0 TO int90 MOVE 0 TO int91 MOVE 0 TO int92 MOVE 0 TO int93 MOVE 0 TO int94 MOVE 0 TO int95 MOVE 0 TO int96 MOVE 0 TO int97 MOVE 0 TO int98 MOVE 0 TO int99 MOVE 0 TO int100 MOVE 0 TO int101 MOVE 0 TO int102 MOVE 0 TO int103 MOVE 0 TO int104 MOVE 0 TO int105 MOVE 0 TO int106 MOVE 0 TO int107 MOVE 0 TO int108 MOVE 0 TO int109 MOVE 0 TO int110 MOVE 0 TO int111 MOVE 0 TO int112 MOVE 0 TO int113 MOVE 0 TO int114 MOVE 0 TO int115 MOVE 0 TO int116 MOVE 0 TO int117 MOVE 0 TO int118 MOVE 0 TO int119 MOVE 0 TO int120 MOVE 0 TO int121 MOVE 0 TO int122 MOVE 0 TO int123 MOVE 0 TO int124 MOVE 0 TO int125 MOVE 0 TO int126 MOVE 0 TO int127 MOVE 0 TO int128 MOVE 0 TO int129 MOVE 0 TO int130 MOVE 0 TO int131 MOVE 0 TO int132 MOVE 0 TO int133 MOVE 0 TO int134 MOVE 0 TO int135 MOVE 0 TO int136 MOVE 0 TO int137 MOVE 0 TO int138 MOVE 0 TO int139 MOVE 0 TO int140 MOVE 0 TO int141 MOVE 0 TO int142 MOVE 0 TO int143 MOVE 0 TO int144 MOVE 0 TO int145 MOVE 0 TO int146 MOVE 0 TO int147 MOVE 0 TO int148 MOVE 0 TO int149 MOVE 0 TO int150 MOVE 0 TO int151 MOVE 0 TO int152 MOVE 0 TO int153 MOVE 0 TO int154 MOVE 0 TO int155 MOVE 0 TO int156 MOVE 0 TO int157 MOVE 0 TO int158 MOVE 0 TO int159 MOVE 0 TO int160 MOVE 0 TO int161 MOVE 0 TO int162 MOVE 0 TO int163 MOVE 0 TO int164 MOVE 0 TO int165 MOVE 0 TO int166 MOVE 0 TO int167 MOVE 0 TO int168 MOVE 0 TO int169 MOVE 0 TO int170 MOVE 0 TO int171 MOVE 0 TO int172 MOVE 0 TO int173 MOVE 0 TO int174 MOVE 0 TO int175 MOVE 0 TO int176 MOVE 0 TO int177 MOVE 0 TO int178 MOVE 0 TO int179 MOVE 0 TO int180 MOVE 0 TO int181 MOVE 0 TO int182 MOVE 0 TO int183 MOVE 0 TO int184 MOVE 0 TO int185 MOVE 0 TO int186 MOVE 0 TO int187 MOVE 0 TO int188 MOVE 0 TO int189 MOVE 0 TO int190 MOVE 0 TO int191 MOVE 0 TO int192 MOVE 0 TO int193 MOVE 0 TO int194 MOVE 0 TO int195 MOVE 0 TO int196 MOVE 0 TO int197 MOVE 0 TO int198 MOVE 0 TO int199 MOVE 0 TO int200 MOVE 0 TO int201 MOVE 0 TO int202 MOVE 0 TO int203 MOVE 0 TO int204 MOVE 0 TO int205 MOVE 0 TO int206 MOVE 0 TO int207 MOVE 0 TO int208 MOVE 0 TO int209 MOVE 0 TO int210 MOVE 0 TO int211 MOVE 0 TO int212 MOVE 0 TO int213 MOVE 0 TO int214 MOVE 0 TO int215 MOVE 0 TO int216 MOVE 0 TO int217 MOVE 0 TO int218 MOVE 0 TO int219 MOVE 0 TO int220 MOVE 0 TO int221 MOVE 0 TO int222 MOVE 0 TO int223 MOVE 0 TO int224 MOVE 0 TO int225 MOVE 0 TO int226 MOVE 0 TO int227 MOVE 0 TO int228 MOVE 0 TO int229 MOVE 0 TO int230 MOVE 0 TO int231 MOVE 0 TO int232 MOVE 0 TO int233 MOVE 0 TO int234 MOVE 0 TO int235 MOVE 0 TO int236 MOVE 0 TO int237 MOVE 0 TO int238 MOVE 0 TO int239 MOVE 0 TO int240 MOVE 0 TO int241 MOVE 0 TO int242 MOVE 0 TO int243 MOVE 0 TO int244 MOVE 0 TO int245 MOVE 0 TO int246 MOVE 0 TO int247 MOVE 0 TO int248 MOVE 0 TO int249 MOVE 0 TO int250 DISPLAY "SELECT" DISPLAY "C1, C2, C3, C4, C5, C6, " DISPLAY "C7, C8, C9, C10, C11, C12, " DISPLAY "C13, C14, C15, C16, C17, C18, " DISPLAY "C19, C20, C21, C22, C23, C24, " DISPLAY "C25, C26, C27, C28, C29, C30, " DISPLAY "C31, C32, C33, C34, C35, C36, " DISPLAY "C37, C38, C39, C40, C41, C42, " DISPLAY "C43, C44, C45, C46, C47, C48, " DISPLAY "C49, C50, C51, C52, C53, C54, " DISPLAY "C55, C56, C57, C58, C59, C60, " DISPLAY "C61, C62, C63, C64, C65, C66, " DISPLAY "C67, C68, C69, C70, C71, C72, " DISPLAY "C73, C74, C75, C76, C77, C78, " DISPLAY "C79, C80, C81, C82, C83, C84, " DISPLAY "C85, C86, C87, C88, C89, C90, " DISPLAY "C91, C92, C93, C94, C95, C96, " DISPLAY "C97, C98, C99, C100, C101, C102, " DISPLAY "C103, C104, C105, C106, C107, C108, " DISPLAY "C109, C110, C111, C112, C113, C114, " DISPLAY "C115, C116, C117, C118, C119, C120, " DISPLAY "C121, C122, C123, C124, C125, C126, " DISPLAY "C127, C128, C129, C130, C131, C132, " DISPLAY "C133, C134, C135, C136, C137, C138, " DISPLAY "C139, C140, C141, C142, C143, C144, " DISPLAY "C145, C146, C147, C148, C149, C150, " DISPLAY "C151, C152, C153, C154, C155, C156, " DISPLAY "C157, C158, C159, C160, C161, C162, " DISPLAY "C163, C164, C165, C166, C167, C168, " DISPLAY "C169, C170, C171, C172, C173, C174, " DISPLAY "C175, C176, C177, C178, C179, C180, " DISPLAY "C181, C182, C183, C184, C185, C186, " DISPLAY "C187, C188, C189, C190, C191, C192, " DISPLAY "C193, C194, C195, C196, C197, C198, " DISPLAY "C199, C200, C201, C202, C203, C204, " DISPLAY "C205, C206, C207, C208, C209, C210, " DISPLAY "C211, C212, C213, C214, C215, C216, " DISPLAY "C217, C218, C219, C220, C221, C222, " DISPLAY "C223, C224, C225, C226, C227, C228, " DISPLAY "C229, C230, C231, C232, C233, C234, " DISPLAY "C235, C236, C237, C238, C239, C240, " DISPLAY "C241, C242, C243, C244, C245, C246, " DISPLAY "C247, C248, C249, C250" DISPLAY "INTO" DISPLAY ":int1, :int2, :int3, :int4, :int5, :int6, " DISPLAY ":int7, :int8, :int9, :int10, :int11, :int12, " DISPLAY ":int13, :int14, :int15, :int16, :int17, :int18, " DISPLAY ":int19, :int20, :int21, :int22, :int23, :int24, " DISPLAY ":int25, :int26, :int27, :int28, :int29, :int30, " DISPLAY ":int31, :int32, :int33, :int34, :int35, :int36, " DISPLAY ":int37, :int38, :int39, :int40, :int41, :int42, " DISPLAY ":int43, :int44, :int45, :int46, :int47, :int48, " DISPLAY ":int49, :int50, :int51, :int52, :int53, :int54, " DISPLAY ":int55, :int56, :int57, :int58, :int59, :int60, " DISPLAY ":int61, :int62, :int63, :int64, :int65, :int66, " DISPLAY ":int67, :int68, :int69, :int70, :int71, :int72, " DISPLAY ":int73, :int74, :int75, :int76, :int77, :int78, " DISPLAY ":int79, :int80, :int81, :int82, :int83, :int84, " DISPLAY ":int85, :int86, :int87, :int88, :int89, :int90, " DISPLAY ":int91, :int92, :int93, :int94, :int95, :int96, " DISPLAY ":int97, :int98, :int99, :int100, :int101, :int102, - " " DISPLAY ":int103, :int104, :int105, :int106, :int107, - " :int108, " DISPLAY ":int109, :int110, :int111, :int112, :int113, - " :int114, " DISPLAY ":int115, :int116, :int117, :int118, :int119, - " :int120, " DISPLAY ":int121, :int122, :int123, :int124, :int125, - " :int126, " DISPLAY ":int127, :int128, :int129, :int130, :int131, - " :int132, " DISPLAY ":int133, :int134, :int135, :int136, :int137, - " :int138, " DISPLAY ":int139, :int140, :int141, :int142, :int143, - " :int144, " DISPLAY ":int145, :int146, :int147, :int148, :int149, - " :int150, " DISPLAY ":int151, :int152, :int153, :int154, :int155, - " :int156, " DISPLAY ":int157, :int158, :int159, :int160, :int161, - " :int162, " DISPLAY ":int163, :int164, :int165, :int166, :int167, - " :int168, " DISPLAY ":int169, :int170, :int171, :int172, :int173, - " :int174, " DISPLAY ":int175, :int176, :int177, :int178, :int179, - " :int180, " DISPLAY ":int181, :int182, :int183, :int184, :int185, - " :int186, " DISPLAY ":int187, :int188, :int189, :int190, :int191, - " :int192, " DISPLAY ":int193, :int194, :int195, :int196, :int197, - " :int198, " DISPLAY ":int199, :int200, :int201, :int202, :int203, - " :int204, " DISPLAY ":int205, :int206, :int207, :int208, :int209, - " :int210, " DISPLAY ":int211, :int212, :int213, :int214, :int215, - " :int216, " DISPLAY ":int217, :int218, :int219, :int220, :int221, - " :int222, " DISPLAY ":int223, :int224, :int225, :int226, :int227, - " :int228, " DISPLAY ":int229, :int230, :int231, :int232, :int233, - " :int234, " DISPLAY ":int235, :int236, :int237, :int238, :int239, - " :int240, " DISPLAY ":int241, :int242, :int243, :int244, :int245, - " :int246, " DISPLAY ":int247, :int248, :int249, :int250" DISPLAY "FROM L1;" EXEC SQL SELECT C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, C12, C13, C14, C15, C16, C17, C18, C19, C20, C21, C22, C23, C24, C25, C26, C27, C28, C29, C30, C31, C32, C33, C34, C35, C36, C37, C38, C39, C40, C41, C42, C43, C44, C45, C46, C47, C48, C49, C50, C51, C52, C53, C54, C55, C56, C57, C58, C59, C60, C61, C62, C63, C64, C65, C66, C67, C68, C69, C70, C71, C72, C73, C74, C75, C76, C77, C78, C79, C80, C81, C82, C83, C84, C85, C86, C87, C88, C89, C90, C91, C92, C93, C94, C95, C96, C97, C98, C99, C100, C101, C102, C103, C104, C105, C106, C107, C108, C109, C110, C111, C112, C113, C114, C115, C116, C117, C118, C119, C120, C121, C122, C123, C124, C125, C126, C127, C128, C129, C130, C131, C132, C133, C134, C135, C136, C137, C138, C139, C140, C141, C142, C143, C144, C145, C146, C147, C148, C149, C150, C151, C152, C153, C154, C155, C156, C157, C158, C159, C160, C161, C162, C163, C164, C165, C166, C167, C168, C169, C170, C171, C172, C173, C174, C175, C176, C177, C178, C179, C180, C181, C182, C183, C184, C185, C186, C187, C188, C189, C190, C191, C192, C193, C194, C195, C196, C197, C198, C199, C200, C201, C202, C203, C204, C205, C206, C207, C208, C209, C210, C211, C212, C213, C214, C215, C216, C217, C218, C219, C220, C221, C222, C223, C224, C225, C226, C227, C228, C229, C230, C231, C232, C233, C234, C235, C236, C237, C238, C239, C240, C241, C242, C243, C244, C245, C246, C247, C248, C249, C250 INTO :int1, :int2, :int3, :int4, :int5, :int6, :int7, :int8, :int9, :int10, :int11, :int12, :int13, :int14, :int15, :int16, :int17, :int18, :int19, :int20, :int21, :int22, :int23, :int24, :int25, :int26, :int27, :int28, :int29, :int30, :int31, :int32, :int33, :int34, :int35, :int36, :int37, :int38, :int39, :int40, :int41, :int42, :int43, :int44, :int45, :int46, :int47, :int48, :int49, :int50, :int51, :int52, :int53, :int54, :int55, :int56, :int57, :int58, :int59, :int60, :int61, :int62, :int63, :int64, :int65, :int66, :int67, :int68, :int69, :int70, :int71, :int72, :int73, :int74, :int75, :int76, :int77, :int78, :int79, :int80, :int81, :int82, :int83, :int84, :int85, :int86, :int87, :int88, :int89, :int90, :int91, :int92, :int93, :int94, :int95, :int96, :int97, :int98, :int99, :int100, :int101, :int102, :int103, :int104, :int105, :int106, :int107, :int108, :int109, :int110, :int111, :int112, :int113, :int114, :int115, :int116, :int117, :int118, :int119, :int120, :int121, :int122, :int123, :int124, :int125, :int126, :int127, :int128, :int129, :int130, :int131, :int132, :int133, :int134, :int135, :int136, :int137, :int138, :int139, :int140, :int141, :int142, :int143, :int144, :int145, :int146, :int147, :int148, :int149, :int150, :int151, :int152, :int153, :int154, :int155, :int156, :int157, :int158, :int159, :int160, :int161, :int162, :int163, :int164, :int165, :int166, :int167, :int168, :int169, :int170, :int171, :int172, :int173, :int174, :int175, :int176, :int177, :int178, :int179, :int180, :int181, :int182, :int183, :int184, :int185, :int186, :int187, :int188, :int189, :int190, :int191, :int192, :int193, :int194, :int195, :int196, :int197, :int198, :int199, :int200, :int201, :int202, :int203, :int204, :int205, :int206, :int207, :int208, :int209, :int210, :int211, :int212, :int213, :int214, :int215, :int216, :int217, :int218, :int219, :int220, :int221, :int222, :int223, :int224, :int225, :int226, :int227, :int228, :int229, :int230, :int231, :int232, :int233, :int234, :int235, :int236, :int237, :int238, :int239, :int240, :int241, :int242, :int243, :int244, :int245, :int246, :int247, :int248, :int249, :int250 FROM L1 END-EXEC MOVE SQLCODE TO SQL-COD PERFORM CHCKOK DISPLAY "int1 should be 2; its value is ", int1 if (int1 NOT = 2) then MOVE 0 TO flag END-IF DISPLAY "int2 should be 3; its value is ", int2 if (int2 NOT = 3) then MOVE 0 TO flag END-IF DISPLAY "int3 should be 4; its value is ", int3 if (int3 NOT = 4) then MOVE 0 TO flag END-IF DISPLAY "int4 should be 5; its value is ", int4 if (int4 NOT = 5) then MOVE 0 TO flag END-IF DISPLAY "int5 should be 6; its value is ", int5 if (int5 NOT = 6) then MOVE 0 TO flag END-IF DISPLAY "int6 should be 7; its value is ", int6 if (int6 NOT = 7) then MOVE 0 TO flag END-IF DISPLAY "int7 should be 8; its value is ", int7 if (int7 NOT = 8) then MOVE 0 TO flag END-IF DISPLAY "int8 should be 9; its value is ", int8 if (int8 NOT = 9) then MOVE 0 TO flag END-IF DISPLAY "int9 should be 10; its value is ", int9 if (int9 NOT = 10) then MOVE 0 TO flag END-IF DISPLAY "int10 should be 11; its value is ", int10 if (int10 NOT = 11) then MOVE 0 TO flag END-IF DISPLAY "int11 should be 12; its value is ", int11 if (int11 NOT = 12) then MOVE 0 TO flag END-IF DISPLAY "int12 should be 13; its value is ", int12 if (int12 NOT = 13) then MOVE 0 TO flag END-IF DISPLAY "int13 should be 14; its value is ", int13 if (int13 NOT = 14) then MOVE 0 TO flag END-IF DISPLAY "int14 should be 15; its value is ", int14 if (int14 NOT = 15) then MOVE 0 TO flag END-IF DISPLAY "int15 should be 16; its value is ", int15 if (int15 NOT = 16) then MOVE 0 TO flag END-IF DISPLAY "int16 should be 17; its value is ", int16 if (int16 NOT = 17) then MOVE 0 TO flag END-IF DISPLAY "int17 should be 18; its value is ", int17 if (int17 NOT = 18) then MOVE 0 TO flag END-IF DISPLAY "int18 should be 19; its value is ", int18 if (int18 NOT = 19) then MOVE 0 TO flag END-IF DISPLAY "int19 should be 20; its value is ", int19 if (int19 NOT = 20) then MOVE 0 TO flag END-IF DISPLAY "int20 should be 21; its value is ", int20 if (int20 NOT = 21) then MOVE 0 TO flag END-IF DISPLAY "int21 should be 22; its value is ", int21 if (int21 NOT = 22) then MOVE 0 TO flag END-IF DISPLAY "int22 should be 23; its value is ", int22 if (int22 NOT = 23) then MOVE 0 TO flag END-IF DISPLAY "int23 should be 24; its value is ", int23 if (int23 NOT = 24) then MOVE 0 TO flag END-IF DISPLAY "int24 should be 25; its value is ", int24 if (int24 NOT = 25) then MOVE 0 TO flag END-IF DISPLAY "int25 should be 26; its value is ", int25 if (int25 NOT = 26) then MOVE 0 TO flag END-IF DISPLAY "int26 should be 27; its value is ", int26 if (int26 NOT = 27) then MOVE 0 TO flag END-IF DISPLAY "int27 should be 28; its value is ", int27 if (int27 NOT = 28) then MOVE 0 TO flag END-IF DISPLAY "int28 should be 29; its value is ", int28 if (int28 NOT = 29) then MOVE 0 TO flag END-IF DISPLAY "int29 should be 30; its value is ", int29 if (int29 NOT = 30) then MOVE 0 TO flag END-IF DISPLAY "int30 should be 31; its value is ", int30 if (int30 NOT = 31) then MOVE 0 TO flag END-IF DISPLAY "int31 should be 32; its value is ", int31 if (int31 NOT = 32) then MOVE 0 TO flag END-IF DISPLAY "int32 should be 33; its value is ", int32 --> -------------------- --> maximum size reached --> -------------------- ¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.43Angebot Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können ¤*Eine klare Vorstellung vom Zielzustand |
|
2026-03-28