View previous topic :: View next topic
|
Author |
Message |
royalchm
New User
Joined: 15 Nov 2007 Posts: 29 Location: Bangalore
|
|
|
|
Myrequirement is write a pds contents to a seqfile.
I have moved all the pds data to an array and when i write the contents from array to the seq file, i am getting an error in the second attepmt onwards.
Code: |
ERROR : IKJ56861I FILE SEQFL NOT FREED, DATA SET IS OPEN |
Code used to write the seq file
Code: |
PREFIX=SYSVAR(SYSUID)
OPDSN = "'LST."||PREFIX||"."||LISTPDS1"'"
DUMMY = OUTTRAP("JUNK.","*")
ADDRESS TSO
"DELETE " OPDSN
"FREE FI(SEQFL)"
DUMMY =OUTTRAP("OFF")
"ALLOC FI(SEQFL) DA("OPDSN") NEW UNIT(SYSDA) DSORG(PS)",
"SPACE(100 200) TRACKS LRECL(80) BLKSIZE(6160) RECFM(F B)"
"EXECIO" SEQFILENUMLINES "DISKW SEQFL (STEM SEQARRAY.FINIS"
"FREE FI(SEQFL)"
RETURN |
The file content also not correct(at first time, second time onwards i am getting the above error.).
But SEQARRAY has all the elements which was present in the given PDS, and while writing seq file is not getting written with the actual contents. The file content i have given below.
OUTPUT
Code: |
000001 SEQARRAY.FINIS1
000002 SEQARRAY.FINIS2
000003 SEQARRAY.FINIS3
000004 SEQARRAY.FINIS4
000005 SEQARRAY.FINIS5
000006 SEQARRAY.FINIS6
000007 SEQARRAY.FINIS7
000008 SEQARRAY.FINIS8
000009 SEQARRAY.FINIS9
000010 SEQARRAY.FINIS10
000011 SEQARRAY.FINIS11
000012 SEQARRAY.FINIS12
000013 SEQARRAY.FINIS13
000014 SEQARRAY.FINIS14
000015 SEQARRAY.FINIS15
000016 SEQARRAY.FINIS16
000017 SEQARRAY.FINIS17
000018 SEQARRAY.FINIS18
000019 SEQARRAY.FINIS19 |
Please help me out to find a solution.
edited to get rid of the annoying colors and use the code tags |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
the blanks watch the blanks ! |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
do not double post about the same issue...
You were already helped, but looks like You did not care to read !
REread my previous reply! |
|
Back to top |
|
|
royalchm
New User
Joined: 15 Nov 2007 Posts: 29 Location: Bangalore
|
|
|
|
Morning i came and searched my post, then i can't see that y i posted it again. sorry for that. |
|
Back to top |
|
|
royalchm
New User
Joined: 15 Nov 2007 Posts: 29 Location: Bangalore
|
|
|
|
Thanks for the help now it's working fine.
Thanks once again. |
|
Back to top |
|
|
|