Oops, I missed the SORT statement QQQQCNTL. Please add SORT
FIELDS=(1,4,CH,A) to QQQQCNTL and it should look like this
//QQQQCNTL DD *
INCLUDE COND=(11,4,CH,EQ,C'RACF')
SORT FIELDS=(1,4,CH,A)
OUTFIL FNAMES=O,REMOVECC,NODETAIL,BUILD=(121X),
HEADER2=('(1,4,CH) VALUE COUNT'),
SECTIONS=(1,4,TRAILER3=(1,4,24:COUNT=(M11,LENGTH=15)))
//*
Kolusu
DFSORT Development
IBM Corporation
From: Sri h Kolusu/Silicon Valley/IBM@IBMUS
To: [email protected],
Date: 05/12/2014 01:29 PM
Subject: Re: ICETOOL, OCCUR command.
Sent by: IBM Mainframe Discussion List <[email protected]>
Tony,
Use the following DFSORT JCL which will give you the desired results.
//DEL1 EXEC PGM=IEFBR14
//O DD &DEL,DSN=&SORTOUT
//*
// SET LEN='121'
// SET CNT='5000,5000'
//*
//ICE1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//I DD &SHR,DSN=&SORTIN
//O DD &CAT,DSN=&SORTOUT,
// &FMT,LRECL=&LEN,SPACE=(&LEN,(&CNT,0),RLSE)
//TOOLIN DD *
COPY FROM(I) USING(QQQQ)
//QQQQCNTL DD *
INCLUDE COND=(11,4,CH,EQ,C'RACF')
OUTFIL FNAMES=O,REMOVECC,NODETAIL,BUILD=(121X),
HEADER2=('(1,4,CH) VALUE COUNT'),
SECTIONS=(1,4,TRAILER3=(1,4,24:COUNT=(M11,LENGTH=15)))
//*
Further If you have any questions please let me know
Thanks,
Kolusu
DFSORT Development
IBM Corporation
From: TonyGMAIL <[email protected]>
To: [email protected],
Date: 05/12/2014 12:58 PM
Subject: Re: ICETOOL, OCCUR command.
Sent by: IBM Mainframe Discussion List <[email protected]>
My input file is FB, 100 bytes, output format is not important.
On 5/12/2014 2:44 PM, Sri h Kolusu wrote:
> Tony,
>
> You cannot use USING with OCCURS operator of ICETOOL. However you can
> generate similar report to OCCURS operator with traditional reporting
> features of DFSORT. Please show us a sample of input and desired output
> along with the DCB properties of the input file and I will show you a
way
> of generating the report with traditional reporting features.
>
> Thanks,
> Kolusu
> DFSORT Development
>
> IBM Mainframe Discussion List <[email protected]> wrote on
> 05/12/2014 11:51:23 AM:
>
>> From: TonyGMAIL <[email protected]>
>> To: [email protected],
>> Date: 05/12/2014 12:02 PM
>> Subject: ICETOOL, OCCUR command.
>> Sent by: IBM Mainframe Discussion List <[email protected]>
>>
>> Has anyone used ICETOOL with the OCCUR command to analyze a subset of a
>> file, i.e. records containing "ABC123" in column N? The OCCUR command
>> does not accept a USING command.
>>
>> ----------------------------------------------------------------------
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to [email protected] with the message: INFO IBM-MAIN
>>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
