November 22, 2008 02:25pm pst

1. Gary_Th... 96,766
2. tliotta 69,897
3. murphey2 42,573
4. daveslash 22,975
5. _b_h 22,560
6. Kdo 17,836
7. daveslater 9,199
8. momi_sa... 7,500
9. rward 7,350
10. shalomc 6,744
11. ajut400 4,700
12. LewisPo... 3,200
12. dfke 3,200
14. mark_wills 2,500
15. bggauth 2,200
16. meverest 2,000
16. jerryscole 2,000
16. jazzIIIlove 2,000
16. Programmi... 2,000
16. giltjr 2,000
16. NJComput... 2,000
16. mwvisa1 2,000
16. Infinity08 2,000
16. dmerrow 2,000
16. frankytee 2,000

1. tliotta 123,876
2. Gary_Th... 96,766
3. murphey2 44,873
4. _b_h 39,873
5. daveslash 33,027
6. Kdo 18,236
7. daveslater 16,827
8. rward 10,100
9. shalomc 9,542
10. momi_sa... 8,300
11. bggauth 5,575
12. ajut400 4,900
13. WaldenL 3,275
14. LewisPo... 3,200
14. dfke 3,200
16. mark_wills 2,500
17. twahelpd... 2,450
18. Muflone 2,240
19. DaveMon 2,000
19. mwvisa1 2,000
19. larksys 2,000
19. jazzIIIlove 2,000
19. Programmi... 2,000
19. JHammerer 2,000
19. giltjr 2,000
19. NJComput... 2,000
19. jerryscole 2,000
19. dmerrow 2,000
19. steveberz... 2,000
19. Infinity08 2,000
19. meverest 2,000
19. frankytee 2,000

06.12.2008 at 12:39AM PDT, ID: 23478543

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.9

How to create macro to capture the session screen and beep if condition met?

Asked by Sam80 in AS / 400

Tags: as400 macro, as400

I would like to create the macro the refresh every several mins to monitor the job status, once "MSGW" appears the macro should know "beep" me.. then I can do other things without monitoring the session all the time. The tech points is that I dont know how to compare the strings in the screen and don't know how to trigger beep in the macro..

Sam
Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

           
           
              I've coded the sample to prompt message for message wait job, but I do want to "Beep". anyone know it?  the current screen will be on the work job screen, e.g. wrkusrjob xxx *active. then this macro is applied to monitor this screen.. by refreshing every 3 secs, prompts warning ifmessage wait job found.
 
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
 
REM This line calls the macro subroutine
 
subSub1_
 
sub subSub1_()
Dim MsgInd
Dim MsgRow, MsgCol
Dim MsgJob
Dim MsgBody
 
MsgInd = False
MsgRow = 1
MsgCol = 1
 
MsgBody = "prompt message"
 
Do while MsgInd=False
   autECLSession.autECLOIA.WaitForAppAvailable   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.Wait(3000)
   autECLSession.autECLPS.SendKeys "[pf5]"
   MsgInd = autECLSession.autECLPS.SearchText("MSGW",1,MsgRow,MsgCol)
   If MsgInd Then
	MsgJob = autECLSession.autECLPS.GetText(MsgRow, 7, 10)
	Msgbox MsgBody,,"Batch Monitor" 
   End if
Loop
 
end sub

           
         

Keywords: How to create macro to capture the se…

	Title
1	Desktop PC rebooting when PC Speake…
2	BEEP !!
3	3 Short Beeps
4	Booting issues - CMOS, and three s…
5	Dell Poweredge 1600sc won't sto…
6	Bios Beeps

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

How to create macro to capture the session screen and beep if condition met?

Asked by Sam80 in AS / 400

Tags: as400 macro, as400

About this solution