*Yakity Yak - The Coasters April 1958. *
I'm more of a Jeff Beck man. You're everywhere and nowhere baby.(Hi Ho
Silver Lining).
Or the inimitable Mrs Doubtfire (oooh, all over the place!).
--
For IBM-MAIN subscribe /
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Sri h Kolusu [skol...@us.ibm.com]
> Sent: Tuesday, May 26, 2020 9:49 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How to get last node in DFSORT
>
> > Empirically, I found I c
: Re: How to get last node in DFSORT
> Empirically, I found I couldn't create a DSN starting with a period even
> within apostrophes. I don't know where this is documented.
Gil,
This works fine for me
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
dummyrecord
//SORTOUT D
> Empirically, I found I couldn't create a DSN starting with a period even
> within apostrophes. I don't know where this is documented.
Gil,
This works fine for me
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
dummyrecord
//SORTOUT DD PATH='/tmp/.create.dsn.with.period',
//
On Tue, 26 May 2020 22:50:10 +, Seymour J Metz wrote:
>
>Well, if it were up to me z/OS would support cataloged data sets with longer
>index levels, but circumstances being what they are I'd rather not parse them.
>Besides, they're only valid inside of apostrophes.
>
DISABLE(DSNCHECK)
Discussion List On Behalf Of
Seymour J Metz
Sent: Tuesday, May 26, 2020 6:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to get last node in DFSORT
> And Sri's example contained a node longer than 8 bytes.
Well, if it were up to me z/OS would support cataloged data sets with longer
in
alf of
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Tuesday, May 26, 2020 6:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to get last node in DFSORT
On Tue, 26 May 2020 19:42:31 +, Seymour J Metz wrote:
>Well, in this case the hammer is the reverse fu
On Tue, 26 May 2020 19:42:31 +, Seymour J Metz wrote:
>Well, in this case the hammer is the reverse function;
>/\.([#$@[:upper:][:digit:]]{1,8})\n/, despite the awkward syntax, is still
>cleaner.
>
I was more thinking of the OP's requirement for DFSORT as the hammer.
And Sri supplied a
m: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
> Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
> Sent: Tuesday, May 26, 2020 2:51 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How to get last node in DFSORT
>
> On Sun, 24 May 2020 05:02:2
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Tuesday, May 26, 2020 2:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to get last node in DFSORT
On Sun, 24 May 2020 05:02:24 +
On Sun, 24 May 2020 05:02:24 +, Seymour J Metz wrote:
>That sounds like a great use case for regexen.
>
Ob"When your favorite tool is a hammer ..."
>
>From: Billy Ashto
>Sent: Friday, May 22, 2020 3:57 PM
>
>I have an 80-byte LRECL list of filenames
/22/2020 8:44:32 PM
Subject: Re: How to get last node in DFSORT
Col 51...
For some reason the original question did not arrive in my inbox, but the
subsequent emails came in. So I did not see the actual requirement. So
adjusted the control cards to put the last node at position 51
That sounds like a great use case for regexen.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Billy Ashton [bill00ash...@gmail.com]
Sent: Friday, May 22, 2020 3:57 PM
Sri,
I ignored the cc51 in my first attempt. I had to post using a fixed font
too, so that the last field actually did appear in cc51 as viewed.
Love your work BTW.
Regards.
On Sat, May 23, 2020 at 10:44 AM Sri h Kolusu wrote:
> > Col 51...
>
> For some reason the original question did not
> Col 51...
For some reason the original question did not arrive in my inbox, but the
subsequent emails came in. So I did not see the actual requirement. So
adjusted the control cards to put the last node at position 51 now. Here
are the updated control cards.
//SYSINDD *
OPTION COPY
Col 51...
/* REXX */
ADDRESS TSO
'ALLOC F(INDD) DA(OUTLIST(DSNS)) SHR REUSE'
"EXECIO * DISKR INDD (STEM LINE. FINIS"
SAY '+1+2+3+4+5+6'
DO I = 1 TO LINE.0
STR = PARSIT(LINE.I)
END
EXIT
PARSIT:
ARG STR
REV = REVERSE(STR)
/* REXX */
ADDRESS TSO
'ALLOC F(INDD) DA(OUTLIST(DSNS)) SHR REUSE'
"EXECIO * DISKR INDD (STEM LINE. FINIS"
DO I = 1 TO LINE.0
STR = PARSIT(LINE.I)
END
EXIT
PARSIT:
ARG STR
REV = REVERSE(STR)
PARSE VALUE REV WITH LASTVAR '.' .
LASTVAR = REVERSE(LASTVAR)
SAY STR LASTVAR
Billy,
Use the following DFSORT JCL which will give you the desired results
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
A.B.C.D.E
A.B.C.D.EF
A.B.C.D.EFG
A.B.C.D.EFGH
A.B.C.D.EFGHI
A.B.C.D.EFGHIJ
A.B.C.D.EFGHIJK
A.B.C.D.EFGHIJKL
JOSEPH.CONTROL.SAMPLIB.JCL
REV = REVERSE(PRODUCTION.CONTROL.VSAM.DATABASE.INDEX)
PARSE VALUE REV WITH LASTNODE '. ' .
LASTNODE = REVERSE(LASTNODE)
On Sat, May 23, 2020 at 7:16 AM Wayne Bickerdike wrote:
> Use REXX REVERSE function.
> Then parse out the first value.
> Reverse it again.
>
>
> On Sat, May 23, 2020
Use REXX REVERSE function.
Then parse out the first value.
Reverse it again.
On Sat, May 23, 2020 at 5:57 AM Billy Ashton wrote:
> Hi folks! This should be easy, but it escapes me...
>
> I have an 80-byte LRECL list of filenames (starting in col 1, varying
> lengths), and I need to capture
20 matches
Mail list logo