Using JCL Symbld and TYPRUN=SCAN

[Gadi Ben-Avi]

Hi,

I am trying to create a procedure that receives parameters and then uses the 
values as the input for some steps.
This is part of the procedure.
//DOALL PROC LVL4=LVL4,PART=PART
// EXPORT SYMLIST=(LVL4,PART)
// SET LVL4=
// SET PART=
//DEL  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//X DD SYSOUT=X
//SYSIN DD *,SYMBOLS=(JCLONLY,X)
 DELETE KVPO.MOST.DB2DATA.
SET MAXCC = 0
//DOALL PEND

When I tried running this using
//G110FT24 JOB (00),'GET',CLASS=X,MSGCLASS=X,PRTY=9,
// NOTIFY= TYPRUN=SCAN
// JCLLIB ORDER=(SYSG.DB2.UNLOAD)
//D1 EXEC DOALL,LVL4=PKVS1073,PART=PART1

The variables in the IDCAMS DELETE statement were not substituted.
When I ran the job without TYPRUN=SCAN, the variables were substituted.

Is there a way to have the variables get substituted, without actually running 
the job.

This is running in z/OS v2.2

Gadi
? ?? ?    ?? ??? ??? ??  ? ??? ?? 
??. ?? ,  ?? ???  ?, ???   ? ?? ??? 
? ?? ?? ?. ? ?  ?? ?? ?? ??  ??  
??? ??? ???, ?/?? ?, ? ?? ? ? ? ? ?? ?? ? 
??? ?/?? ?? ?? ??.

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

Re: Would SHARE kindly kick IBM in the ass for what the've done with their web content?

[David Crayford]

On 15/06/2018 8:29 PM, Jerry Callen wrote:

On Thu, 14 Jun 2018 11:27:47 -0500, Mike Schwab  wrote:


Even if you have a z/OS 2.1 manual, some PTFs do add features or
command or document changes to older versions, and they only update
the newest manual.  Sometimes it is best to get the newer manual then
check the document changes so you aren't referencing a feature only in
the newest release.

OK, here's a constructive proposal: there should be a single HTML-based web 
tree that contains the doc for the MOST CURRENT VERSION of z/OS. Each page 
would then have a menu dropdown to allow you to select an earlier release. The 
URLs for the current pages would be kept STABLE, so that links from other pages 
won't go dead when future releases come out.


That's how everybody else does it! Why IBM do not is nothing short of a 
disgrace.




The web designers would use robots.txt or whatever to keep crawlers out of the back level 
doc, so that only the most current doc is indexed. The when you search for "IDCAMS 
REPRO", you get the hits to the LATEST doc, but can find the back-level stuff easily 
enough.

I agree that the PDFs are valuable (I use them all the time), but it's ALSO 
really handy to be able to embed a link to the EXACT SPOT n the documentation 
that I am referring to, and that requires a URL to a page, not to a PTF.

-- Jerry

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


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

Re: Fwd: Visa fingers 'very rare' data centre switch glitch for payment meltdown • The Register

[David Crayford]

Great article :)

    "The outage, which lasted for about ten hours on Friday, June 1, 
sent panic among European pub-goers 
" 



Haha! If it happened right now in the middle of the Football World Cup 
it would be pub-goer Armageddon!



On 20/06/2018 8:29 AM, Mark Regan wrote:

https://www.theregister.co.uk/2018/06/19/visa_pins_payment_problems_on_very_rare_fault_in_data_centre_switch/



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

Fwd: Visa fingers 'very rare' data centre switch glitch for payment meltdown • The Register

[Mark Regan]

https://www.theregister.co.uk/2018/06/19/visa_pins_payment_problems_on_very_rare_fault_in_data_centre_switch/
-- 

Regards,

Mark T. Regan

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

Re: File transfer Red Alert

[Edward Finnell]

The Graphics project at SHARE used to run the John Cleese management videos 
non-stop. They were excellent, but I'd be sitting in one of the interminable 
meetings going "Where's the Hasty Pudding?"


In a message dated 6/19/2018 5:50:07 PM Central Standard Time, gib...@wsu.edu 
writes:

 
Queue the Jon Cleese alert level video

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

Re: File transfer Red Alert

[Tom Conley]

On 6/19/2018 5:29 PM, Ed Jaffe wrote:

On 6/19/2018 1:52 PM, Jesse 1 Robinson wrote:
IBM has just notified customers via another Red Alert that the forced 
march to encrypted file upload has been put on hold until further notice.


That made me LOL when I got it!

A notification letting you know that everything is normal, BAU, SOP, and 
that there is no required change or function loss whatsoever, hardly 
qualifies -- in my "book" at least -- as a Red Alert! LOL




IBM had over a year to prepare for the GDPR date.  First they give us 
one-day notice, then the yo-yo.  Given their other major failures this 
year, just pathetic.


Regards,
Tom Conley

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

Re: File transfer Red Alert

[Mike Schwab]

