mainframegurukul.com

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

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

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

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

I guess the question is: Is DikDude a member of the Moderator group? If not, Krishna would have to add him to that group.

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?

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

No, I can't edit posts in the COBOL Forum. I don't get an Edit button there.

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

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

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

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

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

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=

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