Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Copy a profile dataset before ISPF startup

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
cheetz007

New User


Joined: 10 Aug 2006
Posts: 23

PostPosted: Thu Aug 10, 2006 3:59 pm    Post subject: Copy a profile dataset before ISPF startup
Reply with quote

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
View user's profile Send private message

cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Thu Aug 10, 2006 6:49 pm    Post subject: Re: Copy a profile dataset before ISPF startup
Reply with quote

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
View user's profile Send private message
cheetz007

New User


Joined: 10 Aug 2006
Posts: 23

PostPosted: Thu Aug 10, 2006 7:13 pm    Post subject:
Reply with quote

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
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Thu Aug 10, 2006 7:55 pm    Post subject:
Reply with quote

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
View user's profile Send private message
taltyman

New User


Joined: 10 Aug 2006
Posts: 1

PostPosted: Thu Aug 10, 2006 7:59 pm    Post subject: Re: Copy a profile dataset before ISPF startup
Reply with quote

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
View user's profile Send private message
cheetz007

New User


Joined: 10 Aug 2006
Posts: 23

PostPosted: Thu Aug 10, 2006 8:26 pm    Post subject:
Reply with quote

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
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Thu Aug 10, 2006 8:30 pm    Post subject: Re: Copy a profile dataset before ISPF startup
Reply with quote

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
View user's profile Send private message
cheetz007

New User


Joined: 10 Aug 2006
Posts: 23

PostPosted: Thu Aug 10, 2006 8:54 pm    Post subject:
Reply with quote

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
View user's profile Send private message
mobster

New User


Joined: 13 Aug 2006
Posts: 1
Location: Canada

PostPosted: Tue Aug 15, 2006 8:06 am    Post subject:
Reply with quote

YO CAN ANYONE TELL ME A WEB SITE OR PROGRAM THAT I WOULD BE ABLE TO FIND A BIRTH DATE??????????????????/
Back to top
View user's profile Send private message
cheetz007

New User


Joined: 10 Aug 2006
Posts: 23

PostPosted: Wed Aug 23, 2006 2:13 am    Post subject: Re: Copy a profile dataset before ISPF startup
Reply with quote

Uh? Any particular birthdate?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am
No new posts copy SEQ to PDS and create stats steve-myers JCL & VSAM 5 Thu Apr 27, 2017 1:15 am
No new posts Copy load modules and alias vasanthz IBM Tools 5 Thu Apr 20, 2017 6:31 am
No new posts LISTCAT on a dataset with symbolic pa... shreya19 JCL & VSAM 5 Fri Apr 07, 2017 5:43 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us