CSVDYLPA ADD/DELETE
Hi
I believe I am experienceing a problem using CSVDYLPA, which I would like to
get some assistance on.
I have two programs:
The first program issues CSVDYLPA REQUEST=ADD, followed by CSVQUERY.
The ADDToken returned from CSVDYLPA REQUEST=ADD is stored in a file for latter
use.
Second Program reads the file and retrieves the Token returned from CSVDYLPA.
The Second Program issues CSVQUERY INEPNAME=MODNAME,SEARCH=LPA,
Followed by CSVDYLPA REQUEST=DELETE
After An IPL:
I can run the first program and A Zero Return Code is
received for CSVDVLPA REQUEST=ADD and CSVQUERY.
So I added a module to LPA and Use CSVQUERY to verify and retrieve the
entry point.
Some Time latter I run the second program
I first read the file to retrieve the TOKEN that was stored in PROGRAM 1.
Then I issue CSVQUERY, followed by CSVDYLPA REQUEST=DELETE.
Again I get a Zero Return Code for both CSVQUERY and CSVDYLPA.
So I verify the module with CSCQUERY then deleted it from LPA.
Now when I run through this sequence of programs a second time,
The First Program receives A Zero Return Code for CSVDVLPA REQUEST=ADD and
CSVQUERY.
The Second Program receives a Zero Return Code for CSVQUERY and a Return Code
of 4 with a reason code of 000401 for CSVDVLPA REQUEST=DELETE.
I probably do not fully understand what CSVDVLPA REQUEST=DELETE does.
I dont understand how in the second running of these 2 programs I get a zero
return Code from CSVQUERY and the 4-0401 foe CSVDVLPA.
I provided the macros used for both programs.
First Program
* 03780000
LA R2,ADDINFO . 03790004
CSVDYLPA REQUEST=ADD, XX03800000
MODINFOTYPE=MEMBERLIST, XX03810000
MODINFO=(R2), XX03820000
NUMMOD=LMDDN, XX03830000
DDNAME=DDNAME1, XX03840001
REQUESTOR=LREQ, XX03850000
RETCODE=LRETCODE, XX03860000
RSNCODE=LRSNCODE, XX03870000
PLISTVER=MAX, XX03880000
MF=(E,DYLPAL) 03890000
* 03890131
MVC RETCODE,LRETCODE Save Return Code 03891042
MVC RSNCODE,LRSNCODE Save Reason Code 03892042
* 03900000
* 04020024
CSVQUERY INEPNAME=MODNAME, XX04030024
OUTEPA=(2), XX04040024
RETCODE=RETCODE, XX04051030
SEARCH=LPA, XX04060024
PLISTVER=MAX, XX04080024
MF=(E,XCSVQUERY,COMPLETE) 04090030
* 04110024
***** OUTLOADPT=(3), XX 04111030
ST R2,EPA@ Entry Pount Address 04120024
ST R3,LOADPT@ Load Point Address 04130024
* 04140024
************************************************************************
Second Program
************************************************************************
* 02125719
CSVQUERY INEPNAME=MODNAME, XX02125819
SEARCH=LPA, XX02125919
OUTEPA=(2), XX02126019
RETCODE=RETCODE, XX02126119
PLISTVER=MAX, XX02126219
MF=(E,XCSVQUERY,COMPLETE) 02126319
* 02126419
ST R2,OUTEPA@ 02126519
*
02126619
LA R2,DELINFO . 02128939
USING LPMED,R2 . 02129039
* 02129100
CSVDYLPA REQUEST=DELETE, XX02130003
MODINFO=(R2), XX02150000
NUMMOD=LMDDN, XX02160000
TYPE=BYTOKEN, XX02170022
RETCODE=LRETCODE, XX02190000
RSNCODE=LRSNCODE, XX02200000
PLISTVER=MAX, XX02210000
MF=(E,DYLPAL) 02220000
* 02230000
MVC LPMFLAGS,LPMEDOUTPUTFLAGS Save Output Flags 02231041
MVC RETCODE,LRETCODE Save Return Code 02231140
MVC RSNCODE,LRSNCODE Save Reason Code 02232039
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
