4GL Menu Question
Posted in 1997
------------6A3B00174F0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=us-ascii Is there a way to AUTOMATICALLY Activate a menu item in 4gl? I would like to take NEXT OPTION one step further, by allowing the user to, based on the result of some other input, skip to another menu item and have the code for that item execute automatically...... ie MENU "Test" COMMAND "Item1" CALL SomeFunction() RETURNING Flag IF Flag = "Y" THEN NEXT OPTION "Item 2" ## Highlight the item so the user knows what he's doing --> Do Code For Item 2 ## Execute the proper code END IF COMMAND "Item 2" ....... END MENU Thanks John Cokos -- +-------------------------------------------------------+ _/_/_/_/_/_/_/ _/_/_/_/_/_/_/ _/_/_/_/_/_/_/ _/_/ _/_/ _/_/ _/_/ _/_/ _/_/_/_/_/_/_/ _/_/ _/_/ _/_/ _/_/ _/_/ _/_/ _/_/_/_/_/_/_/ _/_/_/_/_/_/_/_/ _/_/_/_/_/_/_/ Call Center Solutions...Database Management / Design List Brokerage Barcoding / Caging Services V:(609)546-0434 F:(609)310-0575 +-------------------------------------------------------+ ------------6A3B00174F0 Content-Transfer-Encoding: 7bit Content-Type: text/html; charset=us-ascii <HTML><BODY> <DT>Is there a way to AUTOMATICALLY Activate a menu item in 4gl?</DT> <DT>I would like to take NEXT OPTION one step further, by allowing the</DT> <DT>user to, based on the result of some other input, skip to another menu item</DT> <DT>and have the code for that item execute automatically......</DT> <DT> ie</DT> <DT> MENU "Test"</DT> <DT> COMMAND "Item1"</DT> <DT> CALL SomeFunction() RETURNING Flag</DT> <DT> IF Flag = "Y" THEN</DT> <DT> NEXT OPTION "Item 2" ## Highlight the item so the user knows what he's doing</DT> <DT> --> Do Code For Item 2 ## Execute the proper code</DT> <DT> END IF</DT> <DT> COMMAND "Item 2"</DT> <DT> ........</DT> <DT> END MENU</DT> <DT> </DT> <DT>Thanks</DT> <DT>John Cokos</DT> <DT><BR> -- <BR> +-------------------------------------------------------+<BR> <BR> _/_/_/_/_/_/_/ _/_/_/_/_/_/_/ _/_/_/_/_/_/_/<BR> _/_/ _/_/ _/_/<BR> _/_/ _/_/ _/_/_/_/_/_/_/<BR> _/_/ _/_/ _/_/<BR> _/_/ _/_/ _/_/<BR> _/_/_/_/_/_/_/ _/_/_/_/_/_/_/_/ _/_/_/_/_/_/_/<BR> <BR> Call Center Solutions...Database Management / Design<BR> List Brokerage<BR> Barcoding / Caging Services<BR> <BR> V:(609)546-0434 F:(609)310-0575 <BR> +-------------------------------------------------------+<BR> </DT> </BODY> </HTML> ------------6A3B00174F0--