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
 
Syncsort Delete processing!

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
fredrick andrews

New User


Joined: 10 Jun 2010
Posts: 52
Location: chennai

PostPosted: Thu Jan 20, 2011 9:53 pm    Post subject: Syncsort Delete processing!
Reply with quote

Hi ,

We have SYNCSORT FOR Z/OS 1.3.2.2RI .

I am trying to process a file in which I'll have to delete the duplicates (leave just one instance of it) and have some exceptions which I will not process.


The exceptions are

????????????
9999999999 records.

The dataset is FB , LRECL = 500

Also, I want the data to be not altered in the output.

Sample Input:


Code:
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA         
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB             
99999999999999999999999999999999999999999999999999
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC             
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA         
????????????????????????????????????????         
????????????????????????????????????????         
99999999999999999999999999999999999999999999999999
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB             
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB             
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC             
????????????????????????????????????????         
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA         
99999999999999999999999999999999999999999999999999
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD         
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB             
????????????????????????????????????????         
????????????????????????????????????????         
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC             
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA         
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB             









Code:
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA         
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB             
99999999999999999999999999999999999999999999999999
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC             
????????????????????????????????????????         
????????????????????????????????????????         
99999999999999999999999999999999999999999999999999
????????????????????????????????????????         
99999999999999999999999999999999999999999999999999
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD         
????????????????????????????????????????         
????????????????????????????????????????       



Any suggestions if this can be done and how?
Back to top
View user's profile Send private message

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Fri Jan 21, 2011 4:45 am    Post subject:
Reply with quote

Hi,

you can try this
Code:
//STEP0100 EXEC PGM=SYNCTOOL                                           
//TOOLMSG  DD SYSOUT=*                                                 
//DFSMSG   DD SYSOUT=*                                                 
//IN       DD DSN=input file                     
//T1       DD DSN=&&T1,DISP=(,PASS,DELETE),UNIT=SYSDA,                 
//            SPACE=(TRK,(10,5),RLSE)                                   
//OUT      DD SYSOUT=*                                                 
//TOOLIN   DD *                                                         
  SORT FROM(IN) TO(T1) USING(CTL1)                                     
  SORT FROM(T1) TO(OUT) USING(CTL2)                                     
/*                                                                     
//CTL1CNTL DD *                                                         
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(501:SEQNUM,8,ZD)),                   
        IFTHEN=(WHEN=(1,7,CH,EQ,C'9999999'),                           
                OVERLAY=(509:SEQNUM,8,ZD)),                             
        IFTHEN=(WHEN=(1,7,CH,EQ,C'???????'),                           
                OVERLAY=(509:SEQNUM,8,ZD))                             
   SORT FIELDS=(1,500,BI,A,509,8,BI,A)                                 
   SUM FIELDS=NONE                                                     
/*                                                       
//CTL2CNTL DD *                                         
  SORT FIELDS=(501,8,ZD,A)                               
  OUTREC BUILD=(1,500)                                   
/*                                                       



Gerry
Back to top
View user's profile Send private message
fredrick andrews

New User


Joined: 10 Jun 2010
Posts: 52
Location: chennai

PostPosted: Sun Jan 23, 2011 2:23 am    Post subject:
Reply with quote

gcicchet wrote:
Hi,

you can try this
Code:
//STEP0100 EXEC PGM=SYNCTOOL                                           
//TOOLMSG  DD SYSOUT=*                                                 
//DFSMSG   DD SYSOUT=*                                                 
//IN       DD DSN=input file                     
//T1       DD DSN=&&T1,DISP=(,PASS,DELETE),UNIT=SYSDA,                 
//            SPACE=(TRK,(10,5),RLSE)                                   
//OUT      DD SYSOUT=*                                                 
//TOOLIN   DD *                                                         
  SORT FROM(IN) TO(T1) USING(CTL1)                                     
  SORT FROM(T1) TO(OUT) USING(CTL2)                                     
/*                                                                     
//CTL1CNTL DD *                                                         
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(501:SEQNUM,8,ZD)),                   
        IFTHEN=(WHEN=(1,7,CH,EQ,C'9999999'),                           
                OVERLAY=(509:SEQNUM,8,ZD)),                             
        IFTHEN=(WHEN=(1,7,CH,EQ,C'???????'),                           
                OVERLAY=(509:SEQNUM,8,ZD))                             
   SORT FIELDS=(1,500,BI,A,509,8,BI,A)                                 
   SUM FIELDS=NONE                                                     
/*                                                       
//CTL2CNTL DD *                                         
  SORT FIELDS=(501,8,ZD,A)                               
  OUTREC BUILD=(1,500)                                   
/*                                                       



Gerry



Thanks for that...
I'll try that and let you know how it goes...
Back to top
View user's profile Send private message
fredrick andrews

New User


Joined: 10 Jun 2010
Posts: 52
Location: chennai

PostPosted: Wed Jan 26, 2011 3:02 pm    Post subject: Reply to: Syncsort Delete processing!
Reply with quote

Worked! Perfectly..
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 How to delete large data. Mounika Nemani DB2 1 Wed Jun 13, 2018 1:58 pm
No new posts MXG - Processing Compressed DB2 SMF r... vasanthz All Other Mainframe Topics 2 Thu May 10, 2018 12:47 am
No new posts VSAM file NOT Found error while proce... SumaReva CICS 5 Wed Apr 11, 2018 9:54 pm
No new posts Reformatting and adding additional fi... Badbeef SYNCSORT 6 Thu Apr 05, 2018 4:45 pm
No new posts load and delete table through JCL wit... ram_vizag JCL & VSAM 9 Thu Feb 01, 2018 12:47 am

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