Reggie,
Try the following:
repeat
if veprofileexists("!mpexcurrentprofile") then
if veprofileinfo("!mpexcurrentprofile").hourend < HPHOUR
ECHO ![veprofileinfo("!mpexcurrentprofile").user].![veprofileinfo( &
"!mpexcurrentprofile").account]
endif
endif
forprofiles reggie,@.@
Regards
Paul Christidis
I am attempting to dump all user profiles that have a certain HPHOUR to
a file. See section #1 below. When I run my job I get a message that
says no such user profile. See section #2 below. Does anyone have any
suggestions.
Section #1
1 !JOB TEST2,MANAGER.SYS
2 !PURGE T1.FILES
3 !BUILD T1.FILES;REC=80,,F,ASCII
4 !FILE T1=T1.FILES,OLD
5 !MPEX
6 setvar hpautocont true
7 repeat
8 if veprofileinfo("!mpexcurrentprofile").hourend < !HPHOUR
9 ECHO ![veprofileinfo('!mpexcurrentprofile').user].![veprofileinfo('
!mpexcurrentprofile').account]>*T1
10 endif
11 forprofiles reggie,@.@
12 EXIT
13 !EOJ
Section #2
22 Welcome! You are now signed on.
23 :COMMENT STREAM FILE QEDITSCR.REGGIE.SYS TEMP
24 :COMMENT STREAMED BY REGGIE,MANAGER.SYS,REGGIE ON LDEV 64
25 :COMMENT ON SUN, AUG 14, 2005, 4:44 PM
26 :PURGE T1.FILES
27 :BUILD T1.FILES;REC=80,,F,ASCII
28 :FILE T1=T1.FILES,OLD
29 :MPEX
30
31 MPEX/3000 30N10511 (c) VESOFT Inc, 1980 7.0 04:04974 For help type
'HELP
'
33 %setvar hpautocont true
34 %repeat
35 %> if veprofileinfo("!mpexcurrentprofile").hourend < !HPHOUR
36 %> ECHO
![veprofileinfo('!mpexcurrentprofile').user].![veprofileinfo('!mpex
currentprofile').account]>*T1
37 %> endif
38 %>forprofiles reggie,@.@
39 Executing IF VEPROFILEINFO("REGGIE,$AT.$AT").HOUREND < 16
40 Error: No such user profile.
41 Executing IF VEPROFILEINFO("REGGIE,OPERATOR.$AT").HOUREND < 16
42 Error: No such user profile.
43 Executing IF VEPROFILEINFO("REGGIE,PGMR.$AT").HOUREND < 16
44 Error: No such user profile.
45 Executing IF VEPROFILEINFO("REGGIE,MGR.$AT").HOUREND < 16
46 Error: No such user profile.
47 %EXIT
49
50 END OF PROGRAM
51 :EOJ
52 CPU sec. = 3. elapsed min. = 1. SUN, AUG 14, 2005, 4:44 PM.
O>
Regards
Reginald Monroe
Systems Engineering
Mercury Insurance - Information Technology
(714) 671-6753
[log in to unmask]
This email and/or any files or attachments transmitted with it are
confidential and intended solely for the use of the individual or entity
to whom they are addressed, and may contain information that is
privileged, confidential and exempt from disclosure under applicable law.
If you are not the intended recipient, or the employee or agent
responsible for delivering the message to the intended recipient, you are
hereby notified that any dissemination, distribution or copying of this
e-mail and/or any files or attachments transmitted with it is strictly
forbidden. If you have received this email in error, please delete the
e-mail and/or any files or attachments, and also notify the system manager
([log in to unmask]) of the error. Please note that any views
or opinions presented in this email are solely those of the author and do
not necessarily represent those of the company. Finally, the recipient
should check this email and any attachments for the presence of viruses.
The company accepts no liability for any damage caused by any virus
transmitted by this email and/or any files or attachments transmitted with
it.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|