mainframegurukul.com

DFSORT's JOINKEYS function would be a better choice than SPLICE. For more information, see the "Create files with matching and non-matching records" Smart DFSORT Trick at: http://www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000094 I'd show you how to do what you want with JOINKEYS, but I can't r...

Your job is a mess! Assuming you want output file1 to contain the records from F2 that have a match in F1, and you want output file2 to contain the records from F2 that do not have a match in F1, you can use the following DFSORT job: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //IN1 DD DSN=... input fil...

You can use a DFSORT job like the following to do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * HEADERxxxx1234xxxx xxxxx xxxxx xxxxx TRAILERxxxx1234xxxx //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INREC IFTHEN=(WHEN=(1,6,CH,EQ,C'HEADER'), OVERLAY=(11:C'...

See the following for considerations when sorting VSAM files with DFSORT:

http://publibz.boulder.ibm.com/cgi-bin/ ... 3434&CASE=

See the following for considerations when sorting VSAM data sets with DFSORT:

http://publibz.boulder.ibm.com/cgi-bin/ ... 3434&CASE=

For a single SORT, the keys must all be in the same position. Since your keys are in different positions, you would have to create a "normalized" key for each file before you can sort them. For example, you can make a copy of the key from each file after the RDW, the sort on that key, and then revmo...

Schalka, You can use a DFSORT job like the following: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * BOHsystemdate - Header record D010000000001Name1Name200001Address1 D010000000002Name3Name400002Address2 D010000000003Name5Name600003Address3 EOHcount - Trailer Record //SORTOUT DD SYSOUT=* //S...

srini1508, You can use this DFSORT statement: SORT FIELDS=(5,10,AC,A) If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL...

I deleted the spam notes from my Forum. I suggest other Moderators do the same.

When you want to use an apostrophe within 'string', you have to code two apostrophes. C'MYDATE,''',1,8,C'''',80:X Breaking it down, you get: MYDATE,'string',80:X MYDATE is the symbol name. 'string' is the date constant. 80:X tells DFSORT to put blanks up to column 80 (easy way to set the record leng...

Chanakya, You can use a DFSORT job something like this. S1 creates symbol MYDATE in file &&S1. S2 concatenates &&S1 to your SYMNAMES data set so MYDATE can be used. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... file or member with yyyymmdd in positions 1-8 //SORTOUT DD DSN=&&S1,UNIT=SY...

You can use DFSORT control statements like the following:
Note that we are ignoring the X'00' in the first byte since it has no relevance to the P'yyddd' date.

Apparently, the JOINKEYS must set INC1 to '2', '1', 'B' so we know if it is an insert, delete, or update. Can you explain how it is working? ? in the REFORMAT statement tells DFSORT to place an indicator there. The indicator is a 'B' for matched records, a '1' for record in file1 only or a '2' for ...

Assuming you want the count of the detail records, not the count of the detail records + header + trailer, you can use a DFSORT job like the following: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file1 (VB/215) // DD DSN=.... input file2 (VB/215) //SORTOUT DD DS...

Probably, but I need more details to tell you how. The file with detail records is a VB file, LRECL=215 What is the RECFM and LRECL of the file with the header and trailer records? Can we identify the header record by the '0' in position 1 and the trailer record by the '9' in position 1 (assuming th...