If this is for universe, the problem here stems from the fact that your [PROD.xx procs are stomping all over the buffers of the main menu proc. There's not really much you can do about that, but you could modify your main proc slightly as follows:
0001: PQ 002 F-OPEN 1 VOC 003 XNO VOC 004 10 C TOP 005 OEnter choice+ 006 S1 007 IP: 008 IF # A X 009 MV &1.1 %1 010 IF A = 1 [VOC YYY 011 IF &1.1 = 1 GO 10 012 IF A = 99 [VOC ZZZ 013 IF &1.1 = 99 GO 10 014 O 015 O 016 ONOT VALID. PRESS ENTER+ 017 IP: 018 GO 10 In order to save your entry, you can't use input, output or select list buffers - you are then left with using a file channel (since you probably don't want to write anything here). So at line 2 and 3, open the VOC file to channel 1 and use that as a holder. Line 7 is used to make certain input is always done on the first field. Line 9 then is used to transfer your users input value into the first field of the file channel - you then use the file channel as your test to return to the menu (lines 11 and 13). This means you should only have to modify slightly your main menu program to retain the input value and not have to modify the PROCxx files. _________________________________________________________ "I reject your reality and substitute my own" - Adam Savage Glenn M. Herbert - Connectivity Development Engineer Information Integration Solutions, IBM Software Group 50 Washington Street Westboro, MA 01581 508-599-7281 direct [EMAIL PROTECTED] wrote on 01/25/2006 02:54:05 PM: > Hi folks, > > Maybe I'm just missing the finer points of PROC processing. I've got a > MENU proc that's structured like this: > > PQ > 10 C Top of Main Menu > OA number of lines that display the available menu choices > ... > OEnter choice + > IP: > IF # A X > IF A = 1 [PROD.PL PROG1.PROC > IF A = 1 G 10 > ... > IF A = 99 [PROD.PL PROG99.PROC > IF A = 99 G 10 > O > O That is not a valid menu choice. > O PRESS [ENTER] + > IP > G 10 > > My problem is when I come back from one of the PROGxx.PROC's, I'm not > getting the menu choice value back to execute the G 10 command. Instead > it displays the error message at the bottom. The PROGxx.PROC is > structured like this: > > PQ > 10 C Top of this PROC > Ha number of things stuffed into the output buffer > P > Hmore things happen in the output buffer > P > RTN > P > 999 C should never get past this point > OI never see this message > X > > Now keep in mind that I've trimmed down the PROC's to keep this message > fairly short. Everything is working as expected EXCEPT the falling > through on the MAIN.MENU.PROC into the invalid menu choice message. > Anyone have any insight to my problem? > > TIA > > BobW > ------- > u2-users mailing list > [email protected] > To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
