Re: [U2] Input or Output screen?
Hi, Loop on @PROC.NAME1..x until F('XXPROCESS',@PROC.NAMEx)1 = 'I' or F('XXPROCESS',@PROC.NAMEx)1 = 'O' then if = I run your extra validation. My 2 pence. Manu -Message d'origine- De : u2-users-boun...@listserver.u2ug.org [mailto:u2-users- boun...@listserver.u2ug.org] De la part de Nigel Laidlow Envoyé : jeudi 10 février 2011 18:04 À : u2-commun...@listserver.u2ug.org; u2-users@listserver.u2ug.org Objet : [U2] Input or Output screen? My dilemma... I have a process that is used validate a field in an input screen and in a display screen (in Avante Explorer), but for the input screen extra validation is needed. Is there some variable in Avante that tells if the current screen is an input or output, that I can check to do my extra validation? My alternative is to create some variable to pass in, but if something already exists I'd rather use that instead. Any help would be appreciated. Best Regards, Nigel Laidlow ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Clear Messages
I believe those are the program counters -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman Sent: February 10, 2011 06:29 PM To: U2 Users List Subject: [U2] Clear Messages The following program (and sub) returns the following string. What is nice about it is that if running SYSTEM(9001) from a sub, it comes back with the grand path. 2ý/usr/ibm/uv/catdir/*SUB.GET.PROGR/AM.NAME.R0ý0x0þ1ý/u2/CODE/B.BP.O/GET.CODE.DATA.R0ý0x16aþ What is the significance of the data at the end of the sub-strings... that is... 0x0 and x16a ? --Bill * call *SUB.GET.PROGRAM.NAME.R0(Who.Am.I) crt Who.Am.I * SUBROUTINE SUB.GET.PROGRAM.NAME.Rx(This.Program.Name) This.Program.Name = SYSTEM(9001) RETURN END Thanks to those who responded earlier especially Steve and Will. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Clear Messages
They look like addresses, could be the line that executed the call. You would have to use VLIST to see where it is in the code (VLIST filename program). Tom RATEX Business Solutions -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of u2ug Sent: Friday, February 11, 2011 8:48 AM To: U2 Users List Subject: Re: [U2] Clear Messages I believe those are the program counters -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman Sent: February 10, 2011 06:29 PM To: U2 Users List Subject: [U2] Clear Messages The following program (and sub) returns the following string. What is nice about it is that if running SYSTEM(9001) from a sub, it comes back with the grand path. 2ý/usr/ibm/uv/catdir/*SUB.GET.PROGR/AM.NAME.R0ý0x0þ1ý/u2/CODE/B.BP.O/GET.CODE.DATA.R0ý0x16aþ What is the significance of the data at the end of the sub-strings... that is... 0x0 and x16a ? --Bill * call *SUB.GET.PROGRAM.NAME.R0(Who.Am.I) crt Who.Am.I * SUBROUTINE SUB.GET.PROGRAM.NAME.Rx(This.Program.Name) This.Program.Name = SYSTEM(9001) RETURN END Thanks to those who responded earlier especially Steve and Will. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Does UV have a BLOCK command
It sounds like you're used to using a GOTO and aren't allowed to do so anymore because of company standards Gosub Block_code1 Gosub Block_code2 IF condition else GOSUB BlockCode3 END. You can put your blocks in a subroutine - Original Message From: George Gallen ggal...@wyanokegroup.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Mon, February 7, 2011 3:25:59 PM Subject: [U2] Does UV have a BLOCK command I want to setup a block of commands, and be able to exit out of the block if needed. Right now I use a LOOP/REPEAT with an EXIT statement before the REPEAT. I'd rather not use labels (or subroutines). The Loop/Repeat works, it just looks weird since it isn't really a loop... I tried using an IF block, but I couldn't use the EXIT within that block IF (1=1) THEN..END LOOP block code block code if condition then EXIT block code EXIT REPEAT Would be nice if BEGIN BLOCK block code block code if condition then EXIT block code END BLOCK George Gallen Senior Programmer/Analyst Accounting/Data Division, EDI Administrator ggal...@wyanokegroup.com ph:856.848.9005 Ext 220 The Wyanoke Group http://www.wyanokegroup.com ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Does UV have a BLOCK command
no, using GOTO's is not a problem. If you use a GOTO, you need to supply a label. If you decided to reuse any of the code within the block which included the condition, you don't have to remember to change the label name to the new label, it's just simply an EXIT. as for use of subroutines, it wasn't that I couldn't use them, it was I didn't want to use them (for this particular program). This was more of visual reasoning for following logic of the program, and ease in moving the logical chunks around in different orders, and still be able to visually follow the logic. It was more for making it easier on the human, rather than trying to make it streamlined for speed. I really didn't care if the program ran in 4.2 seconds instead of 4.8 seconds. But I did care that it was logically programmed correctly. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users- boun...@listserver.u2ug.org] On Behalf Of Jacques G. Sent: Friday, February 11, 2011 10:35 AM To: U2 Users List Subject: Re: [U2] Does UV have a BLOCK command It sounds like you're used to using a GOTO and aren't allowed to do so anymore because of company standards Gosub Block_code1 Gosub Block_code2 IF condition else GOSUB BlockCode3 END. You can put your blocks in a subroutine ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
[U2] : Users Groups
I only know of two users groups which still hold meetings. The one in Texas and the one in Seattle. Does anyone know of any other *active* user groups who hold meetings ? I'd like to update the list in my article http://knol.google.com/k/pick-universe-unidata-resources#view W ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] : Users Groups
Thanks Richard. I just sent a message to kerry because the page here http://www.aapug.org/next%20meeting.htm has not been update in quite a while. That made me believe they no longer met. W ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users