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:[email protected]] On Behalf 
Of Willy Jensen
Sent: Monday, September 15, 2025 2:15 AM
To: [email protected]
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 [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to