Here's (part of) the source code:
Here's the compiler listing:
So.... what's with the control level "L " in the generated source ?
I moved the SQL inside a subr, and compiled ok - but I shouldn't have to.
PHP Code:
IFBKREFI
I BKI5CD L2
I BKI6CD L2
I
C BLKEY KLIST
C KFLD AdminID
C KFLD ExchType
C KFLD BKI5CD
C KFLD BKI6CD
C
C* 1st record, drop all records from new file
C If First = *blanks
C/EXEC SQL
C+ Delete from CURRENCY
C/END-EXEC
C
C/EXEC SQL COMMIT
C/END-EXEC
C Eval First = 'X'
C EndIf
PHP Code:
000521 C If First = *blanks
000522 C*EXEC SQL
000523 C* Delete from CURRENCY
000524 C*END-EXEC
000522 CL Z-ADD 1 SQLER6
======> aa
*RNF5001 20 a 000522 Control-Level entry is not valid; defaults to previous
control level.
000522 CL CALL SQLROUTE
======> aa
*RNF5001 20 a 000522 Control-Level entry is not valid; defaults to previous
control level.
000522 CL PARM SQLCA
======> aa
*RNF5001 20 a 000522 Control-Level entry is not valid; defaults to previous
control level.
000525 C
I moved the SQL inside a subr, and compiled ok - but I shouldn't have to.
Comment