Dave: We're upgrading our application to DesignBais. It is an excellent tool to move our character based application to a web environment and we're happy with its capabilities.
We modify a process of ours (say writing checks) to run as a phantom instead of as a response to a [R]un option from our character-based application. We used to display the progress of the process to the telnet user who initiated it. Now, we "EXECUTE \PHANTOM CHECKRUN\" from a DesignBais [Proceed] button which uses UO to initiate the process. When we phantom off the process, variables have to be accounted for and the appropriate ones need to be passed into the phantom program. In addition, some additional variables need to be initialized within the phantom. When all initialization code is in an INCLUDE, then it's important to know, from inside a running program, whether the program itself is running as a phantom. If it is then more variables are either initialized or set. This becomes more important as we access current code from the DesignBais framework. Often there are only minor changes that need be made to our current code, so where we're running what is becoming more important every day. The technique you described to manage a running phantom, from outside, is a fine one we can all employ. But, that isn't the question I was trying to ask. Thanks, Bill -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dave Taylor Sent: Tuesday, September 16, 2008 2:13 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] [UD] Determining if program running as a phantom Bill, Are you asking two questions: Is the program running and is the program running as a phantom? Or only one question : Is the program running as a phantom? I don't fully understand your application environment, but we use the following technique to determine if a program, that normally only runs as a phantom, is running or not: We start the program as a phantom and, from within the phantom program, we write a record (eg STARTED) to the dict of a file and then read that record with a READU command. This leaves the dict record STARTED locked until the phantom program stops running. By reading the dict record STARTED from another status reporting program and checking if it is locked or not, we can determine if the phantom program is running or not. Don't know if you can use this technique or not. hth, Dave Dave Taylor Sysmark Information Systems, Inc. Authorized IBM Business Partner 49 Aspen Way Rolling Hills Estates, CA 90274 (O) 800-SYSMARK (800-797-6275) (F) 310-377-3550 (C) 310-561-5200 www.sysmarkinfo.com ----- Original Message ----- From: "Bill Haskett" <[EMAIL PROTECTED]> To: <u2-users@listserver.u2ug.org> Sent: Monday, September 15, 2008 7:54 PM Subject: [U2] [UD] Determining if program running as a phantom > Im having a bit of a problem figuring out how to tell, within a program, > if > it is running as a phantom. It was my impression that @USER.TYPE would be > set to 1 if the program was running as a phantom. However, if I run a > program from a UniObjects connection @USER.TYPE is always set to 1. It > doesnt matter I test this within the main program that EXECUTEs a phantom > or within the phantomed program. If I test @TTY then it returns udcs > from within the main program or Console from within the phantomed > program > (I hate to think this is how I determine if a program is running as a > phantom ). > > > > If I execute the LISTUSER() function then the line properly shows the user > type as a phantom. > > > > The phantomed process. > > *--: p > > 001: @USER.TYPE-: 1 > > 002: @TTY-------: Console > > 003: PORT.NO----: 6 > > 004: LISTUSER()-: 12251621976152myuser2phantom2pts/12Console210:33:322Sep > 15 > 2008 > > 005: 2263221976152myuser2udt2pts/22192.168.1.51216:41:202Sep 15 2008 > > 006: 32383621976152myuser2udt2pts/32192.168.1.51215:11:522Sep 15 2008 > > 007: 42358421976402designbai2udt2pts/42udcs219:30:062Sep 15 2008 > > 008: 52337621976152myuser2udt2pts/52192.168.1.51215:31:312Sep 15 2008 > > 009: 62238821976402designbai2phantom2pts/62Console219:30:532Sep 15 2008 > > 010: ...Entry DEV_DESIGNBAIS_6_1486970254.txt > > 011: ...Entry DEV_DESIGNBAIS_6_1486970255.txt > > 013: PHANTOM process 2388 has completed. > > Bottom. > > > > The process executing the above phantomed job > > *--: p > > 001: E:\DataTrust\Dev\_PH_\O_designbais established > > 002: @USER.TYPE-: 1 > > 003: @TTY-------: udcs > > 004: PORT.NO----: 4 > > 005: LISTUSER()-: 12251621976152myuser2phantom2pts/12Console210:33:322Sep > 15 > 2008 > > 006: 2263221976152myuser2udt2pts/22192.168.1.51216:41:202Sep 15 2008 > > 007: 32383621976152myuser2udt2pts/32192.168.1.51215:11:522Sep 15 2008 > > 008: 42358421976402designbai2udt2pts/42udcs219:30:062Sep 15 2008 > > 009: 52337621976152myuser2udt2pts/52192.168.1.51215:31:312Sep 15 2008 > > > > > > Ive resorted to parsing the results of LISTUSER() to get what appears to > be > the correct information. Does anyone know of an easier alternative. > > > > Thanks, > > Bill Haskett > Advantos Systems, Inc. > 4370 La Jolla Village Drive, Suite 400 > San Diego, CA 92122 > ( 760-944-5570 x3000 (CA) > ( 360-923-4838 (WA) > ------- > u2-users mailing list > u2-users@listserver.u2ug.org > To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/