|
View previous topic :: View next topic
|
| Author |
Message |
muffirulz
New User
Joined: 14 Sep 2005
Posts: 74
Location: Atlanta, (USA)
|
|
|
|
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 |
|
 |
Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
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 |
|
|
muffirulz
New User
Joined: 14 Sep 2005
Posts: 74
Location: Atlanta, (USA)
|
|
|
|
Hi Skolusu,
Thank you... The sort worked perfect.. Appreciate your fast reply
Thanks Once again
Muffazel |
|
| Back to top |
|
|
|
|
