MVSFORUMS.com

[PRAKASH]

Hi all

I have an email id coming from online screen say abc@xyz.com which can vary everytime.

I will read that in my JCL and have to copy to another file as shown below.
RCPT TO:<abc@xyz.com> Basically I have to insert RCPT TO: < > in the output file while copying the email id.

Is there any way to insert text RCPT TO:< > while copying mail id. I am using IEBGENER to copy mail id.
I know I can do it by Rexx but we are trying to do it thru JCL only because of some compulsions.

Help me out.

Thanks.

[ANIL SARATHY]

can u give input file content

and how it should come in output file
_________________
Anil Sarathy

[PRAKASH]

Hi
Input file contains only email id - abc@xyz.com
Output file should contain:- RCPT TO:<abc@xyz.com> ie we have to insert RCPT TO:< >
Thanks.

[ANIL SARATHY]

I/P file:

abc@xyz.com 80 BYTES ( mail id in first 11 positions)


O/p file:

RCPT TO:<abc@xyz.com> 80 BYTES


Instead of iebgener go for sort

INREC FIELDS (C'RCPT TO:<',1,11,C'>',59X)
SORT FIELDS=COPY
This will work , when mail id length is constant. i hope it will vary
like "jbsfkhsjl@xyz.com".

This need to be worked out

INREC FIELDS (C'RCPT TO:<',1,2,CHANGE=(2,C'm ',C'm>'),
NOMATCH=(1,2), 3,2,CHANGE=(2,C'm ',C'm>'),
NOMATCH=(3,2),5,2,CHANGE=(2,C'm ',C'm>'),
NOMATCH=(5,2) and so on until it is 79,2,CHANGE=(2,C'm ',C'm>'),
NOMATCH=(79,2)).

this will change .com space ie mspace to m>
RCPT TO:<jbsfkhsjl@xyz.com>

For me this method is really . But sure this will work. Let's hope for better solution.
_________________
Anil Sarathy

[PRAKASH]

Thanks a lot Anil. It works fine. First approach you have suggested is fine for us because though email id varies the maximum size of email limit is 35. So we have hardcoded 35 in the INREC step.

Thanks once again for your quick reply.

Prakash

[kolusu]

Prakash,

If your shop has file-aid then you can use the following jcl to get the desired results. You don't have to worry about the length of the email address.

[Mervyn]

Ah, but is it always ".COM"?
_________________
The day you stop learning the dinosaur becomes extinct

[Dibakar]

Also, had my name been 'Mr Diba Com' then my official email id would have been "diba.com@mycompany.com".

I would probably put '>' in column 80 and strip all blank spaces.

[kolusu]

Prakash,

If I were you , I would modiy the program that creates the email address. You can check for the length using the function reverse and simply add the beginning/ending tags. Check the application programming forum examples.

Hint: search for "length" in the application programming forum.

Thanks

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu