I've used this - probably sourced from either the CBT Tape or Mark Zelden
originally - but (looking at my comment) it's been a while and that buffer has
been cleared.
/* THIS CLIST WILL BRING A DATASET IDENTIFIED BY THE CURSOR POSITION */
/* UP IN EDIT WHEN INVOKED FROM EDIT. */
/* TO USE IT ISSUE COMMAND " CE " FROM THE COMMAND LINE WHILST YOUR */
/* CURSOR IS ANYWHERE WITHIN THE DATASET NAME YOU WISH TO EDIT */
/* CREATED 3/20/92 JRW
ISREDIT MACRO NOPROCESS
ISPEXEC CONTROL ERRORS RETURN
ISREDIT (CL,CC) = CURSOR
IF &CC = 0 THEN EXIT CODE(0)
SET DELIM = &NRSTR(~`!@#%^&&-_=+¦\{¢|};:'"<,>?/ )
ISREDIT (LINE) = LINE .ZCSR
ISREDIT (END) = LRECL
SET START = 1
DO I = &CC TO &START BY -1
IF &SYSINDEX(&SUBSTR(&I,&NRSTR(&LINE)),&NRSTR(&DELIM),1) > 0 +
THEN SET START = &I + 1
END
DO I = &CC TO &END
IF &SYSINDEX(&SUBSTR(&I,&NRSTR(&LINE)),&NRSTR(&DELIM),1) > 0 +
THEN SET END = &I - 1
END
IF &START > &END THEN EXIT CODE(0)
SET WORD = &SUBSTR(&START:&END,&NRSTR(&LINE))
ISPEXEC EDIT DATASET('&WORD')
IF &LASTCC > 0 THEN ISPEXEC SETMSG MSG(&ZERRMSG)
EXIT CODE(0)
Jerry Whitteridge
Manager Mainframe Systems & Storage
Albertsons - Safeway Inc.
925 738 9443
Corporate Tieline - 89443
If you feel in control
you just aren't going fast enough.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Mike Kovach
Sent: Monday, February 01, 2016 10:02 AM
To: [email protected]
Subject: Re: Does anyone out there have the source code for CURSORED?
To clarify... While in EDIT, you place the cursor on any character in a
Datasetname and an edit window open with the target dataset.
I am looking for the source code. Anything like will be appreciated
Thanks
Mike Kovach
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] 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 [email protected] with the message: INFO IBM-MAIN
