[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference iosg::all-in-1_v30

Title:*OLD* ALL-IN-1 (tm) Support Conference
Notice:Closed - See Note 4331.l to move to IOSG::ALL-IN-1
Moderator:IOSG::PYE
Created:Thu Jan 30 1992
Last Modified:Tue Jan 23 1996
Last Successful Update:Fri Jun 06 1997
Number of topics:4343
Total number of notes:18308

2433.0. "Distinguishing local and default menu options" by WPOPTH::BEESON (Down Under in the bottom left corner) Thu Mar 18 1993 06:24

    Hi,
    
    I have a customer who would like the time management system date reset
    to todays date whenever one of the TM menus is displayed.  Shouldn't be
    hard says I and accepts the task. More fool me! ;-)
    
    I added the following bit of named data to each menus pre_function:
    
    	.if #tm_form nes oa$form_name
    	 then cal set date oa$date \\
    	      get #tm_form = oa$form_name
    
    and...
    
    	;;F10;; ( and other oa$fld_exit keys)
    
    	get #tm_form = ""\ oa$fld_exit
    
    This takes care of jumping around in time mangement and back up the
    menu stack. My problem is when a user jumps to another menu (say WP)
    without exiting TM and returns to the current TM menu the date is not
    reset because #tm_form has not been cleared. What I need therefore is
    to be able to clear #tm_form whenever a oa$fld_done is executed, the
    problem then is that the date is reset for each create, edit, delete,
    etc.  So now I realise that I have to check if the option is on this
    menu or an associated menu, or if it is calling something on the
    DEFAULT menu or is the name of a form to resolve the issue.
    
    So I'm stuck, is there some reletively simple method to distinguish
    between local choice options and external options?  I thought of making
    the menu captive and duplicating the DEFAULT menu options but this
    seems a very messy solution requiring any future change to the DEFAULT
    menu to be duplicated on each of the TM menus.
    
    Any and all cunstrucive critisism greatfully accepted.
    
    regards,
    ajb
T.RTitleUserPersonal
Name		DateLines
2433.1oa$menu_ special symbolsAIMTEC::BUTLER_TThu Mar 18 1993 13:0910
    Normally, I leave TM things to Dave Z!  :^)
    
    <So I'm stuck, is there some reletively simple method to distinguish
    <   between local choice options and external options?  I thought of
    <   making
     
    You could use the OA$MENU_*** special symbols, OA$MENU_CURRENT and
    OA$MENU_PREVIOUS should give you what you want.  
    
    Tim
2433.2Not, certain, but I don't think so...WPOPTH::BEESONDown Under in the bottom left cornerTue Mar 30 1993 05:5532
    Hi, Tim,
    
    Sorry for taking so long to respond,but I've been indisposed at a
    customer's site. I tried your suggestion with OA$MENU_PREVIOUS, but it
    only indicates the menu at the top of the menu stack not the previous
    menu accessed. For example:
    
    Before calling WP			During call to WP
    
    +--------------+			+--------------+
    |      EMC     |<-OA$MENU_PREVIOUS	|      EMC     |
    +--------------+			+--------------+
    |      TMS     |			|      TMS     |<-OA$MENU_PREVIOUS
    +--------------+			+--------------+
    					|      WP      +
    					+--------------+
    
    After calling WP
    
    +--------------+
    |      EMC     |<-OA$MENU_PREVIOUS
    +--------------+
    |      TMS     |
    +--------------+
    
    So you can see that the view before and after calling WP are the same
    therefore I cannot tell that WP has been called at all.
    
    Any other suggestions?
    
    Regards,
    ajb
2433.3 what level AIMTEC::BUTLER_TTue Mar 30 1993 17:2814
    What about oa$menu_choice or oa$menu_command at the same time
    you do the oa$menu_previous?  
    
    choice or command would be your best bet in showing wp at this point.
    
    Also, you may be able to use oa$form_name and oa$form_type - long shot.
    
    I would also see if using oa$menu_level_push would help you to control
    the menu level when a certain menu is called.
    
    I know some of these are long shots.  In your case, it could work.
    
    
    Tim
