~QST(1,Enter Posting Description,22);
~QST(2,Enter Document Number,7);
PEPAR;          Accounts Receivable
P34;            Process Postings
P;              Process Postings
~BOM;               From activity Date
~EOM;               To Activity Date
Y;              Are You Sure
P23;             Charges (Sales Journal)
P;              Select P to Print
;               Report Format 
Y;              Print Audit Trail
Y;              Print Total by Customer No.
Y;              Print Total by Department
Y;              Print Total by Salesperson
Y;              Print Total by Buyers Dept.
Y;              Include Processed Postings
~BOM;               From Inv.Date
~EOM;               To Inv.Date
~WAI(23,1,Select);       Time Out Print Operation
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Select);       Time Out Print Operation
~ENF;
P24;            Payment Summary
P;              Select Print
;               Report Format
Y;              Print Payment Summary
Y;              Print Totals By Customer No.
Y;              Include Processing Postings
~BOM;               From Payment Date
~EOM;               To Payment Date
~WAI(23,1,Select);       Time Out Print Operation
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Select);       Time Out Print Operation
~ENF;
P25;            Sales History
P;              Select Print
;               Report Format
;               From Customer Number
;               To Customer Number
;               From Salesperson Number
;               To Salesperson Number
;               From Item Number
;               To Item Number
;               From Item Description
;               To Item Description
;               From Department Number
;               To Department Number
;               From Buyers Department
;               To Buyers Department
~BOM;               From Date Sold
~EOM;               To Date Sold
;               From Invoice Number
;               To Invoice Number
;               Number of Characters to Compare for Subtotals
~WAI(23,1,Select);       Time Out Print Operation
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Select);       Time Out Print Operation
~ENF;
P26;            Activity Totals
P;              Select Print
;               Report Format
Y;              Print AR Totals
Y;              Print BL Totals
N;              Print PS Totals
N;              Print JC Totals
N;              Print QS Totals
N;              Print TB Totals
~WAI(23,1,Select);       Time Out Print Operation
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Select);       Time Out Print Operation
~ENF;
P29;            Aged Schedule
P;              Select Print
;               Report Format
;               Select Print Order
;               From Customer Number
;               To Customer Number
;               From Customer Name
;               To Customer Name
;               From Telephone
;               To Telephone
;               From Category Code
;               To Category Code
;               From COD Carrier
;               To COD Carrier
;               Aging Date
;               Age By
;               Print Zero Bal. Cust.
;               Print Invoices
;               Print Invoice Detail
;               Print Zero Bal. Inv.
;               Print Budget Balance
;               Print Deposit
;               Print Service Charges
;               Update Customer Bal.
~WAI(23,1,Select);       Time Out Print Operation
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Select);       Time Out Print Operation
~ENF;
P51;            Month End Purge
P;              Purge
;               Balance Forward Invoice Date
;               From Category Code
;               To Category Code
;               From Customer Number
;               To Customer Number
;               No Purge : Purge 0 Balance Invoice Dated Before
;               Balance Forward : Include Invoices Dated From
;               In Bal. Fwd. Invoice To
Y;              Are You Sure
P52;		Print GL COA Report
P;		Print
;		Print Format
1;		Current Totals
Y;
~WAI(23,1,Select);       Time Out Print Operation
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Select);       Time Out Print Operation
~ENF;

P52;            Update To GL
U;              Update
1;              Select Totals
~ANS(1);        Posting Descriptions
;               Posting Date
~ANS(2);               Document Number
Y;              Are You Sure
Q;
Q;
