mainframegurukul.com

For complete details on JOINKEYS, see:

http://www.ibm.com/support/docview.wss? ... g3T7000174

For the input example you showed (which may or may not reflect the complete complexity of your data), you could use a DFSORT JOINKEYS job like the following. I assumed your files have RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes. //S1 EXEC PGM=SORT //SYSOUT DD...

Your approach with SPLICE won't work and has syntax errors. But a DFSORT JOINKEYS job like the following would be a better choice anyway: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //IN1 DD * 1 RAVI REAL 19031984 1 RAVI REAL 19031985 1 RAVI REAL 19031986 1 RAVI REAL 19031987 2 ARUN REAL 19031987 2 ARUN...

I still need the following from you as asked previously:

Give the RECFM and LRECL of each input file, and the expected output file.

Give the starting position, length and format of each field in each input file, and in the output file.

Please don't post the same question twice. See my response at:

http://www.mainframegurukul.com/ibmmain ... php?t=5827

Clarify what you want there if necessary.

I don't know what the ... after the 700 represents, but if you just want to add a trailer record with the total of the first field, you can use these DFSORT control statements: OPTION COPY OUTFIL REMOVECC, TRAILER1=(TOT=(1,3,ZD,TO=ZD,LENGTH=3)) SORTOUT would have: 100 ttt aaa 200 xxx...

You say the key is the customer id AND date, but it appears to only be the customer id. For example, FileA has this record: 001 04191984 Raul REal but the 04191984 is not present in FileB or FileC, yet you show the output as: 001 04191984 Raul 5000 REal raul@gmail.com So the match here is only on th...

ICETOOL will not work in our environment, so please try to provide the JCL with other utilities.

If you have DFSORT, ICETOOL WILL work in your environment. If you do not have DFSORT, I can't help you.

Please indicate which sort product you actually have.

I want the output file also in VB. How could I do that? That would depend on what exactly the input records look like and what exactly you want the output records to look like. Your input example only shows fixed fields with the VB records (that is, each record is the same length) - are they really...

You have several problems. You say your input files are VB, but you don't seem to be treating them that way. If the key is a 7-digit PD value, that would take 4 bytes. So your records would look like this: rrrrppppdatan... rrrr is the 4-byte RDW. pppp is the 4-byte PD value. data is the rest of the ...

No, I can't help you because I don't know what it is you're doing to get X'F0's. I certainly don't get them when I run my job with YOUR input. I'm assuming by blank hexadecimal you mean X'40'. My job would NOT convert the trailing blanks to trailing character 0s. So either your input is different th...

Here's a DFSORT job that will do what you asked for. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (FB/225) //SYM DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS) //SYSIN DD * OPTION COPY OUTFIL FNAMES=SYM,REMOVECC,NODETAIL, BUILD=(80...

Please show an example of the records in your input file (relevant fields only) and what you expect for output. Explain the "rules" for getting from input to output. Give the starting position, length and format of each relevant field. Give the RECFM and LRECL of the input files. Also, run this job ...

Here's a DFSORT job that will do what you asked for using DFSORT's new IFTRAIL function available with the Oct, 2010 PTF. I assumed X'FF's in positions1-5 were enough to identify the trailer. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file //OUT1 DD DSN=... output file1 //OUT2...

I can't help you with this. I'm an expert on DFSORT, not SMTP or e-mail attachments. Perhaps somebody else will be able to help.