Killer rabbits (an obstacle that should be easy to overcome but can't)?
https://www.youtube.com/watch?v=XcxKIJTb3Hg
or the Knights who say Nee (objecting strongly enduring serious
injuries but can't stop opponent)?
https://www.youtube.com/watch?v=zIV4poUZAQo
On Tue, Jun 19, 2018 at 5:50 PM Gibney, Dave  wrote:
>
> Queue the Jon Cleese alert level video
>
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Farley, Peter x23353
> > Sent: Tuesday, June 19, 2018 3:41 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: File transfer Red Alert
> >
> > Wouldn' t that be a Green Alert?  <*Grin*>
> >
> > Peter
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Jesse 1 Robinson
> > Sent: Tuesday, June 19, 2018 6:31 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: File transfer Red Alert
> >
> > Since it's countermanding a previous Red Alert, maybe it should have been
> > called a Blue Alert.
> >
> > .
> > .
> > 
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Ed Jaffe
> > Sent: Tuesday, June 19, 2018 2:29 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: (External):Re: File transfer Red Alert
> >
> > On 6/19/2018 1:52 PM, Jesse 1 Robinson wrote:
> > > IBM has just notified customers via another Red Alert that the forced
> > march to encrypted file upload has been put on hold until further notice.
> >
> > That made me LOL when I got it!
> >
> > A notification letting you know that everything is normal, BAU, SOP, and 
> > that
> > there is no required change or function loss whatsoever, hardly qualifies 
> > -- in
> > my "book" at least -- as a Red Alert! LOL
> >
> > --
> >
> >
> > 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



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

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

Re: File transfer Red Alert

[Gibney, Dave]

Queue the Jon Cleese alert level video

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Farley, Peter x23353
> Sent: Tuesday, June 19, 2018 3:41 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: File transfer Red Alert
> 
> Wouldn' t that be a Green Alert?  <*Grin*>
> 
> Peter
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Jesse 1 Robinson
> Sent: Tuesday, June 19, 2018 6:31 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: File transfer Red Alert
> 
> Since it's countermanding a previous Red Alert, maybe it should have been
> called a Blue Alert.
> 
> .
> .
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Ed Jaffe
> Sent: Tuesday, June 19, 2018 2:29 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: (External):Re: File transfer Red Alert
> 
> On 6/19/2018 1:52 PM, Jesse 1 Robinson wrote:
> > IBM has just notified customers via another Red Alert that the forced
> march to encrypted file upload has been put on hold until further notice.
> 
> That made me LOL when I got it!
> 
> A notification letting you know that everything is normal, BAU, SOP, and that
> there is no required change or function loss whatsoever, hardly qualifies -- 
> in
> my "book" at least -- as a Red Alert! LOL
> 
> --
> 
> 
> 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

Re: File transfer Red Alert

[Edward Finnell]

Sorta make you wonder who's driving the train?


In a message dated 6/19/2018 4:29:35 PM Central Standard Time, 
edja...@phoenixsoftware.com writes:

 
That made me LOL when I got it!

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

Re: File transfer Red Alert

[Farley, Peter x23353]

Wouldn' t that be a Green Alert?  <*Grin*>

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jesse 1 Robinson
Sent: Tuesday, June 19, 2018 6:31 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: File transfer Red Alert

Since it's countermanding a previous Red Alert, maybe it should have been 
called a Blue Alert. 

.
.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: Tuesday, June 19, 2018 2:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: File transfer Red Alert

On 6/19/2018 1:52 PM, Jesse 1 Robinson wrote:
> IBM has just notified customers via another Red Alert that the forced march 
> to encrypted file upload has been put on hold until further notice.

That made me LOL when I got it!

A notification letting you know that everything is normal, BAU, SOP, and that 
there is no required change or function loss whatsoever, hardly qualifies -- in 
my "book" at least -- as a Red Alert! LOL

--


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


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

Re: File transfer Red Alert

[Jesse 1 Robinson]

Since it's countermanding a previous Red Alert, maybe it should have been 
called a Blue Alert. 

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: Tuesday, June 19, 2018 2:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: File transfer Red Alert

On 6/19/2018 1:52 PM, Jesse 1 Robinson wrote:
> IBM has just notified customers via another Red Alert that the forced march 
> to encrypted file upload has been put on hold until further notice.

That made me LOL when I got it!

A notification letting you know that everything is normal, BAU, SOP, and that 
there is no required change or function loss whatsoever, hardly qualifies -- in 
my "book" at least -- as a Red Alert! LOL

--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/


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

Re: File transfer Red Alert

[Ed Jaffe]

On 6/19/2018 1:52 PM, Jesse 1 Robinson wrote:

IBM has just notified customers via another Red Alert that the forced march to 
encrypted file upload has been put on hold until further notice.


That made me LOL when I got it!

A notification letting you know that everything is normal, BAU, SOP, and 
that there is no required change or function loss whatsoever, hardly 
qualifies -- in my "book" at least -- as a Red Alert! LOL


--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/


This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

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

Re: Fwd: Security and Performance Help Mainframes Stand the Test of Time - The Linux Foundation

[Joel C. Ewing]

On 06/19/2018 09:30 AM, Mark Regan wrote:
> https://www.linuxfoundation.org/blog/security-and-performance-help-mainframes-stand-the-test-of-time/
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
One obvious error in the article:  "...from the introduction of the
mainframe in 1964...". 

The first practical mainframes were actually constructed in the 1940's,
some of the earliest being in Germany.  The first "commercial" mainframe
in the U.S. was produced in 1949 (sold by Eckert-Mauchly).  During the
1950's, there were a number of significant mainframe manufacturers in
the U.S. (the biggest being IBM), as well as additional companies in
other countries.

The author has obviously confused the origin of mainframes with the
origin of the specific IBM mainframe architecture (S/360, April 1964)
that has evolved into the current IBM z-architecture mainframe. 

While not the origin of mainframes, this 1964 event was indeed very
significant:  The concept of separating the architecture design as seen
by programs and users from the underlying physical hardware
implementation has permitted over 60 years of hardware and architecture
enhancements while allowing upward compatibility for much application
code.  Without that compatibility, corporate reliance on computers would
have been severely restricted by the difficulty and expense of migrating
applications to new hardware with a different architecture each time the
old mainframe was outgrown, wearing out, or no longer supported.

I know others in ibm-main are old enough to recall all the architectural
differences which could cause grief in migrating programs to new
hardware in pre-S/360 days:  different character codes, even  a
different set of supported characters, different data representations,
different arithmetic precisions, different bases for numeric data,
radical differences in machine language and assembler-level code,
radical differences in I/O interfaces, incompatible techniques for
controlling job flow.   There were invariably some side effects of those
differences which became important even for applications written in the
high-level languages of the time.  Even for those high-level languages
that had a formal "standard", compiler implementations for specific
machines invariably added some hardware-dependent extensions, and the
exact semantics of some statements were allowed to be implementation
and  hardware dependent in ways that could be significant when migrating
to a different machine type.

    Joel C. Ewing

-- 
Joel C. Ewing,Bentonville, AR   jcew...@acm.org 

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

Re: File transfer Red Alert

[Jesse 1 Robinson]

IBM has just notified customers via another Red Alert that the forced march to 
encrypted file upload has been put on hold until further notice. 

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jesse 1 Robinson
Sent: Tuesday, May 29, 2018 9:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: File transfer Red Alert

We now have instructions on how to upload doc to IBM via various methods, 
including (for us) HTTPS. I'm not so clear on how to handle a team of 
individuals (OS, CICS, DB2, etc.) who each send doc supporting their own SRs. 
In the analogous (?) case of RECEIVE FROM NETWORK, we install one certificate 
that everyone utilizes. Will doc upload work the same way? There is reference 
to a 'possible' need for an individual id/token in case a user's personal id 
does not work. Will that eventuality be easily recognizable? 

There seems to be a coven of devils lurking in the details.   

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John Eells
Sent: Tuesday, May 29, 2018 3:35 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: File transfer Red Alert

Reposting to the list server for Rick.

rs1...@gmail.com wrote:
> Updated post with new FAQ site:
> 
> The Support File Transfer Details page has been updated and the Support File 
> Transfer ID link is live. Please see 
> http://public.dhe.ibm.com/SupportFileTransferDetails.html for all the details 
> needed. We will continue to keep this page up to date with the latest process.
> 
> We have created a FAQ blog post to help answer some of the commonly seen 
> questions that we are getting in order to provide help and guidance through 
> this process. Please review and follow the blog post, which will be 
> continuously updated as new questions arise. If you have any questions, leave 
> a comment on the page for review:
> https://www.ibm.com/developerworks/community/blogs/6ff23732-02d4-481a-
> 9e4d-dbe8559e1fd1/entry/GDPR_related_Changes_to_ECuREP_and_Testcase_FT
> P_File_Uploads?lang=en_us
> 
> -Rick Schoonmaker
> IBM Z and Linux Worldwide Client Care Manager
> 


--
John Eells
IBM Poughkeepsie
ee...@us.ibm.com

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

Application-mode use of TRAPping instructions

[Farley, Peter x23353]

The recent discussion about the ability (or not) of setting R14 values in dbx 
at a break point while debugging brought me back to an old and (for me) 
somewhat sore subject.

The z/Architecture hardware designers graced us with TRAP and TRAP4 and then 
with compare-and-trap instructions in the hardware.

z/OS has yet to provide ordinary application-mode programmers (or for that 
matter compiler and debugger writers) with the tools to use these hardware 
features.  Because updates to the DUCT are needed to properly utilize the TRAP 
features, only supervisor-state code (and therefore only APF-authorized code) 
can use these facilities in current z/OS versions, leaving ordinary application 
programmers with no way to use any of these hardware features..

When will z/OS provide application programmers (and others) the tools to 
utilize TRAP and friends?

Inquiring minds would love to know.

Peter


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

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

Re: MVS SEND command Error

[Lizette Koehler]

Eliminate the problems by going to user level broadcast data sets. See parmlib 
member IKJTSOxx section send for details. No more undefined or full messages
impacting users that want messages. For those that don't pull them, their own 
data set gets full and nothing else. Problem with one of them, delete it - the
system build a new one on the fly.

Lizette 

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of
> saurabh khandelwal
> Sent: Tuesday, June 19, 2018 12:18 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: MVS SEND command Error
> 
> Hello Group,
> 
> During execution of rexx, I am getting little weird output and not sure the
> relationship between them .
> 
> 
>  /*  REXX */
> 
> 'PIPE SAFE * | STEM MSG.'
> 
> 
> 
> TODataset = Word( Msg.3,3 )
> 
> mvs "send 'My console name is  "TODataset"',user=(AB54,AB55),LOGON
> 
> exit
> 
> 
> 
> I am getting below error.
> 
> 
> 
>  IKJ144I   UNDEFINED USERID(S) AB55
> 
>  IKJ144I
> 
> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.
> ieam900/m012707.htm
> 
> and this explain that broadcast and uads are not matching. I dont understand
> meaning of this error and how sync uads command will help to solve this
> issue.
> 
> can anybody guide me how this send command works when we have multiple users
> in list to receive those messages.
> 
> One more thing I noticed that, whichever user id I put it first in the send
> command ex :  user=(AB54,AB55)  , AB54 . This user will get notified but for
> rest of the users, I get undefined error.
> 
> These all are working RACF users. I am not sure, why I am getting this issue.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: MVS SEND command Error

[Seymour J Metz]

Are you using UADS or SAF?


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


From: IBM Mainframe Discussion List  on behalf of 
saurabh khandelwal 
Sent: Tuesday, June 19, 2018 3:17 PM
To: IBM-MAIN@listserv.ua.edu
Subject: MVS SEND command Error

Hello Group,

During execution of rexx, I am getting little weird output and not sure the
relationship between them .


 /*  REXX */

'PIPE SAFE * | STEM MSG.'



TODataset = Word( Msg.3,3 )

mvs "send 'My console name is  "TODataset"',user=(AB54,AB55),LOGON

exit



I am getting below error.



 IKJ144I   UNDEFINED USERID(S) AB55

 IKJ144I

https://secure-web.cisco.com/1SAZQhOsalsJElMXos2HSHFNwHW11W0t6ydh6-sV2VQfEJKGBctchdxQ3-oeq-da6JvYHQKI0xv0l94P363BPPGumj6NUKjK9qtyy5txX_j3xaNXhCr6_ra2ZSyuS4I7rAOq8JOV-rTqAgO_U3CJcnrDdKsBtH47VD4LnjEVnn0Sl7blSoUEHBNEhqSXPxezgMZro6ZAJIZX_1UU6sIVW54emLWoGihf81jbu4siCKBIT3xTNlrI57-Hs1pYXJpfjrcaXc9JzkQIXDHduIhTCm7sjvzVTnnq9xJkvYBj4hJQ9dVy5jyj0jJE8mrE8it5_5Dn38ni0PNCnA_ljN-B8ofBx45oZv_F7yz2dGnJ_jpgC7RIRjIevQUYtSh9Nqq0M-_h4eQ5eCWvVFvsVVOGljj2bcoi0BjfGyr27I91L-rQLpICav9bAWEHMlyJ1pmOn/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.1.0%2Fcom.ibm.zos.v2r1.ieam900%2Fm012707.htm

and this explain that broadcast and uads are not matching. I dont
understand meaning of this error and how sync uads command will help to
solve this issue.

can anybody guide me how this send command works when we have multiple
users in list to receive those messages.

One more thing I noticed that, whichever user id I put it first in the send
command ex :  user=(AB54,AB55)  , AB54 . This user will get notified but
for rest of the users, I get undefined error.

These all are working RACF users. I am not sure, why I am getting this
issue.

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

MVS SEND command Error

[saurabh khandelwal]

Hello Group,

During execution of rexx, I am getting little weird output and not sure the
relationship between them .


 /*  REXX */

'PIPE SAFE * | STEM MSG.'



TODataset = Word( Msg.3,3 )

mvs "send 'My console name is  "TODataset"',user=(AB54,AB55),LOGON

exit



I am getting below error.



 IKJ144I   UNDEFINED USERID(S) AB55

 IKJ144I

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieam900/m012707.htm

and this explain that broadcast and uads are not matching. I dont
understand meaning of this error and how sync uads command will help to
solve this issue.

can anybody guide me how this send command works when we have multiple
users in list to receive those messages.

One more thing I noticed that, whichever user id I put it first in the send
command ex :  user=(AB54,AB55)  , AB54 . This user will get notified but
for rest of the users, I get undefined error.

These all are working RACF users. I am not sure, why I am getting this
issue.

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

Re: [EXTERNAL] AW: ISPF programming

[Itschak Mugzach]

I would look at panel Rexx. Its a Rexx coded in the panel init or proc 
sections. You need to save the first dd or cc command Crp location in a 
variable shared with your program.

ITschak

נשלח מה-iPad שלי

‫ב-19 ביוני 2018, בשעה 17:44, ‏‏Dyck, Lionel B. (RavenTek) 
‏ כתב/ה:‬

> Agreed - better to let ISPF services do their own thing *but* if you need to 
> do something like this at least you can. 
> 
> --
> Lionel B. Dyck (Contractor)  <
> Mainframe Systems Programmer – RavenTek Solution Partners
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Immo
> Sent: Tuesday, June 19, 2018 9:43 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: [EXTERNAL] AW: ISPF programming
> 
> Hi Lionel,
> 
> that sound like something everybody would rather avoid .
> 
> Thanks,
> Immo
> 
> -Ursprüngliche Nachricht-
> Von: IBM Mainframe Discussion List  Im Auftrag von 
> Dyck, Lionel B. (RavenTek)
> Gesendet: Dienstag, 19. Juni 2018 16:29
> An: IBM-MAIN@LISTSERV.UA.EDU
> Betreff: Re: [EXTERNAL] AW: ISPF programming
> 
> There is no way that I know of to capture the scrolling unless you make the 
> scrolling a passthru and then your application would have to process it. That 
> is doable - again just more code.
> 
> --
> Lionel B. Dyck (Contractor)  <
> Mainframe Systems Programmer – RavenTek Solution Partners
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Immo
> Sent: Tuesday, June 19, 2018 9:26 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: [EXTERNAL] AW: ISPF programming
> 
> Hi Lionel,
> 
> thanks for your reply. That's exactly what I'm doing. My problem is the 
> disappearance of the short message 'block command incomplete' during 
> scrolling. If sufficient table rows are already put into the table, my 
> program won't receive control from ISPF during scrolling. So I cannot 
> redisplay the message. Do you have any idea about this?
> 
> Greetings,
> Immo
> 
> -Ursprüngliche Nachricht-
> Von: IBM Mainframe Discussion List  Im Auftrag von 
> Dyck, Lionel B. (RavenTek)
> Gesendet: Dienstag, 19. Juni 2018 16:17
> An: IBM-MAIN@LISTSERV.UA.EDU
> Betreff: Re: [EXTERNAL] AW: ISPF programming
> 
> For your processing when you have a block command entered, that is a block 
> command that your application must process. You must first determine the 1st 
> row with the block command and then save that row as you scroll until you get 
> to the 2nd occurrence of the block command. After the user enters 'DD' (for 
> example) you can display a message if you don't find a 2nd 'DD'. It's just 
> code - perhaps not easy - but map it out and you'll get it.
> 
> --
> Lionel B. Dyck (Contractor)  <
> Mainframe Systems Programmer – RavenTek Solution Partners
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Immo
> Sent: Tuesday, June 19, 2018 9:06 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [EXTERNAL] AW: ISPF programming
> 
> Hi Elardus,
> thanks for you fast response.
> 
>> Are you referring to 'ISPF Tables' or your own table?
> I'm processing a table I've defined in a panel definition using a ')Model' 
> section. The table includes a 2 byte command input field in every line that 
> is mapped to a ZVAR. Does that answer your question?
> 
>> In what language? What ISPF utilities and macros are you using?
> I'm using 370/390 assembler calling 'ISPLINK' in order to request ISPF 
> functionality.
> 
> Groete / Greetings,
> Immo
> 
> -Ursprüngliche Nachricht-
> Von: IBM Mainframe Discussion List  Im Auftrag von 
> Elardus Engelbrecht
> Gesendet: Dienstag, 19. Juni 2018 15:41
> An: IBM-MAIN@LISTSERV.UA.EDU
> Betreff: Re: ISPF programming
> 
> Immo wrote:
> 
>> while programming a ISPF test program I would like to implement the use of 
>> block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order to 
>> do so I may need to display a message like 'block command incomplete' on 
>> various panel displays until the user either cancels the request or 
>> completes the incomplete block command.
> 
> Did you considered using an Edit Macro? Something like this?
> 
> ISREDIT MACRO
>  ISREDIT blah blah 
> ISREDIT END  
> 
> or the 'Dialog Services' in ISPF? 
> 
> 
>> The problem I'm facing right now is the fact that ISPF won't return control 
>> to my application program when the user scrolls through parts of the table 
>> display where no new lines need to be provided by my application program.
> 
> Are you referring to 'ISPF Tables' or your own table?
> 
> 
>> Does anybody know how to handle this or can I specify something e. g. in the 
>> panel definition in order to receive control 

Re: ptrace + SVC 144 + R14 + dbx setting register values

[Seymour J Metz]

By the pricking of my thumbs
SU7 this way comes.

IBM killed DSS twice; the second time it stayed dead.


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



From: IBM Mainframe Discussion List  on behalf of 
Tony Harminc 
Sent: Tuesday, June 19, 2018 1:02 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: ptrace + SVC 144 + R14 + dbx setting register values

On 4 June 2018 at 12:58, Seymour J Metz  wrote:
> PER uses program interrupts, not an SVC.

To say PER "uses" program interrupts is of course true, but sounds
slightly odd. PER interrupts are a specific subclass of program
interrupts that can occur concurrently with "normal" ones; it's very
different from debuggers that insert an invalid opcode in order to
produce a program interrupt.

> That said, calling an SVC does not normally alter R14; the SVC would have to 
> do something unusual.

> Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>> How does PER work?  I believe it's nondisruptive.  And I believe VM gives the
>> end user control over PER.

Yes. VM does. And because virtualization is so cool, you can have
virtual PER events taking place within z/OS while "real" PER events
within z/OS (or of course other guests) are being handled by z/VM. All
for some values of "virtual" and "real". And z/OS could surely have
something like VM/s PER-using commands, but it has chosen to give
ownership of PER to SLIP, which makes for a very poor debugger. A
privileged program could easily enough set up PER on its own, but
catching and handling any resulting interrupts without seriously
annoying SLIP would be the trick. Is there an interface to SLIP to
tell it that someone else is using PER too, I wonder.

Is anyone here old enough to remember DSS (the MVS Dynamic Support
System), which was a system level debugger that predates SLIP? *It*
used to own PER, but I believe it was removed in MVS 3.6 or so. There
are one or two remnants of it in current control blocks.

Tony H.

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

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

Re: [EXTERNAL] AW: ISPF programming

[Hobart Spitz]

I'm *really* rusty, but would .AUTOSEL help?  IIRC, it would give you
control back in additional situations.

Another thought:. It may help to check .RESP for a scroll key, save that
value, and set .RESP to ENTER .

Both are a bit cludgy, but something along those lines may help.

On Tue, 19 Jun 2018, 11:18 am Mike Schwab,  wrote:

> Can you control how far it scrolls?
> First scroll you limit the  CC or DD to the first / last line.
> Subsequent scrolls from the CC or DD would hide (XX..XX) the other
> lines and retain the CC or DD line on the screen?
> A scroll toward the CC or DD would show (F9 or L9) the number of
> screen lines away from the CC or DD.
> On Tue, Jun 19, 2018 at 9:29 AM Dyck, Lionel B. (RavenTek)
>  wrote:
> >
> > There is no way that I know of to capture the scrolling unless you make
> the scrolling a passthru and then your application would have to process
> it. That is doable - again just more code.
> >
> >
> --
> > Lionel B. Dyck (Contractor)  <
> > Mainframe Systems Programmer – RavenTek Solution Partners
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Immo
> > Sent: Tuesday, June 19, 2018 9:26 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: AW: [EXTERNAL] AW: ISPF programming
> >
> > Hi Lionel,
> >
> > thanks for your reply. That's exactly what I'm doing. My problem is the
> disappearance of the short message 'block command incomplete' during
> scrolling. If sufficient table rows are already put into the table, my
> program won't receive control from ISPF during scrolling. So I cannot
> redisplay the message. Do you have any idea about this?
> >
> > Greetings,
> > Immo
> >
> > -Ursprüngliche Nachricht-
> > Von: IBM Mainframe Discussion List  Im
> Auftrag von Dyck, Lionel B. (RavenTek)
> > Gesendet: Dienstag, 19. Juni 2018 16:17
> > An: IBM-MAIN@LISTSERV.UA.EDU
> > Betreff: Re: [EXTERNAL] AW: ISPF programming
> >
> > For your processing when you have a block command entered, that is a
> block command that your application must process. You must first determine
> the 1st row with the block command and then save that row as you scroll
> until you get to the 2nd occurrence of the block command. After the user
> enters 'DD' (for example) you can display a message if you don't find a 2nd
> 'DD'. It's just code - perhaps not easy - but map it out and you'll get it.
> >
> >
> --
> > Lionel B. Dyck (Contractor)  <
> > Mainframe Systems Programmer – RavenTek Solution Partners
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Immo
> > Sent: Tuesday, June 19, 2018 9:06 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: [EXTERNAL] AW: ISPF programming
> >
> > Hi Elardus,
> > thanks for you fast response.
> >
> > >Are you referring to 'ISPF Tables' or your own table?
> > I'm processing a table I've defined in a panel definition using a
> ')Model' section. The table includes a 2 byte command input field in every
> line that is mapped to a ZVAR. Does that answer your question?
> >
> > >In what language? What ISPF utilities and macros are you using?
> > I'm using 370/390 assembler calling 'ISPLINK' in order to request ISPF
> functionality.
> >
> > Groete / Greetings,
> > Immo
> >
> > -Ursprüngliche Nachricht-
> > Von: IBM Mainframe Discussion List  Im
> Auftrag von Elardus Engelbrecht
> > Gesendet: Dienstag, 19. Juni 2018 15:41
> > An: IBM-MAIN@LISTSERV.UA.EDU
> > Betreff: Re: ISPF programming
> >
> > Immo wrote:
> >
> > >while programming a ISPF test program I would like to implement the use
> of block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order
> to do so I may need to display a message like 'block command incomplete' on
> various panel displays until the user either cancels the request or
> completes the incomplete block command.
> >
> > Did you considered using an Edit Macro? Something like this?
> >
> > ISREDIT MACRO
> >   ISREDIT blah blah
> > ISREDIT END
> >
> > or the 'Dialog Services' in ISPF?
> >
> >
> > >The problem I'm facing right now is the fact that ISPF won't return
> control to my application program when the user scrolls through parts of
> the table display where no new lines need to be provided by my application
> program.
> >
> > Are you referring to 'ISPF Tables' or your own table?
> >
> >
> > >Does anybody know how to handle this or can I specify something e. g.
> in the panel definition in order to receive control in my application
> program when the user presses a scroll key without making any change to an
> input field of my panel?
> >
> > In what language? What ISPF utilities and macros are you using?
> >
> > Groete / Greetings
> > Elardus Engelbrehct
> >
> > --
> > For 

Re: ptrace + SVC 144 + R14 + dbx setting register values

[Tony Harminc]

On 4 June 2018 at 12:58, Seymour J Metz  wrote:
> PER uses program interrupts, not an SVC.

To say PER "uses" program interrupts is of course true, but sounds
slightly odd. PER interrupts are a specific subclass of program
interrupts that can occur concurrently with "normal" ones; it's very
different from debuggers that insert an invalid opcode in order to
produce a program interrupt.

> That said, calling an SVC does not normally alter R14; the SVC would have to 
> do something unusual.

> Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>> How does PER work?  I believe it's nondisruptive.  And I believe VM gives the
>> end user control over PER.

Yes. VM does. And because virtualization is so cool, you can have
virtual PER events taking place within z/OS while "real" PER events
within z/OS (or of course other guests) are being handled by z/VM. All
for some values of "virtual" and "real". And z/OS could surely have
something like VM/s PER-using commands, but it has chosen to give
ownership of PER to SLIP, which makes for a very poor debugger. A
privileged program could easily enough set up PER on its own, but
catching and handling any resulting interrupts without seriously
annoying SLIP would be the trick. Is there an interface to SLIP to
tell it that someone else is using PER too, I wonder.

Is anyone here old enough to remember DSS (the MVS Dynamic Support
System), which was a system level debugger that predates SLIP? *It*
used to own PER, but I believe it was removed in MVS 3.6 or so. There
are one or two remnants of it in current control blocks.

Tony H.

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

Re: [EXTERNAL] AW: ISPF programming

[Mike Schwab]

Can you control how far it scrolls?
First scroll you limit the  CC or DD to the first / last line.
Subsequent scrolls from the CC or DD would hide (XX..XX) the other
lines and retain the CC or DD line on the screen?
A scroll toward the CC or DD would show (F9 or L9) the number of
screen lines away from the CC or DD.
On Tue, Jun 19, 2018 at 9:29 AM Dyck, Lionel B. (RavenTek)
 wrote:
>
> There is no way that I know of to capture the scrolling unless you make the 
> scrolling a passthru and then your application would have to process it. That 
> is doable - again just more code.
>
> --
> Lionel B. Dyck (Contractor)  <
> Mainframe Systems Programmer – RavenTek Solution Partners
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Immo
> Sent: Tuesday, June 19, 2018 9:26 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: [EXTERNAL] AW: ISPF programming
>
> Hi Lionel,
>
> thanks for your reply. That's exactly what I'm doing. My problem is the 
> disappearance of the short message 'block command incomplete' during 
> scrolling. If sufficient table rows are already put into the table, my 
> program won't receive control from ISPF during scrolling. So I cannot 
> redisplay the message. Do you have any idea about this?
>
> Greetings,
> Immo
>
> -Ursprüngliche Nachricht-
> Von: IBM Mainframe Discussion List  Im Auftrag von 
> Dyck, Lionel B. (RavenTek)
> Gesendet: Dienstag, 19. Juni 2018 16:17
> An: IBM-MAIN@LISTSERV.UA.EDU
> Betreff: Re: [EXTERNAL] AW: ISPF programming
>
> For your processing when you have a block command entered, that is a block 
> command that your application must process. You must first determine the 1st 
> row with the block command and then save that row as you scroll until you get 
> to the 2nd occurrence of the block command. After the user enters 'DD' (for 
> example) you can display a message if you don't find a 2nd 'DD'. It's just 
> code - perhaps not easy - but map it out and you'll get it.
>
> --
> Lionel B. Dyck (Contractor)  <
> Mainframe Systems Programmer – RavenTek Solution Partners
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Immo
> Sent: Tuesday, June 19, 2018 9:06 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [EXTERNAL] AW: ISPF programming
>
> Hi Elardus,
> thanks for you fast response.
>
> >Are you referring to 'ISPF Tables' or your own table?
> I'm processing a table I've defined in a panel definition using a ')Model' 
> section. The table includes a 2 byte command input field in every line that 
> is mapped to a ZVAR. Does that answer your question?
>
> >In what language? What ISPF utilities and macros are you using?
> I'm using 370/390 assembler calling 'ISPLINK' in order to request ISPF 
> functionality.
>
> Groete / Greetings,
> Immo
>
> -Ursprüngliche Nachricht-
> Von: IBM Mainframe Discussion List  Im Auftrag von 
> Elardus Engelbrecht
> Gesendet: Dienstag, 19. Juni 2018 15:41
> An: IBM-MAIN@LISTSERV.UA.EDU
> Betreff: Re: ISPF programming
>
> Immo wrote:
>
> >while programming a ISPF test program I would like to implement the use of 
> >block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order to 
> >do so I may need to display a message like 'block command incomplete' on 
> >various panel displays until the user either cancels the request or 
> >completes the incomplete block command.
>
> Did you considered using an Edit Macro? Something like this?
>
> ISREDIT MACRO
>   ISREDIT blah blah
> ISREDIT END
>
> or the 'Dialog Services' in ISPF?
>
>
> >The problem I'm facing right now is the fact that ISPF won't return control 
> >to my application program when the user scrolls through parts of the table 
> >display where no new lines need to be provided by my application program.
>
> Are you referring to 'ISPF Tables' or your own table?
>
>
> >Does anybody know how to handle this or can I specify something e. g. in the 
> >panel definition in order to receive control in my application program when 
> >the user presses a scroll key without making any change to an input field of 
> >my panel?
>
> In what language? What ISPF utilities and macros are you using?
>
> Groete / Greetings
> Elardus Engelbrehct
>
> --
> 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, 

Re: [EXTERNAL] AW: ISPF programming

[Dyck, Lionel B. (RavenTek)]

Agreed - better to let ISPF services do their own thing *but* if you need to do 
something like this at least you can. 

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Immo
Sent: Tuesday, June 19, 2018 9:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: [EXTERNAL] AW: ISPF programming

Hi Lionel,

that sound like something everybody would rather avoid .

Thanks,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Dyck, Lionel B. (RavenTek)
Gesendet: Dienstag, 19. Juni 2018 16:29
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: [EXTERNAL] AW: ISPF programming

There is no way that I know of to capture the scrolling unless you make the 
scrolling a passthru and then your application would have to process it. That 
is doable - again just more code.

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Immo
Sent: Tuesday, June 19, 2018 9:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: [EXTERNAL] AW: ISPF programming

Hi Lionel,

thanks for your reply. That's exactly what I'm doing. My problem is the 
disappearance of the short message 'block command incomplete' during scrolling. 
If sufficient table rows are already put into the table, my program won't 
receive control from ISPF during scrolling. So I cannot redisplay the message. 
Do you have any idea about this?

Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Dyck, Lionel B. (RavenTek)
Gesendet: Dienstag, 19. Juni 2018 16:17
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: [EXTERNAL] AW: ISPF programming

For your processing when you have a block command entered, that is a block 
command that your application must process. You must first determine the 1st 
row with the block command and then save that row as you scroll until you get 
to the 2nd occurrence of the block command. After the user enters 'DD' (for 
example) you can display a message if you don't find a 2nd 'DD'. It's just code 
- perhaps not easy - but map it out and you'll get it.

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Immo
Sent: Tuesday, June 19, 2018 9:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] AW: ISPF programming

Hi Elardus,
thanks for you fast response.

>Are you referring to 'ISPF Tables' or your own table?
I'm processing a table I've defined in a panel definition using a ')Model' 
section. The table includes a 2 byte command input field in every line that is 
mapped to a ZVAR. Does that answer your question?

>In what language? What ISPF utilities and macros are you using?
I'm using 370/390 assembler calling 'ISPLINK' in order to request ISPF 
functionality.

Groete / Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Elardus Engelbrecht
Gesendet: Dienstag, 19. Juni 2018 15:41
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: ISPF programming

Immo wrote:

>while programming a ISPF test program I would like to implement the use of 
>block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order to do 
>so I may need to display a message like 'block command incomplete' on various 
>panel displays until the user either cancels the request or completes the 
>incomplete block command.

Did you considered using an Edit Macro? Something like this?

ISREDIT MACRO
  ISREDIT blah blah 
ISREDIT END  

or the 'Dialog Services' in ISPF? 


>The problem I'm facing right now is the fact that ISPF won't return control to 
>my application program when the user scrolls through parts of the table 
>display where no new lines need to be provided by my application program.

Are you referring to 'ISPF Tables' or your own table?


>Does anybody know how to handle this or can I specify something e. g. in the 
>panel definition in order to receive control in my application program when 
>the user presses a scroll key without making any change to an input field of 
>my panel?

In what language? What ISPF utilities and macros are you using?

Groete / Greetings
Elardus Engelbrehct

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

AW: [EXTERNAL] AW: ISPF programming

[Immo]

Hi Lionel,

that sound like something everybody would rather avoid .

Thanks,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Dyck, Lionel B. (RavenTek)
Gesendet: Dienstag, 19. Juni 2018 16:29
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: [EXTERNAL] AW: ISPF programming

There is no way that I know of to capture the scrolling unless you make the 
scrolling a passthru and then your application would have to process it. That 
is doable - again just more code.

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Immo
Sent: Tuesday, June 19, 2018 9:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: [EXTERNAL] AW: ISPF programming

Hi Lionel,

thanks for your reply. That's exactly what I'm doing. My problem is the 
disappearance of the short message 'block command incomplete' during scrolling. 
If sufficient table rows are already put into the table, my program won't 
receive control from ISPF during scrolling. So I cannot redisplay the message. 
Do you have any idea about this?

Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Dyck, Lionel B. (RavenTek)
Gesendet: Dienstag, 19. Juni 2018 16:17
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: [EXTERNAL] AW: ISPF programming

For your processing when you have a block command entered, that is a block 
command that your application must process. You must first determine the 1st 
row with the block command and then save that row as you scroll until you get 
to the 2nd occurrence of the block command. After the user enters 'DD' (for 
example) you can display a message if you don't find a 2nd 'DD'. It's just code 
- perhaps not easy - but map it out and you'll get it.

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Immo
Sent: Tuesday, June 19, 2018 9:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] AW: ISPF programming

