  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE    1
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
    100 **free                                                                                                          03/10/22
    200                                                                                                                 11/19/21
    300        //Create ATDRCVWA File for Credit Statement f/4WARD                                                      01/11/22
    400                                                                                                                 11/19/21
    500        ctl-opt dftactgrp(*no) EXPROPTS(*ALWBLANKNUM);                                                           11/19/21
    600        ctl-opt bnddir('QC2LE':'YAJL');                                                                          11/16/21
    700        ctl-opt copyright('COPYRIGHT (C) 1990-2021 Integrated Corporate +                                        11/16/21
    800                           Solutions,Inc.  Florence, AL  35630');                                                11/16/21
    900                                                                                                                 11/15/21
   1000          dcl-pi *n;                                                                                             11/16/21
   1100             parm_path char(150);                                                                                11/16/21
   1200          end-pi;                                                                                                11/16/21
   1300                                                                                                                 11/16/21
   1400          dcl-pr ATD148 extpgm('ATD148');                                                                        01/19/22
   1500             dcl-parm atd148_path char(150) const;                                                               01/19/22
   1600             dcl-parm atd148_outlet char(10) const;                                                              01/19/22
   1700             dcl-parm atd148_count zoned(7:0);                                                                   01/19/22
   1800             dcl-parm atd148_amount zoned(11:2);                                                                 01/19/22
   1900          end-pr;                                                                                                01/19/22
   2000                                                                                                                 01/19/22
   2100       /COPY QCPYLESRC,LDAUDS400                                                                                 11/16/21
   2200       /COPY QCPYLESRC,PGMDS                                                                                     11/16/21
   2300                                                                                                                 11/16/21
   2400          dcl-ds ACSdoc qualified;                                                                               01/11/22
   2500            dcl-ds CREDITADVICEHEADER;                                                                           11/18/21
   2600              CREDITADVICENUMBER varchar(6) inz('');                                                             01/11/22
   2700              DISTRIBUTORCODE varchar(5) inz('');                                                                11/18/21
   2800              CREDITADVICEPREPARATIONDATE varchar(24) inz('');                                                   11/18/21
   2900            end-ds;                                                                                              01/31/22
   3000          end-ds;                                                                                                01/31/22
   3100                                                                                                                 01/31/22
   3200          dcl-ds REPAIRINGOUTLETRECORD_t qualified template;                                                     01/31/22
   3300            REPAIRINGOUTLETBUSINESSPARTNERCODE varchar(10) inz('');                                              01/31/22
   3400            REPAIRINGOUTLETNAME varchar(30) inz('');                                                             01/31/22
   3500            REPAIRINGOUTLETADDRESSLINE1 varchar(30) inz('');                                                     01/31/22
   3600            REPAIRINGOUTLETCITY varchar(18) inz('');                                                             01/31/22
   3700            REPAIRINGOUTLETSTATE varchar(2) inz('');                                                             01/31/22
   3800            REPAIRINGOUTLETCOUNTRY varchar(2) inz('');                                                           01/31/22
   3900            REPAIRINGOUTLETPOSTALCODE varchar(10) inz('');                                                       01/31/22
   4000            KILOMETERINDICATOR varchar(2) inz('');                                                               01/31/22
   4100            CURRENTLABORRATE varchar(11) inz('');                                                                03/10/22
   4200            CURRENTLABORRATEEFFECTIVEDATE varchar(10) inz('');                                                   01/31/22
   4300            CURRENTTRAVELDISTANCEREIMBURSEMENTRATE packed(9:2) inz(0);                                           01/31/22
   4400            CURRENTTRAVELDISTANCEREIMBURSEMENTRATEEFFECTIVEDATE varchar(10)                                      01/31/22
   4500                INZ(' ');                                                                                        01/31/22
   4600            CURRENTLANDEDCOSTMARKUP packed(9:2) inz(0);                                                          01/31/22
   4700            CURRENTLANDEDCOSTMARKUPEFFECTIVEDATE varchar(10) inz('');                                            01/31/22
   4800            num_CLAIMPROCESSEDRECORD int(10) inz(0);                                                             01/31/22
   4900            dcl-ds CLAIMPROCESSEDRECORD dim(100);                                                                01/31/22
   5000              TRACKINGNUMBER varchar(10) inz('');                                                                01/31/22
   5100              REPAIRORDERNUMBER varchar(8) inz('');                                                              01/31/22
   5200              PRODUCTSERIALNUMBER varchar(20) inz('');                                                           01/31/22
   5300              CLAIMNUMBER varchar(20) inz('');                                                                   01/31/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE    2
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
   5400              MODELNUMBER varchar(15) inz('');                                                                   01/31/22
   5500              REPAIRORDEROPENDATE varchar(10) inz('');                                                           01/31/22
   5600              DELIVERYDATE varchar(10) inz('');                                                                  01/31/22
   5700              PRIMARYFAILEDPARTNAME varchar(25) inz('');                                                         01/31/22
   5800              PRIMARYFAILEDPARTNUMBER varchar(20) inz('');                                                       01/31/22
   5900              CLAIMSTATUSCODE varchar(3) inz('');                                                                01/31/22
   6000              CLAIMSTATUSCODEDESCRIPTION varchar(20) inz('');                                                    01/31/22
   6100              CLAIMTYPE varchar(2) inz('');                                                                      01/31/22
   6200              EXCHANGERATE varchar(10) inz('');                                                                  01/31/22
   6300              PREVIOUSCREDITAMOUNT packed(10:2) inz(0);                                                          01/31/22
   6400              PARTCREDITTOTAL packed(9:2) inz(0);                                                                01/31/22
   6500              PARTMARKUPTOTAL packed(9:2) inz(0);                                                                01/31/22
   6600              LABORCREDITTOTAL packed(10:2) inz(0);                                                              01/31/22
   6700              NETITEMCREDITTOTAL packed(9:2) inz(0);                                                             01/31/22
   6800              NETTOTALCREDITDOLLARS packed(9: 2) inz(0);                                                         01/31/22
   6900              REQUESTEDTOTALDOLLARS packed(9: 2) inz(0);                                                         01/31/22
   7000              DIFFERENCETOTALDOLLARS packed(9: 2) inz(0);                                                        01/31/22
   7100              DOCUMENTNUMBER varchar(20) inz('');                                                                01/31/22
   7200              num_CLAIMLINEDETAILRECORD int(10) inz(0);                                                          01/31/22
   7300              dcl-ds CLAIMLINEDETAILRECORD dim(150);                                                             01/31/22
   7400                TRACKINGNUMBER varchar(10) inz('');                                                              01/31/22
   7500                CLAIMNUMBER varchar(20) inz('');                                                                 01/31/22
   7600                APPROVEDQUANTITY packed(5:1) inz(0);                                                             01/31/22
   7700                REPLACEDPARTNUMBER varchar(15) inz('');                                                          01/31/22
   7800                PARTNAME varchar(1) inz('');                                                                     01/31/22
   7900                LABOROPERATIONCODE varchar(8) inz('');                                                           01/31/22
   8000                PARTLANDEDMARKUP packed(9:2) inz(0);                                                             01/31/22
   8100                NETITEMCODE varchar(10) inz('');                                                                 01/31/22
   8200                PRORATE packed(9:2) inz(0);                                                                      01/31/22
   8300                TYPE varchar(10) inz('');                                                                        01/31/22
   8400                GROSSCREDIT packed(9:2) inz(0);                                                                  01/31/22
   8500                TOTALCREDIT packed(9:2) inz(0);                                                                  01/31/22
   8600                PROCESSCODE varchar(10) inz('');                                                                 01/31/22
   8700                PROCESSMESSAGE varchar(80) inz('');                                                              01/31/22
   8800              end-ds;                                                                                            01/31/22
   8900            end-ds;                                                                                              01/31/22
   9000          end-ds;                                                                                                01/31/22
   9100                                                                                                                 11/18/21
   9200          dcl-ds atd140fil_rec extname('ATD140FIL') end-ds;                                                      01/13/22
   9300                                                                                                                 01/13/22
   9400          dcl-ds *N;                                                                                             01/13/22
   9500             use_dollar              zoned(9:2) Pos(1);                                                          01/13/22
   9600             hold_dollar              Char(9) Pos(1);                                                            01/13/22
   9700          End-DS;                                                                                                01/13/22
   9800                                                                                                                 01/13/22
   9900          dcl-ds *N;                                                                                             01/18/22
  10000             use_prorate             zoned(5:3) Pos(1);                                                          01/18/22
  10100             hold_prorate             Char(5) Pos(1);                                                            01/18/22
  10200          End-DS;                                                                                                01/18/22
  10300                                                                                                                 01/18/22
  10400          dcl-ds *N;                                                                                             01/17/22
  10500             use_travdol             zoned(11:2) Pos(1);                                                         01/17/22
  10600             hold_travdolr            Char(11) Pos(1);                                                           01/17/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE    3
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  10700          End-DS;                                                                                                01/17/22
  10800                                                                                                                 01/17/22
  10900          dcl-ds *N;                                                                                             01/18/22
  11000             use_dec11               zoned(11:2) Pos(1);                                                         01/18/22
  11100             hold_dec11               Char(11) Pos(1);                                                           01/18/22
  11200          End-DS;                                                                                                01/18/22
  11300                                                                                                                 01/18/22
  11400          dcl-ds *N;                                                                                             01/13/22
  11500             exc_rate                zoned(11:8) Pos(1);                                                         01/13/22
  11600             hold_excrate             Char(11) Pos(1);                                                           01/13/22
  11700          End-DS;                                                                                                01/13/22
  11800                                                                                                                 01/13/22
  11900          dcl-ds *N;                                                                                             01/17/22
  12000             use_qty                 zoned(5:1) Pos(1);                                                          01/17/22
  12100             hold_qty                 Char(5) Pos(1);                                                            01/17/22
  12200          End-DS;                                                                                                01/17/22
  12300                                                                                                                 01/17/22
  12400          dcl-s ifsPathName varchar(150);                                                                        01/13/22
  12500          dcl-s options varchar(500);                                                                            01/31/22
  12600                                                                                                                 11/16/21
  12700          dcl-s a int(10);                                                                                       11/16/21
  12800          dcl-s b int(10);                                                                                       11/16/21
  12900          dcl-s c int(10);                                                                                       01/13/22
  13000          dcl-s $1st int(10);                                                                                    11/17/21
  13100          dcl-s totalitems int(10);                                                                              01/31/22
  13200                                                                                                                 11/16/21
  13300          dcl-s use_track# char(10) inz(*blanks);                                                                11/16/21
  13400          dcl-s key_clmr char(10) inz(*blanks);                                                                  01/13/22
  13500          dcl-s atd_nbr  char(20) inz(*blanks);                                                                  01/17/22
  13600                                                                                                                 11/16/21
  13700          dcl-s i int(10);                                                                                       11/16/21
  13800          dcl-s j int(10);                                                                                       11/16/21
  13900          dcl-s outl_idx int(10);                                                                                11/16/21
  14000          dcl-s busp_idx int(10);                                                                                11/16/21
  14100          dcl-s result int(10);                                                                                  11/16/21
  14200          dcl-s num_recs int(10);                                                                                11/17/21
  14300                                                                                                                 11/16/21
  14400          dcl-s rec_count zoned(5:0);                                                                            11/16/21
  14500          dcl-s file_count zoned(10:0);                                                                          01/20/22
  14600                                                                                                                 11/16/21
  14700          dcl-s dec_dollar zoned(9:2);                                                                           01/13/22
  14800          dcl-s dec_hours  zoned(7:1);                                                                           01/14/22
  14900          dcl-s rec char(350);                                                                                   11/16/21
  15000          dcl-s tot_cred zoned(9:2);                                                                             01/17/22
  15100                                                                                                                 11/16/21
  15200          dcl-s all_netcode char(10);                                                                            01/17/22
  15300                                                                                                                 01/17/22
  15400          dcl-s bus_part char(10) inz(*blanks);                                                                  11/16/21
  15500          dcl-s alphadate char(8) inz(*blanks);                                                                  01/11/22
  15600          dcl-s rodate char(8) inz(*blanks);                                                                     01/13/22
  15700          dcl-s dlvdate char(8) inz(*blanks);                                                                    01/13/22
  15800          dcl-s weekno char(6) inz(*blanks);                                                                     01/11/22
  15900          dcl-s use_outlet char(10) inz(*blanks);                                                                11/16/21
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE    4
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  16000                                                                                                                 11/16/21
  16100          dcl-s hld_line char(4) inz(*blanks);                                                                   11/16/21
  16200          dcl-s int_line packed(4:0) inz(*zero);                                                                 11/16/21
  16300          dcl-s hi_rec zoned(3:0) inz(*zero);                                                                    01/14/22
  16400                                                                                                                 11/16/21
  16500          dcl-s p_error char(1) inz(*blanks);                                                                    11/16/21
  16600          dcl-s cred_code char(1) inz(*blanks);                                                                  01/13/22
  16700          dcl-s wrk_credit packed(9:2) inz(*zero);                                                               01/14/22
  16800          dcl-s wrk_opcode char(8) inz(*blanks);                                                                 01/14/22
  16900          dcl-s wrk_hours packed(7:1) inz(*zero);                                                                01/14/22
  17000          dcl-s wrk_qty   packed(5:0) inz(*zero);                                                                01/17/22
  17100          dcl-s wrk_part   char(15) inz(*blanks);                                                                01/14/22
  17200          dcl-s wrk_pnam   char(25) inz(*blanks);                                                                01/17/22
  17300          dcl-s wrk_markup packed(9:2) inz(*zero);                                                               01/14/22
  17400          dcl-s wrk_prorate packed(9:2) inz(*zero);                                                              01/18/22
  17500          dcl-s wrk_netcode char(1) inz(*blanks);                                                                01/14/22
  17600                                                                                                                 11/16/21
  17700          dcl-s wrk_partcrtot packed(11:2) inz(*zero);                                                           01/18/22
  17800          dcl-s wrk_partmutot packed(11:2) inz(*zero);                                                           01/18/22
  17900          dcl-s wrk_labcrtot packed(11:2) inz(*zero);                                                            01/18/22
  18000          dcl-s wrk_netcrtot packed(11:2) inz(*zero);                                                            01/18/22
  18100          dcl-s wrk_totnetdol packed(11:2) inz(*zero);                                                           01/18/22
  18200                                                                                                                 01/18/22
  18300          dcl-s part_prorate packed(5:3) inz(*zero);                                                             01/18/22
  18400          dcl-s lab_prorate packed(5:3) inz(*zero);                                                              01/18/22
  18500          dcl-s net_prorate packed(5:3) inz(*zero);                                                              01/18/22
  18600                                                                                                                 01/18/22
  18700          dcl-s net_credit packed(11:2) inz(*zero);                                                              01/18/22
  18800          dcl-s req_credit packed(11:2) inz(*zero);                                                              01/18/22
  18900          dcl-s dif_credit packed(11:2) inz(*zero);                                                              01/18/22
  19000          dcl-s gross_credit packed(11:2) inz(*zero);                                                            01/18/22
  19100                                                                                                                 01/18/22
  19200          dcl-s hld_travqty packed(7:0) inz(*zero);                                                              01/17/22
  19300          dcl-s hld_travrate packed(11:2) inz(*zero);                                                            01/17/22
  19400          dcl-s hld_travcred packed(11:2) inz(*zero);                                                            01/17/22
  19500          dcl-s hld_travgross packed(11:2) inz(*zero);                                                           01/17/22
  19600          dcl-s wrk_apprqty packed(7:0) inz(*zero);                                                              01/17/22
  19700          dcl-s wrk_gross   packed(11:2) inz(*zero);                                                             01/17/22
  19800          dcl-s wrk_errcod  char(5) inz(*blanks);                                                                01/17/22
  19900          dcl-s wrk_errdsc  char(80) inz(*blanks);                                                               01/17/22
  20000                                                                                                                 11/16/21
  20100          dcl-s outl_code char(10) inz(*blanks);                                                                 01/19/22
  20200          dcl-s status_code char(3) inz(*blanks);                                                                01/19/22
  20300          dcl-s req_dollar packed(11:2) inz(*zero);                                                              01/19/22
  20400          dcl-s outl_credcnt packed(7:0) inz(*zero);                                                             01/19/22
  20500          dcl-s outl_credamt packed(11:2) inz(*zero);                                                            01/19/22
  20600          dcl-s outl_debtcnt packed(7:0) inz(*zero);                                                             01/19/22
  20700          dcl-s outl_debtamt packed(11:2) inz(*zero);                                                            01/19/22
  20800          dcl-s outl_totcred packed(11:2) inz(*zero);                                                            01/19/22
  20900          dcl-s outl_retncnt packed(7:0) inz(*zero);                                                             01/19/22
  21000          dcl-s outl_retnamt packed(11:2) inz(*zero);                                                            01/19/22
  21100          dcl-s outl_ret60cnt packed(7:0) inz(*zero);                                                            01/19/22
  21200          dcl-s outl_ret60amt packed(11:2) inz(*zero);                                                           01/19/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE    5
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  21300          dcl-s outl_deniedcnt packed(7:0) inz(*zero);                                                           01/19/22
  21400          dcl-s outl_deniedamt packed(11:2) inz(*zero);                                                          01/19/22
  21500          dcl-s outl_canclcnt packed(7:0) inz(*zero);                                                            01/19/22
  21600          dcl-s outl_canclamt packed(11:2) inz(*zero);                                                           01/19/22
  21700          dcl-s outl_wipcnt packed(7:0) inz(*zero);                                                              01/19/22
  21800          dcl-s outl_wipamt packed(11:2) inz(*zero);                                                             01/19/22
  21900          dcl-s wip_outlet char(10) inz(*blanks);                                                                01/19/22
  22000          dcl-s wip_count zoned(7:0) inz(*zero);                                                                 01/19/22
  22100          dcl-s wip_amount zoned(11:2) inz(*zero);                                                               01/19/22
  22200                                                                                                                 01/19/22
  22300          dcl-s wrk_amt11 packed(11:2) inz(*zero);                                                               01/20/22
  22400                                                                                                                 01/20/22
  22500          dcl-s cur_lrate packed(9:2) inz(*zero);                                                                01/19/22
  22600          dcl-s cur_leffdt char(8) inz(*blanks);                                                                 01/19/22
  22700          dcl-s cur_trate packed(9:2) inz(*zero);                                                                01/19/22
  22800          dcl-s cur_teffdt char(8) inz(*blanks);                                                                 01/19/22
  22900          dcl-s cur_mrate packed(9:2) inz(*zero);                                                                01/19/22
  23000          dcl-s cur_meffdt char(8) inz(*blanks);                                                                 01/19/22
  23100                                                                                                                 01/19/22
  23200          // Main Routine                                                                                        11/16/21
  23300                                                                                                                 11/16/21
  23400          exec sql set option commit = *none, closqlcsr = *endmod;                                               11/16/21
  23500                                                                                                                 11/16/21
  23600          ifsPathName = %trim(parm_path);                                                                        11/16/21
  23700                                                                                                                 11/15/21
  23800          data-into ACSdoc %DATA( ifsPathname                                                                    01/11/22
  23900                   : 'doc=file case=convert countprefix=num_ allowextra=yes')                                    11/19/21
  24000                          %PARSER( 'YAJLINTO'                                                                    11/15/21
  24100                                 : '{ "document_name": "ACSdoc", +                                               01/11/22
  24200                                      "number_prefix": "YAJL_" }');                                              11/15/21
  24300                                                                                                                 11/16/21
  24400           bus_part  = %trim(ACSdoc.creditadviceheader.distributorcode) +                                        01/11/22
  24500                       '00000';                                                                                  01/11/22
  24600           weekno    = %trim(ACSdoc.creditadviceheader.creditAdviceNumber);                                      01/11/22
  24700           alphadate = %subst(ACSdoc.creditadviceheader.                                                         01/11/22
  24800                              creditadvicepreparationdate:1:4) +                                                 01/11/22
  24900                       %subst(ACSdoc.creditadviceheader.                                                         01/11/22
  25000                              creditadvicepreparationdate:6:2) +                                                 01/11/22
  25100                       %subst(ACSdoc.creditadviceheader.                                                         01/11/22
  25200                              creditadvicepreparationdate:9:2);                                                  01/11/22
  25300                                                                                                                 11/16/21
  25400          options = 'doc=file case=convert countprefix=num_ allowextra=yes ' +                                   03/10/22
  25500                    'path=jsonDoc/CREDITADVICEHEADER/REPAIRINGOUTLETRECORD';                                     03/10/22
  25600                                                                                                                 01/31/22
  25700          data-into %Handler( processRepairOutletRecord : totalItems )                                           01/31/22
  25800                    %DATA( ifsPathname : options )                                                               01/31/22
  25900                    %PARSER( 'YAJLINTO'                                                                          01/31/22
  26000                           : '{ "document_name": "jsonDoc", +                                                    01/31/22
  26100                                "number_prefix": "YAJL_" }');                                                    01/31/22
  26200                                                                                                                 03/10/22
  26300           exsr $crt_fintot;                                                                                     01/20/22
  26400                                                                                                                 01/20/22
  26500           *inlr = *on;                                                                                          11/16/21
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE    6
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  26600                                                                                                                 03/10/22
  26700  //************************************************************************                                     01/20/22
  26800           begsr $crt_fintot;       // ACSZ Record //                                                            01/20/22
  26900                                                                                                                 01/20/22
  27000              exec sql                                                                                           01/20/22
  27100                 select count(*) into :file_count                                                                01/20/22
  27200                    from atdrcvwa;                                                                               01/20/22
  27300                                                                                                                 01/20/22
  27400              file_count += 1;                                                                                   01/20/22
  27500                                                                                                                 01/20/22
  27600              clear rec;                                                                                         01/20/22
  27700                                                                                                                 01/20/22
  27800              %subst(rec:1:4) = 'ACSZ';                                                                          01/20/22
  27900              %subst(rec:5:10) = %editc(file_count:'X');                                                         01/20/22
  28000                                                                                                                 01/20/22
  28100              exec sql                                                                                           03/10/22
  28200                 insert into atdrcvwa                                                                            03/10/22
  28300                    values(:rec);                                                                                03/10/22
  28400                                                                                                                 01/20/22
  28500           endsr;                                                                                                01/20/22
  28600  //************************************************************************                                     01/31/22
  28700       dcl-proc processRepairOutletRecord;                                                                       01/31/22
  28800       dcl-pi *n  int(10);                                                                                       01/31/22
  28900          count  int(10);                                                                                        01/31/22
  29000          item   likeDS(REPAIRINGOUTLETRECORD_T)  Dim(1)  Const;                                                 01/31/22
  29100          items  int(10)  Value;                                                                                 01/31/22
  29200       end-pi;                                                                                                   01/31/22
  29300                                                                                                                 01/31/22
  29400       dcl-s b int(10);                                                                                          03/10/22
  29500                                                                                                                 01/31/22
  29600       if $1st = *zero;                                                                                          03/10/22
  29700          clear rec;                                                                                             03/10/22
  29800                                                                                                                 03/10/22
  29900          %subst(rec:1:4) = 'ACSA';                                                                              03/10/22
  30000          %subst(rec:5:1) = '0';                                                                                 03/10/22
  30100          %subst(rec:6:6) = weekno;                                                                              03/10/22
  30200          %subst(rec:12:10) = bus_part;                                                                          03/10/22
  30300          %subst(rec:22:8) = alphadate;                                                                          03/10/22
  30400                                                                                                                 03/10/22
  30500          exec sql                                                                                               03/10/22
  30600             insert into atdrcvwa                                                                                03/10/22
  30700                values(:rec);                                                                                    03/10/22
  30800                                                                                                                 03/10/22
  30900          $1st = 1;                                                                                              03/10/22
  31000       endif;                                                                                                    03/10/22
  31100                                                                                                                 03/10/22
  31200       outl_code  = item(1).repairingoutletbusinesspartnercode;                                                  03/10/22
  31300                                                                                                                 03/10/22
  31400       monitor;                                                                                                  03/10/22
  31500          cur_lrate  = %dec(item(1).currentlaborrate:9:2);                                                       03/10/22
  31600       on-error;                                                                                                 03/10/22
  31700          clear cur_lrate;                                                                                       03/10/22
  31800       endmon;                                                                                                   03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE    7
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  31900                                                                                                                 03/10/22
  32000       monitor;                                                                                                  03/10/22
  32100          cur_leffdt = %subst(item(1).currentlaborrateeffectivedate:1:4) +                                       03/10/22
  32200                       %subst(item(1).currentlaborrateeffectivedate:6:2) +                                       03/10/22
  32300                       %subst(item(1).currentlaborrateeffectivedate:9:2);                                        03/10/22
  32400       on-error;                                                                                                 03/10/22
  32500          cur_leffdt = '00000000';                                                                               03/10/22
  32600       endmon;                                                                                                   03/10/22
  32700                                                                                                                 03/10/22
  32800       monitor;                                                                                                  03/10/22
  32900          cur_trate  = item(1).currenttraveldistancereimbursementrate;                                           03/10/22
  33000       on-error;                                                                                                 03/10/22
  33100          clear cur_trate;                                                                                       03/10/22
  33200       endmon;                                                                                                   03/10/22
  33300                                                                                                                 03/10/22
  33400       monitor;                                                                                                  03/10/22
  33500       cur_teffdt = %subst(item(1).                                                                              03/10/22
  33600           currenttraveldistancereimbursementrateeffectivedate:1:4) +                                            03/10/22
  33700                    %subst(item(1).                                                                              03/10/22
  33800           currenttraveldistancereimbursementrateeffectivedate:6:2) +                                            03/10/22
  33900                    %subst(item(1).                                                                              03/10/22
  34000           currenttraveldistancereimbursementrateeffectivedate:9:2);                                             03/10/22
  34100       on-error;                                                                                                 03/10/22
  34200          cur_teffdt = '00000000';                                                                               03/10/22
  34300       endmon;                                                                                                   03/10/22
  34400                                                                                                                 03/10/22
  34500       monitor;                                                                                                  03/10/22
  34600          cur_mrate  = item(1).currentlandedcostmarkup;                                                          03/10/22
  34700       on-error;                                                                                                 03/10/22
  34800          clear cur_mrate;                                                                                       03/10/22
  34900       endmon;                                                                                                   03/10/22
  35000                                                                                                                 03/10/22
  35100       monitor;                                                                                                  03/10/22
  35200          cur_meffdt = %subst(item(1).                                                                           03/10/22
  35300                       currentLandedCostMarkupEffectiveDate:1:4) +                                               03/10/22
  35400                       %subst(item(1).                                                                           03/10/22
  35500                       currentLandedCostMarkupEffectiveDate:6:2) +                                               03/10/22
  35600                       %subst(item(1).                                                                           03/10/22
  35700                       currentLandedCostMarkupEffectiveDate:9:2);                                                03/10/22
  35800       on-error;                                                                                                 03/10/22
  35900          cur_meffdt = '00000000';                                                                               03/10/22
  36000       endmon;                                                                                                   03/10/22
  36100                                                                                                                 03/10/22
  36200       clear rec;                                                                                                03/10/22
  36300                                                                                                                 03/10/22
  36400       %subst(rec:1:4) = 'ACSB';                                                                                 03/10/22
  36500       %subst(rec:5:10) = item(1).repairingoutletbusinesspartnercode;                                            03/10/22
  36600       %subst(rec:15:30) = %trim(item(1).repairingoutletname);                                                   03/10/22
  36700       %subst(rec:45:35) = %trim(item(1).repairingoutletaddressline1);                                           03/10/22
  36800       %subst(rec:115:35) = %trim(item(1).repairingoutletcity);                                                  03/10/22
  36900       %subst(rec:150:35) = %trim(item(1).repairingoutletstate);                                                 03/10/22
  37000       %subst(rec:185:2)  = %trim(item(1).repairingoutletcountry);                                               03/10/22
  37100       %subst(rec:187:16) = %trim(item(1).repairingoutletpostalcode);                                            03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE    8
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  37200       %subst(rec:203:1) = %subst(item(1).kilometerIndicator:1:1);                                               03/10/22
  37300                                                                                                                 03/10/22
  37400       exec sql                                                                                                  03/10/22
  37500          insert into atdrcvwa                                                                                   03/10/22
  37600             values(:rec);                                                                                       03/10/22
  37700                                                                                                                 03/10/22
  37800       for b = 1 to item(1).num_claimprocessedrecord;                                                            03/10/22
  37900                                                                                                                 03/10/22
  38000          clear p_error;                                                                                         03/10/22
  38100                                                                                                                 03/10/22
  38200          //if item(1).claimprocessedrecord(b).trackingnumber = *blanks;                                         03/10/22
  38300          //   return 0;                                                                                         03/10/22
  38400          //endif;                                                                                               03/10/22
  38500                                                                                                                 03/10/22
  38600          //------------------------------------------------                                                     03/10/22
  38700          //Check for a valid tracking number in WAHDR                                                           03/10/22
  38800                                                                                                                 03/10/22
  38900          clear rec_count;                                                                                       03/10/22
  39000          clear use_track#;                                                                                      03/10/22
  39100                                                                                                                 03/10/22
  39200          use_track# = item(1).claimprocessedrecord(b).trackingnumber;                                           03/10/22
  39300                                                                                                                 03/10/22
  39400          exec sql                                                                                               03/10/22
  39500             select count(*) into :rec_count                                                                     03/10/22
  39600                from wahdr                                                                                       03/10/22
  39700                   where wacomp = :udcomp and waclmr = :use_track#;                                              03/10/22
  39800                                                                                                                 03/10/22
  39900          //if rec_count = *zero;                                                                                03/10/22
  40000          //   iter;                                                                                             03/10/22
  40100          //endif;                                                                                               03/10/22
  40200          //------------------------------------------------                                                     03/10/22
  40300                                                                                                                 03/10/22
  40400          key_clmr = item(1).claimprocessedrecord(b).trackingnumber;                                             03/10/22
  40500          atd_nbr  = item(1).claimprocessedrecord(b).claimnumber;                                                03/10/22
  40600                                                                                                                 03/10/22
  40700          // -------------------------------------------------------------                                       03/10/22
  40800          // Build the ATD140FIL Workfile                                                                        03/10/22
  40900          exec sql declare waitmcsr cursor for                                                                   03/10/22
  41000             select wycomp, wyclmr, wyrec, wyprt                                                                 03/10/22
  41100                from waitm                                                                                       03/10/22
  41200                   where wycomp = :udcomp and wyclmr = :key_clmr                                                 03/10/22
  41300                         order by wycomp, wyclmr, wyrec                                                          03/10/22
  41400                            for read only;                                                                       03/10/22
  41500                                                                                                                 03/10/22
  41600          exec sql open waitmcsr;                                                                                03/10/22
  41700                                                                                                                 03/10/22
  41800          dou 1 = 0;                                                                                             03/10/22
  41900                                                                                                                 03/10/22
  42000             exec sql fetch next from waitmcsr                                                                   03/10/22
  42100                into :cxcomp, :cxclmr, :cxrec, :cxpart;                                                          03/10/22
  42200                                                                                                                 03/10/22
  42300             if SQLStt <> '00000';                                                                               03/10/22
  42400                exec sql close waitmcsr;                                                                         03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE    9
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  42500                leave;                                                                                           03/10/22
  42600             endif;                                                                                              03/10/22
  42700                                                                                                                 03/10/22
  42800             clear cxoper;                                                                                       03/10/22
  42900                                                                                                                 03/10/22
  43000             exec sql                                                                                            03/10/22
  43100                select wloper into :cxoper                                                                       03/10/22
  43200                   from walab                                                                                    03/10/22
  43300                      where wlcomp = :udcomp and wlclmr = :key_clmr and                                          03/10/22
  43400                            wlrec  = :cxrec;                                                                     03/10/22
  43500                                                                                                                 03/10/22
  43600             clear cxntcd;                                                                                       03/10/22
  43700                                                                                                                 03/10/22
  43800             exec sql                                                                                            03/10/22
  43900                select wwtype into :cxntcd                                                                       03/10/22
  44000                   from wanet                                                                                    03/10/22
  44100                      where wwcomp = :udcomp and wwclmr = :key_clmr and                                          03/10/22
  44200                            wwrec  = :cxrec;                                                                     03/10/22
  44300                                                                                                                 03/10/22
  44400             exec sql                                                                                            03/10/22
  44500                insert into atd140fil                                                                            03/10/22
  44600                   values(:cxcomp,                                                                               03/10/22
  44700                          :cxclmr,                                                                               03/10/22
  44800                          :cxrec,                                                                                03/10/22
  44900                          :cxpart,                                                                               03/10/22
  45000                          0,                                                                                     03/10/22
  45100                          ' ',                                                                                   03/10/22
  45200                          :cxoper,                                                                               03/10/22
  45300                          0,                                                                                     03/10/22
  45400                          :cxntcd,                                                                               03/10/22
  45500                          0,                                                                                     03/10/22
  45600                          0,                                                                                     03/10/22
  45700                          0,                                                                                     03/10/22
  45800                          0,                                                                                     03/10/22
  45900                          ' ',                                                                                   03/10/22
  46000                          ' ',                                                                                   03/10/22
  46100                          ' ',                                                                                   03/10/22
  46200                          ' ',                                                                                   03/10/22
  46300                          ' ',                                                                                   03/10/22
  46400                          ' ',                                                                                   03/10/22
  46500                          ' ',                                                                                   03/10/22
  46600                          ' ',                                                                                   03/10/22
  46700                          ' ');                                                                                  03/10/22
  46800                                                                                                                 03/10/22
  46900                                                                                                                 03/10/22
  47000          enddo;                                                                                                 03/10/22
  47100                                                                                                                 03/10/22
  47200          exec sql                                                                                               03/10/22
  47300             select max(cxrec) into :hi_rec                                                                      03/10/22
  47400                from atd140fil                                                                                   03/10/22
  47500                   where cxcomp = :cxcomp and                                                                    03/10/22
  47600                         cxclmr = :cxclmr;                                                                       03/10/22
  47700                                                                                                                 03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   10
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  47800          clear rec;                                                                                             03/10/22
  47900                                                                                                                 03/10/22
  48000          clear rodate;                                                                                          03/10/22
  48100          clear dlvdate;                                                                                         03/10/22
  48200                                                                                                                 03/10/22
  48300          rodate = %subst(item(1).claimprocessedrecord(b).                                                       03/10/22
  48400                   repairorderopendate:1:4)              +                                                       03/10/22
  48500                   %subst(item(1).claimprocessedrecord(b).                                                       03/10/22
  48600                   repairorderopendate:6:2)              +                                                       03/10/22
  48700                   %subst(item(1).claimprocessedrecord(b).                                                       03/10/22
  48800                   repairorderopendate:9:2);                                                                     03/10/22
  48900                                                                                                                 03/10/22
  49000          dlvdate = %subst(item(1).claimprocessedrecord(b).                                                      03/10/22
  49100                    deliverydate:1:4)                   +                                                        03/10/22
  49200                    %subst(item(1).claimprocessedrecord(b).                                                      03/10/22
  49300                    deliverydate:6:2)                   +                                                        03/10/22
  49400                    %subst(item(1).claimprocessedrecord(b).                                                      03/10/22
  49500                    deliverydate:9:2);                                                                           03/10/22
  49600                                                                                                                 03/10/22
  49700          status_code  = item(1).claimprocessedrecord(b).claimstatuscode;                                        03/10/22
  49800                                                                                                                 03/10/22
  49900          clear part_prorate;                                                                                    03/10/22
  50000          clear lab_prorate;                                                                                     03/10/22
  50100          clear net_prorate;                                                                                     03/10/22
  50200                                                                                                                 03/10/22
  50300          %subst(rec:1:4)    = 'ACSE';                                                                           03/10/22
  50400          %subst(rec:5:10)   = item(1).claimprocessedrecord(b).trackingnumber;                                   03/10/22
  50500          %subst(rec:25:8)   = item(1).claimprocessedrecord(b).repairordernumber;                                03/10/22
  50600          %subst(rec:40:20)  = item(1).claimprocessedrecord(b).                                                  03/10/22
  50700                               productserialnumber;                                                              03/10/22
  50800          %subst(rec:65:20)  = item(1).claimprocessedrecord(b).claimnumber;                                      03/10/22
  50900          %subst(rec:85:10)  = item(1).claimprocessedrecord(b).modelnumber;                                      03/10/22
  51000          %subst(rec:110:8)  = rodate;                                                                           03/10/22
  51100          %subst(rec:118:8)  = dlvdate;                                                                          03/10/22
  51200          %subst(rec:126:25) = item(1).claimprocessedrecord(b).                                                  03/10/22
  51300                               primaryfailedpartname;                                                            03/10/22
  51400          %subst(rec:151:20) = item(1).claimprocessedrecord(b).                                                  03/10/22
  51500                                       primaryfailedpartnumber;                                                  03/10/22
  51600          %subst(rec:171:3)  = item(1).claimprocessedrecord(b).claimstatuscode;                                  03/10/22
  51700          %subst(rec:174:20) = item(1).claimprocessedrecord(b).                                                  03/10/22
  51800                                       claimstatuscodedescription;                                               03/10/22
  51900          %subst(rec:194:2)  = item(1).claimprocessedrecord(b).claimtype;                                        03/10/22
  52000          exc_rate = %dec(item(1).claimprocessedrecord(b).exchangerate:11:8);                                    03/10/22
  52100          %subst(rec:196:11) = hold_excrate;                                                                     03/10/22
  52200          dec_dollar = %dec(item(1).claimprocessedrecord(b).                                                     03/10/22
  52300                                    nettotalcreditdollars:9:2);                                                  03/10/22
  52400          req_dollar = %dec(item(1).claimprocessedrecord(b).                                                     03/10/22
  52500                                    requestedtotaldollars:9:2);                                                  03/10/22
  52600                                                                                                                 03/10/22
  52700          if dec_dollar < *zero;                                                                                 03/10/22
  52800             cred_code = '-';                                                                                    03/10/22
  52900             outl_debtcnt += 1;                                                                                  03/10/22
  53000             outl_debtamt += dec_dollar;                                                                         03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   11
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  53100          else;                                                                                                  03/10/22
  53200             cred_code = '0';                                                                                    03/10/22
  53300             outl_credcnt += 1;                                                                                  03/10/22
  53400             outl_credamt += dec_dollar;                                                                         03/10/22
  53500          endif;                                                                                                 03/10/22
  53600                                                                                                                 03/10/22
  53700          outl_totcred += dec_dollar;                                                                            03/10/22
  53800                                                                                                                 03/10/22
  53900          if status_code = '20';                                                                                 03/10/22
  54000             outl_retncnt += 1;                                                                                  03/10/22
  54100             outl_retnamt += dec_dollar;                                                                         03/10/22
  54200          endif;                                                                                                 03/10/22
  54300                                                                                                                 03/10/22
  54400          if status_code = '50';                                                                                 03/10/22
  54500             outl_deniedcnt += 1;                                                                                03/10/22
  54600             outl_deniedamt += dec_dollar;                                                                       03/10/22
  54700          endif;                                                                                                 03/10/22
  54800                                                                                                                 03/10/22
  54900          if status_code = '60';                                                                                 03/10/22
  55000             outl_canclcnt += 1;                                                                                 03/10/22
  55100             outl_canclamt += dec_dollar;                                                                        03/10/22
  55200          endif;                                                                                                 03/10/22
  55300                                                                                                                 03/10/22
  55400          use_dollar = %abs(dec_dollar);                                                                         03/10/22
  55500                                                                                                                 03/10/22
  55600          %subst(rec:207:1) = cred_code;                                                                         03/10/22
  55700          %subst(rec:208:9) = hold_dollar;                                                                       03/10/22
  55800                                                                                                                 03/10/22
  55900          exec sql                                                                                               03/10/22
  56000            insert into atdrcvwa                                                                                 03/10/22
  56100               values(:rec);                                                                                     03/10/22
  56200                                                                                                                 03/10/22
  56300          clear hld_travqty;                                                                                     03/10/22
  56400          clear hld_travrate;                                                                                    03/10/22
  56500          clear hld_travcred;                                                                                    03/10/22
  56600          clear hld_travgross;                                                                                   03/10/22
  56700                                                                                                                 03/10/22
  56800          for c = 1 to item(1).claimprocessedrecord(b).num_claimlinedetailrecord;                                03/10/22
  56900                                                                                                                 03/10/22
  57000             dec_dollar = %dec(item(1).claimprocessedrecord(b).                                                  03/10/22
  57100                                       claimlinedetailrecord(c).totalCredit:9:2);                                03/10/22
  57200                                                                                                                 03/10/22
  57300          // -------------------------------------------------------------                                       03/10/22
  57400          // Update Labor Entries                                                                                03/10/22
  57500                                                                                                                 03/10/22
  57600             if item(1).claimprocessedrecord(b).                                                                 03/10/22
  57700                        claimlinedetailrecord(c).type = 'Labor';                                                 03/10/22
  57800                                                                                                                 03/10/22
  57900                if dec_dollar <> *zero;                                                                          03/10/22
  58000                                                                                                                 03/10/22
  58100                   wrk_opcode = %trim(item(1).claimprocessedrecord(b).                                           03/10/22
  58200                                              claimlinedetailrecord(c).                                          03/10/22
  58300                                              laboroperationcode);                                               03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   12
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  58400                   wrk_credit = item(1).claimprocessedrecord(b).                                                 03/10/22
  58500                                        claimlinedetailrecord(c).                                                03/10/22
  58600                                        totalcredit;                                                             03/10/22
  58700                   wrk_hours  = item(1).claimprocessedrecord(b).                                                 03/10/22
  58800                                        claimlinedetailrecord(c).                                                03/10/22
  58900                                        approvedQuantity;                                                        03/10/22
  59000                   wrk_errcod  = %trim(item(1).claimprocessedrecord(b).                                          03/10/22
  59100                                               claimlinedetailrecord(c).                                         03/10/22
  59200                                               processcode);                                                     03/10/22
  59300                   wrk_errdsc  = %trim(item(1).claimprocessedrecord(b).                                          03/10/22
  59400                                               claimlinedetailrecord(c).                                         03/10/22
  59500                                               processmessage);                                                  03/10/22
  59600                   wrk_prorate = item(1).claimprocessedrecord(b).                                                03/10/22
  59700                                         claimlinedetailrecord(c).                                               03/10/22
  59800                                         proRate;                                                                03/10/22
  59900                                                                                                                 03/10/22
  60000                   if lab_prorate = *zero;                                                                       03/10/22
  60100                      lab_prorate = wrk_prorate / 100;                                                           03/10/22
  60200                   endif;                                                                                        03/10/22
  60300                                                                                                                 03/10/22
  60400                   if %subst(wrk_opcode:1:2) = '00';                                                             03/10/22
  60500                      wrk_opcode = %subst(wrk_opcode:3:6);                                                       03/10/22
  60600                   endif;                                                                                        03/10/22
  60700                                                                                                                 03/10/22
  60800                   if wrk_credit > *zero;                                                                        03/10/22
  60900                                                                                                                 03/10/22
  61000                      clear atd140fil_rec;                                                                       03/10/22
  61100                                                                                                                 03/10/22
  61200                      exec sql                                                                                   03/10/22
  61300                         select * into :atd140fil_rec                                                            03/10/22
  61400                            from atd140fil                                                                       03/10/22
  61500                               where cxcomp = :udcomp and                                                        03/10/22
  61600                                     cxclmr = :key_clmr and                                                      03/10/22
  61700                                     cxoper = :wrk_opcode;                                                       03/10/22
  61800                                                                                                                 03/10/22
  61900                      if cxrec = *zero;                                                                          03/10/22
  62000                         hi_rec += 1;                                                                            03/10/22
  62100                                                                                                                 03/10/22
  62200                         exec sql                                                                                03/10/22
  62300                            insert into atd140fil                                                                03/10/22
  62400                               values(:udcomp,                                                                   03/10/22
  62500                                      :key_clmr,                                                                 03/10/22
  62600                                      :hi_rec,                                                                   03/10/22
  62700                                      ' ',                                                                       03/10/22
  62800                                      0,                                                                         03/10/22
  62900                                      ' ',                                                                       03/10/22
  63000                                      :wrk_opcode,                                                               03/10/22
  63100                                      :wrk_hours,                                                                03/10/22
  63200                                      ' ',                                                                       03/10/22
  63300                                      0,                                                                         03/10/22
  63400                                      0,                                                                         03/10/22
  63500                                      :wrk_credit,                                                               03/10/22
  63600                                      0,                                                                         03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   13
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  63700                                      :wrk_errcod,                                                               03/10/22
  63800                                      ' ',                                                                       03/10/22
  63900                                      :wrk_errdsc,                                                               03/10/22
  64000                                      ' ',                                                                       03/10/22
  64100                                      ' ',                                                                       03/10/22
  64200                                      ' ',                                                                       03/10/22
  64300                                      ' ',                                                                       03/10/22
  64400                                      ' ',                                                                       03/10/22
  64500                                      ' ');                                                                      03/10/22
  64600                      else;                                                                                      03/10/22
  64700                                                                                                                 03/10/22
  64800                         exec sql                                                                                03/10/22
  64900                            update atd140fil                                                                     03/10/22
  65000                               set cxhour = cxhour + :wrk_hours,                                                 03/10/22
  65100                                   cxlbcr = cxlbcr + :wrk_credit,                                                03/10/22
  65200                                   cxlecd = :wrk_errcod,                                                         03/10/22
  65300                                   cxlems = :wrk_errdsc                                                          03/10/22
  65400                                  where cxcomp = :udcomp and                                                     03/10/22
  65500                                        cxclmr = :key_clmr and                                                   03/10/22
  65600                                        cxoper = :wrk_opcode;                                                    03/10/22
  65700                                                                                                                 03/10/22
  65800                      endif;                                                                                     03/10/22
  65900                                                                                                                 03/10/22
  66000                   endif;                                                                                        03/10/22
  66100                                                                                                                 03/10/22
  66200                endif;                                                                                           03/10/22
  66300                                                                                                                 03/10/22
  66400            endif;                                                                                               03/10/22
  66500                                                                                                                 03/10/22
  66600          // -------------------------------------------------------------                                       03/10/22
  66700          // Update Part Entries                                                                                 03/10/22
  66800                                                                                                                 03/10/22
  66900             if item(1).claimprocessedrecord(b).                                                                 03/10/22
  67000                        claimlinedetailrecord(c).type = 'Part';                                                  03/10/22
  67100                                                                                                                 03/10/22
  67200                if dec_dollar <> *zero;                                                                          03/10/22
  67300                                                                                                                 03/10/22
  67400                   evalr wrk_part = %trim(item(1).claimprocessedrecord(b).                                       03/10/22
  67500                                                  claimlinedetailrecord(c).                                      03/10/22
  67600                                                  replacedpartnumber);                                           03/10/22
  67700                   wrk_qty    = item(1).claimprocessedrecord(b).                                                 03/10/22
  67800                                        claimlinedetailrecord(c).                                                03/10/22
  67900                                        approvedQuantity;                                                        03/10/22
  68000                   wrk_credit = item(1).claimprocessedrecord(b).                                                 03/10/22
  68100                                        claimlinedetailrecord(c).                                                03/10/22
  68200                                        totalcredit;                                                             03/10/22
  68300                   wrk_markup = item(1).claimprocessedrecord(b).                                                 03/10/22
  68400                                        claimlinedetailrecord(c).                                                03/10/22
  68500                                        partlandedmarkup;                                                        03/10/22
  68600                   wrk_errcod = %trim(item(1).claimprocessedrecord(b).                                           03/10/22
  68700                                              claimlinedetailrecord(c).                                          03/10/22
  68800                                              processcode);                                                      03/10/22
  68900                   wrk_errdsc = %trim(item(1).claimprocessedrecord(b).                                           03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   14
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  69000                                              claimlinedetailrecord(c).                                          03/10/22
  69100                                              processmessage);                                                   03/10/22
  69200                   wrk_prorate = item(1).claimprocessedrecord(b).                                                03/10/22
  69300                                         claimlinedetailrecord(c).                                               03/10/22
  69400                                         proRate;                                                                03/10/22
  69500                                                                                                                 03/10/22
  69600                   if part_prorate = *zero;                                                                      03/10/22
  69700                      part_prorate = wrk_prorate / 100;                                                          03/10/22
  69800                   endif;                                                                                        03/10/22
  69900                                                                                                                 03/10/22
  70000                   clear wrk_pnam;                                                                               03/10/22
  70100                                                                                                                 03/10/22
  70200                   exec sql                                                                                      03/10/22
  70300                      select substr(imdsc,1,25) into :wrk_pnam                                                   03/10/22
  70400                         from icmst                                                                              03/10/22
  70500                            where imcomp = :udcomp and                                                           03/10/22
  70600                                  trim(imprt#) = trim(:wrk_part)                                                 03/10/22
  70700                               fetch first row only;                                                             03/10/22
  70800                                                                                                                 03/10/22
  70900                   clear atd140fil_rec;                                                                          03/10/22
  71000                                                                                                                 03/10/22
  71100                   exec sql                                                                                      03/10/22
  71200                      select * into :atd140fil_rec                                                               03/10/22
  71300                         from atd140fil                                                                          03/10/22
  71400                            where cxcomp = :udcomp and                                                           03/10/22
  71500                                  cxclmr = :key_clmr and                                                         03/10/22
  71600                                  trim(cxpart) = trim(:wrk_part);                                                03/10/22
  71700                                                                                                                 03/10/22
  71800                   if cxrec = *zero;                                                                             03/10/22
  71900                      hi_rec += 1;                                                                               03/10/22
  72000                                                                                                                 03/10/22
  72100                      exec sql                                                                                   03/10/22
  72200                         insert into atd140fil                                                                   03/10/22
  72300                            values(:udcomp,                                                                      03/10/22
  72400                                   :key_clmr,                                                                    03/10/22
  72500                                   :hi_rec,                                                                      03/10/22
  72600                                   :wrk_part,                                                                    03/10/22
  72700                                   :wrk_qty,                                                                     03/10/22
  72800                                   :wrk_pnam,                                                                    03/10/22
  72900                                   ' ',                                                                          03/10/22
  73000                                   0,                                                                            03/10/22
  73100                                   ' ',                                                                          03/10/22
  73200                                   :wrk_credit,                                                                  03/10/22
  73300                                   :wrk_markup,                                                                  03/10/22
  73400                                   0,                                                                            03/10/22
  73500                                   0,                                                                            03/10/22
  73600                                   ' ',                                                                          03/10/22
  73700                                   ' ',                                                                          03/10/22
  73800                                   ' ',                                                                          03/10/22
  73900                                   :wrk_errcod,                                                                  03/10/22
  74000                                   ' ',                                                                          03/10/22
  74100                                   :wrk_errdsc,                                                                  03/10/22
  74200                                   ' ',                                                                          03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   15
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  74300                                   ' ',                                                                          03/10/22
  74400                                   ' ');                                                                         03/10/22
  74500                   else;                                                                                         03/10/22
  74600                                                                                                                 03/10/22
  74700                      exec sql                                                                                   03/10/22
  74800                         update atd140fil                                                                        03/10/22
  74900                            set cxcred = cxcred + :wrk_credit,                                                   03/10/22
  75000                                cxqty  = cxqty + :wrk_qty,                                                       03/10/22
  75100                                cxpnam = :wrk_pnam,                                                              03/10/22
  75200                                cxmkup = :wrk_markup,                                                            03/10/22
  75300                                cxpecd = :wrk_errcod,                                                            03/10/22
  75400                                cxpems = :wrk_errdsc                                                             03/10/22
  75500                               where cxcomp = :udcomp and                                                        03/10/22
  75600                                     cxclmr = :key_clmr and                                                      03/10/22
  75700                                     trim(cxpart) = trim(:wrk_part);                                             03/10/22
  75800                                                                                                                 03/10/22
  75900                   endif;                                                                                        03/10/22
  76000                                                                                                                 03/10/22
  76100                endif;                                                                                           03/10/22
  76200                                                                                                                 03/10/22
  76300            endif;                                                                                               03/10/22
  76400                                                                                                                 03/10/22
  76500          // -------------------------------------------------------------                                       03/10/22
  76600          // Update Net Item Entries                                                                             03/10/22
  76700                                                                                                                 03/10/22
  76800             if item(1).claimprocessedrecord(b).                                                                 03/10/22
  76900                        claimlinedetailrecord(c).type = 'Other';                                                 03/10/22
  77000                                                                                                                 03/10/22
  77100                if dec_dollar <> *zero;                                                                          03/10/22
  77200                                                                                                                 03/10/22
  77300                   all_netcode = item(1).claimprocessedrecord(b).                                                03/10/22
  77400                                         claimlinedetailrecord(c).                                               03/10/22
  77500                                         netItemCode;                                                            03/10/22
  77600                   wrk_netcode = %subst(item(1).claimprocessedrecord(b).                                         03/10/22
  77700                                                claimlinedetailrecord(c).                                        03/10/22
  77800                                                netItemCode:1:1);                                                03/10/22
  77900                   wrk_credit = item(1).claimprocessedrecord(b).                                                 03/10/22
  78000                                        claimlinedetailrecord(c).                                                03/10/22
  78100                                        totalcredit;                                                             03/10/22
  78200                   wrk_errcod = %trim(item(1).claimprocessedrecord(b).                                           03/10/22
  78300                                              claimlinedetailrecord(c).                                          03/10/22
  78400                                              processcode);                                                      03/10/22
  78500                   wrk_errdsc = %trim(item(1).claimprocessedrecord(b).                                           03/10/22
  78600                                              claimlinedetailrecord(c).                                          03/10/22
  78700                                              processmessage);                                                   03/10/22
  78800                   wrk_apprqty = item(1).claimprocessedrecord(b).                                                03/10/22
  78900                                         claimlinedetailrecord(c).                                               03/10/22
  79000                                         approvedquantity;                                                       03/10/22
  79100                   wrk_prorate = item(1).claimprocessedrecord(b).                                                03/10/22
  79200                                         claimlinedetailrecord(c).                                               03/10/22
  79300                                         prorate;                                                                03/10/22
  79400                   wrk_gross   = item(1).claimprocessedrecord(b).                                                03/10/22
  79500                                         claimlinedetailrecord(c).                                               03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   16
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  79600                                         grosscredit;                                                            03/10/22
  79700                                                                                                                 03/10/22
  79800                   if net_prorate = *zero;                                                                       03/10/22
  79900                      net_prorate = wrk_prorate / 100;                                                           03/10/22
  80000                   endif;                                                                                        03/10/22
  80100                                                                                                                 03/10/22
  80200                   if all_netcode   = 'Travel By ';                                                              03/10/22
  80300                      hld_travqty   = wrk_apprqty;                                                               03/10/22
  80400                      hld_travrate  = wrk_prorate;                                                               03/10/22
  80500                      hld_travcred  = wrk_credit;                                                                03/10/22
  80600                      hld_travgross = wrk_gross;                                                                 03/10/22
  80700                   endif;                                                                                        03/10/22
  80800                                                                                                                 03/10/22
  80900                   if all_netcode <> 'Travel By ';                                                               03/10/22
  81000                                                                                                                 03/10/22
  81100                      clear atd140fil_rec;                                                                       03/10/22
  81200                                                                                                                 03/10/22
  81300                      exec sql                                                                                   03/10/22
  81400                         select * into :atd140fil_rec                                                            03/10/22
  81500                            from atd140fil                                                                       03/10/22
  81600                               where cxcomp = :udcomp and                                                        03/10/22
  81700                                     cxclmr = :key_clmr and                                                      03/10/22
  81800                                     cxntcd = :wrk_netcode;                                                      03/10/22
  81900                                                                                                                 03/10/22
  82000                      if cxrec = *zero;                                                                          03/10/22
  82100                         hi_rec += 1;                                                                            03/10/22
  82200                                                                                                                 03/10/22
  82300                         exec sql                                                                                03/10/22
  82400                            insert into atd140fil                                                                03/10/22
  82500                               values(:udcomp,                                                                   03/10/22
  82600                                      :key_clmr,                                                                 03/10/22
  82700                                      :hi_rec,                                                                   03/10/22
  82800                                      ' ',                                                                       03/10/22
  82900                                      0,                                                                         03/10/22
  83000                                      ' ',                                                                       03/10/22
  83100                                      ' ',                                                                       03/10/22
  83200                                      0,                                                                         03/10/22
  83300                                      :wrk_netcode,                                                              03/10/22
  83400                                      0,                                                                         03/10/22
  83500                                      0,                                                                         03/10/22
  83600                                      0,                                                                         03/10/22
  83700                                      :wrk_credit,                                                               03/10/22
  83800                                      ' ',                                                                       03/10/22
  83900                                      ' ',                                                                       03/10/22
  84000                                      ' ',                                                                       03/10/22
  84100                                      ' ',                                                                       03/10/22
  84200                                      ' ',                                                                       03/10/22
  84300                                      ' ',                                                                       03/10/22
  84400                                      :wrk_errcod,                                                               03/10/22
  84500                                      ' ',                                                                       03/10/22
  84600                                      :wrk_errdsc);                                                              03/10/22
  84700                      else;                                                                                      03/10/22
  84800                                                                                                                 03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   17
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  84900                         exec sql                                                                                03/10/22
  85000                            update atd140fil                                                                     03/10/22
  85100                               set cxntcr = cxntcr + :wrk_credit,                                                03/10/22
  85200                                   cxnecd = :wrk_errcod,                                                         03/10/22
  85300                                   cxnems = :wrk_errdsc                                                          03/10/22
  85400                                  where cxcomp = :udcomp and                                                     03/10/22
  85500                                        cxclmr = :key_clmr and                                                   03/10/22
  85600                                        cxntcd = :wrk_netcode;                                                   03/10/22
  85700                                                                                                                 03/10/22
  85800                      endif;                                                                                     03/10/22
  85900                                                                                                                 03/10/22
  86000                   endif;                                                                                        03/10/22
  86100                endif;                                                                                           03/10/22
  86200                                                                                                                 03/10/22
  86300            endif;                                                                                               03/10/22
  86400                                                                                                                 03/10/22
  86500          endfor;                                                                                                03/10/22
  86600                                                                                                                 03/10/22
  86700          // -------------------------------------------------------------                                       03/10/22
  86800          // Create the Detail Line Entries                                                                      03/10/22
  86900                                                                                                                 03/10/22
  87000          exec sql                                                                                               03/10/22
  87100             declare atd140filcsr cursor for                                                                     03/10/22
  87200                select * from atd140fil                                                                          03/10/22
  87300                   where cxcomp = :udcomp and                                                                    03/10/22
  87400                         cxclmr = :key_clmr;                                                                     03/10/22
  87500                                                                                                                 03/10/22
  87600          exec sql open atd140filcsr;                                                                            03/10/22
  87700                                                                                                                 03/10/22
  87800          dou 1 = 0;                                                                                             03/10/22
  87900                                                                                                                 03/10/22
  88000             exec sql                                                                                            03/10/22
  88100                fetch next from atd140filcsr into :atd140fil_rec;                                                03/10/22
  88200                                                                                                                 03/10/22
  88300             if SQLStt <> '00000';                                                                               03/10/22
  88400                exec sql close atd140filcsr;                                                                     03/10/22
  88500                leave;                                                                                           03/10/22
  88600             endif;                                                                                              03/10/22
  88700                                                                                                                 03/10/22
  88800             clear rec;                                                                                          03/10/22
  88900                                                                                                                 03/10/22
  89000             clear tot_cred;                                                                                     03/10/22
  89100                                                                                                                 03/10/22
  89200             use_qty = cxhour;                                                                                   03/10/22
  89300                                                                                                                 03/10/22
  89400             %subst(rec:1:4)    = 'ACSF';                                                                        03/10/22
  89500             %subst(rec:5:10)   = key_clmr;                                                                      03/10/22
  89600             %subst(rec:25:20)  = atd_nbr;                                                                       03/10/22
  89700             %subst(rec:45:4)   = %editc(cxrec:'X');                                                             03/10/22
  89800             %subst(rec:49:15)  = %trim(cxpart);                                                                 03/10/22
  89900             %subst(rec:69:5)   = %editc(cxqty:'X');                                                             03/10/22
  90000             %subst(rec:74:25)  = %trim(cxpnam);                                                                 03/10/22
  90100             %subst(rec:99:10)  = %subst(cxoper:1:10);                                                           03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   18
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  90200             %subst(rec:109:5)  = hold_qty;                                                                      03/10/22
  90300                                                                                                                 03/10/22
  90400             tot_cred = cxcred - cxmkup;                                                                         03/10/22
  90500                                                                                                                 03/10/22
  90600             if tot_cred < *zero;                                                                                03/10/22
  90700                %subst(rec:114:1) = '-';                                                                         03/10/22
  90800             else;                                                                                               03/10/22
  90900                %subst(rec:114:1) = '0';                                                                         03/10/22
  91000             endif;                                                                                              03/10/22
  91100                                                                                                                 03/10/22
  91200             use_dollar = tot_cred;                                                                              03/10/22
  91300             %subst(rec:115:9) = hold_dollar;                                                                    03/10/22
  91400                                                                                                                 03/10/22
  91500             if cxmkup < *zero;                                                                                  03/10/22
  91600                %subst(rec:124:1) = '-';                                                                         03/10/22
  91700             else;                                                                                               03/10/22
  91800                %subst(rec:124:1) = '0';                                                                         03/10/22
  91900             endif;                                                                                              03/10/22
  92000                                                                                                                 03/10/22
  92100             use_dollar = cxmkup;                                                                                03/10/22
  92200             %subst(rec:125:9) = hold_dollar;                                                                    03/10/22
  92300                                                                                                                 03/10/22
  92400             if cxlbcr < *zero;                                                                                  03/10/22
  92500                %subst(rec:134:1) = '-';                                                                         03/10/22
  92600             else;                                                                                               03/10/22
  92700                %subst(rec:134:1) = '0';                                                                         03/10/22
  92800             endif;                                                                                              03/10/22
  92900                                                                                                                 03/10/22
  93000             use_dollar = cxlbcr;                                                                                03/10/22
  93100             %subst(rec:135:9) = hold_dollar;                                                                    03/10/22
  93200                                                                                                                 03/10/22
  93300             if cxntcr < *zero;                                                                                  03/10/22
  93400                %subst(rec:144:1) = '-';                                                                         03/10/22
  93500             else;                                                                                               03/10/22
  93600                %subst(rec:144:1) = '0';                                                                         03/10/22
  93700             endif;                                                                                              03/10/22
  93800                                                                                                                 03/10/22
  93900             use_dollar = cxntcr;                                                                                03/10/22
  94000             %subst(rec:145:9) = hold_dollar;                                                                    03/10/22
  94100                                                                                                                 03/10/22
  94200             %subst(rec:154:2) = cxntcd;                                                                         03/10/22
  94300                                                                                                                 03/10/22
  94400             clear tot_cred;                                                                                     03/10/22
  94500                                                                                                                 03/10/22
  94600             tot_cred = cxcred + cxlbcr + cxntcr;                                                                03/10/22
  94700                                                                                                                 03/10/22
  94800             if tot_cred < *zero;                                                                                03/10/22
  94900                %subst(rec:156:1) = '-';                                                                         03/10/22
  95000             else;                                                                                               03/10/22
  95100                %subst(rec:156:1) = '0';                                                                         03/10/22
  95200             endif;                                                                                              03/10/22
  95300                                                                                                                 03/10/22
  95400             use_dollar = tot_cred;                                                                              03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   19
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  95500             %subst(rec:157:9) = hold_dollar;                                                                    03/10/22
  95600                                                                                                                 03/10/22
  95700             exec sql                                                                                            03/10/22
  95800                insert into atdrcvwa                                                                             03/10/22
  95900                   values(:rec);                                                                                 03/10/22
  96000                                                                                                                 03/10/22
  96100             if cxpecd <> *blanks;                                                                               03/10/22
  96200                clear rec;                                                                                       03/10/22
  96300                                                                                                                 03/10/22
  96400                %subst(rec:1:4)   = 'ACSG';                                                                      03/10/22
  96500                %subst(rec:5:10)  = key_clmr;                                                                    03/10/22
  96600                %subst(rec:25:20) = atd_nbr;                                                                     03/10/22
  96700                %subst(rec:45:4)  = %editc(cxrec:'X');                                                           03/10/22
  96800                %subst(rec:49:5)  = cxpecd;                                                                      03/10/22
  96900                %subst(rec:54:10) = cxpeds;                                                                      03/10/22
  97000                %subst(rec:74:90) = cxpems;                                                                      03/10/22
  97100                                                                                                                 03/10/22
  97200                exec sql                                                                                         03/10/22
  97300                   insert into atdrcvwa                                                                          03/10/22
  97400                      values(:rec);                                                                              03/10/22
  97500             endif;                                                                                              03/10/22
  97600                                                                                                                 03/10/22
  97700             if cxlecd <> *blanks;                                                                               03/10/22
  97800                clear rec;                                                                                       03/10/22
  97900                                                                                                                 03/10/22
  98000                %subst(rec:1:4)   = 'ACSG';                                                                      03/10/22
  98100                %subst(rec:5:10)  = key_clmr;                                                                    03/10/22
  98200                %subst(rec:25:20) = atd_nbr;                                                                     03/10/22
  98300                %subst(rec:45:4)  = %editc(cxrec:'X');                                                           03/10/22
  98400                %subst(rec:49:5)  = cxlecd;                                                                      03/10/22
  98500                %subst(rec:54:10) = cxleds;                                                                      03/10/22
  98600                %subst(rec:74:90) = cxlems;                                                                      03/10/22
  98700                                                                                                                 03/10/22
  98800                exec sql                                                                                         03/10/22
  98900                   insert into atdrcvwa                                                                          03/10/22
  99000                      values(:rec);                                                                              03/10/22
  99100                                                                                                                 03/10/22
  99200             endif;                                                                                              03/10/22
  99300                                                                                                                 03/10/22
  99400             if cxnecd <> *blanks;                                                                               03/10/22
  99500                clear rec;                                                                                       03/10/22
  99600                                                                                                                 03/10/22
  99700                %subst(rec:1:4)   = 'ACSG';                                                                      03/10/22
  99800                %subst(rec:5:10)  = key_clmr;                                                                    03/10/22
  99900                %subst(rec:25:20) = atd_nbr;                                                                     03/10/22
 100000                %subst(rec:45:4)  = %editc(cxrec:'X');                                                           03/10/22
 100100                %subst(rec:49:5)  = cxnecd;                                                                      03/10/22
 100200                %subst(rec:54:10) = cxneds;                                                                      03/10/22
 100300                %subst(rec:74:90) = cxnems;                                                                      03/10/22
 100400                                                                                                                 03/10/22
 100500                exec sql                                                                                         03/10/22
 100600                   insert into atdrcvwa                                                                          03/10/22
 100700                      values(:rec);                                                                              03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   20
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
 100800                                                                                                                 03/10/22
 100900             endif;                                                                                              03/10/22
 101000                                                                                                                 03/10/22
 101100          enddo;                                                                                                 03/10/22
 101200                                                                                                                 03/10/22
 101300          // -------------------------------------------------------------                                       03/10/22
 101400          // Create the Claim Total Line                                                                         03/10/22
 101500                                                                                                                 03/10/22
 101600          wrk_partcrtot = item(1).claimprocessedrecord(b).partcredittotal;                                       03/10/22
 101700          wrk_partmutot = item(1).claimprocessedrecord(b).partmarkuptotal;                                       03/10/22
 101800          wrk_labcrtot  = item(1).claimprocessedrecord(b).                                                       03/10/22
 101900                                  laborcredittotal;                                                              03/10/22
 102000          wrk_netcrtot  = item(1).claimprocessedrecord(b).                                                       03/10/22
 102100                                  netitemcredittotal;                                                            03/10/22
 102200          net_credit    = item(1).claimprocessedrecord(b).                                                       03/10/22
 102300                                  nettotalcreditdollars;                                                         03/10/22
 102400          req_credit    = item(1).claimprocessedrecord(b).                                                       03/10/22
 102500                                  requestedtotaldollars;                                                         03/10/22
 102600          dif_credit    = item(1).claimprocessedrecord(b).                                                       03/10/22
 102700                                  differencetotaldollars;                                                        03/10/22
 102800                                                                                                                 03/10/22
 102900          gross_credit = wrk_partcrtot + wrk_labcrtot + wrk_netcrtot +                                           03/10/22
 103000                         wrk_partmutot;                                                                          03/10/22
 103100                                                                                                                 03/10/22
 103200          clear rec;                                                                                             03/10/22
 103300                                                                                                                 03/10/22
 103400          %subst(rec:1:4)    = 'ACSH';                                                                           03/10/22
 103500          %subst(rec:5:10)   = key_clmr;                                                                         03/10/22
 103600          %subst(rec:25:20)  = atd_nbr;                                                                          03/10/22
 103700          %subst(rec:45:7)   = %editc(hld_travqty:'X');                                                          03/10/22
 103800          %subst(rec:52:1)   = 'M';                                                                              03/10/22
 103900                                                                                                                 03/10/22
 104000          if hld_travrate < *zero;                                                                               03/10/22
 104100             %subst(rec:53:1) = '-';                                                                             03/10/22
 104200          else;                                                                                                  03/10/22
 104300             %subst(rec:53:1) = '0';                                                                             03/10/22
 104400          endif;                                                                                                 03/10/22
 104500                                                                                                                 03/10/22
 104600          hld_travrate = hld_travrate / 100;                                                                     03/10/22
 104700                                                                                                                 03/10/22
 104800          use_travdol = %abs(hld_travrate);                                                                      03/10/22
 104900          %subst(rec:54:11) = hold_travdolr;                                                                     03/10/22
 105000                                                                                                                 03/10/22
 105100          if hld_travcred < *zero;                                                                               03/10/22
 105200             %subst(rec:65:1) = '-';                                                                             03/10/22
 105300          else;                                                                                                  03/10/22
 105400             %subst(rec:65:1) = '0';                                                                             03/10/22
 105500          endif;                                                                                                 03/10/22
 105600                                                                                                                 03/10/22
 105700          use_travdol = %abs(hld_travcred);                                                                      03/10/22
 105800          %subst(rec:66:11) = hold_travdolr;                                                                     03/10/22
 105900                                                                                                                 03/10/22
 106000          if hld_travgross < *zero;                                                                              03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   21
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
 106100             %subst(rec:77:1) = '-';                                                                             03/10/22
 106200          else;                                                                                                  03/10/22
 106300             %subst(rec:77:1) = '0';                                                                             03/10/22
 106400          endif;                                                                                                 03/10/22
 106500                                                                                                                 03/10/22
 106600          use_travdol = %abs(hld_travgross);                                                                     03/10/22
 106700          %subst(rec:78:11) = hold_travdolr;                                                                     03/10/22
 106800                                                                                                                 03/10/22
 106900          if wrk_partcrtot< *zero;                                                                               03/10/22
 107000             %subst(rec:89:1) = '-';                                                                             03/10/22
 107100          else;                                                                                                  03/10/22
 107200             %subst(rec:89:1) = '0';                                                                             03/10/22
 107300          endif;                                                                                                 03/10/22
 107400                                                                                                                 03/10/22
 107500          use_dec11 = %abs(wrk_partcrtot);                                                                       03/10/22
 107600          %subst(rec:90:11) = hold_dec11;                                                                        03/10/22
 107700                                                                                                                 03/10/22
 107800          if wrk_partmutot< *zero;                                                                               03/10/22
 107900             %subst(rec:101:1) = '-';                                                                            03/10/22
 108000          else;                                                                                                  03/10/22
 108100             %subst(rec:101:1) = '0';                                                                            03/10/22
 108200          endif;                                                                                                 03/10/22
 108300                                                                                                                 03/10/22
 108400          use_dec11 = %abs(wrk_partmutot);                                                                       03/10/22
 108500          %subst(rec:102:11) = hold_dec11;                                                                       03/10/22
 108600                                                                                                                 03/10/22
 108700          if wrk_labcrtot < *zero;                                                                               03/10/22
 108800             %subst(rec:113:1) = '-';                                                                            03/10/22
 108900          else;                                                                                                  03/10/22
 109000             %subst(rec:113:1) = '0';                                                                            03/10/22
 109100          endif;                                                                                                 03/10/22
 109200                                                                                                                 03/10/22
 109300          use_dec11 = %abs(wrk_labcrtot);                                                                        03/10/22
 109400          %subst(rec:114:11) = hold_dec11;                                                                       03/10/22
 109500                                                                                                                 03/10/22
 109600          if wrk_netcrtot < *zero;                                                                               03/10/22
 109700             %subst(rec:125:1) = '-';                                                                            03/10/22
 109800          else;                                                                                                  03/10/22
 109900             %subst(rec:125:1) = '0';                                                                            03/10/22
 110000          endif;                                                                                                 03/10/22
 110100                                                                                                                 03/10/22
 110200          use_dec11 = %abs(wrk_netcrtot);                                                                        03/10/22
 110300          %subst(rec:126:11) = hold_dec11;                                                                       03/10/22
 110400                                                                                                                 03/10/22
 110500          if gross_credit < *zero;                                                                               03/10/22
 110600             %subst(rec:137:1) = '-';                                                                            03/10/22
 110700          else;                                                                                                  03/10/22
 110800             %subst(rec:137:1) = '0';                                                                            03/10/22
 110900          endif;                                                                                                 03/10/22
 111000                                                                                                                 03/10/22
 111100          use_dec11 = %abs(gross_credit);                                                                        03/10/22
 111200          %subst(rec:138:11) = hold_dec11;                                                                       03/10/22
 111300                                                                                                                 03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   22
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
 111400          use_prorate = part_prorate;                                                                            03/10/22
 111500          %subst(rec:149:5) = hold_prorate;                                                                      03/10/22
 111600                                                                                                                 03/10/22
 111700          use_prorate = lab_prorate;                                                                             03/10/22
 111800          %subst(rec:154:5) = hold_prorate;                                                                      03/10/22
 111900                                                                                                                 03/10/22
 112000          use_dec11 = wrk_partcrtot * part_prorate;                                                              03/10/22
 112100                                                                                                                 03/10/22
 112200          if use_dec11 < *zero;                                                                                  03/10/22
 112300             %subst(rec:159:1) = '-';                                                                            03/10/22
 112400          else;                                                                                                  03/10/22
 112500             %subst(rec:159:1) = '0';                                                                            03/10/22
 112600          endif;                                                                                                 03/10/22
 112700                                                                                                                 03/10/22
 112800          use_dec11 = %abs(use_dec11);                                                                           03/10/22
 112900                                                                                                                 03/10/22
 113000          %subst(rec:160:11) = hold_dec11;                                                                       03/10/22
 113100                                                                                                                 03/10/22
 113200          use_dec11 = wrk_partmutot * part_prorate;                                                              03/10/22
 113300                                                                                                                 03/10/22
 113400          if use_dec11 < *zero;                                                                                  03/10/22
 113500             %subst(rec:171:1) = '-';                                                                            03/10/22
 113600          else;                                                                                                  03/10/22
 113700             %subst(rec:171:1) = '0';                                                                            03/10/22
 113800          endif;                                                                                                 03/10/22
 113900                                                                                                                 03/10/22
 114000          use_dec11 = %abs(use_dec11);                                                                           03/10/22
 114100                                                                                                                 03/10/22
 114200          %subst(rec:172:11) = hold_dec11;                                                                       03/10/22
 114300                                                                                                                 03/10/22
 114400          use_dec11 = wrk_labcrtot * lab_prorate;                                                                03/10/22
 114500                                                                                                                 03/10/22
 114600          if use_dec11 < *zero;                                                                                  03/10/22
 114700             %subst(rec:183:1) = '-';                                                                            03/10/22
 114800          else;                                                                                                  03/10/22
 114900             %subst(rec:183:1) = '0';                                                                            03/10/22
 115000          endif;                                                                                                 03/10/22
 115100                                                                                                                 03/10/22
 115200          use_dec11 = %abs(use_dec11);                                                                           03/10/22
 115300                                                                                                                 03/10/22
 115400          %subst(rec:184:11) = hold_dec11;                                                                       03/10/22
 115500                                                                                                                 03/10/22
 115600          use_dec11 = wrk_netcrtot * net_prorate;                                                                03/10/22
 115700                                                                                                                 03/10/22
 115800          if use_dec11 < *zero;                                                                                  03/10/22
 115900             %subst(rec:195:1) = '-';                                                                            03/10/22
 116000          else;                                                                                                  03/10/22
 116100             %subst(rec:195:1) = '0';                                                                            03/10/22
 116200          endif;                                                                                                 03/10/22
 116300                                                                                                                 03/10/22
 116400          use_dec11 = %abs(use_dec11);                                                                           03/10/22
 116500                                                                                                                 03/10/22
 116600          %subst(rec:196:11) = hold_dec11;                                                                       03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   23
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
 116700                                                                                                                 03/10/22
 116800          eval(h) use_dec11 = (wrk_partcrtot * part_prorate) +                                                   03/10/22
 116900                              (wrk_partmutot * part_prorate) +                                                   03/10/22
 117000                              (wrk_labcrtot *  lab_prorate)  +                                                   03/10/22
 117100                              (wrk_netcrtot *  net_prorate);                                                     03/10/22
 117200                                                                                                                 03/10/22
 117300          if use_dec11 < *zero;                                                                                  03/10/22
 117400             %subst(rec:207:1) = '-';                                                                            03/10/22
 117500          else;                                                                                                  03/10/22
 117600             %subst(rec:207:1) = '0';                                                                            03/10/22
 117700          endif;                                                                                                 03/10/22
 117800                                                                                                                 03/10/22
 117900          use_dec11 = %abs(use_dec11);                                                                           03/10/22
 118000                                                                                                                 03/10/22
 118100          %subst(rec:208:11) = hold_dec11;                                                                       03/10/22
 118200                                                                                                                 03/10/22
 118300          clear use_dec11;                                                                                       03/10/22
 118400          %subst(rec:219:1) = '0';                                                                               03/10/22
 118500          %subst(rec:220:11) = hold_dec11;                                                                       03/10/22
 118600          %subst(rec:231:1) = '0';                                                                               03/10/22
 118700          %subst(rec:232:11) = hold_dec11;                                                                       03/10/22
 118800                                                                                                                 03/10/22
 118900          if net_credit < *zero;                                                                                 03/10/22
 119000             %subst(rec:243:1) = '-';                                                                            03/10/22
 119100          else;                                                                                                  03/10/22
 119200             %subst(rec:243:1) = '0';                                                                            03/10/22
 119300          endif;                                                                                                 03/10/22
 119400                                                                                                                 03/10/22
 119500          use_dec11 = %abs(net_credit);                                                                          03/10/22
 119600          %subst(rec:244:11) = hold_dec11;                                                                       03/10/22
 119700                                                                                                                 03/10/22
 119800          if req_credit < *zero;                                                                                 03/10/22
 119900             %subst(rec:255:1) = '-';                                                                            03/10/22
 120000          else;                                                                                                  03/10/22
 120100             %subst(rec:255:1) = '0';                                                                            03/10/22
 120200          endif;                                                                                                 03/10/22
 120300                                                                                                                 03/10/22
 120400          use_dec11 = %abs(req_credit);                                                                          03/10/22
 120500          %subst(rec:256:11) = hold_dec11;                                                                       03/10/22
 120600                                                                                                                 03/10/22
 120700          if dif_credit < *zero;                                                                                 03/10/22
 120800             %subst(rec:267:1) = '-';                                                                            03/10/22
 120900          else;                                                                                                  03/10/22
 121000             %subst(rec:267:1) = '0';                                                                            03/10/22
 121100          endif;                                                                                                 03/10/22
 121200                                                                                                                 03/10/22
 121300          use_dec11 = %abs(dif_credit);                                                                          03/10/22
 121400          %subst(rec:268:11) = hold_dec11;                                                                       03/10/22
 121500                                                                                                                 03/10/22
 121600          exec sql                                                                                               03/10/22
 121700             insert into atdrcvwa                                                                                03/10/22
 121800                values(:rec);                                                                                    03/10/22
 121900                                                                                                                 03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   24
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
 122000       endfor;                                                                                                   03/10/22
 122100                                                                                                                 03/10/22
 122200       // -------------------------------------------------------------                                          03/10/22
 122300       // Create the Outlet Total Line                                                                           03/10/22
 122400                                                                                                                 03/10/22
 122500       clear rec;                                                                                                03/10/22
 122600                                                                                                                 03/10/22
 122700       clear wip_count;                                                                                          03/10/22
 122800       clear wip_amount;                                                                                         03/10/22
 122900                                                                                                                 03/10/22
 123000       atd148(parm_path:                                                                                         03/10/22
 123100              outl_code:                                                                                         03/10/22
 123200              wip_count:                                                                                         03/10/22
 123300              wip_amount);                                                                                       03/10/22
 123400                                                                                                                 03/10/22
 123500       %subst(rec:1:4)    = 'ACSJ';                                                                              03/10/22
 123600       %subst(rec:5:10)   = outl_code;                                                                           03/10/22
 123700       %subst(rec:15:7)   = %editc(outl_credcnt:'X');                                                            03/10/22
 123800                                                                                                                 03/10/22
 123900       if outl_credamt < *zero;                                                                                  03/10/22
 124000          %subst(rec:22:1) = '-';                                                                                03/10/22
 124100       else;                                                                                                     03/10/22
 124200          %subst(rec:22:1) = '0';                                                                                03/10/22
 124300       endif;                                                                                                    03/10/22
 124400                                                                                                                 03/10/22
 124500       use_dec11 = %abs(outl_credamt);                                                                           03/10/22
 124600       %subst(rec:23:11) = hold_dec11;                                                                           03/10/22
 124700                                                                                                                 03/10/22
 124800       %subst(rec:34:7)   = %editc(outl_debtcnt:'X');                                                            03/10/22
 124900                                                                                                                 03/10/22
 125000       if outl_debtamt < *zero;                                                                                  03/10/22
 125100          %subst(rec:41:1) = '-';                                                                                03/10/22
 125200       else;                                                                                                     03/10/22
 125300          %subst(rec:41:1) = '0';                                                                                03/10/22
 125400       endif;                                                                                                    03/10/22
 125500                                                                                                                 03/10/22
 125600       use_dec11 = %abs(outl_debtamt);                                                                           03/10/22
 125700       %subst(rec:42:11) = hold_dec11;                                                                           03/10/22
 125800                                                                                                                 03/10/22
 125900       if outl_totcred < *zero;                                                                                  03/10/22
 126000          %subst(rec:53:1) = '-';                                                                                03/10/22
 126100       else;                                                                                                     03/10/22
 126200          %subst(rec:53:1) = '0';                                                                                03/10/22
 126300       endif;                                                                                                    03/10/22
 126400                                                                                                                 03/10/22
 126500       use_dec11 = %abs(outl_totcred);                                                                           03/10/22
 126600       %subst(rec:54:11) = hold_dec11;                                                                           03/10/22
 126700                                                                                                                 03/10/22
 126800       %subst(rec:65:7)   = %editc(wip_count:'X');                                                               03/10/22
 126900                                                                                                                 03/10/22
 127000       if wip_amount < *zero;                                                                                    03/10/22
 127100          %subst(rec:72:1) = '-';                                                                                03/10/22
 127200       else;                                                                                                     03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   25
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
 127300          %subst(rec:72:1) = '0';                                                                                03/10/22
 127400       endif;                                                                                                    03/10/22
 127500                                                                                                                 03/10/22
 127600       use_dec11 = %abs(wip_amount);                                                                             03/10/22
 127700       %subst(rec:73:11) = hold_dec11;                                                                           03/10/22
 127800                                                                                                                 03/10/22
 127900       %subst(rec:84:7)   = %editc(outl_retncnt:'X');                                                            03/10/22
 128000                                                                                                                 03/10/22
 128100       if outl_retnamt < *zero;                                                                                  03/10/22
 128200          %subst(rec:91:1) = '-';                                                                                03/10/22
 128300       else;                                                                                                     03/10/22
 128400          %subst(rec:91:1) = '0';                                                                                03/10/22
 128500       endif;                                                                                                    03/10/22
 128600                                                                                                                 03/10/22
 128700       use_dec11 = %abs(outl_retnamt);                                                                           03/10/22
 128800       %subst(rec:92:11) = hold_dec11;                                                                           03/10/22
 128900                                                                                                                 03/10/22
 129000       %subst(rec:103:7)   = %editc(outl_ret60cnt:'X');                                                          03/10/22
 129100                                                                                                                 03/10/22
 129200       if outl_ret60amt < *zero;                                                                                 03/10/22
 129300          %subst(rec:110:1) = '-';                                                                               03/10/22
 129400       else;                                                                                                     03/10/22
 129500          %subst(rec:110:1) = '0';                                                                               03/10/22
 129600       endif;                                                                                                    03/10/22
 129700                                                                                                                 03/10/22
 129800       use_dec11 = %abs(outl_ret60amt);                                                                          03/10/22
 129900       %subst(rec:111:11) = hold_dec11;                                                                          03/10/22
 130000                                                                                                                 03/10/22
 130100       %subst(rec:122:7)   = %editc(outl_deniedcnt:'X');                                                         03/10/22
 130200                                                                                                                 03/10/22
 130300       if outl_deniedamt < *zero;                                                                                03/10/22
 130400          %subst(rec:129:1) = '-';                                                                               03/10/22
 130500       else;                                                                                                     03/10/22
 130600          %subst(rec:129:1) = '0';                                                                               03/10/22
 130700       endif;                                                                                                    03/10/22
 130800                                                                                                                 03/10/22
 130900       use_dec11 = %abs(outl_deniedamt);                                                                         03/10/22
 131000       %subst(rec:130:11) = hold_dec11;                                                                          03/10/22
 131100                                                                                                                 03/10/22
 131200       %subst(rec:141:7)   = %editc(outl_canclcnt:'X');                                                          03/10/22
 131300                                                                                                                 03/10/22
 131400       if outl_canclamt < *zero;                                                                                 03/10/22
 131500          %subst(rec:148:1) = '-';                                                                               03/10/22
 131600       else;                                                                                                     03/10/22
 131700          %subst(rec:148:1) = '0';                                                                               03/10/22
 131800       endif;                                                                                                    03/10/22
 131900                                                                                                                 03/10/22
 132000       use_dec11 = %abs(outl_canclamt);                                                                          03/10/22
 132100       %subst(rec:149:11) = hold_dec11;                                                                          03/10/22
 132200                                                                                                                 03/10/22
 132300       %subst(rec:160:38) = '00000000000000000000000000000000000000';                                            03/10/22
 132400                                                                                                                 03/10/22
 132500       exec sql                                                                                                  03/10/22
  5770WDS V7R4M0  190419                  SEU SOURCE LISTING                            03/10/22 16:50:30    S104DB7A     PAGE   26
  SOURCE FILE . . . . . . .  ICS/QRPGSRC
  MEMBER  . . . . . . . . .  ATD140
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
 132600          insert into atdrcvwa                                                                                   03/10/22
 132700             values(:rec);                                                                                       03/10/22
 132800                                                                                                                 03/10/22
 132900       clear outl_credcnt;                                                                                       03/10/22
 133000       clear outl_credamt;                                                                                       03/10/22
 133100       clear outl_debtcnt;                                                                                       03/10/22
 133200       clear outl_debtamt;                                                                                       03/10/22
 133300       clear outl_totcred;                                                                                       03/10/22
 133400       clear outl_retncnt;                                                                                       03/10/22
 133500       clear outl_retnamt;                                                                                       03/10/22
 133600       clear outl_ret60cnt;                                                                                      03/10/22
 133700       clear outl_ret60amt;                                                                                      03/10/22
 133800       clear outl_deniedcnt;                                                                                     03/10/22
 133900       clear outl_deniedamt;                                                                                     03/10/22
 134000       clear outl_canclcnt;                                                                                      03/10/22
 134100       clear outl_canclamt;                                                                                      03/10/22
 134200                                                                                                                 03/10/22
 134300       clear rec;                                                                                                03/10/22
 134400                                                                                                                 03/10/22
 134500       %subst(rec:1:4)    = 'ACSL';                                                                              03/10/22
 134600       %subst(rec:5:10)   = outl_code;                                                                           03/10/22
 134700                                                                                                                 03/10/22
 134800       use_dollar = %abs(cur_lrate);                                                                             03/10/22
 134900       %subst(rec:15:9) = hold_dollar;                                                                           03/10/22
 135000       %subst(rec:24:8) = cur_leffdt;                                                                            03/10/22
 135100                                                                                                                 03/10/22
 135200       %subst(rec:32:9) = '000000000';                                                                           03/10/22
 135300       %subst(rec:41:8) = '00000000';                                                                            03/10/22
 135400                                                                                                                 03/10/22
 135500       %subst(rec:49:9) = '000000000';                                                                           03/10/22
 135600       %subst(rec:58:8) = '00000000';                                                                            03/10/22
 135700                                                                                                                 03/10/22
 135800       use_dollar = %abs(cur_trate);                                                                             03/10/22
 135900       %subst(rec:66:9) = hold_dollar;                                                                           03/10/22
 136000       %subst(rec:75:8) = cur_teffdt;                                                                            03/10/22
 136100                                                                                                                 03/10/22
 136200       use_dollar = %abs(cur_mrate);                                                                             03/10/22
 136300       %subst(rec:83:9) = hold_dollar;                                                                           03/10/22
 136400       %subst(rec:92:8) = cur_meffdt;                                                                            03/10/22
 136500                                                                                                                 03/10/22
 136600       exec sql                                                                                                  03/10/22
 136700          insert into atdrcvwa                                                                                   03/10/22
 136800             values(:rec);                                                                                       03/10/22
 136900                                                                                                                 03/10/22
 137000       Return 0;                                                                                                 03/10/22
 137100                                                                                                                 01/31/22
 137200       end-proc;                                                                                                 01/31/22
 137300  //************************************************************************                                     11/16/21
                                  * * * *  E N D  O F  S O U R C E  * * * *
