I got the following error during precomilation of a cics program under UNIX.
" An unexpected token "UNION
" was found following "FF_DT > CURRENT DATE". Expected
tokens may include: "<space>". SQLSTATE=42601 "
The following is the piece of code where I am facing the problem.
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD = :WS-AID-CD-ONLY
AND COMP_CD IS NULL
AND PRICGRP_CD IS NULL
AND CUST_NBR IS NULL
AND CNTCT_PURP_CD = :WS-PURPOSE-CD-IDP
AND CNTCT_EFF_DT > CURRENT DATE
UNION
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD = :WS-AID-CD-COMP
AND COMP_CD = :WS-COMP-CD
AND PRICGRP_CD IS NULL
AND CUST_NBR IS NULL
AND CNTCT_PURP_CD = :WS-PURPOSE-CODE
AND CNTCT_EFF_DT > CURRENT DATE
UNION
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD = :WS-AID-CD-PRICE
AND COMP_CD IS NULL
AND PRICGRP_CD = :WS-PRICGRP-CD
AND CUST_NBR IS NULL
AND CNTCT_PURP_CD = :WS-PURPOSE-CD-IDP
AND CNTCT_EFF_DT > CURRENT DATE
UNION
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD IS NULL
AND COMP_CD IS NULL
AND PRICGRP_CD IS NULL
AND CUST_NBR = :WS-CUST-NBR
AND CNTCT_PURP_CD = :WS-PURPOSE-CD-IDP
AND CNTCT_EFF_DT > CURRENT DATE
UNION
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD IS NULL
AND COMP_CD IS NULL
AND PRICGRP_CD IS NULL
AND CUST_NBR IS NULL
AND DHL_CUST_ID = :WS-CSTMR-ID
AND DHL_TRF_ID = :WS-TARIFF-AG
AND CNTCT_PURP_CD = :WS-PURPOSE-CODE
AND CNTCT_EFF_DT > CURRENT DATE
UNION
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD IS NULL
AND COMP_CD IS NULL
AND PRICGRP_CD IS NULL
AND CUST_NBR IS NULL
AND DHL_CUST_ID IS NULL
AND DHL_TRF_ID = :WS-TARIFF-AG
AND CNTCT_PURP_CD = :WS-PURPOSE-CODE
AND CNTCT_EFF_DT > CURRENT DATE
What might be the problem ?
" An unexpected token "UNION
" was found following "FF_DT > CURRENT DATE". Expected
tokens may include: "<space>". SQLSTATE=42601 "
The following is the piece of code where I am facing the problem.
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD = :WS-AID-CD-ONLY
AND COMP_CD IS NULL
AND PRICGRP_CD IS NULL
AND CUST_NBR IS NULL
AND CNTCT_PURP_CD = :WS-PURPOSE-CD-IDP
AND CNTCT_EFF_DT > CURRENT DATE
UNION
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD = :WS-AID-CD-COMP
AND COMP_CD = :WS-COMP-CD
AND PRICGRP_CD IS NULL
AND CUST_NBR IS NULL
AND CNTCT_PURP_CD = :WS-PURPOSE-CODE
AND CNTCT_EFF_DT > CURRENT DATE
UNION
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD = :WS-AID-CD-PRICE
AND COMP_CD IS NULL
AND PRICGRP_CD = :WS-PRICGRP-CD
AND CUST_NBR IS NULL
AND CNTCT_PURP_CD = :WS-PURPOSE-CD-IDP
AND CNTCT_EFF_DT > CURRENT DATE
UNION
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD IS NULL
AND COMP_CD IS NULL
AND PRICGRP_CD IS NULL
AND CUST_NBR = :WS-CUST-NBR
AND CNTCT_PURP_CD = :WS-PURPOSE-CD-IDP
AND CNTCT_EFF_DT > CURRENT DATE
UNION
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD IS NULL
AND COMP_CD IS NULL
AND PRICGRP_CD IS NULL
AND CUST_NBR IS NULL
AND DHL_CUST_ID = :WS-CSTMR-ID
AND DHL_TRF_ID = :WS-TARIFF-AG
AND CNTCT_PURP_CD = :WS-PURPOSE-CODE
AND CNTCT_EFF_DT > CURRENT DATE
UNION
SELECT 'Y'
INTO :WS-FUTURE-EXIST-SW
FROM CON01_CUST_CNTC T
WHERE
AID_CD IS NULL
AND COMP_CD IS NULL
AND PRICGRP_CD IS NULL
AND CUST_NBR IS NULL
AND DHL_CUST_ID IS NULL
AND DHL_TRF_ID = :WS-TARIFF-AG
AND CNTCT_PURP_CD = :WS-PURPOSE-CODE
AND CNTCT_EFF_DT > CURRENT DATE
What might be the problem ?