There are a couple of edit macro's out there called CB (Cursor Browse) and CE 
(Cursor Edit) . I think Mark Zelden wrote them but not sure


Jerry Whitteridge
Sr Manager Managed Services
Tech Operations & Innovation
jerry.whitteri...@albertsons.com
480 578 7889

-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Steve Beaver
Sent: Tuesday, September 16, 2025 10:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXTERNAL Email: Re: This is a How do I do

Basically what I would like to do is do What Quickref does.  Put that cursor on 
the DSN and have that DSN opened
In a VIEW after putting a DS on the COMMAND line

//VSH1     JOB   MSGLEVEL=(1,1),MSGCLASS=A,NOTIFY=&SYSUID
 //COMPILE  EXEC  PGM=IGYCRCTL,REGION=0M,
 //         PARM='LIST,NOSEQ,MDECK'
 //STEPLIB  DD DISP=SHR,DSN=IGY640.SIGYCOMP
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DISP=SHR,DSN=PHS.PDS.SOURCE(VSH1)
//SYSMDECK DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLIN   DD DISP=SHR,DSN=PHS.PDS.OBJ(VSH1)
//SYSLIB   DD DISP=SHR,DSN=VSH.BASE840.SAMPLIB


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Willy Jensen
Sent: Monday, September 15, 2025 2:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: This is a How do I do

Maybe this will help..
In your program.do a
  address ispexec "vget (zscreeni zscreenc zscreenw zscreend)"

zscreeni   is an image of the entire screen in text format.
zscreenc  is the cursor position in that image
zscreenw  is the screen width
zscreend  is the screen depth

Using the image and cursor pos, you can pick the information that the cursor 
points to and act accordingly.
This also works in an edit macro.

----------------------------------------------------------------------
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
________________________________
 Warning: All e-mail sent to this address will be received by the corporate 
e-mail system, and is subject to archival and review by someone other than the 
recipient. This e-mail may contain proprietary information and is intended only 
for the use of the intended recipient(s). If the reader of this message is not 
the intended recipient(s), you are notified that you have received this message 
in error and that any review, dissemination, distribution or copying of this 
message is strictly prohibited. If you have received this message in error, 
please notify the sender immediately.
________________________________

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

Reply via email to