Hi Elardus,
thanks for you fast response.

>Are you referring to 'ISPF Tables' or your own table?
I'm processing a table I've defined in a panel definition using a ')Model' 
section. The table includes a 2 byte command input field in every line that is 
mapped to a ZVAR. Does that answer your question?

>In what language? What ISPF utilities and macros are you using?
I'm using 370/390 assembler calling 'ISPLINK' in order to request ISPF 
functionality.

Groete / Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Elardus Engelbrecht
Gesendet: Dienstag, 19. Juni 2018 15:41
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: ISPF programming

Immo wrote:

>while programming a ISPF test program I would like to implement the use of 
>block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order to do 
>so I may need to display a message like 'block command incomplete' on various 
>panel displays until the user either cancels the request or completes the 
>incomplete block command.

Did you considered using an Edit Macro? Something like this?

ISREDIT MACRO
  ISREDIT blah blah 
ISREDIT END  

or the 'Dialog Services' in ISPF? 


>The problem I'm facing right now is the fact that ISPF won't return control to 
>my application program when the user scrolls through parts of the table 
>display where no new lines need to be provided by my application program.

Are you referring to 'ISPF Tables' or your own table?


>Does anybody know how to handle this or can I specify something e. g. in the 
>panel definition in order to receive control in my application program when 
>the user presses a scroll key without making any change to an input field of 
>my panel?

