IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Invoking DFSORT in REXX?


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
passion_sujesh

New User


Joined: 14 Mar 2008
Posts: 74
Location: India,Chennai

PostPosted: Tue Apr 07, 2009 3:12 pm
Reply with quote

Is it possible to call DFSORT utility in rexx. IF possible can any one please send me any KEY words to search in this forum. I have a requirement in which i have to sort few files based on certain condition. This has to be in rexx as i am writing a rexx code which needs the file to be sorted before Proceeding further.

Sujesh.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Tue Apr 07, 2009 3:23 pm
Reply with quote

Yes, it's possible. Here's a snippet of code that I use to sort a stem
Code:

x = msg('off')                                                         
"Free  fi(sysout)"                                                     
"Alloc fi(sysout) sysout(X)"                                           
if ax.0 > 1 then do                                                 
  "Free  fi(Sysin,Sortin,Sortout)"                                     
  "Alloc fi(Sysin)    new tracks space(3 3)     recfm(f b) lrecl(80)" 
  "Alloc fi(Sortin)   new tracks space(300 300) recfm(v b) lrecl(80)" 
  "Alloc fi(Sortout)  new tracks space(300 300) recfm(v b) lrecl(80)" 
  Push " OPTION VLSHRT VLSCMP"                                         
  "Execio 1 Diskw Sysin"                                               
  Push " SORT FIELDS=(5,44,CH,A)"                                     
  "Execio 1 Diskw Sysin   ( Finis"                                     
  "Execio * Diskw Sortin  ( Stem ax. Finis"                       
   Drop ax.                                     
   ax.0 = 0                                     
   "Call *(SORT)"                                   
   "Execio * Diskr Sortout ( Stem ax. Finis"   
   "Free  fi(Sysin,Sortin,Sortout)"                 
 end                                               
Back to top
View user's profile Send private message
passion_sujesh

New User


Joined: 14 Mar 2008
Posts: 74
Location: India,Chennai

PostPosted: Tue Apr 07, 2009 3:44 pm
Reply with quote

Thanks Expat.
Back to top
View user's profile Send private message
passion_sujesh

New User


Joined: 14 Mar 2008
Posts: 74
Location: India,Chennai

PostPosted: Thu Sep 24, 2009 8:21 am
Reply with quote

Hi Expat,
The code u provided works fine, but if there is any issue in the sort card the sysmptom dump is displayed on the screen. Is is possible to route the sysmtopm dump to any file, instead of displaying them on the screen.
Can u please help me in this.

Symptom dump message displayed:
IEA995I SYMPTOM DUMP OUTPUT
USER COMPLETION CODE=0007
TIME=04.51.09 SEQ=11111 CPU=0000 ASID=001234
PSW AT TIME OF ERROR 0345f3000 000v45874 ILC 2 INTC 0D
..
..
End of Symptom dump

Thanks in advance,
Sujesh.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Sep 24, 2009 11:50 am
Reply with quote

What DD name does the output assign to if the abend occurs in batch.
A guess - DD = SYSUDUMP
Back to top
View user's profile Send private message
passion_sujesh

New User


Joined: 14 Mar 2008
Posts: 74
Location: India,Chennai

PostPosted: Thu Sep 24, 2009 3:53 pm
Reply with quote

Hi expat,
I tried with the ddname 'SYSUDUMP', but the issue still exist. The symptom dump is still dispalyed on the screen. Is there any other ddname which will solve this issue.

Thanks in advance,
Sujesh.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Sep 24, 2009 4:04 pm
Reply with quote

From the manual, I found these, so try them all and see what happens, but apart from that I suggest you post a question in the DFSORT forum and let one of the product developers answer you. You can't get a better answer than from those guys.

Quote:

//SYSUDUMP DD
Defines the data set for output from a system ABEND dump routine

//SYSMDUMP DD
Same as //SYSUDUMP DD

//SYSABEND DD
Same as //SYSUDUMP DD

//SORTSNAP DD
Defines the snap dump data set dynamically allocated by DFSORT
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top