why wont' this compile....???
05 WS-LOAN-TEST PIC 9(10).
EXEC SQL
SELECT SUBSTR(M1UD24,4,7) INTO :WS-PGMID-FOUND
FROM SRVMLD
WHERE CASE WHEN M1UD24 = :WS-BLANKS
THEN :WS-ZEROS
ELSE SUBSTR(M1UD24,4,7)
END = :WS-PGMID
AND M1LOAN <> :WS-LOAN-TEST
* AND M1LOAN <> 1
END-EXEC
SQL0312 30 894 Position 31 Variable WS-LOAN-TEST not defined or not
usable.
M1LOAN <> 1 will compile, but not AND M1LOAN <> :WS-LOAN-TEST
M1LOAN is defined as zoned 10
05 WS-LOAN-TEST PIC 9(10).
EXEC SQL
SELECT SUBSTR(M1UD24,4,7) INTO :WS-PGMID-FOUND
FROM SRVMLD
WHERE CASE WHEN M1UD24 = :WS-BLANKS
THEN :WS-ZEROS
ELSE SUBSTR(M1UD24,4,7)
END = :WS-PGMID
AND M1LOAN <> :WS-LOAN-TEST
* AND M1LOAN <> 1
END-EXEC
SQL0312 30 894 Position 31 Variable WS-LOAN-TEST not defined or not
usable.
M1LOAN <> 1 will compile, but not AND M1LOAN <> :WS-LOAN-TEST
M1LOAN is defined as zoned 10