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
 
Create a email-id file using sort.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
muffirulz

New User


Joined: 14 Sep 2005
Posts: 74
Location: Kentucky, USA

PostPosted: Wed May 07, 2008 9:06 pm    Post subject: Create a email-id file using sort.
Reply with quote

Hi,

I have the following situation. There is an unload file from database containing email ids.
Code:

 COMMAND ===>                                                  SCROLL ===> C
WS-REQUEST-ID WS-PLATFORM-CD WS-ADMIN-ID WS-REPORT-ID WS-EMAIL-ADDRESS     
3/PS          1/AN           5/PS        8/AN         80/AN                 
(1-3)         (4-4)          (5-9)       (10-17)      (18-43)               
1------------ 2------------- 3---------- 4----------- 5---------------------
********************************* TOP OF DATA **********************-CAPS OF
           53 C                187437260 AE32361      MMADDA@HUMANA.COM     
           57 C                187437260 AE32361      MMADDA@HUMANA.COM     
           58 C                187437260 AE32961      MMADDA@HUMANA.COM     
           54 C                187437260 AE32961      MMADDA@HUMANA.COM     
           49 C                967516284 AE32361      SMUTHINENI@HUMANA.COM
           50 C                967516284 AE32961      SMUTHINENI@HUMANA.COM
           59 M                632500157 AE32361M     MMADDA@HUMANA.COM     
           51 M                632500157 AE32361M     SMUTHINENI@HUMANA.COM
           52 M                632500157 AE32961M     MMADDA@HUMANA.COM     
           60 M                632500157 AE32961M     SMUTHINENI@HUMANA.COM
           47 M                820929092 AE32361M     SMUTHINENI@HUMANA.COM
           48 M                820929092 AE32961M     SMUTHINENI@HUMANA.COM


I want to create an E-mail id file so that I can send out Email messages. In the above file the mail address is repeated more than once.
How can I use sort to eliminate the duplicates and create below file

Code:

TO=<SMUTHINENI@HUMANA.COM>                                 
TO=<MMADDA@HUMANA.COM>                                     
SUBJECT=REPORT FOR YOUR REQUEST HAS BEEN CREATED IN INFOPAC


Please let me know if the above is possible using sort. Would appreciate if someone could provide quick answer.

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

Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Wed May 07, 2008 9:26 pm    Post subject:
Reply with quote

Muffazel,

Try the following DFSORT Control cards

Code:

//SYSIN    DD *                                             
  SORT FIELDS=(18,80,CH,A)                                   
  SUM FIELDS=NONE                                           
  OUTREC BUILD=(C'TO=<',18,76,JFY=(SHIFT=LEFT,TRAIL=C'>'))   
  OUTFIL REMOVECC,                                           
  TRAILER1=('SUBJECT=REPORT FOR YOUR REQUEST HAS BEEN',     
            'CREATED IN INFOPAC')                           
/*
Back to top
View user's profile Send private message
muffirulz

New User


Joined: 14 Sep 2005
Posts: 74
Location: Kentucky, USA

PostPosted: Wed May 07, 2008 10:39 pm    Post subject: Reply to: Create a email-id file using sort.
Reply with quote

Hi Skolusu,

Thank you... The sort worked perfect.. Appreciate your fast reply

Thanks Once again
Muffazel
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts sending email from jcl using the mail... niloyarp JCL & VSAM 5 Tue Oct 10, 2017 12:32 pm
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts JOINKEYS Paired and Unpaired Sort MFwhiz DFSORT/ICETOOL 4 Fri Sep 29, 2017 1:48 am

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