View previous topic :: View next topic
|
Author |
Message |
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
khamarutheen wrote: |
Can you please tell me where should i need to type this macro??? |
Quote: |
1. Write macro in a Notepad & paste it to the folder from where your emulator calls the other macro. In Personal communication this path is (usually) Drive name:\Personal Communications\private
OR
2. Record a macro using proper option of Your emulator (from here I cann't tell You what is 'proper option' for you unless You use personal communication.) |
|
|
Back to top |
|
|
Anurag Singh
New User
Joined: 20 Jan 2008 Posts: 25 Location: India
|
|
|
|
Thanks Anuj,
For the quick response |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Hi Anurag,
You are welcome..but did it work for You?..it was bit wrong..here is the correct one..
Code: |
[home]"Refresh is On
:loop
wait 3000 sec
[enter]
goto loop |
second double inverted comma (' " ') was not required in
BTW I don't want to reply more to this thread, as there had been disagreement about this thread. |
|
Back to top |
|
|
marcos_paiva
New User
Joined: 29 Jun 2006 Posts: 2
|
|
|
|
I created a Macro typing an ENTER each 5 seconds. After that, I figured out how the macro works and I changed it to type an Enter each 15 minutes during 2 hours.
- Select the menu: Edit/Preferences/Macro-Script/Customize
- Type the macro below.
- Select the menu File/Save as
Ready! When you want to keep your session per 2 hours, select this macro.
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 5,14,"08","3c",3,10000
autECLSession.autECLPS.Wait 900000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 5,14,"08","3c",3,10000
autECLSession.autECLPS.Wait 900000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 5,14,"08","3c",3,10000
autECLSession.autECLPS.Wait 900000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 5,14,"08","3c",3,10000
autECLSession.autECLPS.Wait 900000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 5,14,"08","3c",3,10000
autECLSession.autECLPS.Wait 900000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 5,14,"08","3c",3,10000
autECLSession.autECLPS.Wait 900000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 5,14,"08","3c",3,10000
autECLSession.autECLPS.Wait 900000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 5,14,"08","3c",3,10000
autECLSession.autECLPS.Wait 900000
end sub |
|
Back to top |
|
|
prabhu118 Currently Banned New User
Joined: 11 Feb 2008 Posts: 14 Location: Chennai
|
|
|
|
give &700 instead of &120...
700 is limit....
giving &700...ur id will use the least possible CPU time..
but its true seeing the responses of all ...why will one want his session to be logged in....if not working....
May be we do not know why u want ur session to be logged in always... |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
Quote: |
... ENTER each 5 seconds... |
I wonder what could be Your manager comment if You reported on the time
spent for such activity
and the waste of resources from macro/hitting enter just to keep Your session from being logged off |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Especially if it is a client project and they are billed for resource usage. |
|
Back to top |
|
|
Gursharan Khalsa
New User
Joined: 04 Sep 2007 Posts: 33 Location: Salinas
|
|
|
|
hi,
i have been using the &120 option successfully on my QUICK3270 terminal.i have recently shifted to TN3270-POWER TERM.The problem i m facing now is that when i use the same option,i m not able to return to my session by pressing PA keys which worked succesfuly on QUICK3270.
THANX IN ADVANCE |
|
Back to top |
|
|
Paddy
New User
Joined: 12 Sep 2005 Posts: 46 Location: Paris France
|
|
|
|
hi alll,
the better manner to remain connected is of always to work.
Regards.
Paddy |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
i have been using the &120 option successfully on my QUICK3270 terminal. |
Just wasting resources. . .
If your management believed you should not be timed out and thus slightly inconvenienced, your id would be set up to not time out. They do not share your belief that you should not need to log back on when you've been idle for a long time.
As far as the new emulator not working, contact the vendor - they can surely tell if it is possble and how. . . |
|
Back to top |
|
|
~~Vani~~
New User
Joined: 13 May 2010 Posts: 1 Location: Trivandrum
|
|
|
|
Am getting 'UPDATE NOT AUTHORIZED ' error when tried using &20. please help. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
That's not an error, you're just not authorised to issue that command. When you get that "error" again, hit PF1 - you'll get to see rather descriptive message. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Once again, to keep from being timed out, keep working. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
expat wrote: |
Once again, to keep from being timed out, keep working. |
Most of the animals don't understand this definition, expat! |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
Some sites are a bit more relaxed about people staying logged on (even without SDSF tricks):
Code: |
J E S 2 J O B L O G -- S Y S T E M B -- N O D E G R E Y
08.07.55 TSU19158 ---- FRIDAY, 29 AUG 2003 ----
08.07.55 TSU19158 £HASP373 A500066 STARTED
08.07.55 TSU19158 IEF125I A500066 - LOGGED ON - TIME=08.07.55
.
.
00.00.00 TSU19158 ---- FRIDAY, 24 OCT 2003 ----
08.14.58 TSU19158 IEF126I A500066 - LOGGED OFF - TIME=08.14.58
08.14.59 TSU19158 £HASP395 A500066 ENDED
0------ JES2 JOB STATISTICS ------
- 29 AUG 2003 JOB EXECUTION DATE
- 2 CARDS READ
- 85,481 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 4,464 SYSOUT SPOOL KBYTES
- 80,647.06 MINUTES EXECUTION TIME
SDSF JOB DATA SET DISPLAY - JOB A500066 (TSU19158) LINE 1-4 (4)
COMMAND ===> "B" SCR=> CSR
PREFIX=* DEST=(ALL) OWNER=A500066 SORT=DSID/A
NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt PAGE
JESMSGLG JES2 2 A500066 M LOCAL 2,799
JESJCL JES2 3 A500066 M LOCAL 24
JESYSMSG JES2 4 A500066 M LOCAL 66,371
ISPLOG £TSOPSG £TSOPSG 103 A500066 G LOCAL 16,179 |
At that stage I had to log off, because my submitted jobs wouldn't run anymore... |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
2003? That's a quite an old log Robert...! |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
If I had saved them all, the oldest would date back to September 1985...
This is the only one I ever kept, because it's unlikely that I will ever be logged on this long again, it wasn't a record in the company, a colleague once managed to stay logged on for the full 60 days between password changes. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
shh...hh..I just hope no one knows you around personally |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
Looks like one of those systems of a (then) big bank in holland i
worked for.
But probably lots of companies name their system from A thru Z.
Quote: |
2003? That's a quite an old log Robert...!
|
Sure Anuj,
looks like going back to the Dark Ages. |
|
Back to top |
|
|
Phrzby Phil
Senior Member
Joined: 31 Oct 2006 Posts: 1042 Location: Richmond, Virginia
|
|
|
|
But please consider this scenario in support of &100:
Using the ISPF START (or SPLIT) command, I may have many screens active (at least 8 at most installations, but more at others), each positioned where I need it: a record, another record (which may be way down a file, so relocating to it is time-consuming), program code, parm file, JCL, etc. (you get the picture [which is worth, as we all know, 1024 words]).
Now I get a phone call, or I am needed elsewhere for a few minutes.
How productive would it be for me to get logged off, only to then have to reposition my screens.
(Also, how many resources does &100 really "waste"?) |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
PeterHolland wrote: |
Looks like one of those systems of a (then) big bank in holland i
worked for. |
Except that Dutch banks wouldn't be using £ signs, or give a node a name like 'GREY'... |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
Quote: |
or give a node a name like 'GREY'
|
Well what the management was doing was very GREY for me and
the rest of my IT pals. |
|
Back to top |
|
|
|