In what language? What ISPF utilities and macros are you using?

Groete / Greetings
Elardus Engelbrehct

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

Re: [EXTERNAL] AW: ISPF programming

[Wissink, Brad]

Ran various levels of OSA cards at ISU and I don't remember running OSASF on 
the host.   Turn it off on test lpar and see if anything breaks? :)


Brad Wissink| Sr. Systems Programmer
Sammons® Financial Group Member Companies
4350 Westown Pkwy | West Des Moines | IA 50266
Phone 515-267-2735 | ext. 33735 | Cell: 515-231-1511 

bwiss...@sfgmembers.com  | www.SammonsFinancialGroup.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (RavenTek)
Sent: Tuesday, June 19, 2018 9:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] AW: ISPF programming

There is no way that I know of to capture the scrolling unless you make the 
scrolling a passthru and then your application would have to process it. That 
is doable - again just more code.

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Immo
Sent: Tuesday, June 19, 2018 9:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: [EXTERNAL] AW: ISPF programming

Hi Lionel,

thanks for your reply. That's exactly what I'm doing. My problem is the 
disappearance of the short message 'block command incomplete' during scrolling. 
If sufficient table rows are already put into the table, my program won't 
receive control from ISPF during scrolling. So I cannot redisplay the message. 
Do you have any idea about this?

Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Dyck, Lionel B. (RavenTek)
Gesendet: Dienstag, 19. Juni 2018 16:17
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: [EXTERNAL] AW: ISPF programming

