Tony, You can always use the traditional reporting features to generate the reports. It is just that OCCURS and DISPLAY operators are user friendly versions of reporting. With traditional features you need to do all the formatting and spacing and Key break logic. The OCCURS and DISPLAY operators do it under the covers. You can see this if you look at the DFSMSG output from OCCURS operator.
Have this flowchart handy and you can see the various phases of DFSORT http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/1.5.4? Further if you have any questions please feel free to contact me Thanks, Kolusu DFSORT Development IBM Corporation From: TonyGMAIL <tonybabo...@gmail.com> To: IBM-MAIN@listserv.ua.edu, Date: 05/12/2014 02:17 PM Subject: Re: ICETOOL, OCCUR command. Sent by: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> Thank you, it works fine! I'll have to do more reading. This is a neat technique using the concept of a report that actually is not a report. Thanks again, Sri. On 5/12/2014 3:37 PM, Sri h Kolusu wrote: > 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: IBM-MAIN@listserv.ua.edu, > Date: 05/12/2014 01:29 PM > Subject: Re: ICETOOL, OCCUR command. > Sent by: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> > > > > 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 <tonybabo...@gmail.com> > To: IBM-MAIN@listserv.ua.edu, > Date: 05/12/2014 12:58 PM > Subject: Re: ICETOOL, OCCUR command. > Sent by: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> > > > > 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 <IBM-MAIN@listserv.ua.edu> wrote on >> 05/12/2014 11:51:23 AM: >> >>> From: TonyGMAIL <tonybabo...@gmail.com> >>> To: IBM-MAIN@listserv.ua.edu, >>> Date: 05/12/2014 12:02 PM >>> Subject: ICETOOL, OCCUR command. >>> Sent by: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> >>> >>> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN >>> >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
