mainframegurukul.com

Sigh. How do you expect anyone to help you when you reject the answer to your problem with a statement like "I used this in the past, case was never a problem.". I don't know what you think you did in the past, but CASE MATTERS! DFSORT does NOT treat A (X'C1') and a (X'61') the same - they are NOT E...

Yes, it is possible with DFSORT's JOINKEYS. For complete information on DFSORT's JOINKEYS, see: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA50/5.0?DT=20100630155256 For specific examples, see the "Create files with matching and non-matching records" Smart DFSORT trick at: http:/...

There are several ways to do this with DFSORT. One way is with DFSORT IFTHEN clauses. For example, if infield1/outfield1 is in position 1 and infield2/outfield2 11 is in position 11, you could use these DFSORT control statements: OPTION COPY INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'0'),OVERLAY=&#...

Here's a DFSORT job that will do what you asked for. Notice that the input file is used twice (for IN1 and IN2). I assumed the input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //IN1 DD DSN=... input file (...

Sorry, but I don't understand your rules as described. Perhaps a larger set of input records (with different variations of two customer id records, three customer id records, four customer id records) and expected output records would help. At any rate, I'm locking this thread since you seem to be u...

Raul, If the ICE604A message marker is really pointing between TO(OUT) and USING(CTL1), then the character between them must not be a space (X'40'). Try typing a space over that character or look at it in hex. Same for the second ICE604A message. If that doesn't help, then please post the complete J...

You can use a DFSORT job like the following to do what you asked for: //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //IN1 DD * 100 MUM-A 200 DEL-B 200 DEL-C 300 COI-A 300 COI-B 300 COI-C 400 KOL-P 400 KOL-Q 600 CHE-Z //IN2 DD * 100 MUM-P 100 MUM-Q 200 DEL-R 300 COI-S 300 COI-T 300 COI-U BECKY 300 COI-V 40...

You can't use CTL as the symbol name in PARM. You have to use JPn (e.g. JP1). Here's a DFSORT/ICETOOL that will do what I think you're asking for: //STEP2 EXEC PGM=ICETOOL, // PARM='JP1"DPSIT4B.&MLQ..TAB002.D&ODATE..UNLOAD"' //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=DBRDB.ABPDB.RMS.TAB0...

You can use a DFSORT/ICETOOL job something like this (I'm not sure if I understood the positions just right as you described them, but you can adjust as needed): //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD DSN=... input file1 (FB/308) //IN2 DD DSN=... input file...

You just need to use BEGIN for the XXX record. You don't need END. You can use a DFSORT job like the following. I assumed your input file has RECFM=FB and LRECL=80, but you can change the job appropriately for other attributes. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * XXX 08 DATA1 DATA2...

What is the starting position of Cust-id, Field-1 and Field-2 in file1?

What is the starting position of Cust-id, Field-1 and Field-2 in file2?

Do you just want to copy the file2 records after the file1 records in the output file (that's not a "merge", it's a MOD)?

I hope I didn't make it to confusing It's confusing to me. Are you using DFSORT or Syncsort? Please 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 the starting position, length and f...

You are missing the DFSORT PTF that allows header fields greater than 256 bytes, so you'll need to use: HEADER3=(1,256,257,45) Ask your System Programmer to install PTF UK90025 for z/OS DFSORT V1R10 or PTF UK90026 for z/OS DFSORT V1R12 (Oct, 2010) so you can use the newest DFSORT/ICETOOL functions.

If you can set up the dsname as a SET or PROC symbol, then you can use a DFSORT job like the following: // SET DSN1=data_set_name //S1 EXEC PGM=SORT,PARM='JP1"&DSN1"' //SYSOUT DD SYSOUT=* //SORTIN DD DSN=&DSN1,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY OUTFIL REMOVECC,NODETAIL, TRAILER1...

You have several problems including a missing comma and incorrect SECTION fields - too large and too far out. If I understand what you want, you can use these DFSORT control statements: OPTION COPY OUTFIL REMOVECC,NODETAIL, SECTIONS=(20,256,276,26, HEADER3=(1,301))