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

Separate data by type using Syncsort
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Itanium

Active User


Joined: 22 Jan 2006
Posts: 114
Location: India
PostPosted: Sat Apr 12, 2008 8:02 am
 Reply with quote
I tried to execute the same code and got the below abend, Can you please check and tell me the issue.

Code:
 
SYNCSORT FOR Z/OS  ....
.
.

 SYSIN :                                                                       
   OPTION COPY                                                                 
   INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'AAAAA')),                             
                   *                                                           
     IFTHEN=(WHEN=(1,1,FS,EQ,NUM),OVERLAY=(81:C'N'),HIT=NEXT),                 
     IFTHEN=(WHEN=(2,1,FS,EQ,NUM),OVERLAY=(82:C'N'),HIT=NEXT),                 
     IFTHEN=(WHEN=(3,1,FS,EQ,NUM),OVERLAY=(83:C'N'),HIT=NEXT),                 
     IFTHEN=(WHEN=(4,1,FS,EQ,NUM),OVERLAY=(84:C'N'),HIT=NEXT),                 
     IFTHEN=(WHEN=(5,1,FS,EQ,NUM),OVERLAY=(85:C'N'))                           
   OUTFIL FNAMES=ALPHA,INCLUDE=(81,5,CH,EQ,C'AAAAA'),BUILD=(1,80)               
   OUTFIL FNAMES=NUM,INCLUDE=(81,5,CH,EQ,C'NNNNN'),BUILD=(1,80)                 
   OUTFIL FNAMES=ALPHANUM,SAVE,BUILD=(1,80)                                     
 WER268A  INREC STATEMENT   : SYNTAX ERROR                                     
 WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                                 
 WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE                                 
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Sat Apr 12, 2008 8:38 am
 Reply with quote
Hello,

Your system uses Syncsort.

The posted solution is for DFSORT.

For whatever reason you cut off part of the Syncsort messages. I'll guess that you are not running Syncsort 1.3 but some earlier version. If your system is upgraded to Syncsort 1.3, i believe this solution will work for you.
Back to top
View user's profile Send private message
Itanium

Active User


Joined: 22 Jan 2006
Posts: 114
Location: India
PostPosted: Sat Apr 12, 2008 8:42 am
 Reply with quote
you are correct Dick, it's not 1.3.

Code:
SYNCSORT FOR Z/OS  1.2.2.1R


I had to cut part of synsort messages as it had my shop details.

Thanks,
Itanium
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
PostPosted: Sat Apr 12, 2008 8:23 pm
 Reply with quote
Untested, but something like this should work (I think?????)
Code:
 SORT FIELDS=COPY
 OUTFIL FNAMES=NUM,
 INCLUDE COND=(1,1,EQ,C'0,1,2,3,4,5,6,7,8,9,0',AND
               2,1,EQ,C'0,1,2,3,4,5,6,7,8,9,0',AND
               3,1,EQ,C'0,1,2,3,4,5,6,7,8,9,0',AND
               4,1,EQ,C'0,1,2,3,4,5,6,7,8,9,0',AND
               5,1,EQ,C'0,1,2,3,4,5,6,7,8,9,0'),FORMAT=CH
 OUTFIL FNAMES=ALPHA,
 INCLUDE COND=(1,1,NE,C'0,1,2,3,4,5,6,7,8,9,0',AND
               2,1,NE,C'0,1,2,3,4,5,6,7,8,9,0',AND
               3,1,NE,C'0,1,2,3,4,5,6,7,8,9,0',AND
               4,1,NE,C'0,1,2,3,4,5,6,7,8,9,0',AND
               5,1,NE,C'0,1,2,3,4,5,6,7,8,9,0'),FORMAT=CH
 OUTFIL FNAMES=ALPHANUM,
 INCLUDE COND=(1,1,EQ,C'0,1,2,3,4,5,6,7,8,9,0',OR
               2,1,EQ,C'0,1,2,3,4,5,6,7,8,9,0',OR
               3,1,EQ,C'0,1,2,3,4,5,6,7,8,9,0',OR
               4,1,EQ,C'0,1,2,3,4,5,6,7,8,9,0',OR
               5,1,EQ,C'0,1,2,3,4,5,6,7,8,9,0'),AND,
              (1,1,NE,C'0,1,2,3,4,5,6,7,8,9,0',OR
               2,1,NE,C'0,1,2,3,4,5,6,7,8,9,0',OR
               3,1,NE,C'0,1,2,3,4,5,6,7,8,9,0',OR
               4,1,NE,C'0,1,2,3,4,5,6,7,8,9,0',OR
               5,1,NE,C'0,1,2,3,4,5,6,7,8,9,0'),FORMAT=CH


And by the way, Itanium, did you attempt to manually align the * under the syntax error?
Back to top
View user's profile Send private message
Itanium

Active User


Joined: 22 Jan 2006
Posts: 114
Location: India
PostPosted: Tue Apr 15, 2008 10:53 am
 Reply with quote
Quote:
Itanium, did you attempt to manually align the * under the syntax error?


i dont think so.. just copied and pasted.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Tue Apr 15, 2008 11:58 am
 Reply with quote
Hello,

Did you try the solution that CG suggested? If so, what happened?
Back to top
View user's profile Send private message
Itanium

Active User


Joined: 22 Jan 2006
Posts: 114
Location: India
PostPosted: Tue Apr 15, 2008 2:09 pm
 Reply with quote
Yes Dick, but the actual query was from the below thread

http://ibmmainframes.com/viewtopic.php?t=29815&highlight=sort+to+seperate+separate+numeric+alphabetic

I was trying to execute Frank's IFTHEN in our shop.

Thank you,
Itanium
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 -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts Store the data for fixed length COBOL Programming 1
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
No new posts SCOPE PENDING option -check data DB2 2
No new posts Check data with Exception Table DB2 0
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us