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:
<https://www.ibm.com/docs/en/zos/3.1.0?topic=documentation-pdf-files-zos-310-library>

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

DFSORT Guide feedback?

[Paul Gilmartin]

I wabt to provide feedback on:
DFSORT Application Programming Guide SC23-6878-60
Table 109 EBCDIC ...

In that publication I read:
How to provide feedback to IBM
We welcome any feedback that you have, including comments on
 the clarity, accuracy, or completeness of the information.
 For more information, see How to send feedback to IBM.

Which hyperlinks to a page where I read:
IBM Documentation provides a “Was this
topic helpful?” prompt at the top of each page.

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

-- 
Thanks,
gil

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

DFSort Report question - SYMNAMES DD ?

[Nash, Jonathan S.]

Can you set up a constant in the 
SYMNAMES DD to do that ? 

Or is that for different functions ?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Lionel B. Dyck
Sent: Monday, April 22, 2024 2:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: DFSort Report question

Does anyone know who to change the value found in the ON to a more
meaningful value:

For example this:  HEADER('PassPhrase') ON(616,10,CH)

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

Thanks in advance

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

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

DFSort Report question

[Lionel B. Dyck]

Does anyone know who to change the value found in the ON to a more
meaningful value:

For example this:  HEADER('PassPhrase') ON(616,10,CH)

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

Thanks in advance

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

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

Re: Regular Expressions: DFSORT, ISPF: "$","^"

[Paul Gilmartin]

On Sun, 21 Apr 2024 04:03:48 +, Sri Hari Kolusu wrote:
>...
>I know you are detail-attentive, so I would add it to the next pub refresh, 
>but it only goes into 3.1 (may be V2R5 but not sure).
>
>^
>The caret symbol matches the beginning the string.
>
>$
>The dollar symbol matches the end of the string.
>
Thanks.  That's better.  But rather than replicating the regex specification
foe each UNIX Command  and each utility, with errors propagating and
needing redundant corrections, it would be better if each had hyperlinks
to a single, thorough IBM specification comparable to the Open Group's

9. Regular Expressions

But, Conway's Law  ...

(In vain hope, I perused Appendix C of the Unix Command Ref.  SA23-2280-60
only to find two nearly identical copies of a woefully inadequate 
specification.)

-- 
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: Regular Expressions: DFSORT, ISPF: "$","^"

[Sri Hari Kolusu]

Paul,

DFSORT does indeed support "^" and "&" for the begin and end.

https://www.ibm.com/docs/en/zos/2.4.0?topic=statement-regular-expressions

If scroll down a bit in the above link, we do the examples.

^ibm
Matches records beginning with "ibm"
ibm$
Matches records ending with "ibm"
^ibm$
Matches records with exactly "ibm"

I know you are detail-attentive, so I would add it to the next pub refresh, but 
it only goes into 3.1 (may be V2R5 but not sure).

^
The caret symbol matches the beginning the string.

$
The dollar symbol matches the end of the string.




Would that work?

Thanks,
Kolusu
DFSORT Development
IBM Corporation

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Saturday, April 20, 2024 7:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Regular Expressions: DFSORT, ISPF: "$","^"

The description of regular expressions for DFSORT:
<https://www.ibm.com/docs/en/zos/3.1.0?topic=statement-regular-expressions>
mentions "$" to match the end of a string, but not "^" to match the beginning.

The description of regular expressions for ISPF:
<https://www.ibm.com/docs/en/zos/3.1.0?topic=string-regular-expressions-string1>
mentions neither "^" nor "$".

Are these omissions intentional?

--
gil

--
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 with the message: INFO IBM-MAIN

Re: Regular Expressions: DFSORT, ISPF: "$","^"

[Paul Gilmartin]

On Sat, 20 Apr 2024 19:41:49 +, Farley, Peter wrote:

>For the ISPF case, I think the document writers think that they have covered 
>everything about the accepted regular expression syntax by stating up front on 
>that page:
>
>“ISPF uses the IBM® C regcomp() — Compile regular expression and regexec() — 
>Execute compiled regular expression functions to compile and execute a regular 
>expression . . .”
> 
If the list of syntactic rules is incomplete, they should be clearly
characterized as examples.

Also: 
A regular expression in a FIND, CHANGE, or EXCLUDE command allows
you to search for a string matching a basic or extended regular expression.

"basic or extended" -- it fails to indicate how the user can indicate whether
a basic or extended regular expression is intended.

>From:  Paul Gilmartin
>Sent: Saturday, April 20, 2024 10:47 AM
>
>Are these omissions intentional?

-- 
gil

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

Re: Regular Expressions: DFSORT, ISPF: "$","^"

[Farley, Peter]

For the ISPF case, I think the document writers think that they have covered 
everything about the accepted regular expression syntax by stating up front on 
that page:

“ISPF uses the IBM® C regcomp() — Compile regular expression and regexec() — 
Execute compiled regular expression functions to compile and execute a regular 
expression . . .”

We will have to wait for Sri Kolusu to answer for the DFSORT case.

Peter

From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Saturday, April 20, 2024 10:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Regular Expressions: DFSORT, ISPF: "$","^"


The description of regular expressions for DFSORT:

<https://urldefense.com/v3/__https://www.ibm.com/docs/en/zos/3.1.0?topic=statement-regular-expressions__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!ISjCqr_3erWLCvri7EDUGaDALI5JZbBrCn-8xtm7byCaYpcu4YuqmgB5e79Zne4jTdkWsnfOsOiP9tpZPlNCZywa8UhWH-zyKo8savVm$<https://urldefense.com/v3/__https:/www.ibm.com/docs/en/zos/3.1.0?topic=statement-regular-expressions__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!ISjCqr_3erWLCvri7EDUGaDALI5JZbBrCn-8xtm7byCaYpcu4YuqmgB5e79Zne4jTdkWsnfOsOiP9tpZPlNCZywa8UhWH-zyKo8savVm$>>

mentions "$" to match the end of a string, but not "^" to match the beginning.



The description of regular expressions for ISPF:

<https://urldefense.com/v3/__https://www.ibm.com/docs/en/zos/3.1.0?topic=string-regular-expressions-string1__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!ISjCqr_3erWLCvri7EDUGaDALI5JZbBrCn-8xtm7byCaYpcu4YuqmgB5e79Zne4jTdkWsnfOsOiP9tpZPlNCZywa8UhWH-zyKl30sRdu$<https://urldefense.com/v3/__https:/www.ibm.com/docs/en/zos/3.1.0?topic=string-regular-expressions-string1__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!ISjCqr_3erWLCvri7EDUGaDALI5JZbBrCn-8xtm7byCaYpcu4YuqmgB5e79Zne4jTdkWsnfOsOiP9tpZPlNCZywa8UhWH-zyKl30sRdu$>>

mentions neither "^" nor "$".



Are these omissions intentional?



--

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

Regular Expressions: DFSORT, ISPF: "$","^"

[Paul Gilmartin]

The description of regular expressions for DFSORT:
<https://www.ibm.com/docs/en/zos/3.1.0?topic=statement-regular-expressions>
mentions "$" to match the end of a string, but not "^" to match the beginning.

The description of regular expressions for ISPF:
<https://www.ibm.com/docs/en/zos/3.1.0?topic=string-regular-expressions-string1>
mentions neither "^" nor "$".

Are these omissions intentional?

-- 
gil

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

DFSORT SUBDAYS function

[rpinion865]

I have the following field in a dataset, that I want to subtract days from, 
leaving the date in the original format.
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.

2024/04/09

