This is what I use with ICETOOL to display dataset information.

HEADER('Data Set Name')        ON(029,44,CH) -
HEADER('#Ext')                 ON(082,01,BI) -
HEADER('Volser')               ON(083,06,CH) -
HEADER('BlkLen')               ON(089,02,FI) -
HEADER('RecLen')               ON(091,02,FI) -
HEADER('SpcAlc')               ON(093,04,FI) -
HEADER('SpcUsd')               ON(097,04,FI) -
HEADER('SecAlc')               ON(101,04,FI) -
HEADER('CreatDate')            ON(109,04,PD) -
HEADER('ReferDate')            ON(117,04,PD)

On 8/3/2021 11:11 PM, Jack Zukt wrote:
Hi,
Thank you for you suggestions.
I am going to try them out.
Jack

On Tue, 3 Aug 2021 at 15:21, Cameron Conacher <conac...@gmail.com> wrote:

Four bytes binary to display numeric?
Starting-column,4,bi,EDIT=(TTTTTTTS)
Maybe be what you are looking for?

Packed date to display numeric?
Starting-column,4,PD,EDIT=(TTTTTTT)
Maybe what you are looking for?

If you want leading zeros use “T”
If you want leading zeroes as blanks use “I”.

Sent from my iPhone

On Aug 3, 2021, at 9:17 AM, Steve Smith <sasd...@gmail.com> wrote:

I use a format item of E'9999.999' on the field specified as length 4,
type
PD... I'm not sure of the syntax on a typical SORT, as I always use
symbol
files, and ICETOOL DISPLAY for this sort of thing.

sas

On Tue, Aug 3, 2021 at 8:27 AM Jack Zukt <jzuk...@gmail.com> wrote:

Hello All,
I am trying to build a report of inactive datasets using DCOLLECT for
input
and DFSORT to create the files for each last year referenced.
For the output files I only want the dataset name; last used date;
allocated space; used space; storage group name. Now for the tricky
part: I
want the date and space fields translated to characters. On the DCOLLECT
input records the date is in the 'yyyydddF' format and the space fields
are
4 byte long signed. I am pretty sure that there is a way to tell DFSORT
to
make that translation but I am having no luck with the manual.
Any suggestions?
Thank you for any help that you may give me.
Regards
Jack

----------------------------------------------------------------------
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


--
regards
Leon

Leon Trafalski
0400845899
0893432163
4 Varina Court
Alexander Heights
W.A. 6064


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to