IBM Mainframe Forum

hi, i am getting -313 error when doing dynamic sql through cobol,
i am putting screen shot,just check that and jcl code.

Why have you quoted the second ? ?

second one is char type,thats why i quated

Did you read the manual? It says to use ? for each variable it makes no mention of quoting. It does mention using CAST if you want to bind a type to a particular ?

ok, tomo i will check in my lab and give reply to u

Hello,

When posting information from a terminal, you should use copy/paste and the "Code" tag. "Screenshots" only waste space for no additional value.

Thanks,

d

hi,
The problem is sloved after removing the quote, it executed successfully.

but other problem came when modified code.

BEFORE:(CHECK THE SCREEN SHOT)


AFTER CODE CHANGED:


JCL:


THE ERROR IS:
AT "ACCEPT TESTNO" -- IDENTIFIER TESTNO(BINARY INTEGER) WAS GIVEN IN ACCEPT.
THE STATEMENT IS DISCARDED.

HOW TO SLOVE THIS ?

Accept it into a compatible format, 'PIC 9'?, and move it to TESTNO. Or change your input to Binary Integer

Hello,

ACCEPT is not usually permitted in programs that are to be promoted to Production. Multiple accepts is an even bigger no-no. A file should be defined and read to get these values into the code.

When bringing in data from "outside", PIC X(n) fields should be used and after the data has been validated, the values moved to the desired internal formats. The mainframe is rather picky about having valid numbers in fields that are to be used in numeric instructions (including move).

Or change your input to Binary Integer

You probably do not want to define the SYSIN data in binary. . . Simply do as suggested and move the character data to the binary field after the character value is validated.

who to change INPUT to BINARY INTEGER
(i.e for 4 to 0100) like this or any other way.