For your processing when you have a block command entered, that is a block 
command that your application must process. You must first determine the 1st 
row with the block command and then save that row as you scroll until you get 
to the 2nd occurrence of the block command. After the user enters 'DD' (for 
example) you can display a message if you don't find a 2nd 'DD'. It's just code 
- perhaps not easy - but map it out and you'll get it.

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Immo
Sent: Tuesday, June 19, 2018 9:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] AW: ISPF programming

Hi Elardus,
thanks for you fast response.

>Are you referring to 'ISPF Tables' or your own table?
I'm processing a table I've defined in a panel definition using a ')Model' 
section. The table includes a 2 byte command input field in every line that is 
mapped to a ZVAR. Does that answer your question?

>In what language? What ISPF utilities and macros are you using?
I'm using 370/390 assembler calling 'ISPLINK' in order to request ISPF 
functionality.

Groete / Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Elardus Engelbrecht
Gesendet: Dienstag, 19. Juni 2018 15:41
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: ISPF programming

Immo wrote:

>while programming a ISPF test program I would like to implement the use of 
>block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order to do 
>so I may need to display a message like 'block command incomplete' on various 
>panel displays until the user either cancels the request or completes the 
>incomplete block command.

Did you considered using an Edit Macro? Something like this?

ISREDIT MACRO
  ISREDIT blah blah 
