Include file? You mean in every program? Or you mean modify the LOGIN process to add this I would suggest that you do something like IF VOC.OPEN NE @WHO THEN CALL RESET.ALL.OPEN.FILE.POINTERS
since you may have pointers to lots of files, not just VOC -----Original Message----- From: Wols Lists <[email protected]> To: u2-users <[email protected]> Sent: Fri, Apr 13, 2012 11:05 am Subject: Re: [U2] COMMON Size MisMatch On 13/04/12 15:56, David A. Green wrote: That's why you would specify. Example: COMMON /SYSSTUFF/ SYSSTUFF(100) COMMON /MYSTUFF/ MYSTUFF.REC(100) -CLEAR.ON.LOGTO Then only the MYSTUFF gets cleared. This is the kind of logic that I have to end up writing over and over again to make sure new files get opened when a person does LOGTO to a different account. Programmers would make all their Account specific data into a single named common that has the flag to initialize on LOGTO. And keep other cross-account data in common that isn't flagged. Easy. Actually, that IS easy. TODAY. Let's say you want to store a filepointer o VOC in common, you create the following INCLUDE file... COMMON /VOC/ F.VOC, D.VOC, VOC.OPEN F VOC.OPEN NE @WHO THEN VOC.OPEN = @WHO OPEN "", "VOC" TO F.VOC ... OPEN "DICT", "VOC" TO D.VOC ... ND I hope I've got the right @variable, but as soon as you LOGTO, the IF oes false, and next to you try access it, it will re-initialise itself. Cheers, ol (Moderator moan - I've just snipped an AWFUL lot of text ...) ______________________________________________ 2-Users mailing list [email protected] ttp://listserver.u2ug.org/mailman/listinfo/u2-users _______________________________________________ U2-Users mailing list [email protected] http://listserver.u2ug.org/mailman/listinfo/u2-users
