Hi
Thanks for the reply
The offsets are probably okay. I had doubts myself and I run a simple sort
just to reformat records with those names and offsets and vertical bars in
between. The output had the expected values on the right places.

Regards
Jack

On Tue, Aug 26, 2025, 01:04 Retired Mainframer <
[email protected]> wrote:

> It may just be a Listserv artifact but when I copied you sample into a
> fixed
> width editor the data did not align with your columns.  VOLSER started in
> 49,
> not 47; FILESZ ended in 66 (65 if you don't count the K), not 63 (62).
>
> -----Original Message-----
> From: IBM Mainframe Discussion List <[email protected]> On Behalf
> Of
> Jack Zukt
> Sent: Monday, August 25, 2025 9:49 AM
> To: [email protected]
> Subject: DFSORT SUM problem
>
> Hi all,
>
> I have a file with information about tape files, that has the dataset name,
> volser, space used and space used after compression.
> Using DFSORT, I am trying to produce a file that will have one record by
> high level qualifier, with the number of files and the total used space
> without and with compression.
> My problem is that the sum of used and the sum of compressed space are
> wrong. Not only they are showing the exact same value (and the input values
> are very different), as the value for the situations in which there is only
> one data set for the HLQ is way different from the input file for that
> dataset.
> Sample of the input file:
> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+
>  PRODHLA1.FDX967                                VOL335     195035K
>  71303K
>
> Sample of the output file for that dataset:
> PPRDXI             1           1.077.952.576           1.077.952.576 KB
>
> So, this are my DFSORT control statements:
> //SYMNAMES DD  *
> ASA,1,1,CH
> DSNAME,*,44,CH
> SKIP,1
> VOLSER,*,6,CH
> SKIP,1
> FILESZ,*,10,UFF      * USED SPACE
> SKIP,2
> CMPRSZ,*,10,UFF      * USED COMPRESSED SPACE
> SKIP,1
>
> <snip>
>
> I have been looking at these for so long that I must be looking straight
> into the error without seeing it.
>
> Regards
> Jack
>
> ----------------------------------------------------------------------
> 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

Reply via email to