While your code is obviously wrong, there is no reason to do it this way any more.
IBM has provided CSVDYLPA to do it. On Sun, 22 Aug 2021 19:06:35 -0400 Joseph Reichman <[email protected]> wrote: :>Hi :> :> :> :>I have a number of programs I am trying to move to CSA towards this end I :>need to know the starting address and length of the load module :> :> :> :>Here is the code I use to obtain the length as register 1 low order 3 bytes :>has the length in double words :> :> :> :>SLL R1,8 Get Rid of auth code :> :>SLL R1,5 Length is value times 8 :> :> :> :> :> :>After doing the following the result is X'000040000' However looking in :>ISPF browse for the loadlibrary in the size column it says X'3530' :> :> :> :>When I try to MVCL fore X'4000' I get s0c4 for X'3530' its okay :> :> :> :>I tried using LOAD with the EXTINFO parm It returns one extent with a :>length X'4000' as well :> :> :> :>Could anyone shed light on this conflict :> :> :> :>Thanks :> :> :> :> :> _____ :> :> :><https://home.mcafee.com/utm_medium=email&utm_source=link&utm_campaign=sig-e :>mail&utm_content=emailclient?utm_medium=email&utm_source=link&utm_campaign=s :>ig-email&utm_content=emailclient> Scanned by McAfee :><https://home.mcafee.com/utm_medium=email&utm_source=link&utm_campaign=sig-e :>mail&utm_content=emailclient?utm_medium=email&utm_source=link&utm_campaign=s :>ig-email&utm_content=emailclient> and confirmed virus-free. :> :>---------------------------------------------------------------------- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to [email protected] with the message: INFO IBM-MAIN -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
