On Fri, Dec 4, 2015 at 6:54 PM, Frank Swarbrick <[email protected]
> 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.
>
I don't know what EXTINFO refers to off-hand, but supposedly R1 upon
return contains the length, in double word increments, of the module in
bytes 1..3 .
LOAD EP=XML1V2K,LOADPT=LOADPT
ST R0,EPA
*ICM R1,B'1000',X'00' CLEAR BYTE 0
NILH R1,X'00FF' CLEAR BITS 32..35 OF 64-BIT R1
SLA R1,3 MULTIPLY BY 8 TO GET SIZE IN BYTES.
>
> 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
>
--
Schrodinger's backup: The condition of any backup is unknown until a
restore is attempted.
Yoda of Borg, we are. Futile, resistance is, yes. Assimilated, you will be.
He's about as useful as a wax frying pan.
10 to the 12th power microphones = 1 Megaphone
Maranatha! <><
John McKown
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