ISREDIT END  

or the 'Dialog Services' in ISPF? 


>The problem I'm facing right now is the fact that ISPF won't return control to 
>my application program when the user scrolls through parts of the table 
>display where no new lines need to be provided by my application program.

Are you referring to 'ISPF Tables' or your own table?


>Does anybody know how to handle this or can I specify something e. g. in the 
>panel definition in order to receive control in my application program when 
>the user presses a scroll key without making any change to an input field of 
>my panel?

In what language? What ISPF utilities and macros are you using?

Groete / Greetings
Elardus Engelbrehct

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

Fwd: Security and Performance Help Mainframes Stand the Test of Time - The Linux Foundation

[Mark Regan]

https://www.linuxfoundation.org/blog/security-and-performance-help-mainframes-stand-the-test-of-time/

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

Re: [EXTERNAL] AW: ISPF programming

[Dyck, Lionel B. (RavenTek)]

There is no way that I know of to capture the scrolling unless you make the 
scrolling a passthru and then your application would have to process it. That 
is doable - again just more code.

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Immo
Sent: Tuesday, June 19, 2018 9:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: [EXTERNAL] AW: ISPF programming

Hi Lionel,

thanks for your reply. That's exactly what I'm doing. My problem is the 
disappearance of the short message 'block command incomplete' during scrolling. 
If sufficient table rows are already put into the table, my program won't 
receive control from ISPF during scrolling. So I cannot redisplay the message. 
Do you have any idea about this?

Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Dyck, Lionel B. (RavenTek)
Gesendet: Dienstag, 19. Juni 2018 16:17
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: [EXTERNAL] AW: ISPF programming