2433.4Want to test for a captive choice...WPOPTH::BEESONDown Under in the bottom left cornerMon Apr 19 1993 07:5928
    Hi, sorry it's been so long...
    
    I can get the value of what the user has typed, no problem.  My problem
    is determining if it is an option which will invoke another menu.  In
    fact any command that is not in the scope of a '/captive' will do.  I
    have got somewhere with the following code:
    
    	prompt "Enter option to check: "
    	.if oa$prompt_dispose eqs "0" then .exit
    
    	get #t = ""
    	get #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_exit"
    	get #t2 = "form !AS /captive/once/pre='get oa$menu_remainder=#t1'"
    
    	get oa$function = "dump_cache " oa$form_name
    	oa$menu_level_push
    	oa$fao #t2, "OA$FUNCTION", OA$FORM_NAME
    
    	get "Result: " #t
    
    The code above will NOT actually work.  It always prints 'Result: ',
    but if you replace a form name in place of the !AS in the assignment to
    #T2 then it works fine.
    
    Why won't it work for the current form?
    
    Regards,
    ajb
2433.5oa$fao text-string AIMTEC::BUTLER_TMon Apr 19 1993 14:3113
    Hello:
    
    On the oa$fao function line, I belive you need quotes around the 
    text-string.  When you do the get on #t2 you only get the ' for the
    /pre.
    
    Did the trace show anything else.
    
    
    HTH,
    
    Tim
2433.6Current form won't be executed!WPOPTH::BEESONDown Under in the bottom left cornerTue Apr 20 1993 10:25378
Hi, thanks for the speedy reply,

You will note from the following that when invoking the current form NOTHING
happens!  Even though the form is dumped from cache and a new menu stack is
started.

When we invoke a form other than the current form, the form is opened and
executed.

I have attached the script on the following page and four logs after that.  The
scenario under which each log was generated is:

Log	Scenario
-------------------------------------------------------------------------------
1	The script opens a form that is not the current one and checks an
	option that appears on that form.
2	The script opens a form that is not the current one and checks an
	option that does not appear on that form.
3	The script opens the current form and checks an	option that appears on
	it.
3	The script opens the current form and checks an	option that does not
	appear on it.
    
Regards,
    ajb
The following is trace output for the script when the form name is something
other than the current form and the option being checked is within the scope of
the '/CAPTIVE' qualifier:

