A PDS load module block is a multiple of 1K. PDSEs are built on
linear datasets (VSAM) so it might be a 4K multiple.
On Fri, Dec 4, 2015 at 6:54 PM, Frank Swarbrick
<frank.swarbr...@outlook.com> wrote:
> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
