View previous topic :: View next topic
|
Author |
Message |
V S Amarendra Reddy
Active User
Joined: 13 Sep 2006 Posts: 216 Location: USA
|
|
|
|
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 |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
Code: |
WHEN E >='14:30:00' THEN
ZEDLMSG = 'Good Morning Amar' |
You have timezone problems. |
|
Back to top |
|
|
V S Amarendra Reddy
Active User
Joined: 13 Sep 2006 Posts: 216 Location: USA
|
|
|
|
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 . 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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
|