![SCRIPT] Line             DO Script
![SCRIPT]   0    DISK$USER:[USER.WOPA3BAI1.A1]TEMP.SCP;
!   
![SCRIPT] TEMP.SCP Line 1: prompt "Enter option to check: "
![FUNC]   Function: PROMPT, Cmd line: "Enter option to check: "
![SYMBOL] Symbol: "Enter option to check: ", Value: Enter option to check: 
![FORM]   Form: FILEM, Field: CHOICE/4, Page: 1, Prompt: e                      
!                                                                               
!                                                                               
!                                                                               
!                                                        
![FORM]   Form: FILEM, Field: CHOICE/4, Page: 1, Key Value: {CR}
![FUNC]   Function: OA$FLD_DONE, Cmd line: 
![SCRIPT] TEMP.SCP Line 2: .if oa$prompt_dispose eqs "0" then .exit
![SYMBOL] Symbol: OA$PROMPT_DISPOSE, Value: 2
![SYMBOL] Symbol: "0", Value: 0
![SCRIPT] IF Operation starting
![SCRIPT] .IF condition OA$PROMPT_DISPOSE EQS "0"  is FALSE
![SCRIPT] Null ELSE clause detected
![SCRIPT] TEMP.SCP Line 3: 
![SCRIPT] TEMP.SCP Line 4: get #t = ""
![FUNC]   Function: GET, Cmd line: #t = ""
![SYMBOL] Symbol: #t = "", Value: 
![SCRIPT] TEMP.SCP Line 5: get #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_exit"
![FUNC]   Function: GET, Cmd line: #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_e
!               xit"
![SYMBOL] Symbol: #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_exit", Value: <xop
!                'e', #t\oa$fld_exit
![SCRIPT] TEMP.SCP Line 6: get #t2 = "form WP /captive/once/pre='get oa$menu_rem
!               ainder=#t1'"
![FUNC]   Function: GET, Cmd line: #t2 = "form WP /captive/once/pre='get oa$menu
!               _remainder=#t1'"
![SYMBOL] Symbol: #t2 = "form WP /captive/once/pre='get oa$menu_remainder=#t1'",
!                Value: form WP /captive/once/pre='get oa$menu_remainder=#t1'
![SCRIPT] TEMP.SCP Line 7: 
![SCRIPT] TEMP.SCP Line 8: get oa$function = "dump_cache " oa$form_name
![FUNC]   Function: GET, Cmd line: oa$function = "dump_cache " oa$form_name
![FUNC]   Function: DUMP_CACHE, Cmd line: FILEM
![SYMBOL] Symbol: oa$function = "dump_cache " oa$form_name, Value: dump_cache FI
!               LEM
![SCRIPT] TEMP.SCP Line 9: oa$menu_level_push
![FUNC]   Function: OA$MENU_LEVEL_PUSH, Cmd line: 
![SCRIPT] TEMP.SCP Line 10: oa$fao #t2, "OA$FUNCTION", OA$FORM_NAME
![FUNC]   Function: OA$FAO, Cmd line: #t2, "OA$FUNCTION", OA$FORM_NAME
![SYMBOL] Symbol: #t2, Value: form WP /captive/once/pre='get oa$menu_remainder=#
!               t1'
![SYMBOL] Symbol: "OA$FUNCTION", Value: OA$FUNCTION
![SYMBOL] Symbol: OA$FORM_NAME, Value: FILEM
![FUNC]   Function: FORM, Cmd line: WP /captive/once/pre='get oa$menu_remainder=
!               #t1'
![FORM]   Form WP dispatching, Command: /captive/once/pre='get oa$menu_remainder
!               =#t1'
![FLOW]   Current field index: 4. Form context follows:
![FLOW]   Form Name                      Dsab      Workspace   Prior Dsab
![FLOW]   FILEM                          00301D28  00045F0E    00000000
!   
![FORM]   Form WP clearing
![FORM]   Form WP starting
![FORM]   Form WP is already opened, DSAB: 00301AF8 
![FUNC]   Function: OA$FORM_MENU, Cmd line: /captive/once/pre='get oa$menu_remai
!               nder=#t1'
![FUNC]   Function: GET, Cmd line: oa$menu_remainder=#t1
![SYMBOL] Symbol: oa$menu_remainder=#t1, Value: <xop 'e', #t\oa$fld_exit
![SYMBOL] Symbol: OA$FULL_NAME, Value: ANDREW TEST-BEESON
![PUT]    Field: USER/0, Page: 1, Text: ANDREW TEST-BEESON
![SYMBOL] Symbol: OA$TITLE, Value: Digital Technical Consultant
![PUT]    Field: TITLE/1, Page: 1, Text: Digital Technical Consultant
![SYMBOL] Symbol: OA$DAY, Value: Tuesday
![PUT]    Field: DAY/2, Page: 1, Text: Tue
![SYMBOL] Symbol: OA$DATE_FULL, Value: 20-Apr-1993
![PUT]    Field: DATE/3, Page: 1, Text: 20-Apr-1993
![SYMBOL] Symbol: OA$MAIL_COUNT_DISPLAY, Value: ( 1 new mail message )
![PUT]    Field: MAIL/6, Page: 1, Text: ( 1 new mail message )
![SYMBOL] Symbol: OA$CURDWR_DISPLAY, Value: MAIN
![PUT]    Field: DRAWER/7, Page: 1, Text: MAIN
![SYMBOL] Symbol: OA$CURDOC_FOLDER, Value: CUSTOMISATIONS
![PUT]    Field: CURFDR/8, Page: 1, Text: CUSTOMISATIONS
![SYMBOL] Symbol: OA$CURDOC_TITLE, Value: Outstanding user issues at WOP
![PUT]    Field: CURTITL/9, Page: 1, Text: Outstanding user issues at WOP
![SYMBOL] Symbol: OA$CURDOC_AUTHOR, Value: ANDREW TEST-BEESON
![PUT]    Field: AUTHOR/10, Page: 1, Text: ANDREW TEST-BEESON
![SYMBOL] Symbol: OA$CURDOC_MODIFIED, Value: 19-Apr-1993 12:32pm
![PUT]    Field: MODATE/11, Page: 1, Text: 19-Apr-1993 12:32pm
![SYMBOL] Symbol: OA$CURDOC_DOCNUM, Value: 000079
![PUT]    Field: CURNUM/12, Page: 1, Text: 000079
![SYMBOL] Symbol: OA$CURDOC_MAIL_STATUS, Value: 
![FUNC]   Function: XOP, Cmd line: 'e', #t
![SYMBOL] Symbol: 'e', Value: e
![FUNC]   Function: OA$FLD_EXIT, Cmd line: 
![FORM]   Form WP closing
![FORM]   Form WP dispatched
![FLOW]   Current field index: 4. Form context follows:
![FLOW]   Form Name                      Dsab      Workspace   Prior Dsab
![FLOW]   FILEM                          00301D28  00045F0E    00000000
!   
![SCRIPT] TEMP.SCP Line 11: 
![SCRIPT] TEMP.SCP Line 12: get "Result: " #t
![FUNC]   Function: GET, Cmd line: "Result: " #t
![SYMBOL] Symbol: "Result: " #t, Value: Result: OA$SCP_DISPATCH .IF OA$CURDOC_DO
!               CNUM == "" THEN GET OA$DISPLAY=OA$_GBL_NODOCSEL ELSE CHECK_DISKQ
!               UOTA\.IF OA$STATUS == "1" THEN     DECLARE_METER #METER_NO, OA$_
!               WP_EDIT\\START_METER #METER_NO\\    DO WPEDIT\\STOP_METER #METER
!               _NO
![SCRIPT] TEMP.SCP Line 13: .EXIT
!   
![SCRIPT] Closing Script TEMP.SCP


