I'm sorry for responding to the wrong post ☹ Thanks for getting back 1) I am still debugging my code what I mean to say by that is that my errors were incurred running under TESTAUTH (which really shouldn't matter its just that I am sharing my findings under TEST) 2) I have 2 load modules that I would like to be accessed by other address spaces in the system (I realize I could have put the load library in the linklist) however I choose to put them in LPA or to be more specific Dynamic LPA 3) my first step is I open the load library were my load modules are located This is my DCB STEPLB DCB DDNAME=&DDNAME, RECFM=U, DSORG=PO, MACRF=R The reason I have DDNAME equal a variable is because running TEST in a clist I cannot allocate STEPLIB I obtain 24 bit storage for the DCB * * Get Storage for STEPLIB DCB * STORAGE OBTAIN,LENGTH=MYDCBLEN,ADDR=(R9),LOC=(24,64),SP=0 I then open it * * Open STEPLIB DCB * OPEN ((R8),INPUT),MF=(E,OPENLS),MODE=31 I then issue a BLDL for purposes of getting the length of the load module since I would like to load these modules in CSA. I realize I could of done a LOAD and obtained the length from R1 but I found this value to be erroneous meaning not the same value I observed by browsing the datasets in ISPF BLDL (R8),LISTADDR I then get CSA storage using the length value from BLDL STORAGE OBTAIN, LENGTH=(R6), ADDR=(R8), SP=228 I then load the modules into the CSA address using the aforementioned DCB LOAD EPLOC=(R9), DCB=(R7), ADDR=(R8), ERRET=LOADERR, SF=(E,LOADLS) I then try to put it into LPA *-------------------------------------------------------------------* * Add OPENFILE and GETMACIN to LPA * *-------------------------------------------------------------------* LA R8,LPAREA USING LPMEA,R8 MVC LPMEANAME,=CL8'GETMACIN' MVC LPMEAENTRYPOINTADDR,GETMACAD OI LPMEAENTRYPOINTADDR,LPMEAENTRYPOINTADDRBIT0 MVC LPMEALOADPOINTADDR,GETMACAD NI LPMEALOADPOINTADDR,X'7F' MVC LPMEAMODLEN,PGMSLEN+32 LA R8,LPMEA_LEN(,R8) MVC LPMEANAME,=CL8'OPENFILE' MVC LPMEAENTRYPOINTADDR,OPENADDR OI LPMEAENTRYPOINTADDR,LPMEAENTRYPOINTADDRBIT0 MVC LPMEALOADPOINTADDR,OPENADDR NI LPMEALOADPOINTADDR,X'7F' MVC LPMEAMODLEN,PGMSLEN+2 CSVDYLPA REQUEST=ADD, MODINFOTYPE=MEMBERLIST, NUMMOD=TWOMEM, BYADDR=YES, REQUESTOR=DBGRSERVER, RETCODE=RETCODY, RSNCODE=ERRNX,MODINFO=LPAREA,MF=(E,DYNLPA) +* MACDATE -02/04/19- +M00M0042 DS 0H CSVDYLPA-1 + PUSH PRINT This is the output IKJ57024I AT +48E 15R 00000000 TESTAUTH 13r?+4cc l(200) xc IKJ57024I AT +48E 15R 00000000 TESTAUTH 13r?+4cc l(200) xc 1FA9C57C. C7C5E3D4 C1C3C9D5 00008000 000008A5 *GETMACIN.......v* 00000000 000002C9 9DF4E938 1DF4E938 000003E8 *...I.4Z..4Z....Y* 1FA9C59C. 00000000 00000000 D6D7C5D5 C6C9D3C5 *........OPENFILE* 00008000 000008A6 00000341 9DF4B418 *.......w.....4..* 1FA9C5BC. 1DF4B418 00003520 00000000 00000000 *.4..............* Register 15 is 0 and the high order bit +LPMEASUCCESS EQU X'80' Successfully processed is on it is offset A from both the GETMACIN literal And OPENFILE literal Now here is the problem starts later in my code I try linking to OPENFILE LINK EP=OPENFILE, PARAM=(ALETD,=CL8'SYSADATA',EXD_PTR), MF=(E,PARAMOP),SF=(E,LINK_LIST) Then this happens CSV005I BLDL FAILED FOR MODULE OPENFILE, DCB NOT OPEN CSV028I ABEND806-0C JOBNAME=JOER STEPNAME=ISPFLITE IKJ56641I DBGRSERV ENDED DUE TO ERROR IKJ56640I SYSTEM ABEND CODE 0C1 REASON CODE 00000001 TESTAUTH Don’t understand If I have it in LPA isn’t that part of the system search Path Thanks -----Original Message----- From: IBM Mainframe Discussion List On Behalf Of Peter Relson Sent: Sunday, October 31, 2021 8:55 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Load Module Search Libs Joe R wrote I added two load modules successfully using CSVDYLPA and later got a BLDL FAILED for that module DCB NOT OPEN when trying to link to that module I thought once added to LPA its in the system search path Once again you have failed to provide the details that would let someone help you. We should not have to keep saying this. Exactly what did your code do? Exactly what abend did you get? It is easily demonstrated that after a suitable (and successful) CSVDYLPA for module "X" that LINK EP=X works just fine. BLDL itself is not relevant to LPA modules. But it is relevant to a fetch request with a DCB provided or when a tasklib/steplib/joblib is involved. If you provided a DCB, then apparently you did not provide a valid DCB. Peter Relson z/OS Core Technology Design ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
