SV: Rexx parse using period as placeholder

[Lars Höglund]

??

4 *-* myVar = 'word1 word2 9.12 word3.ext'  
  >>>   "word1 word2 9.12 word3.ext"
5 *-* Parse Value myVar with . . . myVal2 '.' . 
  >>>   "word1 word2 9.12 word3.ext"
  >.>   "word1" 
  >.>   "word2" 
  >.>   "9" 
  >>>   ""  
  >.>   "12 word3.ext"  



-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Bob Bridges
Skickat: den 27 februari 2020 17:37
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Rexx parse using period as placeholder

I'm confused by this whole thread.  I'm surprised at the behavior of the 
program, I'm baffled why Shmuel would ask why Thomas is surprised, and I don't 
understand what Thomas means by saying "it is the definition of a blank 
delimited word" that escaped him.

The obvious behavior of the parse statement - obvious to me - is this:

  *-* Parse Value myVar with . . . myVal2 '.' .
  >>>   "word1 word2 9.12 word3.ext"
  >.>   "word1"
  >.>   "word2"
  >.>   "9.12"
  >>>   "word3"
  >.>   "ext"

Surely this is what Thomas expected.  I can't imagine what would legitimately 
cause REXX to behave in any other way - and I don't understand why anyone would 
expect anything different.  Now I'm going to go read that link someone posted 
that's supposed to explain it.  But I don't get it.

---

Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* ...the director and the writers keep changing the script.  The actors will 
do a scene, and the director will say, "OK, that was perfect, but this time, 
Bob, instead of saying 'What's for dinner?' you say, 'Wait a minute!
Benzene is actually a hydrocarbon!'  And say it with a Norwegian accent.
Also, we think maybe your character should have no arms."  -Dave Barry, 
describing his acting debut in "Dave's World" */

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ambros, Thomas
Sent: Monday, February 24, 2020 16:27

You mean like this?

*-* Parse Value myVar with . . . myVal2 '.' .
>>>   "word1 word2 9.12 word3.ext"
>.>   "word1"
>.>   "word2"
>.>   "9"
>>>   ""
>.>   "12 word3.ext"

But you're correct, variables result in the same behavior:

*-* Parse Value myVar with t1 t2 t3 myVal2 '.' .
>>>   "word1 word2 9.12 word3.ext"
>>>   "word1"
>>>   "word2"
>>>   "9"
>>>   ""
>.>   "12 word3.ext"

So it is the definition of a blank delimited word that escaped me.  I'll look 
for a precise definition of one of those in the context of Rexx. 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Monday, February 24, 2020 16:17

Why did it surprise you, and what does it have to do with the placeholders?
You'd get the same thing if you used three variable names instead of three 
periods. The parse with works because it's using a different template on a 
different value: try

parse Value myVar with . . . myVal '.' .


From: Ambros, Thomas [010f77c934b1-dmarc-requ...@listserv.ua.edu]
Sent: Monday, February 24, 2020 3:43 PM

A trivial item, but this surprised me.

I wanted to parse out the string 'word3' using the period as a place holder.
The input could have a blank delimited string containing an embedded period 
before the one I wanted to parse out.  The Parse Var as coded didn't work.
Using the Parse Value as coded there does work.  I didn't know it would behave 
like that.  I can't seem to find this documented but I might have overlooked 
something.

myVar = 'word1 word2 9.12 word3.ext'
Parse Var myVar . . . myVal '.' .
Parse Value Subword(myVar,4) with myVal2 '.' .
Say 'myVal=' myVal
Say 'myVal2=' myVal2
Exit

Trace R of that code:

 3 *-* myVar = 'word1 word2 9.12 word3.ext'
   >>>   "word1 word2 9.12 word3.ext"
 4 *-* Parse Var myVar . . . myVal '.' .
   >.>   "word1"  -
   >.>   "word2"
   >.>   "9"
   >>>   ""
   >.>   "12 word3.ext"
 5 *-* Parse Value Subword(myVar,4) with myVal2 '.' .
   >>>   "word3.ext"
   >>>   "word3"
   >.>   "ext"
 6 *-* Say 'myVal=' myVal
   >>>   "myVal= "
myVal=
 7 *-* Say 'myVal2=' myVal2
   >>>   "myVal2= word3"
myVal2= word3
 8 *-* Exit

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

SV: REXX LISTDSI error

[Lars Höglund]

Why are You using single quotation?
Why are You using quotation at all (except for the actual TSO-command) ?

//Lasse


-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Bill 
Giannelli
Skickat: den 2 oktober 2019 11:32
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: REXX LISTDSI error

I have the following rexx command:

ADDRESS TSO   
'CALL LISTDSI ( dataset.TXT NORECALL)' 
ADDRESS TSO   
'IF SYSREASON = 9  THEN "HDELETE  dataset.TXT WAIT"
ELSE "DELETE  dataset.TXT"'  

This keeps returning a RC of -3.
processes the rest of the rexx successfully But then leaves the dataset 
"dataset.txt" as uncataloged.
Why would it have an uncataloged dataset?
thanks for any help.
Bill  

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

SV: [External] dfsort SUM processing

[Lars Höglund]

Isn't this 16 numbers and You are doing sum on 15

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För ITschak 
Mugzach
Skickat: den 24 oktober 2019 15:19
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: [External] dfsort SUM processing

Rex,

x'F5' is a valid sign for (positive) ZD field. I already read this section, and 
the number to sum (all are the same) is valid ZD number.

ITschak

On Thu, Oct 24, 2019 at 4:15 PM Pommier, Rex 
wrote:

> Just a wild guess here, is the SUM statement looking for a signed field?
>
> From the DFSORT manual:
> An invalid PD or ZD sign or digit results in a data exception (0C7 
> ABEND); 0-9are invalid for the sign and A-F are invalid for the digit. 
> For example, a ZDvalue such as 3.5 (X'F34BF5') results in an 0C7 
> because "." (X'4B') is treated as an invalid digit. ICETOOL's DISPLAY 
> or VERIFY operator can be used to identify decimal values with invalid 
> digits. ICETOOL's VERIFY operator can be used to identify decimal values with 
> invalid signs.
>
> Rex
>
> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of ITschak Mugzach
> Sent: Thursday, October 24, 2019 8:09 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [External] dfsort SUM processing
>
> the following situation return abend0c7:
> 1. sort fields=(1,4,ch,a,9,5,ch,a)
>sum  fields=(245,15,ZD)
>sum statement caused the abend. without sum, no issue.
>
> 2. run icetool verify and print. bothe ended with rc=0. print show 
> x'f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f5'
> with seems to be ok.
>
> why am I getting abend0c7?
>
> --
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Contiguous 
> Monitoring for Legacy **|  *
>
> --
> 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
>


--
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for 
Legacy **|  *

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

SV: [External] dfsort SUM processing

[Lars Höglund]

x'f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f5'   is 16 digits or

But right, it should work anyhow even if You are doing sum on the first 15

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För ITschak 
Mugzach
Skickat: den 24 oktober 2019 15:37
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: [External] dfsort SUM processing

No, and even if so, all are numbers and can be sub summerized with a valid sign 
of F.

בתאריך יום ה׳, 24 באוק׳ 2019, 16:35, מאת Lars Höglund ‏<
lars.hogl...@alecta.se>:

> Isn't this 16 numbers and You are doing sum on 15
>
> //Lasse
>
> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List  För 
> ITschak Mugzach
> Skickat: den 24 oktober 2019 15:19
> Till: IBM-MAIN@LISTSERV.UA.EDU
> Ämne: Re: [External] dfsort SUM processing
>
> Rex,
>
> x'F5' is a valid sign for (positive) ZD field. I already read this 
> section, and the number to sum (all are the same) is valid ZD number.
>
> ITschak
>
> On Thu, Oct 24, 2019 at 4:15 PM Pommier, Rex 
> wrote:
>
> > Just a wild guess here, is the SUM statement looking for a signed field?
> >
> > From the DFSORT manual:
> > An invalid PD or ZD sign or digit results in a data exception (0C7 
> > ABEND); 0-9are invalid for the sign and A-F are invalid for the digit.
> > For example, a ZDvalue such as 3.5 (X'F34BF5') results in an 0C7 
> > because "." (X'4B') is treated as an invalid digit. ICETOOL's 
> > DISPLAY or VERIFY operator can be used to identify decimal values 
> > with invalid digits. ICETOOL's VERIFY operator can be used to 
> > identify decimal values
> with invalid signs.
> >
> > Rex
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On 
> > Behalf Of ITschak Mugzach
> > Sent: Thursday, October 24, 2019 8:09 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: [External] dfsort SUM processing
> >
> > the following situation return abend0c7:
> > 1. sort fields=(1,4,ch,a,9,5,ch,a)
> >sum  fields=(245,15,ZD)
> >sum statement caused the abend. without sum, no issue.
> >
> > 2. run icetool verify and print. bothe ended with rc=0. print show 
> > x'f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f5'
> > with seems to be ok.
> >
> > why am I getting abend0c7?
> >
> > --
> > ITschak Mugzach
> > *|** IronSphere Platform* *|* *Information Security Contiguous 
> > Monitoring for Legacy **|  *
> >
> > 
> > -- 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
> >
>
>
> --
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Contiguous 
> Monitoring for Legacy **|  *
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

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

