REXX macro
Peter Uhrig
a little questions, i have a line macro to build RACF statements. How can give a data for the macro ?
"arg grp" does not hand over the data
/* rexx: edit macro */
arg grp .
address isredit
"MACRO NOPROCESS"
gruppe = strip(grp,b)
upper gruppe
"PROCESS RANGE K"
"(ab) = LINENUM .ZFRANGE"
"(bis) = LINENUM .ZLRANGE"
do nr = ab to bis
"(zeilealt) =line" nr
address tso
zeilalt = strip(zeilealt,b)
zeileneu = 'CO ('!!zeilalt!!") GROUP("!!gruppe!!")",
" OWNER("!!gruppe!!") AUTHORIZE(USE)"
address isredit
"line" nr "='"zeileneu"'"
end
zedmsg = 'zeilen ge�ndert'
thanks for any idea
regards peter
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
Höglund Lars
-----Ursprungligt meddelande-----
Fr�n: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] F�r Peter Uhrig
Skickat: den 10 december 2009 12:40
Till: TSO-...@VM.MARIST.EDU
�mne: [TSO-REXX] REXX macro
Grant Ward Able
parse upper arg grp ?
--
Regards - Grant
=====================================
Note: Any opinion expressed is my own
No trees were killed in the sending of this message, but a large number of
electrons were severely disturbed.
Peter Uhrig <peter...@BHF-BANK.COM>
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
10/12/2009 11:40
Please respond to
TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
To
TSO-...@VM.MARIST.EDU
cc
Subject
[TSO-REXX] REXX macro
<FONT size=2><BR>
DTCC DISCLAIMER: This email and any files transmitted with it are
confidential and intended solely for the use of the individual or
entity to whom they are addressed. If you have received this email
in error, please notify us immediately and delete the email and any
attachments from your system. The recipient should check this email
and any attachments for the presence of viruses. The company
accepts no liability for any damage caused by any virus transmitted
by this email.</FONT>
Binyamin Dissen
wrote:
:>a little questions, i have a line macro to build RACF statements. How can give a data for the macro ?
:> "arg grp" does not hand over the data
You should try the ISPF list.
MACRO (GRP) NOPROCESS
:> /* rexx: edit macro */
:> arg grp .
:> address isredit
:> "MACRO NOPROCESS"
:> gruppe = strip(grp,b)
:> upper gruppe
:> "PROCESS RANGE K"
:> "(ab) = LINENUM .ZFRANGE"
:> "(bis) = LINENUM .ZLRANGE"
:> do nr = ab to bis
:> "(zeilealt) =line" nr
:> address tso
:> zeilalt = strip(zeilealt,b)
:> zeileneu = 'CO ('!!zeilalt!!") GROUP("!!gruppe!!")",
:> " OWNER("!!gruppe!!") AUTHORIZE(USE)"
:> address isredit
:> "line" nr "='"zeileneu"'"
:> end
:> zedmsg = 'zeilen ge�ndert'
:>
:>thanks for any idea
:>
:>regards peter
:>
:>----------------------------------------------------------------------
:>For TSO-REXX subscribe / signoff / archive access instructions,
:>send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
--
Binyamin Dissen <bdi...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
Peter Uhrig
thank's for your help, this macro works fine
best regards peter
> -----Urspr�ngliche Nachricht-----
> Von: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] Im Auftrag
> von Binyamin Dissen
> Gesendet: Donnerstag, 10. Dezember 2009 12:56
> An: TSO-...@VM.MARIST.EDU
> Betreff: Re: [TSO-REXX] REXX macro
Hayim Sokolsky
The command you are generating is syntactically incorrect. The keyword
"AUTHORITY" is misspelled.
The command you want to generate is
CONNECT userid GROUP(group) OWNER(group) AUTHORITY(USE)
As "AUTHORITY(USE)" is the default, if you are generating a new connect,
you need not specify it.
Hayim
_____________________________________
Hayim Sokolsky, CISSP
Mainframe Security Architect
DTCC Corporate Information Security
18301 Bermuda Green Dr, MS 1-CIS
Tampa FL 33647-1760
Tel. (813) 470-2177
2009.12.10 08:03
TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
To
TSO-...@VM.MARIST.EDU
cc
Subject
<FONT size=2><BR>
DTCC DISCLAIMER: This email and any files transmitted with it are
confidential and intended solely for the use of the individual or
entity to whom they are addressed. If you have received this email
in error, please notify us immediately and delete the email and any
attachments from your system. The recipient should check this email
and any attachments for the presence of viruses. The company
accepts no liability for any damage caused by any virus transmitted
by this email.</FONT>
----------------------------------------------------------------------
Rick Woods
If there's a syntax error, that implies that Peter just banged that
macro out off the top of his head, and didn't use actual working code.
If so, and that was the only error, well that's pretty impressive!
- Rick
>>> Hayim Sokolsky <hsok...@DTCC.COM> 12/10/2009 1:22 PM >>>
Peter,
"AUTHORITY" is misspelled.
Tel. (813) 470-2177
best regards peter
> -----Ursprüngliche Nachricht-----
> :> zedmsg = 'zeilen geändert'
Jeremy Nicoll - LStsrx
> �Hi,
> a little questions, i have a line macro to build RACF statements. How can
give a data for the macro ?
>
> "arg grp" does not hand over the data
>
> /* rexx: edit macro */
> arg grp .
> address isredit
> "MACRO NOPROCESS"
I've started macros in the past with code like:
/* REXX */
address ispexec; "control errors return"
address isredit; "macro (target)"
if target = "" then do
zedsmsg = ""; zedlmsg = "Macro needs a target string."
address ispexec "setmsg msg(isrz001)"
exit
end
/* ... go on to use the text contained in 'target'... */
--
Jeremy C B Nicoll - my opinions are my own.