The following is trace output for the script when the form name is something
other than the current form and the option being checked is outside the scope
of the '/CAPTIVE' qualifier:

![SCRIPT] Line             DO Script
![SCRIPT]   0    DISK$USER:[USER.WOPA3BAI1.A1]TEMP.SCP;
!   
![SCRIPT] TEMP.SCP Line 1: prompt "Enter option to check: "
![FUNC]   Function: PROMPT, Cmd line: "Enter option to check: "
![SYMBOL] Symbol: "Enter option to check: ", Value: Enter option to check: 
![FORM]   Form: FILEM, Field: CHOICE/4, Page: 1, Prompt: tm                     
!                                                                               
!                                                                               
!                                                                               
!                                                        
![FORM]   Form: FILEM, Field: CHOICE/4, Page: 1, Key Value: {CR}
![FUNC]   Function: OA$FLD_DONE, Cmd line: 
![SCRIPT] TEMP.SCP Line 2: .if oa$prompt_dispose eqs "0" then .exit
![SYMBOL] Symbol: OA$PROMPT_DISPOSE, Value: 2
![SYMBOL] Symbol: "0", Value: 0
![SCRIPT] IF Operation starting
![SCRIPT] .IF condition OA$PROMPT_DISPOSE EQS "0"  is FALSE
![SCRIPT] Null ELSE clause detected
![SCRIPT] TEMP.SCP Line 3: 
![SCRIPT] TEMP.SCP Line 4: get #t = ""
![FUNC]   Function: GET, Cmd line: #t = ""
![SYMBOL] Symbol: #t = "", Value: 
![SCRIPT] TEMP.SCP Line 5: get #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_exit"
![FUNC]   Function: GET, Cmd line: #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_e
!               xit"
![SYMBOL] Symbol: #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_exit", Value: <xop
!                'tm', #t\oa$fld_exit
![SCRIPT] TEMP.SCP Line 6: get #t2 = "form WP /captive/once/pre='get oa$menu_rem
!               ainder=#t1'"
![FUNC]   Function: GET, Cmd line: #t2 = "form WP /captive/once/pre='get oa$menu
!               _remainder=#t1'"
![SYMBOL] Symbol: #t2 = "form WP /captive/once/pre='get oa$menu_remainder=#t1'",
!                Value: form WP /captive/once/pre='get oa$menu_remainder=#t1'
![SCRIPT] TEMP.SCP Line 7: 
![SCRIPT] TEMP.SCP Line 8: get oa$function = "dump_cache " oa$form_name
![FUNC]   Function: GET, Cmd line: oa$function = "dump_cache " oa$form_name
![FUNC]   Function: DUMP_CACHE, Cmd line: FILEM
![SYMBOL] Symbol: oa$function = "dump_cache " oa$form_name, Value: dump_cache FI
!               LEM
![SCRIPT] TEMP.SCP Line 9: oa$menu_level_push
![FUNC]   Function: OA$MENU_LEVEL_PUSH, Cmd line: 
![SCRIPT] TEMP.SCP Line 10: oa$fao #t2, "OA$FUNCTION", OA$FORM_NAME
![FUNC]   Function: OA$FAO, Cmd line: #t2, "OA$FUNCTION", OA$FORM_NAME
![SYMBOL] Symbol: #t2, Value: form WP /captive/once/pre='get oa$menu_remainder=#
!               t1'
![SYMBOL] Symbol: "OA$FUNCTION", Value: OA$FUNCTION
![SYMBOL] Symbol: OA$FORM_NAME, Value: FILEM
![FUNC]   Function: FORM, Cmd line: WP /captive/once/pre='get oa$menu_remainder=
!               #t1'
![FORM]   Form WP dispatching, Command: /captive/once/pre='get oa$menu_remainder
!               =#t1'
![FLOW]   Current field index: 4. Form context follows:
![FLOW]   Form Name                      Dsab      Workspace   Prior Dsab
![FLOW]   FILEM                          00301D28  00045F0E    00000000
!   
![FORM]   Form WP clearing
![FORM]   Form WP starting
![FORM]   Form WP is already opened, DSAB: 00301AF8 
![FUNC]   Function: OA$FORM_MENU, Cmd line: /captive/once/pre='get oa$menu_remai
!               nder=#t1'
![FUNC]   Function: GET, Cmd line: oa$menu_remainder=#t1
![SYMBOL] Symbol: oa$menu_remainder=#t1, Value: <xop 'tm', #t\oa$fld_exit
![SYMBOL] Symbol: OA$FULL_NAME, Value: ANDREW TEST-BEESON
![PUT]    Field: USER/0, Page: 1, Text: ANDREW TEST-BEESON
![SYMBOL] Symbol: OA$TITLE, Value: Digital Technical Consultant
![PUT]    Field: TITLE/1, Page: 1, Text: Digital Technical Consultant
![SYMBOL] Symbol: OA$DAY, Value: Tuesday
![PUT]    Field: DAY/2, Page: 1, Text: Tue
![SYMBOL] Symbol: OA$DATE_FULL, Value: 20-Apr-1993
![PUT]    Field: DATE/3, Page: 1, Text: 20-Apr-1993
![SYMBOL] Symbol: OA$MAIL_COUNT_DISPLAY, Value: ( 1 new mail message )
![PUT]    Field: MAIL/6, Page: 1, Text: ( 1 new mail message )
![SYMBOL] Symbol: OA$CURDWR_DISPLAY, Value: MAIN
![PUT]    Field: DRAWER/7, Page: 1, Text: MAIN
![SYMBOL] Symbol: OA$CURDOC_FOLDER, Value: CUSTOMISATIONS
![PUT]    Field: CURFDR/8, Page: 1, Text: CUSTOMISATIONS
![SYMBOL] Symbol: OA$CURDOC_TITLE, Value: Outstanding user issues at WOP
![PUT]    Field: CURTITL/9, Page: 1, Text: Outstanding user issues at WOP
![SYMBOL] Symbol: OA$CURDOC_AUTHOR, Value: ANDREW TEST-BEESON
![PUT]    Field: AUTHOR/10, Page: 1, Text: ANDREW TEST-BEESON
![SYMBOL] Symbol: OA$CURDOC_MODIFIED, Value: 19-Apr-1993 12:32pm
![PUT]    Field: MODATE/11, Page: 1, Text: 19-Apr-1993 12:32pm
![SYMBOL] Symbol: OA$CURDOC_DOCNUM, Value: 000079
![PUT]    Field: CURNUM/12, Page: 1, Text: 000079
![SYMBOL] Symbol: OA$CURDOC_MAIL_STATUS, Value: 
![FUNC]   Function: XOP, Cmd line: 'tm', #t
![SYMBOL] Symbol: 'tm', Value: tm
![SYMBOL] Symbol: FC1, Value: 
![SYMBOL] Symbol: FC2, Value: 
![SYMBOL] Symbol: FC3, Value: 
![FUNC]   Function: OA$FLD_EXIT, Cmd line: 
![FORM]   Form WP closing
![FORM]   Form WP dispatched
![FLOW]   Current field index: 4. Form context follows:
![FLOW]   Form Name                      Dsab      Workspace   Prior Dsab
![FLOW]   FILEM                          00301D28  00045F0E    00000000
!   
![SCRIPT] TEMP.SCP Line 11: 
![SCRIPT] TEMP.SCP Line 12: get "Result: " #t
![FUNC]   Function: GET, Cmd line: "Result: " #t
![SYMBOL] Symbol: "Result: " #t, Value: Result: 
![SCRIPT] TEMP.SCP Line 13: .EXIT


