Last active
August 19, 2020 16:45
-
-
Save worksofliam/16f615bb781cf139f3b1a73071ae162f to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
**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; | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment