Re: DFSORT - Something I can't see.

[Massimo Biancucci]

Sri,

it's true, indeed and it's outside of my control (this case I'm not the
SYSPROG).

Back to your explanation, I do understand DFSORT ...  "So VLSHRT tells
DFSORT to treat any comparison involving a
short field as false."
This case anyway I've two conditions in OR, one of the two is true and
anyway it ignores the two of them.
Now I better understand and will keep more attention to such a pitfall.

Thanks again.
Max


Privo
di virus.www.avast.com

<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>

Il giorno ven 26 lug 2024 alle ore 15:00 Sri Hari Kolusu 
ha scritto:

> > thanks a lot it obviously (now :D) worked. I would have preferred an
> error.
>
> Max,
>
> I am guessing your shop has VLSHRT as the default.  Here is a topic that
> describes the effects of VLSHRT
>
> https://www.mail-archive.com/ibm-main@listserv.ua.edu/msg92247.html
>
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
>
> --
> 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

Re: DFSORT - Something I can't see.

[Sri Hari Kolusu]

> thanks a lot it obviously (now :D) worked. I would have preferred an error.

Max,

I am guessing your shop has VLSHRT as the default.  Here is a topic that 
describes the effects of VLSHRT

https://www.mail-archive.com/ibm-main@listserv.ua.edu/msg92247.html


Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: DFSORT - Something I can't see.

[Massimo Biancucci]

Sri,

thanks a lot it obviously (now :D) worked.
I would have preferred an error.

Thanks again.
Max


Privo
di virus.www.avast.com

<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>

Il giorno ven 26 lug 2024 alle ore 14:47 Sri Hari Kolusu 
ha scritto:

> > Input is a VBA dataset.
>
> Massimo,
>
> Since the input is VBA, the short records may be the difference.  Please
> add OPTION VLSCMP to the SYSIN and re-run the job.
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
>
>
> --
> 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

Re: DFSORT - Something I can't see.

[Sri Hari Kolusu]

> Input is a VBA dataset.

Massimo,

Since the input is VBA, the short records may be the difference.  Please add 
OPTION VLSCMP to the SYSIN and re-run the job.

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT / SORT and value/necessity of FILSZ parameter

[Verwijs, Frederick F [NC]]

Thank you kindly. That's helpful.


   Regards,
Eric Verwijs

Chef d'équipe intérimaire,
RPC, SV et solutions de paiement - Direction générale de l'innovation, 
information et technologie
Emploi et Développement social Canada / Gouvernement du Canada
frederick.verw...@hrsdc-rhdcc.gc.ca
Téléphone 613-415-5465

Acting Team Leader,
CPP, OAS, and Payment Solutions - Innovation, Information and Technology Branch
Employment and Social Development Canada / Government of Canada
frederick.verw...@hrsdc-rhdcc.gc.ca
Telephone 613-415-5465

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
Hari Kolusu
Sent: Sunday, July 21, 2024 7:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSORT / SORT and value/necessity of FILSZ parameter

>> We use OPTION COPY.

Eric,

Option COPY does NOT require FILSZ parameter.  It is required when SORTing data 
which helps in calculating the workspace required.   DFSORT issues an 
informational message ICE118I when it couldn't determine the file size.

https://www.ibm.com/docs/en/zos/2.5.0?topic=messages-ice118i

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: DFSORT / SORT and value/necessity of FILSZ parameter

[Sri Hari Kolusu]

>> We use OPTION COPY.

Eric,

Option COPY does NOT require FILSZ parameter.  It is required when SORTing data 
which helps in calculating the workspace required.   DFSORT issues an 
informational message ICE118I when it couldn't determine the file size.  

https://www.ibm.com/docs/en/zos/2.5.0?topic=messages-ice118i

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: DFSORT / SORT and value/necessity of FILSZ parameter

[Verwijs, Frederick F [NC]]

Thank you for answering. The dataset is not sorted first, at least I think we 
don't.
We use OPTION COPY.

//SYSIN DD *
  OPTION COPY
  OUTFIL FNAMES=SORTOFT1,VTOF,
  OUTREC=(5,1872),
  INCLUDE=(16,2,CH,EQ,C'98')
  OUTFIL FNAMES=SORTOFT2,VTOF,
  OUTREC=(5,1872),
  INCLUDE=(16,2,CH,EQ,C'99')
  OUTFIL FNAMES=SORTOFT3,VTOF,
  OUTREC=(5,1872),
  INCLUDE=(16,2,CH,EQ,C'00')



   Regards, 
        Eric Verwijs 

Chef d'équipe intérimaire,
RPC, SV et solutions de paiement - Direction générale de l'innovation, 
information et technologie
Emploi et Développement social Canada / Gouvernement du Canada
frederick.verw...@hrsdc-rhdcc.gc.ca 
Téléphone 613-415-5465

Acting Team Leader,
CPP, OAS, and Payment Solutions - Innovation, Information and Technology Branch
Employment and Social Development Canada / Government of Canada
frederick.verw...@hrsdc-rhdcc.gc.ca 
Telephone 613-415-5465

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
Hari Kolusu
Sent: Friday, July 19, 2024 3:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSORT / SORT and value/necessity of FILSZ parameter

>> We run sort splits on large tape datasets, with over a hundred million 
>> records. They get split into 3 separate datasets, depending on the data.
These jobs do not use FILSZ.

Eric,

Does the job SORT the data before split , or is it just splitting with a COPY 
operation to separate datasets ?   As long the tape datasets have a standard 
label and Tape processing software(RMM/CA-1/ICETPEX) is providing the details 
of the dataset, you don't need to code FILSZ parameter.  If your job has 
SORTDIAG DD DUMMY coded, then you can check the ICE905I message.

for example.

ICE905I 1 I : RF=144,LR=340,BLK=17680,BCT=514473

  I   = INPUT (SORTIN OR SORTINXX)

 RF=144   RECFM 128 = X'80' F - FIXED  +
 16 = X'10' B - BLOCKED

 LR=340   IS THE LRECL OF THE FILE

 BLK=17680IS THE BLOCKSIZE OF THE DATASET

 BCT=514473   BLOCK COUNT (WILL BE 0 FOR COPY, MERGE OR SORTOUT)


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT / SORT and value/necessity of FILSZ parameter

[Sri Hari Kolusu]

>> We run sort splits on large tape datasets, with over a hundred million 
>> records. They get split into 3 separate datasets, depending on the data.
These jobs do not use FILSZ.

Eric,

Does the job SORT the data before split , or is it just splitting with a COPY 
operation to separate datasets ?   As long the tape datasets have a standard 
label and Tape processing software(RMM/CA-1/ICETPEX) is providing the details 
of the dataset, you don't need to code FILSZ parameter.  If your job has 
SORTDIAG DD DUMMY coded, then you can check the ICE905I message.

for example.

ICE905I 1 I : RF=144,LR=340,BLK=17680,BCT=514473

  I   = INPUT (SORTIN OR SORTINXX)

 RF=144   RECFM 128 = X'80' F - FIXED  +
 16 = X'10' B - BLOCKED

 LR=340   IS THE LRECL OF THE FILE

 BLK=17680IS THE BLOCKSIZE OF THE DATASET

 BCT=514473   BLOCK COUNT (WILL BE 0 FOR COPY, MERGE OR SORTOUT)


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Schmitt, Michael]

There's no stats parm in a template.

A template is a binary representation of a language copy member, e.g. you take 
the copy member (a file record layout) and convert it into a template. Then you 
can apply record selection and other criteria.

Many people just have File Manager create templates on the fly and then discard 
them after use. I'm talking about permanent templates.

This is the template workbench:

File Manager  Template Workbench
 Command ===>

 CC Create template from copybook   E  Edit field/record in template
 CM Create template from model  U  Update template from copybook
 MC Map from copybook   MT Map from template

 Copybook:
Data set name . 'PEW3H.MMM.FMGRCOPY'
Member  . . . . EM100U21
 Template:
Data set name . 'TTPJMSS.MMM.FILEMGR'
Member  . . . . EM100U21
 Model Template:
Data set name .
Member  . . . .

 Processing Options:
  Enter "/" to select option
  /  Advanced copybook selection


There's other options for building and updating templates, but I don't like 
them, for reasons. You may be thinking of the one that generates a batch job.


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
Hari Kolusu
Sent: Tuesday, June 25, 2024 11:36 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics

> I don't think that option is on the template workbench.

Michael,

I don't use workbench, but I am assuming that it does let you EDIT the 
template.  If it does , then just add/Modify the stats parm in the template.

Thanks,
Kolusu

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Jack Zukt]

Hi
You could run a rexx in an ispf batch environment that could use listds to
get the member names for each pds and then edit each member with an initial
macro that would do the save and end.
Best wishes
Jack

On Tue, Jun 25, 2024, 16:17 Cameron Conacher <
03cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote:

