| View previous topic :: View next topic |
| Author |
Message |
shiv_swami
Beginner
Joined: 29 Nov 2003
Posts: 68
Topics: 14
|
 Posted: Mon Feb 02, 2004 6:48 am Post subject: REXX macro for upper-case giving error- RC(20) |
 |
|
Hi ,
I have created this simple REXX macro to convert to UPPER.
| Code: | /* REXX */
TRACE E
ISREDIT MACRO
ISREDIT BUILTIN 'C P"<" P">" ALL' |
Macro is stored in xxxxxxx.REXX.EXEC(UPR)
I try to execute by ..TSO EXEC 'XXXXXXX.REXX.EXEC(UPR)' EXEC in command line and get following error
*-* ISREDIT MACRO
+++ RC(20) +++
I am facing same problem for couple of other Rexx macros.My REXX scritps run fine but I am facing problem with EDIT macros.
_________________
Regards,
Shivprakash |
|
| Back to top |
|
 |
Mike Chantrey
Intermediate
Joined: 10 Sep 2003
Posts: 234
Topics: 1
Location: Wansford
|
| Posted: Mon Feb 02, 2004 11:02 am Post subject: |
|
|
Shouldn't it be : | Code: |
/* REXX */
TRACE E
ADDRESS ISREDIT MACRO
ADDRESS ISREDIT BUILTIN 'C P"<" P">" ALL'
|
|
|
| Back to top |
|
|
Mervyn
Moderator
Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
|
| Posted: Mon Feb 02, 2004 4:26 pm Post subject: |
|
|
I prefer this syntax:
| Code: |
/* REXX */
TRACE E
ADDRESS ISREDIT "MACRO"
ADDRESS ISREDIT "C P'<' P'>' ALL"
|
In addition, that's not how you execute an edit macro. You need to have xxxxxxx.REXX.EXEC in your SYSPROC or SYSEXEC concatenation, and then just issue 'UPR' in the command area of your edit panel.
_________________
The day you stop learning the dinosaur becomes extinct |
|
| Back to top |
|
|
Mike
Beginner
Joined: 03 Dec 2002
Posts: 114
Topics: 0
Location: Sydney, Australia
|
| Posted: Mon Feb 02, 2004 6:01 pm Post subject: |
|
|
In addtion mervyn's point regarding invoking an edit macro. An edit macro has to be invoked from within ISPF EDIT (or VIEW). This can be done in one of 3 ways:-
1) Issuing the macro from the command line when manually invoking EDIT.
2) Via the Initial Macro field of the ISPF Edit or View invocation panel (note this will cause the edit macro to be invoked against all selected members).
3) By setting the MACRO parm when invoking the ISPF EDIT or VIEW service via ISPEXEC or ISPLINK from within a program.
_________________
Regards,
Mike. |
|
| Back to top |
|
|
Mervyn
Moderator
Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
|
| Posted: Tue Feb 03, 2004 4:52 pm Post subject: |
|
|
OK, who's going to come up with a 4th way? 
_________________
The day you stop learning the dinosaur becomes extinct |
|
| Back to top |
|
|
Maton_Man
Beginner
Joined: 30 Jan 2004
Posts: 123
Topics: 0
|
| Posted: Tue Feb 03, 2004 7:33 pm Post subject: |
|
|
In batch... 
Incidentally, you only need to address the ISREDIT environment once, thus:
ADDRESS ISREDIT
"MACRO"
"C P'<' P'>' ALL"
This is more efficient and easier to read, especially when you have multiple commands to the same environment in succession.
8)
_________________
My opinions are exactly that. |
|
| Back to top |
|
|
Mike
Beginner
Joined: 03 Dec 2002
Posts: 114
Topics: 0
Location: Sydney, Australia
|
| Posted: Tue Feb 03, 2004 7:53 pm Post subject: |
|
|
Ok Merv,
how about the EDIF and VIIF interfaces
_________________
Regards,
Mike. |
|
| Back to top |
|
|
semigeezer
Supermod
Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
|
| Posted: Wed Feb 04, 2004 1:38 am Post subject: |
|
|
- ZUSERMAC
- ISPF System Wide macro,
- Via another macro
- logic within a custom edit/view/viif/edif panel
- ALTLIB
- SYSUPROC
- ISREDIT DEFINE ... MACRO
- probably many more
|
|
| Back to top |
|
|
Mervyn
Moderator
Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
|
| Posted: Wed Feb 04, 2004 2:50 pm Post subject: |
|
|
Nobody likes a Smart A***!
Congratulations, you win the coconut!
_________________
The day you stop learning the dinosaur becomes extinct |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
