View previous topic :: View next topic
|
Author |
Message |
genesis786
Active User
Joined: 28 Sep 2005 Posts: 210 Location: St Katherine's Dock London
|
|
|
|
Hi, I am executing this code but getting ISP139 error saying output file is not a PDS. But 'jdsd' i have defined is in fact a PDS.
Code: |
jdsd = "DGE.QIKREF.JCL"
address tso"alloc fi(FTLIB) da('"jdsd"') shr"
address ispexec "ftopen TEMP"
address ispexec "ftincl QREFSKEL"
address ispexec "ftclose name("jobname")library(FTLIB)"
address ispexec "edit dataset('"jdsd"("jobname")')"
address tso"free fi(FTLIB)"
|
i tried to trace and the code is stopping at FTCLOSE saying:
Code: |
Current dialog statement:
ftclose name(LECURKQR)library(FTLIB)
|
can you please help.
Regards
Rahul. |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
I have always used LMM... API's to deal with PDS's
because then I don't have to get into the nitty gritty of
assembler type commands,
plus the nature of an ALLOCATE to impose attributes on an existing file.
So, I don't know if you should have defined jdsd as
jdsd = "DGE.QIKREF.JCL"
or
jdsd = "DGE.QIKREF.JCL(member-name)"
because i don't use the FT... group of instructions.
I would insert an rc check after every ispexec invokation, and then trace it. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
the error is in the ftopen statement ,
in order to save to a member of a pds the TEMP keyword should not be used |
|
Back to top |
|
|
genesis786
Active User
Joined: 28 Sep 2005 Posts: 210 Location: St Katherine's Dock London
|
|
|
|
thanks. it worked! i removed TEMP from ftopen. |
|
Back to top |
|
|
|