Page 1 of 1

Unable to find the cursor values.. can anyone help??

PostPosted: Tue Jan 24, 2012 11:12 am
by tinchu23
Member CUS in PDS 'TIABC.TEXT.EXEC'

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

Re: Unable to find the cursor values.. can anyone help??

PostPosted: Tue Jan 24, 2012 8:15 pm
by Pedro
When you use APPL(EXEC), the dataset is only active for that application. For example, if you have split the screen and issue ALTLIB in screen 1, it will not work in screen 2. I am not sure, but it could be that you loose the altlib when you navigate to a different application in the same screen.

Use the SYSTEM(EXEC) parameter instead of APPL(EXEC).

When you use TSO EXEC ..., you leave the editor before execution of your rexx program, so the edit macro statements will not work.

Re: Unable to find the cursor values.. can anyone help??

PostPosted: Tue Jan 24, 2012 8:46 pm
by tinchu23
Pedro.. I did make the changes for ALTLIB but I am getting a different error.
I tried following two approach to do ALTLIB but both the times I am getting same error....
1.
/*REXX */
ADDRESS TSO "ALTLIB DEACTIVATE SYSTEM(EXEC)"
ADDRESS TSO "ALTLIB ACTIVATE SYSTEM(EXEC) DA('TIABC.TEXT.EXEC')"

2.
/*REXX */
ADDRESS TSO "ALTLIB ACTIVATE SYSTEM(EXEC) DA('TIABC.TEXT.EXEC')"

Error Message:
IKJ79307I ALTLIB terminated. Extraneous information specified.+
IKJ79307I Specify a data set list or DDNAME only when activating an application
level alternative library.

Re: Unable to find the cursor values.. can anyone help??

PostPosted: Tue Jan 24, 2012 8:53 pm
by enrico-sorichetti
why not look Yourself at the manuals starting for example from here ...
http://publibz.boulder.ibm.com/cgi-bin/ ... s/IKJ4BK90
not the latest ones but more than enough for the task being discussed
and here the same for ispf
http://publibz.boulder.ibm.com/cgi-bin/ ... s/ISPZPM70

Re: Unable to find the cursor values.. can anyone help??

PostPosted: Tue Jan 24, 2012 9:35 pm
by tinchu23
Enrico.. thanks for sharing the links, However I did ALTLIB DISPLAY and it shows
IKJ79325I Application-level EXEC DDNAME=SYS00014
IKJ79328I System-level CLIST DDNAME=SYSPROC

and doing TSO ISRDDN shows for SYS00014 as SYS00014 TIABC.TEXT.EXEC

there is another macro which is present in same pds is working.. So I am a bit confused why it's not working if
I am trying to find the cursor position's values while viewing or editing any other PDS member.

Really appreciate your expert help in advance.. I am a new to rexx.

Re: Unable to find the cursor values.. can anyone help??

PostPosted: Tue Jan 24, 2012 11:01 pm
by MrSpock
Just copy the macro to the member "CUS" in the libary that your system already has allocated for storing ISPF Edit Macros, or just concatenate your library to the existing SYSPROC allocation, or allocate it exclusively to SYSPROC. You're wasting your time and ours with the ALTLIB method.