Exit routines in ICETOOL

dhanasugumar · New User Joined: 08 Apr 2010 Posts: 6 Location: India

Hi,

Is it possible to invoke an E35/E15 exit routines in ICETOOL as we do in SORT.

CICS Guy · Posted: Thu Apr 08, 2010 8:07 pm

Good first question, but why are you asking?
I'm wondering what sort of record changing you need that can't be done with the provided facilities?

Frank Yaeger · Posted: Thu Apr 08, 2010 9:39 pm

dhanasugumar · New User Joined: 08 Apr 2010 Posts: 6 Location: India

Scenario: Am creating two outputs from a single sort in. The input has a control record and I want a control record to be created in both the sort outs. When I use E35 to execute my routine, its not creating a new control in the output.

But the same routine in E35 is creating a control record as expected when there is ONE sortout.

Below is the SYSIN I used.

dhanasugumar · New User Joined: 08 Apr 2010 Posts: 6 Location: India

My original file has 12 amount fields in it. Control record has record count and SUM of Amount (irrespective of the values of other fields) in it.
Ex:
rec1abc 100
rec2cde 200
rec3efg 100
rec4ghi 200

Control record should be
4 600

Frank Yaeger · Posted: Fri Apr 09, 2010 9:25 pm

You're not explaining clearly what you want to do or what is happening exactly, so it's difficult to help you. Your original question was about exits in ICETOOL, but all you show is DFSORT control statements, so I don't know what, if any, ICETOOL operator you're using.

You haven't explained clearly what you're trying to do. I don't know what your E35 exit does or if you even need it.

I don't know if you're using OUTFIL statements in one case and no OUTFIL statements in the other case, or if you're using OUTFIL statements in both cases.

If you explain things more clearly, I can probably help you. Showing your complete job, messages, input and expected output, etc would help.

dhanasugumar · New User Joined: 08 Apr 2010 Posts: 6 Location: India

Hi Frank,

Sorry for the unclear request.

Currently I have been using SORT and exit E35 to create a control record in the output file. I have a batchcob(CRCNTL) written to create a control record with record count and sum of fields.
Input file:
rec1abc 100 220
rec2cde 200 120
rec3abc 100 200
rec4abc 100 456
rec5ghi 200 345
000005 700 1341

When i use the below sysin, my exit does create the control record as shown below and that is what is expected.

SORT FIELDS=(5,3,CH,A),
SIZE=E99999999,DYNALLOC=(SYSDA,32)
MODS E35=(crcntl,100,MODLIB,N)
INCLUDE COND=(5,3,CH,EQ,C'ABC')

Output file is:
rec1abc 100 220
rec3abc 100 200
rec4abc 100 456
000003 300 876

When i try creating two output files from a sortin, control record is not getting created. I have used the below code. (I believe the exit routine is not getting executed in the below code)

SORT FIELDS=(5,3,CH,A),
SIZE=E99999999,DYNALLOC=(SYSDA,32)
MODS E35=(crcntl,100,MODLIB,N)
OUTFIL FILES=1,
INCLUDE =(5,3,CH,EQ,C'ABC')
OUTFIL FILES=2,
OMIT=(5,3,CH,EQ,C'ABC')

Outfile1:
rec1abc 100 220
rec3abc 100 200
rec4abc 100 456

000003 300 876 - this control is not getting created in the final output file1

Outfile2:
rec2cde 200 120
rec5ghi 200 345

000002 400 465 - this control is not getting created in the final output file2

Since i did not get the expected result using SORT, I thought of trying with ICETOOL. Is there any possibilitis of creating the control record as shown above using SORT or ICETOOL. (My original file has around 25 such fields to be summed up in the control record)

CICS Guy · Posted: Mon Apr 12, 2010 4:02 pm

I really don't think that you need an exit for this, generating totals in a trailer record is a basic sort function and doing it for two outputs is as simple as doing it for one.

Take a look at Record Count and Sum Amount for each type of data for a starting point.

dhanasugumar · New User Joined: 08 Apr 2010 Posts: 6 Location: India

I have to create two sortouts and they both have different INCLUDE/OMIT condition. Can you give some details on how to use trailer in this situation?

Skolusu · Posted: Mon Apr 12, 2010 9:24 pm

dhanasugumar,

The following DFSORT JCL will split the input file into 2 files and give you the desired results

dhanasugumar · New User Joined: 08 Apr 2010 Posts: 6 Location: India

Hi Skolusu,

Thanks for your response. It worked for me the way I want.