View previous topic :: View next topic
|
Author |
Message |
Prajesh_v_p
Active User
Joined: 24 May 2006 Posts: 133 Location: India
|
|
|
|
I am trying to list a datasets using the qualifiers. This is the code I have used.
Code: |
"ISPEXEC LMDINIT LISTID("IDV") LEVEL(&DSNM)"
DO FOREVER
"ISPEXEC LMDLIST LISTID("IDV") OPTION(LIST) DATASET(DSVAR)"
IF RC = 0 THEN SAY DSVAR
ELSE DO
"ISPEXEC LMDLIST LISTID("IDV") OPTION(FREE)" |
The same code will be executed again in the flow with a diffrent &DSNM. But I am getting the same old dataset list. Is there anything I am missing here?
Thanks,
Prajesh |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Do you do a LMDFREE anywhere ? |
|
Back to top |
|
|
Prajesh_v_p
Active User
Joined: 24 May 2006 Posts: 133 Location: India
|
|
|
|
I am getting a return code 10 for next iteration , when I use LMDFREE as below:
Code: |
"ISPEXEC LMDINIT LISTID("IDV") LEVEL(&DSNM)"
DO FOREVER
"ISPEXEC LMDLIST LISTID("IDV") OPTION(LIST) DATASET(DSVAR)"
IF RC = 0 THEN SAY DSVAR
ELSE DO
C = ' '
"ISPEXEC LMDFREE LISTID("IDV")" |
|
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
I think that you need to FREE the resource before you allocate it again
Code: |
"ISPEXEC LMDFREE LISTID("IDV")"
"ISPEXEC LMDINIT LISTID("IDV") LEVEL(&DSNM)"
|
|
|
Back to top |
|
|
Prajesh_v_p
Active User
Joined: 24 May 2006 Posts: 133 Location: India
|
|
|
|
Code: |
196 *-* "ISPEXEC LMDFREE LISTID("IDV")"
>>> "ISPEXEC LMDFREE LISTID(ISR00050)"
IRX0100I +++ Interactive trace. TRACE OFF to end debug, ENTER to continue. +++
197 *-* "ISPEXEC LMDINIT LISTID("IDV") LEVEL(&DSNM)"
>>> "ISPEXEC LMDINIT LISTID(ISR00050) LEVEL(&DSNM)"
198 *-* DO FOREVER
199 *-* "ISPEXEC LMDLIST LISTID("IDV") OPTION(LIST) DATASET(D
SVAR)"
>>> "ISPEXEC LMDLIST LISTID(ISR00050) OPTION(LIST) DATA
SET(DSVAR)"
+++ RC(10) +++ |
Still the same problem for me . This is the second iteration. First iteration went fine! |
|
Back to top |
|
|
|