The following is trace output for the script when the form name is that of the
current form and the option being checked is within the scope of the '/CAPTIVE'
qualifier:

![SCRIPT] Line             DO Script
![SCRIPT]   0    DISK$USER:[USER.WOPA3BAI1.A1]TEMP.SCP;
!   
![SCRIPT] TEMP.SCP Line 1: prompt "Enter option to check: "
![FUNC]   Function: PROMPT, Cmd line: "Enter option to check: "
![SYMBOL] Symbol: "Enter option to check: ", Value: Enter option to check: 
![FORM]   Form: FILEM, Field: CHOICE/4, Page: 1, Prompt: e                      
!                                                                               
!                                                                               
!                                                                               
!                                                        
![FORM]   Form: FILEM, Field: CHOICE/4, Page: 1, Key Value: {CR}
![FUNC]   Function: OA$FLD_DONE, Cmd line: 
![SCRIPT] TEMP.SCP Line 2: .if oa$prompt_dispose eqs "0" then .exit
![SYMBOL] Symbol: OA$PROMPT_DISPOSE, Value: 2
![SYMBOL] Symbol: "0", Value: 0
![SCRIPT] IF Operation starting
![SCRIPT] .IF condition OA$PROMPT_DISPOSE EQS "0"  is FALSE
![SCRIPT] Null ELSE clause detected
![SCRIPT] TEMP.SCP Line 3: 
![SCRIPT] TEMP.SCP Line 4: get #t = ""
![FUNC]   Function: GET, Cmd line: #t = ""
![SYMBOL] Symbol: #t = "", Value: 
![SCRIPT] TEMP.SCP Line 5: get #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_exit"
![FUNC]   Function: GET, Cmd line: #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_e
!               xit"
![SYMBOL] Symbol: #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_exit", Value: <xop
!                'e', #t\oa$fld_exit
![SCRIPT] TEMP.SCP Line 6: get #t2 = "form !AS /captive/once/pre='get oa$menu_re
!               mainder=#t1'"
![FUNC]   Function: GET, Cmd line: #t2 = "form !AS /captive/once/pre='get oa$men
!               u_remainder=#t1'"
![SYMBOL] Symbol: #t2 = "form !AS /captive/once/pre='get oa$menu_remainder=#t1'"
!               , Value: form !AS /captive/once/pre='get oa$menu_remainder=#t1'
![SCRIPT] TEMP.SCP Line 7: 
![SCRIPT] TEMP.SCP Line 8: get oa$function = "dump_cache " oa$form_name
![FUNC]   Function: GET, Cmd line: oa$function = "dump_cache " oa$form_name
![FUNC]   Function: DUMP_CACHE, Cmd line: FILEM
![SYMBOL] Symbol: oa$function = "dump_cache " oa$form_name, Value: dump_cache FI
!               LEM
![SCRIPT] TEMP.SCP Line 9: oa$menu_level_push
![FUNC]   Function: OA$MENU_LEVEL_PUSH, Cmd line: 
![SCRIPT] TEMP.SCP Line 10: oa$fao #t2, "OA$FUNCTION", OA$FORM_NAME
![FUNC]   Function: OA$FAO, Cmd line: #t2, "OA$FUNCTION", OA$FORM_NAME
![SYMBOL] Symbol: #t2, Value: form !AS /captive/once/pre='get oa$menu_remainder=
!               #t1'
![SYMBOL] Symbol: "OA$FUNCTION", Value: OA$FUNCTION
![SYMBOL] Symbol: OA$FORM_NAME, Value: FILEM
![FUNC]   Function: FORM, Cmd line: FILEM /captive/once/pre='get oa$menu_remaind
!               er=#t1'
![FORM]   Form FILEM dispatching, Command: /captive/once/pre='get oa$menu_remain
!               der=#t1'
![FLOW]   Current field index: 4. Form context follows:
![FLOW]   Form Name                      Dsab      Workspace   Prior Dsab
![FLOW]   FILEM                          00301D28  00045F0E    00000000
!   
![SCRIPT] TEMP.SCP Line 11: 
![SCRIPT] TEMP.SCP Line 12: get "Result: " #t
![FUNC]   Function: GET, Cmd line: "Result: " #t
![SYMBOL] Symbol: "Result: " #t, Value: Result: 
![SCRIPT] TEMP.SCP Line 13: .EXIT


