Currently we have some assembler 'data only programs' that we load under CICS
and point to, i.e.:
EXEC CICS LOAD
PROGRAM ('XML1V2K')
SET (ADDRESS OF CRD-SOURCE-AREA)
FLENGTH (CRD-SOURCE-LEN)
END-EXEC
Now field CDR-SOURCE-AREA is mapped to the data.
I need to do something similar in a batch COBOL program. I am able to use the
LOAD macro to get the address, but I also need to get the length. I've tried
using the EXTINFO parameter of LOAD, but the length it provides is not the
length I am looking for. For example, one of these 'programs' is named
XML1V2K. Here's what it looks like in ISPF:
Name Prompt Alias-of Size TTR AC AM RM
XML1V2K 000036B0 0020FE 00 31 ANY
Also under CICS:
I PROG(XML1V2K)
STATUS: RESULTS - OVERTYPE TO MODIFY
Prog(XML1V2K ) Leng(0000014000) Ass Pro Ena Pri Ced
36B0 hex = 14000 decimal, and that is the length I am expecting. With
LOAD/EXTINFO I am getting "1 extent, with a length of 4000 hex (16384
decimal)". I am guessing this is because its either being "rounded up" to the
size of a full extent, or maybe including binder information or something.
So how can I get the number I am looking for? It's obviously available
somewhere, since both ISPF and CICS can get to it. I just don't know where to
look.
Thanks!
Frank
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
