* 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"USINGSQLCODE 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 MOVESQLCODETO 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 if (int32 NOT = 33) then MOVE 0 TO flag END-IF DISPLAY"int33 should be 34; its value is ", int33 if (int33 NOT = 34) then MOVE 0 TO flag END-IF DISPLAY"int34 should be 35; its value is ", int34 if (int34 NOT = 35) then MOVE 0 TO flag END-IF DISPLAY"int35 should be 36; its value is ", int35 if (int35 NOT = 36) then MOVE 0 TO flag END-IF DISPLAY"int36 should be 37; its value is ", int36 if (int36 NOT = 37) then MOVE 0 TO flag END-IF DISPLAY"int37 should be 38; its value is ", int37 if (int37 NOT = 38) then MOVE 0 TO flag END-IF DISPLAY"int38 should be 39; its value is ", int38 if (int38 NOT = 39) then MOVE 0 TO flag END-IF DISPLAY"int39 should be 40; its value is ", int39 if (int39 NOT = 40) then MOVE 0 TO flag END-IF DISPLAY"int40 should be 41; its value is ", int40 if (int40 NOT = 41) then MOVE 0 TO flag END-IF DISPLAY"int41 should be 42; its value is ", int41 if (int41 NOT = 42) then MOVE 0 TO flag END-IF DISPLAY"int42 should be 43; its value is ", int42 if (int42 NOT = 43) then MOVE 0 TO flag END-IF DISPLAY"int43 should be 44; its value is ", int43 if (int43 NOT = 44) then MOVE 0 TO flag END-IF DISPLAY"int44 should be 45; its value is ", int44 if (int44 NOT = 45) then MOVE 0 TO flag END-IF DISPLAY"int45 should be 46; its value is ", int45 if (int45 NOT = 46) then MOVE 0 TO flag END-IF DISPLAY"int46 should be 47; its value is ", int46 if (int46 NOT = 47) then MOVE 0 TO flag END-IF DISPLAY"int47 should be 48; its value is ", int47 if (int47 NOT = 48) then MOVE 0 TO flag END-IF DISPLAY"int48 should be 49; its value is ", int48 if (int48 NOT = 49) then MOVE 0 TO flag END-IF DISPLAY"int49 should be 50; its value is ", int49 if (int49 NOT = 50) then MOVE 0 TO flag END-IF DISPLAY"int50 should be 51; its value is ", int50 if (int50 NOT = 51) then MOVE 0 TO flag END-IF DISPLAY"int51 should be 52; its value is ", int51 if (int51 NOT = 52) then MOVE 0 TO flag END-IF DISPLAY"int52 should be 53; its value is ", int52 if (int52 NOT = 53) then MOVE 0 TO flag END-IF DISPLAY"int53 should be 54; its value is ", int53 if (int53 NOT = 54) then MOVE 0 TO flag END-IF DISPLAY"int54 should be 55; its value is ", int54 if (int54 NOT = 55) then MOVE 0 TO flag END-IF DISPLAY"int55 should be 56; its value is ", int55 if (int55 NOT = 56) then MOVE 0 TO flag END-IF DISPLAY"int56 should be 57; its value is ", int56 if (int56 NOT = 57) then MOVE 0 TO flag END-IF DISPLAY"int57 should be 58; its value is ", int57 if (int57 NOT = 58) then MOVE 0 TO flag END-IF DISPLAY"int58 should be 59; its value is ", int58 if (int58 NOT = 59) then MOVE 0 TO flag END-IF DISPLAY"int59 should be 60; its value is ", int59 if (int59 NOT = 60) then MOVE 0 TO flag END-IF DISPLAY"int60 should be 61; its value is ", int60 if (int60 NOT = 61) then MOVE 0 TO flag END-IF DISPLAY"int61 should be 62; its value is ", int61 if (int61 NOT = 62) then MOVE 0 TO flag END-IF DISPLAY"int62 should be 63; its value is ", int62 if (int62 NOT = 63) then MOVE 0 TO flag END-IF DISPLAY"int63 should be 64; its value is ", int63 if (int63 NOT = 64) then MOVE 0 TO flag END-IF DISPLAY"int64 should be 65; its value is ", int64 if (int64 NOT = 65) then MOVE 0 TO flag END-IF DISPLAY"int65 should be 66; its value is ", int65 if (int65 NOT = 66) then MOVE 0 TO flag END-IF DISPLAY"int66 should be 67; its value is ", int66 if (int66 NOT = 67) then MOVE 0 TO flag END-IF DISPLAY"int67 should be 68; its value is ", int67 if (int67 NOT = 68) then MOVE 0 TO flag END-IF DISPLAY"int68 should be 69; its value is ", int68 if (int68 NOT = 69) then MOVE 0 TO flag END-IF DISPLAY"int69 should be 70; its value is ", int69 if (int69 NOT = 70) then MOVE 0 TO flag END-IF DISPLAY"int70 should be 71; its value is ", int70 if (int70 NOT = 71) then MOVE 0 TO flag END-IF DISPLAY"int71 should be 72; its value is ", int71 if (int71 NOT = 72) then MOVE 0 TO flag END-IF DISPLAY"int72 should be 73; its value is ", int72 if (int72 NOT = 73) then MOVE 0 TO flag END-IF DISPLAY"int73 should be 74; its value is ", int73 if (int73 NOT = 74) then MOVE 0 TO flag END-IF DISPLAY"int74 should be 75; its value is ", int74 if (int74 NOT = 75) then MOVE 0 TO flag END-IF DISPLAY"int75 should be 76; its value is ", int75 if (int75 NOT = 76) then MOVE 0 TO flag END-IF DISPLAY"int76 should be 77; its value is ", int76 if (int76 NOT = 77) then MOVE 0 TO flag END-IF DISPLAY"int77 should be 78; its value is ", int77 if (int77 NOT = 78) then MOVE 0 TO flag END-IF DISPLAY"int78 should be 79; its value is ", int78 if (int78 NOT = 79) then MOVE 0 TO flag END-IF DISPLAY"int79 should be 80; its value is ", int79 if (int79 NOT = 80) then MOVE 0 TO flag END-IF DISPLAY"int80 should be 81; its value is ", int80 if (int80 NOT = 81) then MOVE 0 TO flag END-IF DISPLAY"int81 should be 82; its value is ", int81 if (int81 NOT = 82) then MOVE 0 TO flag END-IF DISPLAY"int82 should be 83; its value is ", int82 if (int82 NOT = 83) then MOVE 0 TO flag END-IF DISPLAY"int83 should be 84; its value is ", int83 if (int83 NOT = 84) then MOVE 0 TO flag END-IF DISPLAY"int84 should be 85; its value is ", int84 if (int84 NOT = 85) then MOVE 0 TO flag END-IF DISPLAY"int85 should be 86; its value is ", int85 if (int85 NOT = 86) then MOVE 0 TO flag END-IF DISPLAY"int86 should be 87; its value is ", int86 if (int86 NOT = 87) then MOVE 0 TO flag END-IF DISPLAY"int87 should be 88; its value is ", int87 if (int87 NOT = 88) then MOVE 0 TO flag END-IF DISPLAY"int88 should be 89; its value is ", int88 if (int88 NOT = 89) then MOVE 0 TO flag END-IF DISPLAY"int89 should be 90; its value is ", int89 if (int89 NOT = 90) then MOVE 0 TO flag END-IF DISPLAY"int90 should be 91; its value is ", int90 if (int90 NOT = 91) then MOVE 0 TO flag END-IF DISPLAY"int91 should be 92; its value is ", int91 if (int91 NOT = 92) then MOVE 0 TO flag END-IF DISPLAY"int92 should be 93; its value is ", int92 if (int92 NOT = 93) then MOVE 0 TO flag END-IF DISPLAY"int93 should be 94; its value is ", int93 if (int93 NOT = 94) then MOVE 0 TO flag END-IF DISPLAY"int94 should be 95; its value is ", int94 if (int94 NOT = 95) then MOVE 0 TO flag END-IF DISPLAY"int95 should be 96; its value is ", int95 if (int95 NOT = 96) then MOVE 0 TO flag END-IF DISPLAY"int96 should be 97; its value is ", int96 if (int96 NOT = 97) then MOVE 0 TO flag END-IF DISPLAY"int97 should be 98; its value is ", int97 if (int97 NOT = 98) then MOVE 0 TO flag END-IF DISPLAY"int98 should be 99; its value is ", int98 if (int98 NOT = 99) then MOVE 0 TO flag END-IF DISPLAY"int99 should be 100; its value is ", int99 if (int99 NOT = 100) then MOVE 0 TO flag END-IF DISPLAY"int100 should be 101; its value is ", int100 if (int100 NOT = 101) then MOVE 0 TO flag END-IF DISPLAY"int101 should be 102; its value is ", int101 if (int101 NOT = 102) then MOVE 0 TO flag END-IF DISPLAY"int102 should be 103; its value is ", int102 if (int102 NOT = 103) then MOVE 0 TO flag END-IF DISPLAY"int103 should be 104; its value is ", int103 if (int103 NOT = 104) then MOVE 0 TO flag END-IF DISPLAY"int104 should be 105; its value is ", int104 if (int104 NOT = 105) then MOVE 0 TO flag END-IF DISPLAY"int105 should be 106; its value is ", int105 if (int105 NOT = 106) then MOVE 0 TO flag END-IF DISPLAY"int106 should be 107; its value is ", int106 if (int106 NOT = 107) then MOVE 0 TO flag END-IF DISPLAY"int107 should be 108; its value is ", int107 if (int107 NOT = 108) then MOVE 0 TO flag END-IF DISPLAY"int108 should be 109; its value is ", int108 if (int108 NOT = 109) then MOVE 0 TO flag END-IF DISPLAY"int109 should be 110; its value is ", int109 if (int109 NOT = 110) then MOVE 0 TO flag END-IF DISPLAY"int110 should be 111; its value is ", int110 if (int110 NOT = 111) then MOVE 0 TO flag END-IF DISPLAY"int111 should be 112; its value is ", int111 if (int111 NOT = 112) then MOVE 0 TO flag END-IF DISPLAY"int112 should be 113; its value is ", int112 if (int112 NOT = 113) then MOVE 0 TO flag END-IF DISPLAY"int113 should be 114; its value is ", int113 if (int113 NOT = 114) then MOVE 0 TO flag END-IF DISPLAY"int114 should be 115; its value is ", int114 if (int114 NOT = 115) then MOVE 0 TO flag END-IF DISPLAY"int115 should be 116; its value is ", int115 if (int115 NOT = 116) then MOVE 0 TO flag END-IF DISPLAY"int116 should be 117; its value is ", int116 if (int116 NOT = 117) then MOVE 0 TO flag END-IF DISPLAY"int117 should be 118; its value is ", int117 if (int117 NOT = 118) then MOVE 0 TO flag END-IF DISPLAY"int118 should be 119; its value is ", int118 if (int118 NOT = 119) then MOVE 0 TO flag END-IF DISPLAY"int119 should be 120; its value is ", int119 if (int119 NOT = 120) then MOVE 0 TO flag END-IF DISPLAY"int120 should be 121; its value is ", int120 if (int120 NOT = 121) then MOVE 0 TO flag END-IF DISPLAY"int121 should be 122; its value is ", int121 if (int121 NOT = 122) then MOVE 0 TO flag END-IF DISPLAY"int122 should be 123; its value is ", int122 if (int122 NOT = 123) then MOVE 0 TO flag END-IF DISPLAY"int123 should be 124; its value is ", int123 if (int123 NOT = 124) then MOVE 0 TO flag END-IF DISPLAY"int124 should be 125; its value is ", int124 if (int124 NOT = 125) then MOVE 0 TO flag END-IF DISPLAY"int125 should be 126; its value is ", int125 if (int125 NOT = 126) then MOVE 0 TO flag END-IF DISPLAY"int126 should be 127; its value is ", int126 if (int126 NOT = 127) then MOVE 0 TO flag END-IF DISPLAY"int127 should be 128; its value is ", int127 if (int127 NOT = 128) then MOVE 0 TO flag END-IF DISPLAY"int128 should be 129; its value is ", int128 if (int128 NOT = 129) then MOVE 0 TO flag END-IF DISPLAY"int129 should be 130; its value is ", int129 if (int129 NOT = 130) then MOVE 0 TO flag END-IF DISPLAY"int130 should be 131; its value is ", int130 if (int130 NOT = 131) then MOVE 0 TO flag END-IF DISPLAY"int131 should be 132; its value is ", int131 if (int131 NOT = 132) then MOVE 0 TO flag END-IF DISPLAY"int132 should be 133; its value is ", int132 if (int132 NOT = 133) then MOVE 0 TO flag END-IF DISPLAY"int133 should be 134; its value is ", int133 if (int133 NOT = 134) then MOVE 0 TO flag END-IF DISPLAY"int134 should be 135; its value is ", int134 if (int134 NOT = 135) then MOVE 0 TO flag END-IF DISPLAY"int135 should be 136; its value is ", int135 if (int135 NOT = 136) then MOVE 0 TO flag END-IF DISPLAY"int136 should be 137; its value is ", int136 if (int136 NOT = 137) then MOVE 0 TO flag END-IF DISPLAY"int137 should be 138; its value is ", int137 if (int137 NOT = 138) then MOVE 0 TO flag END-IF DISPLAY"int138 should be 139; its value is ", int138 if (int138 NOT = 139) then MOVE 0 TO flag END-IF DISPLAY"int139 should be 140; its value is ", int139 if (int139 NOT = 140) then MOVE 0 TO flag END-IF DISPLAY"int140 should be 141; its value is ", int140 if (int140 NOT = 141) then MOVE 0 TO flag END-IF DISPLAY"int141 should be 142; its value is ", int141 if (int141 NOT = 142) then MOVE 0 TO flag END-IF DISPLAY"int142 should be 143; its value is ", int142 if (int142 NOT = 143) then MOVE 0 TO flag END-IF DISPLAY"int143 should be 144; its value is ", int143 if (int143 NOT = 144) then MOVE 0 TO flag END-IF DISPLAY"int144 should be 145; its value is ", int144 if (int144 NOT = 145) then MOVE 0 TO flag END-IF DISPLAY"int145 should be 146; its value is ", int145 if (int145 NOT = 146) then MOVE 0 TO flag END-IF DISPLAY"int146 should be 147; its value is ", int146 if (int146 NOT = 147) then MOVE 0 TO flag END-IF DISPLAY"int147 should be 148; its value is ", int147 if (int147 NOT = 148) then MOVE 0 TO flag END-IF DISPLAY"int148 should be 149; its value is ", int148 if (int148 NOT = 149) then MOVE 0 TO flag END-IF DISPLAY"int149 should be 150; its value is ", int149 if (int149 NOT = 150) then MOVE 0 TO flag END-IF DISPLAY"int150 should be 151; its value is ", int150 if (int150 NOT = 151) then MOVE 0 TO flag END-IF DISPLAY"int151 should be 152; its value is ", int151 if (int151 NOT = 152) then MOVE 0 TO flag END-IF DISPLAY"int152 should be 153; its value is ", int152 if (int152 NOT = 153) then MOVE 0 TO flag END-IF DISPLAY"int153 should be 154; its value is ", int153 if (int153 NOT = 154) then MOVE 0 TO flag END-IF DISPLAY"int154 should be 155; its value is ", int154 if (int154 NOT = 155) then MOVE 0 TO flag END-IF DISPLAY"int155 should be 156; its value is ", int155 if (int155 NOT = 156) then MOVE 0 TO flag END-IF DISPLAY"int156 should be 157; its value is ", int156 if (int156 NOT = 157) then MOVE 0 TO flag END-IF DISPLAY"int157 should be 158; its value is ", int157 if (int157 NOT = 158) then MOVE 0 TO flag END-IF DISPLAY"int158 should be 159; its value is ", int158 if (int158 NOT = 159) then MOVE 0 TO flag END-IF DISPLAY"int159 should be 160; its value is ", int159 if (int159 NOT = 160) then MOVE 0 TO flag END-IF DISPLAY"int160 should be 161; its value is ", int160 if (int160 NOT = 161) then MOVE 0 TO flag END-IF DISPLAY"int161 should be 162; its value is ", int161 if (int161 NOT = 162) then MOVE 0 TO flag END-IF DISPLAY"int162 should be 163; its value is ", int162 if (int162 NOT = 163) then MOVE 0 TO flag END-IF DISPLAY"int163 should be 164; its value is ", int163 if (int163 NOT = 164) then MOVE 0 TO flag END-IF DISPLAY"int164 should be 165; its value is ", int164 if (int164 NOT = 165) then MOVE 0 TO flag END-IF DISPLAY"int165 should be 166; its value is ", int165 if (int165 NOT = 166) then MOVE 0 TO flag END-IF DISPLAY"int166 should be 167; its value is ", int166 if (int166 NOT = 167) then MOVE 0 TO flag END-IF DISPLAY"int167 should be 168; its value is ", int167 if (int167 NOT = 168) then MOVE 0 TO flag END-IF DISPLAY"int168 should be 169; its value is ", int168 if (int168 NOT = 169) then MOVE 0 TO flag END-IF DISPLAY"int169 should be 170; its value is ", int169 if (int169 NOT = 170) then MOVE 0 TO flag END-IF DISPLAY"int170 should be 171; its value is ", int170 if (int170 NOT = 171) then MOVE 0 TO flag END-IF DISPLAY"int171 should be 172; its value is ", int171 if (int171 NOT = 172) then MOVE 0 TO flag END-IF DISPLAY"int172 should be 173; its value is ", int172 if (int172 NOT = 173) then MOVE 0 TO flag END-IF DISPLAY"int173 should be 174; its value is ", int173 if (int173 NOT = 174) then MOVE 0 TO flag END-IF DISPLAY"int174 should be 175; its value is ", int174 if (int174 NOT = 175) then MOVE 0 TO flag END-IF DISPLAY"int175 should be 176; its value is ", int175 if (int175 NOT = 176) then MOVE 0 TO flag END-IF DISPLAY"int176 should be 177; its value is ", int176 if (int176 NOT = 177) then MOVE 0 TO flag END-IF DISPLAY"int177 should be 178; its value is ", int177 if (int177 NOT = 178) then MOVE 0 TO flag END-IF DISPLAY"int178 should be 179; its value is ", int178 if (int178 NOT = 179) then MOVE 0 TO flag END-IF DISPLAY"int179 should be 180; its value is ", int179 if (int179 NOT = 180) then MOVE 0 TO flag END-IF DISPLAY"int180 should be 181; its value is ", int180 if (int180 NOT = 181) then MOVE 0 TO flag END-IF DISPLAY"int181 should be 182; its value is ", int181 if (int181 NOT = 182) then MOVE 0 TO flag END-IF DISPLAY"int182 should be 183; its value is ", int182 if (int182 NOT = 183) then MOVE 0 TO flag END-IF DISPLAY"int183 should be 184; its value is ", int183 if (int183 NOT = 184) then MOVE 0 TO flag END-IF DISPLAY"int184 should be 185; its value is ", int184 if (int184 NOT = 185) then MOVE 0 TO flag END-IF DISPLAY"int185 should be 186; its value is ", int185 if (int185 NOT = 186) then MOVE 0 TO flag END-IF DISPLAY"int186 should be 187; its value is ", int186 if (int186 NOT = 187) then MOVE 0 TO flag END-IF DISPLAY"int187 should be 188; its value is ", int187 if (int187 NOT = 188) then MOVE 0 TO flag END-IF DISPLAY"int188 should be 189; its value is ", int188 if (int188 NOT = 189) then MOVE 0 TO flag END-IF DISPLAY"int189 should be 190; its value is ", int189 if (int189 NOT = 190) then MOVE 0 TO flag END-IF DISPLAY"int190 should be 191; its value is ", int190 if (int190 NOT = 191) then MOVE 0 TO flag END-IF DISPLAY"int191 should be 192; its value is ", int191 if (int191 NOT = 192) then MOVE 0 TO flag END-IF DISPLAY"int192 should be 193; its value is ", int192 if (int192 NOT = 193) then MOVE 0 TO flag END-IF DISPLAY"int193 should be 194; its value is ", int193 if (int193 NOT = 194) then MOVE 0 TO flag END-IF DISPLAY"int194 should be 195; its value is ", int194 if (int194 NOT = 195) then MOVE 0 TO flag END-IF DISPLAY"int195 should be 196; its value is ", int195 if (int195 NOT = 196) then MOVE 0 TO flag END-IF DISPLAY"int196 should be 197; its value is ", int196 if (int196 NOT = 197) then MOVE 0 TO flag END-IF DISPLAY"int197 should be 198; its value is ", int197 if (int197 NOT = 198) then MOVE 0 TO flag END-IF DISPLAY"int198 should be 199; its value is ", int198 if (int198 NOT = 199) then MOVE 0 TO flag END-IF DISPLAY"int199 should be 200; its value is ", int199 if (int199 NOT = 200) then MOVE 0 TO flag END-IF DISPLAY"int200 should be 201; its value is ", int200 if (int200 NOT = 201) then MOVE 0 TO flag END-IF DISPLAY"int201 should be 202; its value is ", int201 if (int201 NOT = 202) then MOVE 0 TO flag END-IF DISPLAY"int202 should be 203; its value is ", int202 if (int202 NOT = 203) then MOVE 0 TO flag END-IF DISPLAY"int203 should be 204; its value is ", int203 if (int203 NOT = 204) then MOVE 0 TO flag END-IF DISPLAY"int204 should be 205; its value is ", int204 if (int204 NOT = 205) then MOVE 0 TO flag END-IF DISPLAY"int205 should be 206; its value is ", int205 if (int205 NOT = 206) then MOVE 0 TO flag END-IF DISPLAY"int206 should be 207; its value is ", int206 if (int206 NOT = 207) then MOVE 0 TO flag END-IF DISPLAY"int207 should be 208; its value is ", int207 if (int207 NOT = 208) then MOVE 0 TO flag END-IF DISPLAY"int208 should be 209; its value is ", int208 if (int208 NOT = 209) then MOVE 0 TO flag END-IF DISPLAY"int209 should be 210; its value is ", int209 if (int209 NOT = 210) then MOVE 0 TO flag END-IF DISPLAY"int210 should be 211; its value is ", int210 if (int210 NOT = 211) then MOVE 0 TO flag END-IF DISPLAY"int211 should be 212; its value is ", int211 if (int211 NOT = 212) then MOVE 0 TO flag END-IF DISPLAY"int212 should be 213; its value is ", int212 if (int212 NOT = 213) then MOVE 0 TO flag END-IF DISPLAY"int213 should be 214; its value is ", int213 if (int213 NOT = 214) then MOVE 0 TO flag END-IF DISPLAY"int214 should be 215; its value is ", int214 if (int214 NOT = 215) then MOVE 0 TO flag END-IF DISPLAY"int215 should be 216; its value is ", int215 if (int215 NOT = 216) then MOVE 0 TO flag END-IF DISPLAY"int216 should be 217; its value is ", int216 if (int216 NOT = 217) then MOVE 0 TO flag END-IF DISPLAY"int217 should be 218; its value is ", int217 if (int217 NOT = 218) then MOVE 0 TO flag END-IF DISPLAY"int218 should be 219; its value is ", int218 if (int218 NOT = 219) then MOVE 0 TO flag END-IF DISPLAY"int219 should be 220; its value is ", int219 if (int219 NOT = 220) then MOVE 0 TO flag END-IF DISPLAY"int220 should be 221; its value is ", int220 if (int220 NOT = 221) then MOVE 0 TO flag END-IF DISPLAY"int221 should be 222; its value is ", int221 if (int221 NOT = 222) then MOVE 0 TO flag END-IF DISPLAY"int222 should be 223; its value is ", int222 if (int222 NOT = 223) then MOVE 0 TO flag END-IF DISPLAY"int223 should be 224; its value is ", int223 if (int223 NOT = 224) then MOVE 0 TO flag END-IF DISPLAY"int224 should be 225; its value is ", int224 if (int224 NOT = 225) then MOVE 0 TO flag END-IF DISPLAY"int225 should be 226; its value is ", int225 if (int225 NOT = 226) then MOVE 0 TO flag END-IF DISPLAY"int226 should be 227; its value is ", int226 if (int226 NOT = 227) then MOVE 0 TO flag END-IF DISPLAY"int227 should be 228; its value is ", int227 if (int227 NOT = 228) then MOVE 0 TO flag END-IF DISPLAY"int228 should be 229; its value is ", int228 if (int228 NOT = 229) then MOVE 0 TO flag END-IF DISPLAY"int229 should be 230; its value is ", int229 if (int229 NOT = 230) then MOVE 0 TO flag END-IF DISPLAY"int230 should be 231; its value is ", int230 if (int230 NOT = 231) then MOVE 0 TO flag END-IF DISPLAY"int231 should be 232; its value is ", int231 if (int231 NOT = 232) then MOVE 0 TO flag END-IF DISPLAY"int232 should be 233; its value is ", int232 if (int232 NOT = 233) then MOVE 0 TO flag END-IF DISPLAY"int233 should be 234; its value is ", int233 if (int233 NOT = 234) then MOVE 0 TO flag END-IF DISPLAY"int234 should be 235; its value is ", int234 if (int234 NOT = 235) then MOVE 0 TO flag END-IF DISPLAY"int235 should be 236; its value is ", int235 if (int235 NOT = 236) then MOVE 0 TO flag END-IF DISPLAY"int236 should be 237; its value is ", int236 if (int236 NOT = 237) then MOVE 0 TO flag END-IF DISPLAY"int237 should be 238; its value is ", int237 if (int237 NOT = 238) then MOVE 0 TO flag END-IF DISPLAY"int238 should be 239; its value is ", int238 if (int238 NOT = 239) then MOVE 0 TO flag END-IF DISPLAY"int239 should be 240; its value is ", int239 if (int239 NOT = 240) then MOVE 0 TO flag END-IF DISPLAY"int240 should be 241; its value is ", int240 if (int240 NOT = 241) then MOVE 0 TO flag END-IF DISPLAY"int241 should be 242; its value is ", int241 if (int241 NOT = 242) then MOVE 0 TO flag END-IF DISPLAY"int242 should be 243; its value is ", int242 if (int242 NOT = 243) then MOVE 0 TO flag END-IF DISPLAY"int243 should be 244; its value is ", int243 if (int243 NOT = 244) then MOVE 0 TO flag END-IF DISPLAY"int244 should be 245; its value is ", int244 if (int244 NOT = 245) then MOVE 0 TO flag END-IF DISPLAY"int245 should be 246; its value is ", int245 if (int245 NOT = 246) then MOVE 0 TO flag END-IF DISPLAY"int246 should be 247; its value is ", int246 if (int246 NOT = 247) then MOVE 0 TO flag END-IF DISPLAY"int247 should be 248; its value is ", int247 if (int247 NOT = 248) then MOVE 0 TO flag END-IF DISPLAY"int248 should be 249; its value is ", int248 if (int248 NOT = 249) then MOVE 0 TO flag END-IF DISPLAY"int249 should be 250; its value is ", int249 if (int249 NOT = 250) then MOVE 0 TO flag END-IF DISPLAY"int250 should be 251; its value is ", int250 if (int250 NOT = 251) then MOVE 0 TO flag END-IF DISPLAY" "
* EXEC SQL COMMIT WORK; CALL"SUB17"USINGSQLCODE SQLSTATE MOVESQLCODETO SQL-COD ******************** END TEST0891 ******************** **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0 STOPRUN.
* **** Procedures for PERFORM statements
*Test SQLCODE and SQLSTATE for normal completion.
CHCKOK. DISPLAY"SQLCODE should be 0; its value is ", SQL-COD DISPLAY"SQLSTATE should be 00000; its value is ", SQLSTATE PERFORM NOSUBCLASS THRU EXIT-NOSUBCLASS if (SQLCODENOT = 0 OR NORMSQ NOT = "00000") then MOVE 0 TO flag END-IF if (NORMSQ = "00000"AND NORMSQ NOT = SQLSTATE) then DISPLAY"Valid implementation-defined SQLSTATE accepted." END-IF
.
NOSUBCLASS.
*This routine replaces valid implementation-defined *subclasses with 000. This replacement equates valid *implementation-defined subclasses with the 000 value *expected by the test case; otherwise the test will fail. *After calling NOSUBCLASS, NORMSQ will be tested * SQLSTATE will be printed.
MOVE SQLSTATE TO NORMSQ
MOVE 3 TO norm1 *subclass begins in position 3 of char array NORMSQ *valid subclass begins with 5-9, I-Z, end of ALPNUM table PERFORMVARYING norm2 FROM 14 BY 1 UNTIL norm2 > 36 if (NORMSQX(norm1) = ALPNUM(norm2)) then MOVE"0"TO NORMSQX(norm1) END-IF END-PERFORM
*Quit if NORMSQ is unchanged. Subclass is not impl.-def. *Changed NORMSQ means implementation-defined subclass, *so proceed to zero it out, if valid (0-9,A-Z) if (NORMSQ = SQLSTATE) then GOTO EXIT-NOSUBCLASS END-IF
MOVE 4 TO norm1 *examining position 4 of char array NORMSQ *valid characters are 0-9, A-Z PERFORMVARYING norm2 FROM 1 BY 1 UNTIL norm2 > 36 if (NORMSQX(norm1) = ALPNUM(norm2)) then MOVE"0"TO NORMSQX(norm1) END-IF END-PERFORM
MOVE 5 TO norm1 *valid characters are 0-9, A-Z *examining position 5 of char array NORMSQ PERFORMVARYING norm2 FROM 1 BY 1 UNTIL norm2 > 36 if (NORMSQX(norm1) = ALPNUM(norm2)) then MOVE"0"TO NORMSQX(norm1) END-IF END-PERFORM
*implementation-defined subclasses are allowed for warnings *(class = 01). These equate to successful completion *SQLSTATE values of 00000. *Reference SQL-92 4.28 SQL-transactions, paragraph 2
if (NORMSQX(1) = "0"AND NORMSQX(2) = "1") then MOVE"0"TO NORMSQX(2) END-IF
.
EXIT-NOSUBCLASS. EXIT.
Messung V0.5 in Prozent
¤ Dauer der Verarbeitung: 0.54 Sekunden
(vorverarbeitet am 2026-04-28)
¤
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 und die Messung sind noch experimentell.
