Is there anyway of setting these categories as fixed on the output.
i.e.
LIST
====
then jobs go here if any.
Also can is there anyway of outputting nothing if there are no jobs down.
as at the moment we get "" or "SLIF"
Thanks in advance
Excellent Thanks for all of your help.
Now for the next problem.
the output c:\jobs.txt looks like the following:
for example.
" MD265M00 MD264M00 SJR0-00 "
"MD91R501 MD92R501 SLIF-00 R"
" SLIF-19 "
" SLIF-19 "
" SJR0-00 "
" SLIF-19 "
" SLIF-19 "
" SLIF-19 "
" RJ220D30 JORP3D4A...
Still struggling with this.
Here goes.
This is what I have done so far
'**** NEW CODE STARTS HERE ****
'Declarations
Dim SearchComplete As Object
Dim MySelection
Dim MyArea As Object
'Open file for Output (first close file in case already open from an aborted run)
Close #1...
Mr.Milson Thanks for that hear is were I need to include your suggestion, I can't get it to work though.
'**** NEW CODE STARTS HERE ****
'Open file for Output (first close file in case already open from an aborted run)
Close #1
Open "c:\jobs.txt" For Output As #1
'Check for "Request...
Hi, Thanks for all your help I have coded this now, my next problem is that if there is a NO job down it displays "NO QUEUE RECORDS MATCH PARAMETERS ENTERED" and if there is a job down it displays "REQUEST COMPLETED AT 21:26:03 ON 06.124" how can I manipulate the code to search for NO QUEUE...
Basically, this macro is running commands on CA-7 job scheduling programs and what i need is if there is a failed job, i.e 8 characters in one part of the screen then it records this to a .txt file and if there are no job failures then it carries on with the other commands until it finds a job...
I have the following macro/script and need to add after every program (where I have left the spaces with *********************** either side where these commands need to go) an if command that if the macro finds text in the first 8 characters of this field to capture this info and save to a .txt...
How do you know if there is something in an object
Dim rstObjct As Object
Set rstobjct = pvsomething
If rstobjct = Nothing Then
The if statement does not work. How do I do this?
Can anyone help?
Thanks
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.