The following is trace output for the script when the form name is something
other than the current form and the option being checked is outside the scope
of the '/CAPTIVE' qualifier:

![SCRIPT] Line             DO Script
![SCRIPT]   0    DISK$USER:[USER.WOPA3BAI1.A1]TEMP.SCP;
!   
![SCRIPT] TEMP.SCP Line 1: prompt "Enter option to check: "
![FUNC]   Function: PROMPT, Cmd line: "Enter option to check: "
![SYMBOL] Symbol: "Enter option to check: ", Value: Enter option to check: 
![FORM]   Form: FILEM, Field: CHOICE/4, Page: 1, Prompt: tms                    
!                                                                               
!                                                                               
!                                                                               
!                                                        
![FORM]   Form: FILEM, Field: CHOICE/4, Page: 1, Key Value: {CR}
![FUNC]   Function: OA$FLD_DONE, Cmd line: 
![SCRIPT] TEMP.SCP Line 2: .if oa$prompt_dispose eqs "0" then .exit
![SYMBOL] Symbol: OA$PROMPT_DISPOSE, Value: 2
![SYMBOL] Symbol: "0", Value: 0
![SCRIPT] IF Operation starting
![SCRIPT] .IF condition OA$PROMPT_DISPOSE EQS "0"  is FALSE
![SCRIPT] Null ELSE clause detected
![SCRIPT] TEMP.SCP Line 3: 
![SCRIPT] TEMP.SCP Line 4: get #t = ""
![FUNC]   Function: GET, Cmd line: #t = ""
![SYMBOL] Symbol: #t = "", Value: 
![SCRIPT] TEMP.SCP Line 5: get #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_exit"
![FUNC]   Function: GET, Cmd line: #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_e
!               xit"
![SYMBOL] Symbol: #t1 = "<xop '" oa$prompt_text "', #t\oa$fld_exit", Value: <xop
!                'tms', #t\oa$fld_exit
![SCRIPT] TEMP.SCP Line 6: get #t2 = "form !AS /captive/once/pre='get oa$menu_re
!               mainder=#t1'"
![FUNC]   Function: GET, Cmd line: #t2 = "form !AS /captive/once/pre='get oa$men
!               u_remainder=#t1'"
![SYMBOL] Symbol: #t2 = "form !AS /captive/once/pre='get oa$menu_remainder=#t1'"
!               , Value: form !AS /captive/once/pre='get oa$menu_remainder=#t1'
![SCRIPT] TEMP.SCP Line 7: 
![SCRIPT] TEMP.SCP Line 8: get oa$function = "dump_cache " oa$form_name
![FUNC]   Function: GET, Cmd line: oa$function = "dump_cache " oa$form_name
![FUNC]   Function: DUMP_CACHE, Cmd line: FILEM
![SYMBOL] Symbol: oa$function = "dump_cache " oa$form_name, Value: dump_cache FI
!               LEM
![SCRIPT] TEMP.SCP Line 9: oa$menu_level_push
![FUNC]   Function: OA$MENU_LEVEL_PUSH, Cmd line: 
![SCRIPT] TEMP.SCP Line 10: oa$fao #t2, "OA$FUNCTION", OA$FORM_NAME
![FUNC]   Function: OA$FAO, Cmd line: #t2, "OA$FUNCTION", OA$FORM_NAME
![SYMBOL] Symbol: #t2, Value: form !AS /captive/once/pre='get oa$menu_remainder=
!               #t1'
![SYMBOL] Symbol: "OA$FUNCTION", Value: OA$FUNCTION
![SYMBOL] Symbol: OA$FORM_NAME, Value: FILEM
![FUNC]   Function: FORM, Cmd line: FILEM /captive/once/pre='get oa$menu_remaind
!               er=#t1'
![FORM]   Form FILEM dispatching, Command: /captive/once/pre='get oa$menu_remain
!               der=#t1'
![FLOW]   Current field index: 4. Form context follows:
![FLOW]   Form Name                      Dsab      Workspace   Prior Dsab
![FLOW]   FILEM                          00301D28  00045F0E    00000000
!   
![SCRIPT] TEMP.SCP Line 11: 
![SCRIPT] TEMP.SCP Line 12: get "Result: " #t
![FUNC]   Function: GET, Cmd line: "Result: " #t
![SYMBOL] Symbol: "Result: " #t, Value: Result: 
![SCRIPT] TEMP.SCP Line 13: .EXIT
!   
![SCRIPT] Closing Script TEMP.SCP