Good catch John. It’s still a good function, but I’m adding a message box to say it needs to be in the program, not a library to be valid.
Thanks
George L. Tisdale, CPA
Tisdale CPA
75 Junction Square Drive
Concord, MA 01742
(978) 369-5585
From: br_forum-bounces@ads.net [mailto:
br_forum-bounces@ads.net]
On Behalf Of John Bowman
Sent: Tuesday, April 28, 2009 1:02 PM
To: 'Business Rules Forum'
Subject: Re: [BR_forum] How do I check the soflow setting?
Unfortunately these functions can not be library functions, because libraries and their calling programs do not share the soflow state.
21480
def fn_soflow_state$*6 ! ss_
21490 ! this function MUST be local, do not expose it as a library, if you need it it must be copied into the program which is using it. Libraries and their calling programs do not share soflow states
21500 dim Ss_One$*1
21510 Ss_Return$=''
21520 let Ss_One$="too large" soflow SS_SOFLOW_SYSTEM
21530 Ss_Return$='Ignore'
21540
goto SS_XIT
21550 SS_SOFLOW_SYSTEM: !
21560 Ss_Return$='System'
21570
goto SS_XIT
21580 SS_XIT: !
21590 fn_soflow_state$=Ss_Return$
21600
fnend ! fn_soflow_state$
-john
From: br_forum-bounces@ads.net [mailto:
br_forum-bounces@ads.net]
On Behalf Of George Tisdale
Sent: Tuesday, April 28, 2009 11:12 AM
To: Business Rules Forum
Subject: Re: [BR_forum] How do I check the soflow setting?
Great idea.
I just added
02850 DEF LIBRARY FNSOFLOW(;_SOFLOW$*1) !:
! ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿!:
! ³ Returns 1 (true) if SOFLOW is set to IGNORE ³!:
! ³ Returns 0 (false) if SOFLOW is set to SYSTEM ³!:
! ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ!
02860 LET _SOFLOW$="1111" ERROR 2870
02870 IF _SOFLOW$="1" THEN LET FNSOFLOW=1 ELSE LET FNSOFLOW=0
02880 FNEND
To FNSNAP
George L. Tisdale, CPA
Tisdale CPA
75 Junction Square Drive
Concord, MA 01742
(978) 369-5585
From: br_forum-bounces@ads.net [mailto:
br_forum-bounces@ads.net]
On Behalf Of John Bowman
Sent: Tuesday, April 28, 2009 10:44 AM
To: 'Business Rules Forum'
Subject: Re: [BR_forum] How do I check the soflow setting?
There are only two states of soflow
“On soflow system” and “on soflow ignore”
So either of those commads will set it back…
I suppose that we could check it like this
00010 dim One$*1
00020 ! on soflow ignore
00030 let One$="too large" soflow TOO_LARGE
00040 print 'currently soflow ignore'
00042
end
00050 TOO_LARGE: !
00060 print 'currently soflow system'
I guess that answers both our questions.
-john
From: br_forum-bounces@ads.net [mailto:
br_forum-bounces@ads.net]
On Behalf Of Gabriel Bakker
Sent: Tuesday, April 28, 2009 10:15 AM
To: Business Rules Forum
Subject: Re: [BR_forum] How do I check the soflow setting?
I have an additional question along these same lines as well:
Sometimes, I need to set a special error checking routine in a particular library function. For example, in the FileIO's automatic update routine, its very important that if any errors happen (such as a comma in the wrong place in the file layout) that it does not destroy your data files, and instead rolls them back to the previous version automatically. When I'm done with the update routine, I want to set error checking back to wherever it was before.
How can I do that?
Johns Question: How can we tell what it was before?
My Additional Addendum to that Question: How can we set it back to what it was before once we do know what it was?
Gabriel
On Tue, Apr 28, 2009 at 8:58 AM, John Bowman <
gothnerd@gmail.com (
gothnerd@gmail.com)> wrote:
Is there a way to check if soflow is set to ignore or system? I looked in status all, but it didn’t contain the word soflow anywhere. -john
_______________________________________________
BR_forum mailing list
BR_forum@ads.net (
BR_forum@ads.net)
http://ads.net/mailman/listinfo/br_forum_ads.net