Cobol-Programm mit Embedded SQL (SELECT CASE)

[km198]

Sie können Schwierigkeit finden, wenn Sie meinen Pfosten lesen, wie ich von Hong-Kong und vom Verwenden von von on-line-Übersetzung bin Ich habe das gleiche Problem in meinem COBOL Programm, wenn ich die FALL-VORWÄHLER verwende. Jedoch finde ich die Lösung jetzt Sie können dynamischen sql versuchen, den ich Ihnen mein Argument für Ihre Bezugshoffnung zeige, sie helfen kann.

INITIALIZE S-FTARSDT-SQL-STAT

STRING
"SELECT DISTINCT CASE "
"WHEN FT.ARS_DT IS NULL THEN "
"( SELECT FTB.ARS_DT FROM CI_FT FTB "
"WHERE FTB.SIBLING_ID = "
"( SELECT ADJ.XFER_ADJ_ID FROM CI_ADJ ADJ "
"WHERE ADJ.ADJ_ID = FT.SIBLING_ID "
"AND ADJ.ADJ_STATUS_FLG = '50' ) ) "
"WHEN FT.ARS_DT > TRUNC(FT.FREEZE_DTTM) THEN "
"TRUNC(FT.FREEZE_DTTM) "
"ELSE FT.ARS_DT "
"END CASE "
"FROM CI_FT FT "
"WHERE FT.FT_TYPE_FLG IN ('AD', 'PS') "
"AND FT.FREEZE_SW='Y' "
"AND FT.SA_ID = '"
SA-ID OF S-FT-IN-DATA
"' AND ((FT.ARS_DT BETWEEN '"
BEGIN-DT OF S-FT-IN-DATA
"' AND '"
PROCESS-DT OF S-FT-IN-DATA
"') OR (FT.ARS_DT IS NULL "
"AND FT.PARENT_ID LIKE 'X%')) "
"ORDER BY CASE ASC"
INTO S-FTARSDT-SQL-STAT
END-STRING

EXEC SQL

PREPARE SQLSTMTFT FROM :S-FTARSDT-SQL-STAT

END-EXEC

EXEC SQL

DECLARE IACXSFTCSR CURSOR FOR SQLSTMTFT

END-EXEC