Convert all numeric values of cobol to Java

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Hi every one,

What is the equivalent declaration of s9(4) comp and s9(9) comp to numeric values in COBOL?

Thanks,
murali.

Binop B · Posted: Fri Jul 17, 2009 2:20 pm

Hi Murali,

Could you be more specific in what u are trying to achieve.

S9(4) COMP ==> 2 bytes
S9(9) COMP ==> 4 bytes

If you are just trying to use the space (memory) then 9(2) or 9(4) respectively would suffice.
Else if u are trying to copy the value to 9(n) field, then a simple MOVE statment would be enough.

Hope this is what u were looking for...

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Thanks Binop,

what could be the Picture clause for numeric for S9(10) comp-3.

Thanks,
Murali.

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Correction S9(10)V Usage Comp-3

Binop B · Posted: Fri Jul 17, 2009 2:48 pm

Hi Murali,

What is it that you want to acheive ??

Please be more specific.

Robert Sample · Posted: Fri Jul 17, 2009 3:16 pm

Murali, be aware that a COMP-3 or COMP field is numeric by COBOL definition. In fact, you cannot even do an IF NUMERIC test on a COMP field because every COMP field is NUMERIC -- always. Hence numeric picture clauses for your examples are PIC S9(4) COMP, PIC S9(9) COMP, and PIC S9(10) COMP-3.

If you are wanting to know what the equivalent USAGE DISPLAY picture clauses would be, just take the COMP or COMP-3 off of the field. If you're wanting to know something else about these fields, please clarify what it is you're asking.

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

I have to retrieve some data from CICS Container and convert all numeric values of cobol to Java, In such case what could be the numeric Picture clause for S9(4) comp,s9(9) comp,s9(10)V comp-3?

Thanks,
Murali.

Binop B · Posted: Fri Jul 17, 2009 3:32 pm

Hi Murali,

If u had posted this as the first post it would have made our life easier...

As far as i remember about Java... the COMP variables should not be a problem coz that's how its already defined. Every numeric field will be binary only in Java ( plz do correct me if i am wrong ).

In case of the packed value, you will need to convert to the binary form and then send it.

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

For my application,i will get the data from Java through Containers and vice versa i will transfer data from cobol to Java.

You said for comp it's not a problem, but i am not clear about packed decimal. What should be done?

Thanks,
Murali.

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

In addition,

when data from COBOL to Java,

Is there any problem when data is transfered from COBOL to Java,

for example,

Java data type int is mapped to s9(9) comp of COBOL, is it possible to pass the same data from COBOL to Java data type?

Please clarify.

Thanks,
Murali.

Robert Sample · Posted: Sat Jul 18, 2009 7:42 pm

PIC S9(9) COMP in COBOL is a 32-bit integer field -- if you can figure out what that is in Java, use it.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi Muali,

Maybe this wiil help:

The decimal value -1234 will have an internal memory (EBCIDIC) representaion of the following using the PICs indicated (depending on COMPILER Options) on an IBM Mainfreame :

Binop B · Posted: Sun Jul 19, 2009 9:38 am

Hi Jack,

I have a doubt in the example you have mentioned...
I guess the S9(9) COMP will take only 4 bytes...

Please confirm.

Binop B · Posted: Sun Jul 19, 2009 9:46 am

Hi Murali

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Binop,

This is the flow of my program

I am getting the values from container and store it in working storage variable,where the ws- variables are passed to program x. and i am getting the values from program x and i am putting into container to pass the data to java application.

From you posting

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

In addition,

Java is receiving the comp variables content as Character.

Thanks,
Murali.

Binop B · Posted: Sun Jul 19, 2009 4:09 pm

Hi Murali,

As Jack as mentioned your variable of PIC S9(10)V will take 6 bytes in the mainframe environment. But there would be a dependency on how much the target system ( Java ) is expecting.

*Note : Before assisting you further I would have to tell you that my knowledge on CICS containers is minimal....

What is the size of the specific character field ??
Are u having any idea on how the specific field is getting used ( processed ) in the target system ??

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Binop,

Java is receving comp and comp-3 variable as characters so the pic clause for s9(10)v comp-3 in Alphanumeric item could be X(06)???

Assume s9(10)v comp-3 having values 1234567891. Will X(06) accomodate the values mentioned. similaraly what could be the picture clause for s9(9) comp and s9(4) comp?

Thanks,
Murali.

Binop B · Posted: Sun Jul 19, 2009 5:44 pm

Murali,

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Binop,

when i am moving the 9 digitis 1234567891 from s9(10)v comp-3 to
X(06) it will truncate the data.

Data shouldn't get truncated.

Thanks,
murali.

Binop B · Posted: Sun Jul 19, 2009 6:05 pm

Murali,

If you are doing a simple MOVE statement it will not work because you are basically trying to move from Numeric field to Character field. You will have to redefine the field in the Mainframe...

As mentioned before only if u give more details about the target system we will be in a position to help you better.

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Binop,

enrico-sorichetti · Posted: Sun Jul 19, 2009 6:25 pm

it seems to me that the topic has shifted from an obscure question
to the equivalence beween data types in COBOL and JAVA for interoperability
see for example
publib.boulder.ibm.com/infocenter/ratdevz/v7r5/index.jsp?topic=/com.ibm.ent.cbl.zos.doc/topics/PGandLR/tasks/tpjav03.htm

or google for ( that's how I found the link) "cobol java data types zos"

if multiplatform operation is involved investigate about endian-ness for binary data types

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi Binop,

You wrote: