T_TAXCALC - Tax Calculation


// Example Program: T_TAXCALC // Description: // This is a test program to illustrate how to call the CTI_Run() // subprocedure to perform an tax calculation. // // To achieve this, generate a unique ID with CTI_NextUniqueId(), and // then populate and write a record to CTIWSHDR. This example also // writes one or more records to CTIWSITM to provide that level of // detail. 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. There will also be records // in CTIWSTRIT and CTIWSTRJD providing additional line and // jurisdiction level details respectively. Ctl-Opt ActGrp(*New) BndDir('CTIBND'); Dcl-F CTIWSHDR Disk(*Ext) Keyed Qualified Usage(*Input:*Output); Dcl-F CTIWSITM Disk(*Ext) Keyed Qualified Usage(*Input:*Output); Dcl-F CTIWSRSP Disk(*Ext) Keyed Qualified Usage(*Input); Dcl-F CTIWSTRIT Disk(*Ext) Keyed Qualified Usage(*Input); Dcl-F CTIWSTRJD Disk(*Ext) Keyed Qualified Usage(*Input); Dcl-Ds HDR ExtName('CTIWSHDR':*Output) Qualified End-Ds; Dcl-Ds ITM ExtName('CTIWSITM':*Output) Qualified End-Ds; Dcl-Ds RSP ExtName('CTIWSRSP':*Input) Qualified End-Ds; Dcl-Ds TRIT ExtName('CTIWSTRIT':*Input) Qualified End-Ds; Dcl-Ds TRJD ExtName('CTIWSTRJD':*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 request data clear HDR; HDR.UID = UniqueId; HDR.CRTDT = %Timestamp(); HDR.TAXRUN = CTI_TRUE; HDR.MCHID = MerchantId; HDR.MCHREFCD = 'MYREFCD134'; HDR.BTST1 = '123 Central & Main'; HDR.BTCTY = 'Mankato'; HDR.BTSTT = 'MN'; HDR.BTPSTCD = '56001'; HDR.BTCNTRY = 'US'; HDR.BTEML = 'asdf@asdf.com'; HDR.PTCUR = 'USD'; write CTIWSHDR.CTIWSHDRR HDR; // One or more item records need to be added to CTIWSITM clear ITM; ITM.PID = UniqueId; ITM.UID = CTI_NextUniqueId(); ITM.CRTDT = %Timestamp(); ITM.UNTPRC = '59.95'; ITM.QTY = 10; ITM.PRDCD = 'default'; ITM.PRDNAM = 'File Cabinet'; ITM.PRDSKU = 'FILCAB'; ITM.TOTAMT = '648.96'; write CTIWSITM.CTIWSITMR ITM; if not CTI_Run( UniqueId : ErrorDS : *Omit : *Omit : MerchantId ); // If CTI_Run() returns *Off then an error occurred. // 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 // CTICFGCER 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. WriteToJobLog( 'TRTOTCRTX: ' + RSP.TRTOTCRTX + NewLine ); WriteToJobLog( 'TRRSNCD: ' + %Char(RSP.TRRSNCD) + NewLine ); WriteToJobLog( 'TRTOTTBAMT: ' + RSP.TRTOTTBAMT + NewLine ); WriteToJobLog( 'TRTOTSTTX: ' + RSP.TRTOTSTTX + NewLine ); WriteToJobLog( 'TRTOTEXAMT: ' + RSP.TRTOTEXAMT + NewLine ); WriteToJobLog( 'TRGRTOTAMT: ' + RSP.TRGRTOTAMT + NewLine ); WriteToJobLog( 'TRTOTCTYTX: ' + RSP.TRTOTCTYTX + NewLine ); WriteToJobLog( 'TRTOTCNYTX: ' + RSP.TRTOTCTYTX + NewLine ); WriteToJobLog( 'TRTOTTXAMT: ' + RSP.TRTOTTXAMT + NewLine ); endif; // There will also be line-level and jurisdiction-level tax information // in CTIWSTRIT and CTIWSTRJD, respectively. We'll write out one of // each of these records for example purposes, but there will typically // be multiple records. chain UniqueID CTIWSTRIT.CTIWSTRITR TRIT; if %Found(CTIWSTRIT); WriteToJobLog( 'TXBAMT: ' + TRIT.TXBAMT + NewLine ); WriteToJobLog( 'EXMPAMT: ' + TRIT.EXMPAMT + NewLine ); WriteToJobLog( 'TOTTXAMT: ' + TRIT.TOTTXAMT + NewLine ); endif; chain UniqueID CTIWSTRJD.CTIWSTRJDR TRJD; if %Found(CTIWSTRJD); WriteToJobLog( 'TAXNAME: ' + TRJD.TAXNAME + NewLine ); WriteToJobLog( 'TYPE: ' + TRJD.TYPE + NewLine ); WriteToJobLog( 'CODE: ' + TRJD.CODE + NewLine ); WriteToJobLog( 'TAXABLE: ' + TRJD.TAXABLE + NewLine ); WriteToJobLog( 'RATE: ' + TRJD.RATE + NewLine ); WriteToJobLog( 'TAXAMT: ' + TRJD.TAXAMT + NewLine ); endif; endif; // Write unique ID to job log for easy reference WriteToJobLog( 'T_TAXCALC Unique ID: ' + %Char(UniqueId) + NewLine ); *INLR = *On; return;