* Standard COBOL (file "DML178.SCO") calling SQL * procedures in file "DML178.MCO".
**************************************************************** * * COMMENT SECTION * * DATE 1996-05-14 Module 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.SCO * WRITTEN BY: David Flater * TRANSLATED AUTOMATICALLY FROM EMBEDDED COBOL BY CHRIS SCHANZLE * * This routine tests Intermediate SQL. * * REFERENCES * FIPS PUB 127-2 14.2 Intermediate SQL * ANSI SQL-1992 * ****************************************************************
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; CALL"SUB10"USING SQLCODE SQLSTATE 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 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
--> --------------------
--> maximum size reached
--> --------------------
¤ Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.0.43Bemerkung:
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
