Search found 805 matches

by Frank Yaeger
Mon Mar 26, 2012 10:57 pm
Forum: JCL
Topic: JOIN UNPAIRED,F1,F2,ONLY
Replies: 13
Views: 25080

You didn't show the output you actually want, so I can only guess what that would be. My guess is that a DFSORT job like the following would do what you want: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTJNF1 DD DSN=... input file (FB/40) //SORTJNF2 DD DSN=... input file (FB/40) //S...
by Frank Yaeger
Fri Mar 23, 2012 11:13 pm
Forum: JCL
Topic: JOIN UNPAIRED,F1,F2,ONLY
Replies: 13
Views: 25080

plz help me out to get the proper O/P. Well, we probably could if we knew what you meant by the proper o/p. Now i want to join the upaired records from F1 and F2 This makes no sense. You can "join" paired records, but how can you join "unpaired records"? If I have AAA,BBB,CCC,EEEE in file1 and AAA,...
by Frank Yaeger
Fri Mar 23, 2012 11:06 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT - SUMMING while retaining records
Replies: 1
Views: 2169

You can use a DFSORT job like the following to do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * AAA050 BBB011 CCC010 DDD055 AAA020 AAA030 DDD020 //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION EQUALS SORT FIELDS=(1,3,CH,A,4,3,ZD,D) OUTFIL REMOVECC, SECTIONS=(1,3, TR...
by Frank Yaeger
Fri Mar 23, 2012 10:00 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT - JOINKEYS
Replies: 7
Views: 8773

I don't understand how you expect somebody to help you if you only give a small part of your requirement the first time. If you knew you needed all of that you described in your second post, why didn't you say so? Your full requirement is certainly not clear at this point. In your original example, ...
by Frank Yaeger
Fri Mar 23, 2012 9:54 pm
Forum: Admin Announcements
Topic: STAR MEMBER AWARD - FEBRUARY 2012
Replies: 17
Views: 21440

I guess the question is: Is DikDude a member of the Moderator group? If not, Krishna would have to add him to that group.
by Frank Yaeger
Thu Mar 22, 2012 10:55 pm
Forum: JCL
Topic: Can we use any utility to resolve this apart from Cobol pgm
Replies: 2
Views: 2817

ickgeek23,

What is the RECFM and LRECL of each input file? What do you want for the RECFM and LRECL of the output file?

What is the starting position, length and format of each relevant field in each input file?
by Frank Yaeger
Thu Mar 22, 2012 10:44 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT - JOINKEYS
Replies: 7
Views: 8773

I'd suggest using the a DFSORT/ICETOOL SPLICE job like the following rather than JOINKEYS: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD DSN=... input file1 (FB/75) //IN2 DD DSN=.... input file2 (FB/200) //T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5&...
by Frank Yaeger
Thu Mar 22, 2012 10:17 pm
Forum: Admin Announcements
Topic: STAR MEMBER AWARD - FEBRUARY 2012
Replies: 17
Views: 21440

No, I can't edit posts in the COBOL Forum. I don't get an Edit button there.
by Frank Yaeger
Wed Mar 21, 2012 10:55 pm
Forum: Admin Announcements
Topic: STAR MEMBER AWARD - FEBRUARY 2012
Replies: 17
Views: 21440

Anuj, I don't think that's the way it works. DD, When I look at the Moderators Only Forum, it lists: Moderator Moderator Group When I click on Moderator Group, it shows: Group name: Moderator Group Group description: This group contains all modertors on this forum Group membership: You are a member ...
by Frank Yaeger
Fri Mar 09, 2012 11:38 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: merging files
Replies: 5
Views: 5200

krishnapriya, If you want detailed help, you need to give a detailed explanation of what you want to do. Your explanation is not clear. Show an example of the records in each input file (relevant fields only) and what you expect for output. Explain the "rules" for getting from input to output. Give ...
by Frank Yaeger
Sun Mar 04, 2012 11:20 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Split a file into n files, depending on register content.
Replies: 9
Views: 9271

DFSORT allows continuation - see the doc. You just have to set up your control statement generation to take advantage of that. Another piece of the puzzle you'll need: With OUTFIL BUILD, you can use / to start a new record. So instead of generating: OUTFIL FNAMES=OUT01,INCLUDE=(3881,8,ZD,EQ,01,A...
by Frank Yaeger
Thu Mar 01, 2012 11:42 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: SORT OUTREC - Reformatting a register from dfsort parameters
Replies: 3
Views: 4249

You can use 19,8,TRAN=UNHEX to convert from 'ddmmyyyy' to X'ddmmyyyy'. Of course, you don't need two passes to do what you want to do. You can just use multiple IFTHEN clauses, or INREC, OUTREC and/or OUTFIL in the same pass. Note that X'ddmmyyyy' is NOT PACKED - it is binary. PACKED would be X'0ddm...
by Frank Yaeger
Wed Feb 29, 2012 11:23 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Comparing 2 files on the basis of Date
Replies: 6
Views: 6160

Using 80:X ensures that the SYMNAMES record is padded on the right with blanks. If you don't use 80:X, you'll get binary zero padding on the right which can result in a syntax error. If you specify LRECL=80 for the SYMNAMES data set, you could probably get away with using: INREC BUILD=(C'PREVDAT...
by Frank Yaeger
Wed Feb 29, 2012 2:40 am
Forum: DFSORT , ICETOOL & Utilities
Topic: Can I pass parameters to DFSORT?
Replies: 4
Views: 5225

filikindri,

You can use DFSORT's JPn function. For complete details, see "Using SET and PROC Symbols in DFSORT and ICETOOL Statements" at:

http://publibz.boulder.ibm.com/cgi-bin/ ... 3434&CASE=
by Frank Yaeger
Wed Feb 29, 2012 12:04 am
Forum: JCL
Topic: JCL Sort Utility to Multiply 2 columns.
Replies: 1
Views: 1890

Here's a DFSORT job that will do what I think you're asking for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * -1 00000056.0700 -7 00000056.0700 16 00000550.0000 16 00000057.7300 16 00000057.7300 //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INREC OVERLAY=(51:1,4,FS,MUL,33,13,UFF, EDIT=...