Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. 00D3003B - time outs in DB2 when invo... chavinash2004 DB2 2 Mon Oct 09, 2017 4:39 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us