SV: Looking for some large COBOL program examples

[Lars Höglund]

Got one,  161.000 lines

Will compile with

5655-EC6 IBM Enterprise COBOL for z/OS  6.2.0 P190522

//Lasse 

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Charles Mills
Skickat: den 12 december 2019 18:17
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Looking for some large COBOL program examples

Thanks. The requirement is for COBOL. But thanks anyway.

While I have the thread open, something I failed to say in the request: I only 
want to compile, not link or execute, so if your program calls a bunch of local 
assembler routines, no problem, I don't need them, just the COBOL. Nor would I 
need any run-time files.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Robert Prins
Sent: Thursday, December 12, 2019 9:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Looking for some large COBOL program examples

On 2019-12-10 18:45, Charles Mills wrote:
> I am looking for some sample COBOL programs of say 20,000 or more 
> lines. I really don't care what they do, so long as they will compile 
> (or could easily be made to compile) to an RC 0 or 4 under both 
> Enterprise COBOL 4 and Enterprise COBOL 6.
> 
> Among other purposes I am working on a possible SHARE presentation 
> about the relative compile times and so forth for COBOL 4 versus 6, optimized 
> and not.
> 
> The largest COBOL program I have in my inventory is 5489 lines. I 
> would happily accept anything from 10,000 to a million lines. A 
> pointer to publicly-available code would work also, of course. I have 
> Googled "COBOL sample code" but not found anything substantial. Most 
> examples tend to be fairly simple.
> 
> I would need any required COPY members, of course.
> 
> Obviously, check with your boss before you send me anything. Send off-list.
> Don't send the source code with the recipe for the secret sauce. I 
> would be willing to sign an NDA assuming it were not too onerous, and 
> would safeguard and not share the code in any event.

Happy to share a 17,000+ line PL/I program, PM me if you want a copy, code is 
GPL'ed, so you can basically do with it whatever you want.

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

SV: INTRDR and submitted JobID

[Lars Höglund]

Hi
Do You the reason why the default for SYSSYM is DISALLOW?

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Lizette 
Koehler
Skickat: den 14 oktober 2020 20:38
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: INTRDR and submitted JobID

I think System Symbols are only available when the JES2 Class says SYSSYM=ALLOW 
Otherwise I think they are not available to a batch job.

They are probably available to an STC

Lizette

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
h Kolusu
Sent: Wednesday, October 14, 2020 11:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INTRDR and submitted JobID

> I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract a 
> job's own JobID.  Is there a simpler way?

Gil,

How about using system symbols &SYSJOBID and &SYSJOBNM ?  Something like this?


//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTOUT  DD SYSOUT=(*,INTRDR)
//SYSINDD *
  OPTION COPY
//*
//SORTIN   DD DATA,DLM=$$
//SYMSUBJ  JOB (B004273,BIN#,BLDG#,DEPT#),&SYSUID,
// MSGCLASS=H,MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
/*
//  EXPORT SYMLIST=*
// SET SYSJOBNM=&SYSJOBNM,SYSJOBID=&SYSJOBID
/*
//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *,SYMBOLS=JCLONLY
JOBNAME FOR THIS JOB IS : &SYSJOBNM
JOBID FOR THIS JOB IS   : &SYSJOBID
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
/*
$$


Thanks,
Kolusu

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

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

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

SV: COBOL LIB

[Lars Höglund]

Isn't EASY it's own language? It definitely doesn't produce Cobol code.

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För CarlosM 
Martinez
Skickat: den 17 december 2020 23:27
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: COBOL LIB

Well I am a newbie in Z/OS my expertise is in VSE. But... everything here is 
hold on to your hat... EASYTRIEVE. I have not look at a complete Easytrieve 
compile but doesn't it produce cobol code?
We get our CICS online System compiled and shipped from a vendor and just load 
it to a loadlib. I looked on 3.4 of TSO for IGY and found NONE. 

Thank you all. 

Carlos Martinez
SUNY Downstate.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Beaver
Sent: Thursday, December 17, 2020 5:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL LIB

Do you even have any compiler procs?

Sent from my iPhone

> On Dec 17, 2020, at 16:02, Jousma, David 
> <01a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote:
> 
> COBOL compiler doesn't come with z/os.  It is separately purchased and 
> licensed,  so since you are asking, you may not have it.
> 
> From: IBM Mainframe Discussion List  on 
> behalf of CarlosM Martinez 
> Sent: Thursday, December 17, 2020 4:12:28 PM
> To: IBM-MAIN@LISTSERV.UA.EDU 
> Subject: COBOL LIB
> 
> **CAUTION EXTERNAL EMAIL**
> 
> **DO NOT open attachments or click on links from unknown senders or 
> unexpected emails**
> 
> Hello all,
> Does anyone know what library the COBOL compiler is in Z/OS 1.0 ?
> SYS1.???
> 
> Thank you
> Carlos Martinez
> SUNY Downstate Med. Center
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN 
> **CAUTION EXTERNAL EMAIL**
> 
> **DO NOT open attachments or click on links from unknown senders or 
> unexpected emails**
> 
> 
> ${If.App.WXP}Classification: Internal Use${If.End} This e-mail 
> transmission contains information that is confidential and may be privileged.
> It is intended only for the addressee(s) named above. If you receive 
> this e-mail in error, please do not read, copy or disseminate it in 
> any manner.  If you are not the intended recipient, any disclosure, 
> copying, distribution or use of the contents of
--
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

SV: JCL divergence

[Lars Höglund]

Anyone heard of

Opswise - Universal Automation Center from Stonebranch

http://filer.datab.se/opswise-ac-datasheet.pdf


//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För R.S.
Skickat: den 28 december 2020 14:35
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: JCL divergence

W dniu 23.12.2020 o 00:35, John McKown pisze:
> On Tue, Dec 22, 2020 at 5:26 PM Gibney, Dave  wrote:
>
>> WindowsJob...Huh
>>
> Right. I am so ignorant, perhaps the Windows (and Linux?) world 
> doesn't even have any unattended scheduled activities. I know that 
> there is a "Windows Scheduler" that can run a batch file (MSDOS .bat) 
> automatically at a given time or when a particular user does a "log 
> on" (perhaps akin to a TSO logon proc).
>
> If the above is true (no automated unattended work), I wonder how 
> companies do {month,quarter,year}-end processing to generate reports 
> to send to appropriate governmental bodies. Or even, as in my 
> employer, to policyholders.

As other said, there are many batch schedulers available on Windows (and 
Linux). Some of them are well known mainframe product cousins like BMC 
ControlM, IBM TWS (former OPC), CA ESP. However there are other tools, which 
grew up on Windows platform and they have no z/OS version or this version is 
really poor. I warned you ;-) However it is extremely important to understand 
there are big differences between JCL (z/OS) and Windows world. Yes, JCL (and 
z/OS and
JES) is much, much better. And there are significant differences between z/OS 
and Windows based tool. Everything looks good when you schedule single step 
IEFBR14 job on one side and "echo Hello world" on the other side. But it is not 
usual production batch flow.

--
Radoslaw Skorupka
Lodz, Poland





==

Jeśli nie jesteś adresatem tej wiadomości:

- powiadom nas o tym w mailu zwrotnym (dziękujemy!),
- usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś 
na dysku).
Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać 
tylko adresat. Przypominamy, że każdy, kto rozpowszechnia (kopiuje, 
rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może 
podlegać karze.

mBank S.A. z siedzibą w Warszawie, ul. Prosta 18, 00-850 Warszawa,www.mBank.pl, 
e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział 
Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. 
Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2020 r. wynosi 
169.401.468 złotych.

Jesteśmy administratorem twoich danych osobowych, które podałeś w związku z 
prowadzoną z nami korespondencją. Przetwarzamy te dane dla celów, które 
wynikają z przedmiotu korespondencji, w tym związanych z prowadzoną 
działalnością bankową.
Więcej informacji o tym jak chroniony i przetwarzamy dane osobowe znajdziesz w 
Pakietach RODO (w wersji polskiej i angielskiej), które są na www.mbank.pl/rodo


If you are not the addressee of this message:

- let us know by replying to this e-mail (thank you!),
- delete this message permanently (including all the copies which you have 
printed out or saved).
This message may contain legally protected information, which may be used 
exclusively by the addressee.Please be reminded that anyone who disseminates 
(copies, distributes) this message or takes any similar action, violates the 
law and may be penalised.

mBank S.A. with its registered office in Warsaw, ul. Prosta 18, 00-850 
Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital 
City of Warsaw, 12th Commercial Division of the National Court Register, KRS 
025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 
169.401.468 as at 1 January 2020.

We are the controller of your personal data, which you provided in connection 
with correspondence with us. We process your data for purposes resulting from 
the subject of correspondence, including those related to the banking services.
More information on how we protect and process personal data can be found in 
the GDPR Packages (in English and Polish), which are on www.mbank.pl/rodo.

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

Rexx TRANSLATE command

[Lars Höglund]

Hi

Looking at Doug Nadel VCURSOR and having a problem understanding the TRANSLATE 
he Is doing

trtable='abcdefghijklmnopqrstuvwxyz'   /* Setup valid dsname chars   */
trtable=trtable!!translate(trtable)!!'ÅÄÖ0123456789.''-ä()'
trtable=translate(xrange('00'x,'FF'x),,trtable,' ')
zscreeni=translate(zscreeni,,trtable,' ') /* Remove non-Dsn chars*/

