MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Changing mainframe password via COBOL

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
Sreejith
Intermediate


Joined: 02 Dec 2002
Posts: 155
Topics: 25
Location: N.Ireland

PostPosted: Mon Jul 17, 2006 7:14 am    Post subject: Changing mainframe password via COBOL Reply with quote

Does anyone know a way to change mainframe password using a cobol program.
The only solution so far I know is by submitting a JCL with USER and PASSWORD parms from COBOL.

Is there any callable RACF Service which can be called from COBOL to change the password..

Thanks
Sreejith
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Mon Jul 17, 2006 7:31 am    Post subject: Reply with quote

Sreejith,

May be a REXX exec can do the Job.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Sreejith
Intermediate


Joined: 02 Dec 2002
Posts: 155
Topics: 25
Location: N.Ireland

PostPosted: Mon Jul 17, 2006 7:46 am    Post subject: Reply with quote

Kolusu,
thanks for the reply. I need a COBOL solution as it needs to be done via an IMS online screen. I will check whether we got a REXX compiler so that I can create a load module of REXX something like below and call it from cobol
Code:

/* REXX */                                                           
ADDRESS TSO "PASSWORD USER(abcdefg) PASSWORD(oldpswrd newpswrd)"     



Thanks
Sreejith
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Mon Jul 17, 2006 7:53 am    Post subject: Reply with quote

Sreejith,

Try this sample listed here

http://www.mvsforums.com/helpboards/viewtopic.php?p=12095#12095

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
bauer
Intermediate


Joined: 10 Oct 2003
Posts: 317
Topics: 50
Location: Germany

PostPosted: Mon Jul 17, 2006 8:21 am    Post subject: Reply with quote

Hi,

are talking about a CICS program?

If so, uses EXEC CICS command !

regards
bauer
Back to top
View user's profile Send private message
Sreejith
Intermediate


Joined: 02 Dec 2002
Posts: 155
Topics: 25
Location: N.Ireland

PostPosted: Mon Jul 17, 2006 8:44 am    Post subject: Reply with quote

Kolusu,
Thanks for the pointer..

bauer
No. I have IMS DC here


Thanks
Sreejith
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA

PostPosted: Fri Jul 21, 2006 1:29 pm    Post subject: Reply with quote

Sreejith,
Callable compiled REXX code ? Well, I do not know. Can it be defined to IMS region 'easily' ?

You can go the long route, though. Since, you can invoke a REXX exec via IDCAMS and you can call IDCAMS thru" COBOL, you can try an approach which involves calling a COBOL program that calls IDCAMS.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
Sreejith
Intermediate


Joined: 02 Dec 2002
Posts: 155
Topics: 25
Location: N.Ireland

PostPosted: Mon Jul 24, 2006 7:11 am    Post subject: Reply with quote

Cogito-Ergo-Sum
I guess it is possible to move the REXX load module to IMS load lib and call it. But when I discussed this with one of my team mate he raised a question whether IMS online can address TSO address space.. Looks like a valid point. I haven't tried anything yet.

thanks
Sreejith
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group