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
 

 

Rexx to wish the user

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
V S Amarendra Reddy

Active User


Joined: 13 Sep 2006
Posts: 200
Location: USA

PostPosted: Thu Aug 18, 2011 8:50 pm    Post subject: Rexx to wish the user
Reply with quote

I just have got a thought to write a simple script to wish the person during the first login to ISPF. I wrote the below code But it is not working when I tried to login. But if I execute it manually after I logged it is working fine,. Please suggest if we can automate it?

There is no message once ISPF is on but if I press PF3 then the below messages are coming.

Code:
ISPS118L SERVICE NOT INVOKED. A VALID ISPF ENVIRONMENT DOES NOT EXIST.
ISPS118L SERVICE NOT INVOKED. A VALID ISPF ENVIRONMENT DOES NOT EXIST.


Code:
'isredit MACRO'                   
                                   
E = TIME()                         
                                   
SELECT                             
 WHEN E >='14:30:00'     THEN     
   ZEDLMSG = 'Good Morning Amar'   
 WHEN E >='06:30:00'     THEN     
   ZEDLMSG = 'Good Evening Amar'   
 OTHERWISE                         
   ZEDLMSG = 'Good Afternoon Amar'
END                               
                                   
'ISPEXEC SETMSG MSG(ISRZ001)'     


Regards
Amar
Back to top
View user's profile Send private message

Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1755
Location: Bloomington, IL

PostPosted: Thu Aug 18, 2011 9:02 pm    Post subject: Re: Rexx to wish the user
Reply with quote

V S Amarendra Reddy wrote:
Code:
ISPS118L SERVICE NOT INVOKED. A VALID ISPF ENVIRONMENT DOES NOT EXIST.

What do you suppose this might mean? Do you think that this link will provide information?
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Thu Aug 18, 2011 11:21 pm    Post subject: Reply to: Rexx to wish the user
Reply with quote

I'm a little confused. You posted what appears to be an ISPF Edit macro. Are you saying that you have some sort of process that, after starting a TSO sesssion, then starting ISPF, puts the user into an Edit session for a dataset?

My thought would be to contact the Tech Support team, or whoever is responsible for the TSO and ISPF logon process, and ask them where in that process stream you might add your exec in order for it to work properly.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1228
Location: Israel

PostPosted: Thu Aug 18, 2011 11:56 pm    Post subject:
Reply with quote

Read this sticky first: TSO ? ISPF ? REXX ? Keeping them Straight
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1018
Location: Oostende, Belgium

PostPosted: Fri Aug 19, 2011 1:03 am    Post subject:
Reply with quote

Not very wild guess, you coded your totally useless piece of junk on the "Command" field of the TSO logon screen.

What you obviously do not seem to realize is that this command is only executed after your site specific exec/clist has run, which usually starts ISPF and only ends if you exit ISPF.

At that stage there is no longer an ISPF environment, let alone an ISPF edit environment, and that is what is causing your piece of junk to fail.

Please go back to your Winblows world if you want to write useless toys.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2038
Location: Silicon Valley

PostPosted: Fri Aug 19, 2011 5:55 am    Post subject: Reply to: Rexx to wish the user
Reply with quote

Code:
WHEN E >='14:30:00'     THEN     
   ZEDLMSG = 'Good Morning Amar'


You have timezone problems.
Back to top
View user's profile Send private message
V S Amarendra Reddy

Active User


Joined: 13 Sep 2006
Posts: 200
Location: USA

PostPosted: Fri Aug 19, 2011 11:05 am    Post subject:
Reply with quote

Hi All,

Thanks a lot for your comments.


Quote:
prino Wrote:
Please go back to your Winblows world if you want to write useless toys


It is because I am new to this REXX process icon_smile.gif . I thought coding rexx will help for this requirement. So I posted it in REXX portal. But it has been moved to here since I think it didn't fit there.

Anyways please ignore the piece of junk code I have posted. Can anyone please give me some idea to achieve this.

During Logon after ISPF/PDF is typed, then automatically I should get this wishing message. Please suggest me some idea. I will try to dig for the code to achieve that.

Regards
Amar
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Aug 19, 2011 12:21 pm    Post subject:
Reply with quote

Hello,

One way to get what you want is to modify the system-side login process (if there is only one - many sites have several) to run your code after the basic login is complete and the tso/ispf environment established.

Keep in mind that you will probably not be allowed to do this yourself and will need help from the system support people. Before aproachiing them, you need to get permission/approval from your management.

Most places to not want additional "things" like this running every time a user signs on. . .
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am


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