I can't write TS QUEUE of 32,000 bytes of lebgth

[asilvay2k]

CICS loud write TS QUEUEs of 32,000 bytes in length but the cobol compiler doesn' accept to have a work field with initial value of 32,000, eje:

02 TE-LENGTH PIC S9(04) COMP VALUE +32000.

Can someone tell me what can I do to resolve this?

Thanks a lot

 

[jrohrbach]

Which version of the compiler are you using?

I just ran a test using "IBM ENTERPRISE COBOL FOR Z/OS 3.3.1" with the following results:

Program -
...
01  WS-QUEUE-LEN                PIC S9(4) COMP VALUE +32000.
...
    DISPLAY 'WS-QUEUE-LEN = ' WS-QUEUE-LEN.
...

Results -
WS-QUEUE-LEN = 32000

The CICS Application Programming Reference, by the way, contains the following caveat:

# In OS/VS COBOL and C/370, all LENGTH options must be specified.

| When a CICS command offers the LENGTH option, it is generally expressed as
| a signed halfword binary value. This puts a theoretical upper limit of
| 32 763 bytes on LENGTH. In practice (depending on issues of
| recoverability, function shipping, and so on) the achievable upper limit
| varies from command to command, but is somewhat less than this theoretical
| maximum.

| Whatever the CICS command, to be on the safe side, do not let the LENGTH
| you code exceed 24KB.

Ever onward,
jar

 

[razalas]

Isn't there an "FLENGTH" option for the TS WRITEQ command? If so, you should be able to use it with a fullword binary numeric field which should eliminate any potential overflow problems.



"Code what you mean,
and mean what you code!
But by all means post your code!"

Razalas