It works most of the times (in Edit, View, Browse, SDSF...)

But when I'm using it on datasetnames with '00'x surrounding it, it works in 
Edit and View, NOT in Browse mode

Doesn't TRANSLATE work the same way regardless of mode?

Sample:

.K39828.ISP.EXEC.. HEX BEFORE AND AFTER
40DF4CED4CECC004CCE4CCCDDC4CDC4CCECD4
00239828B927B5753010857025669501540163590

  K39828.ISP.EXEC   NO HEX
44DF4CED4CECC444DD4CCE444
00239828B927B5753000560857000

The result:

   Menu  Utilities  Compilers  Help
 sss
BROWSEK39828.A.CNTL(VCUR) - 01.01  Li   Data set not cataloged
 Command ===>  Scroll ===> CSR
* Top of Data **
.K39828.ISP.EXEC.. HEX BEFORE AND AFTER
  K39828.ISP.EXEC   NO HEX
 Bottom of Data 


   _
   e 'K39828..K39828.ISP.EXEC..' was not found in catalog. e
   _

//Lasse

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

Sv: Rexx TRANSLATE command

[Lars Höglund]

I think that I found it

ZSCREENI is just a "photo" of the screen, so '00'x is presented as "blank" 
(nondisplay) in Edit and View, but '.' when in Browse. 
So the '.' will be treated as a '.' ('4B'x) and not what is really is ('00'x)

So VCURSOR will not work in that situation

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Seymour J 
Metz
Skickat: den 9 november 2023 12:59
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Rexx TRANSLATE command

The translate function is part of REXX, not part of ISPF. You are having an 
ISPF issue.

I've never tried modifying ZSCREEN, but I suspect that translating the whole 
thing is messing up the format that ISPF expects. Is ISPF-L still a thing?

-- 
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
עַם יִשְׂרָאֵל חַי



________
From: IBM Mainframe Discussion List  on behalf of 
Lars Höglund 
Sent: Thursday, November 9, 2023 3:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Rexx TRANSLATE command

Hi

Looking at Doug Nadel VCURSOR and having a problem understanding the TRANSLATE 
he Is doing

trtable='abcdefghijklmnopqrstuvwxyz'   /* Setup valid dsname chars   */
trtable=trtable!!translate(trtable)!!'ÅÄÖ0123456789.''-ä()'
trtable=translate(xrange('00'x,'FF'x),,trtable,' ')
zscreeni=translate(zscreeni,,trtable,' ') /* Remove non-Dsn chars*/

It works most of the times (in Edit, View, Browse, SDSF...)

But when I'm using it on datasetnames with '00'x surrounding it, it works in 
Edit and View, NOT in Browse mode

Doesn't TRANSLATE work the same way regardless of mode?

Sample:

.K39828.ISP.EXEC.. HEX BEFORE AND AFTER
40DF4CED4CECC004CCE4CCCDDC4CDC4CCECD4
00239828B927B5753010857025669501540163590

  K39828.ISP.EXEC   NO HEX
44DF4CED4CECC444DD4CCE444
00239828B927B5753000560857000

The result:

   Menu  Utilities  Compilers  Help
 sss
BROWSEK39828.A.CNTL(VCUR) - 01.01  Li   Data set not cataloged
 Command ===>  Scroll ===> CSR
* Top of Data **
.K39828.ISP.EXEC.. HEX BEFORE AND AFTER
  K39828.ISP.EXEC   NO HEX
 Bottom of Data 


   _
   e 'K39828..K39828.ISP.EXEC..' was not found in catalog. e
   _

//Lasse

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

Sv: Custom ISPF command

[Lars Höglund]

3.9 

 Menu  Utilities  Help
ss 
Display APCMDS   Row 5 to 38 of 47 
Command ===>  Scroll ===> CSR  
   
The command table is currently open, it cannot be modified. Use the view(V)
row command to see an entire entry.
   
 Verb  T  Action   
 VC0  SELECT CMD(%VCURSOR &ZPARM)  



-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Lionel B. 
Dyck
Skickat: den 16 januari 2024 16:23
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Custom ISPF command

Create a site ISPF command table and add your commands to that.

See ISPF 3.9 and it will show you the defined ISPF command tables. There is one 
for each application (i.e. ISR), and then up to 3 user tables, 3 site tables, 
and one system table (ISP).

You define the command table names (prefixes) using TSO ISPCCONF to update the 
ISPF configuration table which is a load module for your linklist or steplib or 
ispllib.

Hope this helps point you in the right direction.


Lionel B. Dyck <><
Github: https://github.com/lbdyck

“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 
Radoslaw Skorupka
Sent: Tuesday, January 16, 2024 9:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Custom ISPF command

(It is better to ask than to stay uninformed)


I have created few simple REXX scripts for other folks.
Such script is located in SYSEXEC concatenation, so it can be issued using TSO 
SCRIPT1 or TSO SCRIPT2 PARM Recently I was asked to "make it ISPF native" - 
mean no TSO prefix in the command.
I believe it is feasible, but... how to do it?

--
Radoslaw Skorupka
Lodz, Poland

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

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

Sv: Custom ISPF command

[Lars Höglund]

Using this Rexx (from Douglas H Adams), works perfect)
Did rewrite some code

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Mark Zelden
Skickat: den 23 januari 2024 17:43
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Custom ISPF command

On Tue, 23 Jan 2024 07:54:50 -0600, Tom Marchant  
wrote:

>"Obviously, you still need to restart ISPF to enable the new commands."
>
>It isn't obvious to me. For another example of modifying the command 
>table dynamically, see Gilbert Saint-Fluor's FASTPATH command on the 
>CBT tape. I use it regularly. Issuing the FASTPATH command within ISPF 
>adds some commands to the command table and they are immediately usable.
>
>--

I use FASTPATH and also my own USERCMDS table, which at times I've had to 
incorporate into SITECMDS or ISPCMDS depending on what the ISPF customization 
is at the shop I'm at.

As far as adding them dynamically, on some systems I access rarely, I simply 
use this CLIST to add all "my stuff" after ISPF invocation.  So NO - you do not 
need to restart ISPF.  

http://www.mzelden.com/mvsfiles/ispcmdsa.txt


Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 
Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: 
http://www.mzelden.com/mvsutil.html

