SQLExec, CommitWork and RemoteCall
Hello,
I'm trying to have an IScript insert a row into a table, then RemoteCall a Cobol program:
SQLExec(SQL.SW_QCK_POST_TBL_INS, &GRP_TIMESTAMP, &Item_Type, &ITEM_EFF_DT, &Item_Type_Descr, &Emplid, &REF1_DESCR, &QCK_STRM, &QCK_ACAD_YEAR, &Total_Amt, &QCK_PAYMENT_METHOD, &QCK_EXC_ACCT_TYPE_SF, &QCK_EXC_ACCT_TYPE_FLG);CommitWork();RemoteCall("PSRCCBL", "PSCOBOLPROG", "SFPQKDRV", "BUSINESS_UNIT", &QCK_BUS_UNIT, "GRP_TIMESTAMP", &GRP_TIMESTAMP, "OPRID", &QCK_OPRID, "SF_REVERSAL_IND", &QCK_REVERSAL, "ITEM_TYPE_CD", &QCK_ITEM_TYPE, "POST_FLAG", &POSTED, "POST_DT", &POST_DATE, "ERROR_WARN", &ERRWARN);
I had this in an application class handler for an incoming IB message and it worked fine. But the requirements have changed, and I need to use an IScript. But the CommitWork function fails in the IScript: