MVSFORUMS.com

kolusu · Posted: Tue Nov 09, 2004 11:55 am Post subject:

nguyenh,

Let me put your requirement in simple terms.

nguyenh · Beginner Joined: 09 Mar 2004 Posts: 52 Topics: 6

Kolusu,
Here is exactly what it should be:

nguyenh · Beginner Joined: 09 Mar 2004 Posts: 52 Topics: 6

Oop! I messed them up.

nguyenh · Beginner Joined: 09 Mar 2004 Posts: 52 Topics: 6

Sorry,
it's 81- 86 , not 81-82

kolusu · Posted: Tue Nov 09, 2004 3:29 pm Post subject:

nguyenh,

The following DFSORT/ICETOOL JCL will give you the desired results. If you have syncsort at your shop then change the pgm name to synctool. However you need the latest version of syncsort to run this jcl which supports the splice parameter.

A brief explanation of the job. I assumed that your header record is identified by * in the 1st byte. I also assumed that your detail record is key the first 12 bytes.

The first copy operator splits the file into 2 files, namely HDR and detail. we first a seqnum of 8 bytes of ZD format to records using INREC fields.

Using OUTFIL we split the records into 2 HDR and DET files. On the header record we zero out the seqnum and start new seqnum of 8 bytes of ZD format from 89th byte. We also add an indicator 'H' and copy the contents from 39 thru 44.

All the detail records are copied into DET file. we add an indicator of "z" to all the detail records.

The next SORT operator concatenates the above created HDR & DET files and using INREC we perform the tagging the record no: to all the detail records.

We now sort on the tagno and the indicator and the detail records key( 1 thru 12)

By doing so the detail records are sorted within each header.

We take the output from the sort step and use splice operator to splice the header name at the end of every detail record.

nguyenh · Beginner Joined: 09 Mar 2004 Posts: 52 Topics: 6

Kolusu,
Thank you so much for your helps. The code works perfect for current requirements, however there are more functionalities that I want it to do. but
at the moment I am still trying to understand what the code is doing.
I will come back with more questions. I hope you dont mind. I really appreciate for your helps!

Big Thanks!
nguyenh

nguyenh · Beginner Joined: 09 Mar 2004 Posts: 52 Topics: 6

Kolusu,
Could you please help me understand what each of these parameters in this code does, and what the output records will look like after execute it ?

kolusu · Posted: Thu Nov 11, 2004 2:12 pm Post subject:

nguyenh,

nguyenh · Beginner Joined: 09 Mar 2004 Posts: 52 Topics: 6

Thanks Kolusu,
Here is my next question, by looking at the code below:
is it possible to do something like this, if so could you please show me how.

nguyenh · Beginner Joined: 09 Mar 2004 Posts: 52 Topics: 6

kolusu · Posted: Tue Dec 07, 2004 4:21 pm Post subject:

nguyenh,

OPTION EQUALS| NOEQUALS : Determines whether or not the sort will preserve the order of records with identical sort fields. NOEQUALS is the default, and causes equal-keyed records to be written in a random order,not in the order they were encountered.

Frank Yaeger · Posted: Tue Dec 07, 2004 4:29 pm Post subject:

This a portion of a DFSORT/ICETOOL job Kolusu showed earlier. The CTL2CNTL DD supplies DFSORT statements for the SORT operator with USING(CTL2) and the CTL3CNTL DD supplies DFSORT statements for the SPLICE operator with USING(CTL3).

If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "DFSORT: Getting Started". It's an excellent tutorial that will teach you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online at:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CG00/CCONTENTS

For complete information on DFSORT's ICETOOL, see:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA00/6.0?DT=20031124143823

For complete information on the SPLICE operator of DFSORT's ICETOOL, see:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA00/6.13?SHELF=&DT=20031124143823&CASE=

Here's a brief explanation of the DFSORT control statements in CTL2CNTL and CTL3CNTL.

CTL2CNTL statements:

EQUALS tells DFSORT to keep the original order of duplicate records.

INREC reformats the records before they are sorted using the following fields: 1-96; the ZD value in positions 81-88 minus the ZD value in positions 89-96, and 97-103. M11,LENGTH=8 edits the result of the subtraction.

SORT sorts the records ascending on the following fields in the reformatted INREC record: the ZD field in positions 97-104, the CH field in position 105 and the CH field in positions 1-12.

OUTFIL writes records to the T3 DD data set after they are sorted. OUTREC reformats the records for output using the following fields: positions 1-80, positions 106-111 and positions 97-104.

CTL3CNTL statements:

OUTFIL writes records to the OUT DD data set after they are spliced. OUTREC reformats the records using positions 1-86.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

nguyenh · Beginner Joined: 09 Mar 2004 Posts: 52 Topics: 6

Frank Yaeger,
Thank you very much. I actually read your mini ICETOOLS Userguide D/N: Fc27-1997-00 that is very impressive work of you, I even have a copy of it on my desk. But since I am a mainframe and DFSORT beginner so I need something more for dummy Smile

. I will read DFSORT links that you suggested.

Kolusu,
Thank you for your helps. Now I understand that part,

This is the part that I am still confused on, I tried to catalog all the temporary datasets, so that I can see the actual data being put in them, but couldn't get it to work (I am very bad in mainframe), so I have to ask you this one more time:

Based on your explaination of the following code:

kolusu · Posted: Tue Dec 07, 2004 5:25 pm Post subject:

Phantom · Posted: Tue Dec 07, 2004 11:20 pm Post subject:

nguyenh,