> Thanks.
> I can try that.
> Or just Enter/SAVE/F3 a couple of hundred times. 
>
> Appreciate the information as always.
>
>
> Thanks
>
> …….Cameron
>
>
> From: IBM Mainframe Discussion List  On Behalf
> Of Sri Hari Kolusu
> Sent: Tuesday, June 25, 2024 11:01 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics
>
> >> I want to know if I can include an option, or processing clause to
> ensure that Library statistics are generated for each new member as I
> create them. At the moment, I have a couple of hundred new Library Members
> that have no member
>
>
> >> I want to know if I can include an option, or processing clause to
> ensure that Library statistics are generated for each new member as I
> create them.
>
> At the moment, I have a couple of hundred new Library Members that have no
> member statistics at all (who last changed, when created when last changed,
> etc..).
>
>
>
> Cameroon,
>
>
>
> Unfortunately, DFSORT does NOT copy/generate member statistics when
> copying.  However, if your shop has FILE-MANAGER, then you can use the
> following.
>
>
>
> //STEP0100 EXEC PGM=FILEMGR
>
> //SYSPRINT DD SYSOUT=*
>
> //DDIN DD DISP=SHR,DSN=Your.input
>
> //DDOUTDD DISP=OLD,DSN=your.output.pds(memname)
>
> //SYSINDD *
>
> $$FILEM DSC STATS=ON
>
> /*
>
>
>
> Thanks,
>
> Kolusu
>
> DFSORT Development
>
> IBM Corporation
>
>
>
>
>
>
>
> --
>
> For IBM-MAIN subscribe / signoff / archive access instructions,
>
> send email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu>
> with the message: INFO IBM-MAIN
>
> 
> American Express made the following annotations
> 
> This e-mail was sent to you by a representative of Amex Bank of Canada,
> P.O. Box 3204, Station "F", Toronto, ON, M1W 3W7, www.americanexpress.ca.
> If you no longer wish to receive these e-mails, please notify the sender by
> reply e-mail.
>
> This e-mail is solely for the intended recipient and may contain
> confidential or privileged information. If you are not the intended
> recipient, any disclosure, copying, use, or distribution of the information
> included in this e-mail is prohibited. If you have received this e-mail in
> error, please notify the sender by reply e-mail and immediately and
> permanently delete this e-mail and any attachments. Thank you.
>
> American Express a fait les remarques suivantes
> Ce courriel vous a été envoyé par un représentant de la Banque Amex du
> Canada, C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7,
> www.americanexpress.ca. Si, par la suite, vous ne souhaitez plus recevoir
> ces courriels, veuillez en aviser les expéditeurs par courriel.
>
> Ce courriel est réservé au seul destinataire indiqué et peut renfermer des
> renseignements confidentiels et privilégiés. Si vous n’êtes pas le
> destinataire prévu, toute divulgation, duplication, utilisation ou
> distribution du courriel est interdite. Si vous avez reçu ce courriel par
> erreur, veuillez en aviser l’expéditeur par courriel et détruire
> immédiatement le courriel et toute pièce jointe. Merci.
>
> --
> 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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Sri Hari Kolusu]

> I don't think that option is on the template workbench.

Michael,

I don't use workbench, but I am assuming that it does let you EDIT the 
template.  If it does , then just add/Modify the stats parm in the template.

Thanks,
Kolusu

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Schmitt, Michael]

I don't think that option is on the template workbench.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
Hari Kolusu
Sent: Tuesday, June 25, 2024 11:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics

>> It is a sore point with me that the File Manager template workbench doesn't 
>> generate ISPF statistics on the templates it creates. It will /maintain/ 
>> statistics if they already exist, but it won't create them.

Michael,

Did you try to use the option STATS=FORCE ?

 The ISPF statistics that exist for members being processed are always updated 
and statistics for a member that previously did not have statistics are created.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Sri Hari Kolusu]

>> It is a sore point with me that the File Manager template workbench doesn't 
>> generate ISPF statistics on the templates it creates. It will /maintain/ 
>> statistics if they already exist, but it won't create them.

Michael,

Did you try to use the option STATS=FORCE ?

 The ISPF statistics that exist for members being processed are always updated 
and statistics for a member that previously did not have statistics are created.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Schmitt, Michael]

It is a sore point with me that the File Manager template workbench doesn't 
generate ISPF statistics on the templates it creates. It will /maintain/ 
statistics if they already exist, but it won't create them.

Just like the IBM Fault Analyzer IDILANGX utility* won't create ISPF stats on 
sidefiles it creates. I had to write an assembler program that copies an input 
member or flat file to a PDS member, creating ISPF stats as it saves it.

*Any* utility that creates a PDS member, that isn't a module, should be 
creating ISPF-format statistics. It /at least/ should be an option.  I mean 
where what's provided in input or a DD is a library, not a library(member). So 
DFSORT sorting to a library(member) wouldn't create stats.


For the OP question, I think the respondents have hit all the options to create 
ISPF stats...

* ISPF 3.5 (usually the best method in ISPF)
* ISPF Edit, save (but this uses up PDS space)
* FM DSC (and maybe other functions)
* PDS utility
* ISPF services from a REXX exec or program
* Assembler program


* yeah I know it isn't actually IDILANGX anymore, but part of ADFzCC 
(Application Delivery Foundation for z Systems Common Components).

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Tuesday, June 25, 2024 10:28 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics

On Tue, 25 Jun 2024 15:01:20 +, Sri Hari Kolusu wrote:
>
>Unfortunately, ...
>
<https://en.wikipedia.org/wiki/Conway%27s_law>

>DFSORT does NOT copy/generate member statistics when copying.  However, if 
>your shop has FILE-MANAGER, then you can use the following.
>
>//STEP0100 EXEC PGM=FILEMGR
>//SYSPRINT DD SYSOUT=*
>//DDIN DD DISP=SHR,DSN=Your.input
>//DDOUTDD DISP=OLD,DSN=your.output.pds(memname)
>//SYSINDD *
>$$FILEM DSC STATS=ON
>/*

--
gil

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Cameron Conacher]

Fantastic!!

Thanks

…….Cameron


From: IBM Mainframe Discussion List  On Behalf Of Sri 
Hari Kolusu
Sent: Tuesday, June 25, 2024 11:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics

>> Or just Enter/SAVE/F3 a couple of hundred times.  Cameroon, You can use 
>> ISPF to Set the statistics. Look at the option 5 in UTILITIES. Menu Options 
>> View Utilities Compilers Help  
>> EN sss


>> Or just Enter/SAVE/F3 a couple of hundred times. 



Cameroon,



You can use ISPF to Set the statistics.  Look at the option 5 in UTILITIES.





  Menu  Options  View  Utilities  Compilers  Help

 EN sss

DSLIST - Data Sets M e 5  1. Library  e

Command ===> e2. Data set e

 e3. Move/Copye

Command - Enter "/"  e4. Data Set Liste   M

 e5. Reset Statistics e ---

 KOLUSU.SORT e6. Hardcopy e

 e*. Reserved e st 

 e8. Outlist  e

 e9. Commands...  e

 e   *0. Reserved e

 e   11. Format   e

 e   12. SuperC   e

 e   13. SuperCE  e

 e   14. Search-For   e

 e   15. Search-ForE  e

 e   16. Table Utilitye

 e   17. Directory List   e

 DM







Thanks,

Kolusu

DFSORT Development

IBM Corporation







--

For IBM-MAIN subscribe / signoff / archive access instructions,

send email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu> with 
the message: INFO IBM-MAIN


American Express made the following annotations

This e-mail was sent to you by a representative of Amex Bank of Canada, P.O. 
Box 3204, Station "F", Toronto, ON, M1W 3W7, www.americanexpress.ca. If you no 
longer wish to receive these e-mails, please notify the sender by reply e-mail.

This e-mail is solely for the intended recipient and may contain confidential 
or privileged information. If you are not the intended recipient, any 
disclosure, copying, use, or distribution of the information included in this 
e-mail is prohibited. If you have received this e-mail in error, please notify 
the sender by reply e-mail and immediately and permanently delete this e-mail 
and any attachments. Thank you.

American Express a fait les remarques suivantes
Ce courriel vous a été envoyé par un représentant de la Banque Amex du Canada, 
C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7, www.americanexpress.ca. Si, 
par la suite, vous ne souhaitez plus recevoir ces courriels, veuillez en aviser 
les expéditeurs par courriel.

Ce courriel est réservé au seul destinataire indiqué et peut renfermer des 
renseignements confidentiels et privilégiés. Si vous n’êtes pas le destinataire 
prévu, toute divulgation, duplication, utilisation ou distribution du courriel 
est interdite. Si vous avez reçu ce courriel par erreur, veuillez en aviser 
l’expéditeur par courriel et détruire immédiatement le courriel et toute pièce 
jointe. Merci.

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[David Spiegel]

HI Cameron,
Another possibility ... Please look at (CBT File 93) PDSLOAD.

//PDSLOAD  EXEC PGM=PDSLOADW,PARM='UPDTE(./)'
//SYSPRINT  DD  SYSOUT=*
//STEPLIB   DD  DISP=SHR,DSN=FILE135.PDS
//SYSUT1    DD  DISP=SHR,DSN=SYSUT1.TXT
//SYSUT2    DD  DISP=SHR,DSN=MYPDS.CNTL

Here is a sample of SYSUT1:
./ ADD NAME=MEMBERR1 ...
* your code goes here
./ ADD NAME=MEMBER2 ...
* your code goes here
/*

Where (ADD Statement):
COL DESCRIPTION
1-20    ./ ADD NAME=
21  BLANK
22-71   VVMM-YYDDD-YYDDD-HHMM-N-N-N-UU
    VER CREATE LASTMODIFY  SIZE  INIT   MOD   ID

Regards,
David

On 2024-06-25 11:17, Cameron Conacher wrote:

Thanks.
I can try that.
Or just Enter/SAVE/F3 a couple of hundred times. 

Appreciate the information as always.


Thanks

…….Cameron


From: IBM Mainframe Discussion List  On Behalf Of Sri 
Hari Kolusu
Sent: Tuesday, June 25, 2024 11:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics


I want to know if I can include an option, or processing clause to ensure that 
Library statistics are generated for each new member as I create them. At the 
moment, I have a couple of hundred new Library Members that have no member



I want to know if I can include an option, or processing clause to ensure that 
Library statistics are generated for each new member as I create them.

At the moment, I have a couple of hundred new Library Members that have no 
member statistics at all (who last changed, when created when last changed, 
etc..).



Cameroon,



Unfortunately, DFSORT does NOT copy/generate member statistics when copying.  
However, if your shop has FILE-MANAGER, then you can use the following.



//STEP0100 EXEC PGM=FILEMGR

//SYSPRINT DD SYSOUT=*

//DDIN DD DISP=SHR,DSN=Your.input

//DDOUTDD DISP=OLD,DSN=your.output.pds(memname)

//SYSINDD *

$$FILEM DSC STATS=ON

/*



Thanks,

Kolusu

DFSORT Development

IBM Corporation







--

For IBM-MAIN subscribe / signoff / archive access instructions,

send email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu> with 
the message: INFO IBM-MAIN


American Express made the following annotations

This e-mail was sent to you by a representative of Amex Bank of Canada, P.O. Box 3204, 
Station "F", Toronto, ON, M1W 3W7, http://www.americanexpress.ca/. If you no 
longer wish to receive these e-mails, please notify the sender by reply e-mail.

This e-mail is solely for the intended recipient and may contain confidential 
or privileged information. If you are not the intended recipient, any 
disclosure, copying, use, or distribution of the information included in this 
e-mail is prohibited. If you have received this e-mail in error, please notify 
the sender by reply e-mail and immediately and permanently delete this e-mail 
and any attachments. Thank you.

American Express a fait les remarques suivantes
Ce courriel vous a été envoyé par un représentant de la Banque Amex du Canada, 
C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7, 
http://www.americanexpress.ca/. Si, par la suite, vous ne souhaitez plus 
recevoir ces courriels, veuillez en aviser les expéditeurs par courriel.

Ce courriel est réservé au seul destinataire indiqué et peut renfermer des 
renseignements confidentiels et privilégiés. Si vous n’êtes pas le destinataire 
prévu, toute divulgation, duplication, utilisation ou distribution du courriel 
est interdite. Si vous avez reçu ce courriel par erreur, veuillez en aviser 
l’expéditeur par courriel et détruire immédiatement le courriel et toute pièce 
jointe. Merci.

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Paul Gilmartin]

On Tue, 25 Jun 2024 18:24:52 +, Robert Prins wrote:

>Or if you don't care about stats, just that they are set, ISPF 3.5
>
ISRSUPC with the UPDMVS8 option generates a patch file.

But is there any tool to apply such a patch and update the stats,
and even the revision level in cols. 73-80?

-- 
gil

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Sri Hari Kolusu]

>> Or just Enter/SAVE/F3 a couple of hundred times. 

Cameroon,

You can use ISPF to Set the statistics.  Look at the option 5 in UTILITIES.


  Menu  Options  View  Utilities  Compilers  Help
 EN sss
DSLIST - Data Sets M e 5  1. Library  e
Command ===> e2. Data set e
 e3. Move/Copye
Command - Enter "/"  e4. Data Set Liste   M
 e5. Reset Statistics e ---
 KOLUSU.SORT e6. Hardcopy e
 e*. Reserved e st 
 e8. Outlist  e
 e9. Commands...  e
 e   *0. Reserved e
 e   11. Format   e
 e   12. SuperC   e
 e   13. SuperCE  e
 e   14. Search-For   e
 e   15. Search-ForE  e
 e   16. Table Utilitye
 e   17. Directory List   e
 DM



Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Paul Gilmartin]

On Tue, 25 Jun 2024 15:01:20 +, Sri Hari Kolusu wrote:
>
>Unfortunately, ...
>


>DFSORT does NOT copy/generate member statistics when copying.  However, if 
>your shop has FILE-MANAGER, then you can use the following.
>
>//STEP0100 EXEC PGM=FILEMGR
>//SYSPRINT DD SYSOUT=*
>//DDIN DD DISP=SHR,DSN=Your.input
>//DDOUTDD DISP=OLD,DSN=your.output.pds(memname)
>//SYSINDD *
>$$FILEM DSC STATS=ON
>/*

-- 
gil

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Robert Prins]

Or if you don't care about stats, just that they are set, ISPF 3.5

On Tue, 25 Jun 2024 at 18:23, Robert Prins 
wrote:

> In 3.4 enter (and cut & paste) "E" before every member, and then enter
> "SAVE;END;SAVE;END;SAVE;END;SAVE;END;RETRIEVE and it will reduce the number
> of "Enter"s you have to press significantly...And on a 160x62 screen, you
> can enter a lot of "SAVE;END;" commands ;)
>
> On Tue, 25 Jun 2024 at 15:17, Cameron Conacher <
> 03cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote:
>
>> Thanks.
>> I can try that.
>> Or just Enter/SAVE/F3 a couple of hundred times. 
>>
>> Appreciate the information as always.
>>
>>
>> Thanks
>>
>> …….Cameron
>>
>>
>> From: IBM Mainframe Discussion List  On Behalf
>> Of Sri Hari Kolusu
>> Sent: Tuesday, June 25, 2024 11:01 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics
>>
>> >> I want to know if I can include an option, or processing clause to
>> ensure that Library statistics are generated for each new member as I
>> create them. At the moment, I have a couple of hundred new Library Members
>> that have no member
>>
>>
>> >> I want to know if I can include an option, or processing clause to
>> ensure that Library statistics are generated for each new member as I
>> create them.
>>
>> At the moment, I have a couple of hundred new Library Members that have
>> no member statistics at all (who last changed, when created when last
>> changed, etc..).
>>
>>
>>
>> Cameroon,
>>
>>
>>
>> Unfortunately, DFSORT does NOT copy/generate member statistics when
>> copying.  However, if your shop has FILE-MANAGER, then you can use the
>> following.
>>
>>
>>
>> //STEP0100 EXEC PGM=FILEMGR
>>
>> //SYSPRINT DD SYSOUT=*
>>
>> //DDIN DD DISP=SHR,DSN=Your.input
>>
>> //DDOUTDD DISP=OLD,DSN=your.output.pds(memname)
>>
>> //SYSINDD *
>>
>> $$FILEM DSC STATS=ON
>>
>> /*
>>
>>
>>
>> Thanks,
>>
>> Kolusu
>>
>> DFSORT Development
>>
>> IBM Corporation
>>
>>
>>
>>
>>
>>
>>
>> --
>>
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>>
>> send email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu>
>> with the message: INFO IBM-MAIN
>>
>> 
>> American Express made the following annotations
>> 
>> This e-mail was sent to you by a representative of Amex Bank of Canada,
>> P.O. Box 3204, Station "F", Toronto, ON, M1W 3W7, www.americanexpress.ca.
>> If you no longer wish to receive these e-mails, please notify the sender by
>> reply e-mail.
>>
>> This e-mail is solely for the intended recipient and may contain
>> confidential or privileged information. If you are not the intended
>> recipient, any disclosure, copying, use, or distribution of the information
>> included in this e-mail is prohibited. If you have received this e-mail in
>> error, please notify the sender by reply e-mail and immediately and
>> permanently delete this e-mail and any attachments. Thank you.
>>
>> American Express a fait les remarques suivantes
>> Ce courriel vous a été envoyé par un représentant de la Banque Amex du
>> Canada, C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7,
>> www.americanexpress.ca. Si, par la suite, vous ne souhaitez plus
>> recevoir ces courriels, veuillez en aviser les expéditeurs par courriel.
>>
>> Ce courriel est réservé au seul destinataire indiqué et peut renfermer
>> des renseignements confidentiels et privilégiés. Si vous n’êtes pas le
>> destinataire prévu, toute divulgation, duplication, utilisation ou
>> distribution du courriel est interdite. Si vous avez reçu ce courriel par
>> erreur, veuillez en aviser l’expéditeur par courriel et détruire
>> immédiatement le courriel et toute pièce jointe. Merci.
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>
> --
> Robert AH Prins
> robert(a)prino(d)org
> The hitchhiking grandfather <https://prino.neocities.org/index.html>
> Some REXX code for use on z/OS
> <https://prino.neocities.org/zOS/zOS-Tools.html>
>


-- 
Robert AH Prins
robert(a)prino(d)org
The hitchhiking grandfather <https://prino.neocities.org/index.html>
Some REXX code for use on z/OS
<https://prino.neocities.org/zOS/zOS-Tools.html>

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Robert Prins]

In 3.4 enter (and cut & paste) "E" before every member, and then enter
"SAVE;END;SAVE;END;SAVE;END;SAVE;END;RETRIEVE and it will reduce the number
of "Enter"s you have to press significantly...And on a 160x62 screen, you
can enter a lot of "SAVE;END;" commands ;)

On Tue, 25 Jun 2024 at 15:17, Cameron Conacher <
03cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote:

> Thanks.
> I can try that.
> Or just Enter/SAVE/F3 a couple of hundred times. 
>
> Appreciate the information as always.
>
>
> Thanks
>
> …….Cameron
>
>
> From: IBM Mainframe Discussion List  On Behalf
> Of Sri Hari Kolusu
> Sent: Tuesday, June 25, 2024 11:01 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics
>
> >> I want to know if I can include an option, or processing clause to
> ensure that Library statistics are generated for each new member as I
> create them. At the moment, I have a couple of hundred new Library Members
> that have no member
>
>
> >> I want to know if I can include an option, or processing clause to
> ensure that Library statistics are generated for each new member as I
> create them.
>
> At the moment, I have a couple of hundred new Library Members that have no
> member statistics at all (who last changed, when created when last changed,
> etc..).
>
>
>
> Cameroon,
>
>
>
> Unfortunately, DFSORT does NOT copy/generate member statistics when
> copying.  However, if your shop has FILE-MANAGER, then you can use the
> following.
>
>
>
> //STEP0100 EXEC PGM=FILEMGR
>
> //SYSPRINT DD SYSOUT=*
>
> //DDIN DD DISP=SHR,DSN=Your.input
>
> //DDOUTDD DISP=OLD,DSN=your.output.pds(memname)
>
> //SYSINDD *
>
> $$FILEM DSC STATS=ON
>
> /*
>
>
>
> Thanks,
>
> Kolusu
>
> DFSORT Development
>
> IBM Corporation
>
>
>
>
>
>
>
> --
>
> For IBM-MAIN subscribe / signoff / archive access instructions,
>
> send email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu>
> with the message: INFO IBM-MAIN
>
> 
> American Express made the following annotations
> 
> This e-mail was sent to you by a representative of Amex Bank of Canada,
> P.O. Box 3204, Station "F", Toronto, ON, M1W 3W7, www.americanexpress.ca.
> If you no longer wish to receive these e-mails, please notify the sender by
> reply e-mail.
>
> This e-mail is solely for the intended recipient and may contain
> confidential or privileged information. If you are not the intended
> recipient, any disclosure, copying, use, or distribution of the information
> included in this e-mail is prohibited. If you have received this e-mail in
> error, please notify the sender by reply e-mail and immediately and
> permanently delete this e-mail and any attachments. Thank you.
>
> American Express a fait les remarques suivantes
> Ce courriel vous a été envoyé par un représentant de la Banque Amex du
> Canada, C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7,
> www.americanexpress.ca. Si, par la suite, vous ne souhaitez plus recevoir
> ces courriels, veuillez en aviser les expéditeurs par courriel.
>
> Ce courriel est réservé au seul destinataire indiqué et peut renfermer des
> renseignements confidentiels et privilégiés. Si vous n’êtes pas le
> destinataire prévu, toute divulgation, duplication, utilisation ou
> distribution du courriel est interdite. Si vous avez reçu ce courriel par
> erreur, veuillez en aviser l’expéditeur par courriel et détruire
> immédiatement le courriel et toute pièce jointe. Merci.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
Robert AH Prins
robert(a)prino(d)org
The hitchhiking grandfather <https://prino.neocities.org/index.html>
Some REXX code for use on z/OS
<https://prino.neocities.org/zOS/zOS-Tools.html>

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Willy Jensen]

Wouldn't that set the statistics to the current date and time, plus the userid 
of the SORT job? 
Also, if you have File Manager, I assume that it could do the copy, including 
statistics.
As a free alternative to File Manager, see PDS86 at cbttape.org file 182.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Farley, Peter]

If you have the free PDS tool from the CBTTAPE site, that tool also allows you 
to add ISPF statistics to an existing member.

Peter

From: IBM Mainframe Discussion List  On Behalf Of 
Cameron Conacher
Sent: Tuesday, June 25, 2024 11:17 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics


Thanks.

I can try that.

Or just Enter/SAVE/F3 a couple of hundred times. 



Appreciate the information as always.





Thanks



…….Cameron





From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Sri 
Hari Kolusu

Sent: Tuesday, June 25, 2024 11:01 AM

To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>

Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics



>> I want to know if I can include an option, or processing clause to ensure 
>> that Library statistics are generated for each new member as I create them. 
>> At the moment, I have a couple of hundred new Library Members that have no 
>> member



Cameroon,



Unfortunately, DFSORT does NOT copy/generate member statistics when copying.  
However, if your shop has FILE-MANAGER, then you can use the following.



//STEP0100 EXEC PGM=FILEMGR

//SYSPRINT DD SYSOUT=*

//DDIN DD DISP=SHR,DSN=Your.input

//DDOUTDD DISP=OLD,DSN=your.output.pds(memname)

//SYSINDD *

$$FILEM DSC STATS=ON

/*



Thanks,



Kolusu

DFSORT Development

IBM Corporation



--

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Cameron Conacher]

Thanks.
I can try that.
Or just Enter/SAVE/F3 a couple of hundred times. 

Appreciate the information as always.


Thanks

…….Cameron


From: IBM Mainframe Discussion List  On Behalf Of Sri 
Hari Kolusu
Sent: Tuesday, June 25, 2024 11:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics

>> I want to know if I can include an option, or processing clause to ensure 
>> that Library statistics are generated for each new member as I create them. 
>> At the moment, I have a couple of hundred new Library Members that have no 
>> member


>> I want to know if I can include an option, or processing clause to ensure 
>> that Library statistics are generated for each new member as I create them.

At the moment, I have a couple of hundred new Library Members that have no 
member statistics at all (who last changed, when created when last changed, 
etc..).



Cameroon,



Unfortunately, DFSORT does NOT copy/generate member statistics when copying.  
However, if your shop has FILE-MANAGER, then you can use the following.



//STEP0100 EXEC PGM=FILEMGR

//SYSPRINT DD SYSOUT=*

//DDIN DD DISP=SHR,DSN=Your.input

//DDOUTDD DISP=OLD,DSN=your.output.pds(memname)

//SYSINDD *

$$FILEM DSC STATS=ON

/*



Thanks,

Kolusu

DFSORT Development

IBM Corporation







--

For IBM-MAIN subscribe / signoff / archive access instructions,

send email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu> with 
the message: INFO IBM-MAIN


American Express made the following annotations

This e-mail was sent to you by a representative of Amex Bank of Canada, P.O. 
Box 3204, Station "F", Toronto, ON, M1W 3W7, www.americanexpress.ca. If you no 
longer wish to receive these e-mails, please notify the sender by reply e-mail.

This e-mail is solely for the intended recipient and may contain confidential 
or privileged information. If you are not the intended recipient, any 
disclosure, copying, use, or distribution of the information included in this 
e-mail is prohibited. If you have received this e-mail in error, please notify 
the sender by reply e-mail and immediately and permanently delete this e-mail 
and any attachments. Thank you.

American Express a fait les remarques suivantes
Ce courriel vous a été envoyé par un représentant de la Banque Amex du Canada, 
C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7, www.americanexpress.ca. Si, 
par la suite, vous ne souhaitez plus recevoir ces courriels, veuillez en aviser 
les expéditeurs par courriel.

Ce courriel est réservé au seul destinataire indiqué et peut renfermer des 
renseignements confidentiels et privilégiés. Si vous n’êtes pas le destinataire 
prévu, toute divulgation, duplication, utilisation ou distribution du courriel 
est interdite. Si vous avez reçu ce courriel par erreur, veuillez en aviser 
l’expéditeur par courriel et détruire immédiatement le courriel et toute pièce 
jointe. Merci.

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Sri Hari Kolusu]

>> I want to know if I can include an option, or processing clause to ensure 
>> that Library statistics are generated for each new member as I create them.
At the moment, I have a couple of hundred new Library Members that have no 
member statistics at all (who last changed, when created when last changed, 
etc..).

Cameroon,

Unfortunately, DFSORT does NOT copy/generate member statistics when copying.  
However, if your shop has FILE-MANAGER, then you can use the following.

//STEP0100 EXEC PGM=FILEMGR
//SYSPRINT DD SYSOUT=*
//DDIN DD DISP=SHR,DSN=Your.input
//DDOUTDD DISP=OLD,DSN=your.output.pds(memname)
//SYSINDD *
$$FILEM DSC STATS=ON
/*

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Cameron Conacher]

I believe I could use LMCOPY but I just wanted to confirm I was correct in that 
I could not do this in the SORT utility I had already prepared.


Thanks

…….Cameron


From: IBM Mainframe Discussion List  On Behalf Of 
rpinion865
Sent: Tuesday, June 25, 2024 10:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSORT Question regarding SORTOUT Library Member Statistics

Would the ISPF LM Services, i. e. LMCOPY, provide the results you want? Sent 
with Proton Mail secure email. On Tuesday, June 25th, 2024 at 10: 42 AM, 
Cameron Conacher <03cfc59146bb-dmarc-request@ LISTSERV. UA. EDU> wrote: > 
Hello everyone,


Would the ISPF LM Services, i.e. LMCOPY, provide the results you want?









Sent with Proton Mail secure email.



On Tuesday, June 25th, 2024 at 10:42 AM, Cameron Conacher 
<03cfc59146bb-dmarc-requ...@listserv.ua.edu<mailto:03cfc59146bb-dmarc-requ...@listserv.ua.edu>>
 wrote:



> Hello everyone,

> I believe I simply cannot do this using DFSORT, but I wanted to confirm with 
> the wider/wiser team.

>

> I have create a little DFSORT Utility to clone JCL/PROCs/Control Statement 
> etc... by copying selected members from a Library to another Library with 
> little Market changes.

>

> Nothing exciting in the SORT control statements. Everything works fine and I 
> have all the new members in the various libraries with very little effort.

>

> I want to know if I can include an option, or processing clause to ensure 
> that Library statistics are generated for each new member as I create them.

> At the moment, I have a couple of hundred new Library Members that have no 
> member statistics at all (who last changed, when created when last changed, 
> etc..).

>

> Assuming there is no option or processing clause available, I can just open 
> and save each new member individually.

>

> Can this be done somehow in DFSORT?

>

> Thanks

>

>

> Cameron Conacher

> Senior Engineer

>

> American Express Canada Inc.

> GCICS

> 2225 Sheppard Avenue East, Toronto, ON M2J 5C2

>

> Cameron.Conacher@aexp.commailto:cameron.conac...@aexp.com<mailto:cameron.conac...@aexp.com>

>

> Office: 1-437-836-5265

> Mobile: 1-416-409-5147

>

> https://amex.webex.com/join/cameron.conacher

>

>

>

>

> 

> American Express made the following annotations

> 

> This e-mail was sent to you by a representative of Amex Bank of Canada, P.O. 
> Box 3204, Station "F", Toronto, ON, M1W 3W7, 
> www.americanexpress.ca<https://isolate.menlosecurity.com/1/3735928037/http:/www.americanexpress.ca>.
>  If you no longer wish to receive these e-mails, please notify the sender by 
> reply e-mail.

>

> This e-mail is solely for the intended recipient and may contain confidential 
> or privileged information. If you are not the intended recipient, any 
> disclosure, copying, use, or distribution of the information included in this 
> e-mail is prohibited. If you have received this e-mail in error, please 
> notify the sender by reply e-mail and immediately and permanently delete this 
> e-mail and any attachments. Thank you.

>

> American Express a fait les remarques suivantes

> Ce courriel vous a ?t? envoy? par un repr?sentant de la Banque Amex du 
> Canada, C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7, 
> www.americanexpress.ca<https://isolate.menlosecurity.com/1/3735928037/http:/www.americanexpress.ca>.
>  Si, par la suite, vous ne souhaitez plus recevoir ces courriels, veuillez en 
> aviser les exp?diteurs par courriel.

>

> Ce courriel est r?serv? au seul destinataire indiqu? et peut renfermer des 
> renseignements confidentiels et privil?gi?s. Si vous n'?tes pas le 
> destinataire pr?vu, toute divulgation, duplication, utilisation ou 
> distribution du courriel est interdite. Si vous avez re?u ce courriel par 
> erreur, veuillez en aviser l'exp?diteur par courriel et d?truire 
> imm?diatement le courriel et toute pi?ce jointe. Merci.

>

> --

> For IBM-MAIN subscribe / signoff / archive access instructions,

> send email to lists...@listserv.ua.edu<mailto: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<mailto:lists...@listserv.ua.edu> with 
the message: INFO IBM-MAIN


American Express made the following annotations

This e-mail was sent to you by a representative of Amex Bank of Canada, P.O. 
Box 3204, Station "F", Toronto, ON, 

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[rpinion865]

Would the ISPF LM Services, i.e. LMCOPY, provide the results you want?




Sent with Proton Mail secure email.

On Tuesday, June 25th, 2024 at 10:42 AM, Cameron Conacher 
<03cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote:

> Hello everyone,
> I believe I simply cannot do this using DFSORT, but I wanted to confirm with 
> the wider/wiser team.
> 
> I have create a little DFSORT Utility to clone JCL/PROCs/Control Statement 
> etc... by copying selected members from a Library to another Library with 
> little Market changes.
> 
> Nothing exciting in the SORT control statements. Everything works fine and I 
> have all the new members in the various libraries with very little effort.
> 
> I want to know if I can include an option, or processing clause to ensure 
> that Library statistics are generated for each new member as I create them.
> At the moment, I have a couple of hundred new Library Members that have no 
> member statistics at all (who last changed, when created when last changed, 
> etc..).
> 
> Assuming there is no option or processing clause available, I can just open 
> and save each new member individually.
> 
> Can this be done somehow in DFSORT?
> 
> Thanks
> 
> 
> Cameron Conacher
> Senior Engineer
> 
> American Express Canada Inc.
> GCICS
> 2225 Sheppard Avenue East, Toronto, ON M2J 5C2
> 
> Cameron.Conacher@aexp.commailto:cameron.conac...@aexp.com
> 
> Office: 1-437-836-5265
> Mobile: 1-416-409-5147
> 
> https://amex.webex.com/join/cameron.conacher
> 
> 
> 
> 
> 
> American Express made the following annotations
> 
> This e-mail was sent to you by a representative of Amex Bank of Canada, P.O. 
> Box 3204, Station "F", Toronto, ON, M1W 3W7, www.americanexpress.ca. If you 
> no longer wish to receive these e-mails, please notify the sender by reply 
> e-mail.
> 
> This e-mail is solely for the intended recipient and may contain confidential 
> or privileged information. If you are not the intended recipient, any 
> disclosure, copying, use, or distribution of the information included in this 
> e-mail is prohibited. If you have received this e-mail in error, please 
> notify the sender by reply e-mail and immediately and permanently delete this 
> e-mail and any attachments. Thank you.
> 
> American Express a fait les remarques suivantes
> Ce courriel vous a ?t? envoy? par un repr?sentant de la Banque Amex du 
> Canada, C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7, 
> www.americanexpress.ca. Si, par la suite, vous ne souhaitez plus recevoir ces 
> courriels, veuillez en aviser les exp?diteurs par courriel.
> 
> Ce courriel est r?serv? au seul destinataire indiqu? et peut renfermer des 
> renseignements confidentiels et privil?gi?s. Si vous n'?tes pas le 
> destinataire pr?vu, toute divulgation, duplication, utilisation ou 
> distribution du courriel est interdite. Si vous avez re?u ce courriel par 
> erreur, veuillez en aviser l'exp?diteur par courriel et d?truire 
> imm?diatement le courriel et toute pi?ce jointe. Merci.
> 
> --
> 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

Re: DFSort query

[Ron Thomas]

My Apologies Kolusu for wrong details inputted  

Thanks Much for the sample job and it is working good for my requirement.

Regards
 Ron T

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

Re: DFSORT Fixed Records to CSV - Trim Extraneous Blanks?

[Sri Hari Kolusu]

>>> Is this doable in DFSORT?  If so, can help point me to some examples / 
>>> suggested reading / command statements?

Steve,

Yes DFSORT can do it quite easily.   Since you haven't provided any details 
about LRECL/RECFM here is sample that I came up on the fly.  Run this job and 
check the output.

//***
//* Input file has the following layout *
//* *
//* Fieldname  Position Length  *
//* -   --- *
//* firstname  0130 *
//* lastname   3130 *
//* company6120 *
//***
//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
FIRST NAMELAST NAME COMPANY
STEVE JR  ESTLE IBM-MAIN
DFSORTIBM   IBM
ABC   DEF   XYZ
IJKLMNOPQRSTUVWXYZ1234567890SOME COMPANY
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
** Right justify the fields so that the trailing spaces are gone
  INREC IFTHEN=(WHEN=INIT,
   BUILD=(01,30,JFY=(SHIFT=RIGHT),   # firstname
  C'|',  # stopper
  31,30,JFY=(SHIFT=RIGHT),   # last name
  C'|',  # stopper
  61,20,JFY=(SHIFT=RIGHT),   # company
  C'|')),# stopper

** Parse the right justified content and pick values from nonblank
** pay attention to fixlen parm as it is incremented by 3
** fixlen = original length  +   30 bytes
**  opening quotes   +   01 byte
**  closing quote+   01 byte
**  csv separator01 byte
**   =   33 bytes

IFTHEN=(WHEN=INIT,
   PARSE=(%01=(STARTAT=NONBLANK,
   ENDBEFR=C'|',
FIXLEN=33),

  %02=(STARTAT=NONBLANK,
   ENDBEFR=C'|',
FIXLEN=33),

  %03=(STARTAT=NONBLANK,
   ENDBEFR=C'|',
FIXLEN=23)),

   BUILD=(%01,JFY=(SHIFT=LEFT,
LEAD=C'"',
   TRAIL=C'"'),

  %02,JFY=(SHIFT=LEFT,
LEAD=C'"',
   TRAIL=C'"'),

  %03,JFY=(SHIFT=LEFT,
LEAD=C'"',
   TRAIL=C'"'))),

** Squeeze out the additional spaces while retaining the embedded
** Blanks

IFTHEN=(WHEN=INIT,
   BUILD=(01,89,SQZ=(SHIFT=LEFT,
  PAIR=QUOTE,
   MID=C','))),

** Remove the double quotes that we added to retain the embedded
** Blanks
IFTHEN=(WHEN=INIT,
   FINDREP=(INOUT=(C'"',C'')))

/*


The output from the above job looks like this.

FIRST NAME,LAST NAME,COMPANY
STEVE JR,ESTLE,IBM-MAIN
DFSORT,IBM,IBM
ABC,DEF,XYZ
IJKLMNOPQRSTUVWXYZ,1234567890,SOME COMPANY


Further if you have any questions, please let me know.

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSort query

[Sri Hari Kolusu]

Ron,

You have been a member on this forum for a long time and yet you post questions 
which lack basic data.

What is the LRECL and RECFM of the input file?

>> LAST_CHANGE_TS 20 bytes

The sample data you posted shows the timestamp as 26 bytes which would change 
the position of the sequence number which you want to validate to pull the 
desired records.

>> Could someone please let me know how we can build this data using dfsort ?

If you had searched, you would have found the DFSORT Smart trick “Include or 
omit groups of records”  which caters to your exact requirement.

https://www.ibm.com/support/pages/smart-dfsort-tricks

Either way here is a DFSORT JOB that would give you the desired results based 
on the following assumptions.

1.  Input file has RECFM=FB
2.  The sequence number starts at position 57 for 2 bytes with the leading zero 
suppressed.
3. If your input file has RECFM=VB, then you are on your own to modify the job 
shown below

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
ACCT _NBR PACCT_NBR LAST_CHANGE_TS CROSS_REF_NBR SEQ_NBR
600392811 1762220138659  2024-04-18-10.38.09.57003024538 1
505756281 1500013748790  2024-04-18-10.38.09.57003024538 2
59383061  1500013748790  2024-04-18-10.38.09.57003024538 3
59267071  1500013748790  2024-04-18-10.38.09.57003024538 4
505756281 1500013748790  2024-01-15-08.05.14.03879224538 1
59383061  1500013748790  2024-01-15-08.05.14.03879224538 2
59267071  1500013748790  2024-01-15-08.05.14.03879224538 3
600392811 1762220138659  2024-01-15-08.05.14.03879224538 4
600392561 1762220138631  2024-01-15-08.05.14.03879224531 1
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  INREC IFTHEN=(WHEN=GROUP,
   BEGIN=(57,2,UFF,EQ,1),
PUSH=(60:11,15,
  75:57,02))

  OUTFIL INCLUDE=(75,02,UFF,EQ,1),
   BUILD=(01,10,
  60,15)
/*


Thanks,
Kolusu
DFSORT Development
IBM Corporation





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

Re: DFSort query

[Retired Mainframer]

Have you considered using IFTHEN-WHEN constructs?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Ron Thomas
Sent: Tuesday, May 21, 2024 10:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: DFSort query

Hi All-

In the below Data we need to extract with in the cross ref nbr , if  seq Nbr 
=1  get Pacct_NBR and its related acct nbrs from the set

In the below dataset for cross ref nbr = 24538 we have 2 sets of data  and 
24531 we have 1 set .



Acct _NBR   Pacct_NBR   LAST_CHANGE_TS  CROSS_REF_NBR   SEQ_NBR
600392811   1762220138659   2024-04-18-10.38.09.570030  24538   1
505756281   1500013748790   2024-04-18-10.38.09.570030  24538   2
593830611500013748790   2024-04-18-10.38.09.570030  24538   3
592670711500013748790   2024-04-18-10.38.09.570030  24538   4
505756281   1500013748790   2024-01-15-08.05.14.038792  24538   1
593830611500013748790   2024-01-15-08.05.14.038792  24538   2
592670711500013748790   2024-01-15-08.05.14.038792  24538   3
600392811   1762220138659   2024-01-15-08.05.14.038792  24538   4
600392561   1762220138631   2024-01-15-08.05.14.038792  24531   1

Output

Acct _NBR   Pacct_NBR
600392811   1762220138659
505756281   1762220138659
593830611762220138659
592670711762220138659
505756281   1500013748790
593830611500013748790
592670711500013748790
600392811   1500013748790
600392561   1762220138631

Data size
Acct _NBR 10 bytes
Pacct_NBR 15 bytes
LAST_CHANGE_TS 20 bytes
CROSS_REF_NBR  5 bytes
SEQ_NBR 2 bytes

Could someone please let me know how we can build this data using dfsort ?

Regards
Ron T

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

Re: DFSORT newline

[Paul Gilmartin]

On Sun, 12 May 2024 12:20:09 +, Sri Hari Kolusu wrote:
>...
>As Mike mentioned, Data on z/OS data is governed by the LRECL.  So, there is 
>no newline character. If you are planning to parse out transferred binary 
>data, then depending on where the file originated, you can use the equivalent 
>Hex characters with \X
> 
Thanks.  I'll ask the complementary question:
in ,
I read:
.   The period symbol matches any one character except the terminal newline 
character.

What is the code, hex or decimal, of the character that a period does _not_
match.  This should be identified in Appendix D, Table 109.

I note that "terminal" used here  is ambiguous.  It could mean any of:
o A keyboard/display I/O device supporting multiple character sets
o The last character in a field
o The last character in a record.

This should be clarified.

I understand that as you say the newline character might appear in
binary data.

-- 
Thanks again,
gil

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

Re: DFSORT newline

[Sri Hari Kolusu]

>> So how may the programmer match a newline character?

Paul,

As Mike mentioned, Data on z/OS data is governed by the LRECL.  So, there is no 
newline character. If you are planning to parse out transferred binary data, 
then depending on where the file originated, you can use the equivalent Hex 
characters with \X

Look at example2 here.

https://www.ibm.com/docs/en/zos/2.5.0?topic=expressions-regular-application-examples

Thanks,
Kolusu


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

Re: DFSORT newline

[Seymour J Metz]

There is no NL character in ASCII. EBCDIC has an NL at '15'X. Unicode has NEL:  
 Next Line, U+0085. Also, any of these may imply a new line:

 LF:Line Feed, U+000A
 VT:Vertical Tab, U+000B
 FF:Form Feed, U+000C
 LS:Line Separator, U+2028
 PS:Paragraph Separator, U+2029

Various operating systems use CR, LF or a combination.

--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
עַם יִשְׂרָאֵל חַי
נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר


From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <042bfe9c879d-dmarc-requ...@listserv.ua.edu>
Sent: Saturday, May 11, 2024 9:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: DFSORT newline

in ,
I read:
.   The period symbol matches any one character except the terminal newline 
character.

So how may the programmer match a newline character?
I I read in an apparently related publication,
,
$
The dollar symbol matches the end of the string. (Use \n to match a newline 
character.)

Does "\n" work alike for DFSORT?

What is the code point for the newline character?  It doesn't appear
in Appendix D, Table 109 where it should be because it's mentioned
elsewhere in the Guide.

(I'm guessing it's x'15', but the reader shouldn't need to guess.)

Thanks,
gil

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

Re: DFSORT newline

[Mike Schwab]

https://www.editpadpro.com/tricklinebreak.html

Windows, and DOS before it, uses a pair of CR and LF characters to
terminate lines. UNIX (Including Linux and FreeBSD) uses an LF
character only. OS X also uses a single LF character, but the classic
Mac operating system used a single CR character for line breaks. In
other words: a complete mess.

MVS uses F / V record boundaries to denote newlines.

https://www3.rocketsoftware.com/bluezone/help/v50/en/bz/DISPLAY/IND$FILE/IND$FILE_Technical_Reference.htm

IND$FiLE uses ASCII CRLF to translate.

On Sat, May 11, 2024 at 8:25 PM Paul Gilmartin
<042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:
>
> in 
> ,
> I read:
> .   The period symbol matches any one character except the terminal 
> newline character.
>
> So how may the programmer match a newline character?
> I I read in an apparently related publication,
> ,
> $
> The dollar symbol matches the end of the string. (Use \n to match a 
> newline character.)
>
> Does "\n" work alike for DFSORT?
>
> What is the code point for the newline character?  It doesn't appear
> in Appendix D, Table 109 where it should be because it's mentioned
> elsewhere in the Guide.
>
> (I'm guessing it's x'15', but the reader shouldn't need to guess.)
>
> Thanks,
> gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

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

Re: DFSORT Guide feedback?

[Paul Gilmartin]

On Sat, 4 May 2024 18:52:19 +, Sri Hari Kolusu wrote:
>
>Also,  in the PDF documentation it is divided as chapters and the web 
>documentation does not have that, but it is in the same chapter order as the 
>PDF.   So here is the link to DFSORT Application Programming Guide
>
>https://www.ibm.com/docs/en/zos/3.1.0?topic=guide-abstract-dfsort-application-programming
>
>Now see the left panel which shows the subtopics within this book, and you can 
>see " EBCDIC and ASCII collating sequences" as one of the topics.
> 
Thanks for the technique.  And I see I can use it to explore other products
(I tried UNIX and ISPF), from my favorite starting point:


I hadn't examined the sidebar closely enough.
-- 
gil

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

Re: DFSORT Guide feedback?

[Sri Hari Kolusu]

>> How did you find that?  I tried to no avail with Google keywords:

Gil,

I earlier provided you a link to the same in the other topic.

https://www.mail-archive.com/ibm-main@listserv.ua.edu/msg137624.html


Also,  in the PDF documentation it is divided as chapters and the web 
documentation does not have that, but it is in the same chapter order as the 
PDF.   So here is the link to DFSORT Application Programming Guide

https://www.ibm.com/docs/en/zos/3.1.0?topic=guide-abstract-dfsort-application-programming

Now see the left panel which shows the subtopics within this book, and you can 
see " EBCDIC and ASCII collating sequences" as one of the topics.


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT Guide feedback?

[Paul Gilmartin]

On Sat, 4 May 2024 16:30:52 +, Sri Hari Kolusu wrote:

>>> I surmise that I must do this on a web page containint the relevant topic.  
>>> I was unable to find ap page describing Table 109.  Can someone help me?  
>>> Or must I submit meta-feedback, "Unable to find web page"?
>
>The table 109 you refer is referring to the EBCDIC table listed here. 
>
>https://www.ibm.com/docs/en/zos/3.1.0?topic=sequences-ebcdic
>
Excellent; thanks!

How did you find that?  I tried to no avail with Google keywords:
site:IBM.com dfsort ebcdic collating seauence

And that page has a
Parent topic:
EBCDIC and ASCII collating sequences
but there's no parent-of-parent, so I wouldn't have been able to
start at the root of the volume and work down.

-- 
Thanks again,
gil

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

Re: DFSORT Guide feedback?

[Sri Hari Kolusu]

>> I surmise that I must do this on a web page containint the relevant topic.  
>> I was unable to find ap page describing Table 109.  Can someone help me?  Or 
>> must I submit meta-feedback, "Unable to find web page"?

The table 109 you refer is referring to the EBCDIC table listed here. 

https://www.ibm.com/docs/en/zos/3.1.0?topic=sequences-ebcdic



Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: DFSort Report question

[Sri Hari Kolusu]

>> What I would like to do is change LEGACY/KDFAES to PASSPHRASE if possible.

Lionel,

You just want to change the ON value and not the header.  Assuming you have a 
COPY/SORT step to filter the data, you can change the values there.  I am 
showing for position 21, but you can change to that 616 in the control cards

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN   DD *
A   LEGACY
B   KDFAES
C   NOPHRASE
D   LIONEL
//T1   DD DSN=&,DISP=(,PASS),SPACE=(TRK,(1,0),RLSE)
//REPORT   DD SYSOUT=*
//TOOLIN   DD *
  COPY FROM(IN) TO(T1) USING(CTL1)
  DISPLAY FROM(T1) LIST(REPORT)   -
 HEADER('Rectype')ON(001,01,CH)   -
 HEADER('PassPhrase') ON(021,10,CH)
/*
//CTL1CNTL DD *
  INREC OVERLAY=(021:21,10,CHANGE=(10,C'LEGACY',C'PASSPHRASE',
  C'KDFAES',C'PASSPHRASE'),
  NOMATCH=(21,10))
/*

The output from this is.

RectypePassPhrase
   
A  PASSPHRASE
B  PASSPHRASE
C  NOPHRASE
D  LIONEL


Hope that is what you want.

PS: if you don't have COPY/SORT pass before the DISPLAY , then you can do it 
using traditional reporting features.

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSort Report question

[Lionel B. Dyck]

In this case here is a sample record

HEADER('PassPhrase') ON(616,10,CH)

The ON value found in the input could be "LEGACY", "KDFAES" or "NOPHRASE".

What I would like to do is change LEGACY/KDFAES to PASSPHRASE if possible.

Thanks

Lionel B. Dyck <>< 
Github: https://github.com/lbdyck
System Z Enthusiasts Discord: https://discord.gg/sze

“Worry more about your character than your reputation. Character is what you
are, reputation merely what others think you are.”   - - - John Wooden

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Sri Hari Kolusu
Sent: Monday, April 22, 2024 2:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSort Report question

>> The ON value could be "LEGACY", "KDFAES", "PASSWORD" or "NOPHRASE".

Lionel,

How do you determine which header value need to be used? I am guessing that
it is going to depend on a value in the file. If So we can dynamically
change it.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: DFSort Report question

[Sri Hari Kolusu]

>> The ON value could be "LEGACY", "KDFAES", "PASSWORD" or "NOPHRASE".

Lionel,

How do you determine which header value need to be used? I am guessing that it 
is going to depend on a value in the file. If So we can dynamically change it.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: DFSORT SUBDAYS function

[rpinion865]

You are correct about the record format and length.  Thank you for the control 
statements!




Sent with Proton Mail secure email.

On Tuesday, April 9th, 2024 at 12:12 PM, Sri Hari Kolusu  
wrote:

> > > The date begins in column 1 and is 10 characters long. I know I want to 
> > > use the SUBDAYS function. I am looking at the DFSORT Programmer Guide. 
> > > But I learn best by example.
> 
> 
> Richard,
> 
> Your input date has separators and DFSORT date arithmetic functions works on 
> date without separators. So, we just need to strip off the separators and 
> then apply the SUBDAYS function.
> 
> I assumed your input has RECFM=FB and LRECl=80 and you want to subtract 35 
> days from the input. We first strip off the separators and put that date a 
> temp location (81) and then apply the subdays function on that. Here is a 
> sample.
> 
> 
> //STEP0100 EXEC PGM=SORT
> //SYSOUT DD SYSOUT=*
> //SORTIN DD *
> 2024/04/09 - CURR DATE
> 2024/02/28 - NON LEAP YEAR DATE
> 2024/02/29 - LEAP YEAR DATE
> 2007/02/29 - INVALID DATE
> //SORTOUT DD SYSOUT=*
> //SYSIN DD *
> SORT FIELDS=COPY
> INREC IFOUTLEN=80,
> IFTHEN=(WHEN=INIT,
> OVERLAY=(81:01,10,UFF,M11,LENGTH=8,
> 01:81,8,Y4T,SUBDAYS,+35,TOGREG=(Y4T(/
> /*
> 
> The output from the above is.
> 
> 2024/03/05 - CURR DATE
> 2024/01/24 - NON LEAP YEAR DATE
> 2024/01/25 - LEAP YEAR DATE
> ** - INVALID DATE
> 
> 
> Note that the last record has an invalid date and that subdays function 
> replaced it with asterisks.
> 
> 
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
> 
> 
> 
> --
> 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

Re: DFSORT SUBDAYS function

[Sri Hari Kolusu]

>> The date begins in column 1 and is 10 characters long. I know I want to use 
>> the SUBDAYS function. I am looking at the DFSORT Programmer Guide. But I 
>> learn best by example.

Richard,

Your input date has separators and DFSORT date arithmetic functions works on 
date without separators.  So, we just need to strip off the separators and then 
apply the SUBDAYS function.

I assumed your input has RECFM=FB and LRECl=80 and you want to subtract 35 days 
from the input. We first strip off the separators and put that date a temp 
location (81) and then apply the subdays function on that.  Here is a sample.


//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
2024/04/09 - CURR DATE
2024/02/28 - NON LEAP YEAR DATE
2024/02/29 - LEAP YEAR DATE
2007/02/29 - INVALID DATE
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  SORT FIELDS=COPY
  INREC IFOUTLEN=80,
  IFTHEN=(WHEN=INIT,
 OVERLAY=(81:01,10,UFF,M11,LENGTH=8,
  01:81,8,Y4T,SUBDAYS,+35,TOGREG=(Y4T(/
/*

The output from the above is.

2024/03/05 - CURR DATE
2024/01/24 - NON LEAP YEAR DATE
2024/01/25 - LEAP YEAR DATE
** - INVALID DATE


Note that the last record has an invalid date and that subdays function 
replaced it with asterisks.


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFsort error message

[Lennie Bradshaw]

As for many abend codes, the numbers relate to SVC number.

Open SVC is 19, which is x'13' hence many OPEN issues are 213 or 913 and so on.
EOV SVC is 55, which is x'37', hence many out of space issues are D37, E37 and 
so on.

This informal rule applies to many other SVCs as well.

Lennie Dymoke-Bradshaw
https: //rsclweb.com

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Bob 
T Roller
Sent: 27 March 2024 17:04
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFsort error message

One of the most important things I learned 45 years ago was 37 is always a 
space issue. 13 was an open issue and 14 a close issue.

Sent from [Proton Mail](https://proton.me/mail/home) for iOS

On Tue, Mar 26, 2024 at 1:24 PM, Ron Thomas 
<[0600304cab5d-dmarc-requ...@listserv.ua.edu](mailto:On Tue, Mar 26, 2024 
at 1:24 PM, Ron Thomas < wrote:

> Hi All -
>
> We are getting a sort error on a huge file . Below are the details 
> from log
>
> Parm cards used
> SORT FIELDS=COPY
>
> Error Log details
>
> ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT 
> SELECTED ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION 
> MODULE DEFAULTS ICE088I 0 ITGB9059.STEP02 .SORT , INPUT LRECL = 317, 
> BLKSIZE = 27896, TYPE = ICE093I 0 MAIN STORAGE = 
> (MAX,33554432,33554432) ICE156I 0 MAIN STORAGE ABOVE 16MB = 
> (33497072,33497072) ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 
> ,SPANINC=RC16,VLSCMP=N,SZERO=Y, ICE128I 0 OPTIONS: 
> SIZE=33554432,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
> ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL 
> ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
> ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 
> ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT= ICE131I 0 OPTIONS: 
> TMAXLIM=33554432,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW
> ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE 
> ,EXITC ICE133I 0 OPTIONS: HIPRMAX=0 
> ,DSPSIZE=2000,ODMAXBF=2097152,SOLRF=N,VLLONG=N
> ICE235I 0 OPTIONS: NULLOUT=RC0
> ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=2000 
> ,EXPOLD=MAX ,E ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN ICE889I 0 
> CT=MAX , SB=3, L=0, D=, CCW=1MAM ICE902I 0 O I PP11 ICE906I 1 
> ST=ABOVE,SR=33497072,RC=0 ICE907I 1 
> ST=ABOVE,SA=33497056,NF=1,LF=33497056,SF=33497056
> ICE906I 1 ST=BELOW,SR=98320,RC=0
> ICE907I 1 ST=BELOW,SA=49152,NF=1,LF=49152,SF=49152
> ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 
> 2119680 ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 
> 16M = 2119680 ICE855I 0 SORTOUT : TX=N, R=J, L=J, B=D, BL=0, BR=0, 
> DCT=37, VS=N, RU=X, SB=8 ICE210I 0 SORTOUT : EXCP USED, LRECL = 317, 
> BLKSIZE = 27896, TYPE = FB ICE751I 2 EF-I80638 CB-NONE F0-NONE 
> DA-I76950 ICE185A 0 AN SE37 ABEND WAS ISSUED BY DFSORT, ANOTHER 
> PROGRAM OR AN EXIT (PHASE
>
> Job Step work file details . Allocated SORTWK50 files
>
> XXSORTWK09 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK10 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK11 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK12 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK13 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK14 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK15 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK16 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK17 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK18 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK19 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
>
> //SORTOUT DD DSN=KGN01.PS.RPCFIL.AMT.ACTV.UNLD.FINAL1.HDR,
> // SPACE=(CYL,(1200,500),RLSE),VOL=(,,,99),
> // RECFM=FB,DSORG=PS,
> // DISP=(NEW,CATLG,DELETE),LRECL=317,BLKSIZE=0
> //SYSIN DD DSN=MK.PS.PROD.PARMLIB(PSJH06P),DISP=SHR
>
> Could someone please let us know what needs to be done here?
>
> Regards
> Ron T
>
> --
> For IBM-MAIN subscribe / signoff / archive acces

Re: DFsort error message

[Bob T Roller]

One of the most important things I learned 45 years ago was 37 is always a 
space issue. 13 was an open issue and 14 a close issue.

Sent from [Proton Mail](https://proton.me/mail/home) for iOS

On Tue, Mar 26, 2024 at 1:24 PM, Ron Thomas 
<[0600304cab5d-dmarc-requ...@listserv.ua.edu](mailto:On Tue, Mar 26, 2024 
at 1:24 PM, Ron Thomas < wrote:

> Hi All -
>
> We are getting a sort error on a huge file . Below are the details from log
>
> Parm cards used
> SORT FIELDS=COPY
>
> Error Log details
>
> ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT 
> SELECTED
> ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
> ICE088I 0 ITGB9059.STEP02 .SORT , INPUT LRECL = 317, BLKSIZE = 27896, TYPE =
> ICE093I 0 MAIN STORAGE = (MAX,33554432,33554432)
> ICE156I 0 MAIN STORAGE ABOVE 16MB = (33497072,33497072)
> ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 
> ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
> ICE128I 0 OPTIONS: 
> SIZE=33554432,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
> ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL 
> ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
> ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 
> ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=
> ICE131I 0 OPTIONS: 
> TMAXLIM=33554432,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW
> ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITC
> ICE133I 0 OPTIONS: HIPRMAX=0 ,DSPSIZE=2000,ODMAXBF=2097152,SOLRF=N,VLLONG=N
> ICE235I 0 OPTIONS: NULLOUT=RC0
> ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=2000 ,EXPOLD=MAX ,E
> ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
> ICE889I 0 CT=MAX , SB=3, L=0, D=, CCW=1MAM
> ICE902I 0 O I PP11
> ICE906I 1 ST=ABOVE,SR=33497072,RC=0
> ICE907I 1 ST=ABOVE,SA=33497056,NF=1,LF=33497056,SF=33497056
> ICE906I 1 ST=BELOW,SR=98320,RC=0
> ICE907I 1 ST=BELOW,SA=49152,NF=1,LF=49152,SF=49152
> ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2119680
> ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2119680
> ICE855I 0 SORTOUT : TX=N, R=J, L=J, B=D, BL=0, BR=0, DCT=37, VS=N, RU=X, SB=8
> ICE210I 0 SORTOUT : EXCP USED, LRECL = 317, BLKSIZE = 27896, TYPE = FB
> ICE751I 2 EF-I80638 CB-NONE F0-NONE DA-I76950
> ICE185A 0 AN SE37 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT 
> (PHASE
>
> Job Step work file details . Allocated SORTWK50 files
>
> XXSORTWK09 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK10 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK11 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK12 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK13 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK14 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK15 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK16 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK17 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK18 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
> XXSORTWK19 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
> IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
>
> //SORTOUT DD DSN=KGN01.PS.RPCFIL.AMT.ACTV.UNLD.FINAL1.HDR,
> // SPACE=(CYL,(1200,500),RLSE),VOL=(,,,99),
> // RECFM=FB,DSORG=PS,
> // DISP=(NEW,CATLG,DELETE),LRECL=317,BLKSIZE=0
> //SYSIN DD DSN=MK.PS.PROD.PARMLIB(PSJH06P),DISP=SHR
>
> Could someone please let us know what needs to be done here?
>
> Regards
> Ron T
>
> --
> 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

Re: DFsort error message

[Lizette Koehler]

This webpage simplifies Sx37 abend 

https://ruifeio.com/2013/10/02/most-common-out-of-space-abends-and-error-codes/

E37-04  No more volumes specified
E37-08  No space available on new volume
E37-0C  DADSM (Direct Access Device Space Management) exit rejected extend


Lizette

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
Hari Kolusu
Sent: Tuesday, March 26, 2024 11:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFsort error message

>> Is this a standalone sort or one from a cobol program or db2 process?

Lizette,

It is a JCL invoked SORT.

Clue : ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFsort error message

[Sri Hari Kolusu]

>> Is this a standalone sort or one from a cobol program or db2 process?

Lizette,

It is a JCL invoked SORT.

Clue : ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFsort error message

[Lizette Koehler]

Sort received an SE37:  ICE185A 0 AN SE37  ABEND WAS ISSUED BY DFSORT, ANOTHER 
PROGRAM OR AN EXIT (PHASE

So the dataset was probably allocated on a volume without sufficient space to 
expand or ran out of extents

Is this a standalone sort or one from a cobol program or db2 process? 


Regards

Lizette


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Ron 
Thomas
Sent: Tuesday, March 26, 2024 10:24 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: DFsort error message

Hi All -

We are getting a sort error on a huge file . Below are the details from log 


Parm cards used 
SORT FIELDS=COPY


Error Log details 


ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
ICE088I 0 ITGB9059.STEP02  .SORT, INPUT LRECL = 317, BLKSIZE = 27896, TYPE =
ICE093I 0 MAIN STORAGE = (MAX,33554432,33554432)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (33497072,33497072)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=33554432,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=
ICE131I 0 OPTIONS: TMAXLIM=33554432,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE,EXITC
ICE133I 0 OPTIONS: HIPRMAX=0  ,DSPSIZE=2000,ODMAXBF=2097152,SOLRF=N,VLLONG=N
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=2000   ,EXPOLD=MAX,E
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
ICE889I 0 CT=MAX , SB=3, L=0, D=, CCW=1MAM
ICE902I 0 O   I PP11
ICE906I 1 ST=ABOVE,SR=33497072,RC=0
ICE907I 1 ST=ABOVE,SA=33497056,NF=1,LF=33497056,SF=33497056
ICE906I 1 ST=BELOW,SR=98320,RC=0
ICE907I 1 ST=BELOW,SA=49152,NF=1,LF=49152,SF=49152
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2119680
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2119680
ICE855I 0 SORTOUT  : TX=N, R=J, L=J, B=D, BL=0, BR=0, DCT=37, VS=N, RU=X, SB=8
ICE210I 0 SORTOUT  : EXCP USED, LRECL = 317, BLKSIZE = 27896, TYPE = FB
ICE751I 2 EF-I80638 CB-NONE   F0-NONE   DA-I76950
ICE185A 0 AN SE37  ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE


Job Step work file details . Allocated SORTWK50 files 

XXSORTWK09 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK10 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK11 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK12 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK13 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK14 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK15 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK16 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK17 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK18 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK19 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))


//SORTOUT  DD DSN=KGN01.PS.RPCFIL.AMT.ACTV.UNLD.FINAL1.HDR,
//SPACE=(CYL,(1200,500),RLSE),VOL=(,,,99),
//RECFM=FB,DSORG=PS,
//DISP=(NEW,CATLG,DELETE),LRECL=317,BLKSIZE=0
//SYSINDD DSN=MK.PS.PROD.PARMLIB(PSJH06P),DISP=SHR


Could someone please let us know what needs to be done here?


Regards
Ron T

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

Re: DFsort error message

[Sri Hari Kolusu]

>> ICE185A 0 AN SE37  ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT 
>> (PHASE

Ron,

Most likely your job abended due to lack of space on SORTOUT dataset.  Check 
the JESMSGLG for a detailed explanation of the E37 abend also the dataset name. 
 Fix the space on the dataset by adding more units or compressing/stripping.


>> Parm cards used
SORT FIELDS=COPY

If you are using COPY operation, you do NOT need sortwkxx datasets at all. 
Delete all the SORTWKxx allocations.


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFsort error message

[Steely.Mark]

The issue is with the E37 - I don't see the error code but if is an 8 this is 
the possible reason:

A multi-volume physical sequential data set was being written on a direct
access device. All space was filled on the volume, and an attempt was made
to obtain space on the next specified volume. Either the space was not
available on that volume, the data set already existed on that volume, or
there is no space available in the VTOC or the VTOC index. The message
contains the volume serial number of the last volume used.

Thank You 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Ron 
Thomas
Sent: Tuesday, March 26, 2024 12:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: DFsort error message



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

Hi All -

We are getting a sort error on a huge file . Below are the details from log


Parm cards used
SORT FIELDS=COPY


Error Log details


ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED 
ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
ICE088I 0 ITGB9059.STEP02  .SORT, INPUT LRECL = 317, BLKSIZE = 27896, TYPE =
ICE093I 0 MAIN STORAGE = (MAX,33554432,33554432) ICE156I 0 MAIN STORAGE ABOVE 
16MB = (33497072,33497072) ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 
,SPANINC=RC16,VLSCMP=N,SZERO=Y, ICE128I 0 OPTIONS: 
SIZE=33554432,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 
,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT= ICE131I 0 OPTIONS: 
TMAXLIM=33554432,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE,EXITC
ICE133I 0 OPTIONS: HIPRMAX=0  ,DSPSIZE=2000,ODMAXBF=2097152,SOLRF=N,VLLONG=N
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=2000   ,EXPOLD=MAX,E
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
ICE889I 0 CT=MAX , SB=3, L=0, D=, CCW=1MAM
ICE902I 0 O   I PP11
ICE906I 1 ST=ABOVE,SR=33497072,RC=0
ICE907I 1 ST=ABOVE,SA=33497056,NF=1,LF=33497056,SF=33497056
ICE906I 1 ST=BELOW,SR=98320,RC=0
ICE907I 1 ST=BELOW,SA=49152,NF=1,LF=49152,SF=49152
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2119680 
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2119680 
ICE855I 0 SORTOUT  : TX=N, R=J, L=J, B=D, BL=0, BR=0, DCT=37, VS=N, RU=X, SB=8 
ICE210I 0 SORTOUT  : EXCP USED, LRECL = 317, BLKSIZE = 27896, TYPE = FB
ICE751I 2 EF-I80638 CB-NONE   F0-NONE   DA-I76950
ICE185A 0 AN SE37  ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE


Job Step work file details . Allocated SORTWK50 files

XXSORTWK09 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK10 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK11 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK12 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK13 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK14 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK15 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK16 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK17 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK18 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK19 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))


//SORTOUT  DD DSN=KGN01.PS.RPCFIL.AMT.ACTV.UNLD.FINAL1.HDR,
//SPACE=(CYL,(1200,500),RLSE),VOL=(,,,99),
//RECFM=FB,DSORG=PS,
//DISP=(NEW,CATLG,DELETE),LRECL=317,BLKSIZE=0
//SYSINDD DSN=MK.PS.PROD.PARMLIB(PSJH06P),DISP=SHR


Could someone please let us know what needs to be done here?


Regards
Ron T

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

Re: DFSORT and IPL Date

[Jack Zukt]

Hi Kolusu,
Beautiful, elegant and delivers the intended result.
Many thanks
Best wishes
Jack


On Wed, 20 Mar 2024 at 16:59, Sri Hari Kolusu  wrote:

> >> What I am trying to achieve is simple. I want to select, using DCOLLECT
> TYPE D records, files that have been created after the last IPL and ten
> days before today:
>
> Jack,
>
> As I showed you earlier , you can use the SDSF REXX interface and get the
> IPLINFO and we can parse to create a symbol with that.
>
> So please add the following
>
> //  SET DCOLSYM=Your.dcollect.symbols.pdsname
> //  SET DCOLINP=Your.dcollect.output
>
> Change the SYSTSPRT dd in step SDSFREXX to the following.
>
> //SYSTSPRT DD DSN=&,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE),
> //RECFM=FB,LRECL=133,DSORG=PS
>
>
> The IPLDATE on my test systems have the format MM/DD/CCYY.  I am
> converting the IPLDATE to Julian format as a SYMBOL so that you can compare
> it with create date on type D record. You concatenate this newly created
> symbol dataset to your existing symbols.
>
> Note : If your date format is different then we need a slight change in
> the control cards for extracting and converting the date.
>
>
> //**
> //* Extract the IPL date and convert it to Julian format   *
> //* so that we can use it for comparing it against the *
> //* dataset create date which has the CCYYDDDF format  *
> //**
> //EIPLDATE EXEC PGM=SORT,COND=(0,LT)
> //SYSOUT   DD SYSOUT=*
> //SORTIN   DD DISP=(OLD,DELETE),DSN=&
> //SORTOUT  DD DSN=&,DISP=(,PASS),SPACE=(TRK,(1,0))
> //SYSINDD *
>   OPTION COPY,NULLOUT=RC4,STOPAFT=1
>
>   INCLUDE COND=(45,12,SS,EQ,C'SYSTEM IPLED')
>
>   INREC PARSE=(%01=(STARTAFT=C'ON ',ENDBEFR=C' ',FIXLEN=10))
> BUILD=(%01)
>
>   OUTREC OVERLAY=(15:01,10,UFF,M11,LENGTH=8,
>   25:15,08,Y4W,TOJUL=Y4T)
>
>   OUTFIL BUILD=(C'IPLDATE,',25,07,80:X)
> /*
> //**
> //* Extract the Type D DCOLLECT records that are created   *
> //* 10 days prior to current date and greater than or equal*
> //* the IPL date.  *
> //**
> //GETTYPD  EXEC PGM=SORT,COND=(0,LT)
> //SYSOUT   DD SYSOUT=*
> //SYMNOUT  DD SYSOUT=*
> //SYMNAMES DD DISP=SHR,DSN=(HEADER)
> // DD DISP=SHR,DSN=(TYPED)
> // DD DISP=(OLD,DELETE),DSN=&
> //SORTIN   DD DISP=SHR,DSN=
> //SORTOUT  DD SYSOUT=*
> //SYSINDD *
>   OPTION COPY
>   INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,AND,  * Type = Data type
> DCDCREDT,LT,DATE3P-10,AND, * Created < curr date - 10
> DCDCREDT,GE,IPLDATE)   * Created >= IPLDATE
> /*
>
>
> Further if you have any questions, please let me know
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
>
>
> --
> 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

Re: DFSORT and IPL Date

[Sri Hari Kolusu]

>> What I am trying to achieve is simple. I want to select, using DCOLLECT TYPE 
>> D records, files that have been created after the last IPL and ten days 
>> before today:

Jack,

As I showed you earlier , you can use the SDSF REXX interface and get the 
IPLINFO and we can parse to create a symbol with that.

So please add the following

//  SET DCOLSYM=Your.dcollect.symbols.pdsname
//  SET DCOLINP=Your.dcollect.output

Change the SYSTSPRT dd in step SDSFREXX to the following.

//SYSTSPRT DD DSN=&,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE),
//RECFM=FB,LRECL=133,DSORG=PS


The IPLDATE on my test systems have the format MM/DD/CCYY.  I am converting the 
IPLDATE to Julian format as a SYMBOL so that you can compare it with create 
date on type D record. You concatenate this newly created symbol dataset to 
your existing symbols.

Note : If your date format is different then we need a slight change in the 
control cards for extracting and converting the date.


//**
//* Extract the IPL date and convert it to Julian format   *
//* so that we can use it for comparing it against the *
//* dataset create date which has the CCYYDDDF format  *
//**
//EIPLDATE EXEC PGM=SORT,COND=(0,LT)
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=(OLD,DELETE),DSN=&
//SORTOUT  DD DSN=&,DISP=(,PASS),SPACE=(TRK,(1,0))
//SYSINDD *
  OPTION COPY,NULLOUT=RC4,STOPAFT=1

  INCLUDE COND=(45,12,SS,EQ,C'SYSTEM IPLED')

  INREC PARSE=(%01=(STARTAFT=C'ON ',ENDBEFR=C' ',FIXLEN=10))
BUILD=(%01)

  OUTREC OVERLAY=(15:01,10,UFF,M11,LENGTH=8,
  25:15,08,Y4W,TOJUL=Y4T)

  OUTFIL BUILD=(C'IPLDATE,',25,07,80:X)
/*
//**
//* Extract the Type D DCOLLECT records that are created   *
//* 10 days prior to current date and greater than or equal*
//* the IPL date.  *
//**
//GETTYPD  EXEC PGM=SORT,COND=(0,LT)
//SYSOUT   DD SYSOUT=*
//SYMNOUT  DD SYSOUT=*
//SYMNAMES DD DISP=SHR,DSN=(HEADER)
// DD DISP=SHR,DSN=(TYPED)
// DD DISP=(OLD,DELETE),DSN=&
//SORTIN   DD DISP=SHR,DSN=
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,AND,  * Type = Data type
DCDCREDT,LT,DATE3P-10,AND, * Created < curr date - 10
DCDCREDT,GE,IPLDATE)   * Created >= IPLDATE
/*


Further if you have any questions, please let me know

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT and IPL Date

[Jack Zukt]

Hi Kolusu,

What I am trying to achieve is simple. I want to select, using DCOLLECT
TYPE D records, files that have been created after the last IPL and ten
days before today:

INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,AND,  * Type = Data type
 DCDCREDT,LT,DATE3P-10,&,   * Created < curr date - 10


Regards
Jack


On Wed, 20 Mar 2024 at 15:36, Sri Hari Kolusu  wrote:

>
> >> Is there a way to make SORT date comparisons referencing the IPL date?
> I have not been able to find anything on the manual.
>
> Jack,
>
> DFSORT does not have direct access to IPL info. It can access system
> symbols but there is no system symbol defined for LAST IPL date (AFAIK).
> So as others have pointed out, you can code a simple rexx and get the date.
> or better yet use SDSF rexx interface to get the information from the
> command /D IPLINFO.
>
> It is easy to parse out the info and the get the date.
>
> Here is a sample of SDSF rexx interface (your IPL info can be found in
> SYSTSPRT dd name in the 2nd step)
>
> //**
> //* SDSF REXX EXEC INTERFACE TO GET IPLINFO*
> //**
> //COPYREXX EXEC PGM=IEBUPDTE,PARM='NEW'
> //SYSPRINT DD SYSOUT=*
> //SYSUT2   DD DSN=&,DISP=(NEW,PASS),
> //UNIT=SYSDA,SPACE=(TRK,(2,2,2)),
> //LRECL=80,RECFM=FB
> //SYSINDD DATA,DLM='$$'
> ./ ADD NAME=IPLINF
> /* REXX */
> LASTRC=ISFCALLS("ON")
> ISFDELAY = 3
> MYCMD.0  = 1
> MYCMD.1  = "D IPLINFO"
> ADDRESS SDSF  "ISFSLASH ("MYCMD.") (WAIT)"
> DO RESPINDEX = 1 TO ISFULOG.0
>   SAY ISFULOG.RESPINDEX
> END
> LASTRC=ISFCALLS("OFF")
> $$
> //*
> //**
> //* EXECUTE THE REXX EXEC TO FIND THE IPL INFORMATION  *
> //**
> //SDSFREXX EXEC PGM=IKJEFT01
> //SYSPROC  DD DSN=&,DISP=(OLD,PASS)
> //SYSTSPRT DD SYSOUT=*
> //ISPPLIB  DD DSN=ISP.SISPPENU,DISP=SHR
> //ISPSLIB  DD DSN=ISP.SISPSENU,DISP=SHR
> //ISPMLIB  DD DSN=ISP.SISPMENU,DISP=SHR
> //ISPTLIB  DD DSN=ISP.SISPTENU,DISP=SHR
> //ISPLOG   DD SYSOUT=*,
> //DCB=(BLKSIZE=129,LRECL=125,RECFM=VA,DSORG=PS)
> //ISPPROF  DD UNIT=SYSDA,SPACE=(TRK,(1,1,1)),
> //DCB=(BLKSIZE=800,LRECL=80,RECFM=FB)
> //SYSTSIN  DD *
>   PROFILE WTPMSG MSGID VARSTORAGE(HIGH)
>   TIME
>   ISPSTART CMD(%IPLINF)
> /*
>
>
> I don’t know the complete requirement, so I haven’t added the steps to
> parse out the information and the processing.  I can show you the
> processing once you explain the requirement.
>
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
>
>
>
> --
> 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

Re: DFSORT and IPL Date

[Scott Barry]

Okay, yes, these more-recent z/OS JCL days that's true - JCL SYMBOLs are now 
directly accessible in SYSIN DD *,SYMBOLS= -- but not indirectly when the 
SYSIN is not instream, so the JP"" method as a PARM= continues to be viable 
to bridge / pass symbolic data and have it be resolved within ICETOOL controls.

My primary interest / intent here is to suggest a "hook" for general-access to 
"any" static information, ideally parsed, and stowed as a JCL INCLUDE member -- 
then it becomes available within JCL or beyond.

Scott Barry
SBBTech LLC

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

Re: DFSORT and IPL Date

[Sri Hari Kolusu]

>> Is there a way to make SORT date comparisons referencing the IPL date? I 
>> have not been able to find anything on the manual.

Jack,

DFSORT does not have direct access to IPL info. It can access system symbols 
but there is no system symbol defined for LAST IPL date (AFAIK).  So as others 
have pointed out, you can code a simple rexx and get the date. or better yet 
use SDSF rexx interface to get the information from the command /D IPLINFO.

It is easy to parse out the info and the get the date.

Here is a sample of SDSF rexx interface (your IPL info can be found in SYSTSPRT 
dd name in the 2nd step)

//**
//* SDSF REXX EXEC INTERFACE TO GET IPLINFO*
//**
//COPYREXX EXEC PGM=IEBUPDTE,PARM='NEW'
//SYSPRINT DD SYSOUT=*
//SYSUT2   DD DSN=&,DISP=(NEW,PASS),
//UNIT=SYSDA,SPACE=(TRK,(2,2,2)),
//LRECL=80,RECFM=FB
//SYSINDD DATA,DLM='$$'
./ ADD NAME=IPLINF
/* REXX */
LASTRC=ISFCALLS("ON")
ISFDELAY = 3
MYCMD.0  = 1
MYCMD.1  = "D IPLINFO"
ADDRESS SDSF  "ISFSLASH ("MYCMD.") (WAIT)"
DO RESPINDEX = 1 TO ISFULOG.0
  SAY ISFULOG.RESPINDEX
