Search found 805 matches

by Frank Yaeger
Mon Oct 17, 2011 11:19 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Create files with matching and non matching records- SPLICE?
Replies: 4
Views: 5847

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...
by Frank Yaeger
Fri Oct 14, 2011 11:35 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Compare FB with VB to get VB file
Replies: 2
Views: 6798

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...
by Frank Yaeger
Thu Oct 13, 2011 11:52 pm
Forum: JCL
Topic: Jcl to replace characters in a DS
Replies: 4
Views: 5829

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'...
by Frank Yaeger
Wed Oct 12, 2011 9:49 pm
Forum: VSAM - File system
Topic: SORT
Replies: 5
Views: 7832

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

http://publibz.boulder.ibm.com/cgi-bin/ ... 3434&CASE=
by Frank Yaeger
Wed Oct 12, 2011 9:48 pm
Forum: VSAM - File system
Topic: SORT
Replies: 5
Views: 6635

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

http://publibz.boulder.ibm.com/cgi-bin/ ... 3434&CASE=
by Frank Yaeger
Tue Oct 11, 2011 11:00 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Sort Multiple file with Diff LRECL's
Replies: 2
Views: 5389

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...
by Frank Yaeger
Tue Oct 11, 2011 10:55 pm
Forum: JCL
Topic: Masking some fields in a dataset using JCL
Replies: 3
Views: 5022

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...
by Frank Yaeger
Tue Oct 11, 2011 10:47 pm
Forum: JCL
Topic: SORT on Variable file
Replies: 2
Views: 3959

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...
by Frank Yaeger
Mon Oct 10, 2011 10:22 pm
Forum: Suggestions & Feedback
Topic: Spams... again
Replies: 4
Views: 4771

I deleted the spam notes from my Forum. I suggest other Moderators do the same.
by Frank Yaeger
Fri Oct 07, 2011 9:45 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: How to pass system date stored in a PDS member to symbolic ?
Replies: 4
Views: 6685

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...
by Frank Yaeger
Wed Oct 05, 2011 10:09 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: How to pass system date stored in a PDS member to symbolic ?
Replies: 4
Views: 6685

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...
by Frank Yaeger
Wed Oct 05, 2011 9:58 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Comparing packed date fields with current date
Replies: 1
Views: 2854

You can use DFSORT control statements like the following:

Code: Select all

  OPTION COPY,Y2PAST=1990                       
  INCLUDE COND=(2,3,Y2U,EQ,Y'DATE3')            
Note that we are ignoring the X'00' in the first byte since it has no relevance to the P'yyddd' date.
by Frank Yaeger
Tue Oct 04, 2011 1:17 am
Forum: JCL
Topic: Need your help ....compare 2 files using ICETOOL and SPLICE
Replies: 33
Views: 30871

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 ...
by Frank Yaeger
Tue Oct 04, 2011 1:08 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Add header and trailer and update trailer with detail record
Replies: 3
Views: 9987

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...
by Frank Yaeger
Sat Oct 01, 2011 12:25 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Add header and trailer and update trailer with detail record
Replies: 3
Views: 9987

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...