**FREE

//@ Copy selected .csv file to database file SABEL/ARCCPAYMNT.
Dcl-PR CSV_Import EXTPGM ('AR0004CL');
    //@ File name of the .csv file.
    FileName       Char(40);
    //@ Output value.
    Batch          Char(6);
    //@ Output value. Not actually used.
    Errors         Char(1);
End-PR;


//@ Print A/R Batch Edit
Dcl-PR Print_Batch_Edit EXTPGM ('ARC405A');
End-PR;

//@ Enter/Change Transactions
Dcl-PR Work_Transactions EXTPGM ('ARR401');
End-PR;

//@ Delete Batch
Dcl-PR Delete_Batch EXTPGM ('AR0494');
    //@ Batch number
    batchno Packed(6:0);
End-PR;


Dcl-PR Email_Statement extpgm('AR0602ECL');
    emailadr       Char(50);
    company        Char(8);
    cycle          Char(1);
    customer       Char(12);
    qrysel         Char(100);
End-PR;

//@ Clear YTD fields in ARCUSHST
Dcl-PR AR0751  EXTPGM('AR0751');
End-PR;

Dcl-PR AR0752  EXTPGM('AR0752');
End-PR;

//@ Call A/R Customer Inquiry
Dcl-PR AR_Customer_Inquiry extpgm('AR0020');
End-PR;

Dcl-PR CheckPaidby  extpgm('AR8020');
    paidby         Char(4);
    paidbydesc     Char(15);
    reqref         Char(1);
End-PR;

Dcl-PR SearchPaidBy  extpgm('AR8902');
    paidby         Char(4);
End-PR;

//@ Check customer's credit status
Dcl-PR Check_Credit extpgm('AR8010');
    co Packed(2:0);
    sbcustno Packed(6:0);
    creditok Char(2);
End-PR;

Dcl-PR CreditCheck extpgm('AR8012');
    ehco           Packed(2:0);
    ehacno         Packed(6:0);
    tamt           Packed(9:2);
    credit         Char(1);
End-PR;

Dcl-PR Customer_Search  Extpgm('AR0015');
    co             Packed(2:0);
    acno           Packed(6:0);
End-PR;

Dcl-PR Customer_Get Extpgm('AR8009');
    acno           Packed(6:0);
    mname          Char(30);
End-PR;