For your processing when you have a block command entered, that is a block 
command that your application must process. You must first determine the 1st 
row with the block command and then save that row as you scroll until you get 
to the 2nd occurrence of the block command. After the user enters 'DD' (for 
example) you can display a message if you don't find a 2nd 'DD'. It's just code 
- perhaps not easy - but map it out and you'll get it.

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Immo
Sent: Tuesday, June 19, 2018 9:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] AW: ISPF programming

Hi Elardus,
thanks for you fast response.

>Are you referring to 'ISPF Tables' or your own table?
I'm processing a table I've defined in a panel definition using a ')Model' 
section. The table includes a 2 byte command input field in every line that is 
mapped to a ZVAR. Does that answer your question?

>In what language? What ISPF utilities and macros are you using?
I'm using 370/390 assembler calling 'ISPLINK' in order to request ISPF 
functionality.

Groete / Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Elardus Engelbrecht
Gesendet: Dienstag, 19. Juni 2018 15:41
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: ISPF programming

Immo wrote:

>while programming a ISPF test program I would like to implement the use of 
>block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order to do 
>so I may need to display a message like 'block command incomplete' on various 
>panel displays until the user either cancels the request or completes the 
>incomplete block command.

Did you considered using an Edit Macro? Something like this?

ISREDIT MACRO
  ISREDIT blah blah 
ISREDIT END  

or the 'Dialog Services' in ISPF? 


>The problem I'm facing right now is the fact that ISPF won't return control to 
>my application program when the user scrolls through parts of the table 
>display where no new lines need to be provided by my application program.

Are you referring to 'ISPF Tables' or your own table?


>Does anybody know how to handle this or can I specify something e. g. in the 
>panel definition in order to receive control in my application program when 
>the user presses a scroll key without making any change to an input field of 
>my panel?

In what language? What ISPF utilities and macros are you using?

Groete / Greetings
Elardus Engelbrehct

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

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

AW: [EXTERNAL] AW: ISPF programming

[Immo]

Hi Lionel,

thanks for your reply. That's exactly what I'm doing. My problem is the 
disappearance of the short message 'block command incomplete' during scrolling. 
If sufficient table rows are already put into the table, my program won't 
receive control from ISPF during scrolling. So I cannot redisplay the message. 
Do you have any idea about this?

Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Dyck, Lionel B. (RavenTek)
Gesendet: Dienstag, 19. Juni 2018 16:17
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: [EXTERNAL] AW: ISPF programming

For your processing when you have a block command entered, that is a block 
command that your application must process. You must first determine the 1st 
row with the block command and then save that row as you scroll until you get 
to the 2nd occurrence of the block command. After the user enters 'DD' (for 
example) you can display a message if you don't find a 2nd 'DD'. It's just code 
- perhaps not easy - but map it out and you'll get it.

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Immo
Sent: Tuesday, June 19, 2018 9:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] AW: ISPF programming

Hi Elardus,
thanks for you fast response.

>Are you referring to 'ISPF Tables' or your own table?
I'm processing a table I've defined in a panel definition using a ')Model' 
section. The table includes a 2 byte command input field in every line that is 
mapped to a ZVAR. Does that answer your question?

>In what language? What ISPF utilities and macros are you using?
I'm using 370/390 assembler calling 'ISPLINK' in order to request ISPF 
functionality.

Groete / Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Elardus Engelbrecht
Gesendet: Dienstag, 19. Juni 2018 15:41
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: ISPF programming

Immo wrote:

>while programming a ISPF test program I would like to implement the use of 
>block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order to do 
>so I may need to display a message like 'block command incomplete' on various 
>panel displays until the user either cancels the request or completes the 
>incomplete block command.

Did you considered using an Edit Macro? Something like this?

ISREDIT MACRO
  ISREDIT blah blah 
ISREDIT END  

or the 'Dialog Services' in ISPF? 


>The problem I'm facing right now is the fact that ISPF won't return control to 
>my application program when the user scrolls through parts of the table 
>display where no new lines need to be provided by my application program.

Are you referring to 'ISPF Tables' or your own table?


>Does anybody know how to handle this or can I specify something e. g. in the 
>panel definition in order to receive control in my application program when 
>the user presses a scroll key without making any change to an input field of 
>my panel?

In what language? What ISPF utilities and macros are you using?

Groete / Greetings
Elardus Engelbrehct

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

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

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

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

Re: [EXTERNAL] AW: ISPF programming

[Dyck, Lionel B. (RavenTek)]

For your processing when you have a block command entered, that is a block 
command that your application must process. You must first determine the 1st 
row with the block command and then save that row as you scroll until you get 
to the 2nd occurrence of the block command. After the user enters 'DD' (for 
example) you can display a message if you don't find a 2nd 'DD'. It's just code 
- perhaps not easy - but map it out and you'll get it.

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Immo
Sent: Tuesday, June 19, 2018 9:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] AW: ISPF programming

Hi Elardus,
thanks for you fast response.

>Are you referring to 'ISPF Tables' or your own table?
I'm processing a table I've defined in a panel definition using a ')Model' 
section. The table includes a 2 byte command input field in every line that is 
mapped to a ZVAR. Does that answer your question?

>In what language? What ISPF utilities and macros are you using?
I'm using 370/390 assembler calling 'ISPLINK' in order to request ISPF 
functionality.

