Hi Barbara, still no go :/
I get a severity 40 error if I dont have /free at the beginning.
Moving the dcl-s (ds was a typo!) hasn't cured anything. I'm really at a loss here.
Is there another method where I can routinely run an SQL statement in AS/400 (even using WRKJOBSCDE as a scheduled task) - that might be better.
I get a severity 40 error if I dont have /free at the beginning.
Moving the dcl-s (ds was a typo!) hasn't cured anything. I'm really at a loss here.
Is there another method where I can routinely run an SQL statement in AS/400 (even using WRKJOBSCDE as a scheduled task) - that might be better.
Code:
*************** Beginning of data ************************************* 0001.00 /free 0002.00 dcl-s temp1 char(10) ; 0003.00 exec sql 0004.00 SELECT stn#st INTO :temp1 FROM WARefil_ML/WARSTHD WHERE stn#st 0005.00 = :STEVEN; 0006.00 *inlr = *on; ****************** End of data ****************************************
Code:
31 D SQFRD C CONST(2) 32 D SQFCRT C CONST(8) 33 D SQFOVR C CONST(16) 34 D SQFAPP C CONST(32) 35 /free 36 dcl-s temp1 char(10) ; ======> a *RNF5347 30 a 000200 An assignment operator is expected with the EVAL op 37 exec sql ======> aaa *RNF5347 30 a 000300 An assignment operator is expected with the EVAL op 38 SELECT stn#st INTO :temp1 FROM WARefil_ML/WARSTHD WHERE stn#st 39 = :STEVEN; 40 *inlr = *on; * * * * * E N D O F S O U R C E * * * * * 5722WDS V5R2M0 020719 RN IBM ILE RPG DWMS000/SQLV4 A d d i t i o n a l D i a g n o s t i c M e s s a g e s Msg id Sv Number Seq Message text *RNF7030 30 36 000200 The name or indicator DCL is not defined. *RNF7030 30 37 000300 The name or indicator EXEC is not defined. *RNF7030 30 37 000300 The name or indicator SQL is not defined. * * * * * E N D O F A D D I T I O N A L D I A G N O S T I C M E S S 5722WDS V5R2M0 020719 RN IBM ILE RPG DWMS000/SQLV4 C r o s s R e f e r e n c e File and Record References:
Comment