Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Error while writing to seq file and error output

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
royalchm

New User


Joined: 15 Nov 2007
Posts: 29
Location: Bangalore

PostPosted: Wed Sep 22, 2010 5:15 pm    Post subject: Error while writing to seq file and error output
Reply with quote

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
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Wed Sep 22, 2010 5:21 pm    Post subject: Reply to: Error while writing to seq file and error output
Reply with quote

Code:
SEQARRAY.FINIS

the blanks watch the blanks !
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Thu Sep 23, 2010 10:10 am    Post subject: Reply to: Error while writing to seq file and error output
Reply with quote

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
View user's profile Send private message
royalchm

New User


Joined: 15 Nov 2007
Posts: 29
Location: Bangalore

PostPosted: Thu Sep 23, 2010 11:03 am    Post subject:
Reply with quote

Morning i came and searched my post, then i can't see that y i posted it again. sorry for that.
Back to top
View user's profile Send private message
royalchm

New User


Joined: 15 Nov 2007
Posts: 29
Location: Bangalore

PostPosted: Thu Sep 23, 2010 11:08 am    Post subject:
Reply with quote

Thanks for the help now it's working fine.
Thanks once again.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 1 Fri Mar 24, 2017 3:25 pm
No new posts splitting a file abdulrafi DFSORT/ICETOOL 3 Fri Mar 24, 2017 11:51 am
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Formatting VB File Learncoholic DFSORT/ICETOOL 3 Mon Mar 20, 2017 12:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us