UPS_RatingReq()

 *------------------------------------------------------------------------
 * @Author: Kato Integrations
 * @Description:
 *   This is a test program to illustrate how to call the
 *   UPS_ratingReq() subprocedure to determine shipping rates.
 *
 *   To achieve this, generate a unique ID with UPS_getUID(), and
 *   then populate and write a record to UPSRTRQ, and one or more child
 *   records to UPSRTRQPK. Then, call UPS_ratingReq() passing in
 *   your unique ID as well as the other parameters shown.
 *
 *   UPS_ratingReq() 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 UPSRTRS physical
 *   file, and retrieve the result fields, as well as child records
 *   for each package from UPSRTRSPK.
 *------------------------------------------------------------------------
H DFTACTGRP(*NO) ACTGRP(*CALLER) BNDDIR('UPSBND') OPTION(*NODEBUGIO)

FUPSRTRQ   UF A E           K DISK    Qualified
FUPSRTRQPK UF A E           K DISK    Qualified
FUPSRTRS   IF A E           K DISK    Qualified
FUPSRTRSPK IF A E           K DISK    Qualified

 /COPY QRPGLECPY,UPS

 // This is included for demo output purposes.
D WriteToJobLog   PR            10I 0 Extproc('Qp0zLprintf')
D  pString                        *   Value Options(*String)
D NewLine         C                   x'15'

D RTRQ            DS                  Likerec(UPSRTRQ.RUPSRTRQ:*Output)
D RTRQPK          DS                  Likerec(UPSRTRQPK.RUPSRTRQPK:*Output)
D RTRS            DS                  Likerec(UPSRTRS.RUPSRTRS:*Input)
D RTRSPK          DS                  Likerec(UPSRTRSPK.RUPSRTRSPK:*Input)

D ErrorDS         DS                  LikeDS(UPS_ErrorDS_t) Inz(*LikeDS)

D UniqueID        S                   Like(UPS_UniqueID_t)
 /FREE
  reset ErrorDS;

  // Retrieve Unique ID used to identify this request
  UniqueID = UPS_getUID();

  clear RTRQ;
  RTRQ.UID = UniqueID;
  // Populate this field with UPS user ID that is present in UPSACCT
  RTRQ.UserID = 'ataylorkt';
  RTRQ.AcctNbr = '0704W7';

  RTRQ.ReqOpt = 'Rate'; // Rate and validate this shipment
  // Validate the shipment and return rates for all UPS products from the
  //  ShipFrom to the ShipTo
  // RTRQ.ReqOpt = 'Shop';

  RTRQ.PKUPCD = '06';
  RTRQ.CSTCLSCD = '03';

  RTRQ.StAddr1 = '600 Shady Ridge Road NW';
  RTRQ.StCity = 'Hutchinson';
  RTRQ.StState = 'MN';
  RTRQ.StPostCd = '55350';
  RTRQ.StCntry = 'US';

  RTRQ.SfAddr1 = '124 E WALNUT ST';
  RTRQ.SfAddr2 = 'STE 310';
  RTRQ.SfCity = 'Mankato';
  RTRQ.SfState = 'MN';
  RTRQ.SfPostCd = '56001';
  RTRQ.SfCntry = 'US';

  RTRQ.SvcCd = '03';

  // Other fields are available but not used in this example code

  write UPSRTRQ.RUPSRTRQ RTRQ;


  // Write individual package child record to UPSRTRQPK
  clear RTRQPK;
  RTRQPK.PID = UniqueID;
  RTRQPK.UID = 1;
  RTRQPK.PkgCd = '02';
  RTRQPK.DimCd = 'IN';
  RTRQPK.Length = 6.5;
  RTRQPK.Width = 10;
  RTRQPK.Height = 4;
  RTRQPK.WgtCd = 'LBS';
  RTRQPK.PkgWgt = 5;

  write UPSRTRQPK.RUPSRTRQPK RTRQPK;

  // If UPS_ratingReq() returns *Off, an error occurred and
  //  UPS_ErrorDS should be reviewed to determine the cause.
  if not UPS_ratingReq( UniqueID : ErrorDS );
    WriteToJobLog( 'API Error: ' + NewLine );
    WriteToJobLog( 'Error Code: ' + %Trim(ErrorDS.Code) + NewLine );
    WriteToJobLog( 'Error Severity: ' +
                   %Char(ErrorDS.Severity) + NewLine );
    WriteToJobLog( 'Error Source: ' + %Trim(ErrorDS.Pgm) + NewLine );
    WriteToJobLog( 'Error Text: ' + %Trim(ErrorDS.Text) + NewLine );
    exsr cleanup;
    return;
  else;
    setll UniqueID UPSRTRS.RUPSRTRS;
    if not %Found(UPSRTRS);
      WriteToJobLog( 'ERROR: No results found in UPSRTRS' + NewLine );
      exsr cleanup;
      return;
    endif;

    // Read the results from UPSRTRS. A selection of the available fields
    //  is output by this example program but more are availble - review
    //  the file to see what else is available.
    reade UniqueID UPSRTRS.RUPSRTRS RTRS;
    dow not %Eof(UPSRTRS);
      WriteToJobLog( 'Result Record: ' + NewLine );
      WriteToJobLog( 'PID: ' + %Char(RTRS.PID) + NewLine );
      WriteToJobLog( 'UID: ' + %Char(RTRS.UID) + NewLine );
      WriteToJobLog( 'SVCCD: ' + %Trim(RTRS.SVCCD) + NewLine );
      WriteToJobLog( 'SVCDSC: ' + %Trim(RTRS.SVCDSC) + NewLine );
      WriteToJobLog( 'WGTCD: ' + %Trim(RTRS.WGTCD) + NewLine );
      WriteToJobLog( 'TOTWGT: ' + %Char(RTRS.TOTWGT) + NewLine );
      WriteToJobLog( 'TRSCURCD: ' + %Trim(RTRS.TRSCURCD) + NewLine );
      WriteToJobLog( 'TRSCHRG: ' + %Char(RTRS.TRSCHRG) + NewLine );
      WriteToJobLog( 'SVCCURCD: ' + %Trim(RTRS.SVCCURCD) + NewLine );
      WriteToJobLog( 'SVCCHRG: ' + %Char(RTRS.SVCCHRG) + NewLine );
      WriteToJobLog( 'TOTCURCD: ' + %Trim(RTRS.TOTCURCD) + NewLine );
      WriteToJobLog( 'TOTCHRG: ' + %Char(RTRS.TOTCHRG) + NewLine );
      WriteToJobLog( 'GTDDAYS: ' + %Trim(RTRS.GTDDAYS) + NewLine );
      WriteToJobLog( 'GTDTIM: ' + %Char(RTRS.GTDTIM) + NewLine );
      WriteToJobLog( 'NEGCURCD: ' + %Trim(RTRS.NEGCURCD) + NewLine );
      WriteToJobLog( 'NEGCHRG: ' + %Char(RTRS.NEGCHRG) + NewLine );

      // Package level charges can be read from UPSRTRSPK if needed

      reade UniqueID UPSRTRS.RUPSRTRS RTRS;
    enddo;
  endif;

  exsr cleanup;
  return;

  begsr cleanup;
    // Always call UPS_cleanup() any time your program will terminate
    UPS_cleanup();
    *INLR = *ON;
  endsr;

 /END-FREE