On 5/8/2018 12:50 PM, Jake Anderson wrote:
Lizette,
We are using EJES. I think it has its own rexx interface.
So finding a way to know the destination based on first character of a
Jobname.
Listing the destination for each job whose name starts with $ is trivial
in (E)JES. You don't even nee
a.edu
Subject: Re: [TSO-REXX] Sdsf rexx
> On May 11, 2018, at 10:25 AM, Paul Gilmartin
> <000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>
> When I first encountered SPF panel definitions were RECFM=VB. I coded some
> and
> modified others. I experienced co
> On May 12, 2018, at 7:31 PM, Paul Gilmartin
> <000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>
>> SNIP---
> Ironically, it already exists in z/OS: /bin/patch, but people are loath to
> use it --
> perhaps they ass
On Sat, 12 May 2018 16:02:26 -0500, Edward Gould wrote:
>>
>> When I first encountered SPF panel definitions were RECFM=VB. I coded some
>> and
>> modified others. I experienced conversion anguish when a later release went
>> to
>> RECFM=FB.
>>
>> IEBUPDTE is broken. That doesn't forgive bre
> On May 11, 2018, at 10:25 AM, Paul Gilmartin
> <000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>
> When I first encountered SPF panel definitions were RECFM=VB. I coded some
> and
> modified others. I experienced conversion anguish when a later release went
> to
> RECFM=FB.
>
> IEB
<mailto:phil.carl...@aexp.com>
TEKSystems
“The Universe is made up of Protons, Neutrons, Electrons & Morons!”
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Charles Mills
Sent: Friday, May 11, 2018 10:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [TSO-REXX]
: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [TSO-REXX] Sdsf rexx
On Fri, 11 May 2018 13:56:24 +0100, Mike Wawiorko wrote:
>OUTTRAP with LISTD dsname M ?
>
>I'm pretty sure others will have better suggestions.
>
There's also an ISPF facility for this.
In days of yore I have allocated a PDS
On Fri, 11 May 2018 13:56:24 +0100, Mike Wawiorko wrote:
>OUTTRAP with LISTD dsname M ?
>
>I'm pretty sure others will have better suggestions.
>
There's also an ISPF facility for this.
In days of yore I have allocated a PDS with RECFM=F,LRECL=256,DSORG=PS
and read with Rexx EXECIO and parsed
On Thu, 10 May 2018 23:47:27 -0500, Edward Gould wrote:
>>
>> Fear of indention is collateral damage of RECFM=FB,80. When Rexx first came
>> to TSO it came with a GIM that recommended RECFM=VB,LRECL=generous.
>> IBM then ignored its own advice and made SYSPROC FB,80, dragging wiser
>> coders down
> Mainframe Systems Programmer – RavenTek Solution Partners
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Hobart Spitz
> Sent: Friday, May 11, 2018 9:57 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: [
r) <
Mainframe Systems Programmer – RavenTek Solution Partners
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Hobart Spitz
Sent: Friday, May 11, 2018 9:57 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: [TSO-REXX] Sdsf
ammer – RavenTek Solution Partners
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Hobart Spitz
> Sent: Friday, May 11, 2018 9:48 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [EXTERNAL] Re: [TSO-REXX] Sdsf rexx
>
> &
mer – RavenTek Solution Partners
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Hobart Spitz
Sent: Friday, May 11, 2018 9:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: [TSO-REXX] Sdsf rexx
"pipe listpds" dsn &q
CC = 0 THEN DO
> SET &LEN=&LENGTH(&MEMPGM)
> SET &MEM=&SUBSTR(1:&LEN,&MEMPGM)
> SET &MEMPGM=&MEM
> ISPEXEC VPUT (MEMPGM)...
> and so on
>
>
>
> Carmen Vitullo
>
> - Original Message -
>
> From: "Mike Wawiorko"
(1:&LEN,&MEMPGM)
SET &MEMPGM=&MEM
ISPEXEC VPUT (MEMPGM)...
and so on
Carmen Vitullo
- Original Message -
From: "Mike Wawiorko" <014ab5cdfb21-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Friday, May 11, 2018 7:56:24 AM
Subjec
[TSO-REXX] Sdsf rexx
...
Is there any way to get the member names in a PDSE with REXX?
I need to extract the member names in a PDSE and plug them into a job stream.
...
This e-mail and any attachments are confidential and intended solely for the
addressee and may also be privileged or e
Hobart Spitz
Sent: Thursday, May 10, 2018 9:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [TSO-REXX] Sdsf rexx
For those who may not be aware, SIGNAL is *not* a GOTO.
I counted 18 SIGNALs, and only 1 CALL. Many of the SIGNALs here seem to
have been better done with DO...END.
In the words of TRL
> On May 10, 2018, at 10:30 PM, Paul Gilmartin
> <000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>
> ——SNIP---
>
> Fear of indention is collateral damage of RECFM=FB,80. When Rexx first came
> to TSO it came with a GIM that recommended RECFM=VB,LRECL=
On Thu, 10 May 2018 21:09:48 -0400, Hobart Spitz wrote:
>For those who may not be aware, SIGNAL is *not* a GOTO.
>
>I counted 18 SIGNALs, and only 1 CALL. Many of the SIGNALs here seem to
>have been better done with DO...END.
>
>In the words of TRL, SIGNAL terminates "all active pending DO loops,
AME='STATOUT'
> ISFPRTDSNAME= "'"OUTDS"'"
> ISFPRTDEST='NEW'
> ISFPRTRECFM = 'FB'
> ISFPRTLRECL = '143'
> ISFPRTBLKSIZE= '14300'
> /*ISFPRTVOLSER= 'XCICS1' */
> ISFPRTSPACETYPE = 'BLKS&
TOKEN('"JDS_TOKEN.jx"') PARM(NP XDC)"
lrc = rc
if lrc = 0 then signal MOREDS
call msgrtn
MOREDS:
/look for more STAT (S00*) DATASETS ******/
sjx =sjx+1
signal setjx
/*CALL msgrtn */
endit:
EXIT
nextjob:
/***process more jobs with the same jobname **/
six = si
ussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Jake Anderson
> Sent: Tuesday, May 08, 2018 12:51 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Fwd: [TSO-REXX] Sdsf rexx
>
> Cross posted
>
> Lizette,
>
> We are using EJES. I think it has its own rexx int
Cross posted
Lizette,
We are using EJES. I think it has its own rexx interface.
So finding a way to know the destination based on first character of a
Jobname.
-- Forwarded message --
From: Lizette Koehler
Date: Wed, May 9, 2018 at 12:20 AM
Subject: Re: [TSO-REXX] Sdsf rexx
23 matches
Mail list logo