IBM Mainframe Forum

by **denis.dhimitri** » Wed May 07, 2008 1:50 pm

Hello Mr.Yaeger,

Can you help me out with this problem ? I've an INPUT file where the KEY starts at 15-th byte length 5 :

Select all

12345678901234DENIS
12345678901234MARCO
12345678901234DENIS
12345678901234MARCO

I want in OUTPUT:

Select all

RECORD TYPE PARTIAL
---------------------------------
DENIS 2
MARCO 2
TOTAL INPUT: 4

I tryed the following ICEMAN job:

Select all

//STEP0100 EXEC PGM=ICEMAN
//*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SORTIN DD *
12345678901234DENIS
12345678901234MARCO
12345678901234DENIS
12345678901234MARCO
//SYSIN DD *
SORT FIELDS=(15,5,CH,A)
OUTFIL REMOVECC,NODETAIL,
BUILD=(60X),
HEADER1=(6:'RECORD TYPE',32:'PARTIAL'),
HEADER2=(6:33'-'),
SECTIONS=(15,5,
TRAILER3=(6:15,5,30:COUNT=(EDIT=(I.III.IIT)))),
TRAILER1=(6:'TOTAL INPUT:',30:COUNT=(EDIT=(I.III.IIT)))

but gives me the following error:

Select all

ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 10:16 ON WED MAY
SORT FIELDS=(15,5,CH,A)
OUTFIL REMOVECC,NODETAIL,
BUILD=(60X),
HEADER1=(6:'RECORD TYPE',32:'PARTIAL'),
HEADER2=(6:33'-'),
SECTIONS=(15,5,
TRAILER3=(6:15,5,30:COUNT=(EDIT=(I.III.IIT)))),
TRAILER1=(6:'TOTAL INPUT:',30:COUNT=(EDIT=(I.III.IIT)))
ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K05352 C6-Q95214 C7-K90000 C8-K05352 E4-K06751 C9-BASE E5-K10929
ICE189A 0 BLOCKSET REQUIRED BUT COULD NOT BE USED - REASON CODE IS 65
ICE052I 3 END OF DFSORT

How can I resolve this ? Thank in advance Mr.Yaeger

Regards
Denis Dhimitri

by **Frank Yaeger** » Wed May 07, 2008 8:33 pm

When I ran your job with DFSORT's shipped defaults, it completed successfully and produced this output in SORTOUT:

Select all

RECORD TYPE PARTIAL
---------------------------------
DENIS 2
MARCO 2
TOTAL INPUT: 4

It appears your site has disabled DFSORT's shipped default of using dynamic allocation of work data sets by changing DYNAUTO=YES to DYNAUTO=NO. So you're not getting any work data sets for the job, causing it to fail. You can allow the job to use dynamic allocation by adding the following statement to SYSIN:

Select all

OPTION DYNALLOC

You might want to talk to your System Programmers about why they changed DYNAUTO=YES to DYNAUTO=NO. This is NOT recommended.

by **denis.dhimitri** » Wed May 07, 2008 11:25 pm

Hello Mr.Yaeger,

Thanks a lot for your time and solution you gave me. I reeally appreciate it. I'll try it tomorrow when I'll be back to work.

Best regards
Denis Dhimitri

by **Nik22Dec** » Mon Jan 23, 2012 4:55 pm

Thanks so much Frank!!! I was facing the same issue & could resolve it with

Select all

OPTION DYNALLOC

Had you been not there, I would have been never able to solve the issue. Can you please tell me if there is a way of determining the SORT defaults installed in the system.

by **skolusu** » Mon Jan 23, 2012 9:33 pm

Nik22Dec wrote: Can you please tell me if there is a way of determining the SORT defaults installed in the system.

Use the following DFSORT/ICETOOL JCL which will give you the desired results

Select all

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//OUT DD SYSOUT=*
//TOOLIN DD *
DEFAULTS LIST(OUT)
//*

by **Frank Yaeger** » Tue Jan 24, 2012 12:09 am

Nik,

You're welcome. And good for you for using the search facility (not everybody does). Kolusu has given you the job for displaying your site's installation defaults. For more information on that, see:

http://publibz.boulder.ibm.com/cgi-bin/ ... 0608113434

by **Nik22Dec** » Mon Jan 30, 2012 10:39 am

Thanks so much Frank & Kolusu. Really Appreciate!!

IBM Mainframe Forum

ICEMAN sectioning Help

ICEMAN sectioning Help

Re: ICEMAN sectioning Help

Re: ICEMAN sectioning Help

Re: ICEMAN sectioning Help

Re: ICEMAN sectioning Help

Re: ICEMAN sectioning Help

Re: ICEMAN sectioning Help