DCL VAR(&SQLSTM) TYPE(*CHAR) LEN(512)
CHGVAR VAR(&SQLSTM) VALUE(‘INSERT INTO FTPHIST +
(HDATE, HTIME, HFTPKEY, HLOGDATA, HUSERID) +
VALUES(‘ +
|| ”” || &INSDATE || ”’, ‘ +
|| ”” || &INSTIME || ”’, ‘ +
|| ”” || &FTPKEY || ”’, ‘ +
|| ”” || &LOGDATA00 || ”’, ‘ +
|| ”” || &USERID || ”’)’)
EXCSQL SQL(&SQLSTM)