Search found 805 matches

by Frank Yaeger
Thu Nov 30, 2006 8:58 pm
Forum: JCL
Topic: generating sequence number starting from 0100000000000000
Replies: 4
Views: 10519

Can you provide me any alternative way to solve this problem
As you said, 100000000000 is the largest START value you can use. I can't think of another way, other than writing a program or exit.

It's difficult to believe you would actually have enough records so what I suggested wouldn't work.
by Frank Yaeger
Wed Nov 29, 2006 10:58 pm
Forum: JCL
Topic: generating sequence number starting from 0100000000000000
Replies: 4
Views: 10519

Well, if you don't expect more than 99,999,999,999,999 records, you could just make the first '01' a constant and use SEQNUM with 14 digits starting at 0. For example, you could use this DFSORT statement to put the sequence number in columns 81-96. OPTION COPY OUTREC OVERLAY=(81:C'01',SEQNUM,14,...
by Frank Yaeger
Tue Nov 28, 2006 10:32 pm
Forum: JCL
Topic: SORT
Replies: 2
Views: 7514

If EQUALS is in effect, then the first record of each set of duplicates will be kept. If NOEQUALS is in effect, then any record of each set of duplicates can be kept. You can specify EQUALS for DFSORT like this:

Code: Select all

//DFSPARM DD *
   OPTION EQUALS
by Frank Yaeger
Thu Nov 23, 2006 9:31 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: comparing two flat files
Replies: 11
Views: 21182

I think we can close this session.
We can leave it open. Somebody may have something relevant to add someday. I generally only close a thread when it's a duplicate.
by Frank Yaeger
Sat Nov 18, 2006 1:11 am
Forum: JCL
Topic: Need to check count of file records and abend if >10.
Replies: 4
Views: 12078

Here's a DFSORT/ICETOOL job that will set RC=12 if the input file has more than 10 records, or RC=0 otherwise. //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=... input file //TOOLIN DD * * Set RC=12 if > 10 records, else RC=0 COUNT FROM(IN) HIGHER(10) /*...
by Frank Yaeger
Fri Nov 17, 2006 9:50 pm
Forum: JCL
Topic: test datase empty
Replies: 8
Views: 26662

Note that Leo's job will only work for z/OS DFSORT V1R5, not for DFSORT R14. Here's a DFSORT/ICETOOL job that will work for both: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=... input file //TOOLIN DD * COUNT FROM(IN) EMPTY RC4 /* For more information, see th...
by Frank Yaeger
Fri Nov 17, 2006 2:32 am
Forum: JCL
Topic: Need to check count of file records and abend if >10.
Replies: 4
Views: 12078

Would you settle for a RC=12 rather than an abend?
by Frank Yaeger
Wed Nov 15, 2006 11:19 pm
Forum: JCL
Topic: sort command
Replies: 1
Views: 9487

Here's a DFSORT job that will do what you asked for: //S1 EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SORTIN DD * S1 S1 S2 S2 S2 //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INREC BUILD=(SEQNUM,1,ZD,RESTART=(1,2), C' for ',1,2) /* If you're not familiar with DFSORT and DFSORT's ICETOOL,...
by Frank Yaeger
Tue Nov 14, 2006 9:18 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: comparing two flat files
Replies: 11
Views: 21182

Glad I could help.
by Frank Yaeger
Fri Nov 10, 2006 11:00 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: comparing two flat files
Replies: 11
Views: 21182

There are two 20 records in file1, but you only show one 20 record in the output file, so I assumed you only want one record with each key in the output file. I also assumed that the key in file1 starts in position 13 and the key in file2 starts in position 23 as you said in your first post. Given t...
by Frank Yaeger
Fri Nov 10, 2006 3:18 am
Forum: JCL
Topic: removing the duplicate record and picking up the last entery
Replies: 2
Views: 11388

Babu, If you want to write the last record in the VSAM input file to an output file, you can use a DFSORT job like this: //S1 EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (VB or VSAM) //SORTOUT DD DSN=... output file (VB or VSAM) //SYSIN DD * * Reformat record ...
by Frank Yaeger
Fri Nov 10, 2006 1:35 am
Forum: DFSORT , ICETOOL & Utilities
Topic: comparing two flat files
Replies: 11
Views: 21182

Now, I want to compare the two file based on these field and remove the duplicate records. This is a rather ambiguous statement. For the output, do you want records from file1 only, or records from file2 only, or records from both files? Do you want to keep one record for each key (from which file?...
by Frank Yaeger
Thu Nov 09, 2006 9:55 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: To compare two files (SSN fields)
Replies: 20
Views: 44803

You started a new Topic for this new question (a good idea) so let's discuss it there. I'm closing this thread.
by Frank Yaeger
Thu Nov 09, 2006 9:49 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: comparing two flat files
Replies: 11
Views: 21182

It's not clear what exactly you want to do. What is the RECFM and LRECL of each input file? What is the length and format of the field in each input file you want to compare? Does input file1 have duplicates within it? Does input file2 have duplicates within it? Please show an example of the records...
by Frank Yaeger
Wed Nov 08, 2006 9:55 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Reg:DFSORT
Replies: 1
Views: 4146

Here's a DFSORT job that will do what you asked for: //S1 EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (FB/400) //SORTOUT DD DSN=... output file (FB/400) //SYSIN DD * OPTION COPY INREC FIELDS=(1,12, 19,4,16,2,13,2,23,2,26,2,29,2, 31,370) /*