Bob, If A1 gets overwritten in PROD.PL PROG1.PROC, then it won't be 1 when you come back to the menu proc. Are you being careful to preserve the value in A1 when you are in the called proc?
Susan M. Lynch F.W. Davison & Company, Inc. (781) 340-9255 Support fax # (508) 437-0093 Confidentiality Notice: This e-mail message and any accompanying documents is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure, distribution, or copying is prohibited. ----- Original Message ----- From: "Bob Woodward" <[EMAIL PROTECTED]> To: "U2-Users List" <[email protected]> Sent: Wednesday, January 25, 2006 2:54 PM Subject: [U2] PROC question > 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/
