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
 

 

Separate data by type using Syncsort

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject:
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

Site Director


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

PostPosted: Sat Apr 12, 2008 8:38 am    Post subject:
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    Post subject:
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: 2150
Location: At my coffee table

PostPosted: Sat Apr 12, 2008 8:23 pm    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Tue Apr 15, 2008 11:58 am    Post subject:
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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts copying data without knowing location arunsoods DFSORT/ICETOOL 6 Thu Jul 20, 2017 1:03 pm
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Loading data to table gives wrong for... Raghu navaikulam DB2 19 Thu Jul 13, 2017 2:11 pm
No new posts SQL - select data available in index Nileshkul DB2 3 Mon Jun 26, 2017 1:30 am
No new posts NDM syntax checking without actually ... GAPX1 All Other Mainframe Topics 0 Wed Jun 07, 2017 2:36 am


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