Groete / Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Elardus Engelbrecht
Gesendet: Dienstag, 19. Juni 2018 15:41
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: ISPF programming

Immo wrote:

>while programming a ISPF test program I would like to implement the use of 
>block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order to do 
>so I may need to display a message like 'block command incomplete' on various 
>panel displays until the user either cancels the request or completes the 
>incomplete block command.

Did you considered using an Edit Macro? Something like this?

ISREDIT MACRO
  ISREDIT blah blah 
ISREDIT END  

or the 'Dialog Services' in ISPF? 


>The problem I'm facing right now is the fact that ISPF won't return control to 
>my application program when the user scrolls through parts of the table 
>display where no new lines need to be provided by my application program.

Are you referring to 'ISPF Tables' or your own table?


>Does anybody know how to handle this or can I specify something e. g. in the 
>panel definition in order to receive control in my application program when 
>the user presses a scroll key without making any change to an input field of 
>my panel?

In what language? What ISPF utilities and macros are you using?

Groete / Greetings
Elardus Engelbrehct

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

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

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

Re: ptrace + SVC 144 + R14 + dbx setting register values

[Thomas David Rivers]

Peter Relson wrote:


if SVCs architecturally have this restriction
   



SVCs do not architecturally have this restriction.

Given what I know in general (not specific to USS), I would not make the 
assumption that "...because the SVC 144 routine uses register 14 to exit" 
is true.
It might be true that a modification to register 14 is lost, but this is 
not the reason. Conceivably the designer/coder of that routine that it was 
true, but that doesn't make it true.


I'll see if I can track down someone who knows.

Peter Relson
z/OS Core Technology Design


 


Hi Peter!

Did your search bear any fruit?

   - Thanks -
  - Dave Rivers -



--
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com

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

AW: ISPF programming

[Immo]

Hi Elardus,
thanks for you fast response.

>Are you referring to 'ISPF Tables' or your own table?
I'm processing a table I've defined in a panel definition using a ')Model' 
section. The table includes a 2 byte command input field in every line that is 
mapped to a ZVAR. Does that answer your question?

>In what language? What ISPF utilities and macros are you using?
I'm using 370/390 assembler calling 'ISPLINK' in order to request ISPF 
functionality.

Groete / Greetings,
Immo

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
Elardus Engelbrecht
Gesendet: Dienstag, 19. Juni 2018 15:41
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: ISPF programming

Immo wrote:

>while programming a ISPF test program I would like to implement the use of 
>block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order to do 
>so I may need to display a message like 'block command incomplete' on various 
>panel displays until the user either cancels the request or completes the 
>incomplete block command.

Did you considered using an Edit Macro? Something like this?

ISREDIT MACRO
  ISREDIT blah blah 
ISREDIT END  

or the 'Dialog Services' in ISPF? 


>The problem I'm facing right now is the fact that ISPF won't return control to 
>my application program when the user scrolls through parts of the table 
>display where no new lines need to be provided by my application program.

Are you referring to 'ISPF Tables' or your own table?


>Does anybody know how to handle this or can I specify something e. g. in the 
>panel definition in order to receive control in my application program when 
>the user presses a scroll key without making any change to an input field of 
>my panel?

In what language? What ISPF utilities and macros are you using?

Groete / Greetings
Elardus Engelbrehct

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

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

Re: ISPF programming

[Elardus Engelbrecht]

Immo wrote:

>while programming a ISPF test program I would like to implement the use of 
>block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order to do 
>so I may need to display a message like 'block command incomplete' on various 
>panel displays until the user either cancels the request or completes the 
>incomplete block command.

Did you considered using an Edit Macro? Something like this?

ISREDIT MACRO
  ISREDIT blah blah 
ISREDIT END  

or the 'Dialog Services' in ISPF? 


>The problem I'm facing right now is the fact that ISPF won't return control to 
>my application program when the user scrolls through parts of the table 
>display where no new lines need to be provided by my application program.

Are you referring to 'ISPF Tables' or your own table?


>Does anybody know how to handle this or can I specify something e. g. in the 
>panel definition in order to receive control in my application program when 
>the user presses a scroll key without making any change to an input field of 
>my panel?

In what language? What ISPF utilities and macros are you using?

Groete / Greetings
Elardus Engelbrehct

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

Re: REXX to change Date in PDS member

[Elardus Engelbrecht]

Please pardon me, I know I am very late to this thread, but ...


saurabh khandelwal wrote:

>We are looking for YYMMDD format, which is DATE('S') function in REXX

And you want to use a volser starting with 'D' and a date format? That will not 
work. Try using another volser naming standard or use a another method listed 
earlier in this thread using a character for each month.

Just a caveat - if you have a tape management system, if you try to enforce 
volsername(s), that will not work always. Of course YMMV.


>Ex : In this below DD name, from JCL should be updated with today's date in 
>OV='D18611'
>//IEB  PROC OV='D18611',DS='DS',LB='LB',GDG='(0)'

What I usually do in this case:

I create a member (as input to your REXX program) with ZZ as Volser name 
with these sample lines like this:

//IEB  PROC OV='ZZ',DS='DS',LB='LB',GDG='(0)'
// UNIT=359D,VOL=SER=(ZZ),LABEL=(193,SL)

I create a new variable, say NEWVOL with your new volser details and using Sri 
example REXX program.

Then I parse each line like this 

PARSE VAR LINE PARTONE 'ZZ' PARTWO

Then, if PARSE is successful, I replace LINE with this sample line

LINE = PARTONE ||  NEWVOL || PARTWO

You can expand the PARSE to handle more JCL fields like that LABEL value of 193.


You really need to get training to write REXX programs or go to the REXX 
discussion list as recommended earlier.


Groete / Greetings
Elardus Engelbrecht

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

ISPF programming

[Immo]

Hi,

while programming a ISPF test program I would like to implement the use of
block commands such as 'CC..CC' or 'DD..DD' in the ISPF editor. In order to
do so I may need to display a message like 'block command incomplete' on
various panel displays until the user either cancels the request or
completes the incomplete block command.

The problem I'm facing right now is the fact that ISPF won't return control
to my application program when the user scrolls through parts of the table
display where no new lines need to be provided by my application program.
So, unfortunately, my 'block command incomplete' message disappears after
pressing e. g. the PF7 key though the incomplete state hasn't changed.

Does anybody know how to handle this or can I specify something e. g. in the
panel definition in order to receive control in my application program when
the user presses a scroll key without making any change to an input field of
my panel?

Kind regards and thanks in advance,

Immo

 

 


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

2 possible RFE --- ISPF & SDSF.

[John McKown]

I have tested this on my z/OS 1.12 system at work. And on a z/OS 2.3 system
to which I have access, at the Dallas Innovation Center.

1) I think it would be nice if I could do a "SUBMIT" command in ISPF option
2 when I have a list of UNIX files displayed, rather than members of a PDS.
Yes, I know that I could do an RYO REXX exec. I just don't wanna {grin}.

2) In SDSF, I quite often want to resubmit a job, as is, which is in the
output queue. At present, I do an SJ on it, followed by "submit;end;;". I
would also like a SDSF line command, preferably named SUBMIT, which would
do this for me. Again, RYO is a possibility, but ... .

Yes, I am one lazy old man.

-- 
There is no such thing as the Cloud. It is just somebody else’s computer.

Maranatha! <><
John McKown

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