T_FOCRDT - Follow-On Credit

// Example Program: T_FOCRDT
// Description:
//  This is a test program to illustrate how to call the CTI_Run()
//  subprocedure to perform a follow-on credit.
//
//  To achieve this, generate a unique ID with CTI_NextUniqueId(), and
//  then populate and write a record to CTIWSHDR. Then, call CTI_Run()
//  passing in your unique ID as well as the other parameters shown.
//
//  CTI_Run() will return *On if no error was encountered, or *Off
//  if an error occurred. If an error occurred, you should look at
//  the fields in ErrorDS to retrieve information about the error.
//
//  Otherwise, you can perform a CHAIN against the CTIWSRSP physical
//  file, and retrieve the result fields.

Ctl-Opt ActGrp(*Caller) BndDir('CTIBND') Option(*NoDebugIO);

Dcl-F CTIWSHDR Disk(*Ext) Keyed Qualified Usage(*Input:*Output);
Dcl-F CTIWSRSP Disk(*Ext) Keyed Qualified Usage(*Input);

Dcl-Ds HDR ExtName('CTIWSHDR':*Output) Qualified End-Ds;
Dcl-Ds RSP ExtName('CTIWSRSP':*Input) Qualified End-Ds;

/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);

// Modify this field to use your merchant ID
Dcl-S MerchantId Like(CTI_MerchantId_t) Inz('ikrengel');

reset ErrorDS;

// Each API call requires a unique ID
UniqueId = CTI_NextUniqueId();

// CTIWSHDR needs to be populated with the transaction data
clear HDR;
HDR.UID = UniqueId;
HDR.CRTDT = %Timestamp();
HDR.CRDRUN = CTI_TRUE;
HDR.CRDREQID = '<change>';
HDR.ORDREQTK = '<change>';
HDR.MCHID = MerchantId;
HDR.MCHREFCD = 'MYREFCD134';

HDR.PTCUR = 'USD';
HDR.PTGNDAMT = '12.12';
HDR.PTTAXAMT = '3.00';

write CTIWSHDR.CTIWSHDRR HDR;

if not CTI_Run( UniqueId : ErrorDS : *Omit : *Omit : MerchantId );
  // If CTI_Run() returns *Off then an error occured.

  // You should check ErrorDS subfields for info:
  //  ErrorDS.Subproc = Name of CTI subprocedure that threw error
  //  ErrorDS.MessageId = Message ID of the error message
  //  ErrorDS.Message = Error message description
  //  ErrorDS.LogFile = Path to a log file created in the IFS that can
  //   be used for troubleshooting. Log files are generated
  //   automatically whenever an error occurs. You can also force log
  //   files to generate by modifying the value of the LOGALL field in
  //   CTICFGMCH for the provided Merchant ID.
  //  ErrorDS.Source =
  //    - CTI_SOURCE_INTERNAL is a general product error.
  //      This could be due to issues with input data, or the
  //      inability to access physical files, etc.
  //
  //    - CTI_SOURCE_TRANSMIT is a product error that specifically
  //      occurred during HTTPS communication with the CyberSource
  //      webservice. This could be due to issues with your network
  //      configuration, proxy setup, internet connection, etc.
  //
  //    - CTI_SOURCE_REMOTE is an error message provided by CyberSource.
  WriteToJobLog( 'Error Message Id: ' + ErrorDS.MessageId + NewLine );
  WriteToJobLog( 'Error Message: ' + ErrorDS.Message + NewLine );
  WriteToJobLog( 'Error Source: ' + ErrorDS.Source + NewLine );

  // All error information is also written to the file CTIERR.
else;
  // If CTI_Run() returned *On the request was successful. You can
  //  access the results in the CTIWSRSP file using the same UniqueID
  //  that was used to create the request record in CTIWSRSP.

  chain UniqueId CTIWSRSP.CTIWSRSPR RSP;
  if %Found(CTIWSRSP);
    // For this sample code we're writing the response data to the job
    //  log, but generally you would extract the data and pass it into
    //  your own data tables. The CTIWSHDR, CTIWSITM, and CTIWSRSP files
    //  should not be used for long-term data storage and should instead
    //  be considered short-term transactional files.

    // Follow-On Credit Response fields
    WriteToJobLog( 'CRDAMT: ' + RSP.CRDAMT + NewLine );
    WriteToJobLog( 'CRDRSNCD: ' + %Char(RSP.CRDRSNCD) + NewLine );
    WriteToJobLog( 'CRDRECID: ' + RSP.CRDRECID + NewLine );
  endif;
endif;
*INLR = *On;
return;