Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Unable to find the cursor position values.. Please help..

Status
Not open for further replies.

tss23

Programmer
Jan 24, 2012
1
IN
Member CUS

/* REXX */
ADDRESS ISREDIT "MACRO"
ADDRESS ISREDIT "(ROW,COL) = CURSOR"
ADDRESS ISREDIT "(THELINE) = LINE .ZCSR"
SAY THELINE
SAY ROW
RETURN

After this I did altlib with the following command Just to make sure that it is concatenated to sysexec/proc

000010 /*REXX */
000100 ADDRESS TSO "ALTLIB DEACTIVATE APPL(EXEC)"
000200 ADDRESS TSO "ALTLIB ACTIVATE APPL(EXEC) DA('TIABC.TEXT.EXEC)')"

Now when I am opening a member in any PDS Then typing the command CUS(since it's a macro) at command prompt
Its giving the error message command not found

and when I am doing TSO EXEC 'TIABC.TEXT.EXEC(CUS)'
THEN its showing following literal not any value for this.
THELINE
ROW

Can anyone pls help me on this???
 
Just copy you macro into your site-specfied ISPF macro library and be done with it. If you must use your own library, then talk to your site support team to find out how to include your library into your ISPF library concatenation.
 
Fifteen years ago when I last used TSO and ISPF, I always put edit macros, whether written in CLIST or REXX, into the SYSPROC concatenation, rather than SYSEXEC. I don't know if that matters.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top