Sent with [Proton Mail](https://proton.me/) secure email.

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

DFsort error message

[Ron Thomas]

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

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

DFSORT and IPL Date

[Jack Zukt]

Hi,

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

Regards
Jack

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

Re: Line comments in DFSORT

[Cameron Conacher]

Yes indeed.
I like to use the asterisk in column one to comment the spirit of what I am 
attempting to do.
I use the short inline right sided comments to offer brief parm descriptions.

Thanks

…….Cameron

From: IBM Mainframe Discussion List  On Behalf Of Sri 
Hari Kolusu
Sent: Friday, March 8, 2024 10:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Line comments in DFSORT

>> And, using the example provided, we are able to add a comment to the first 
>> two lines but not the last line, since it does not have a hyphen? Cameron, 
>> That is true. But if you want you can add as many comment lines you want 
>> using *


>> And, using the example provided, we are able to add a comment to the first 
>> two lines but not the last line, since it does not have a hyphen?



Cameron,



That is true. But if you want you can add as many comment lines you want using 
* in column 1.



//TOOLIN   DD *

* Enter ICETOOL operators here

* My comment line - 1

* My comment line - 2

* My comment line - 3

* My comment line - 4



  COPY FROM(INPUTA) TO(OUTA)



/*





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: Line comments in DFSORT

[Sri Hari Kolusu]

>> And, using the example provided, we are able to add a comment to the first 
>> two lines but not the last line, since it does not have a hyphen?

Cameron,

That is true. But if you want you can add as many comment lines you want using 
* in column 1.

//TOOLIN   DD *
* Enter ICETOOL operators here
* My comment line - 1
* My comment line - 2
* My comment line - 3
* My comment line - 4

  COPY FROM(INPUTA) TO(OUTA)

/*


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: Line comments in DFSORT

[Sri Hari Kolusu]

>> Which shows me that line comments are a byproduct of the ICETOOL 
>> continuation logic, and not a core feature. From your earlier example, I 
>> thought that the # character had some significance, but now I see that it 
>> does not.

Bob,

Just a clarification here.  TOOLIN is the ONLY DD where you cannot have 
REMARKS.  You can code the remarks after the continuation mark.

And the REMARKS as you say line comments you have coded are simply ignored 
after the end of the key word like how TOOLIN dd ignores the content after the 
hyphen. 


>>None of the examples in the doc show line comments being used.

Agreed that finding information in the manuals is tedious but not sure why you 
keep saying stuff like this , when there is an example. Check the examples in 
this link.

https://www.ibm.com/docs/en/zos/2.5.0?topic=rules-continuation-lines 


Most of the examples in our publications do not use line as we have a detailed 
explanation below of the what the example shown is doing.  Look at the example 
link given below

>> I use the traditional "* in column 1" comment to show "Here is what is 
>> coming up in the next several lines of code", usually with a blank line in 
>> front, so that the eye can scan to each block of statements quickly.

This is allowed even in TOOLIN and the examples of ICETOOL does show that.

https://www.ibm.com/docs/en/zos/2.5.0?topic=streams-icetool-example

>> I use line comments to explain the gory details of the code immediately to 
>> the left of it.

The gory details you talk about are usually in  SYSIN for SORT and XXXCNTL for 
ICETOOL.  Both of them allow the REMARKS the line comments.  

>> While teaching, we seek to have a stream of "Aha, I get what it is doing!" 
>> moments. Line comments help us to explain those gory details that lead to 
>> the "Light Bulb" moment.

TOOLIN statements are mostly english like language statements and the gory 
details are in SYSIN and XXXCNTL and both of them allow the Remarks.

You can follow the assembler approach for TOOLIN.

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: Line comments in DFSORT

[Cameron Conacher]

Hello,
And, using the example provided, we are able to add a comment to the first two 
lines but not the last line, since it does not have a hyphen?


Thanks

…….Cameron

From: IBM Mainframe Discussion List  On Behalf Of Bob 
Stark
Sent: Friday, March 8, 2024 8:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Line comments in DFSORT

I found this in the ICETOOL doc: | Continuation can be indicated by a hyphen 
(-) after the operator or after any operand. The next operand must then be 
specified on the next line. For example: | SORT FROM(INDD) - | USING(ABCD) - | 
TO(OUTPUT1,OUTPUT2,OUTPUT3)


I found this in the ICETOOL doc:



| Continuation can be indicated by a hyphen (-) after the operator or after any 
operand. The next operand must then be specified on the next line. For example:

| SORT FROM(INDD) -

|USING(ABCD) -

|TO(OUTPUT1,OUTPUT2,OUTPUT3)

|

| Any characters specified after the hyphen are ignored.



Which shows me that line comments are a byproduct of the ICETOOL continuation 
logic, and not a core feature. From your earlier example, I thought that the # 
character had some significance, but now I see that it does not.



None of the examples in the doc show line comments being used.



I use the traditional "* in column 1" comment to show "Here is what is coming 
up in the next several lines of code", usually with a blank line in front, so 
that the eye can scan to each block of statements quickly.



I use line comments to explain the gory details of the code immediately to the 
left of it.



This is the style I learned as an Assembler programmer, and it carries forward 
to my work in many other languages.



DFSORT and ICETOOL code can be very complex, and is daunting for a new student, 
looking at it for the first time.



While teaching, we seek to have a stream of "Aha, I get what it is doing!" 
moments. Line comments help us to explain those gory details that lead to the 
"Light Bulb" moment.



The best thing about the DFSORT documentation is that there are numerous 
examples of different scenarios, with the code to handle that scenario. Other 
IBM products would do well to follow this approach.



Regards,

Bob Stark



--

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: Line comments in DFSORT

[Bob Stark]

I found this in the ICETOOL doc:

| Continuation can be indicated by a hyphen (-) after the operator or after any 
operand. The next operand must then be specified on the next line. For example:
| SORT FROM(INDD) -
|USING(ABCD) -
|TO(OUTPUT1,OUTPUT2,OUTPUT3)
|
| Any characters specified after the hyphen are ignored.

Which shows me that line comments are a byproduct of the ICETOOL continuation 
logic, and not a core feature. From your earlier example, I thought that the # 
character had some significance, but now I see that it does not.

None of the examples in the doc show line comments being used.

I use the traditional "* in column 1" comment to show "Here is what is coming 
up in the next several lines of code", usually with a blank line in front, so 
that the eye can scan to each block of statements quickly.

I use line comments to explain the gory details of the code immediately to the 
left of it.

This is the style I learned as an Assembler programmer, and it carries forward 
to my work in many other languages.

DFSORT and ICETOOL code can be very complex, and is daunting for a new student, 
looking at it for the first time. 

While teaching, we seek to have a stream of "Aha, I get what it is doing!" 
moments. Line comments help us to explain those gory details that lead to the 
"Light Bulb" moment.

The best thing about the DFSORT documentation is that there are numerous 
examples of different scenarios, with the code to handle that scenario. Other 
IBM products would do well to follow this approach.

Regards,
Bob Stark

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

Re: Line comments in DFSORT

[Sri Hari Kolusu]

>> It's unusual, having to add an un-necessary line split just to add a 
>> comment. I was expecting it to work more like IDCAMS, TSO or JCL.

What is stopping you from doing coding like this?

//TOOLIN   DD *
* Enter ICETOOL operators here *

* COPY INPUTA TO OUTA
  COPY  FROM(INPUTA) TO(OUTA)

* COPY INPUT1 TO OUTB
  COPY  FROM(INPUT1) TO(OUTB) USING(ALAS)

* COPY INPUTX TO OUTC
  SORT  FROM(INPUTX) TO(OUTC) USING(ALAK)
/*


>> I searched for every # in the the DFSORT Application Programming Guide to 
>> verify that ICETOOL line comments are not documented.

Not sure where you looked but it is documented here

ICETOOL can be called directly or from a program. ICETOOL allows operator 
statements (and comments) to be supplied in a data set or in a parameter list 
passed by a calling program.

https://www.ibm.com/docs/en/zos/2.5.0?topic=overview-icetooldfsort-relationship


>> I was expecting it to work more like IDCAMS, TSO or JCL.

/*  comment is valid for JCL but not valid for IDCAMS SYSIN as it would signal 
the end of input.

Ie
//SYSINDD *
  LISTCAT ENT('HLQ.MLQ.TLQ') ALL
/* COMMENT-1 */
 LISTCAT ENT('A.B.C') ALL
/*

The second listcat command would NOT execute

So you have to move the comments to position 2 or greater also you need to 
enclose them between /* and */

//SYSINDD *
 /* COMMENT-1 */
 LISTCAT ENT('HLQ.MLQ.TLQ') ALL
 /* COMMENT-2 */
 LISTCAT ENT('A.B.C') ALL
/*

Every utility has its own rules and DFSORT has the most flexible rules. You 
just cannot compare to other utilities.


Thanks,
Kolusu


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

Re: Line comments in DFSORT

[Bob Stark]

You wrote:  I had the remarks/comments after the Continuation character (-).  

Sure enough, when I did that, it worked. 

It's unusual, having to add an un-necessary line split just to add a comment. I 
was expecting it to work more like IDCAMS, TSO or JCL.

I searched for every # in the the DFSORT Application Programming Guide to 
verify that ICETOOL line comments are not documented.

Thanks again for your help figuring this out. I'm updating our DFSORT and 
ICETOOL training course materials. The examples will be more readable now!

Regards,
Bob Stark


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

Re: Line comments in DFSORT

[Sri Hari Kolusu]

>> That is good news, but I cannot seem to replicate your results.

Bob,

If you noticed my example job keenly, I had the remarks/comments after the 
Continuation character (-).Btw TOOLIN statements are self-explanatory. You 
adding the remarks is kind of repeating the statements once again

Either way you can something like this

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//INPUTA   DD *
ABC
//INPUT1   DD *
DEF
IJK
//INPUTX   DD *
ABC
XYZ
DEF
//OUTA DD SYSOUT=*
//OUTB DD SYSOUT=*
//OUTC DD SYSOUT=*
//TOOLIN   DD *
  COPY  FROM(INPUTA) -  # COPY INPUTA TO OUTA
  TO(OUTA)
  COPY  FROM(INPUT1) -  # COPY INPUT1 TO OUTB
  TO(OUTB) USING(ALAS)
  SORT  FROM(INPUTX) -  # COPY INPUTX TO OUTC
  TO(OUTC) USING(ALAK)
/*
//ALASCNTL DD *
  INREC OVERLAY(10:C'BOB')  # Add BOB to every record
/*
//ALAKCNTL DD *
  SORT FIELDS=(1,3,CH,D)# sort field-1 Desc
/*


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: Line comments in DFSORT

[Bob Stark]

That is good news, but I cannot seem to replicate your results

ICE281I 0 ORIGINAL OPERATOR STATEMENTS FOLLOW  
  * Enter ICETOOL operators here * 
COPY  FROM(INPUTA) TO(OUTA)  # COPY INPUTA TO OUTA 
COPY  FROM(INPUT1) USING(ALAS)  TO(OUTB) # COPY INPUT1 TO OUTB 
SORT  FROM(INPUTX) USING(ALAK)  TO(OUTC) # COPY INPUTX TO OUTC 
   
ICE282I 1 PERFORMING SYMBOL SUBSTITUTION AS NEEDED 
   
ICE630I 0 MODE IN EFFECT:  STOP
   
COPY  FROM(INPUTA) TO(OUTA)  # COPY INPUTA TO OUTA 
 $ 
ICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITER
ICE602I 0 OPERATION RETURN CODE:  12   
   
ICE630I 2 MODE IN EFFECT:  SCAN
   
COPY  FROM(INPUT1) USING(ALAS)  TO(OUTB) # COPY INPUT1 TO OUTB 
 $ 
ICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITER
   
SORT  FROM(INPUTX) USING(ALAK)  TO(OUTC) # COPY INPUTX TO OUTC 
 $ 
ICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITER

Regards, Bob Stark

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

Re: Line comments in DFSORT

[Tom Marchant]

I was on bitsavers, so I looked.I thought I remembered that the old Sort/Merge 
program supported comments on the control cards. See pages 11 and 12.
http://www.bitsavers.org/pdf/ibm/360/os/R01-08/C28-6543-2_Sort_Merge_Apr66.pdf 

I'm sure that DFSORT would have always accepted any valid Sort/Merge statements.

-- 
Tom Marchant

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

Re: [EXTERNAL] Line comments in DFSORT

[Pommier, Rex]

Sorry, I didn't see Sri's remarks (no pun intended) until after I had replied.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Thursday, March 7, 2024 3:59 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Line comments in DFSORT

Actually it is documented.  They're just not called comments.  Look up "remark" 
in the DFSort application programming guide.
Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Bob 
Stark
Sent: Thursday, March 7, 2024 2:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Line comments in DFSORT

I just did an experiment in DFSORT with JCL-style line comments after INCLUDE, 
SORT, and OUTREC, and they work!

The DFSORT doc says that comments are only supported when entered with * on 
column 1. 

When was this implemented, and why isn’t this documented? Do you think it is 
safe to rely on?

I sent this question to dfs...@us.ibm.com but it bounced right back, perhaps 
there are DFSORT developers here.

Regards,
Bob Stark

//STEP1EXEC PGM=SORT   
//SYSIN DD  *  
  INCLUDE COND=(9,1,CH,EQ,C'3',|, PART NUMBERS ENDING IN 3 
9,1,CH,EQ,C'5',|, PART NUMBERS ENDING IN 5 
9,1,CH,EQ,C'7')   PART NUMBERS ENDING IN 7 
  SORT FIELDS=(10,30,CH,A)SORT ASCENDING BY DESCRIPTION
  OUTREC BUILD=(2X,10,30,3X,1,9,3X,68,10) DESCRIPTION, PARTNO, CATEGORY
//SYSOUTDD  SYSOUT=*   
//SORTOUT   DD  SYSOUT=*   
//SORTINDD  DISP=SHR,DSN= 

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

--
The information contained in this message is confidential, protected from 
disclosure and may be legally privileged. If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful. If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format. Thank you.


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

--
The information contained in this message is confidential, protected from 
disclosure and may be legally privileged. If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful. If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format. Thank you.


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

Re: [EXTERNAL] Line comments in DFSORT

[Pommier, Rex]

Actually it is documented.  They're just not called comments.  Look up "remark" 
in the DFSort application programming guide.
Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Bob 
Stark
Sent: Thursday, March 7, 2024 2:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Line comments in DFSORT

I just did an experiment in DFSORT with JCL-style line comments after INCLUDE, 
SORT, and OUTREC, and they work!

The DFSORT doc says that comments are only supported when entered with * on 
column 1. 

When was this implemented, and why isn’t this documented? Do you think it is 
safe to rely on?

I sent this question to dfs...@us.ibm.com but it bounced right back, perhaps 
there are DFSORT developers here.

Regards,
Bob Stark

//STEP1EXEC PGM=SORT   
//SYSIN DD  *  
  INCLUDE COND=(9,1,CH,EQ,C'3',|, PART NUMBERS ENDING IN 3 
9,1,CH,EQ,C'5',|, PART NUMBERS ENDING IN 5 
9,1,CH,EQ,C'7')   PART NUMBERS ENDING IN 7 
  SORT FIELDS=(10,30,CH,A)SORT ASCENDING BY DESCRIPTION
  OUTREC BUILD=(2X,10,30,3X,1,9,3X,68,10) DESCRIPTION, PARTNO, CATEGORY
//SYSOUTDD  SYSOUT=*   
//SORTOUT   DD  SYSOUT=*   
//SORTINDD  DISP=SHR,DSN= 

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

--
The information contained in this message is confidential, protected from 
disclosure and may be legally privileged. If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful. If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format. Thank you.


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

Re: Line comments in DFSORT

[Sri Hari Kolusu]

>> Alas, ICETOOL does not support the same kind of comments.

Bob,

Not sure what you meant by that.  ICETOOL statements TOOLIN and XXXCNTL do 
support comments.  Here is an example.

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN   DD *
ABC
DEF
//CTL1OUT  DD SYSOUT=*
//TOOLIN   DD *
  SORT FROM(IN) -# My comment in toolin
  USING(CTL1)
/*
//CTL1CNTL DD *
  SORT FIELDS=(1,3,CH,D) # sort field-1 Desc
/*

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: Line comments in DFSORT

[Bob Stark]

Thanks. That online doc is tricky, I read the detail page which didn't mention 
"Remarks". The higher level page that you shared did mention them.

I experimented with our legacy system, and it supported them too (but was 
missing other features like OUTREC).

Alas, ICETOOL does not support the same kind of comments.

Regards,
Bob Stark

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

Re: Line comments in DFSORT

[Sri Hari Kolusu]

>> I just did an experiment in DFSORT with JCL-style line comments after 
>> INCLUDE, SORT, and OUTREC, and they work!
The DFSORT doc says that comments are only supported when entered with * on 
column 1.

Bob,

Of course, they work as you entered a REMARKS.

Remark Field :  This field can contain any information. It is not required, but 
if it is present, it must be separated from the last operand field by at least 
one blank.

This is documented in here .

https://www.ibm.com/docs/en/zos/3.1.0?topic=statements-general-coding-rules

≫ The DFSORT doc says that comments are only supported when entered with * on 
column 1.
When was this implemented, and why isn’t this documented? Do you think it is 
safe to rely on?

The behavior did not change. It stayed the same across releases.  You can rely 
on remarks working across releases.

≫ When was this implemented, and why isn’t this documented? Do you think it is 
safe to rely on?

AFAIK, the behavior is the same since the inception of DFSORT.

≫ I sent this question to dfs...@us.ibm.com<mailto:dfs...@us.ibm.com> but it 
bounced right back, perhaps there are DFSORT developers here.

The hotline is shut off and we updated the pubs to remove the references to 
that.  I am not sure which documentation you are looking for, but pubs for V2R5 
and higher will not have that reference.

≫perhaps there are DFSORT developers here.

I for one am an active participant on this list.


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

Line comments in DFSORT

[Bob Stark]

I just did an experiment in DFSORT with JCL-style line comments after INCLUDE, 
SORT, and OUTREC, and they work!

The DFSORT doc says that comments are only supported when entered with * on 
column 1. 

When was this implemented, and why isn’t this documented? Do you think it is 
safe to rely on?

I sent this question to dfs...@us.ibm.com but it bounced right back, perhaps 
there are DFSORT developers here.

Regards,
Bob Stark

//STEP1EXEC PGM=SORT   
//SYSIN DD  *  
  INCLUDE COND=(9,1,CH,EQ,C'3',|, PART NUMBERS ENDING IN 3 
9,1,CH,EQ,C'5',|, PART NUMBERS ENDING IN 5 
9,1,CH,EQ,C'7')   PART NUMBERS ENDING IN 7 
  SORT FIELDS=(10,30,CH,A)SORT ASCENDING BY DESCRIPTION
  OUTREC BUILD=(2X,10,30,3X,1,9,3X,68,10) DESCRIPTION, PARTNO, CATEGORY
//SYSOUTDD  SYSOUT=*   
//SORTOUT   DD  SYSOUT=*   
//SORTINDD  DISP=SHR,DSN= 

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

Re: Can DFSORT assign custom Return Code values?

[Cameron Conacher]

The situation is that I have three different environments.
If we are in development, lets ignore the email
If we are in pre-prod, let’s assume someone is perform a User Acceptance test.
If we are in production, we should jump in and deal with remediation.

When the email is sent, I have embedded Symbolics in the email text itself, 
meaning I need to use  //SYSUT1   DD  *,SYMBOLS=EXECSYS, with IEBGENER.

In this situation, I cannot put the email text in a PDS as I would not be able 
to use the SYSBOLS= clause with IEBGENER,
On the other hand I could put all the email text into a PDS member, and 
pre-process this email text performing all the Symbolic substitutions, and 
create a temp file that has already had all of the substitution performed, pass 
it to IEBGENER without the SYMBOLS= clause, and go from there.
Sri, showed me how to gather the available data from the existing System 
Symbolics, and I can pass other data I need via PARMs.
So I am all good to go now.

However, I am going to look into writing a tiny C program, that I can call as a 
utility to assign a return code value. Just to see what it takes.

I was looking to run a utility that would simply generate a Return Code value, 
I could use to conditionally execute a JOBSTEP.


Thanks

…….Cameron

From: IBM Mainframe Discussion List  On Behalf Of 
Michael Oujesky
Sent: Monday, March 4, 2024 12:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Can DFSORT assign custom Return Code values?

Presuming these are three different z/OS instances. why not just use system 
symbols to make the determination of what environment is being used? Michael At 
10: 12 AM 3/4/2024, Sri Hari Kolusu wrote: >Content-Transfer-Encoding: base64>>


Presuming these are three different z/OS instances. why not just use

system symbols to make the determination of what environment is being used?



Michael



At 10:12 AM 3/4/2024, Sri Hari Kolusu wrote:

>Content-Transfer-Encoding: base64>> I was to be able to assign one

>of three different Return Code values (any value) that I can let

>check to determine if I am running in Development, Pre-Prod or

>Production, and then execute steps related to the specific environment.

>Not something I absolutely need since I could write a tiny program for this.

>

>Cameron,

>

>DFSORT has limited ability to set a return code but not the way you

>want. However, I think we can solve your issue quite easily by

>validating the symbol and only generating the steps that needs to

>run for that Symbolic. Remember DFSORT has the ability of reading

>the system symbols and determine the LPAR it is running.

>

>Please send an offline email with your complete requirement and I

>will show you a way to do it.

>

>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



--

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: Can DFSORT assign custom Return Code values?

[Binyamin Dissen]

Not exactly sure what you are trying to do, but .

it should be a simple rexx procedure 

/* REXX */   
STRING = "TEST PROD WHATEVER"
RCS = "4 8 12"   
 
DO  JJ = 1 TO WORDS(STRING)  
IF  WORD(STRING,JJ) = ARG(1)  THEN  RETURN WORD(RCS,JJ)  
END  
RETURN 102   

Invoke it with 

//   EXEC  PGM=IKJEFT1B,PARM='%SILLYREX '

And this step will set RC to the translated string value.


On Mon, 4 Mar 2024 16:01:51 + Cameron Conacher
<03cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote:

:>Hello everyone,
:>From what I have read this is not possible, but I decided to throw it out 
there to see if something is possible.
:>
:>I have a block of JCL with a bunch of steps.
:>I have symbolic parameters assigned. (JP1/JP2 SYSPLEX Symbolics for DFSORT)
:>
:>I was looking for a Utility that would examine the value of a Symbolic and 
assign a User Return Coe value. RC1 = Development; RC2 = Pre-Production; RC3 = 
Production?
:>I need a Return Code value to be able to conditionally execute subsequent JOB 
steps. I cannot execute steps conditionally based on Symbolic Variable values.
:>IF Step001.RC = 0 ….Development
:>
:>I could write a tine program to do this.
:>I was hunting around for a utility to do this.
:>DFSORT is my go to Utility but as mentioned, I believe it is not suitable for 
this task.
:>I believe I could set RC0 or RC4 or RC16. RC0 and RC4 generate a message and 
continue, but RC16 generates a message and terminates. I think this 
(Termination) would be unsuitable.
:>
:>I was to be able to assign one of three different Return Code values (any 
value) that I can let check to determine if I am running in Development, 
Pre-Prod or Production, and then execute steps related to the specific 
environment.
:>Not something I absolutely need since I could write a tiny program for this.
:>
:>Just curious, and I think my ADHD has just sent me down another rabbit hole ?
:>
:>I could do this in Easytrieve. Or COBOL. Or Assembler. Or Rexx. Or …..
:>
:>Hope this makes sense.
:>
:>Thanks
:>
:>
:>Cameron Conacher
:>Senior Engineer
:>
:>American Express Canada Inc.
:>GCICS
:>2225 Sheppard Avenue East, Toronto, ON  M2J 5C2
:>
:>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. 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

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

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

Re: Can DFSORT assign custom Return Code values?

[Sri Hari Kolusu]

>> Another simple way to do this is a simple Rexx exec using MVSVAR to get the 
>> system symbol that you want . See 
>> https://www.ibm.com/docs/en/zos/2.5.0?topic=tef-mvsvar to see examples of 
>> how to do this.

Doug,

As I mentioned earlier you don't need REXX to get the MVS variables. DFSORT is 
quite capable of reading the SYSTEM symbols.  If your system has all the 
symbols defined, then you can use the following DFSORT JCL

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SYMNOUT  DD SYSOUT=*
//SYMNAMES DD *
SYM01,S''
SYM02,S''
SYM03,S''
SYM04,S''
SYM05,S''
SYM06,S''
SYM07,S''
SYM08,S''
SYM09,S''
SYM10,S''
//SORTIN   DD *
ABC
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  OUTFIL BUILD=(C'SYSAPPCLU IS : ',SYM01,/,
C'SYSDFPIS : ',SYM02,/,
C'SYSMVSIS : ',SYM03,/,
C'SYSNAME   IS : ',SYM04,/,
C'SYSOPSYS  IS : ',SYM05,/,
C'SYSSECLAB IS : ',SYM06,/,
C'SYSSMFID  IS : ',SYM07,/,
C'SYSSMSIS : ',SYM08,/,
C'SYSCLONE  IS : ',SYM09,/,
C'SYSPLEX   IS : ',SYM10)
/*

https://www.ibm.com/docs/en/zos/3.1.0?topic=ss-symbol-statements

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: Can DFSORT assign custom Return Code values?

[Michael Oujesky]

Presuming these are three different z/OS instances. why not just use 
system symbols to make the determination of what environment is being used?


Michael

At 10:12 AM 3/4/2024, Sri Hari Kolusu wrote:
Content-Transfer-Encoding: base64>> I was to be able to assign one 
of three different Return Code values (any value) that I can let 
check to determine if I am running in Development, Pre-Prod or 
Production, and then execute steps related to the specific environment.

Not something I absolutely need since I could write a tiny program for this.

Cameron,

DFSORT has limited ability to set a return code but not the way you 
want. However, I think we can solve your issue quite easily by 
validating the symbol and only generating the steps that needs to 
run for that Symbolic. Remember DFSORT has the ability of reading 
the system symbols and determine the LPAR it is running.


Please send an offline email with your complete requirement and I 
will show you a way to do 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: Can DFSORT assign custom Return Code values?

[Robert Prins]

On Mon, 4 Mar 2024 at 16:13, Sri Hari Kolusu  wrote:

> Please send an offline email with your complete requirement and I will
> show you a way to do it.
>

After all, why would anyone else be interested in it?

Robert
-- 
Robert AH Prins
robert(a)prino(d)org
The hitchhiking grandfather 
Some REXX code for use on z/OS


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

Re: Can DFSORT assign custom Return Code values?

[Robert Prins]

Or this, posted on <https://ibmmainframes.com/viewtopic.php?t=42579> @ Tue
Jul 28, 2009 11:59 pm

//* Use a tiny Rexx exec to check both month and year
//* If 1st of month, return number of month, else return 99
//MAKEREXX EXEC PGM=IEBUPDTE,PARM=NEW
//SYSINDD  DATA
./ADD   NAME=CHKDATE
 if substr(date(u),4,2)=1 then return substr(date(u),1,2); return 99
/*
//SYSUT2   DD  DISP=(,PASS),SPACE=(TRK,(1,1,2),RLSE),UNIT=VIO,
// DCB=(LRECL=80,BLKSIZE=80,DSORG=PS,RECFM=F)
//SYSPRINT DD  DUMMY
//*  Now run the exec to get a return code
//SETMAXCC EXEC PGM=IRXJCL,PARM='CHKDATE'
//SYSEXEC  DD  DSNAME=*.MAKEREXX.SYSUT2,DISP=(OLD,DELETE)
//SYSTSIN  DD  DUMMY
//SYSTSPRT DD  DUMMY
/*  Proceed as in other solutions
//JAN  EXEC PGM=IEFBR14,COND=(1,NE,SETMAXCC)
//*
//FEB  EXEC PGM=IEFBR14,COND=(2,NE,SETMAXCC)
//*
// ...

On Mon, 4 Mar 2024 at 16:02, Cameron Conacher <
03cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote:

> Hello everyone,
> From what I have read this is not possible, but I decided to throw it out
> there to see if something is possible.
>
> I have a block of JCL with a bunch of steps.
> I have symbolic parameters assigned. (JP1/JP2 SYSPLEX Symbolics for DFSORT)
>
> I was looking for a Utility that would examine the value of a Symbolic and
> assign a User Return Coe value. RC1 = Development; RC2 = Pre-Production;
> RC3 = Production?
> I need a Return Code value to be able to conditionally execute subsequent
> JOB steps. I cannot execute steps conditionally based on Symbolic Variable
> values.
> IF Step001.RC = 0 ….Development
>
> I could write a tine program to do this.
> I was hunting around for a utility to do this.
> DFSORT is my go to Utility but as mentioned, I believe it is not suitable
> for this task.
> I believe I could set RC0 or RC4 or RC16. RC0 and RC4 generate a message
> and continue, but RC16 generates a message and terminates. I think this
> (Termination) would be unsuitable.
>
> I was to be able to assign one of three different Return Code values (any
> value) that I can let check to determine if I am running in Development,
> Pre-Prod or Production, and then execute steps related to the specific
> environment.
> Not something I absolutely need since I could write a tiny program for
> this.
>
> Just curious, and I think my ADHD has just sent me down another rabbit
> hole 
>
> I could do this in Easytrieve. Or COBOL. Or Assembler. Or Rexx. Or …..
>
> Hope this makes sense.
>
> Thanks
>
>
> Cameron Conacher
> Senior Engineer
>
> American Express Canada Inc.
> GCICS
> 2225 Sheppard Avenue East, Toronto, ON  M2J 5C2
>
> 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.
> 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: Can DFSORT assign custom Return Code values?

[Doug Henry]

Another simple way to do this is a simple Rexx exec using MVSVAR to get the 
system symbol that you want . See 
https://www.ibm.com/docs/en/zos/2.5.0?topic=tef-mvsvar to see examples of how 
to do this.

Doug  
On Mon, 4 Mar 2024 16:01:51 +, Cameron Conacher  
wrote:

>Hello everyone,
>From what I have read this is not possible, but I decided to throw it out 
>there to see if something is possible.
>
>I have a block of JCL with a bunch  f steps.
>I have symbolic parameters assigned. (JP1/JP2 SYSPLEX Symbolics for DFSORT)
>
>I was looking for a Utility that would examine the value of a Symbolic and 
>assign a User Return Coe value. RC1 = Development; RC2 = Pre-Production; RC3 = 
>Production?
>I need a Return Code value to be able to conditionally execute subsequent JOB 
>steps. I cannot execute steps conditionally based on Symbolic Variable values.
>IF Step001.RC = 0 ….Development
>
>I could write a tine program to do this.
>I was hunting around for a utility to do this.
>DFSORT is my go to Utility but as mentioned, I believe it is not suitable for 
>this task.
>I believe I could set RC0 or RC4 or RC16. RC0 and RC4 generate a message and 
>continue, but RC16 generates a message and terminates. I think this 
>(Termination) would be unsuitable.
>
>I was to be able to assign one of three different Return Code values (any 
>value) that I can let check to determine if I am running in Development, 
>Pre-Prod or Production, and then execute steps related to the specific 
>environment.
>Not something I absolutely need since I could write a tiny program for this.
>
>Just curious, and I think my ADHD has just sent me down another rabbit hole 
>
>I could do this in Easytrieve. Or COBOL. Or Assembler. Or Rexx. Or …..
>
>Hope this makes sense.
>
>Thanks
>
>
>

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

Re: Can DFSORT assign custom Return Code values?

[Colin Paice]

I think I did what you want, many years ago.
A very small C program something like
int main(argc,argv)
{
if (strcmp(argv[1],argv[2]) == 0 return 0
else return 4;
}
//S1 EXEC PGM=IFPROG,PARM="DEV,"
// if S1.RC == 0  they are the same

Colin



On Mon, 4 Mar 2024 at 16:02, Cameron Conacher <
03cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote:

> Hello everyone,
> From what I have read this is not possible, but I decided to throw it out
> there to see if something is possible.
>
> I have a block of JCL with a bunch of steps.
> I have symbolic parameters assigned. (JP1/JP2 SYSPLEX Symbolics for DFSORT)
>
> I was looking for a Utility that would examine the value of a Symbolic and
> assign a User Return Coe value. RC1 = Development; RC2 = Pre-Production;
> RC3 = Production?
> I need a Return Code value to be able to conditionally execute subsequent
> JOB steps. I cannot execute steps conditionally based on Symbolic Variable
> values.
> IF Step001.RC = 0 ….Development
>
> I could write a tine program to do this.
> I was hunting around for a utility to do this.
> DFSORT is my go to Utility but as mentioned, I believe it is not suitable
> for this task.
> I believe I could set RC0 or RC4 or RC16. RC0 and RC4 generate a message
> and continue, but RC16 generates a message and terminates. I think this
> (Termination) would be unsuitable.
>
> I was to be able to assign one of three different Return Code values (any
> value) that I can let check to determine if I am running in Development,
> Pre-Prod or Production, and then execute steps related to the specific
> environment.
> Not something I absolutely need since I could write a tiny program for
> this.
>
> Just curious, and I think my ADHD has just sent me down another rabbit
> hole 
>
> I could do this in Easytrieve. Or COBOL. Or Assembler. Or Rexx. Or …..
>
> Hope this makes sense.
>
> Thanks
>
>
> Cameron Conacher
> Senior Engineer
>
> American Express Canada Inc.
> GCICS
> 2225 Sheppard Avenue East, Toronto, ON  M2J 5C2
>
> 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.
> 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: Can DFSORT assign custom Return Code values?

[Sri Hari Kolusu]

>> I was to be able to assign one of three different Return Code values (any 
>> value) that I can let check to determine if I am running in Development, 
>> Pre-Prod or Production, and then execute steps related to the specific 
>> environment.
Not something I absolutely need since I could write a tiny program for this.

Cameron,

DFSORT has limited ability to set a return code but not the way you want. 
However, I think we can solve your issue quite easily by validating the symbol 
and only generating the steps that needs to run for that Symbolic. Remember 
DFSORT has the ability of reading the system symbols and determine the LPAR it 
is running.

Please send an offline email with your complete requirement and I will show you 
a way to do 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

Can DFSORT assign custom Return Code values?

[Cameron Conacher]

Hello everyone,
From what I have read this is not possible, but I decided to throw it out there 
to see if something is possible.

I have a block of JCL with a bunch of steps.
I have symbolic parameters assigned. (JP1/JP2 SYSPLEX Symbolics for DFSORT)

I was looking for a Utility that would examine the value of a Symbolic and 
assign a User Return Coe value. RC1 = Development; RC2 = Pre-Production; RC3 = 
Production?
I need a Return Code value to be able to conditionally execute subsequent JOB 
steps. I cannot execute steps conditionally based on Symbolic Variable values.
IF Step001.RC = 0 ….Development

I could write a tine program to do this.
I was hunting around for a utility to do this.
DFSORT is my go to Utility but as mentioned, I believe it is not suitable for 
this task.
I believe I could set RC0 or RC4 or RC16. RC0 and RC4 generate a message and 
continue, but RC16 generates a message and terminates. I think this 
(Termination) would be unsuitable.

I was to be able to assign one of three different Return Code values (any 
value) that I can let check to determine if I am running in Development, 
Pre-Prod or Production, and then execute steps related to the specific 
environment.
Not something I absolutely need since I could write a tiny program for this.

Just curious, and I think my ADHD has just sent me down another rabbit hole 

I could do this in Easytrieve. Or COBOL. Or Assembler. Or Rexx. Or …..

Hope this makes sense.

Thanks


Cameron Conacher
Senior Engineer

American Express Canada Inc.
GCICS
2225 Sheppard Avenue East, Toronto, ON  M2J 5C2

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

DFSORT JOINKEYS problem

[Jack Zukt]

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

Re: Help on DFSORT SUM FIELDS

[Sri h Kolusu]

>> UBFLAG4 and UMFLAG4 are not recognized as valid names. As far as I can tell, 
>> the DCOLLECT record descriptors that I am using are the most recent ones on 
>> the IBM site, even if they are for z/OS 2.1.
Any suggestions?

Jack,

Looks like you have old symbols for DCollect. I will send an offline email with 
the updated symbols.



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: Help on DFSORT SUM FIELDS

[Jack Zukt]

Hi Kolusu,

UBFLAG4 and UMFLAG4 are not recognized as valid names. As far as I can
tell, the DCOLLECT record descriptors that I am using are the most recent
ones on the IBM site, even if they are for z/OS 2.1.
Any suggestions?
Best wishes
Jack

On Thu, 7 Sept 2023 at 17:15, Sri h Kolusu  wrote:

> >> DFSORT is a magnificent product but I still am in an very early user
> stage.
>
> Jack,
>
> Thank you very much.
>
> >> You are so right about that. I was waiting for having this right before
> I would attempt that step. I have to do this in small steps.
>
> It is quite simple to add it in the existing job itself.  All you need is
> to change the INREC. Here are the updated control cards.  I added comments
> so that it is easy to see what is changed/added
>
> //SYSINDD *
>   OPTION VLSCMP,DYNALLOC=(,4)
>   INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,OR, * DATA RECORD
> DCURCTYP,EQ,UKTMIGR,OR,  * MIGR RECORD
> DCURCTYP,EQ,UKTBACK) * BACKUP RECORD
>
> ** Parse the datasetname for HLQ and init the space values
>
>   INREC IFTHEN=(WHEN=INIT,
>PARSE=(%01=(ABSPOS=29,ENDBEFR=C'.',FIXLEN=8)),
>  OVERLAY=(FMT-HLQ:%01,
>   TMP-DCDALLSP:8Z,
>   TMP-UMALLSP:8Z,
>   TMP-UBALLSP:8Z)),
>
> ** If allocated space is 31-bit value for type "D" records
>
> IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT,AND,
>   DCDFLAG2,EQ,DCDALLFG),
>  OVERLAY=(TMP-DCDALLSP2:DCDALLSP),HIT=NEXT),
>
> ** If allocated space is 64-bit value for type "D" records
>
> IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT,AND,
>   DCDFLAG5,EQ,DCDALLFX),
>  OVERLAY=(TMP-DCDALLSP:DCDALLSX)),
>
> ** Assume allocated space is in "KB" for type "M" records
>
> IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR),
>  OVERLAY=(TMP-UMALLSP2:UMALLSP),HIT=NEXT),
>
> ** Check if allocated spaces is in "MB" for type "M" records and
> ** convert it to KB value by multiplying with +1024
>
> IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR,AND,
>   UMFLAG4,EQ,UMALLSP_FMB),
>  OVERLAY=(TMP-UMALLSP:UMALLSP,MUL,+1024,BI,LENGTH=8)),
>
> ** Assume allocated space is in "KB" for type "B" records
>
> IFTHEN=(WHEN=(DCURCTYP,EQ,UKTBACK),
> OVERLAY=(TMP-UBALLSP2:UBALLSP),HIT=NEXT),
>
> ** Check if allocated spaces is in "MB" for type "B" records and
> ** convert it to KB value by multiplying with +1024
>
> IFTHEN=(WHEN=(DCURCTYP,EQ,UKTBACK,AND,
>   UBFLAG4,EQ,UBALLSP_FMB),
>  OVERLAY=(TMP-UBALLSP:UBALLSP,MUL,+1024,BI,LENGTH=8))
>
>   SORT FIELDS=(FMT-HLQ,A)   * SORT BY DATASET HLQ
> *
>   SUM FIELDS=(TMP-DCDALLSP, * SUM ALLOC SPACE
>   TMP-UMALLSP,  * SUM MIGRAT SPACE
>   TMP-UBALLSP)  * SUM BACKUP SPACE
> *
>   OUTREC BUILD=(1,4,
>     FMT-HLQ,
> X,
> TMP-DCDALLSP,EDIT=(III.III.III.III.IIT),
> C' KB ',
> TMP-UMALLSP,EDIT=(III.III.III.III.IIT),
> C' KB ',
> TMP-UBALLSP,EDIT=(III.III.III.III.IIT),
> C' KB ')
> /*
>
> 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: Help on DFSORT SUM FIELDS

[Sri h Kolusu]

>> DFSORT is a magnificent product but I still am in an very early user stage.

Jack,

Thank you very much.

>> You are so right about that. I was waiting for having this right before I 
>> would attempt that step. I have to do this in small steps.

It is quite simple to add it in the existing job itself.  All you need is to 
change the INREC. Here are the updated control cards.  I added comments so that 
it is easy to see what is changed/added

//SYSINDD *
  OPTION VLSCMP,DYNALLOC=(,4)
  INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,OR, * DATA RECORD
DCURCTYP,EQ,UKTMIGR,OR,  * MIGR RECORD
DCURCTYP,EQ,UKTBACK) * BACKUP RECORD

** Parse the datasetname for HLQ and init the space values

  INREC IFTHEN=(WHEN=INIT,
   PARSE=(%01=(ABSPOS=29,ENDBEFR=C'.',FIXLEN=8)),
 OVERLAY=(FMT-HLQ:%01,
  TMP-DCDALLSP:8Z,
  TMP-UMALLSP:8Z,
  TMP-UBALLSP:8Z)),

** If allocated space is 31-bit value for type "D" records

IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT,AND,
  DCDFLAG2,EQ,DCDALLFG),
 OVERLAY=(TMP-DCDALLSP2:DCDALLSP),HIT=NEXT),

** If allocated space is 64-bit value for type "D" records

IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT,AND,
  DCDFLAG5,EQ,DCDALLFX),
 OVERLAY=(TMP-DCDALLSP:DCDALLSX)),

** Assume allocated space is in "KB" for type "M" records

IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR),
 OVERLAY=(TMP-UMALLSP2:UMALLSP),HIT=NEXT),

** Check if allocated spaces is in "MB" for type "M" records and
** convert it to KB value by multiplying with +1024

IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR,AND,
  UMFLAG4,EQ,UMALLSP_FMB),
 OVERLAY=(TMP-UMALLSP:UMALLSP,MUL,+1024,BI,LENGTH=8)),

** Assume allocated space is in "KB" for type "B" records

IFTHEN=(WHEN=(DCURCTYP,EQ,UKTBACK),
OVERLAY=(TMP-UBALLSP2:UBALLSP),HIT=NEXT),

** Check if allocated spaces is in "MB" for type "B" records and
** convert it to KB value by multiplying with +1024

IFTHEN=(WHEN=(DCURCTYP,EQ,UKTBACK,AND,
  UBFLAG4,EQ,UBALLSP_FMB),
 OVERLAY=(TMP-UBALLSP:UBALLSP,MUL,+1024,BI,LENGTH=8))

  SORT FIELDS=(FMT-HLQ,A)   * SORT BY DATASET HLQ
*
  SUM FIELDS=(TMP-DCDALLSP, * SUM ALLOC SPACE
  TMP-UMALLSP,  * SUM MIGRAT SPACE
  TMP-UBALLSP)  * SUM BACKUP SPACE
*
  OUTREC BUILD=(1,4,
FMT-HLQ,
X,
TMP-DCDALLSP,EDIT=(III.III.III.III.IIT),
C' KB ',
TMP-UMALLSP,EDIT=(III.III.III.III.IIT),
        C' KB ',
TMP-UBALLSP,EDIT=(III.III.III.III.IIT),
C' KB ')
/*

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: Help on DFSORT SUM FIELDS

[Jack Zukt]

Kolusu,
You are so right about that. I was waiting for having this right before I
would attempt that step.
DFSORT is a magnificent product but I still am in an very early user stage.
I have to do this in small steps.
Thank you once again for your help
Best wishes
Jack

On Thu, 7 Sept 2023 at 16:33, Sri h Kolusu  wrote:

> >> Of course it was that. That is what happens when you copy something so
> it you will not have to write everything from scratch.
>
> Jack,
>
> Glad to hear that the issue is resolved. I wanted to bring this up
> yesterday itself. you may want to check if the space values you are getting
> are indeed 31-bit values.
>
> For example, the Type "D" records, you need to look at the flags.
>
> DCDALLSP,*,4,FIDATA SET ALLOCATED SPACE IN KBS (1024)
> WHEN DCDALLFG IS ON
>
>  DCDFLAG5,*,1,BIINFORMATION FLAG #5
>DCDALLFX,B'1...'   63BIT ALLOCATED SPACE IN DCDALLSX
>
>
> Similarly you need to check for record types "B" and "M"
>
> 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: Help on DFSORT SUM FIELDS

[Sri h Kolusu]

>> Of course it was that. That is what happens when you copy something so it 
>> you will not have to write everything from scratch.

Jack,

Glad to hear that the issue is resolved. I wanted to bring this up yesterday 
itself. you may want to check if the space values you are getting are indeed 
31-bit values.

For example, the Type "D" records, you need to look at the flags.

DCDALLSP,*,4,FIDATA SET ALLOCATED SPACE IN KBS (1024)
WHEN DCDALLFG IS ON

 DCDFLAG5,*,1,BIINFORMATION FLAG #5
   DCDALLFX,B'1...'   63BIT ALLOCATED SPACE IN DCDALLSX


Similarly you need to check for record types "B" and "M"

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: Help on DFSORT SUM FIELDS

[Jack Zukt]

Kolusu,

Of course it was that. That is what happens when you copy something so it
you will not have to write everything from scratch.
I forgot to change that 12 to 8, as I did on the other places.
Thank you so much for your help. That is one of those errors that was
staring me on the face and yet I could not see it.
At least most of the other stuff was as it should have been.
My heartfelt thank you. This has been driving me crazy for the past two
days.
Best wishes.
Jack

On Thu, 7 Sept 2023 at 15:52, Sri h Kolusu  wrote:

> >> After tinkering a little bit more, as I was far form satisfied with the
> last result, I managed to get twenty two output records:
>
>
> Jack,
>
> Looking at the results, something does NOT add up. Your HLQ is 8 bytes,
> however you have defined the symbol for it as FMT-HLQ as 12 Bytes.  May be
> the garbage values are being considered as a break. Can you turn HEX on the
> 3 record output and see if you can see any values after the hlq ASCLI ?
>
> You  can change the symbol
>
> FMT-HLQ,*,12,CH
>
> To
>
> FMT-HLQ,*,08,CH
>
>
> Now re-run the job once again and see if you are getting the right
> results.  If you are still getting incorrect results, then please terse the
> DCOLLECT file and send it as an attachment to my email offline and I will
> see if I can find something.
>
> 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: Help on DFSORT SUM FIELDS

[Sri h Kolusu]

>> After tinkering a little bit more, as I was far form satisfied with the last 
>> result, I managed to get twenty two output records:


Jack,

Looking at the results, something does NOT add up. Your HLQ is 8 bytes, however 
you have defined the symbol for it as FMT-HLQ as 12 Bytes.  May be the garbage 
values are being considered as a break. Can you turn HEX on the 3 record output 
and see if you can see any values after the hlq ASCLI ?

You  can change the symbol

FMT-HLQ,*,12,CH

To

FMT-HLQ,*,08,CH


Now re-run the job once again and see if you are getting the right results.  If 
you are still getting incorrect results, then please terse the DCOLLECT file 
and send it as an attachment to my email offline and I will see if I can find 
something.

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: Help on DFSORT SUM FIELDS

[Jack Zukt]

t;
>> IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR),
>> OVERLAY=(TMP-UMALLSP2:UMALLSP)),* MIGRATED SPACE
>>
>>     IFTHEN=(WHEN=NONE,
>> OVERLAY=(TMP-UBALLSP2:UBALLSP)) * BACKUP SPACE
>>
>>   SORT FIELDS=(FMT-HLQ,A)   * SORT BY DATASET HLQ
>>
>>   OUTFIL INCLUDE=(FMT-HLQ,EQ,C'JACKZUKT')
>> /*
>>
>>
>> Now check the output for the field values of all the space fields that
>> you added.
>>
>> 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: Help on DFSORT SUM FIELDS

[Jack Zukt]

Hi Kolusu,

Thank you for you help.
I used one HLQ that has few files, (10 DASD; 1 Migrated; 11 HSM Backup; 22
DCOLLECT records).

On my first try it gave me three output records:
ASCLI  0 KB830 KB  0 KB
ASCLI 16.988 KB  0 KB  0 KB
ASCLI  0 KB  0 KB 17.817 KB

on the second run, with OUTFIL INCLUDE and without SUM FIELDS, it gave me
ten records:
ASCLI830 KB  0 KB  0 KB
ASCLI  8.190 KB  0 KB  0 KB
ASCLI166 KB  0 KB  0 KB
ASCLI830 KB  0 KB  0 KB
ASCLI830 KB  0 KB  0 KB
ASCLI830 KB  0 KB  0 KB
ASCLI  3.320 KB  0 KB  0 KB
ASCLI332 KB  0 KB  0 KB
ASCLI830 KB  0 KB  0 KB
ASCLI830 KB  0 KB  0 KB

It has the info from the ten type "D" records but there is no information
for the type "B" and type "M" records.

Any ideas?
Jack


On Thu, 7 Sept 2023 at 13:14, Sri h Kolusu  wrote:

> >> Now, I hope that you do not mind if I ask you for one more thing. I
> wanted to have one line with the high level qualifier and all the three
> values but instead I am getting three lines for each HLQ.
>
> Jack,
>
> If you used the updated INREC then you should have gotten a summary record
> of 1 record per HLQ.  If you are still getting multiple records per hlq,
> then you still must be getting an overflow. How about we diagnose the issue?
>
> Pick a HLQ where you are getting multiple records and use it in the
> include on OUTFIL without SUM fields
>
> //SYSINDD *
>   OPTION VLSHRT,VLSCMP,DYNALLOC=(,4)
>   INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,OR, * DATA RECORD
> DCURCTYP,EQ,UKTMIGR,OR,  * MIGR RECORD
> DCURCTYP,EQ,UKTBACK) * BACKUP RECORD
>
>   INREC IFTHEN=(WHEN=INIT,
> PARSE=(%01=(ABSPOS=29,ENDBEFR=C'.',FIXLEN=8)),
> OVERLAY=(FMT-HLQ:%01,
>  TMP-DCDALLSP:8Z,
>  TMP-UMALLSP:8Z,
>  TMP-UBALLSP:8Z)),
>
> IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT),
> OVERLAY=(TMP-DCDALLSP2:DCDALLSP)),  * ALLOC SPACE
>
> IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR),
> OVERLAY=(TMP-UMALLSP2:UMALLSP)),* MIGRATED SPACE
>
> IFTHEN=(WHEN=NONE,
> OVERLAY=(TMP-UBALLSP2:UBALLSP)) * BACKUP SPACE
>
>   SORT FIELDS=(FMT-HLQ,A)   * SORT BY DATASET HLQ
>
>   OUTFIL INCLUDE=(FMT-HLQ,EQ,C'JACKZUKT')
> /*
>
>
> Now check the output for the field values of all the space fields that you
> added.
>
> 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: Help on DFSORT SUM FIELDS

[Sri h Kolusu]

>> Now, I hope that you do not mind if I ask you for one more thing. I wanted 
>> to have one line with the high level qualifier and all the three values but 
>> instead I am getting three lines for each HLQ.

Jack,

If you used the updated INREC then you should have gotten a summary record of 1 
record per HLQ.  If you are still getting multiple records per hlq, then you 
still must be getting an overflow. How about we diagnose the issue?

Pick a HLQ where you are getting multiple records and use it in the include on 
OUTFIL without SUM fields

//SYSINDD *
  OPTION VLSHRT,VLSCMP,DYNALLOC=(,4)
  INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,OR, * DATA RECORD
DCURCTYP,EQ,UKTMIGR,OR,  * MIGR RECORD
DCURCTYP,EQ,UKTBACK) * BACKUP RECORD

  INREC IFTHEN=(WHEN=INIT,
PARSE=(%01=(ABSPOS=29,ENDBEFR=C'.',FIXLEN=8)),
OVERLAY=(FMT-HLQ:%01,
 TMP-DCDALLSP:8Z,
 TMP-UMALLSP:8Z,
 TMP-UBALLSP:8Z)),

IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT),
OVERLAY=(TMP-DCDALLSP2:DCDALLSP)),  * ALLOC SPACE

IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR),
OVERLAY=(TMP-UMALLSP2:UMALLSP)),* MIGRATED SPACE

IFTHEN=(WHEN=NONE,
OVERLAY=(TMP-UBALLSP2:UBALLSP)) * BACKUP SPACE

  SORT FIELDS=(FMT-HLQ,A)   * SORT BY DATASET HLQ

  OUTFIL INCLUDE=(FMT-HLQ,EQ,C'JACKZUKT')
/*


Now check the output for the field values of all the space fields that you 
added.

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: Help on DFSORT SUM FIELDS

[Jack Zukt]

Hi Kolusu,

I knew it must be something simple,I just could not figure it out.
Thank you so much for your help and for the explanation.
Now, I hope that you do not mind if I ask you for one more thing. I wanted
to have one line with the high level qualifier and all the three values but
instead I am getting three lines for each HLQ.
I was under the impression that by doing the sort by the HLQ than I would
get that result but obviously that is not what is happening. Can you please
shed some light in this?
Thank you
Best wishes
Jack

On Wed, 6 Sept 2023 at 18:52, Sri h Kolusu  wrote:

> Jack,
>
> I just ran your control cards against my dcollect extract and I know the
> reason for overflow.  Your INREC is initializing the space values that you
> are summing with zeros IF that Record( D, B, M) is FOUND.  So, if you don't
> have any one of the record, you will be summing the spaces/garbage and it
> will exceed the 8 byte value.  So, you just need to change the INREC to the
> following.  I just moved the initialization of the space values to
> WHEN=INIT.
>
>   INREC IFTHEN=(WHEN=INIT,
> PARSE=(%01=(ABSPOS=29,ENDBEFR=C'.',FIXLEN=8)),
> OVERLAY=(FMT-HLQ:%01,
>  TMP-DCDALLSP:8Z,
>  TMP-UMALLSP:8Z,
>  TMP-UBALLSP:8Z)),
>
> IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT),
> OVERLAY=(TMP-DCDALLSP2:DCDALLSP)),  * ALLOC SPACE
>
> IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR),
> OVERLAY=(TMP-UMALLSP2:UMALLSP)),* MIGRATED SPACE
>
> IFTHEN=(WHEN=NONE,
> OVERLAY=(TMP-UBALLSP2:UBALLSP)) * BACKUP SPACE
>
>
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Sri h Kolusu
> Sent: Wednesday, September 6, 2023 10:13 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [EXTERNAL] Re: Help on DFSORT SUM FIELDS
>
> >> I am doing something wrong because I am getting one output record for
> each input record, instead of the few hundreds I was expecting to get.
>
> Jack,
>
> If I had to take an educated guess, you are getting an overflow error.
> Look for ICE152I message in the sysout.  I guess you earlier had a similar
> issue.
>
> https://www.mail-archive.com/ibm-main@listserv.ua.edu/msg124452.html
>
>
> 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
>
>
> --
> 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: Help on DFSORT SUM FIELDS

[Sri h Kolusu]

Jack,

I just ran your control cards against my dcollect extract and I know the reason 
for overflow.  Your INREC is initializing the space values that you are summing 
with zeros IF that Record( D, B, M) is FOUND.  So, if you don't have any one of 
the record, you will be summing the spaces/garbage and it will exceed the 8 
byte value.  So, you just need to change the INREC to the following.  I just 
moved the initialization of the space values to WHEN=INIT.

  INREC IFTHEN=(WHEN=INIT,
PARSE=(%01=(ABSPOS=29,ENDBEFR=C'.',FIXLEN=8)),
OVERLAY=(FMT-HLQ:%01,
 TMP-DCDALLSP:8Z,
 TMP-UMALLSP:8Z,
 TMP-UBALLSP:8Z)),

IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT),
OVERLAY=(TMP-DCDALLSP2:DCDALLSP)),  * ALLOC SPACE

IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR),
OVERLAY=(TMP-UMALLSP2:UMALLSP)),* MIGRATED SPACE

IFTHEN=(WHEN=NONE,
OVERLAY=(TMP-UBALLSP2:UBALLSP)) * BACKUP SPACE



Thanks,
Kolusu
DFSORT Development
IBM Corporation

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
h Kolusu
Sent: Wednesday, September 6, 2023 10:13 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Help on DFSORT SUM FIELDS

>> I am doing something wrong because I am getting one output record for each 
>> input record, instead of the few hundreds I was expecting to get.

Jack,

If I had to take an educated guess, you are getting an overflow error. Look for 
ICE152I message in the sysout.  I guess you earlier had a similar issue.

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


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


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

Re: Help on DFSORT SUM FIELDS

[Sri h Kolusu]

>> I am doing something wrong because I am getting one output record for each 
>> input record, instead of the few hundreds I was expecting to get.

Jack,

If I had to take an educated guess, you are getting an overflow error. Look for 
ICE152I message in the sysout.  I guess you earlier had a similar issue.

https://www.mail-archive.com/ibm-main@listserv.ua.edu/msg124452.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

Help on DFSORT SUM FIELDS

[Jack Zukt]

Hi all,
I am trying to process DCOLLECT type "D"; "B"; "M"; records in order to get
one record by HLQ with the allocated space by active files, migrated files
and backup files, and I am doing something wrong because I am getting one
output record for each input record, instead of the few hundreds I was
expecting to get.
Those are the sort statements I am using:

//STEP0200 EXEC PGM=SORT
//SYMNOUT  DD SYSOUT=*
//SYMNAMES DD  DISP=SHR,DSN=(HEADER)
// DD  DISP=SHR,DSN=(TYPED)
// DD  DISP=SHR,DSN=(TYPEB)
// DD  DISP=SHR,DSN=(TYPEM)
// DD  *
FMT-HLQ,*,12,CH
TMP-DCDALLSP,*,8,BI* ALLOCATED SPACE
TMP-DCDALLSP1,=,4,BI
TMP-DCDALLSP2,*,4,BI
TMP-UBALLSP,*,8,BI * ALLOCATED BACKUP SPACE
TMP-UBALLSP1,=,4,BI
TMP-UBALLSP2,*,4,BI
TMP-UMALLSP,*,8,BI * ALLOCATED MIGRAT SPACE
TMP-UMALLSP1,=,4,BI
TMP-UMALLSP2,*,4,BI
/*
//*
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION VLSHRT,VLSCMP,DYNALLOC=(,4)
  INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,OR, * DATA RECORD
DCURCTYP,EQ,UKTMIGR,OR,  * MIGR RECORD
DCURCTYP,EQ,UKTBACK) * BACKUP RECORD
*
  SORT FIELDS=(FMT-HLQ,A)   * SORT BY DATASET HLQ
*
  SUM FIELDS=(TMP-DCDALLSP, * SUM ALLOC SPACE
  TMP-UMALLSP,  * SUM MIGRAT SPACE
  TMP-UBALLSP)  * SUM BACKUP SPACE
*
  INREC IFTHEN=(WHEN=INIT,
PARSE=(%01=(ABSPOS=29,ENDBEFR=C'.',FIXLEN=8)),
OVERLAY=(FMT-HLQ:%01)),
IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT),
OVERLAY=(TMP-DCDALLSP:8Z,
 TMP-DCDALLSP2:DCDALLSP)),
IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR),
OVERLAY=(TMP-UMALLSP:8Z,
 TMP-UMALLSP2:UMALLSP)),  * BACKUP SPACE
IFTHEN=(WHEN=NONE,
OVERLAY=(TMP-UBALLSP:8Z,
 TMP-UBALLSP2:UBALLSP))   * BACKUP SPACE
  OUTREC BUILD=(1,4,
FMT-HLQ,
X,
TMP-DCDALLSP,EDIT=(III.III.III.IIT),
C' KB',
TMP-UMALLSP,EDIT=(III.III.III.IIT),
C' KB',
TMP-UBALLSP,EDIT=(III.III.III.IIT),
C' KB')
/*

As usual, your help will be deeply appreciated,
Best wishes
Jack

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

Re: Syncsort > DFsort migration

[Schmitt, Michael]

Syncsort's site says they support IBM's Integrated Accelerator for Z Sort 
coprocessor for z15 also.

Not sure what the limits are when that is used.



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
h Kolusu
Sent: Monday, August 28, 2023 12:39 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Syncsort > DFsort migration

>> It was the thread in January 12th 2023, with subject "DFSORT maximum input 
>> records".  The message that kicked it off was:

Thanks Michael. It is good to know the other products limits.  DFSORT has 
raised the limit with Sort accelerator to 65,536 times than the other product's 
limit.

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: Syncsort > DFsort migration

[Sri h Kolusu]

>> It was the thread in January 12th 2023, with subject "DFSORT maximum input 
>> records".  The message that kicked it off was:

Thanks Michael. It is good to know the other products limits.  DFSORT has 
raised the limit with Sort accelerator to 65,536 times than the other product's 
limit.

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: Syncsort > DFsort migration

[Schmitt, Michael]

It was the thread in January 12th 2023, with subject "DFSORT maximum input 
records".  The message that kicked it off was:

From: Charles Hardee 
Subject: DFSORT maximum input records
MIME-Version: 1.0
I am trying to sort roughly 4295217295, records using DFSORT.
DFSORT issues a message that I have exceeded the sort input record maximum.
It appears that this maximum is 4294967295.


The limit imposed is because, apparently, DFSORT is handling "equals" by adding 
a fullword record number to the sort key.

Syncsort MFX also has a 4,294,967,295 record limit when EQUALS is used, *but* 
it can be raised to 140,737,488,355,327 using the EXTCOUNT parm.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
h Kolusu
Sent: Monday, August 28, 2023 11:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Syncsort > DFsort migration

>> I think it was mentioned in this list previously that EQUALS in DFSORT has a 
>> lower limit on maximum number of records than SYNCSORT.

Michael,

Can you please provide link to that topic that mentions that DFSORT has a lower 
limit than the other product?

We do have limits and I *believe* it is the same as the other product, but if 
you are running on Z15 and higher you can use sort accelerator(with OPTION 
ZSORT) with DFSORT which can sort up to 9,223,372,036,854,775,807 records ( 
Nine quintillion two hundred twenty-three quadrillion three hundred seventy-two 
trillion thirty-six billion eight hundred fifty-four million seven hundred 
seventy-five thousand eight hundred seven)  as mentioned here

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

Btw it would a while for any customer to sort that many records.

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: Syncsort > DFsort migration

[Kirk Wolf]

On Mon, Aug 28, 2023, at 11:59 AM, Tom Brennan wrote:
> LOL "a while"
> 

Don't worry, IBM would sell you Capacity-on-Demand while the job ran.

Kirk Wolf
Dovetailed Technologies
http://coztoolkit.com

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

Re: Syncsort > DFsort migration

[Tom Brennan]

LOL "a while"

On 8/28/2023 9:49 AM, Sri h Kolusu wrote:

I think it was mentioned in this list previously that EQUALS in DFSORT has a 
lower limit on maximum number of records than SYNCSORT.


Michael,

Can you please provide link to that topic that mentions that DFSORT has a lower 
limit than the other product?

We do have limits and I *believe* it is the same as the other product, but if 
you are running on Z15 and higher you can use sort accelerator(with OPTION 
ZSORT) with DFSORT which can sort up to 9,223,372,036,854,775,807 records ( 
Nine quintillion two hundred twenty-three quadrillion three hundred seventy-two 
trillion thirty-six billion eight hundred fifty-four million seven hundred 
seventy-five thousand eight hundred seven)  as mentioned here

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

Btw it would a while for any customer to sort that many records.

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: [EXTERNAL] Re: Syncsort > DFsort migration

[Pommier, Rex]

I don't care how fast your computer is, that would take a while to sort!  LOL

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
h Kolusu
Sent: Monday, August 28, 2023 11:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Syncsort > DFsort migration

>> I think it was mentioned in this list previously that EQUALS in DFSORT has a 
>> lower limit on maximum number of records than SYNCSORT.

Michael,

Can you please provide link to that topic that mentions that DFSORT has a lower 
limit than the other product?

We do have limits and I *believe* it is the same as the other product, but if 
you are running on Z15 and higher you can use sort accelerator(with OPTION 
ZSORT) with DFSORT which can sort up to 9,223,372,036,854,775,807 records ( 
Nine quintillion two hundred twenty-three quadrillion three hundred seventy-two 
trillion thirty-six billion eight hundred fifty-four million seven hundred 
seventy-five thousand eight hundred seven)  as mentioned here

https://urldefense.com/v3/__https://www.mail-archive.com/ibm-main@listserv.ua.edu/msg124898.html__;!!KjMRP1Ixj6eLE0Fj!o8g9lT1CLs5wPI1yiaiwwUXcdegzjzbU5QRAbhEHh2lxOJ87xzEEANRbPI_9SAT1jbDtNSMy1Qn6a3ziDwI$
 

Btw it would a while for any customer to sort that many records.

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

--
The information contained in this message is confidential, protected from 
disclosure and may be legally privileged. If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful. If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format. Thank you.


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

Re: Syncsort > DFsort migration

[Sri h Kolusu]

>> I think it was mentioned in this list previously that EQUALS in DFSORT has a 
>> lower limit on maximum number of records than SYNCSORT.

Michael,

Can you please provide link to that topic that mentions that DFSORT has a lower 
limit than the other product?

We do have limits and I *believe* it is the same as the other product, but if 
you are running on Z15 and higher you can use sort accelerator(with OPTION 
ZSORT) with DFSORT which can sort up to 9,223,372,036,854,775,807 records ( 
Nine quintillion two hundred twenty-three quadrillion three hundred seventy-two 
trillion thirty-six billion eight hundred fifty-four million seven hundred 
seventy-five thousand eight hundred seven)  as mentioned here

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

Btw it would a while for any customer to sort that many records.

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: [EXTERNAL] Re: Syncsort > DFsort migration

[Schmitt, Michael]

I think it was mentioned in this list previously that EQUALS in DFSORT has a 
lower limit on maximum number of records than SYNCSORT.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Monday, August 28, 2023 10:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: Syncsort > DFsort migration

Gil,

I had to look up "stable sort" as I hadn't heard the term.  Yes that is what 
EQUALS does in both DFSort and Syncsort.  FYI, I searched the Syncsort 
programmer's manual and it doesn't mention "stable sort" either.  :-)

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Monday, August 28, 2023 10:36 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Syncsort > DFsort migration

On Mon, 28 Aug 2023 15:11:05 +, Sri h Kolusu wrote:
>
>EQUALS is the parm which comes into picture when your input has duplicates on 
>the key, and you want to retain the order of the duplicates.  OPTION EQUALS 
>specifies whether the original sequence of records that collate identically 
>for a sort or a merge should be preserved from input to output.
>
Is this the behavior generally known in IT as a "stable" sort?  I find no 
mention of stable sort in the DFSORT  documentation.

--
gil

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

--
The information contained in this message is confidential, protected from 
disclosure and may be legally privileged. If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful. If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format. Thank you.


--
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: Syncsort > DFsort migration

[Sri h Kolusu]

>> Is this the behavior generally known in IT as a "stable" sort?  I find no 
>> mention of stable sort in the DFSORT  documentation.

Gil,

Yes, EQUALS parm which keeps the dup keys in the order and what some call it as 
"stable" sort.  DFSORT documentation does not have the same "stable" 
definition, but essentially the same functionality.
 

>> FYI, I searched the Syncsort programmer's manual and it doesn't mention 
>> "stable sort" either.  :-)

Rex, 

Thanks for the confirmation about the competitor product. Much appreciated.


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: [EXTERNAL] Re: Syncsort > DFsort migration

[Pommier, Rex]

Gil,

I had to look up "stable sort" as I hadn't heard the term.  Yes that is what 
EQUALS does in both DFSort and Syncsort.  FYI, I searched the Syncsort 
programmer's manual and it doesn't mention "stable sort" either.  :-)

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Monday, August 28, 2023 10:36 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Syncsort > DFsort migration

On Mon, 28 Aug 2023 15:11:05 +, Sri h Kolusu wrote:
>
>EQUALS is the parm which comes into picture when your input has duplicates on 
>the key, and you want to retain the order of the duplicates.  OPTION EQUALS 
>specifies whether the original sequence of records that collate identically 
>for a sort or a merge should be preserved from input to output.
> 
Is this the behavior generally known in IT as a "stable" sort?  I find no 
mention of stable sort in the DFSORT  documentation.

--
gil

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

--
The information contained in this message is confidential, protected from 
disclosure and may be legally privileged. If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful. If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format. Thank you.


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

Re: Syncsort > DFsort migration

[Paul Gilmartin]

On Mon, 28 Aug 2023 15:11:05 +, Sri h Kolusu wrote:
>
>EQUALS is the parm which comes into picture when your input has duplicates on 
>the key, and you want to retain the order of the duplicates.  OPTION EQUALS 
>specifies whether the original sequence of records that collate identically 
>for a sort or a merge should be preserved from input to output.
> 
Is this the behavior generally known in IT as a "stable" sort?  I find no
mention of stable sort in the DFSORT  documentation.

-- 
gil

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

Re: Fwd: Syncsort > DFsort migration

[Sri h Kolusu]

>> The only issue I ran into (this was years ago) was that if you use the PARM 
>> in Syncsort of “EQUAL” expect different output in DFSORT

ED,

EQUALS is the parm which comes into picture when your input has duplicates on 
the key, and you want to retain the order of the duplicates.  OPTION EQUALS 
specifies whether the original sequence of records that collate identically for 
a sort or a merge should be preserved from input to output.

As a simple example:

 R1
 R2
 R3

If we sort these three records on positions 1-4 with EQUALS with DFSORT, the 
output is guaranteed to be:

 R1
 R2
 R3

because EQUALS says to keep records with the same key (duplicate records) in 
their original order.

However, if we sort these three records on positions 1-4 with NOEQUALS with 
DFSORT the output can have those records in any order, e.g.

 R2
 R3
 R1

or


 R3
 R1
 R2

because NOEQUALS says the order of records is not guaranteed.

So, with NOEQUALS it is difficult to compare the outputs. If you really want to 
compare, then you need to have EQUALS and then both products will give you the 
same results.

I guess this is what has caused the notion that the two products behave 
differently from your earlier migration efforts.

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

Fwd: Syncsort > DFsort migration

[Edward Gould]

The only issue I ran into (this was years ago) was that if you use the PARM in 
Syncsort of “EQUAL” expect different output in DFSORT.. We did not run into 
this but a friend did. There are items in Syncsort that are different in 
DFSORT. Syncsort made the decision that some of the (I do not have a manual in 
front of me but certain commands do not work the same or do not work in DFSORT) 
so be careful.
Ed

> Begin forwarded message:
> 
> From: Richard McIntosh 
> Subject: Syncsort > DFsort migration
> Date: August 26, 2023 at 6:52:58 AM CDT
> To: IBM-MAIN@LISTSERV.UA.EDU
> Reply-To: IBM Mainframe Discussion List 
> 
> We are starting to do a very rushed syncsort to DFsort migration.
> I am assuming most of the sort ports are identical, but I bet not all of them.
> Does anyone have a list of parms that need to be looked at?
> Or anything thing else that I should be aware of.
> 
> Thanks in advance for your time in replying.
> 
> Richard M
> 
> 
> --
> 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: Syncsort > DFsort migration

[Sri h Kolusu]

>>., an application sort execution, such as SAS-invoked PROC SORT under DFSORT 
>>does not exploit zSORT/SORTL (SAS INSTITUTE responded "not planned 
>>enhancement, and customers are not asking for it either.")

Scott,

Program invoked Sorts can exploit zSORT/SORTL if DFSORT can do the reads and 
writes. So, passing SORTDD= via parameter list will help to ensure that you 
can use zsort if you don't run into any other restrictions.

>- unsure about how a "new" DFSORT site

Any specific reason for using the word "new" ?  DFSORT site has been the same 
for a long time. https://www.ibm.com/support/pages/dfsort   or 
ibm.com/storage/dfsort ( will be re-directed to first link) is generally 
updated with every release or with any new enhancements.

>> converting from use of PGM=SYNCSORT, PGM=SYNCGENR, PGM=SYNCTOOL, will "under 
>> the covers via a program alias" will get the DFSORT-equivalent - surely 
>> there must be some documented knob-turning with DFSORT 
>> install/implementation at IBM.COM ??

DFSORT doesn't have "under the cover" aliases for the other product,  but will 
provide the necessary JCL to create the alias if requested.

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: Syncsort > DFsort migration

[Scott Barry]

On Sat, 26 Aug 2023 11:52:58 +, Richard McIntosh 
 wrote:

>We are starting to do a very rushed syncsort to DFsort migration.
>I am assuming most of the sort ports are identical, but I bet not all of them.
>Does anyone have a list of parms that need to be looked at?
>Or anything thing else that I should be aware of.
>
>Thanks in advance for your time in replying.
>
>Richard M

Some relevant points/considerations/concerns:
- SYNCSORT (now SYNCSORT MFX re-branded with Precisely marketing over-reach) 
use of /$ORTPARM DD (e.g., ELAP, VSCORE/VSCORET, others)  and DFSORT uses 
//SORTCNTL DD or //DFSPARM DD - clearly may involve external JCL-changes.
- DFSORT generates enhanced SYSOUT diagnostics when //SORTDIAG DD DUMMY coded; 
otherwise with SYNCSORT uses $ORTPARM DD control parameters
- "out of the box" DFSORT ICEMAC definitions pretty well tuned; otherwise 
unsure about current-methodology with SYNCSORT.
- SYNCSORT (namely ZPSaverSuite) may have zIIP-offload exploitation; otherwise, 
DFSORT not-so-much - an IBM-declared statement, presumed that the z15/z16 
zSORT/SORTL on-chip approach taken, but only "compliant" SORT-executions (e.g., 
an application sort execution, such as SAS-invoked PROC SORT under DFSORT does 
not exploit zSORT/SORTL (SAS INSTITUTE responded "not planned enhancement, and 
customers are not asking for it either.")
- unsure about "native SORT" using SYNCSORT (more current 
release/version/maintenance) and z15/z16 zSORT/SORTL (Accelerator).
- SYNCSORT may be implemented with SAS application PROC SYNCSORT; otherwise SAS 
PROC SORT using DFSORT calls for SAS CONFIG parameter SORTBLKMODE.
- DB2 sort-operation considerations - unknown about if/how/where SYNCSORT might 
get invoked; otherwise, with DFSORT consider IBM PH03207 and later 
documentation available for z15/z16 zSORT/SORTL exploitation.
- unsure about how a "new" DFSORT site, converting from use of PGM=SYNCSORT, 
PGM=SYNCGENR, PGM=SYNCTOOL, will "under the covers via a program alias" will 
get the DFSORT-equivalent - surely there must be some documented knob-turning 
with DFSORT install/implementation at IBM.COM ??
- z/OS address space control/mgmt of REGION / MEMLIMIT (job- and job-step 
level) influences how a HOST-SORT solution can exploit memory over disk for 
SORT-WORK operations.
- With a DFSORT implementation, active SMF type 16 (especially pay attention to 
DFSORT complaining when it cannot exploit zSORT/SORTL for whatever reason); 
otherwise, SYNCSORT has some near-equivalent sort invocation/performance data 
source when implemented with the SMF=(ON,nnn|208) parameter.
- Likely both SYNCSORT and DFSORT behave as-expected when SORT-WORK allocations 
are made dynamically; otherwise consider HOST-SORT behavior when JCL-coded 
SORT-WORK DD allocations are made/used (e.g., DSNTYPE=LARGE, no VOL-ADD support 
for either DFSORT or SYNCSORT.  Again, coding //SORTDIAG DD DUMMY will enhance 
the diagnostic-messages output sent to //SYSOUT DD for DFSORT operations 
(unsure if SYNCSORT has a special DD-name opportunity or otherwise is only 
driven with $ORTPARM DD override with MSG=  parameter coding technique.)
- by all means affordedexploit / engage available IBM/ISV/vendor SUPPORT 
services to ensure your solution implementation is as optimized as possible -- 
fortunately both IBM DFSORT and PRECISELY SYNCSORT technical support teams are 
always very helpful, in my past experience.


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: Syncsort > DFsort migration

[Sri h Kolusu]

>> We are starting to do a very rushed syncsort to DFsort migration.

Richard,

Thank you for your interest in migrating to DFSORT.  I will send you an offline 
mail with a couple of attachments which describes in detail about the parms and 
the needed changes. 

Thanks,
Sri Hari 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

Syncsort > DFsort migration

[Richard McIntosh]

We are starting to do a very rushed syncsort to DFsort migration.
I am assuming most of the sort ports are identical, but I bet not all of them.
Does anyone have a list of parms that need to be looked at?
Or anything thing else that I should be aware of.

Thanks in advance for your time in replying.

Richard M


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