Bob: Since the PROC buffer is getting trashed by the called PROC change the menu PROC to a more suitable format like:
PQ 10 C Top of Main Menu RI RO OA number of lines that display the available menu choices ... OEnter choice + IP: IF # A X IF A = 1 GO 100 ... IF A = 99 GO 990 O O That is not a valid menu choice. O PRESS [ENTER] + IP GO 10 C--> 100 C Option# 1 [PROD.PL PROG1.PROC GO 10 ... 990 C Option# 99 [PROD.PL PROG99.PROC GO 10 Hope this helps. :-) Bill > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Glenn Herbert > Sent: Wednesday, January 25, 2006 1:01 PM > To: [email protected] > Subject: Re: [U2] PROC question > > 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/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
