T_TRNEXRPT - Transaction Exception Detail Report

// Example Program: T_TRNEXRPT // Description: // This program demonstrates the CTI_RunTransExpDetailReport() // subprocedure. This subprocedure retrieves CyberSource's on-demand // transaction exception detail report. // // This example demonstrates processing a report which was downloaded // and saved to the IFS, and which has an associated record in CTIRPT. // It will parse the contents of the report file into the CTIRPT* // output tables. // // This program assumes that you have correctly configured your // merchant and environment tables (CTICFGMCH and CTICFGENV) and that // you have at least one valid batch transaction on the given date. Ctl-Opt ActGrp(*Caller) BndDir('CTIBND'); /COPY QRPGLECPY,CTICB // This is included for demo output purposes. Dcl-Pr WriteToJobLog Int(10) Extproc('Qp0zLprintf'); pString Pointer Value Options(*String); End-Pr; Dcl-C NewLine x'15'; // This stores the unique ID for this API call Dcl-S UniqueId Like(CTI_UniqueId_t) Inz; // This holds any error information returned by the API call Dcl-Ds ErrorDS LikeDS(CTI_ErrorDS_t) Inz(*LikeDS); // This holds configuration values for the report request API call Dcl-Ds ReportDS LikeDS(CTI_ReportAPIConfigDS_t) Inz(*LikeDS); // To retrieve the information for the report, we need to provide a // unique ID that corresponds to a record in CTIRPT. UniqueId = 00000; ReportDS.MerchantId = 'YOUR_MERCHANT_ID'; ReportDS.Operation = CTI_PROCESS_REPORT; // We do not need to specify a report filepath because the program will // retrieve that information from the CTIRPT record. if not CTI_RunTransExpDetailReport( UniqueId : ReportDS : ErrorDS ); WriteToJobLog( 'Error Message Id: ' + ErrorDS.MessageId + NewLine ); WriteToJobLog( 'Error Message: ' + ErrorDS.Message + NewLine ); WriteToJobLog( 'Error Source: ' + ErrorDS.Source + NewLine ); endif; *INLR = *ON; return;