--
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
/ Rexx Procedure ***
*  *
* ISPF Commands Table Utility  *
*  *
* This utility is an alternative to ISPF/PDF option 3.9.   *
* It supports all the function of option 3.9 plus the following:   *
*  (1) Any application ID may be specified, even a currently active*
*  one (including ISP and ISR) -- if a table for an active *
*  application is changed, it is stored on DASD, but the active*
*  copy is not affected;   *
*  (2) The application ID defaults to the currently active one;*
*  (3) The output table library may be specified (the default is the   *
*  data set currently allocated to ISPTABL;*
*  (4) The following additional commands are supported:*
*  (a) FIND finds a character string within the verb, action or*
*  description fields; *
*  (b) LOCATE positions the display by verb;   *
*  (c) RFIND repeats the FIND action;  *
*  (d) SORT sorts by verb, except that all aliases are sorted at   *
*  the beginning of the commands table (aliases must precede   *
*  the commands they reference) -- the order of duplicate  *
*  verbs is preserved. *
*  *
* Additional members required: *
* Msgs:   CMDS00(imbedded) *
* Panels: CMDP001, CMDP001A (imbedded) *
* Tables: CMDSCMDS *
*  *
* Douglas H. Adams *
* Mail code 110-SH28   *
* Rockwell International Corporation   *
* 2201 Seal Beach Boulevard*
* P. O. Box 2515   *
* Seal Beach, California 90740-1515*
*  *
* (213) 797-2618   *
*  *
* September 19, 1990   *
*  *
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*
* partly rewritten 2013, by Lars Höglund Konsult AB (www.lhkab.com)*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*
*  *
* when   who  What   

Sv: How can I determine the User Name associated with the current Batch JOB RACF ID?

[Lars Höglund]

Something like this

Code Extract:

LINKAGE SECTION. 
 
01 CB1.  
  05 PTR1 POINTER OCCURS 512.
01 CVT.  
  05 CVT1 POINTER OCCURS 512.   
01 CB2.  
  05 PTR2 POINTER OCCURS 256.
.
.
.
SET ADDRESS OF CB2  TO PTR1(4)  
MOVE CB2(1:8)TO WS-BJOBNAMN
SET ADDRESS OF CB2  TO PTR1(46) 
MOVE CB2(361:8)  TO WS-BPGM
SET ADDRESS OF CB2  TO PTR2(80) 
MOVE CB2(13:8) TO  BJOBNR   
SET ADDRESS OF CB1  TO NULL 
SET ADDRESS OF CB1  TO PTR1(138)
SET ADDRESS OF CB2  TO PTR1(28) 
MOVE CB2(193:8) TO WS-BUSER 

 

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Cameron 
Conacher
Skickat: den 29 januari 2024 14:37
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: How can I determine the User Name associated with the current Batch JOB 
RACF ID?

[Du f?r inte e-post ofta fr?n 03cfc59146bb-dmarc-requ...@listserv.ua.edu. 
L?s om varf?r det h?r ?r viktigt p? 
https://aka.ms/LearnAboutSenderIdentification ]

Good Morning,
I know I can do this in CICS, but I am digging around to see if this can be 
done in a batch COBOL program.
Basically, I just want to include Fred's Name in a report I generate, where 
Fred is the RACF ID associate with the currently executing Batch JOB. (a COBOL 
program).
I could write something to call out to CICS (EXCI maybe) to get a name.
But I wanted to know if there is anyway to do this by calling some routines 
from my Batch COBOL program.

I am assuming right now, it is not possible since I have come up empty so far.

Thanks


Cameron Conacher
Senior Engineer

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

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

Sv: How can I determine the User Name associated with the current Batch JOB RACF ID?

[Lars Höglund]

Or check out

COB2JOB from https://gsf-soft.com/Freeware/

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För David Spiegel
Skickat: den 30 januari 2024 03:56
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: How can I determine the User Name associated with the current Batch 
JOB RACF ID?

Hi Cameron,
Can you please send me the source of your working program?
My email address is da...@ddstar.com

Thanks and regards,
David

On 2024-01-29 16:49, Cameron Conacher wrote:
> Thanks everyone,
> This is just what I needed.
>
> Appreciate the help.
>
>
> Thanks
>
> …….Cameron
>
> From: IBM Mainframe Discussion List  On 
> Behalf Of Lars Höglund
> Sent: Monday, January 29, 2024 11:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Sv: How can I determine the User Name associated with the current 
> Batch JOB RACF ID?
>
> Something like this Code Extract: LINKAGE SECTION. 01 CB1. 05 PTR1 
> POINTER OCCURS 512. 01 CVT. 05 CVT1 POINTER OCCURS 512. 01 CB2. 05 
> PTR2 POINTER OCCURS 256. . . . SET ADDRESS OF CB2 TO PTR1(4) MOVE 
> CB2(1: 8) TO WS-BJOBNAMN SET ADDRESS OF CB2
>
>
> Something like this
>
>
>
> Code Extract:
>
>
>
> LINKAGE SECTION.
>
>
>
> 01 CB1.
>
>05 PTR1 POINTER OCCURS 512.
>
> 01 CVT.
>
>05 CVT1 POINTER OCCURS 512.
>
> 01 CB2.
>
>05 PTR2 POINTER OCCURS 256.
>
> .
>
> .
>
> .
>
> SET ADDRESS OF CB2  TO PTR1(4)
>
> MOVE CB2(1:8)TO WS-BJOBNAMN
>
> SET ADDRESS OF CB2  TO PTR1(46)
>
> MOVE CB2(361:8)  TO WS-BPGM
>
> SET ADDRESS OF CB2  TO PTR2(80)
>
> MOVE CB2(13:8) TO  BJOBNR
>
> SET ADDRESS OF CB1  TO NULL
>
> SET ADDRESS OF CB1  TO PTR1(138)
>
> SET ADDRESS OF CB2  TO PTR1(28)
>
> MOVE CB2(193:8) TO WS-BUSER
>
>
>
>
>
>
>
> -Ursprungligt meddelande-
>
> Från: IBM Mainframe Discussion List 
> mailto:IBM-MAIN@LISTSERV.UA.EDU>> För 
> Cameron Conacher
>
> Skickat: den 29 januari 2024 14:37
>
> Till: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>
>
> Ämne: How can I determine the User Name associated with the current Batch JOB 
> RACF ID?
>
>
>
> [Du f?r inte e-post ofta fr?n 
> 03cfc59146bb-dmarc-requ...@listserv.ua.edu<mailto:03cfc59146bb
> -dmarc-requ...@listserv.ua.edu>. L?s om varf?r det h?r ?r viktigt p? 
> https://aka.ms/LearnAboutSenderIdentification<https://isolate.menlosec
> urity.com/1/3735928037/https:/aka.ms/LearnAboutSenderIdentification> ]
>
>
>
> Good Morning,
>
> I know I can do this in CICS, but I am digging around to see if this can be 
> done in a batch COBOL program.
>
> Basically, I just want to include Fred's Name in a report I generate, where 
> Fred is the RACF ID associate with the currently executing Batch JOB. (a 
> COBOL program).
>
> I could write something to call out to CICS (EXCI maybe) to get a name.
>
> But I wanted to know if there is anyway to do this by calling some routines 
> from my Batch COBOL program.
>
>
>
> I am assuming right now, it is not possible since I have come up empty so far.
>
>
>
> 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><mailto:Cam
> eron.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, 
> http://www.americanexpress.ca/<https://isolate.menlosecurity.com/1/3735928037/http:/www.americanexpress.ca>.
>  If you no longer wish to receive these e-mails, please notify the sender by 
> reply e-mail.
>
>
>
> This e-mail is solely for the intended recipient and may contain confidential 
> or privileged information. If you are not the intended recipient, any 
> disclosure, copying, use, or distribution of the information included in this 
> e-mail is prohibited. If you have received this e-mail in error, please 
> notify the sender by reply e-mail and immediately and permanently delete this 
> e-mail and any attachments. Thank you.
>
>
>
> Amer

Sv: COBOL compiler option to list libraries from which COPY members were loaded?

[Lars Höglund]

And You can't use coprocess if You are using EXCI.
//Lasse 

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Farley, 
Peter x23353
Skickat: den 9 september 2021 21:08
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: COBOL compiler option to list libraries from which COPY members were 
loaded?

Yes, but it is of little use if you are stuck using the DB2 and/or CICS 
preprocessor utilities (instead of the coprocessor facilities in the compiler) 
and use EXEC SQL and/or EXEC CICS  statements in COPY members extensively.  All 
COPY members containing EXEC SQL / CICS must be pre-resolved before the 
preprocessor utility reads the source to be translated.

All of which is a really good argument to use the coprocessor facilities, but 
institutional resistance to change is powerful and often both entrenched and 
intransigent.

Peter

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Ross
Sent: Thursday, September 9, 2021 2:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL compiler option to list libraries from which COPY members 
were loaded?

><*Doh!*>
>
>I missed seeing that part of the listings entirely.  And it has the 
>same page title back at least as far back as ECOBOL V4.1.0.

You guys are great!  I added "cross reference of library names" to the COBOL 
compiler listings years ago, glad it is getting used, and thank you for 
pointing it out to help each other out!

Cheers,
TomR
--

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

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

Sv: COBOL compiler option to list libraries from which COPY members were loaded?

[Lars Höglund]

Thanks, tried it and, yes

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Tom Ross
Skickat: den 14 september 2021 02:13
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Sv: COBOL compiler option to list libraries from which COPY members were 
loaded?

>And You can't use coprocess if You are using EXCI.
>//Lasse=20


That changed a couple of years ago for COBOL!  (Still true for PL/I)

https://www.ibm.com/support/pages/use-integrated-cics-translator-exci-batch-programs

Cheers,
TomR  >> COBOL is the Language of the Future! <<

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

Sv: Using the JOBNAME system symbol in a batch job

[Lars Höglund]

Could this be the solution?

The three types of symbols that can be used for JES2 in-stream substitution are 
JCL Symbols, JES Symbols and System Symbols:

On a JES2 JOBCLASS definition, the field SYSSYM needs to be ALLOW rather than 
DISALLOW

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Gadi Ben-Avi
Skickat: den 29 december 2021 15:03
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Using the JOBNAME system symbol in a batch job

Hi,

How do I use the JOBNAME system symbol in a batch job and have it resolve to 
the JOBNAME?

Currently, every time I try, it resolved to JES2.

We are running z/OS v2.4.

Thanks

Gadi


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

Sv: Why SLIP PVTMOD/PVT EP does not work for Private load modules in CICS

[Lars Höglund]

Debugging?

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Mike Schwab
Skickat: den 21 februari 2022 18:39
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Why SLIP PVTMOD/PVT EP does not work for Private load modules in CICS

CEMT is the CICS debugging command.

On Mon, Feb 21, 2022 at 4:15 PM venkat rao bandaru  wrote:
>
> Thank you for the information.
>
> On Mon, Feb 21, 2022 at 4:55 PM Seymour J Metz  wrote:
>
> > Yes, SLIP relies on MVS control blocks to locate modules. If there 
> > is no CDE or LPDE then SLIP has not way of locating the module by 
> > name. If you're licensed, you might ask the CICS support people at 
> > IBM how to trace in modules loaded by CICS.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> > 
> > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on 
> > behalf of venkat rao bandaru [venck...@gmail.com]
> > Sent: Monday, February 21, 2022 10:34 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Why SLIP PVTMOD/PVT EP does not work for Private load 
> > modules in CICS
> >
> > Yes, that's correct. The modules are loaded by CICS.
> >
> > I read somewhere that SLIP scans CDE(Content Directory Entry
> >  > >) table for module information. Is it possible, CICS Load does not 
> > add entry to CDE ? This is just my speculation though.
> >
> >
> > On Mon, Feb 21, 2022 at 4:20 PM Seymour J Metz  wrote:
> >
> > > I would guess that you're debugging a module that CICS has loaded 
> > > itself rather than loading via MVS contents supervision.
> > >
> > >
> > > --
> > > Shmuel (Seymour J.) Metz
> > > http://mason.gmu.edu/~smetz3
> > >
> > > 
> > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on 
> > > behalf of venkat rao bandaru [venck...@gmail.com]
> > > Sent: Monday, February 21, 2022 9:52 AM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Why SLIP PVTMOD/PVT EP does not work for Private load 
> > > modules in CICS
> > >
> > > Greetings!
> > >
> > > Can you please share your experience around why SLIP IF/SA with 
> > > PVTMOD/EP would not detect the load module in my CICS region ? Any 
> > > SIT parameters
> > in
> > > play ?
> > >
> > > SLIP IF/SA with PVTMOD/EP works for load modules in batch jobs.
> > >
> > > I have to use RANGE with absolute address to hit the SLIP, which 
> > > is a concern for me. Please share if you have such experience and 
> > > work
> > arounds.
> > > Thank you in advance!
> > >
> > >
> > > --
> > > Best Regards
> > > *Venkat*
> > >
> > > --
> > >  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
> > >
> >
> >
> > --
> > Best Regards
> > *Venkat*
> >
> > 
> > -- 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
> >
>
>
> --
> Best Regards
> *Venkat*
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



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

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

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

Sv: ISPF macro/script

[Lars Höglund]

Look at Marc Zelden's EDMACALL
//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Hobart Spitz
Skickat: den 7 februari 2023 03:19
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: ISPF macro/script

You have these options:
1 - Select the member manually, and invoke your REXX edit macro.
2 - Write another module the invokes the edit service in the library and 
member, and runs the edit macro.
3 - Write one dual mode module.  I do not recommend this.

Edit commands are only valid in REXX EXECs that have issued ADDRESS ISREDIT 
MACRO which establishes the edit macro environment.

I would Google "ispf edit macro example".

On Monday, February 6, 2023, Radoslaw Skorupka < 
0471ebeac275-dmarc-requ...@listserv.ua.edu> wrote:

> To be honest ISPF & REXX is not my strong point.
>
> I need the following:
> From PDS(E) member list I type my CMD1, hit ENTER - to start the REXX 
> script.
> The script Select new member (name generated from date+consecutive 
> character), then issue some edit commands, like COPY TEMPLATE to copy 
> some text from the TEMPLATE member.
>
> Any clue?
> Or some similar script to learn by example?
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


--
OREXXMan
Q: What do you call the residence of the ungulate with the largest antlers?
A: A moose pad.
:-D
Would you rather pass data in move mode (*nix piping) or locate mode
(Pipes) or via disk (JCL)?  Why do you think you rarely see *nix commands with 
more than a dozen filters, while Pipelines specifications are commonly over 
100s of stages, and 1000s of stages are not uncommon.
REXX is the new C.

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

Sv: ISPF macro/script

[Lars Höglund]

Or something like this

/*   REXX*/
/*%COPYRIGHT (c) copyright LHKAB */
/*   */
/*
  REXXNAME   :  MACONALL
  System :  ISPF
  Written:  2014-03
  By :  Lars Höglund Konsult AB 
(www.lhkab.com<http://www.lhkab.com>)
  Function   :  Edit, with a macro, all members in a PDS
allocated to ddname=PDS

  Related object
  - panel:  -
  - msg  :  -
  - exec :  -
  - skels:  -
  - pgm  :  -

 H I S T O R Y
 -
 20xx-xx-xx whowhat

*/
  trace o

  signal on syntax/* trap rexx syntax errors */
  signal on novalue   /* trap unititalized variables */
  signal off error/* handle positive rc command failures in code */
  signal off failure  /* handle negative rc command failures in code */
  signal off halt  /* allow normal hi/he termination */

  parse upper arg parms

  call B_initialize

  if maconall_rc = 0 then
 call C_mainline

  call X_cleanup

  return maconall_rc

B_initialize :
/*---*/
/* Init  */
/*---*/

  parse source rxenv rxinv me rxdd rxdsn rxname rxhost rxaspc .

  false = 0
  true  = 1

  maconall_rc = 0

  call BZ_create_messages

  call Y_log_process left('-',60,'-')
  call Y_log_process MSG.log_start
  call Y_log_process ''

  parse var parms parm_macro  .
  editmac = strip(parm_macro)

  call Y_log_process MSG.log_parm
  call Y_log_process 'Macro..:' editmac
  call Y_log_process ''

  return

BZ_create_messages :
BZ_create_messages :
/*---*/
/* Create errormessages  */
/*---*/

  log_start = 1
  MSG.log_start = center('Program' me 'starts',60)

  log_parm = 2
  txt = 'S u p p l i e d   P a r a m e t e r s'
  MSG.log_parm  = txt

  log_end = 99
  MSG.log_end   = center('Program' me 'ends',60)

  contact = 'ISPF Administrator'
  terminate = center('** T e r m i n a t i n g **',60)

  return

C_mainline :
/*---*/
/* Mainline  */
/*---*/

  address "ISPEXEC" "LMINIT DATAID(DID1) DDNAME(PDS)"
  address "ISPEXEC" "LMOPEN DATAID("did1")"
  membvar = ' '
  do until rc > 0
 address "ISPEXEC" "LMMLIST",
   "DATAID("did1")",
   "OPTION(LIST)",
   "MEMBER(MEMBVAR)",
   "STATS(YES)"
 if rc > 0 then
leave
 if membvar <> 'ÅÅSETUP' then
do
 address "ISPEXEC" "EDIT",
   "DATAID("did1")",
   "MEMBER("membvar")",
   "MACRO("editmac")"
end
  end /*do until rc > 0*/

  address "ISPEXEC" "LMMLIST DATAID("did1") OPTION(FREE)"
  address "ISPEXEC" "LMFREE DATAID("did1")"

  return

X_cleanup :
/*---*/
/* cleanup   */
/*---*/

  if maconall_rc > 4 then
 call Z_error ''

  return

Y_log_process :
/*---*/
/* Displaying processing status  */
/*---*/
  parse arg text

  say time() left(text,60) me

  do forever
 text = delstr(text,1,60)
 if text = '' then
leave
 say time() left(text,60) me
  end /*do forever*/

  return

Z_error :
/*---*/
/* Errormessage  */
/*---*/
  parse arg etext

  if etext > ' ' then
 do
  call Y_log_process left('-',60,'-')
  call Y_log_process etext
  call Y_log_process left('-',60,'-')
 end

  call Y_log_process left('-',60,'-')
  call Y_log_process terminate
  call Y_log_process left('-',60,'-')

  exit 8

/*/
/*   */
/* Rexx Error Handling Common Routines   */
/*  

Sv: determine job that created dataset?

[Lars Höglund]

No access to that...

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Gadi Ben-Avi
Skickat: den 14 februari 2023 12:03
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: determine job that created dataset?

As far as I remember, It's SMF type 14 or 15, and maybe 60 for the catalog 
operation.
I would use DAF to scan the SMF file and find the information.

You can get DAF here 
https://sites.google.com/site/michaeljosephcleary/michael-joseph-cleary/zos-freeware

Gadi

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Giannelli
Sent: יום ג 14 פברואר 2023 12:56
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: determine job that created dataset?

Thank you for your response.
Might you know the IFCID and the field?

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

Sv: CLIST for APF and link list datasets

[Lars Höglund]

And with parm like LINK / APF / LPA (or without parm)

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För rpinion865
Skickat: den 14 februari 2023 20:56
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: CLIST for APF and link list datasets

DDLIST from any ISPF command line.




Sent with Proton Mail secure email.

--- Original Message ---
On Tuesday, February 14th, 2023 at 2:47 PM, Bill Giannelli 
 wrote:


> I was shown a clist that had various options to display things like APFs and 
> LLA, etc.
> I am struggling to remember the clist name to run.
> I am hoping this vague question sparks someone's memory.
> does anyone know the clist?
> thanks
> Bill
> 
> --
> 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

Sv: Q: Where is LISTDSI kept?

[Lars Höglund]

You have to start ISPF

//BATCHPDF EXEC PGM=IKJEFT01,DYNAMNBR=128,
// PARM='ISPSTART CMD(&ISPFREX &ISPFPRM)'

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Steve 
Thompson
Skickat: den 20 februari 2023 17:09
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Q: Where is LISTDSI kept?

I'm trying to build a TSO BATCH environment and it needs to have the ISPF 
Library functions in it.

So I copied all the DDs that I needed via TSO ISRDDN against my TSO address 
space.

What I am now running into is REXX is giving me a -3 for LISTDSI!!

Reminds me of the topic:  How long for an experienced z/OS sysprog...

I do not have any documentation for this environment. It was thought that I 
wouldn't need it. And it surprised me when using LISTDSI in batch that it 
failed. So I've been trying to SRCHFOR LISTDSI under ISRDDN and I find text 
fields, nothing in alias...

And since my IP address for my email is still being blocked at Marist (I have a 
call into them, have no idea when they will call back, and I did send an email 
to someone off line -- I'm wondering if they got that email, for running 
MTAs they will know what this is about).

Bottom line is, I can't use TSO-REXX list for now.

Steve Thompson

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

Sv: Q: Where is LISTDSI kept?

[Lars Höglund]

OR?

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Lars Höglund
Skickat: den 20 februari 2023 17:16
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Sv: Q: Where is LISTDSI kept?

You have to start ISPF

//BATCHPDF EXEC PGM=IKJEFT01,DYNAMNBR=128,
// PARM='ISPSTART CMD(&ISPFREX &ISPFPRM)'

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Steve 
Thompson
Skickat: den 20 februari 2023 17:09
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Q: Where is LISTDSI kept?

I'm trying to build a TSO BATCH environment and it needs to have the ISPF 
Library functions in it.

So I copied all the DDs that I needed via TSO ISRDDN against my TSO address 
space.

What I am now running into is REXX is giving me a -3 for LISTDSI!!

Reminds me of the topic:  How long for an experienced z/OS sysprog...

I do not have any documentation for this environment. It was thought that I 
wouldn't need it. And it surprised me when using LISTDSI in batch that it 
failed. So I've been trying to SRCHFOR LISTDSI under ISRDDN and I find text 
fields, nothing in alias...

And since my IP address for my email is still being blocked at Marist (I have a 
call into them, have no idea when they will call back, and I did send an email 
to someone off line -- I'm wondering if they got that email, for running 
MTAs they will know what this is about).

Bottom line is, I can't use TSO-REXX list for now.

Steve Thompson

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

Sv: REXX parse parens

[Lars Höglund]

Why do You have "blank" before and after "()"?

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Jack Zukt
Skickat: den 2 maj 2023 09:02
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: REXX parse parens

Hi
This should work

Parse arg opt
Parse value opt with "(" opt") "
If  pos(" (", opt) >0 then
Parse value opt with opt" ("member")"
Do
End

Regards
Jack

On Tue, May 2, 2023, 00:31 Frank Swarbrick 
wrote:

> The following is a simplified version of some code from IBM's 
> CEEBLDTX, placed in to an EXEC I've named PARENS:
>
> Parse Arg option
> Parse Var option varOpt '(' valueOpt ')'
> Say varOpt
> Say valueOpt
>
> This handles a simple dataset name, e.g.:
>
> Test1:  PARENS COBOL(TEST):
> Results1:
> COBOL
> TEST
>
> But it doesn't work for a PDS member to following, also surrounded by
> parentheses:
>
> Test2:  PARENS COBOL(TEST(MEMBER))
> Results2:
> COBOL
> TEST(MEMBER
>
> Any simple REXX parse option to handle this, or do I need to resort to 
> more complex REXX?  Or do I just add a trailing paren if there is a 
> leading one in valueOpt?  Perhaps that's the simples answer.
>
> Frank
>
>
> --
> 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

Sv: REXX parse parens

[Lars Höglund]

Seems to work if you skip the "blank" together with ()

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Seymour J 
Metz
Skickat: den 2 maj 2023 15:36
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: REXX parse parens

It won't work for nested parentheses.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Jack Zukt [jzuk...@gmail.com]
Sent: Tuesday, May 2, 2023 3:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

Hi
This should work

Parse arg opt
Parse value opt with "(" opt") "
If  pos(" (", opt) >0 then
Parse value opt with opt" ("member")"
Do
End

Regards
Jack

On Tue, May 2, 2023, 00:31 Frank Swarbrick 
wrote:

> The following is a simplified version of some code from IBM's 
> CEEBLDTX, placed in to an EXEC I've named PARENS:
>
> Parse Arg option
> Parse Var option varOpt '(' valueOpt ')'
> Say varOpt
> Say valueOpt
>
> This handles a simple dataset name, e.g.:
>
> Test1:  PARENS COBOL(TEST):
> Results1:
> COBOL
> TEST
>
> But it doesn't work for a PDS member to following, also surrounded by
> parentheses:
>
> Test2:  PARENS COBOL(TEST(MEMBER))
> Results2:
> COBOL
> TEST(MEMBER
>
> Any simple REXX parse option to handle this, or do I need to resort to 
> more complex REXX?  Or do I just add a trailing paren if there is a 
> leading one in valueOpt?  Perhaps that's the simples answer.
>
> Frank
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

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

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

Sv: MVS Software inventory

[Lars Höglund]

Think You must use a product for that

i.e IBM TADz (former SoftAudit)

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För CarlosM
Skickat: den 19 maj 2022 18:31
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: MVS Software inventory

Can anyone point me at a JCL example that would list all software installed on 
my MVS system?

this is done Via SMP?


SUNY downstate

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

Sv: MVS Update

[Lars Höglund]

Shouldn't You use Receive?

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För 
esst...@juno.com
Skickat: den 4 oktober 2022 17:05
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: MVS Update

.
.
 I was able to obtain CBT830.zip
 I extracted it, and it creates a xmi file.
 However I can't open it  CBT830.xmi
 I tried changing the suffix to doc and docx and txt  Is there anything special 
to open this file ?

Paul
-- Original Message --
From: Sri h Kolusu 
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS Update
Date: Mon, 3 Oct 2022 02:59:02 +

Paul,

CBT Tape File 830 contains 926 articles (with their code, as an EBCDIC pds) 
from Xephon's MVS Update magazines, ranging from July 1987 thru December 1996.

https://bit.listserv.ibm-main.narkive.com/q69XU7Zi/please-explore-cbt-tape-file-830-xephon-mvs-articles

Here is the link to download File # 830 XEPHON MVS articles from 07/1987 thru 
12/1996 EBCDIC

https://www.cbttape.org/ftp/cbt/CBT830.zip

Checking CBT830 it has the following articles from October of 1987

"B2D3A01C"-An on-line MVS/XA CSA monitor -October   1987
"F863B8BD"-Determining VSAM buffer allocations   -October   1987
"U75306DC"-Issuing operator commands through JCL -October   1987
"TE2F0969"-IPOUPDTE  -October   1987
"YFB389AC"-MVS authorisation -October   1987
"XA332F6C"-Protecting catalogued tape files  -October   1987
"Q0F37C0C"-TSO response time monitor -October   1987
"C813F37C"-Verifying whether a job is currently active   -October   1987
"C503910D"-Volume pooling using IGGPRE00 -October   1987
"TD9355BC"-Writing a cross memory program-October   1987

Thanks,
Kolusu


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

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

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

SV: Request for help with removing sequence numbers from PDS members

[Lars Höglund]

Example of ISPF-proc

//*  PROC ISPFBAT  
//ISPFBAT  PROC
//*
//*--  
//* STEPNAME: CREPROF  
//* STEPINFO: CREATE ISPPROF   
//*--  
//CREPROF  EXEC PGM=IEFBR14
//ISPTLIB  DD DISP=(NEW,PASS), 
//SPACE=(TRK,(15,15,5)),   
//LRECL=80,BLKSIZE=0,DSORG=PO,RECFM=FB,
//DSN=&&ISPTLIB
//ISPTABL  DD DISP=(NEW,PASS), 
//SPACE=(TRK,(15,15,5)),   
//LRECL=80,BLKSIZE=0,DSORG=PO,RECFM=FB,
//DSN=&&ISPTABL
//*
//*--  
//* STEPNAME: BATCHPDF 
//* STEPINFO: EXECUTE ISPF IN BATCH
//*--  
//BATCHPDF EXEC PGM=IKJEFT01,DYNAMNBR=128, 
// PARM='ISPSTART CMD(&ISPFREX &ISPFPRM)'  
//SYSEXEC  DD  DISP=SHR,DSN=YOUR.ISPEXEC<---   
// DD  DISP=SHR,DSN=ISP.SISPEXEC   
//SYSPROC  DD  DISP=SHR,DSN=ISP.SISPCLIB   
//ISPPLIB  DD  DISP=SHR,DSN=ISP.SISPPENU   
//ISPSLIB  DD  DISP=SHR,DSN=YUOR.ISPSLIB<---   
// DD  DISP=SHR,DSN=ISP.SISPSLIB   
// DD  DISP=SHR,DSN=ISP.SISPSENU   
//ISPMLIB  DD  DISP=SHR,DSN=YOUR.ISPMLIB<---   
// DD  DISP=SHR,DSN=ISP.SISPMENU   
// DD  DISP=SHR,DSN=ISF.SISFMLIB   
// DD  DISP=SHR,DSN=SYSU.XMITIP.MSGS   
//ISPLLIB  DD  DUMMY   
//ISPPROF  DD  UNIT=WORK,SPACE=(TRK,(9,1,4)),  
// LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PO 
//ISPTABL  DD  DISP=(OLD,DELETE),DSN=&&ISPTABL 

Use of proc

//S010 EXEC ISPFBAT, 
// ISPFREX=ACCTCHGN, 
// ISPFPRM=''   
//BATCHPDF.SYSTSIN  DD  DUMMY


-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Paul 
Gilmartin
Skickat: den 11 januari 2021 17:07
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Request for help with removing sequence numbers from PDS members

On Mon, 11 Jan 2021 15:37:55 +, Sean Gleann wrote:

>Many thanks to all who responded.
>I opted to adapt and (try to) use the REXX that Andy Styles gave, but 
>I'm tripping up over something that has to be one of those 'simple, basic'
>things.
>The "ISPEXEC CONTROL ERRORS RETURN" command gives me RC(20) as a result.
>I think I've got to use an 'ADDRESS ISPEXEC' command or something like 
>that at the start of the REXX, but attempts at variants of this give 
>the same result.
> 
You need to run your Rexx under ISPF, which implies you need to run under TSO.
This can all be done in batch, with suitably complex DD statements.

Otherwise, RC(20)

-- gil

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

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

SV: Request for help with removing sequence numbers from PDS members

[Lars Höglund]

This is a sample, do as You please.
This is the way I do it.

Don't use a proc
Use INCLUDE
Or
Don't use INCLUDE.

You can use SETMSG even in batch that's why ISPMLIB

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Seymour J 
Metz
Skickat: den 11 januari 2021 18:39
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Request for help with removing sequence numbers from PDS members

Why a separate allocation step?

Why 3120 for ISPPROF?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Lars Höglund [lars.hogl...@alecta.se]
Sent: Monday, January 11, 2021 11:17 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SV: Request for help with removing sequence numbers from PDS members

Example of ISPF-proc

//*  PROC ISPFBAT
//ISPFBAT  PROC
//*
//*--
//* STEPNAME: CREPROF
//* STEPINFO: CREATE ISPPROF
//*--
//CREPROF  EXEC PGM=IEFBR14
//ISPTLIB  DD DISP=(NEW,PASS),
//SPACE=(TRK,(15,15,5)),
//LRECL=80,BLKSIZE=0,DSORG=PO,RECFM=FB,
//DSN=&&ISPTLIB
//ISPTABL  DD DISP=(NEW,PASS),
//SPACE=(TRK,(15,15,5)),
//LRECL=80,BLKSIZE=0,DSORG=PO,RECFM=FB,
//DSN=&&ISPTABL
//*
//*--
//* STEPNAME: BATCHPDF
//* STEPINFO: EXECUTE ISPF IN BATCH
//*--
//BATCHPDF EXEC PGM=IKJEFT01,DYNAMNBR=128,
// PARM='ISPSTART CMD(&ISPFREX &ISPFPRM)'
//SYSEXEC  DD  DISP=SHR,DSN=YOUR.ISPEXEC<---
// DD  DISP=SHR,DSN=ISP.SISPEXEC
//SYSPROC  DD  DISP=SHR,DSN=ISP.SISPCLIB //ISPPLIB  DD  
DISP=SHR,DSN=ISP.SISPPENU
//ISPSLIB  DD  DISP=SHR,DSN=YUOR.ISPSLIB<---
// DD  DISP=SHR,DSN=ISP.SISPSLIB
// DD  DISP=SHR,DSN=ISP.SISPSENU
//ISPMLIB  DD  DISP=SHR,DSN=YOUR.ISPMLIB<---
// DD  DISP=SHR,DSN=ISP.SISPMENU
// DD  DISP=SHR,DSN=ISF.SISFMLIB
// DD  DISP=SHR,DSN=SYSU.XMITIP.MSGS
//ISPLLIB  DD  DUMMY
//ISPPROF  DD  UNIT=WORK,SPACE=(TRK,(9,1,4)),
// LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PO
//ISPTABL  DD  DISP=(OLD,DELETE),DSN=&&ISPTABL

Use of proc

//S010 EXEC ISPFBAT,
// ISPFREX=ACCTCHGN,
// ISPFPRM=''
//BATCHPDF.SYSTSIN  DD  DUMMY


-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Paul 
Gilmartin
Skickat: den 11 januari 2021 17:07
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Request for help with removing sequence numbers from PDS members

On Mon, 11 Jan 2021 15:37:55 +, Sean Gleann wrote:

>Many thanks to all who responded.
>I opted to adapt and (try to) use the REXX that Andy Styles gave, but 
>I'm tripping up over something that has to be one of those 'simple, basic'
>things.
>The "ISPEXEC CONTROL ERRORS RETURN" command gives me RC(20) as a result.
>I think I've got to use an 'ADDRESS ISPEXEC' command or something like 
>that at the start of the REXX, but attempts at variants of this give 
>the same result.
>
You need to run your Rexx under ISPF, which implies you need to run under TSO.
This can all be done in batch, with suitably complex DD statements.

Otherwise, RC(20)

-- gil

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

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

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

Sv: Rexx numeric digits and scientific notation question

[Lars Höglund]

Hmmm

 7 *-* NUMERIC DIGITS 11   
   >>>   "11"  
 8 *-* say digits()
   >>>   "11"  
11 
 9 *-* say 8947 * 864  
   >>>   "7730208" 
7730208
//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Charles Mills
Skickat: den 12 mars 2024 18:29
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Rexx numeric digits and scientific notation question

In a Rexx program I start out by executing NUMERIC DIGITS 15 (and I have also 
tried 11 and 13 and gotten the same result).

For 8947 * 864 I am getting a result of 7.73020800E+10 rather than the 
desired 7730208.

Is this to be expected? I interpret the Rexx documentation as saying that a 
result is only converted to scientific notation when it exceeds NUMERIC DIGITS.

Where am I going wrong? Or more to the point, how do I get the desired result?

(Why do I care? I am subsequently going to add a relatively small number to the 
product and don't want to lose low-order digits.)

I tried using FORMAT but unless I use it in every subsequent calculation Rexx 
goes back to scientific notation and I lose low order digits.

Thanks,
Charles

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

Sv: Program to split a jobs output

[Lars Höglund]

?
And then
XDC

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För ??? ?? ???
Skickat: den 9 april 2024 10:43
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Program to split a jobs output

[Du f?r inte e-post ofta fr?n gad...@malam-payroll.com. L?s om varf?r det h?r 
?r viktigt p? https://aka.ms/LearnAboutSenderIdentification ]

Hi,
Today I had to sent a jobs output to IBM to help determine a problem.
The jobs had 11 sysout datasets, and I wanted to send each one individually.

Does anyone know of a program to do this automagically, before I see how 
complicated it would be to write one?

Gadi

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

Sv: PASSPORT 3270 emulator (PC) problem w transferring files

[Lars Höglund]

Välkommen tillbaka, Thomas

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För  

Skickat: den 10 april 2024 10:07
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: PASSPORT 3270 emulator (PC) problem w transferring files

[Du får inte e-post ofta från 0619bfe39560-dmarc-requ...@listserv.ua.edu. 
Läs om varför det här är viktigt på 
https://aka.ms/LearnAboutSenderIdentification ]

I'have recenctly returned to the job life  after I retired in 2016.

As I'm working remote I'm using the PASSPORT 3270 emulator program.

But the file transfers (IND$FILE) is VERY/EXTREMELY slow from PC to MF.

My internet connection or my local network should not be the problem. Have a 
500Mb/500Mb connection and my network have no problem with anything else.
The connection is going through a VPN software (Check Point Mobile Version VPN 
E86.20) that seems to work as intended, e g no error or warning messages. 
Otherwise Windows 10 at a laptop provided by my client (a large bank in Sweden).

The speed for e g 7MB is about 2.5 hours.

Any suggestions to speed it up?

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

Sv: ./ ADD - which utility?

[Lars Höglund]

Something like this

//K39828ÖD JOB (T820),'CREATE MBR',   
//  CLASS=A,MSGCLASS=T,   
//  NOTIFY=&SYSUID
//*   
//*-- 
//* STEPNAME: S010
//* STEPINFO: CREATEMEMBERS IN PDS
//*-- 
//S010 EXEC PGM=IEBUPDTE,PARM='NEW'   
//SYSUT2   DD DISP=SHR,DSN=K39828.DCOLLECT.ISPEXEC
//SYSPRINT DD SYSOUT=*
//SYSINDD *   
./ ADD NAME=TESTMBR1,LIST=ALL 
./ REPL NEM=*,NEW=PO  
./ ENDUP  
//*   
//* END OF JOB


-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För  

Skickat: den 13 april 2024 16:30
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: ./ ADD - which utility?

[Du får inte e-post ofta från 0619bfe39560-dmarc-requ...@listserv.ua.edu. 
Läs om varför det här är viktigt på 
https://aka.ms/LearnAboutSenderIdentification ]

Which utility do you use for control statement/input:
./ ADD

A jcl for that would be nice too.

...Embarassed by my lack of memory after 8 years out of this envirinment...

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

Execute Rexx from Cobol

[Lars Höglund]

Hi
Trying to execute a Rexx from my Cobol program by using IRXEXEC and IKJTSOEV

The Rexx starts and executes ok until that Rexx is calling another Rexx (in the 
same library, allocated to SYSEXEC) that shall return a value, but I'm getting

An error has occurred in Rexx module: XMAIL
   Error Type: SYNTAX
   Error Line Number : 299
   Instruction   :   jobinfo = JOBINFO()
   Return Code   : 44
   Error Message text: Function did not return data

Running the same Rexx in ISPF or TSO, it works just fine

I have also a trace in the called Rexx but nothing shows, probably isn't the 
Rexx starting
The ddname-parameter is set to space
move space  to  execblk-ddname *> default SYSEXEC

Any suggestions

//Lasse



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

Sv: Execute Rexx from Cobol

[Lars Höglund]

I'll try that, but the problem for me is that my rexx is executing but stops 
(with error) when that rexx is trying to execute another rexx

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Sri Hari 
Kolusu
Skickat: den 7 maj 2024 14:49
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Execute Rexx from Cobol

Lasse,

Try the example listed here.

https://www.ibm.com/docs/en/zos/2.4.0?topic=service-cobol

Thanks,
Kolusu

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

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

Sv: Execute Rexx from Cobol

[Lars Höglund]

Seems that problem solved.

We had a program called JOBINFO (in allocated STEPLIB)
Didn't realize that jobinfo = jobinfo() in a Rexx will trying to start, and 
maybe executing the cobolmodule
We also have a Rexx called jobinfo, and that the one I want to execute.
//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Glenn 
Knickerbocker
Skickat: den 7 maj 2024 17:36
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Execute Rexx from Cobol

On Tue, 7 May 2024 11:33:21 +0000, Lars Höglund  wrote:
> An error has occurred in Rexx module: XMAIL
> Error Type: SYNTAX
> Error Line Number : 299
>   Instruction   :   jobinfo = JOBINFO()
>   Return Code   : 44
>   Error Message text: Function did not return data

So, the error here is pure REXX and has nothing to do with the COBOL caller 
(except that maybe it didn't provide something in the argument that XMAIL 
expected, or didn't set up something in the environment that JOBINFO was 
looking for).

XMAIL called JOBINFO as a function, and JOBINFO didn't return data--not even a 
null value.  The main routine of JOBINFO must have an EXIT or RETURN 
instruction somewhere with no expression specified on it, or it reached the end 
of the exec without executing a RETURN or EXIT instruction at all.

¬R

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

Sv: Problem when transfereing PDS members using ftp.

[Lars Höglund]

100%

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Pommier, Rex
Skickat: den 17 juli 2024 17:00
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Problem when transfereing PDS members using ftp.

Mr. Kolusu,

I just want to give a public "thank you" for your service to this list.  You 
are always quick to jump in with help well outside of your "official" duties 
with DFSort.  Your responses are always courteous and professional.  Many of us 
on this list have been recipients of your assistance when we've come here for 
guidance.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
Hari Kolusu
Sent: Wednesday, July 17, 2024 4:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Problem when transfereing PDS members using ftp.

> When he looked at the destination he say that the last update time was 3 
> hours less than it should have been.

Gadi,

Check this 
https://urldefense.com/v3/__https://www.ibm.com/support/pages/time-tags-incorrect-ftp-generated-ispf-statistics__;!!KjMRP1Ixj6eLE0Fj!sfbyXOvCvvACBz1kNPho_k4Ugi-EcQOpwoRpNVeu0qGgCFEb2BGleP69PvVnwQtcTqmIHrabIlelRQkccaI$
 

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

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

Sv: Ability to pass symbolic variable back from REXX to JCL?

[Lars Höglund]

But then it has to be a separate job
//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Schmitt, 
Michael
Skickat: den 16 augusti 2024 16:13
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Ability to pass symbolic variable back from REXX to JCL?

One way is to have the REXX exec write a file of SET statements, then INCLUDE 
that in subsequent jobs.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Steve Estle
Sent: Friday, August 16, 2024 8:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Ability to pass symbolic variable back from REXX to JCL?

Hello All,

I know we have a lot of REXX coders / developers on here so putting this out as 
a "is this possible" question.

Scenario:

A recent effort brought a question to light.  We have a home grown REXX routine 
that dynamically generates dataset names and saves JES job spool dataset off 
using IOF product routines.  The dataset name generated is unique as it 
includes jobname, jobnumber, and Julian date, timestamp in the dynamically 
generated dataset name which occurs withing thisi REXX routine (we call it 
BTCHSAVE).  I'd like the ability to access this dynamically generated dataset 
name as a JCL symbolic variable for subsequent downstream job steps.  Is there 
any way that REXX variables can be somehow be shared / passed back to batch job 
JCL routine such that the dynamically generated dataset name can be used in 
subsequent steps of the job?

Let me know if anyone has tried to do this or not - possibly a future IDEA for 
IBM.

Thanks in advance,

Steve Estle
Peraton Systems Programmer

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

Sv: Minor Announcement

[Lars Höglund]

Tnx for all

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Sri Hari 
Kolusu
Skickat: den 16 augusti 2024 18:53
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Minor Announcement

Hi All,

Today is my last day as a developer with team DFSORT.  I am still with IBM and 
will be moving to a new role in DevOps effective August 19th, 2024.  So, 
answering DFSORT related questions will not be as quick as I did earlier.  I 
*may* continue to answer questions,  but it depends on my 
responsibilities/availability/flexibility of my new team.

Thanks,
Kolusu


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

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

Sv: Ability to pass symbolic variable back from REXX to JCL?

[Lars Höglund]

&JOBNAME Within JCL, the substitution text for &JOBNAME is the name of the job 
assigned to the address space in which the JCL is converted, not the name of 
the job being processed. For instance, if JES2 does the conversion, &JOBNAME 
resolves to JES2.

This works for me in 2.5

// EXPORT SYMLIST=(SYSJOBNM,SYSJOBID,SYSUID)  
// SET SYSJOBNM=&SYSJOBNM 
// SET SYSJOBID=&SYSJOBID 
// SET SYSUID=&SYSUID 
//IEBGENER EXEC PGM=IEBGENER  
//SYSUT1   DD *,SYMBOLS=JCLONLY   
LASSE &YYMMDD &SYSUID &SYSJOBNM &SYSJOBID 
//SYSUT3   DD DISP=(NEW,CATLG,DELETE),
//LRECL=080,RECFM=FB, 
//SPACE=(TRK,(01,01),RLSE),   
//DSN=&SYSUID..&SYSJOBNM..&SYSJOBID   

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Sri Hari 
Kolusu
Skickat: den 18 augusti 2024 18:47
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: Ability to pass symbolic variable back from REXX to JCL?

>> Follow-on question - I have looked through JCL Ref Guide & Init & Tuning 
>> Guide and can't seem to find what I am looking for.  I am looking for 
>> exhaustive built-in symbols list (such as &SYSUID) that can be used in batch 
>> jobs.  I'm not talking about the system symbols (such &SMFID) which are 
>> defined in SYS1.PARMLIB.  To be more specific, I was hoping there was a 
>> built-in symbol to capture the current jobname such as &JOBNAME, but when I 
>> used that in test job it got substituted with "JES2" in converted JCL.   Is 
>> there some exhaustive list of these "Job specific" built in symbols 
>> documented someplace as I don't see in JCL reference guide.

Steve, 

Check these out

https://www.ibm.com/docs/en/zos/2.5.0?topic=iazsymbl-jes-system-symbols

https://www.ibm.com/docs/en/zos/2.3.0?topic=symbols-dynamic-system


Thanks,

Kolusu

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

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