IBM Mainframe Forum

My program go and stop in the call comand, the called program in my dataset is compiled and with the right name.

Thank you in advance for your help.

This abend means that data that is not numeric is being handled as numeric data by COBOL. The origination of the problem could be in the calling program, or in the subprogram, or in the interface between the two (a mis-match between calling program values and called program arguments, for example). With the little you posted, there is not a whole lot more we can tell you.

The abend information should tell you the exact offset in the program; you can use the compile output to find the line of code represented by that offset. Once you know the line of code, you need to review each variable used in the code to determine which has invalid data (and remember there could be more than one variable with invalid data).

Thank you but i coudnt find in the line of code so i used some display :S.
with display i soo that it stops here :

MOVE CLIENTES-CGCCPF TO CPF-CONV

05 CPF-CONV PIC S9(15) VALUE ZEROES.
CLIENTES-CGCCPF 335 DECIMAL(15,0) IN DCLCLIENTES
708
10 CLIENTES-CGCCPF PIC S9(15)V USAGE COMP-3.

i tried 05 CPF-CONV PIC S9(15)v VALUE ZEROES. i need declare as comp too ?

If you have identified the correct statement, then you have invalid data in CLIENTES-CGCCPF. "invalid data" can include "no data at all". For instance, if you were accessing the field before doing the database access...

Dashimir wrote:Thank you but i coudnt find in the line of code so i used some display :S.
with display i soo that it stops here :

MOVE CLIENTES-CGCCPF TO CPF-CONV

05 CPF-CONV PIC S9(15) VALUE ZEROES.
CLIENTES-CGCCPF 335 DECIMAL(15,0) IN DCLCLIENTES
708
10 CLIENTES-CGCCPF PIC S9(15)V USAGE COMP-3.

i tried 05 CPF-CONV PIC S9(15)v VALUE ZEROES. i need declare as comp too ?

You do not. However, you must ascertain what data CLIENTES-CGCCPF contains and, if it is not a valid packed decimal value, why not.

Dashimir wrote:Thank you but i coudnt find in the line of code so i used some display :S.

Incidentally, be aware that the offset displayed identifies the failing machine instruction, not the failing COBOL statement (there are typically several machine instructions per HLL statement). To find the statement, look at the PMAP; it identifies the offset of the first instruction in that statement. Choose the last statement whose offset is not greater than the offset of the failing instruction.

The PMAP these days is produced by specifying compiler options "NOLIST,OFFSET".



It is the stuff which looks like the above. A more detailed listing of the generated code can be produced with "LIST,NOOFFSET" and there is a "hexloc" for each generated instruction.

BillyBoyo wrote:If you have identified the correct statement, then you have invalid data in CLIENTES-CGCCPF. "invalid data" can include "no data at all". For instance, if you were accessing the field before doing the database access...

display CLIENTES-CGCCPF = 000000000000000

That doesn't help at all. While processing for the DISPLAY, the actual invalid value can easily be "masked" if it is the low-order half-byte that indicates the sign which is invalid.

Instead, DISPLAY the group-item which the field is part of, then look at the output in hex. Or try to REDEFINES the comp-3 as PIC X, and display, look at in hex. Or find a program called BBHEXD on the internet - if you are allowed to, use that.

i am trying to move anything with this variable and i get same error all the times OC7 ..

exemple
05 INTERMEDIARIO PIC S9(15)V9.
PROPOSTA PIC S9(15)V USAGE COMP-3.



DISPLAY 1
MOVE INTERMEDIARIO TO PROPOSTA
DISPLAY 2


SYSOUT

1
END.