View previous topic :: View next topic
|
Author |
Message |
chowdhrykapildev
New User
Joined: 05 Aug 2009 Posts: 44 Location: Hyderabad
|
|
|
|
Hello All,
lets say there is a command GETPROC which will open the proc for us when the cursor is placed at a PROC inside a PL/1 program.
For this I need to specify the libraries in which it has to perform the search.
My doubt is.. how can we specify user defined libs for the REXX exec to search in for.
I have used the following code:
Code: |
when sysnode='MVSADM1' then
do
proc.proc00 = proc.proc00 'SYS1.PROCLIB'
proc.proc00 = proc.proc00 'SYS1.DBDC.PROCLIB'
proc.proc00 = proc.proc00 'SYS1.XGROUP.PROCLIB'
proc.proc00 = proc.proc00 'ALL.PROCLIB'
proc.proc00 = proc.proc00 'CECFRT.PROD.PROCLIB'
proc.proc00 = proc.proc00 'CECFRT.IN80916.PROCLIB'
proc.proc00 = proc.proc00 'LCRAT.PROD.PROCLIB'
proc.proc00 = proc.proc00 'LCRAT.IN80916.PROCLIB'
end |
but it gives an error:
Code: |
66 +++ proc.proc00 = proc.proc00 'SYS1.PROCLIB'
+++ "SYNTAX"
Error running GETPROC, line 66: Label not found |
This is how I invoke this MACRO
Code: |
CECFRT.SYST.PLI(CECFR02) - 01.99
===> GETPROC
DCL PLIXOPT CHAR(50) VAR STATIC EXT
INIT('STACK(32K,32K)');
%INCLUDE COMBUILD; |
The cursor is placed at COMBUILD and hit ENTER |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
Posting more of the code might give mere mortal non-psychics like us a clue... |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
It looks okay to me, but PROC might be a reserved word. Try changing the stem name to some other name. |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
Pedro wrote: |
It looks okay to me, but PROC might be a reserved word. Try changing the stem name to some other name. |
REXX does not have reserved words. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Where are you assigning a value to proc00 |
|
Back to top |
|
|
|