Jason,
We use the following code in the :STARTSPOOLER program in our generic Pick
spooler for Universe on NT:
--------------------------------------
(Do other things)
!
* Verify the current Account and log to the UVNT.SPOOLER account
!
CMD = 'WHO'
EXECUTE CMD CAPTURING WHO
OLD.ACCT = OCONV(FIELD(WHO,' ',2),'MCU')
IF OLD.ACCT NE 'UVNT.SPOOLER' THEN
CMD = 'LOGTO UVNT.SPOOLER'
EXECUTE CMD
END
!
* Verify the new account
!
CMD = 'WHO'
EXECUTE CMD CAPTURING WHO
ACCT = OCONV(FIELD(WHO,' ',2),'MCU')
IF ACCT NE 'UVNT.SPOOLER' THEN
PRINT @(-1):@(5,5):"You are in the ":ACCT:" Account."
PRINT @(5,7):"You may only run this :STARTSPOOLER process from the
UVNT.SPOOLER Account."
PRINT @(5,9):"Touch <Enter> to exit.":
INPUT ZZZ
GOTO 999
END
*
(Do something in the new account)
!
* Log back to the original account
!
999 IF OLD.ACCT NE 'UVNT.SPOOLER' THEN
CMD = 'LOGTO ':OLD.ACCT
EXECUTE CMD
END
END
--------------------------------------------------
If the "other plant" is really in the same account but a different User
login to that account, you could still use the logic above to logto the new
User.
hth,
Dave
Dave Taylor
President
Sysmark Information Systems, Inc.
49 Aspen Way
Rolling Hills Estates, CA 90274
800-SYSMARK (800-797-6275)
(O) 310-544-1974
(P) 800-339-1497
(F) 310-377-3550
Your Source for Integrated EDI Translation and DataSync Integration
www.sysmarkinfo.com
----- Original Message -----
From: "Jason K. Szemborski" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, November 08, 2005 7:30 AM
Subject: [U2] Plant hopping help
> Hi all,
>
> I've been working on something that have run into a road block and know
> it can be done, but I can't figure it out. We have a multi-plant system
> and I need to take a user from one plant to another based on some search
> criteria. I have the search routine written out and have a place to
> call a subroutine to move someone from one plant to another but have yet
> to find anything that can log the user to another plant without them
> actually typing it. Any help would be greatly appreciated.
>
> Environment: Universe - Pick
>
> Thanks!
>
> Jason Szemborski
> -------
> u2-users mailing list
> [email protected]
> To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
