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
 

 

Invoking DFSORT in REXX?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
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    Post subject: Invoking DFSORT in REXX?
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: 8593
Location: Back in jolly old England

PostPosted: Tue Apr 07, 2009 3:23 pm    Post subject:
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    Post subject: Reply to: Invoking DFSORT in REXX?
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    Post subject: Reply to: Invoking DFSORT in REXX?
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: 8593
Location: Back in jolly old England

PostPosted: Thu Sep 24, 2009 11:50 am    Post subject:
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    Post subject: Reply to: Invoking DFSORT in REXX?
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: 8593
Location: Back in jolly old England

PostPosted: Thu Sep 24, 2009 4:04 pm    Post subject:
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    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
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts DFSORT - Overriding default option TU... Steve Ironmonger DFSORT/ICETOOL 3 Tue Apr 04, 2017 3:54 pm
No new posts REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am


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