Hi For BYADDR=NO the entry point is being updated but not the length it returns a constant not reflective of the true module length consequently for a number of modules only part of it is being copied to LPA
Here is my code I get the names of the modules from the DESERV macro
DESERV FUNC=GET_ALL,AREAPTR=DESPTR,DCB=INDCB,MF=(E,DEPARM)
CLOSE ((R12)),MODE=31
*
STORAGE RELEASE,LENGTH=MYDCBLEN,ADDR=(R12),SP=0
*
* LA R8,LISTADDR
L R8,DESPTR
USING DESB,R8
LR R6,R9
L R12,DESB_COUNT
LA R4,DESB_DATA
USING SMDE,R4
NAMELP DS 0H
LH R7,SMDE_NAME_OFF
LA R8,0(R7,R4)
USING SMDE_NAME,R8
LA R7,CSVLMPEA
USING LPMEA,R7
XC 0(LPMEA_LEN,R7),0(R7)
MVC LPMEANAME,2(R8)
OI LPMEAINPUTFLAGS0,LPMEAFIXED
*
CSVDYLPA REQUEST=ADD,MODINFOTYPE=MEMBERLIST, X
MODINFO=(R7),NUMMOD=F1,REQUESTOR=LREQ, X
DSNAME=LDS1, X
RETCODE=RETCODE,RSNCODE=RSNCODE,MF=(E,DYLPAL)
MVI 0(R9),X'FF'
MVC 0(4,R6),LPMEAENTRYPOINTADDR
CLC LPMEANAME,TSTARCOV
BNE BUMP#IN
MVC RECOVPTR,LPMEAENTRYPOINTADDR
BUMP#IN DS 0H
LA R6,4(,R6) Store in vector table
L R7,SMDE_LEN
LA R4,0(R7,R4)
BCT R12,NAMELP
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
