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
 
DFSORT Using REXX

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

New User


Joined: 27 Feb 2008
Posts: 25
Location: Phoenix, AZ,USA

PostPosted: Fri Sep 10, 2010 6:47 pm    Post subject: DFSORT Using REXX
Reply with quote

Hello everyone,
I am working on a REXX code that uses SORT to copy the SORTIN records in SORTOUT file.

Code:

/*REXX*/
SAY 'SORT PROGRAM'
"CALL 'SYS1.SICELINK(SORT)'"
"EXECIO * DISKR SORTOUT (FINIS"


But when i execute this code I am getting an error:

Code:

A command entered or contained in a CLIST has invalid syntax.


I checked if I had used any queue in my code, I did not but still I was getting the same error...

Could anyone , please point me where I am going wrong.

Thanks
Srikanth
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Sep 10, 2010 7:16 pm    Post subject:
Reply with quote

Hello,

Any particular reason this is posted in the CA Products part of the forum?

Suggest you post the results of actually running the trace (rather than having this commented).
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Fri Sep 10, 2010 7:46 pm    Post subject: Reply to: DFSORT Using REXX
Reply with quote

First of all, I edited your topic to remove all of the TSO ALLOCATE statements since they are really irrelevent to your issue.

You use the command

"EXECIO * DISKR SORTOUT (FINIS"

which reads all of the records from SORTOUT into the data stack (you didn't tell it to do otherwise), but then I don't see that you ever do anything with that stack. That's why you're getting that error.
Back to top
View user's profile Send private message
srikanth_cts

New User


Joined: 27 Feb 2008
Posts: 25
Location: Phoenix, AZ,USA

PostPosted: Mon Sep 13, 2010 1:00 pm    Post subject: Reply to: DFSORT Using REXX
Reply with quote

Hi,
Thank you so much for responding . I had coded as suggested and I am able to perform the sort.

Please find below the code:

Code:

 /*REXX*/                                                       
 /*TRACE I*/                                                     
 SAY 'SORT PROGRAM'                                             
 ADDRESS TSO                                                     
 "FREE FI(SYSOUT SORTIN SORTOUT SYSIN)"                         
 "ALLOC FI(SYSOUT) DA(*)"                                       
 "ALLOC FI(SORTIN) DA('INXXXXX.TEST2.CUSTUPD.G0010V00') REUSE"   
 "ALLOC FI(SORTOUT) DA('INXXXXX.TEST2.DUPX') REUSE"             
 "ALLOC FI(SYSIN) DA('INXXXXX.TEST2.SYSIN') SHR REUSE"           
 "ALLOC FI(SORTWK01) DA('INXXXXX.TEST2.SYSWK1') SHR REUSE"       
 "ALLOC FI(SYSOUT) DA('INXXXXX.TEST2.SYSOUT') SHR REUSE"         
 "CALL 'SYS1.SICELINK(SORT)'"                                   
         


note: attachment deleted
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1060
Location: Oostende, Belgium

PostPosted: Tue Sep 14, 2010 3:44 pm    Post subject:
Reply with quote

Do not post attachments, and most certainly do not post attachments that you have downloaded from IBM. Post a link to them!
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. 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
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am

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