View previous topic :: View next topic
|
Author |
Message |
MIMI Warnings : 1 New User
Joined: 09 Jan 2006 Posts: 20
|
|
|
|
Please tell me how to allocate my clists to SYSPROC.
Thanks,
Mimi |
|
Back to top |
|
|
shreevamsi
Active User
Joined: 23 Feb 2006 Posts: 305 Location: Hyderabad,India
|
|
|
|
Hi MIMI,
To allocate your PDS of CLISTS, We need to execute a setup which concatinates your PDS with the existing sysproc.
Here is the CODE
"ALLOC FI(SYSPROC) DA('XXXX.YOUR.PDS') SHR REUSE"
~Vamsi |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
If you want it to be allocated permanently to your TSO session, ask your system programmers to update your logon procedure.
O. |
|
Back to top |
|
|
MIMI Warnings : 1 New User
Joined: 09 Jan 2006 Posts: 20
|
|
|
|
Thank you very much.
I just wonder if I need to ask the premission before I allocate my PDS to SYSPROC. Will I override or damage the other files in SYSPROC?
Thanks for great help.
MiMi |
|
Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
You do not need permission to allocate a PDS to your SYSPROC. It will not affect any other libraries in your SYSPROC. You will have to allocate your PDS every time you log into TSO unless you have your system programmers add the PDS to the shared TSO proc.
If you are in a PDS with a REXX program (even if it is not allocated to SYSPROC), you can execute the PDS by typing EXEC on the command line as long as you have the EXEC CLIST setup in a valid SYSPROC library. This is nice because you can test your REXX from any PDS. If you have arguments in your rexx like (PARSE UPPER ARG GROUP), you can enter those arguments using EXEC ARG where ARG is equal to the parameter you are passing to your REXX>
Code: |
/* */
/* EDIT MACRO TO EXECUTE CLIST OR REXX CURRENTLY BEING EDITED */
/* */
ISREDIT MACRO (EXPARM)
SET DEBUG = N
IF &DEBUG EQ N THEN CONTROL NOMSG NOCONLIST NOSYMLIST NOLIST
ELSE CONTROL MSG LIST SYMLIST CONLIST
ISREDIT SAVE
ISREDIT (EXDSN) = DATASET
ISREDIT (EXMEM) = MEMBER
IF &EXMEM = THEN SET EXDSN EXDSN = &STR('&EXDSN.')
ELSE SET EXDSN = &STR('&EXDSN.(&EXMEM.)')
ISPEXEC CONTROL ERRORS RETURN
ISPEXEC SELECT CMD(EX &EXDSN '&EXPARM')
ISPEXEC CONTROL ERRORS CANCEL
|
|
|
Back to top |
|
|
shreevamsi
Active User
Joined: 23 Feb 2006 Posts: 305 Location: Hyderabad,India
|
|
|
|
hi cpuhawg,
As you said, definetly we don't need any special authorization to allocate our PDS with REXX macros to SYSPROC/SYSEXEC. We can do that.. But as soon as we log off, the PDS which we allocate reverts back.
To make our PDS permanently available to SYSPROC, we need special permission to update SYSPROC. Thatz what Ofer71 is talking about.
Thatz what my under standing is....
~Vamsi |
|
Back to top |
|
|
twissi
Active User
Joined: 01 Aug 2005 Posts: 105 Location: Somerset, NJ
|
|
|
|
Mimi,
Alternatively you could find out the libraries allocated to SYSPROC using
and maybe there's already a library that you've EDIT access to. Copy your CLISTs to that PDS and problem solved!
Cheers, Twissi. |
|
Back to top |
|
|
|