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



IBM's Command List programming language & Restructured Extended Executor

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

Postby tinchu23 » Tue Jan 24, 2012 11:12 am

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???
tinchu23
 
Posts: 3
Joined: Tue Jan 24, 2012 10:48 am
Has thanked: 0 time
Been thanked: 0 time

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

Postby Pedro » Tue Jan 24, 2012 8:15 pm

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.
Pedro Vera
User avatar
Pedro
 
Posts: 686
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 53 times

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

Postby tinchu23 » Tue Jan 24, 2012 8:46 pm

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.
tinchu23
 
Posts: 3
Joined: Tue Jan 24, 2012 10:48 am
Has thanked: 0 time
Been thanked: 0 time

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

Postby enrico-sorichetti » Tue Jan 24, 2012 8:53 pm

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
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 3006
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 165 times

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

Postby tinchu23 » Tue Jan 24, 2012 9:35 pm

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.
tinchu23
 
Posts: 3
Joined: Tue Jan 24, 2012 10:48 am
Has thanked: 0 time
Been thanked: 0 time

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

Postby MrSpock » Tue Jan 24, 2012 11:01 pm

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.
User avatar
MrSpock
Global moderator
 
Posts: 809
Joined: Wed Jun 06, 2007 9:37 pm
Location: Raleigh NC USA
Has thanked: 0 time
Been thanked: 4 times


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post