Here is My Code LOAD EP=OPENFILE SLL R1,8 GET RID OF THE AUTH CODE SRL R1,5
LENGTH IS VALUE TIMES 8 ST R1,OPENLEN This generates X'00004000' in r1 This
is what I see in ISPF Browse BROWSE JOER.DBGR.DLLLIB Row 0000015 of 0000025
Command ===> Scroll ===> CSR Name Prompt Alias-of Size TTR AC AM RM .
OPENFILE 00003530 000667 01 31 ANY This is the exec I use to kick off TEST
so OPENFILE is coming from JOER.DBGR.DLLLIB ******
***************************** Top of Data ******************************
000100 PROC 0 000200 TSOLIB ACTIVATE DATASET
('JOER.TEST.AUTHLIB','JOER.DBGR.DLLLIB') 000300 TESTAUTH
'JOER.TEST.AUTHLIB(TESTPRGH)' 000400 LOAD 'SYS1.CMDLIB(IKJEGLST)' 000500 Q
TESTPRGH.TESTPRGH.+0 JOER.DBGR.DLLLIB Data Set Information Command ===>
More: Data Set Name . . . : JOER.DBGR.DLLLIB General Data Current Allocation
Management class . . : **None** Allocated cylinders : 35 Storage class . . .
: **None** Allocated extents . : 4 Volume serial . . . : WORKA1 Maximum dir.
blocks : NOLIMIT Device type . . . . : 3390 Data class . . . . . : **None**
Organization . . . : PO Current Utilization Record format . . . : U Used
pages . . . . : 264 Record length . . . : 0 % Utilized . . . . : 4 Block
size . . . . : 6144 Number of members . : 25 1st extent cylinders: 5
Secondary cylinders : 10 Data set name type : LIBRARY Dates Data set
encryption : NO Creation date . . . : 2019/07/05 Data set version . : 1
Referenced date . . : 2021/08/23 Expiration date . . : ***None*** Thanks
-----Original Message----- From: IBM Mainframe Discussion List On Behalf Of
Seymour J Metz Sent: Monday, August 23, 2021 6:51 AM To:
[email protected] Subject: Re: Load Library Module Length and Load
Macro Module Length different Values Show your code. -- Shmuel (Seymour J.)
Metz http://mason.gmu.edu/~smetz3 ________________________________________
From: IBM Mainframe Discussion List [[email protected]] on behalf of
Joseph Reichman [[email protected]] Sent: Sunday, August 22, 2021 7:06
PM To: [email protected] Subject: Load Library Module Length and Load
Macro Module Length different Values 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 _____ Scanned by McAfee and confirmed virus-free.
---------------------------------------------------------------------- For
IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
---------------------------------------------------------------------- For
IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN Scanned by McAfee
and confirmed virus-free. Find out more here: https://bit.ly/2zCJMrO---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