END
LASTRC=ISFCALLS("OFF")
$$
//*
//**
//* EXECUTE THE REXX EXEC TO FIND THE IPL INFORMATION  *
//**
//SDSFREXX EXEC PGM=IKJEFT01
//SYSPROC  DD DSN=&,DISP=(OLD,PASS)
//SYSTSPRT DD SYSOUT=*
//ISPPLIB  DD DSN=ISP.SISPPENU,DISP=SHR
//ISPSLIB  DD DSN=ISP.SISPSENU,DISP=SHR
//ISPMLIB  DD DSN=ISP.SISPMENU,DISP=SHR
//ISPTLIB  DD DSN=ISP.SISPTENU,DISP=SHR
//ISPLOG   DD SYSOUT=*,
//DCB=(BLKSIZE=129,LRECL=125,RECFM=VA,DSORG=PS)
//ISPPROF  DD UNIT=SYSDA,SPACE=(TRK,(1,1,1)),
//DCB=(BLKSIZE=800,LRECL=80,RECFM=FB)
//SYSTSIN  DD *
  PROFILE WTPMSG MSGID VARSTORAGE(HIGH)
  TIME
  ISPSTART CMD(%IPLINF)
/*


I don’t know the complete requirement, so I haven’t added the steps to parse 
out the information and the processing.  I can show you the processing once you 
explain the requirement.


Thanks,
Kolusu
DFSORT Development
IBM Corporation




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

Re: DFSORT and IPL Date

[Jack Zukt]

The use of a JP variable is an interesting possibility. It does not solve
the problem but it will provide an interim solution that can be easily
maintained.
Thank you
Regards
Jack


On Wed, 20 Mar 2024 at 14:42, Scott Barry  wrote:

> One option is to harvest the /D IPLINFO information at IPL-time (maybe
> using an automated-SUBMIT batch-job DFSORT / ICETOOL, or SAS, or REXX,
> etc.), parse and set a site-specific SYMBOL - then you can use it in one of
> various methods in a batch DFSORT job via an expected JCL INCLUDE
> MEMBER=.  Do consider challenges with symbol
> naming-conventions since the IPL-date/time would be LPAR-specific of course.
>
> Personally I exploit the DFSORT feature (thanks for listening Frank
> Yaeger, back in 2008 !!) where the PARM= can detect external JCL SET
> symbols via the JP"&" and then use the operand JPn within the
> DFSORT SYSIN control statements.
>
> Scott Barry
> SBBTech LLC
>
> IBM.COM DFSORT Doc link:
> https://www.ibm.com/docs/en/zos/2.5.0?topic=statements-using-jpn-parameters-in-exec-parm-icetool
>
> --
> 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

Re: DFSORT and IPL Date

[Scott Barry]

One option is to harvest the /D IPLINFO information at IPL-time (maybe using an 
automated-SUBMIT batch-job DFSORT / ICETOOL, or SAS, or REXX, etc.), parse and 
set a site-specific SYMBOL - then you can use it in one of various methods in a 
batch DFSORT job via an expected JCL INCLUDE MEMBER=.  Do 
consider challenges with symbol naming-conventions since the IPL-date/time 
would be LPAR-specific of course.

Personally I exploit the DFSORT feature (thanks for listening Frank Yaeger, 
back in 2008 !!) where the PARM= can detect external JCL SET symbols via the 
JP"&" and then use the operand JPn within the DFSORT SYSIN control 
statements.

Scott Barry
SBBTech LLC

IBM.COM DFSORT Doc link: 
https://www.ibm.com/docs/en/zos/2.5.0?topic=statements-using-jpn-parameters-in-exec-parm-icetool

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

Re: DFSORT and IPL Date

[Massimo Biancucci]

Jack,

AFAIK SORT tools have no such capability.
As Scott suggested you need to write yourself something or, only for
instance, if you installed Mark Zelden IPLINFO tool you can invoke it and
extract the information from its output.

Regards
Max

Il giorno mer 20 mar 2024 alle ore 14:41 Jack Zukt <
059cd493dd41-dmarc-requ...@listserv.ua.edu> ha scritto:

> Hi Scott,
> Thank you for the suggestion.
> I am trying to build the JCL using only DFSORT capabilities. I was just
> wondering if maybe that particular capability would be available, as DFSORT
> as a wide range of date processing. An may be that if not yet, it would
> become available in the near future
> Regards
> Jack
>
>
> On Wed, 20 Mar 2024 at 13:27, Scott Barry  wrote:
>
> > Possibly a REXX process to capture/parse the output of a z/OS command /D
> > IPLINFO.
> >
> > Scott Barry
> > SBBTech LLC
> >
> > --
> > 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

Re: DFSORT and IPL Date

[Jack Zukt]

Hi Scott,
Thank you for the suggestion.
I am trying to build the JCL using only DFSORT capabilities. I was just
wondering if maybe that particular capability would be available, as DFSORT
as a wide range of date processing. An may be that if not yet, it would
become available in the near future
Regards
Jack


On Wed, 20 Mar 2024 at 13:27, Scott Barry  wrote:

> Possibly a REXX process to capture/parse the output of a z/OS command /D
> IPLINFO.
>
> Scott Barry
> SBBTech LLC
>
> --
> 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

Re: DFSORT and IPL Date

[Scott Barry]

Possibly a REXX process to capture/parse the output of a z/OS command /D 
IPLINFO.

Scott Barry
SBBTech LLC

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

Re: DFSORT JOINKEYS problem

[Sri h Kolusu]

>> I am really interested in your job that generates the DFSORT symbols for all 
>> IRRADU00 & IRRDBU00 record types Regards Jack

Jack,

I have sent an offline email with the PDS that contains the JCL in XMIT format 
to your personal id (gmail).

Thanks,
Kolusu

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

Re: DFSORT JOINKEYS problem

[Jack Zukt]

Hi Massimo & Kolusu,

Thank you both for your answers.
As Massimo noticed, the first SKIP was wrong. There is no space between the
RDW and the record subtype; there are only spaces between columns. My bad.
Kolusu, thank you for the improved JCL. And I will take you on your offer.
I am really interested in your job that generates the DFSORT symbols for
all IRRADU00 & IRRDBU00 record types
Regards
Jack


On Thu, 15 Feb 2024 at 16:23, Sri h Kolusu  wrote:

> Jack,
>
> Since I don't have the joblog, I cannot verify that the input files are VB
> or FB as your symbols xtyp and xusr are looking at positions 1 and 6 which
> would be incorrect for VB files.
>
> Either way here is a modified/optimized version which would give you the
> desired results (You don't evenhave to filter the type records before as
> the job below reads the output of IRRDBU00 directly)
>
> PS: I have a job that generates the DFSORT symbols for all IRRADU00 &
> IRRDBU00 record types.  Let me know if you are interested.
>
> //SET#HLQS SET HLQS=
> //*
> //SORT001  EXEC PGM=SORT
> //SYSOUT   DD  SYSOUT=*
> //SYMNAMES DD  *
> TYPE0200_RDW,1,4,BI
> USBD_RECORD_TYPE,*,4,CH
> DLM,*,1,CH
> USBD_NAME,*,8,CH
> USBD_PROGRAMMER,79,20,CH
> USBD_DEFGRP_ID,100,8,CH
> USBD_LASTJOB_DATE,118,10,CH
> TYPE0220_RDW,1,4,BI
> USTSO_RECORD_TYPE,*,4,CH
> SKIP,1
> USTSO_NAME,*,8,CH
> /*
> //IN1  DD DISP=SHR,DSN=
> //IN2  DD DISP=SHR,DSN=
> //SORTOUT  DD SYSOUT=*
> //SYSINDD *
>   OPTION COPY
>   JOINKEYS F1=IN1,FIELDS=(USTSO_NAME,A),SORTED,NOSEQCK
>   JOINKEYS F2=IN2,FIELDS=(USBD_NAME,A),SORTED,NOSEQCK
>
>   REFORMAT FIELDS=(F1:USBD_NAME,
>   DLM,
>   USBD_PROGRAMMER,
>   DLM,
>   USBD_LASTJOB_DATE,
>   DLM,
>   USBD_DEFGRP_ID)
> /*
> //JNF1CNTL DD *
>   INCLUDE COND=(USBD_RECORD_TYPE,EQ,C'0200')
> /*
> //JNF2CNTL DD *
>   INCLUDE COND=(USTSO_RECORD_TYPE,EQ,C'0220')
> /*
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
>
>
> --
> 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

Re: DFSORT JOINKEYS problem

[Sri h Kolusu]

Jack,

Since I don't have the joblog, I cannot verify that the input files are VB or 
FB as your symbols xtyp and xusr are looking at positions 1 and 6 which would 
be incorrect for VB files.

Either way here is a modified/optimized version which would give you the 
desired results (You don't evenhave to filter the type records before as the 
job below reads the output of IRRDBU00 directly)

PS: I have a job that generates the DFSORT symbols for all IRRADU00 & IRRDBU00 
record types.  Let me know if you are interested.

//SET#HLQS SET HLQS=
//*
//SORT001  EXEC PGM=SORT
//SYSOUT   DD  SYSOUT=*
//SYMNAMES DD  *
TYPE0200_RDW,1,4,BI
USBD_RECORD_TYPE,*,4,CH
DLM,*,1,CH
USBD_NAME,*,8,CH
USBD_PROGRAMMER,79,20,CH
USBD_DEFGRP_ID,100,8,CH
USBD_LASTJOB_DATE,118,10,CH
TYPE0220_RDW,1,4,BI
USTSO_RECORD_TYPE,*,4,CH
SKIP,1
USTSO_NAME,*,8,CH
/*
//IN1  DD DISP=SHR,DSN=
//IN2  DD DISP=SHR,DSN=
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  JOINKEYS F1=IN1,FIELDS=(USTSO_NAME,A),SORTED,NOSEQCK
  JOINKEYS F2=IN2,FIELDS=(USBD_NAME,A),SORTED,NOSEQCK

  REFORMAT FIELDS=(F1:USBD_NAME,
  DLM,
  USBD_PROGRAMMER,
  DLM,
  USBD_LASTJOB_DATE,
  DLM,
  USBD_DEFGRP_ID)
/*
//JNF1CNTL DD *
  INCLUDE COND=(USBD_RECORD_TYPE,EQ,C'0200')
/*
//JNF2CNTL DD *
  INCLUDE COND=(USTSO_RECORD_TYPE,EQ,C'0220')
/*

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT JOINKEYS problem

[Massimo Biancucci]

Jack,

I don't know the exact format of the two files.
Did you check (I mean by eyes) the field position are ok ?
Is the first SKIP correct ?

Best regard.
Max


Il giorno gio 15 feb 2024 alle ore 16:35 Jack Zukt <
059cd493dd41-dmarc-requ...@listserv.ua.edu> ha scritto:

> Hi all,
>
> I have two files created using IRRDBU00. One has type 220 records, TSO
> segments, the other one has type 200 records, base userid information.
> For the userids on the 220 type records, I want to get from the 200 type
> records the userid, user name; last logon date; default group left four
> characters.
> Unfortunately all that I am getting is an empty file.
> This is the JCL that I am using:
>
> //*
> //SET#HLQ  SET HLQ=
> //SET#HLQS SET HLQS=
> //*
> //APAGA01  EXEC PGM=IEFBR14
> //SORTOUT  DD  DSN=#01701.TXT,
> // DISP=(MOD,DELETE),SPACE=(TRK,(1))
> //*
> //SORT001  EXEC PGM=SORT
> //SYSOUT   DD  SYSOUT=*
> //SYMNAMES DD  *
> XRDW,1,04,ZD
> SKIP,1
> XTYP,1,04,ZD
> SKIP,1
> XUSR,*,08,CH
> NAME,75,20,CH
> SKIP,1
> GRP4,*,04,CH
> SKIP,1
> LDAT,114,10,CH
> *
> /*
> //IN1  DD  DISP=SHR,DSN=
> //IN2  DD  DISP=SHR,DSN=
> //OUT01DD  DSN=#01701.TXT,
> // DISP=(NEW,CATLG),
> // RECFM=FB,LRECL=45,
> // SPACE=(TRK,(15,15),RLSE)
> //SYSINDD  *
>   OPTION COPY
>   JOINKEYS F1=IN1,FIELDS=(XUSR,A),SORTED,NOSEQCK
>   JOINKEYS F2=IN2,FIELDS=(XUSR,A),SORTED,NOSEQCK
>   REFORMAT FIELDS=(F2:5,140)
>   OUTFIL FNAMES=OUT01,
>  BUILD=(1:XUSR,* 08
>   X,   * 01
>   NAME,* 20
>   X,   * 01
>   LDAT,* 10
>   X,   * 01
>   GRP4)* 04
> /*
> //*
>
> What is it that I am doing wrong?
> 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

Re: Dfsort Overlay error

[Ron Thomas]

Thanks a lot Kolusu.  Sorry i didn't  articulate what is documented in the user 
guide   in the right way . Anyway thanks again for all the help ..

Regards
Ron T

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

Re: Dfsort Overlay error

[Sri h Kolusu]

>> Here is what i am getting . Could you please let me what changes to be made ?

Ron,

Sigh ! Not sure as to how you invent your own syntax hope and that it would 
work.  You switched back to using 10 bytes despite me showing that the max 
length is only 8 bytes? and you coded 10 bytes without a format and converting 
it to TOGREG?

If you looked at the $ it is right underneath the First TOGREG function.

OVERLAY=(35:25,10,TOGREG=Y4T(-),ADDDAYS,+120,TOGREG=Y4T(-)))
  $

I guess you are so used to getting complete solutions that you don’t even 
bother to read and understand.

Either way here is something that meets your high expectations.

//SYSINDD *
  OPTION COPY
  OUTREC IFOUTLEN=44,
  IFTHEN=(WHEN=(35,10,CH,EQ,X'',AND,
25,10,CH,GT,X''),
   OVERLAY=(45:25,10,UFF,M11,LENGTH=8,
35:45,8,Y4T,ADDDAYS,+120,TOGREG=Y4T(-)))
/*

Thanks,
Kolusu



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

Re: Dfsort Overlay error

[Ron Thomas]

Hi Kolusu -

Here is what i am getting . Could you please let me what changes to be made ?

ICE000I 1 - CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R4  - 13:36 ON FRI AU
   OPTION COPY
   OUTREC IFTHEN=(WHEN=(35,10,CH,EQ,X'',
AND,25,10,CH,GT,X''),
   OVERLAY=(35:25,10,TOGREG=Y4T(-),ADDDAYS,+120,TOGREG=Y4T(-)))
 $
ICE007A E SYNTAX ERROR
ICE751I 0 C5-I79518 C6-I90068 C7-I76949 C8-I75151 E7-I76949
ICE052I 3 END OF DFSORT

Thanks 
Ron T

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

Re: Dfsort Overlay error

[Sri h Kolusu]

>> Could you please help me figure out where the issue is ?

Ron,

Here are the issues assuming that you read thru documentation that I shared 
earlier.

•   The Syntax of ADDDAYS shows that it requires TOGREG or TOJUL.
•   Look at table 18, you would notice that max length of Y4T is 8 bytes. 
But you are using 10 bytes.

Is there a reason that you are NOT showing the error messages you got from the 
control cards you used? The DFSORT error messages will let you know the reason 
for the failure.


Thanks,
Kolusu


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

Re: Dfsort Overlay error

[Ron Thomas]

Thanks Kolusu for sharing the link . still i am not able to figure out the same 
.

Modified as below and still not working 

OPTION COPY
OUTREC IFTHEN=(WHEN=(35,10,CH,EQ,X'',
   AND,25,10,CH,GT,X''),
OVERLAY=(35:25,10,Y4T,ADDDAYS,+120))

Could you please help me figure out where the issue is ?

Regards
Ron T

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

Re: Dfsort Overlay error

[Sri h Kolusu]

>> could someone please let me know what the issue is in the control card as it 
>> is giving error .

Ron,

Looks like you invented your syntax , which is NOT valid with DFSORT.  Search 
for "Adding or Subtracting Days" in the below link and you will see the right 
syntax. Pay attention to Table.18 which describes the formats you can use for 
date arithmetic.

https://www.ibm.com/docs/en/zos/2.4.0?topic=statements-outfil-control


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT - adding up on a field

[Jack Zukt]

Thank you very much Kolusu.

That did the trick
Best wishes
Jack

On Thu, 13 Jul 2023 at 17:40, Sri h Kolusu  wrote:

> Jack,
>
> If your intention is to count the number of Storage group and DASD Model,
> then you can init with a counter of 1 and then sum it up.
>
> Here are the updated control cards.  I added a new symbol  TMP-STGCNTR and
> initialized it with 1 using INREC and then sum that field.
>
>
> // DD *
> TMP-DCVVLCAP,*,8,BI
> TMP-DCVVLCAP1,=,4,BI
> TMP-DCVVLCAP2,*,4,BI
> TMP-DCVALLOC,*,8,BI
> TMP-DCVALLOC1,=,4,BI
> TMP-DCVALLOC2,*,4,BI
> TMP-STGCNTR,*,2,BI
> /*
> //SYSINDD  *
>   OPTION VLSHRT,VLSCMP,DYNALLOC=(,4)
>   INCLUDE COND=(DCURCTYP,EQ,DCUVULUT)
> *
>   INREC OVERLAY=(TMP-DCVVLCAP:8Z,
>  TMP-DCVVLCAP2:DCVVLCAP,  * DASD CAPACITY
>  TMP-DCVALLOC:8Z,
>  TMP-DCVALLOC2:DCVALLOC,
>  TMP-STGCNTR:+1,BI,LENGTH=2)
> *
>   SORT FIELDS=(DCVSGTCL,A,DCVVLCAP,D)   * SORT BY SRGRP NAME
> *
>   SUM FIELDS=(TMP-DCVVLCAP,* SUM DASD CAPACITY
>   TMP-DCVALLOC,* SUM DASD ALLOCATED SPACE
>   TMP-STGCNTR) * SUM DASD MODEL COUNT
> *
>   OUTFIL FNAMES=SORT01,
>  BUILD=(1,4,
>DCVSGTCL,
>CHANGE=(30,C'',C'NON SMS'),
>NOMATCH=(DCVSGTCL),
>X,
>SEQNUM,4,ZD,START=1,INCR=1,RESTART=(DCVSGTCL),
>X,
>TMP-STGCNTR,M10,LENGTH=5,
>X,
>DCVVLCAP,
>CHANGE=(7,X'000E18B9',C'3390-01',
>  X'002A4A2C',C'3390-03',
>  X'007EDE85',C'3390-09',
>  X'019EEB0F',C'3390-27',
>  X'033DD61F',C'3390-54'),
>NOMATCH=(C'NMODEL'),
>X,
>TMP-DCVVLCAP,EDIT=(III.III.III.IIT),
>X,
>TMP-DCVALLOC,EDIT=(III.III.III.IIT))
> /*
>
>
> --
> 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

Re: DFSORT - adding up on a field

[Sri h Kolusu]

Jack,

If your intention is to count the number of Storage group and DASD Model, then 
you can init with a counter of 1 and then sum it up.

Here are the updated control cards.  I added a new symbol  TMP-STGCNTR and 
initialized it with 1 using INREC and then sum that field.


// DD *
TMP-DCVVLCAP,*,8,BI
TMP-DCVVLCAP1,=,4,BI
TMP-DCVVLCAP2,*,4,BI
TMP-DCVALLOC,*,8,BI
TMP-DCVALLOC1,=,4,BI
TMP-DCVALLOC2,*,4,BI
TMP-STGCNTR,*,2,BI
/*
//SYSINDD  *
  OPTION VLSHRT,VLSCMP,DYNALLOC=(,4)
  INCLUDE COND=(DCURCTYP,EQ,DCUVULUT)
*
  INREC OVERLAY=(TMP-DCVVLCAP:8Z,
 TMP-DCVVLCAP2:DCVVLCAP,  * DASD CAPACITY
 TMP-DCVALLOC:8Z,
 TMP-DCVALLOC2:DCVALLOC,
 TMP-STGCNTR:+1,BI,LENGTH=2)
*
  SORT FIELDS=(DCVSGTCL,A,DCVVLCAP,D)   * SORT BY SRGRP NAME
*
  SUM FIELDS=(TMP-DCVVLCAP,* SUM DASD CAPACITY
  TMP-DCVALLOC,* SUM DASD ALLOCATED SPACE
  TMP-STGCNTR) * SUM DASD MODEL COUNT
*
  OUTFIL FNAMES=SORT01,
 BUILD=(1,4,
   DCVSGTCL,
   CHANGE=(30,C'',C'NON SMS'),
   NOMATCH=(DCVSGTCL),
   X,
   SEQNUM,4,ZD,START=1,INCR=1,RESTART=(DCVSGTCL),
   X,
   TMP-STGCNTR,M10,LENGTH=5,
   X,
   DCVVLCAP,
   CHANGE=(7,X'000E18B9',C'3390-01',
 X'002A4A2C',C'3390-03',
 X'007EDE85',C'3390-09',
 X'019EEB0F',C'3390-27',
 X'033DD61F',C'3390-54'),
   NOMATCH=(C'NMODEL'),
   X,
   TMP-DCVVLCAP,EDIT=(III.III.III.IIT),
   X,
   TMP-DCVALLOC,EDIT=(III.III.III.IIT))
/*


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

Re: DFSORT and date YYYY/MM/DD

[Paul Gilmartin]

On Fri, 14 Apr 2023 17:10:31 +0100, Jack Zukt wrote:
>
>I have file produced by FDREPORT with this format:
>...
>0PRODSN1.ZOS.MLQAAA01.SAAA0001.D230320.T0541  TP0070 PACTD01  2015/07/21
>2025/08/21 57K
> ...


-- 
gil

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

Re: DFSORT and date YYYY/MM/DD

[Jack Zukt]

Hi Kolosu,

So simple, and I was not seeing it.
Thank you very much for you help
Best wishes
JAck

On Fri, 14 Apr 2023 at 17:33, Sri h Kolusu  wrote:

> >> Using this file as input, I need to create one with only the records
> for which the LRDATE are is equal to today's date less one year.
>
> Jake,
>
> Your LRDATE has the separator as Slash "/" but you are using hyphen "-' as
> a separator.  So, you need to change that.  Secondly you are using Less
> than or Equal (LE) as relational operation.  So Current date- 365 would end
> up as 2022/04/14  (assuming the current date is 2023/04/14).   So, any
> record less than that date would be included.  Is that your intention?
>
> Here is the modified include condition and changed the relational
> condition to EQ.
>
>   INCLUDE COND=(KBTYPE,EQ,C'K',AND,
> LRDATE,CH,EQ,DATE1(/)-365)
>
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
>
>
> --
> 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

Re: DFSORT and date YYYY/MM/DD

[Sri h Kolusu]

>> Using this file as input, I need to create one with only the records for 
>> which the LRDATE are is equal to today's date less one year.

Jake,

Your LRDATE has the separator as Slash "/" but you are using hyphen "-' as a 
separator.  So, you need to change that.  Secondly you are using Less than or 
Equal (LE) as relational operation.  So Current date- 365 would end up as 
2022/04/14  (assuming the current date is 2023/04/14).   So, any record less 
than that date would be included.  Is that your intention?

Here is the modified include condition and changed the relational condition to 
EQ.

  INCLUDE COND=(KBTYPE,EQ,C'K',AND,
LRDATE,CH,EQ,DATE1(/)-365)


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT to count and sum subsets of data

[Billy Ashton]

Kolusu, you are great and gracious! Thank you for this - it works as 
expected. I will dress up the file a bit with a good header, date and 
timestamp, and be able to turn it over to my user tomorrow. I greatly 
appreciate the teaching through this, too.


Thank you and best regards,
Billy Ashton


-- Original Message --

From "Sri h Kolusu" 

To IBM-MAIN@listserv.ua.edu
Date 3/28/2023 4:00:27 PM
Subject Re: DFSORT to count and sum subsets of data


 Wow, I did not want this to be so difficult...but given a choice, I would like 
the second approach


Billy,

It isn't that difficult; we just need to adjust the way we are summing the 
results. Since you did not want the department row, we just need to switch to 
using SUM instead of Reporting features.  Since we are using SUM, we need to 
handle the overflow of data, so when summing the 9 byte items, we will pad 3 
zeroes and sum it as 12 byte so that we account for overflow of the summation.

As for the header, generating a symbol by reading the 2nd record is the 
simplest and easiest way.

//**
//* The filename is on the 2nd record of the file. use SORT*
//* to read just that record and generate a symbol of the  *
//* filename.  *
//**
//GETFNAME EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=(OLD,PASS),DSN=&
//SORTOUT  DD DSN=&,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
//SYSINDD *
  OPTION COPY,SKIPREC=1,STOPAFT=1
  OUTREC BUILD=(02,44,JFY=(SHIFT=LEFT,
LEAD=C'FILENAME,C''',
   TRAIL=C,
  LENGTH=80))
/*
//**
//* Generate summary report of "D" records *
//**
//GENREP   EXEC PGM=SORT,COND=(0,LT)
//SYSOUT   DD SYSOUT=*
//SYMNAMES DD DISP=(OLD,DELETE),DSN=&
//SYMNOUT  DD SYSOUT=*
//SORTIN   DD DISP=(OLD,PASS),DSN=&
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  INCLUDE COND=(019,03,FS,EQ,NUM,AND,  # Field is numeric and
022,01,CH,EQ,C'D') # Type = D

  INREC BUILD=(001,03, # Department
   3C'0',  # pad 3 zeros
   102,09,UFF,M11,LENGTH=9,# item qty
   C'0001')# init counter

  SORT FIELDS=(01,03,CH,A) # Department
   SUM FIELDS=(04,12,ZD,   # item
   16,08,ZD)   # count

  OUTFIL REMOVECC,
 BUILD=(C' DEPARTMENT  ',
01,03,
16,08,ZD,M10,LENGTH=8,
C' ARTICLES, TOTAL ITEMS: ',
04,12,ZD,M10,LENGTH=12),
  HEADER1=(FILENAME),
  TRAILER1=('*** TOTAL *** : ',
TOT=(16,08,ZD,M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(04,12,ZD,M10,LENGTH=12))
/*



 but for the sake of learning (if you don't mind), I would welcome the first 
option, also, to make my training more complete!


Just run your existing control cards without any D records and see the output.  
 (You will not have the filename as header, but you will have 1 row for 
department and total row)

Thanks,
 Kolusu
DFSORT Development
IBM Corporation


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

Re: DFSORT to count and sum subsets of data

[Sri h Kolusu]

>> Wow, I did not want this to be so difficult...but given a choice, I would 
>> like the second approach

Billy,

It isn't that difficult; we just need to adjust the way we are summing the 
results. Since you did not want the department row, we just need to switch to 
using SUM instead of Reporting features.  Since we are using SUM, we need to 
handle the overflow of data, so when summing the 9 byte items, we will pad 3 
zeroes and sum it as 12 byte so that we account for overflow of the summation.

As for the header, generating a symbol by reading the 2nd record is the 
simplest and easiest way.

//**
//* The filename is on the 2nd record of the file. use SORT*
//* to read just that record and generate a symbol of the  *
//* filename.  *
//**
//GETFNAME EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=(OLD,PASS),DSN=&
//SORTOUT  DD DSN=&,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
//SYSINDD *
  OPTION COPY,SKIPREC=1,STOPAFT=1
  OUTREC BUILD=(02,44,JFY=(SHIFT=LEFT,
LEAD=C'FILENAME,C''',
   TRAIL=C,
  LENGTH=80))
/*
//**
//* Generate summary report of "D" records *
//**
//GENREP   EXEC PGM=SORT,COND=(0,LT)
//SYSOUT   DD SYSOUT=*
//SYMNAMES DD DISP=(OLD,DELETE),DSN=&
//SYMNOUT  DD SYSOUT=*
//SORTIN   DD DISP=(OLD,PASS),DSN=&
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  INCLUDE COND=(019,03,FS,EQ,NUM,AND,  # Field is numeric and
022,01,CH,EQ,C'D') # Type = D

  INREC BUILD=(001,03, # Department
   3C'0',  # pad 3 zeros
   102,09,UFF,M11,LENGTH=9,# item qty
   C'0001')# init counter

  SORT FIELDS=(01,03,CH,A) # Department
   SUM FIELDS=(04,12,ZD,   # item
   16,08,ZD)   # count

  OUTFIL REMOVECC,
 BUILD=(C' DEPARTMENT  ',
01,03,
16,08,ZD,M10,LENGTH=8,
C' ARTICLES, TOTAL ITEMS: ',
04,12,ZD,M10,LENGTH=12),
  HEADER1=(FILENAME),
  TRAILER1=('*** TOTAL *** : ',
TOT=(16,08,ZD,M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(04,12,ZD,M10,LENGTH=12))
/*


>> but for the sake of learning (if you don't mind), I would welcome the first 
>> option, also, to make my training more complete!

Just run your existing control cards without any D records and see the output.  
 (You will not have the filename as header, but you will have 1 row for 
department and total row)

Thanks,
 Kolusu
DFSORT Development
IBM Corporation


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

Re: DFSORT to count and sum subsets of data

[Billy Ashton]

Wow, I did not want this to be so difficult...but given a choice, I 
would like the second approach, as it is cleaner, but for the sake of 
learning (if you don't mind), I would welcome the first option, also, to 
make my training more complete!


Thank you and best regards,
Billy Ashton


-- Original Message --

From "Sri h Kolusu" 

To IBM-MAIN@listserv.ua.edu
Date 3/28/2023 3:14:21 PM
Subject Re: DFSORT to count and sum subsets of data


 Kolusu, this works well when I have records to work with, but if I have no "D" 
records (sorry for the fat finger earlier...) to count or sum, I would still like to 
produce a summary. There will be no DEPARTMENT rows, but I would like to have the file 
name Header1, and a TOTAL line with the 0 Articles and 0 Items.


Billy,

There are different ways of getting results.  When the input does NOT have a 
"D" record, it will still generate the department row as you are using trailer3 
and it will have ZERO count and ZERO total.

Something like this

PROD.A31XAD.IDARTA00
 DEPARTMENT0 ARTICLES, TOTAL ITEMS:0
*** TOTAL *** :0 ARTICLES, TOTAL ITEMS:0


But if you insist on NOT having the Department record, then we need to do it 
slightly different.

PROD.A31XAD.IDARTA00
*** TOTAL *** :0 ARTICLES, TOTAL ITEMS:0


What is the preferred output ?  the First one or the second one?

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT to count and sum subsets of data

[Sri h Kolusu]

>> Kolusu, this works well when I have records to work with, but if I have no 
>> "D" records (sorry for the fat finger earlier...) to count or sum, I would 
>> still like to produce a summary. There will be no DEPARTMENT rows, but I 
>> would like to have the file name Header1, and a TOTAL line with the 0 
>> Articles and 0 Items.

Billy,

There are different ways of getting results.  When the input does NOT have a 
"D" record, it will still generate the department row as you are using trailer3 
and it will have ZERO count and ZERO total.

Something like this

PROD.A31XAD.IDARTA00
 DEPARTMENT0 ARTICLES, TOTAL ITEMS:0
*** TOTAL *** :0 ARTICLES, TOTAL ITEMS:0


But if you insist on NOT having the Department record, then we need to do it 
slightly different.

PROD.A31XAD.IDARTA00
*** TOTAL *** :0 ARTICLES, TOTAL ITEMS:0


What is the preferred output ?  the First one or the second one?

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT to count and sum subsets of data

[Billy Ashton]

Kolusu, this works well when I have records to work with, but if I have 
no "D" records (sorry for the fat finger earlier...) to count or sum, I 
would still like to produce a summary. There will be no DEPARTMENT rows, 
but I would like to have the file name Header1, and a TOTAL line with 
the 0 Articles and 0 Items.


Is this possible?

Thank you and best regards,
Billy Ashton


-- Original Message --

From "Sri h Kolusu" 

To IBM-MAIN@listserv.ua.edu
Date 3/28/2023 12:09:14 PM
Subject Re: DFSORT to count and sum subsets of data


 Kolusu, this works great, and the end user is happy with the detail.  Now, he 
wants one additional tweak. The top of the file (within the first two rows) has 
this:


Billy,

If your intention is to pick the 2nd or 3rd record, all you need to do is add 
the sequence number to the records and then use that in WHEN=GROUP to push it 
all records.  The numeric validation and D record validation can also be done 
on OUTFIL.

Use the control cards.(This uses the info from the 2nd record)

//SYSINDD *
  INREC IFTHEN=(WHEN=INIT,
 OVERLAY=(134:SEQNUM,8,ZD)),
IFTHEN=(WHEN=GROUP,BEGIN=(134,8,ZD,EQ,2),
PUSH=(143:02,44))

   SORT FIELDS=(01,03,CH,A)

  OUTFIL REMOVECC,NODETAIL,
  INCLUDE=(19,03,FS,EQ,NUM,AND,
   22,01,CH,EQ,C'D'),
  HEADER1=(143,044),
  SECTIONS=(01,03,
  TRAILER3=(' DEPARTMENT  ',
01,03,
COUNT=(M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))),
  TRAILER1=('*** TOTAL *** : ',
COUNT=(M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))
/*

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT to count and sum subsets of data

[Sri h Kolusu]

>> Kolusu, this works great, and the end user is happy with the detail.  Now, 
>> he wants one additional tweak. The top of the file (within the first two 
>> rows) has this:

Billy,

If your intention is to pick the 2nd or 3rd record, all you need to do is add 
the sequence number to the records and then use that in WHEN=GROUP to push it 
all records.  The numeric validation and D record validation can also be done 
on OUTFIL.

Use the control cards.(This uses the info from the 2nd record)

//SYSINDD *
  INREC IFTHEN=(WHEN=INIT,
 OVERLAY=(134:SEQNUM,8,ZD)),
IFTHEN=(WHEN=GROUP,BEGIN=(134,8,ZD,EQ,2),
PUSH=(143:02,44))

   SORT FIELDS=(01,03,CH,A)

  OUTFIL REMOVECC,NODETAIL,
  INCLUDE=(19,03,FS,EQ,NUM,AND,
   22,01,CH,EQ,C'D'),
  HEADER1=(143,044),
  SECTIONS=(01,03,
  TRAILER3=(' DEPARTMENT  ',
01,03,
COUNT=(M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))),
  TRAILER1=('*** TOTAL *** : ',
COUNT=(M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))
/*

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT to count and sum subsets of data

[Billy Ashton]

Kolusu, this works great, and the end user is happy with the detail. 
Now, he wants one additional tweak. The top of the file (within the 
first two rows) has this:


PROD.A31XAD.IDARTA00  ARTICLE LISTING BY 
DEPARTMENT


(This starts in Col 2)   (This 
starts in Col 56)


I managed to include this file name by pushing it onto the unneeded area 
in every row like this:

INREC IFTHEN=(WHEN=GROUP,BEGIN=(56,15,CH,EQ,C'ARTICLE LISTING'),
   PUSH=(30:2,44))

and then I could include it in a Header1 clause. However, if there are 
no "L" records in the file, there is no file name in col 30 to use. Is 
there some other way I can capture this filename from the first or 
second row, and then use it in my OUTFIL Header1 clause even if there 
are no detail records to Count or Tot?


Billy


-- Original Message --

From "Sri h Kolusu" 

To IBM-MAIN@listserv.ua.edu
Date 3/27/2023 12:29:22 PM
Subject Re: DFSORT to count and sum subsets of data


 What I want to do is produce a single line for each Department (cols 1-3), that tells me 
the number of articles (Count of all rows with a numeric value in cols 19-21, and an 
Indicator in col 22 of "D"), and a sum of the Counter (cols 102-110, pic 
9), with a grand total. It will look like this:


Billy,

It is quite simple.  Use the following control cards.

//SYSINDD *
  INCLUDE COND=(22,01,CH,EQ,C'D')

   SORT FIELDS=(01,03,CH,A)

  OUTFIL REMOVECC,NODETAIL,
  SECTIONS=(01,03,
  TRAILER3=(' DEPARTMENT  ',
01,03,
COUNT=(M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))),
  TRAILER1=('*** TOTAL *** : ',
COUNT=(M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))
/*


If you do need to validate the contents of 19-21 for numeric , then you just 
need to use the following control cards.  Just add an IFTHEN statement for 
numeric check.

//SYSINDD *
  INCLUDE COND=(22,01,CH,EQ,C'D')

  INREC IFTHEN=(WHEN=(19,3,FS,EQ,NUM),
   OVERLAY=(130:C'1'))

   SORT FIELDS=(01,03,CH,A)

  OUTFIL REMOVECC,NODETAIL,
  SECTIONS=(01,03,
  TRAILER3=(' DEPARTMENT  ',
01,03,
TOT=(130,01,ZD,M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))),
  TRAILER1=('*** TOTAL *** : ',
TOT=(130,01,ZD,M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))
/*



If you intend to have the spaces trimmed in the output, let me know and I will 
suggest an alternative.


Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: DFSORT to count and sum subsets of data

[Sri h Kolusu]

Billy,

On second thoughts, you don't even need the IFTHEN statement as you can perform 
the numeric check in the INCLUDE cond itself.

//SYSINDD *
  INCLUDE COND=(19,03,FS,EQ,NUM,AND,
22,01,CH,EQ,C'D')

   SORT FIELDS=(01,03,CH,A)

  OUTFIL REMOVECC,NODETAIL,
  SECTIONS=(01,03,
  TRAILER3=(' DEPARTMENT  ',
01,03,
COUNT=(M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))),
  TRAILER1=('*** TOTAL *** : ',
COUNT=(M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))
/*


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT to count and sum subsets of data

[Sri h Kolusu]

>> What I want to do is produce a single line for each Department (cols 1-3), 
>> that tells me the number of articles (Count of all rows with a numeric value 
>> in cols 19-21, and an Indicator in col 22 of "D"), and a sum of the Counter 
>> (cols 102-110, pic 9), with a grand total. It will look like this:

Billy,

It is quite simple.  Use the following control cards.

//SYSINDD *
  INCLUDE COND=(22,01,CH,EQ,C'D')

   SORT FIELDS=(01,03,CH,A)

  OUTFIL REMOVECC,NODETAIL,
  SECTIONS=(01,03,
  TRAILER3=(' DEPARTMENT  ',
01,03,
COUNT=(M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))),
  TRAILER1=('*** TOTAL *** : ',
COUNT=(M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))
/*


If you do need to validate the contents of 19-21 for numeric , then you just 
need to use the following control cards.  Just add an IFTHEN statement for 
numeric check.

//SYSINDD *
  INCLUDE COND=(22,01,CH,EQ,C'D')

  INREC IFTHEN=(WHEN=(19,3,FS,EQ,NUM),
   OVERLAY=(130:C'1'))

   SORT FIELDS=(01,03,CH,A)

  OUTFIL REMOVECC,NODETAIL,
  SECTIONS=(01,03,
  TRAILER3=(' DEPARTMENT  ',
01,03,
TOT=(130,01,ZD,M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))),
  TRAILER1=('*** TOTAL *** : ',
TOT=(130,01,ZD,M10,LENGTH=8),
' ARTICLES, TOTAL ITEMS: ',
TOT=(102,09,UFF,M10,LENGTH=12))
/*



If you intend to have the spaces trimmed in the output, let me know and I will 
suggest an alternative.


Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: DFSORT to count and sum subsets of data

[Martin Packer]

Hint: A count might be achieved by summing the constant X’0001’ inserted 
into qualifying rows. (That is if you don’t want to do it in eg OUTFIL.)

Cheers, Martin

From: IBM Mainframe Discussion List  on behalf of 
Billy Ashton 
Date: Monday, 27 March 2023 at 16:03
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: [EXTERNAL] DFSORT to count and sum subsets of data
Hey everyone - happy Monday!

I am trying to come up with a single SORT step to give me counts and a
sum of a field on subsets of data, and using control breaks. Here is a
sample of my input with lines shortened for the email:

A01DDATE  001D<< Cols 23 to 101 MISCELLANEOUS DATA >>   10
  2
A01DDATE  001W<< Cols 23 to 101 MISCELLANEOUS DATA >>   93
  2
A01MEXTRA 047D<< Cols 23 to 101 MISCELLANEOUS DATA >>3
  2
A01MEXTRA 022P<< Cols 23 to 101 MISCELLANEOUS DATA >>5
  2
A01MEXTRA 019R<< Cols 23 to 101 MISCELLANEOUS DATA >>   35
  2
A02QTRAN  103D<< Cols 23 to 101 MISCELLANEOUS DATA >>  802
  2
A02QTRAN  014R<< Cols 23 to 101 MISCELLANEOUS DATA >>9
  2
A02QTRAN  012T<< Cols 23 to 101 MISCELLANEOUS DATA >>   41
  2
A02QTRAN  083V<< Cols 23 to 101 MISCELLANEOUS DATA >>   12
  2
A02ZHORIZ 023D<< Cols 23 to 101 MISCELLANEOUS DATA >>  456
  2
A02ZHORIZ 011P<< Cols 23 to 101 MISCELLANEOUS DATA >>   81
  2
A02ZVERTICAL  011D<< Cols 23 to 101 MISCELLANEOUS DATA >>  773
  2
A02ZVERTICAL  003M<< Cols 23 to 101 MISCELLANEOUS DATA >>1
  2

This is the layout:
   1 - len  3, Dept
  19 - len  3, numeric
  22 - len  1, Indicator
  23 - len 77, miscellaneous
102 - len  9, Counter
111 - len 19, miscellaneous

What I want to do is produce a single line for each Department (cols
1-3), that tells me the number of articles (Count of all rows with a
numeric value in cols 19-21, and an Indicator in col 22 of "D"), and a
sum of the Counter (cols 102-110, pic 9), with a grand total. It
will look like this:

Department A01:   2 articles, total items:  13  (# =
suppressed zeros)
Department A02: ##3 articles, total items: ###2031
*** TOTAL *** : ##5 articles, total items: ###2044

I can get the count to work through a simple sum, but I can't get the
number of articles to break on the Department code (there could be
1-to-n departments in each file).

Can someone help me with what should be fairly simple here?

Thank you and best regards,
Billy Ashton

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

Unless otherwise stated above:

IBM United Kingdom Limited
Registered in England and Wales with number 741598
Registered office: PO Box 41, North Harbour, Portsmouth, Hants. PO6 3AU

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

Re: DFSORT TRAN=LTOU and LOCALE

[Sri h Kolusu]

>> I assume UNICODE Services did this.  Doesn't DFSORT use UNICODE Services?

Paul,

DFSORT does indeed use UNICODE services, but it ONLY limited for SORTING 
Unicode data and NOT for data manipulation (case conversion/ CCSID 
conversion..) .  So far, the request for data manipulation for Unicode data was 
very low.  If we think that there is enough demand for it, then we would 
implement it. 

>>Does DFSORT sort Polish keys correctly according to national conventions?

YES. You can use LOCALE or Unicode(UTF8, UTF16 or UTF32) formats which uses 
COLLKEY setting.

 
Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: DFSORT TRAN=LTOU and LOCALE

[Sri h Kolusu]

>> I just wanted to fold text fields to uppercase. It works as it should, with 
>> the exception for national characters.

Radoslaw,

TRAN=LTOU  Translates lowercase EBCDIC letters(that is, a-z) to uppercase 
EBCDIC letters (that is, A - Z). Other characters are not changed.   Here is 
the documentation of it (Search for LTOU on this page)

https://www.ibm.com/docs/en/zos/2.4.0?topic=statements-outfil-control

or this one

https://www.ibm.com/docs/en/zos/2.4.0?topic=fields-translating-uppercase-lowercase-ebcdic-ascii-more


≫ I used LOCALE=PL_pl in DFSPARM DD, but it is accepted by SORT, but not 
TRAN=LTOU.

LOCALE will be applied for SORTING the data and not for TRAN.   Since you are 
SORTING on the first 20 bytes, LOCALE will be applied for it and if you have 
Polish national characters in there , they will be sorted according to the 
PL_pl collating sequence.


I quickly looked up polish characters in google and out of the 32 alphabets, 
the ones you need to convert would be the letters with diacritics: the acute 
accent (kreska; ⟨ć, ń, ó, ś, ź⟩); the overdot (kropka; ⟨ż⟩); the tail or ogonek 
(⟨ą, ę⟩); and the stroke (⟨ł⟩). ⟨q⟩, ⟨v⟩, and ⟨x⟩.
So, you can add a FINDREP for only those characters.

OUTREC BUILD=(1,80,TRAN=LTOU)
OUTFIL FINDREP=(…


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT TRAN=LTOU and LOCALE

[Paul Gilmartin]

On Feb 12, 2023, at 06:21:36, Radoslaw Skorupka wrote:
> 
> I just wanted to fold text fields to uppercase
> Example:
> SORT FIELDS=(1,20,CH,A)
> OUTREC BUILD=(1,80,TRAN=LTOU)
> 
> It works as it should, with the exception for national characters.
> Examples:
> johh bravo -> JOHN BRAVO
> łukasz  świątek -? łUKASZ śWIąTEK
> 
> I used LOCALE=PL_pl in DFSPARM DD, but it is accepted by SORT, but not 
> TRAN=LTOU.
> 
I copied this from my inbox where it appeared with
Content-Language: en-GB
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
to two different desktop editors, vim and BBEdit.  Changing case in each of 
them gave:
ŁUKASZ  ŚWIĄTEK   

I assume UNICODE Services did this.  Doesn't DFSORT use UNICODE Services?

What CCSID is implied by LOCALE=PL_pl?

Does DFSORT sort Polish keys correctly according to national conventions?

How does ISPF Edit CAPS ON handle this?  (Both SBCS and UTF-8?)

Submit an SR.  z/OS should get its head out of the 20th Century.

-- 
gil

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

Re: DFSORT OUTREC conditional formatting

[Radoslaw Skorupka]

W dniu 25.01.2023 o 23:35, Sri h Kolusu pisze:

Depending on the field 23,2 we have word ALTER/READ in the report.

However the field contain other values, let's say X'1101' which should be 
translated to C'CHANGE'... but this record type implies slightly different 
format. For X'1101' I should use
HEADER('DESC3') ON(175,8,CH) -   note, 188->175 and
HEADER('DESC4') ON(189,8,CH)- that fiel can be empty for X'', X'0001', 
X'0002'


Radoslaw,

It is quite simple as CHANGE has more capability. You can pick and choose the 
values based on the value.  So, use the following control cards.  Note :  I 
left the include condition of RDW check as is. You can change it if you want to 
accommodate the additional description.

//TOOLIN   DD *
   COPY FROM(INPUT) TO(TMP) USING(ABCD)
   DISPLAY FROM(TMP) LIST(REPORT) -
   HEADER('CODE ') ON(001,8,CH)   -
   HEADER('DESC1') ON(009,8,CH)   -
   HEADER('DESC2') ON(017,8,CH)   -
   HEADER('DESC3') ON(025,8,CH)   -
   HEADER('DESC4') ON(033,8,CH)   -
   BLANK
/*
//ABCDCNTL DD *
   INCLUDE COND=(1,2,BI,GE,188)
   OUTFIL VTOF,
  BUILD=(023,2,CHANGE=(8,X'',C'ALTER   ',
 X'0001',C'READ',
 X'0002',C'UPDATE  ',
 X'1101',C'CHANGE  '),
  NOMATCH=(C'ERROR   '),
  101,08,
  109,08,

* If position 23 has x'1101' then pick the contents at 175 *
* for a length of 8 bytes and for all other values pick*
* the contents at 181 for a length of 8 bytes  *

  23,02,CHANGE=(8,X'1101',175,8),
  NOMATCH=(181,8),


* If position 23 has x'1101' then pick the contents at 189 *
* for a length of 8 bytes and for all other values space   *
* it out.  *

  23,02,CHANGE=(8,X'1101',189,8),
  NOMATCH=(C' '))

/*


And the sample report looks like this

CODE   DESC1  DESC2  DESC3  DESC4
            
ALTER  AAA0   BBB0   CCC0
READ   AAA1   BBB1   CCC1
UPDATE AAA2   BBB2   CCC2
CHANGE AAA3   BBB3   DDD3   EEE3
ERROR  AAA4   BBB4   CCC4


Further if you have any questions, please let me know


Sri,
Indeed, now it is simple, after you explained it. Thank you for the 
explanation. I appreciate it.

I like DFSORT, it is really powerful tool!

Regards
--
Radoslaw Skorupka
Lodz, Poland

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

Re: DFSORT OUTREC conditional formatting

[Sri h Kolusu]

>> Depending on the field 23,2 we have word ALTER/READ in the report.
However the field contain other values, let's say X'1101' which should be 
translated to C'CHANGE'... but this record type implies slightly different 
format. For X'1101' I should use
HEADER('DESC3') ON(175,8,CH) -   note, 188->175 and
HEADER('DESC4') ON(189,8,CH)- that fiel can be empty for X'', X'0001', 
X'0002'


Radoslaw,

It is quite simple as CHANGE has more capability. You can pick and choose the 
values based on the value.  So, use the following control cards.  Note :  I 
left the include condition of RDW check as is. You can change it if you want to 
accommodate the additional description.

//TOOLIN   DD *
  COPY FROM(INPUT) TO(TMP) USING(ABCD)
  DISPLAY FROM(TMP) LIST(REPORT) -
  HEADER('CODE ') ON(001,8,CH)   -
  HEADER('DESC1') ON(009,8,CH)   -
  HEADER('DESC2') ON(017,8,CH)   -
  HEADER('DESC3') ON(025,8,CH)   -
  HEADER('DESC4') ON(033,8,CH)   -
  BLANK
/*
//ABCDCNTL DD *
  INCLUDE COND=(1,2,BI,GE,188)
  OUTFIL VTOF,
 BUILD=(023,2,CHANGE=(8,X'',C'ALTER   ',
X'0001',C'READ',
X'0002',C'UPDATE  ',
X'1101',C'CHANGE  '),
 NOMATCH=(C'ERROR   '),
 101,08,
 109,08,

* If position 23 has x'1101' then pick the contents at 175 *
* for a length of 8 bytes and for all other values pick*
* the contents at 181 for a length of 8 bytes  *

 23,02,CHANGE=(8,X'1101',175,8),
 NOMATCH=(181,8),


* If position 23 has x'1101' then pick the contents at 189 *
* for a length of 8 bytes and for all other values space   *
* it out.  *

 23,02,CHANGE=(8,X'1101',189,8),
 NOMATCH=(C' '))

/*


And the sample report looks like this

CODE   DESC1  DESC2  DESC3  DESC4
            
ALTER  AAA0   BBB0   CCC0
READ   AAA1   BBB1   CCC1
UPDATE AAA2   BBB2   CCC2
CHANGE AAA3   BBB3   DDD3   EEE3
ERROR  AAA4   BBB4   CCC4


Further if you have any questions, please let me know

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT OUTREC conditional formatting

[Radoslaw Skorupka]

W dniu 24.01.2023 o 22:52, Sri h Kolusu pisze:

The following scenario:  Input file VB. At offset 23 (RDW included) 2-byte 
field Other relevant fields are 101,8  109,8  181,8 No sort needed.

Radoslaw,

Use the following control cards which will give you the desired results. I 
optimized the job a bit to include records that have a minimum length of 188 
which is the last position of the field you are interested.

//TOOLIN   DD *
   COPY FROM(INPUT) TO(TMP) USING(ABCD)
   DISPLAY FROM(TMP) LIST(REPORT) -
   HEADER('CODE ') ON(001,8,CH)   -
   HEADER('DESC1') ON(009,8,CH)   -
   HEADER('DESC2') ON(017,8,CH)   -
   HEADER('DESC3') ON(025,8,CH)   -
   BLANK
/*
//ABCDCNTL DD *
   INCLUDE COND=(1,2,BI,GE,188)
   OUTFIL VTOF,
  BUILD=(023,2,CHANGE=(8,X'',C'ALTER   ',
 X'0001',C'READ',
 X'0002',C'UPDATE  '),
  NOMATCH=(C'ERROR   '),
  101,08,
  109,08,
  181,08)
/*



Thank you Sri.
Nice trick with record length (1,2,BI...) I have to remember about it.

I have another problem to solve:
Depending on the field 23,2 we have word ALTER/READ in the report. 
However the field contain other values, let's say X'1101' which should 
be translated to C'CHANGE'... but this record type implies slightly 
different format. For X'1101' I should use

HEADER('DESC3') ON(175,8,CH) -   note, 188->175
and
HEADER('DESC4') ON(189,8,CH)    - that fiel can be empty for X'', 
X'0001', X'0002'


In other words different column taken  to the report, depending on value 
in the field 23,2. Is it possible?
Currently I simply have two separate reports, which is a little bit 
error-prone. Before the above solution there were 4 separate reports, so 
there is some progress. :-)



--
Radoslaw Skorupka
Lodz, Poland

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

Re: DFSORT OUTREC conditional formatting

[Sri h Kolusu]

>> The following scenario:  Input file VB. At offset 23 (RDW included) 2-byte 
>> field Other relevant fields are 101,8  109,8  181,8 No sort needed.

Radoslaw,

Use the following control cards which will give you the desired results. I 
optimized the job a bit to include records that have a minimum length of 188 
which is the last position of the field you are interested.

//TOOLIN   DD *
  COPY FROM(INPUT) TO(TMP) USING(ABCD)
  DISPLAY FROM(TMP) LIST(REPORT) -
  HEADER('CODE ') ON(001,8,CH)   -
  HEADER('DESC1') ON(009,8,CH)   -
  HEADER('DESC2') ON(017,8,CH)   -
  HEADER('DESC3') ON(025,8,CH)   -
  BLANK
/*
//ABCDCNTL DD *
  INCLUDE COND=(1,2,BI,GE,188)
  OUTFIL VTOF,
 BUILD=(023,2,CHANGE=(8,X'',C'ALTER   ',
X'0001',C'READ',
X'0002',C'UPDATE  '),
 NOMATCH=(C'ERROR   '),
 101,08,
 109,08,
 181,08)
/*

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT OUTREC conditional formatting

[Steve Smith]

On Tue, Jan 24, 2023 at 4:08 PM Radoslaw Skorupka <
0471ebeac275-dmarc-requ...@listserv.ua.edu> wrote:

> ...
> I tried the following ABCDCNTL statement:
> RECORD TYPE=V,LENGTH=(,,,50)
> OUTREC FIELDS=(1,22,23,1,CHANGE=(8,
> X'0001',C'READ' ...
> and the above caused ICE111A error.
> However I changed it to the following:
> RECORD TYPE=V,LENGTH=(,,,50)
> OUTREC FIELDS=(1,22,24,1,CHANGE=(8,
> X'01',C'READ' ...
> and now it works. Note, the change X'0001' to X'01' and 1,22,23,1 to
> 1,22,24,1
> It seems I should specify 1,22,23,2 for X'0001' - the last 2 is length
> of change field.
>
Looks like it... did you try it?  Note: it is not what your first example
shows.

sas

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

Re: DFSORT OUTREC conditional formatting

[Radoslaw Skorupka]

Update inline


W dniu 24.01.2023 o 20:39, Radoslaw Skorupka pisze:

The following scenario:
Input file VB.
At offset 23 (RDW included) 2-byte field
Other relevant fields are 101,8  109,8  181,8
No sort needed.

ICETOOL TOOLIN:
COPY FROM(INPUT) TO(TMP) USING(ABCD)
DISPLAY FROM(TMP) LIST(REPORT) -
HEADER('desc1') ON(101,8,CH) -
HEADER('desc2') ON(109,8,CH) -
HEADER('desc3') ON(181,8,CH) -
BLANK

//ABCDCNTL DD *
 OPTION COPY,VLSHRT

Now the problem:
I want to add new column to the report.  The value depend on 23,2 
field content:

field  text in report
X''  -> C'ALTER   '
X'0001' -> C'READ    '
X'0002' -> C'UPDATE  '
any other -> C'ERROR   '

I tried with OUTREC FIELD=(... CHANGE=(...)) with no effect (excluding 
various error codes).

Or maybe I should not change ABCDCNTL, rather modify TOOLIN instead?


I tried the following ABCDCNTL statement:
RECORD TYPE=V,LENGTH=(,,,50)
OUTREC FIELDS=(1,22,23,1,CHANGE=(8,
X'0001',C'READ    ' ...
and the above caused ICE111A error.
However I changed it to the following:
RECORD TYPE=V,LENGTH=(,,,50)
OUTREC FIELDS=(1,22,24,1,CHANGE=(8,
X'01',C'READ    ' ...
and now it works. Note, the change X'0001' to X'01' and 1,22,23,1 to 
1,22,24,1
It seems I should specify 1,22,23,2 for X'0001' - the last 2 is length 
of change field.



--
Radoslaw Skorupka
Lodz, Poland

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

Re: DFSORT APAR

[kekronbekron]

Thank you very much Sri!

What had happened to it?

I really miss the old TechDocs site.
With that, I could have at least went back all the way to the first page, and 
scrape APAR name, title, and URLs.

Something like this 
(https://public.dhe.ibm.com/s390/newfunctionapars/mvsstore.zosnewfu.html) is 
very much needed for TechDocs.

- KB

--- Original Message ---
On Monday, January 23rd, 2023 at 8:18 PM, Sri h Kolusu  
wrote:


> KB,
> 
> As promised, we have restored the info apar and it is available here
> 
> https://www.ibm.com/support/pages/apar/II13495
> 
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
> 
> -Original Message-
> From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf Of Sri 
> h Kolusu
> 
> Sent: Saturday, January 21, 2023 7:13 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [EXTERNAL] Re: DFSORT APAR
> 
> KB,
> 
> It is weekend over here; we will check with our web support and get it back 
> restored on Monday.
> 
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
> 
> -Original Message-
> From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf Of 
> kekronbekron
> 
> Sent: Friday, January 20, 2023 11:20 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [EXTERNAL] DFSORT APAR
> 
> Hello,
> 
> Does anyone have a copy of this?
> 
> APAR II13495 - HOW DFSORT TAKES ADVANTAGE OF 64-BIT REAL ARCHITECTURE
> 
> I don't know what IBM has against TechDocs and treating their technical 
> employees' work with respect, to not properly organize & archive it.
> 
> - KB
> 
> --
> 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

Re: DFSORT APAR

[Sri h Kolusu]

KB,

As promised, we have restored the info apar and it is available here

https://www.ibm.com/support/pages/apar/II13495 

Thanks,
 Kolusu
DFSORT Development
IBM Corporation

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
h Kolusu
Sent: Saturday, January 21, 2023 7:13 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: DFSORT APAR

KB,

It is weekend over here; we will check with our web support and get it back 
restored on Monday.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
kekronbekron
Sent: Friday, January 20, 2023 11:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] DFSORT APAR

Hello,

Does anyone have a copy of this?

APAR II13495 - HOW DFSORT TAKES ADVANTAGE OF 64-BIT REAL ARCHITECTURE

I don't know what IBM has against TechDocs and treating their technical 
employees' work with respect, to not properly organize & archive it.

- KB

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

Re: DFSORT APAR

[Sri h Kolusu]

≫ This what you were looking for?? 
II14047: USE OF DFSORT BY DB2 
UTILITIES (ibm.com)

Michael,

No.  Kekronbekron is looking for another info apar which is listed at the end 
of the first paragraph of the linked apar you sent. " For considerations in a 
64-bit environment, refer to DFSORT INFO APAR II13495."  Is what OP is looking 
for.

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT APAR

[Michael Oujesky]

This what you were looking for??
II14047: USE OF 
DFSORT BY DB2 UTILITIES (ibm.com)


At 12:19 AM 1/21/2023, kekronbekron wrote:

Content-Transfer-Encoding: base64Hello,

Does anyone have a copy of this?

APAR II13495 - HOW DFSORT TAKES ADVANTAGE OF 64-BIT REAL ARCHITECTURE

I don't know what IBM has against TechDocs and treating their 
technical employees' work with respect, to not properly organize & archive it.


- KB

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

Re: DFSORT APAR

[Sri h Kolusu]

KB,

It is weekend over here; we will check with our web support and get it back 
restored on Monday.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
kekronbekron
Sent: Friday, January 20, 2023 11:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] DFSORT APAR

Hello,

Does anyone have a copy of this?

APAR II13495 - HOW DFSORT TAKES ADVANTAGE OF 64-BIT REAL ARCHITECTURE

I don't know what IBM has against TechDocs and treating their technical 
employees' work with respect, to not properly organize & archive it.

- KB

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