Hi,
here a sample:
//ST002 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=MYDCOLLECT
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION VLSCMP
INCLUDE COND=(9,2,BI,EQ,C'D ',AND, ONLY TYPE 'D'
74,1,BI,NE,B'..1.....',AND, NO TEMPORARY
75,1,BI,NE,B'.1......') NO ICF CATALOG
INREC IFTHEN=(WHEN=INIT,
BUILD=(1,4, RDW
29,44, DSNAME
83,6, DCDVOLSR
109,4,PD,EDIT=('TTTTTTT'), PACKED TO ZONED
171,30, STORAGE CLASS
235,30)) STORAGE GROUP
SORT FIELDS=(5,44,BI,A,49,2,BI,A),STOPAFT=10000
OUTFIL FNAMES=SORTOUT,VTOF,
OUTREC=(5,44,
49,6,
55,7,Y4T,TOGREG=Y4T, JULIAN TO GREG
62,30,
92,30)
/*
best regards.
Max
2018-05-01 13:04 GMT+02:00 Gadi Ben-Avi <[email protected]>:
> Thanks
> The examples are also in the SICESAMP library, but there is nothing there
> that helps me.
>
> Gadi
>
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] On
> Behalf Of David Betten
> Sent: Tuesday, May 1, 2018 1:31 PM
> To: [email protected]
> Subject: Re: DFSORT help
>
> This might help. On the DFSORT web site there's a file that includes
> examples for using ICETOOL to analyze DFHSM, DFSMSrmm and DCOLLECT.
>
> http://www-01.ibm.com/support/docview.wss?rs=114&uid=isg3T7000097#ex
>
>
> Have a nice day,
> Dave Betten
> z/OS Performance Specialist
> Cloud and Systems Performance
> IBM Corporation
> email: [email protected]
>
> IBM Mainframe Discussion List <[email protected]> wrote on
> 05/01/2018 05:16:57 AM:
>
> > From: Gadi Ben-Avi <[email protected]>
> > To: [email protected]
> > Date: 05/01/2018 05:17 AM
> > Subject: DFSORT help
> > Sent by: IBM Mainframe Discussion List <[email protected]>
> >
> >
> > I use the free version of Spam Reader to get rid of spam. The
> > Professional version doesn't have this disclaimer in outgoing emails.
> > Try Spam Reader for free now!
> > Hi,
> > I am new to DFSORT.
> > I would like to create an OUTREC statement that will take the output
> > from DCOLLCT type D records and give me the following fields:
> > DSN, VOLSER, STORAGE Class or Storage Group and create date in a
> > readable format (ddmmyyyy) Can anyone help with this?
> >
> > Thanks
> >
> > Gadi
> > הודעה זו נשלחה אליך מטעם חברה בקבוצת מלם תים וייתכן שהיא מוגנת תחת
> > סודיות מסחרית. כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד
> > וחתום על ידי מורשה החתימה של החברה. החברה רשאית לנטר כל תכתובת העוברת
> > בשרתיה והיא לא תישא באחריות לכל נזק, ו/או אובדן, שיבוש או פגיעה במידע
> > כלשהו שנגרם מסיבות של תקיפה חיצונית ו/או זדונית על הארגון.
> >
> > ----------------------------------------------------------------------
> > 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
