Syntax error reported but I cannot see it
"James B. Byrne via Aubit4gl-discuss" <[email protected]> Wed, 10 Mar 2021 12:43:45 -0500
| Newsgroups | gmane.comp.lang.4gl.aubit.general |
|---|---|
| Message-ID | <[email protected]> |
Err:Program ./ex11.4ae stopped at 'ex11.4gl', line number 859.
Error status number -201.
syntax error at or near "S".
4gl function call stack :
ex11.4gl (Line 469) calls stock_popup(stock_item=)
ex11.4gl (Line 172) calls input_items()
ex11.4gl (Line 90) calls add_order()
MAIN
The code referred to in the error message is:
837 LET st_stock =
838 "SELECT stock_num, description, stock.manu_code, manufact.manu_name, ",
839 "unit, unit_price FROM stock, manufact"
840
841 IF stock_item IS NOT NULL
842 THEN
843 LET st_stock = st_stock CLIPPED,
844 " WHERE stock_num = ", stock_item,
845 " AND stock.manu_code = manufact.manu_code",
846 " ORDER BY 1, 3"
847 ELSE
848 LET st_stock = st_stock CLIPPED,
849 " WHERE stock.manu_code = manufact.manu_code",
850 " ORDER BY 1, 3"
851 END IF
852
853 PREPARE slct_run FROM st_stock
854 DECLARE c_stockpop CURSOR FOR slct_run
855
856 LET over_size = FALSE
857 LET stock_cnt = 1
858
859 FOREACH c_stockpop INTO pa_stock[stock_cnt].*
860 LET stock_cnt = stock_cnt + 1
861 IF stock_cnt > array_sz THEN
862 LET over_size = TRUE
863 EXIT FOREACH
864 END IF
865 END FOREACH
866
I just cannot see what is wrong with that code. Can anyone else see what it is?
Thanks,
--
*** e-Mail is NOT a SECURE channel ***
Do NOT transmit sensitive data via e-Mail
Unencrypted messages have no legal claim to privacy
Do NOT open attachments nor follow links sent by e-Mail
James B. Byrne mailto:[email protected]
Harte & Lyne Limited http://www.harte-lyne.ca
9 Brockley Drive vox: +1 905 561 1241
Hamilton, Ontario fax: +1 905 561 0757
Canada L8E 3C3