View previous topic :: View next topic
|
Author |
Message |
srikanth_cts
New User
Joined: 27 Feb 2008 Posts: 25 Location: Phoenix, AZ,USA
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
srikanth_cts
New User
Joined: 27 Feb 2008 Posts: 25 Location: Phoenix, AZ,USA
|
|
|
|
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 |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
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 |
|
|
|