Can I declare S9(19) in cobol

prashant_mq · New User Joined: 29 Aug 2006 Posts: 24

Hi,

Can I declare s9(19) in cobol.

What is the maximum numeric digits allowed.
Whats the alternative to use s9(19).

Thanks

Craq Giegerich · Posted: Tue Jun 10, 2008 3:09 am

You need to check the manuals for your version of COBOL

For Enterprise COBOL

prashant_mq · New User Joined: 29 Aug 2006 Posts: 24

How do you declare in the JCL?

Craq Giegerich · Posted: Tue Jun 10, 2008 4:38 am

You don't declare COBOL Pic's in JCL!

dick scherrer · Posted: Tue Jun 10, 2008 5:47 am

Hello,

prashant_mq · New User Joined: 29 Aug 2006 Posts: 24

prashant_mq · New User Joined: 29 Aug 2006 Posts: 24

I'm writing a COBOL program to simulate setup message properties for the latest MQ version 7.

I need a variable of S9(19) in order to create the message handle.

Here is the link of the API call:
http://publib.boulder.ibm.com/infocenter/wmqv7/v7r0/topic/com.ibm.mq.csqzak.doc/fr40230_.htm?resultof=%22%4d%51%43%52%54%4d%48%22%20%22%6d%71%63%72%74%6d%68%22%20

dick scherrer · Posted: Tue Jun 10, 2008 7:54 am

Hello,

ARITH(EXTEND) is one of the parms that may be supplied to the compiler. It is usually specified as an override in the execute jcl.

When your compile is submitted, there are most likely parameters supplied in the compile PARM. You would need to add ARITH to those parms.

I'd suggest you talk with whoever supports your standard compiler processes and explain the requirement and they should be able to show you how to do this on your system.

stodolas · Posted: Tue Jun 10, 2008 8:03 am

We put it as the very first line in the COBOL source if we need it. Before any IDENTIFICATION or anything else it acts as a precompiler directive.

prashant_mq · New User Joined: 29 Aug 2006 Posts: 24

dick scherrer · Posted: Tue Jun 10, 2008 1:11 pm

Hello,

stodolas · Posted: Tue Jun 10, 2008 6:49 pm

Here is how we do it. It goes as the first line in the COBOL source.

prashant_mq · New User Joined: 29 Aug 2006 Posts: 24

prashant_mq · New User Joined: 29 Aug 2006 Posts: 24

I have tried to put the ARITH(EXTEND) on the PARM.COBOL= in JCL and also PROCESS ARITH(EXTEND) or CBL ARITH(EXTEND) before the IDENTIFICATION DIVISION, however it is still failed.

dick scherrer · Posted: Tue Jun 10, 2008 7:26 pm

Hello,

You have posted nothing that shows where you used the extend

Have you tried the method Steve posted? In the code or in the jcl will work so you should check with your organization on which method is proper for your system. Either should get you thru an initial test.

So far, we've seen nothing that would tell the compiler that large numbers were valid.

prashant_mq · New User Joined: 29 Aug 2006 Posts: 24

I have tried with this:

//EDCCPL EXEC IGYWCL,PARM.COBOL='OBJECT,LIB,APOST,LIST,
// ARITH(EXTEND)',

as well as this:

CBL ARITH(EXTEND)
IDENTIFICATION DIVISION.

but still no success.

enrico-sorichetti · Posted: Tue Jun 10, 2008 7:46 pm

Ok so now we have zillions of confirmation that it does not work,
it will keep on not working until You post an excerpt of the sysout
showing the active options for Your compile step.

But I would say that this is more an issue for Your support rather than a forum

COBOL is not my friend, but thinking in parallel with PL/I

when the defaults options are being setup at installation time
the options are divided in two section
the overridable ones ( the ones that can be changed by parm or process )
the not-overridable ( the ones that cannot be changed )
check with Your support if this is the case
giving as evidence what has been requested a few times,
and You still did not provide

Craq Giegerich · Posted: Tue Jun 10, 2008 8:07 pm

The compiler is installed and set up with default compiler options. While installing the compiler, the system programmers for a site can fix compiler option settings to, for example, ensure better performance or maintain certain standards. You cannot override any compiler options that your site has set as fixed. For options that are not fixed, you can override the default settings by specifying compiler options in either of these ways:

The first page of your compile listing should look something like this

prashant_mq · New User Joined: 29 Aug 2006 Posts: 24

prashant_mq · New User Joined: 29 Aug 2006 Posts: 24

Hi Craq, I'm getting the AR(E) on the listing, could it be the option cannot be overridable?

prashant_mq · New User Joined: 29 Aug 2006 Posts: 24

stodolas · Posted: Tue Jun 10, 2008 9:23 pm

Odd that it shows that the ARITH(EXTEND) option is in effect already.

enrico-sorichetti · Posted: Tue Jun 10, 2008 9:54 pm

just a hint... long binary up to pic s9(18) are stored as dublewords ( 8 bytes )
I could not find anything on binry with more than 18 digits

number theory
a pic s9(19) will allow a number like 9.999.999.999.999.999.999
and it will definitely not fit in 8 bytes signed

here is a table of 2 powers

enrico-sorichetti · Posted: Tue Jun 10, 2008 10:03 pm

just to sum up things, the answer to the O/P ( original post) seems to be,
YES, but not for BINARY

as I said before since the sign is irrelevant I would try with "PIC 9(19)"

but, it would have been nicer on Your side to say from the beginning that
You were also specifying BINARY without us having to click around

Craq Giegerich · Posted: Tue Jun 10, 2008 11:11 pm