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
 

 

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 EMAIL using IEBGENER - SMTP parasmalik20 JCL & VSAM 4 Tue May 23, 2017 12:19 am
No new posts How to change 'K' or 'M' use Sort vice_versa DFSORT/ICETOOL 5 Thu May 18, 2017 7:11 am
No new posts Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm


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