I am seeking a challenging position as an ERP or Progress 4GL Developer in USA. My employment status: U.S. Green Card.
I have 15 years of experience in computer programming, analysis and design, 11 years in ERP and 10 years in Progress 4GL and MFG/PRO.
I am a fast learner and have excellent...
nothing is impossible :-)
define i as integer.
define i2 as integer.
define variable arr as character extent 15. /*3 x 5*/
&scoped-define arrIndex ((i - 1) * 5 + i2)
do i = 1 to 3:
do i2 = 1 to 5:
I think so, shared variable = goto.
If you find the second good, you can use the first, too :-)
(I have to admit, I use goto in Excel Visual Basic and I (sometimes) used new global shared, during MFG/PRO developing. Do not imitate me.)
Or use this code :awink:
if keyfunction(lastkey) = "END-KEY" or keyfunction(lastkey) = "END-ERROR" then
message "End Key Pressed ".
end.Because if you press F4, the program leave the current repeat block and in your sample the message with pause 7...
Use one of these in top of your code.
The bold line is the right choice to your code.
if you don't need empty lines:
define variable amt1 like amt no-undo.
define variable amt2 like amt no-undo.
for each table1 ...
,each table2 ...
break by Bld by year:
if first-of(year) then
amt1 = 0
amt2 = 0.
if period = 1 then
amt1 = amt1 + amt.
if period = 2 then
amt2 = amt2 +...