View previous topic :: View next topic
|
Author |
Message |
cheetz007
New User
Joined: 10 Aug 2006 Posts: 23
|
|
|
|
Hi,
I have 2 TSO logonids and I'm trying to figure out how to change the logon proc (?TSOISPF) so that the profile dataset of one id is copied from the other at logon.
I know I could allocate the same profile to each ID, but I often have cause to be logged on with both IDs at the same time, which won't work if they both attempt to use the same profile.
The trouble I'm having is that there's no COPY command at this site, and as far as I'm aware, I can't use ISPF services as this is something that needs to be done before the profile dataset is allocated, and therefore before ISPF is started.
I'm sure I'm missing something obvious, but wood and trees spring to mind!
Any suggestions? |
|
Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
If you browse the individual members of a profile dataset, you will probably find the TSO USERID in each member.
If you copy all the members of one profile dataset replacing them in 2nd profile dataset and login with the 2nd USERID, the TSO USERID in the members would no longer match the one you are logging in with and there would be problems.
You could replace all the members of the 2nd profile dataset with what is in the 1st profile dataset, but additionally, you would then need to globally update the 1st USERID in all the members to match the 2nd USERID using a tool like batch or online FILEAID.
You could change the logon proc to add a batch FILEAID or ICETOOL step to do the copy/replace, but you must be careful that others are not sharing the TSO proc.
You may want to create your own TSO proc that only you can execute.
Code: |
//$TSOPROC PROC
//FILEAID EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=USRID1.PROFILE,DISP=SHR
//DD01O DD DSN=USRID2.PROFILE,DISP=SHR
//SYSIN DD DSN=USRID1.PROFILE(FILECC),DISP=SHR
/*
//$TSOPROC EXEC PGM=IKJEFT01,DYNAMNBR=199
//*
//*------- REXX EXECS -----------------------------------------------**
//*
//SYSEXEC DD DSN=SYSTEM.COMMON.EXEC,
// DD DSN=ISP.SISPEXEC,
// DISP=SHR
//* MANY MORE FILES BELOW
|
This would need to be coded in the FILECC member of profile dataset USRID1.PROFILE(FILECC). You would need to value USRID1 and USRED2 on these control cards.
Code: |
$$DD01 COPY MEMBERS=ALL,
REPL=(1,0,C'USRID1',C'USRID2')
|
|
|
Back to top |
|
|
cheetz007
New User
Joined: 10 Aug 2006 Posts: 23
|
|
|
|
I see your point - I hadn't really thought about that! I can say that I did a manual copy of profileA to temp then from temp to profileB and I haven't had problems so far - I know that doesn't prove much at all, just beginners luck!
On the subject of changing the JCL, I don't think I am allowed to do that, so I was hoping for a technique that I can use in the initial CLIST as I do have access to that.
I'm quite comfortable with writing batch fileaid so changing all the occurences of userA to userB wouldn't be a big deal, it's just the initial copy that I can't seem to get around.
Presumably (this is where I show my lack of understanding!) it's technically possible to run some kind of fileaid "job" by calling IKJEFT01 from the CLIST before the call to ISPSTART? |
|
Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
You could call IKJEFT01 from the CLIST to submit a job, but would the CLIST wait until the completion of the batch job (presuming initiators are open) before it proceeds with login on?
If the CLIST was a REXX, you could call FILEAID from the REXX program to execute the copy. You may be able to do this in CLIST, however, I am more familiar with REXX. |
|
Back to top |
|
|
taltyman
New User
Joined: 10 Aug 2006 Posts: 1
|
|
|
|
You may not have copy but you should have all the IBM utilities available like IEBCOPY. You can do TSO allocates for your sysin, sysut1, sysprint, etc, etc and then "CALL 'SYS1.LINKLIB(IEBCOPY)'" for example. |
|
Back to top |
|
|
cheetz007
New User
Joined: 10 Aug 2006 Posts: 23
|
|
|
|
Well, I'm more of a Rexx fan myself - I think you can do the same in CLIST or Rexx, it's just a slightly different syntax.
IEBCOPY! I knew I was missing something obvious, that would work! I could then do the same with Fileaid to change all the occurences of userA with userB, I think. |
|
Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
Sounds like a plan, but the FILEAID step I provided will copy all the members and ALTER ISRID1 to ISRID2 all in one step. |
|
Back to top |
|
|
cheetz007
New User
Joined: 10 Aug 2006 Posts: 23
|
|
|
|
You're not wrong there - I really should take more care in reading! Thanks folks, I think that's me a happy chappy! |
|
Back to top |
|
|
mobster
New User
Joined: 13 Aug 2006 Posts: 1 Location: Canada
|
|
|
|
YO CAN ANYONE TELL ME A WEB SITE OR PROGRAM THAT I WOULD BE ABLE TO FIND A BIRTH DATE??????????????????/ |
|
Back to top |
|
|
cheetz007
New User
Joined: 10 Aug 2006 Posts: 23
|
|
|
|
Uh? Any particular birthdate? |
|
Back to top |
|
|
|