Re: Syntax error reported but I cannot see it

Try doing a

DISPLAY st_stock
SLEEP 4

just before the PREPARE
I dont know what datatype "stock_item" is, but if thats a string - that
might cause issues.




On Wed, 10 Mar 2021 at 17:44, James B. Byrne via Aubit4gl-discuss <
[email protected]> wrote:

> 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
>
>
>
> _______________________________________________
> Aubit4gl-discuss mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss
>

_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss