IBM Mainframe Forum

by **ajuatsgp** » Thu May 20, 2010 7:02 pm

Hi,
I am using ICETOOL in my job.
My input file has following data:
00012000140000000051012122010
00012000140000000050512122010
00012000140000000050212122010
00012000140000000050112122010
00012000140000000051012122010

In my out put file I need the digits in red colour and green colour and the count.
my job contains
//TOOLIN DD *
OCCUR FROM(BLCYL) LIST(COUNTDD1) NOCC NOHEADER BETWEEN(0) -
ON(20,10,ZD,LZ) ON(VALCNT,LZ)
/*

my output file looks like:
***************************
0112122010 000000000000008
0212122010 000000000000009
0412122010 000000000000009
0512122010 000000000000008
1012122010 000000000000015
1212201009 000000000000001
3112122010 000000000000001
***************************
I am not able to omit the intial space and the space coming before the count.

Note:I have pasted only a part of my input file.

Please let me know how to achieve this asap.
let me know if you need any more clarification.

Thanks in advance

by **Frank Yaeger** » Thu May 20, 2010 10:58 pm

The extra blanks are for the sign (blank for positive sign). You can eliminate them by using E'9...9' to format the output values:

Select all

OCCUR FROM(BLCYL) LIST(COUNTDD1) NOCC NOHEADER BETWEEN(0) -
ON(20,10,ZD,E'9999999999') ON(VALCNT,E'999999999999999')

by **ajuatsgp** » Mon Jun 21, 2010 10:34 pm

Hi Frank,

The solution you provided worked fine.
But I am facing a new issue now...
Actually my job has one more step after the ICETOOL step in which the output from the ICETOOL step is copied to a vsam file of Maximum Record size 25.
even if I give the LRECL=25 in the DCB parameter for the out put dataset from ICETOOL step it is creating the dataset with a Record size of 120.

For your information the input file has record size of 35 and using ICETOOL I am getting few records from it.

Please let me know if by any way I can keep my output file of Record size 25.

by **Frank Yaeger** » Mon Jun 21, 2010 10:51 pm

LRECL=25 is NOT used for a VSAM file.

You can use COPY and INREC to shorten the file:

Select all

//TOOLIN DD *
...
COPY FROM(input) TO(vsamout) VSAMTYPE(F) USING(CTL1)
//CTL1CNTL DD *
OPTION COPY
INREC BUILD=(1,25)
/*

However, if the input records have bytes beyond position 25, they will be truncated for output.

by **ajuatsgp** » Tue Jun 22, 2010 12:21 am

I think there is some confusion in understanding my question.The ICETOOL is working fine and also it's giving the proper output of 25 bytes as per my requirement but the issue is the file to which ICETOOL is writing output is getting created with an LRECL=120,even if I am explicitely mentioning the in the DCB parameter LRECL=25

Hence it is creating issue for me inthe next step where I am copying it to a VSAM file of record length 25.
How can I keep the LRECL of the ictool output dataset to 25

by **dick scherrer** » Tue Jun 22, 2010 12:33 am

Hello,

Posting the complete jcl and control statements as well as the complete informational output generated (including message ids) will help . . .

by **Frank Yaeger** » Tue Jun 22, 2010 1:47 am

Your explanation of what you wanted was not clear. If you want to create the ICETOOL output file with LRECL=25, you can use this DFSORT/ICETOOL job:

Select all

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//BLCYL DD DSN=... input file
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//COUNTDD1 DD DSN=... output file (FB/25)
//TOOLIN DD *
OCCUR FROM(BLCYL) LIST(T1) NOCC NOHEADER BETWEEN(0) -
ON(20,10,ZD,E'9999999999') ON(VALCNT,E'999999999999999')
COPY FROM(T1) TO(COUNTDD1) USING(CTL1)
/*
//CTL1CNTL DD *
INREC BUILD=(1,25)
/*

by **ajuatsgp** » Tue Jun 22, 2010 2:02 pm

Thanks Frank....
Your soultion worked fine....

IBM Mainframe Forum

Please help me in ICETOOL

Please help me in ICETOOL

Re: Please help me in ICETOOL

Re: Please help me in ICETOOL

Re: Please help me in ICETOOL

Re: Please help me in ICETOOL

Re: Please help me in ICETOOL

Re: Please help me in ICETOOL

Re: Please help me in ICETOOL