cpursley1979
asked on
Figuring out files and field being used in this RPG file
I have an RPG file I need to figure out what files and fields are being used in the database:
    *************** Beginning of data **************************
0001.00 Â Â Â *% Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0002.00 Â Â Â *=========================
0003.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Hudson Foods, Inc. Â Â Â Â Â Â Â Â Â Â Â *
0004.00 Â Â Â *=========================
0005.00 Â Â Â * Â Â Â Â Â Â Â Â System: FREIGHT PAYABLES Â Â Â Â Â Â Â Â Â Â Â *
0006.00 Â Â Â * Â Â Â Â Â Â Â Program: FPR001 Â Â Â Â Type (B,I): I Â Â Â Â Â *
0007.00 Â Â Â * Â Â Â Program Function: Outside Freight Payables Entry/Update *
0008.00 Â Â Â * Â Â Â Original Request: 6356 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0009.00 Â Â Â *V Â Â Â Current Version: 01.00 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0010.00 Â Â Â * Â Â Â Â Â Â Â Comments: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0011.00 Â Â Â *-------------------------
0012.00 Â Â Â * Â Â Â Â Â Â Programmer: LRE Â Â Â Â Â Â Â Â Date: 04/11/95 Â Â *
0013.00 Â Â Â *-------------------------
0014.00 Â Â Â * Â Special Instructions: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0015.00 Â Â Â *-------------------------
0016.00 Â Â Â * Â Â Potential Problems: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0017.00 Â Â Â *-------------------------
0018.00    *             Modifications             *
0019.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0020.00 Â Â Â * Â Â Â Â Â Â Â Version: 01.03 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0021.00 Â Â Â * Â Â Â Â Â Â Â Request: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0022.00 Â Â Â * Â Â Â Â Â Â Programmer: Â Â Â Â Â Â Â Â Â Â Date: Â / Â / Â Â Â *
0023.00 Â Â Â * Â Â Â Â Â Modification: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0024.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0025.00 Â Â Â * Â Â Â Â Â Â Â Version: 01.02 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0026.00 Â Â Â * Â Â Â Â Â Â Â Request: 7544 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0027.00 Â Â Â * Â Â Â Â Â Â Programmer: LRE Â Â Â Â Â Â Â Â Date: 12/20/96 Â Â *
0028.00 Â Â Â * Â Â Â Â Â Modification: Added Additional Billing Logic. Â Â Â *
0029.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0030.00 Â Â Â * Â Â Â Â Â Â Â Version: 01.01 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0031.00 Â Â Â * Â Â Â Â Â Â Â Request: 7302 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0032.00 Â Â Â * Â Â Â Â Â Â Programmer: LRE Â Â Â Â Â Â Â Â Date: 09/17/96 Â Â *
0033.00 Â Â Â * Â Â Â Â Â Modification: Added confirmation chain to get ship# *
0034.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â and made charges other than Accessori-* Â
0035.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â go to the miscellaneous totals. Â Â Â * Â
0036.00 Â Â Â *-------------------------
0037.00    *              File Usage              * Â
0038.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â * Â
0039.00    *   File Name  I,O,U   Description             * Â
0040.00 Â Â Â * Â Â --------- Â ----- Â Â --------------------------
0041.00 Â Â Â *-------------------------
0042.00    *             Called Programs            * Â
0043.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â * Â
0044.00    *   Program        Description             * Â
0045.00 Â Â Â * Â Â --------- Â Â Â Â Â Â --------------------------
0046.00 Â Â Â * Â Â - NONE - Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â * Â
0047.00 Â Â Â *-------------------------
0048.00    *             Indicator Usage            * Â
0049.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â * Â
0050.00    *   Indicator       Description             * Â
0051.00 Â Â Â * Â Â --------- Â Â Â Â Â Â --------------------------
0052.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0053.00 Â Â Â *=========================
0054.00 Â Â Â *# Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0055.00 Â Â Â H Â Â Â Â 1 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0056.00 Â Â Â FFPD001 Â CF Â E Â Â Â Â Â Â Â Â Â Â WORKSTN Â Â Â Â Â Â Â Â Â Â Â Â Â
0057.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN2 Â KSFILE FPD00102 Â Â
0058.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN7 Â KSFILE FPD00107 Â Â
0059.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRNSA KSFILE FPD001SA Â Â
0060.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRNSB KSFILE FPD001SB Â Â
0061.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN16 KSFILE FPD00116 Â Â
0062.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN18 KSFILE FPD00118
0063.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN22 KSFILE FPD00122
0064.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN25 KSFILE FPD00125
0065.00 Â Â Â FHFP001 Â IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0066.00 Â Â Â FAPP400 Â IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0067.00 Â Â Â FOPP292 Â IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0068.00 Â Â Â FOPP293 Â IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0069.00 Â Â Â FOPL30101IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0070.00 Â Â Â FOPL30102IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â
0071.00 Â Â Â F Â Â Â Â Â Â OPP301R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP3012 Â Â
0072.00 Â Â Â FOPL30103IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0073.00 Â Â Â F Â Â Â Â Â Â OPP301R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP3013 Â Â
0074.00 Â Â Â FHFL10001IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0075.00 Â Â Â FOPP910 Â UF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0076.00 Â Â Â FOPL29409UF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0077.00 Â Â Â FOPL29405IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0078.00 Â Â Â F Â Â Â Â Â Â OPP294R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2945 Â Â
0079.00 Â Â Â FOPL29403IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0080.00 Â Â Â F Â Â Â Â Â Â OPP294R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2943 Â
0081.00 Â Â Â FOPL29411IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â
0082.00 Â Â Â F Â Â Â Â Â Â OPP294R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP29411 Â
0083.00 Â Â Â FOPL29501IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â
0084.00 Â Â Â FOPL29001UF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â A Â
0085.00 Â Â Â FOPL29003IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â
0086.00 Â Â Â F Â Â Â Â Â Â OPP290R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2903 Â
0087.00 Â Â Â FOPL29004IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â
0088.00 Â Â Â F Â Â Â Â Â Â OPP290R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2904 Â
0089.00 Â Â Â FOPL29006IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0090.00 Â Â Â F Â Â Â Â Â Â OPP290R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2906 Â
0090.01 Â Â Â FOPL29012IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0090.02 Â Â Â F Â Â Â Â Â Â OPP290R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP29012
0091.00 Â Â Â FOPL29101UF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â A Â
0092.00 Â Â Â FOPL29102UF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â A Â
0093.00 Â Â Â F Â Â Â Â Â Â OPP291R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2912 Â
0094.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0095.00 Â Â Â E/COPY BOOKE1 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0096.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â TOT Â Â 1 Â 2 15 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0097.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â MSG Â Â 1 Â 1 32 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0098.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â CHG Â Â Â Â 99 Â 4 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0099.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â SINV Â Â Â 999 Â 4 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0100.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â NOC# Â Â Â 99 Â 3 0 Â Â Â Â Â Â Â Â Â Â Â Â Â
0101.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â NVC# Â Â Â 99 Â 3 0 Â Â Â Â Â Â Â Â Â Â Â Â Â
0102.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â VEN Â Â Â Â 99 Â 7 0 Â Â Â Â Â Â Â Â Â Â Â Â Â
0103.00 Â Â Â I/COPY BOOKI1 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0104.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 512 512 QUIRY Â Â Â Â Â Â
0105.00 Â Â Â I Â Â Â Â Â IDS Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0106.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 25 VMVNNM Â Â Â Â
0107.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 13 VNAME Â Â Â Â Â
0108.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0109.00 Â Â Â I Â Â Â Â Â IDS Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0110.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 4 LOOK1 Â Â Â Â Â
0111.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 1 FSCTYP Â Â Â Â
0112.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 2 Â 40FSCSTP Â Â Â Â
0113.00 Â Â Â I Â Â Â Â Â IDS Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0114.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 4 LOOK2 Â Â Â Â
0115.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 1 FECTYP Â Â Â Â
0116.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 2 Â 40FECSTP Â Â Â Â
0117.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0118.00 Â Â Â C Â Â Â Â Â PLIST Â Â PLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0119.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â PFLAG Â 1 Â Â Â Â Â Â Â
0120.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â JULIAN Â 5 Â Â Â Â Â Â Â
0121.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â MDY Â Â 6 Â Â Â Â Â Â Â
0122.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0123.00 Â Â Â C Â Â Â Â Â CFTFKY Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0124.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â Â Â Â Â Â Â
0125.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â Â Â Â Â Â Â
0126.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â CNFTRF Â Â Â Â Â Â Â Â Â Â
0127.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â TYPE Â Â Â Â Â Â Â Â Â Â Â
0128.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0129.00 Â Â Â C Â Â Â Â Â KEY1 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0130.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â Â Â Â Â Â Â
0131.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â Â Â Â Â Â Â
0132.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0133.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0134.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â Â Â Â Â Â
0135.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â Â Â Â Â Â
0136.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â Â Â Â Â Â Â Â
0137.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0138.00 Â Â Â C Â Â Â Â Â KEY3 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0139.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHDIV# Â Â Â Â Â Â Â Â Â
0140.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHCPX# Â Â Â Â Â Â Â Â Â
0141.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHVEND Â Â Â
0142.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHSHP# Â Â Â
0143.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0144.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â
0145.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHDIV# Â Â Â
0146.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHCPX# Â Â Â
0147.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHSHP# Â Â Â
0148.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHVEND Â Â Â
0149.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0150.00 Â Â Â C Â Â Â Â Â KEY5 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0151.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â Â Â
0152.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â Â Â
0153.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â AFTVND Â Â Â Â Â Â
0154.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â Â Â Â Â
0155.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0156.00 Â Â Â C Â Â Â Â Â KEY6 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0157.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â Â Â
0158.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â Â Â
0159.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP#
0160.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â AFTVND
0161.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0162.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â KLIST Â Â Â Â Â Â Â Â
0163.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV#
0164.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX#
0165.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP#
0166.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND
0167.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0168.00 Â Â Â C Â Â Â Â Â KEY8 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â
0169.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYDIV# Â Â Â Â
0170.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYCPX# Â Â Â Â
0171.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYCTYP Â Â Â Â
0172.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0173.00 Â Â Â C Â Â Â Â Â KEY9 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â
0174.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â
0175.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â
0176.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â Â Â Â
0168.00 Â Â Â C Â Â Â Â Â KEY8 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â
0169.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYDIV# Â Â Â Â
0170.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYCPX# Â Â Â Â
0171.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYCTYP Â Â Â Â
0172.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0173.00 Â Â Â C Â Â Â Â Â KEY9 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â
0174.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â
0175.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â
0176.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â Â Â Â
0177.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPFB# Â Â Â
0178.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0179.00 Â Â Â C Â Â Â Â Â KEY10 Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â
0180.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEDIV# Â Â Â
0181.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECPX# Â Â Â
0182.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECTYP Â Â Â
0183.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0184.00 Â Â Â C Â Â Â Â Â KEY10A Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â
0185.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEDIV# Â Â Â
0186.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECPX# Â Â Â Â Â
0187.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â PMPROC Â Â Â Â Â
0188.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FDCODE Â Â Â Â Â
0189.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0190.00 Â Â Â C Â Â Â Â Â KEY11 Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â
0191.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â Â Â Â Â
0192.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â Â Â Â Â
0193.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â Â Â Â
0194.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â Â Â Â Â
0195.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPFB# Â Â Â Â Â Â
0196.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECTYP Â Â Â Â Â Â
0197.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECSTP Â Â Â Â Â Â
0198.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0199.00 Â Â Â C Â Â Â Â Â KEY12 Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0200.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â Â Â Â Â Â
0201.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â Â Â Â Â Â
0202.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â Â Â Â Â Â
0203.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â Â Â Â Â
0204.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPFB# Â Â
0205.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0206.00 Â Â Â C Â Â Â Â Â KEY13 Â Â KLIST Â Â Â Â Â Â Â Â Â Â
0207.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â Â
0208.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â Â
0209.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â
0210.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â Â
0211.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPFB# Â Â
0212.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0213.00 Â Â Â C Â Â Â Â Â KEY14 Â Â KLIST Â Â Â Â Â Â Â Â Â Â
0214.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEDIV# Â Â
0215.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECPX# Â Â
0216.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECTYP Â Â
0217.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECSTP Â Â
0218.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0219.00 Â Â Â C Â Â Â Â Â KEY15 Â Â KLIST Â Â Â Â Â Â Â Â Â Â
0220.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â Â
0221.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â
0222.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â
0223.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â
0224.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0225.00 Â Â Â C Â Â Â Â Â KEY16 Â Â KLIST Â Â Â Â Â Â Â Â Â
0226.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHDIV# Â
0227.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHCPX# Â
0228.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHKEY# Â
0229.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHCODE Â
0230.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0231.00 Â Â Â C Â Â Â Â Â KEY17 Â Â KLIST Â Â Â Â Â Â Â Â Â
0232.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FDDIV# Â
0233.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FDCPX# Â
0234.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FDLBL Â
0235.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FDEXT# Â
0236.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0237.00 Â Â Â C Â Â Â Â Â KEY18 Â Â KLIST Â Â Â Â Â Â Â Â Â
0238.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â
0239.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â
0240.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â Â Â Â Â Â Â Â
0241.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHKEY# Â Â Â Â Â Â Â Â Â
0242.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHCODE Â Â Â Â Â Â Â Â Â
0243.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0244.00 Â Â Â C Â Â Â Â Â KEY19 Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0245.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEDIV# Â Â Â Â Â Â Â Â Â
0246.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECPX# Â Â Â Â Â Â Â Â Â
0247.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FESHP# Â Â Â Â Â Â Â Â Â
0248.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEVEND Â
0249.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEFB# Â Â Â
0250.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FELBL Â Â Â
0251.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEEXT# Â Â Â
0252.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0253.00 Â Â Â C Â Â Â Â Â KEY20 Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â
0254.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â Â Â
0255.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â Â Â
0256.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHVEND Â Â Â
0257.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.01 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.02 LAT1 C* Â Convert MDY to CYMD Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.03 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.04 LAT1 C Â Â Â Â Â DTCVN Â Â PLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.05 LAT1 C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â $CDATE Â 80 Â Â Â Â Â Â Â Â Â Â
0257.06 LAT1 C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â $CFFMT Â 5 Â Â Â Â Â Â Â Â Â Â
0257.07 LAT1 C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â $CTFMT Â 5 Â Â Â Â Â Â Â Â Â Â
0257.08 LAT1 C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â $CERR Â 1 Â Â Â Â Â Â Â Â Â Â
0257.09 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.10 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0258.00    * Level Break Field             Â
0259.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0260.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPVEND Â Â HLDVEN Â Â
0261.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPSHP# Â Â HLDSHP Â Â
0262.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0263.00    * Vendor Total Fields            Â
0264.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0265.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPAFRT Â Â VENFRT Â Â
0266.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPACHG Â Â VENACC Â Â Â Â Â Â Â
0267.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPMCHG Â Â VENMIS Â Â Â Â Â Â Â
0268.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPMCHG Â Â VENTOT Â Â Â Â Â Â Â
0269.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0270.00    * Batch Total Fields                  Â
0271.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0272.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPAFRT Â Â BCHFRT Â Â Â Â Â Â Â
0273.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPACHG Â Â BCHACC Â Â Â Â Â Â Â
0274.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPMCHG Â Â BCHMIS
0275.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPMCHG Â Â BCHTOT Â Â Â Â
0276.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0277.00    * Before image of charge amount          Â
0278.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0279.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FEAMNT Â Â BFRAMT Â Â Â Â
0280.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0281.00 Â Â Â * Before image of Vendor Invoice# Â Â Â Â Â Â Â Â Â
0282.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0283.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPFB# Â Â BFRFB# Â Â Â
0284.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0285.00    * Actual Prorate total for single vendor   Â
0286.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0287.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPAFRT Â Â PROACT Â Â
0288.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0289.00 Â Â Â * Estimated Prorated total for single vendor Â
0290.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0291.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPEFRT Â Â PROEST Â Â
0292.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPEFRT Â Â CHECK Â Â Â
0293.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0294.00    * Estimated Prorated total for multiple vendor confirmations  Â
0295.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0296.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPEFRT Â Â PROES2 Â Â Â Â Â Â Â Â Â Â Â
0297.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0298.00    * Get Complex Name                       Â
0299.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0300.00 Â Â Â C Â Â Â Â Â KEY1 Â Â Â CHAINHFP001R Â Â Â Â Â Â Â 01 Â Â Â Â Â Â Â
0301.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0302.00 Â Â Â C Â Â Â Â Â *IN01 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â
0303.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â CXDESC Â Â Â Â
0304.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' CXDESC Â Â Â Â
0305.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0306.00    *Center complex name               Â
0307.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â
0308.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0309.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â
0310.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â CXDESC Â Â Â Â
0311.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â
0312.00    * Main Loop                     Â
0313.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0314.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0315.00    * Load Freight Payable Entries            Â
0316.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0317.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR LODFPE Â Â Â Â Â Â Â Â Â Â Â
0318.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0319.00 B2 Â C Â Â Â Â Â HLDPOS Â Â IFNE 0 Â Â Â Â
0320.00 Â Â Â C Â Â Â Â Â HLDPOS Â Â ANDLERRN2 Â Â Â Â Â Â Â Â Â Â Â Â Â
0321.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDHLDPOS Â Â CURSOR Â Â Â Â Â Â Â
0322.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0323.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0324.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00103 Â Â Â Â Â Â Â Â Â Â Â
0325.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00101 Â Â Â Â Â Â Â Â Â Â Â
0326.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0327.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDROWID Â Â HLDPOS Â 30 Â Â Â Â Â
0328.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDROWID Â Â CURSOR Â
0329.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0330.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â MESSGE Â Â Â Â Â
0331.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0332.00 Â Â Â * Position to bottom of SFL. Â Â Â Â Â Â Â Â Â Â Â Â
0333.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0334.00 B2 Â C Â Â Â Â Â *IN18 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â
0335.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0336.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDRRN2 Â Â Â HLDPOS Â Â Â Â Â
0337.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0338.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0339.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0340.00    * Add an invoice                         Â
0341.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0342.00 B3 Â C Â Â Â Â Â *IN06 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0343.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0344.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â ADBILL Â 1 Â Â Â Â Â Â Â Â Â Â
0345.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0346.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN58 Â Â Â Â Â Â Â Â Â Â Â Â
0347.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0348.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN59 Â Â Â Â Â Â Â Â Â
0349.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0350.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR ADDINV Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0351.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0352.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0353.00    * Edit List                        Â
0354.00 B4 Â C Â Â Â Â Â *IN05 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0355.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0356.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â LDEXIT Â Â Â Â
0357.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â OUT Â LDA Â Â Â Â Â Â Â Â Â Â
0358.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'FPR003' Â Â Â Â Â Â Â Â
0359.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â IN Â LDA Â Â Â Â Â Â Â Â Â Â
0360.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0361.00 Â Â Â C Â Â Â Â Â LDEXIT Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â
0362.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE MSG,1 Â Â MESSGE Â Â Â Â
0363.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0364.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0365.00 X4 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
0366.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0367.00    * Create A/P Edit Batch            Â
0368.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0369.00 B5 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â
0370.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0371.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'FPR002' Â Â Â Â Â Â Â
0372.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0373.00 X5 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
0374.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0375.00    * Process SFL requests                 Â
0376.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0377.00 Â Â Â * SFLDSP(Records exist in SFL) Â Â Â Â Â Â Â Â Â Â Â Â Â
0378.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0379.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN53 Â Â Â Â Â Â Â
0380.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0381.00 B6 Â C Â Â Â Â Â *IN52 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
0382.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00102 Â Â Â Â Â Â Â Â 53 Â
0383.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0384.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0385.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â B Â Â Â 30 Â Â Â Â Â Â Â Â Â Â
0386.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEA*BLANKS Â SINV Â Â Â Â Â Â Â Â Â Â Â Â Â
0387.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0388.00    * Load requests in ARRAY to be processed later          Â
0389.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0390.00 B6 Â C Â Â Â Â Â *IN53 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0391.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â B Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0392.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE RRN2 Â Â Â SINV,B Â Â Â Â Â Â Â Â Â Â Â Â
0393.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELSELINV Â Â SINV,B Â Â Â Â Â Â Â Â Â Â Â Â
0394.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELINV Â Â Â Â Â Â Â Â Â Â Â Â
0395.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATFPD00102 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0396.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00102 Â Â Â Â Â Â Â Â 53 Â Â Â Â Â Â
0397.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0398.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0399.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDB Â Â Â Â C Â Â Â 30 Â Â Â Â Â Â Â Â Â Â
0400.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â B Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0401.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0402.00 B6 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0403.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0404.00 Â Â Â C Â Â Â Â Â B Â Â Â Â ANDLEC Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0405.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0406.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â B Â Â Â Â Â Â Â Â Â Â Â Â Â
0407.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE SINV,B Â Â RRN2 Â Â Â Â Â Â Â Â Â Â Â
0408.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0409.00 Â Â Â C Â Â Â Â Â RRN2 Â Â Â CHAINFPD00102 Â Â Â Â Â Â 53 Â Â Â Â Â Â Â
0410.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0411.00 B7 Â C Â Â Â Â Â *IN53 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0412.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0413.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELSINV,B Â Â SELINV Â Â Â Â Â Â Â Â Â Â Â Â
0414.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0415.00 B8 Â C Â Â Â Â Â SELINV Â Â IFEQ '2' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0416.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR EDIT Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0417.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0418.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0419.00 B8 Â C Â Â Â Â Â SELINV Â Â IFEQ '4' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0420.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR DELETE Â Â Â Â Â Â Â Â Â Â Â Â Â
0421.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0422.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0423.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDRRN2 Â Â Â CURSOR Â Â Â Â Â Â Â Â
0424.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0425.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0426.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0427.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0428.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â
0429.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0430.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0431.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0432.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0433.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0434.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0435.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0436.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *INLR Â Â Â Â Â
0437.00 Â Â Â C*************************
0438.00 Â Â Â C Â Â Â Â Â ADDBIL Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0439.00 Â Â Â C*************************
0440.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0441.00    * Additional billings will not have an estimated Totals to   Â
0442.00 Â Â Â * work with, so get all the records for the Shipment/Vendor to Â
0443.00 Â Â Â * find the estimated Totals to work with. Â Â Â Â Â Â Â Â Â Â Â Â
0444.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0445.00 Â Â Â C Â Â Â Â Â KEY15 Â Â SETLLOPP29411 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0446.00 Â Â Â C Â Â Â Â Â KEY15 Â Â READEOPP29411 Â Â Â Â Â Â Â Â 01 Â Â Â Â Â Â
0447.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0448.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â WRKFRT Â 92 Â Â Â Â Â Â Â Â Â Â
0449.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â WRKCHG Â 92 Â Â Â Â Â Â Â Â Â Â
0450.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0451.00 B1 Â C Â Â Â Â Â *IN01 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0452.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHEFRT Â Â WRKFRT Â Â Â Â Â Â Â Â Â Â Â Â
0453.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â WRKCHG Â Â Â Â Â Â Â Â Â Â Â Â
0454.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 01 Â Â Â Â Â Â
0455.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0456.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0457.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0458.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0459.00 Â Â Â **************************
0460.00 Â Â Â C Â Â Â Â Â ADDINV Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0461.00 Â Â Â **************************
0462.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0463.00    * Add an invoice                                                                                                 Â
0464.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CNFTRF Â Â Â Â Â Â
0465.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE 'C' Â Â Â TYPE Â Â Â Â Â Â Â
0466.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPSHP# Â Â Â Â Â Â
0467.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0468.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE LDDIV# Â Â FPDIV# Â Â Â Â Â Â
0469.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE LDCPX# Â Â FPCPX# Â Â Â Â Â Â
0470.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE LDPLT# Â Â FPPLT# Â Â Â Â Â Â
0471.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0472.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0473.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0474.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0475.00 B2 Â C Â Â Â Â Â ADBILL Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0476.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0477.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00104 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0478.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0479.00 B3 Â C Â Â Â Â Â CNFTRF Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0480.00 Â Â Â C Â Â Â Â Â CFTFKY Â Â CHAINOPP2943 Â Â Â Â Â Â Â 99 Â Â Â Â Â Â Â Â
0481.00 B4 Â C Â Â Â Â Â *IN99 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0482.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFHSHP# Â Â FPSHP# Â Â Â Â Â Â Â Â Â Â
0483.00 B5 Â C Â Â Â Â Â FPSHP# Â Â IFEQ 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0484.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN98 Â Â Â Â Â Â Â Â Â Â Â
0485.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0486.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0487.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0488.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0489.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0490.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00104 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0491.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00127 Â Â Â Â Â Â Â
0492.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
0493.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0494.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00104 Â Â Â Â Â Â Â
0495.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0496.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â
0497.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
0498.00 Â Â Â C Â Â Â Â Â *IN98 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
0499.00 Â Â Â C Â Â Â Â Â *IN99 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
0500.00 Â Â Â C Â Â Â Â Â FPSHP# Â Â ANDNE0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0501.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0502.00 Â Â Â * Validate Ship# Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0503.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0504.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â CHAINOPP910R Â Â Â Â Â Â N30 Â Â Â Â Â
0505.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0506.00 B3 Â C Â Â Â Â Â *IN30 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0507.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0508.00 Â Â Â * Validate Ship Header Status('Z') Â Â Â Â Â Â Â Â Â Â Â Â
0509.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0510.00 B4 Â C Â Â Â Â Â SISTAT Â Â IFEQ 'Z' Â Â Â Â Â Â Â Â Â Â
0511.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0512.00 Â Â Â * Validate Ship Header Freight Status('Z') Â Â Â Â
0513.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0514.00 B5 Â C Â Â Â Â Â SIFSTA Â Â IFEQ 'Z' Â Â Â Â Â Â Â Â Â Â
0514.01 MOD Â C*** ALLOW JANICE TO PAY WITH EST FREIGHT = 0 Â Â Â
0514.02 MOD Â C* Â Â Â Â Â SIFSTA Â Â OREQ 'S' Â Â Â Â Â Â Â Â Â Â
0514.03 MOD Â C* Â Â Â Â Â SIFSTA Â Â OREQ 'I' Â Â Â Â Â Â Â Â Â Â
0514.04 MOD Â C* Â Â Â Â Â SIFSTA Â Â OREQ 'M' Â Â Â Â Â Â Â Â Â Â Â
0514.05 MOD Â C*** END MOD Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0515.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0516.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CNFTRF Â Â Â Â Â
0517.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE 'C' Â Â Â TYPE Â Â Â Â Â Â
0518.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0519.00    * Pallets In/Out                  Â
0520.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0521.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDSIPLIN Â Â PALIN Â Â Â Â Â
0522.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDSIPLOU Â Â PALOUT Â Â Â Â Â Â Â Â Â Â Â Â
0523.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0524.00 Â Â Â * Ship# OK, now get Vendor(s) associated w/ shipment for user to Â
0525.00 Â Â Â * select. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0526.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0527.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR VNDSEL Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0528.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0529.00 Â Â Â * If invoice was added, end loop. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0530.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0531.00 B6 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0532.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â
0533.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â HLDPOS Â Â Â Â Â Â Â Â Â
0534.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0535.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0536.00 X5 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0537.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0538.00 MOD Â C* ALLOW JANICE TO PAY A SHIPMENT THAT HAS ZERO EST FREIGHT Â
0539.00 MOD Â C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0540.00 MODB6C Â Â Â Â Â SISTAT Â Â IFNE 'Z' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0541.00 MOD Â C* Â Â Â Â Â SISTAT Â Â ANDNE'I' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0542.00 MOD Â C* Â Â Â Â Â SISTAT Â Â ANDNE'M' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0543.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN32 Â Â Â Â Â Â Â Â
0544.00 MODE6C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0545.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0546.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0547.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0548.00 X4 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0549.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0550.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN31 Â Â Â Â Â Â
0551.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0552.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0553.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0554.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0555.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0556.00    * Reset                       Â
0557.00 B1 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â
0558.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â Â Â
0559.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â ADBILL Â Â Â Â Â Â Â Â Â Â Â Â
0560.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN59 Â Â Â Â Â Â Â Â Â Â Â Â
0561.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0562.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0563.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0564.00 Â Â Â **************************
0565.00 Â Â Â C Â Â Â Â Â ADRCDS Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0566.00 Â Â Â **************************
0567.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0568.00    * Add freight detail                       Â
0569.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0570.00    * DETACT is a total of all actaul detail for an invoice     Â
0571.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0572.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â DETACT Â 92 Â Â Â Â Â Â Â Â Â Â
0573.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0574.00    * Add charges first                       Â
0575.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0576.00 B1 Â C Â Â Â Â Â RRNSA Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0577.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0578.00 Â Â Â * Add Acces. &Â Misc. record(s) to Freight Payables Detail. Â Â
0579.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0580.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â Â Â Â
0581.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0582.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 23 Â Â Â Â Â Â Â
0583.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0584.00 B2 Â C Â Â Â Â Â *IN23 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0585.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0586.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPDIV# Â Â FEDIV# Â Â Â Â Â Â
0587.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPCPX# Â Â FECPX# Â Â Â Â Â Â
0588.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPPLT# Â Â FEPLT# Â Â Â Â Â Â
0589.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPSHP# Â Â FESHP# Â Â Â Â Â Â
0590.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVEND Â Â FEVEND Â Â Â Â Â Â
0591.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPFB# Â Â FEFB# Â Â Â Â Â Â Â
0592.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0593.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â FECODE Â Â Â Â Â Â
0594.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FECNF# Â Â Â Â Â Â Â Â
0595.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FELBL Â Â Â Â Â Â Â Â
0596.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FEEXT# Â Â Â Â Â Â Â Â
0597.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0598.00 Â Â Â C Â Â Â Â Â KEY10 Â Â CHAINOPP3012 Â Â Â Â Â Â Â 24 Â Â Â Â
0599.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0600.00 B3 Â C Â Â Â Â Â *IN24 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0601.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0602.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFGCO Â Â Â FECO Â Â Â Â Â Â Â Â Â
0603.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGGLLO Â Â FEGLLO Â Â Â
0604.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGGLAC Â Â FEGLAC Â Â Â
0605.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGTYPE Â Â FEGLTT Â Â Â
0606.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0607.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â
0608.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0609.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FECO Â Â Â Â
0610.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLLO Â Â Â
0611.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLAC Â Â Â
0612.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLTT Â Â Â Â Â Â Â
0613.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0614.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0615.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0616.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEOPP291R Â Â Â Â Â Â Â Â Â Â Â
0617.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0618.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â Â Â Â
0619.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0620.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 23 Â Â Â
0621.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0622.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0623.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0624.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0625.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0626.00    * Write out product freight detail         Â
0627.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0628.00    *Clear accumulators                 Â
0629.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMSL1 Â 92 Â Â Â
0630.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMPC1 103 Â Â Â
0631.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMSL2 Â 92 Â Â Â
0632.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMPC2 103 Â Â Â
0633.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN83 Â Â Â Â Â
0634.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0635.00 B1 Â C Â Â Â Â Â FPAFRT Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â
0636.00 Â Â Â C Â Â Â Â Â FPEFRT Â Â ANDEQ0 Â Â Â Â Â Â Â Â Â Â Â Â
0637.00 Â Â Â C Â Â Â Â Â FPACHG Â Â ORNE 0 Â Â Â Â Â Â Â Â Â Â Â Â
0638.00 Â Â Â C Â Â Â Â Â FPECHG Â Â ANDEQ0 Â Â Â Â Â Â Â Â Â Â Â Â
0639.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN83 Â Â Â Â Â Â
0640.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPEFRT Â Â HLDFRT Â 92 Â Â Â Â
0641.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPECHG Â Â HLDCHG Â 92 Â Â Â Â
0642.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR ADDBIL Â Â Â Â Â Â Â Â Â Â Â
0643.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDWRKFRT Â Â FPEFRT Â Â Â Â Â Â
0644.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDWRKCHG Â Â FPECHG Â Â Â Â Â Â
0645.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0646.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0647.00 Â Â Â C Â Â Â Â Â KEY15 Â Â SETLLOPP29411 Â Â Â Â Â Â Â Â Â Â
0648.00 Â Â Â C Â Â Â Â Â KEY15 Â Â READEOPP29411 Â Â Â Â Â Â Â Â 23 Â Â Â Â Â Â
0649.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0650.00 B1 Â C Â Â Â Â Â *IN23 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0651.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0652.00 Â Â Â * Prorate freight per confirmation based on % the estimate is of Â
0653.00 Â Â Â * the total estimate. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0654.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0655.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHEFRT Â Â CUMSL1 Â Â Â Â Â Â Â Â Â Â Â Â
0656.00 Â Â Â C Â Â Â Â Â CUMSL1 Â Â MULT 100 Â Â Â WORK10 150 Â Â Â Â Â Â Â Â Â Â
0657.00 B2 Â C Â Â Â Â Â FPEFRT Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â
0658.00 Â Â Â C Â Â Â Â Â WORK10 Â Â DIV Â FPEFRT Â Â WORK12 123H Â Â
0659.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
0660.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â WORK12 Â Â Â Â Â
0661.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0662.00 Â Â Â C Â Â Â Â Â WORK12 Â Â SUB Â CUMPC1 Â Â PCT Â Â 63 Â Â Â
0663.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDWORK12 Â Â CUMPC1 Â Â Â Â Â
0664.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0665.00 Â Â Â C Â Â Â Â Â PCT Â Â Â DIV Â 100 Â Â Â PCTDEC Â 65 Â Â Â
0666.00 Â Â Â C Â Â Â Â Â PCTDEC Â Â MULT FPAFRT Â Â FHAFRT Â Â H Â Â Â Â Â Â Â
0667.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0668.00 Â Â Â * Prorate Actual Access. Charge per confirmation based on % Â
0669.00 Â Â Â * the estimate is of the total estimate. Â Â Â Â Â Â Â Â Â Â
0670.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0671.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â CUMSL2 Â Â Â Â Â Â Â Â Â
0672.00 Â Â Â C Â Â Â Â Â CUMSL2 Â Â MULT 100 Â Â Â WORK20 150 Â Â Â Â Â Â Â
0673.00 Â Â Â C Â Â Â Â Â FPECHG Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0674.00 Â Â Â C Â Â Â Â Â WORK20 Â Â DIV Â FPECHG Â Â WORK22 113H Â Â Â Â Â Â Â
0675.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0676.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â WORK22 Â Â Â Â Â
0677.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0678.00 Â Â Â C Â Â Â Â Â WORK22 Â Â SUB Â CUMPC2 Â Â PCT Â Â Â Â Â Â Â
0679.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDWORK22 Â Â CUMPC2 Â Â Â Â Â
0680.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0681.00 Â Â Â C Â Â Â Â Â PCT Â Â Â DIV Â 100 Â Â Â PCTDEC Â Â Â Â Â
0682.00 Â Â Â C Â Â Â Â Â PCTDEC Â Â MULT FPACHG Â Â FHACHG Â Â H Â Â Â
0683.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0684.00 Â Â Â * Estimated total that is to be used for 1 vendor confirmations Â
0685.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0686.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFHEFRT Â Â PROEST Â Â Â Â Â Â Â Â Â Â Â
0687.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â PROEST Â Â Â Â Â Â Â Â Â Â Â
0688.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0689.00    * Actual total to be prorated across detail           Â
0690.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0691.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFHAFRT Â Â PROACT Â Â Â Â Â Â Â Â Â Â Â
0692.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHACHG Â Â PROACT Â Â Â Â Â Â Â Â Â Â Â
0693.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0694.00    * Estimated total to be used during proration of confirmations  Â
0695.00    *  with more than one vendor                   Â
0696.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0697.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â PROES2 Â Â Â Â Â Â Â Â Â Â Â Â
0698.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0699.00 Â Â Â * Figure out number of vendors on shipment/confirmation to figure
0700.00    * which totals to use during calc                Â
0701.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0702.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â COUNT Â 30 Â Â Â Â Â Â
0703.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0704.00 Â Â Â C Â Â Â Â Â KEY18 Â Â SETLLOPP2945 Â Â Â Â Â Â Â Â Â Â Â Â
0705.00 Â Â Â C Â Â Â Â Â KEY18 Â Â READEOPP2945 Â Â Â Â Â Â Â Â Â 24 Â Â
0706.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0707.00 B2 Â C Â Â Â Â Â *IN24 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0708.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0709.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â COUNT Â Â Â Â Â Â Â Â
0710.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHEFRT Â Â PROES2 Â Â Â Â Â Â Â Â
0711.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â PROES2 Â Â Â Â Â Â Â Â Â Â Â
0712.00 Â Â Â C Â Â Â Â Â KEY18 Â Â READEOPP2945 Â Â Â Â Â Â Â Â Â 24 Â Â Â Â Â Â
0713.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0714.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0715.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0716.00 B2 Â C Â Â Â Â Â COUNT Â Â IFGT 1 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0717.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDPROES2 Â Â PROEST Â Â Â Â Â Â Â Â Â Â Â
0718.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0719.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0720.00 Â Â Â * Prorate header(OPP294) prorated total to detail(OPP295) Â Â Â
0721.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0722.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMSL3 Â 92 Â Â Â Â Â Â Â Â
0723.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMPC3 103 Â Â Â Â Â Â Â Â
0724.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0725.00 Â Â Â * CHECK is the total of actual detail per vendor confirmation Â
0726.00 Â Â Â * total. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0727.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0728.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CHECK Â Â Â Â Â Â Â Â Â Â Â
0729.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0730.00 Â Â Â C Â Â Â Â Â KEY16 Â Â SETLLOPP295R Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0731.00 Â Â Â C Â Â Â Â Â KEY16 Â Â READEOPP295R Â Â Â Â Â Â Â Â Â 25 Â Â Â Â
0732.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0733.00 B2 Â C Â Â Â Â Â *IN25 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0734.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0735.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FDEFRT Â Â CUMSL3 Â Â Â Â Â Â Â Â Â Â
0736.00 Â Â Â C Â Â Â Â Â CUMSL3 Â Â MULT 100 Â Â Â WORK30 150 Â Â Â Â Â Â Â Â
0737.00 B3 Â C Â Â Â Â Â PROEST Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0738.00 Â Â Â C Â Â Â Â Â WORK30 Â Â DIV Â PROEST Â Â WORK32 113H Â Â Â Â
0739.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0740.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â WORK32 Â Â Â Â Â Â Â
0741.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0742.00 Â Â Â C Â Â Â Â Â WORK32 Â Â SUB Â CUMPC3 Â Â PCT Â Â Â Â Â Â Â Â
0743.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDWORK32 Â Â CUMPC3 Â Â Â Â Â Â Â
0744.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0745.00 Â Â Â C Â Â Â Â Â PCT Â Â Â DIV Â 100 Â Â Â PCTDEC Â Â Â Â Â Â Â
0746.00 Â Â Â C Â Â Â Â Â PCTDEC Â Â MULT PROACT Â Â FDAFRT Â Â H Â Â Â Â
0747.00 B3 Â C Â Â Â Â Â FDLBS Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â
0748.00 Â Â Â C Â Â Â Â Â FDAFRT Â Â DIV Â FDLBS Â Â FDAFLB Â Â H Â Â Â
0749.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0750.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FDAFLB Â Â Â Â Â
0751.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0752.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0753.00    * Set up and write product freight record      Â
0754.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0755.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPDIV# Â Â FEDIV# Â Â Â Â Â
0756.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPCPX# Â Â FECPX# Â Â Â Â Â Â Â
0757.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPPLT# Â Â FEPLT# Â Â Â Â Â Â Â
0758.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPSHP# Â Â FESHP# Â Â Â Â Â Â Â
0759.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVEND Â Â FEVEND Â Â Â Â Â Â Â
0760.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPFB# Â Â FEFB# Â Â Â Â Â Â Â
0761.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0762.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FECTYP Â Â Â Â Â Â Â
0763.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FECSTP Â Â Â Â Â Â Â
0764.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0765.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FDCODE Â Â FECODE Â Â Â Â Â Â Â
0766.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFDKEY# Â Â FECNF# Â Â Â Â Â Â Â
0767.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFDLBL Â Â FELBL Â Â Â Â Â Â Â
0768.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFDEXT# Â Â FEEXT# Â Â Â Â Â Â Â
0769.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFDAFRT Â Â FEAMNT Â Â Â Â Â Â Â
0770.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0771.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FDAFRT Â Â CHECK Â Â Â Â Â Â Â
0772.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0773.00 Â Â Â C Â Â Â Â Â KEY17 Â Â CHAINHFP100R Â Â Â Â Â Â Â 24 Â Â Â
0774.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0775.00 B3 Â C Â Â Â Â Â *IN24 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0776.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â PMPROC Â Â Â Â Â Â Â Â Â
0777.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0778.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0779.00 Â Â Â C Â Â Â Â Â KEY10A Â Â CHAINOPP301R Â Â Â Â Â Â Â 24 Â Â Â Â Â
0780.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0781.00 B3 Â C Â Â Â Â Â *IN24 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0782.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0783.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFGCO Â Â Â FECO Â Â Â Â Â Â Â Â
0784.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGGLLO Â Â FEGLLO Â Â Â Â Â Â Â
0785.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGGLAC Â Â FEGLAC Â Â Â Â Â Â Â
0786.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGTYPE Â Â FEGLTT Â Â Â Â Â Â Â
0787.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0788.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0789.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0790.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FECO Â Â Â Â Â Â Â Â
0791.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLLO Â Â Â Â Â Â Â
0792.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLAC Â Â Â Â Â
0793.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLTT Â Â Â Â Â
0794.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0795.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0796.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0797.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â DETACT Â Â Â Â Â
0798.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0799.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEOPP2912 Â Â Â Â Â Â Â Â Â Â
0800.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0801.00 Â Â Â C Â Â Â Â Â KEY16 Â Â READEOPP295R Â Â Â Â Â Â Â Â Â 25 Â Â Â Â Â Â
0802.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0803.00 Â Â Â * If there is a difference from the total, add the remainder to Â
0804.00 Â Â Â *the last entry. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0805.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0806.00 B3 Â C Â Â Â Â Â *IN25 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0807.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0808.00 Â Â Â C Â Â Â Â Â PROACT Â Â SUB Â CHECK Â Â CHECK Â Â Â Â Â Â Â Â Â Â Â Â
0809.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0810.00 B4 Â C Â Â Â Â Â CHECK Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0811.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0812.00 Â Â Â C Â Â Â Â Â KEY19 Â Â CHAINOPP2912 Â Â Â Â Â Â Â 26 Â Â Â Â Â Â Â Â
0813.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0814.00 B5 Â C Â Â Â Â Â *IN26 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0815.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0816.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â CHECK Â Â FEAMNT Â
0817.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â CHECK Â Â DETACT Â
0818.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATOPP2912 Â Â Â Â Â Â
0819.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0820.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
0821.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0822.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
0823.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
0824.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
0825.00 Â Â Â C Â Â Â Â Â KEY15 Â Â READEOPP29411 Â Â Â Â Â Â Â Â 23 Â Â
0826.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0827.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0828.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPAFRT Â Â TOTACT Â 92 Â Â Â Â Â
0829.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â TOTACT Â Â Â Â Â Â Â
0830.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0831.00 Â Â Â C Â Â Â Â Â TOTACT Â Â SUB Â DETACT Â Â CHECK Â Â Â Â Â Â Â Â
0832.00 B1 Â C Â Â Â Â Â CHECK Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0833.00 Â Â Â C Â Â Â Â Â KEY19 Â Â CHAINOPP2912 Â Â Â Â Â Â Â 26 Â Â Â Â
0834.00 B2 Â C Â Â Â Â Â *IN26 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0835.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â CHECK Â Â FEAMNT Â Â Â Â Â Â Â Â
0836.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â CHECK Â Â DETACT Â Â Â Â Â Â Â Â
0837.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATOPP2912 Â Â Â Â Â Â Â Â Â Â Â Â
0838.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0839.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0840.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0841.00 B1 Â C Â Â Â Â Â *IN83 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0842.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE HLDFRT Â Â FPEFRT Â Â Â Â Â Â Â Â
0843.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE HLDCHG Â Â FPECHG Â Â Â Â Â Â Â Â Â Â Â Â
0844.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0845.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0846.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0847.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0848.00 Â Â Â **************************
0849.00 Â Â Â C Â Â Â Â Â CHARGE Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0850.00 Â Â Â **************************
0851.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0852.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN40 Â Â Â Â Â Â Â
0853.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00115 Â Â Â Â Â Â Â Â Â Â Â
0854.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN40 Â Â Â Â Â Â Â
0855.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN41 Â Â Â Â Â Â Â
0856.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN42 Â Â Â Â Â Â Â
0857.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN16 Â 30 Â Â Â Â Â
0858.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELTYP Â Â Â Â Â Â Â
0859.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0860.00 Â Â Â C Â Â Â Â Â KEY1 Â Â Â SETLLOPP292R Â Â Â Â Â Â Â Â Â Â Â
0861.00 Â Â Â C Â Â Â Â Â KEY1 Â Â Â READEOPP292R Â Â Â Â Â Â Â Â Â 41
0862.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0863.00 Â Â Â * Load Charge Types SFL Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0864.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0865.00 B1 Â C Â Â Â Â Â *IN41 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0866.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0867.00 B2 Â C Â Â Â Â Â *IN42 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
0868.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN42 Â Â Â Â Â Â
0869.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0870.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0871.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN16 Â Â Â Â Â Â Â
0872.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00116 Â Â Â Â Â Â Â Â Â Â
0873.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0874.00 Â Â Â C Â Â Â Â Â KEY1 Â Â Â READEOPP292R Â Â Â Â Â Â Â Â Â 41 Â
0875.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0876.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0877.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0878.00    * 1st loop                      Â
0879.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0880.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0881.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0882.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0883.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00114 Â Â Â Â Â Â Â Â Â Â
0884.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00115 Â Â Â Â Â Â Â Â Â Â
0885.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0886.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
0887.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0888.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0889.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN43 Â Â Â Â Â Â Â
0890.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0891.00 Â Â Â * Records exist in SFL to issue READC Â Â Â Â Â Â Â Â Â
0892.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0893.00 B3 Â C Â Â Â Â Â *IN42 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
0894.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00116 Â Â Â Â Â Â Â Â 43 Â
0895.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0896.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0897.00    * Process SFL request                  Â
0898.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0899.00 B3 Â C Â Â Â Â Â *IN43 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0900.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0901.00 B4 Â C Â Â Â Â Â SELTYP Â Â IFEQ '1' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0902.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0903.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FYDESC Â Â TYPDSC Â Â Â Â Â Â Â Â
0904.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0905.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â Â Â Â Â
0906.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â
0907.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â TYPDSC Â Â Â Â Â Â
0908.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â
0909.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0910.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN44 Â Â Â Â Â Â
0911.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00117 Â Â Â Â Â Â Â Â Â Â
0912.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN44 Â Â Â Â Â Â
0913.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN45 Â Â Â Â Â Â
0914.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN46 Â Â Â Â Â Â
0915.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN18 Â 30 Â Â Â Â
0916.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELSUB Â Â Â Â Â Â
0917.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0918.00 Â Â Â C Â Â Â Â Â KEY8 Â Â Â SETLLOPP293R Â Â Â Â Â Â Â Â Â Â Â
0919.00 Â Â Â C Â Â Â Â Â KEY8 Â Â Â READEOPP293R Â Â Â Â Â Â Â Â Â 45 Â
0920.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0921.00 Â Â Â * Load Charge Sub-Type SFL Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0922.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0923.00 B5 Â C Â Â Â Â Â *IN45 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0924.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0925.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0926.00 B6 Â C Â Â Â Â Â *IN46 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0927.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN21 Â Â Â Â Â Â RI Â Â Â Â
0928.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN46 Â Â Â Â Â Â SFLDSP Â Â
0929.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0930.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0931.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN18 Â Â Â Â Â Â Â Â Â Â Â
0932.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00118 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0933.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0934.00 Â Â Â C Â Â Â Â Â KEY8 Â Â Â READEOPP293R Â Â Â Â Â Â Â Â Â 45 Â Â Â Â Â Â
0935.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0936.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0937.00    * 2nd loop                            Â
0938.00 B5 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0939.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0940.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0941.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00114 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0942.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00117 Â Â Â Â Â Â Â Â Â
0943.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0944.00 B6 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â
0945.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â
0946.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0947.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN47 Â Â Â Â Â
0948.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0949.00 Â Â Â * Records exist in SFL to issue READC Â Â Â Â Â Â Â
0950.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0951.00 B7 Â C Â Â Â Â Â *IN46 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
0952.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00118 Â Â Â Â Â Â Â Â 47 Â
0953.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0954.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0955.00    * Process SFL request                 Â
0956.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0957.00 B7 Â C Â Â Â Â Â *IN47 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
0958.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0959.00 B8 Â C Â Â Â Â Â SELSUB Â Â IFEQ '1' Â Â Â Â Â Â Â Â Â Â Â Â Â
0960.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0961.00 Â Â Â C Â Â Â Â Â LOOK1 Â Â LOKUPCHG,1 Â Â Â Â Â Â Â Â Â Â 21 Â Â Â Â
0962.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0963.00 B9 Â C Â Â Â Â Â *IN21 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0964.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0965.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FSCTYP Â Â FECTYP Â Â Â Â Â Â Â Â Â Â
0966.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FSCSTP Â Â FECSTP Â Â Â Â Â Â Â Â Â Â
0967.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0968.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FSDESC Â Â STPDSC Â Â Â Â Â Â Â Â Â Â
0969.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â Â Â Â Â Â Â
0970.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â
0971.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â STPDSC Â Â Â Â Â Â
0972.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â Â
0973.00    *Init display field                  Â
0974.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FEAMNT Â Â Â Â Â Â
0975.00    * 3rd loop                      Â
0976.00 B10 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0977.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0978.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0979.00    * Enter Charge                 Â
0980.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00119 Â Â Â Â Â Â Â
0981.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0982.00 B11 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â
0983.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
0984.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0985.00 B12 Â C Â Â Â Â Â FEAMNT Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â
0986.00 Â Â Â * SFLDSP Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0987.00 B13 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â
0988.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â Â Â
0989.00 E13 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
0990.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0991.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â
0992.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SA Â Â Â Â Â Â Â
0993.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0994.00 Â Â Â * Put in array for edit purposes on later adds Â
0995.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0996.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â A Â Â Â Â Â Â Â Â Â Â Â
0997.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELFECTYP Â Â CHG,A Â Â Â Â Â Â Â Â Â
0998.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FECSTP Â Â CHG,A Â Â Â Â Â Â Â Â Â
0999.00 Â Â Â * SFLEND Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1000.00 B13 Â C Â Â Â Â Â *IN55 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1001.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN55 Â Â Â Â Â Â Â Â Â
1002.00 E13 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1003.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1004.00    * Add to totals                      Â
1005.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1006.00 B13 Â C Â Â Â Â Â FECTYP Â Â IFEQ 'A' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1007.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPACHG Â Â Â Â Â Â Â Â
1008.00 X13 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1009.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPMCHG Â Â Â Â Â Â Â Â
1010.00 E13 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1011.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1012.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â TOTACT Â Â Â Â Â Â Â Â
1013.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1014.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1015.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1016.00 E12 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1017.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1018.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1019.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1020.00 Â Â Â * If loop was ended because a charge was added, leave, else
1021.00 Â Â Â * reset *IN12(F12) for previous screen. Â Â Â Â Â Â Â Â Â Â
1022.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1023.00 B10 Â C Â Â Â Â Â *IN12 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â
1024.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1025.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â
1026.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1027.00 X10 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
1028.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1029.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â
1030.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1031.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1032.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1033.00 X9 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
1034.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1035.00 Â Â Â * SFLMSG Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1036.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1037.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN22 Â Â Â Â Â
1038.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1039.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1040.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1041.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1042.00 Â Â Â C Â Â Â Â Â *IN21 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1043.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELSUB Â Â Â Â Â Â Â
1044.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1045.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1046.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATFPD00118 Â Â Â Â Â Â Â Â Â Â Â
1047.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1048.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN21 Â Â Â Â Â Â RI
1049.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1050.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00118 Â Â Â Â Â Â Â Â 47 Â Â Â
1051.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1052.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1053.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1054.00 B7 Â C Â Â Â Â Â *IN47 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1055.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1056.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1057.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1058.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1059.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1060.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1061.00 Â Â Â * If loop was ended because a charge was added, leave, else
1062.00 Â Â Â * reset *IN12(F12) for previous screen. Â Â Â Â Â Â Â Â Â Â
1063.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1064.00 B5 Â C Â Â Â Â Â *IN12 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1065.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1066.00 X5 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1067.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â
1068.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1069.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1070.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1071.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1072.00 Â Â Â C Â Â Â Â Â RRN16 Â Â CHAINFPD00116 Â Â Â Â Â Â 40 Â Â Â
1073.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELTYP Â Â Â Â Â Â Â
1074.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATFPD00116 Â Â Â Â Â Â Â Â Â Â Â
1075.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1076.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00116 Â Â Â Â Â Â Â Â 43 Â
1077.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1078.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1079.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1080.00 B3 Â C Â Â Â Â Â *IN43 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1081.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1082.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1083.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1084.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1085.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1086.00    * Reset                         Â
1087.00 B1 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1088.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â
1089.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1090.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1091.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1092.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1093.00 Â Â Â **************************
1094.00 Â Â Â C Â Â Â Â Â CHGVND Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1095.00 Â Â Â **************************
1096.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1097.00    * Change Vendor                         Â
1098.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1099.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMVNNM Â Â BFRNAM Â Â Â Â Â Â Â Â Â Â
1100.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMVNA1 Â Â BFRADR Â Â Â Â Â Â Â Â Â Â
1101.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMCITY Â Â BFRCTY Â Â Â Â Â Â Â Â Â Â
1102.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMSTAT Â Â BFRSTE Â Â Â Â Â Â Â Â Â Â
1103.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMZIP1 Â Â BFRZIP Â Â Â Â Â Â Â Â Â Â
1104.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1105.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD*ZERO Â Â AFTVND Â Â Â Â Â Â Â Â Â Â
1106.00    * Loop                            Â
1107.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1108.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1109.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1110.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN65 Â Â Â Â Â Â Â
1111.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1112.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00108 Â Â Â Â Â Â Â Â Â Â Â
1113.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1114.00    * F3, F12 not used                   Â
1115.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1116.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
1117.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
1118.00    *F4=Prompt                      Â
1119.00 B3 Â C Â Â Â Â Â *IN04 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â
1120.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1121.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD*ZERO Â Â LDVEND Â Â Â Â Â Â
1122.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1123.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â OUT Â LDA Â Â Â Â Â Â Â Â Â Â Â Â
1124.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'OPR555 Â ' Â Â Â Â Â Â Â Â Â
1125.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â IN Â LDA Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1126.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1127.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDLDVEND Â Â AFTVND Â Â Â Â Â Â Â Â
1128.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1129.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1130.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1131.00 B4 Â C Â Â Â Â Â AFTVND Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1132.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1133.00 Â Â Â C Â Â Â Â Â AFTVND Â Â CHAINAPP400R Â Â Â Â Â Â Â 66 Â Â Â Â Â
1134.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1135.00 B5 Â C Â Â Â Â Â *IN66 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1136.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1137.00 B6 Â C Â Â Â Â Â FPVEND Â Â IFEQ AFTVND Â Â Â Â Â Â Â Â Â Â Â Â Â
1138.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN67 Â Â Â Â Â Â Â Â
1139.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1140.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1141.00    * Before vendor not equal to after vendor        Â
1142.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1143.00 B6 Â C Â Â Â Â Â *IN67 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1144.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1145.00 Â Â Â * See if new vendor is not already in batch w/ this shipment# Â Â
1146.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1147.00 Â Â Â C Â Â Â Â Â KEY5 Â Â Â SETLLOPP290R Â Â Â Â Â Â Â Â Â 69 Â Â Â Â Â Â
1148.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1149.00 B7 Â C Â Â Â Â Â *IN69 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1150.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1151.00 Â Â Â * See if vendor is already on shipment, ok if he is but tell user
1152.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1153.00 Â Â Â C Â Â Â Â Â KEY6 Â Â Â SETLLOPP294R Â Â Â Â Â Â Â Â Â 68 Â Â Â Â Â
1154.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1155.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMVNNM Â Â AFTNAM Â Â Â Â Â Â Â Â Â Â Â
1156.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMVNA1 Â Â AFTADR Â Â Â Â Â Â Â Â Â Â Â
1157.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMCITY Â Â AFTCTY Â Â Â Â Â Â Â Â Â Â Â
1158.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMSTAT Â Â AFTSTE Â Â Â Â Â Â Â Â Â Â Â
1159.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMZIP1 Â Â AFTZIP Â Â Â Â Â Â Â Â Â Â Â
1160.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1161.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN65 Â Â Â Â Â Â Â Â Â Â Â Â
1162.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1163.00 Â Â Â * If vendor is already on, turn off error indidcator, and write Â
1164.00 Â Â Â * screen so fields are updated, then turn it back on so ERRMSG Â Â
1165.00 Â Â Â * will be sent during EXFMT below. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1166.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1167.00 B8 Â C Â Â Â Â Â *IN68 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1168.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN68 Â Â Â Â Â Â Â Â Â Â Â Â
1169.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00108 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1170.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN68 Â Â Â Â Â Â Â Â Â Â Â Â
1171.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1172.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1173.00    * "Are you sure?" display                    Â
1174.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1175.00 B8 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1176.00 Â Â Â C Â Â Â Â Â *IN08 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1177.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1178.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1179.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00108 Â Â Â
1180.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1181.00    * F3, F12 not used           Â
1182.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1183.00 B9 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â
1184.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â
1185.00 Â Â Â *Yes I Am! Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1186.00 B10 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â
1187.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1188.00    * SETLL & READE freight header record(s) and put in new vendor  Â
1189.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1190.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â SETLLOPP294R Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1191.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â READEOPP294R Â Â Â Â Â Â Â Â Â 70 Â Â Â Â Â Â
1192.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1193.00 B11 Â C Â Â Â Â Â *IN70 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1194.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDAFTVND Â Â FHVEND Â Â Â Â Â Â Â Â Â Â Â Â
1195.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR TSTAMP Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1196.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATOPP294R Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1197.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â READEOPP294R Â Â Â Â Â Â Â Â Â 70 Â Â Â Â
1198.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1199.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1200.00 Â Â Â * Update Shipment if primary vendor was changed. Â Â Â Â Â Â Â
1201.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1202.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â CHAINOPP910R Â Â Â Â Â Â Â 70 Â Â Â Â Â Â
1203.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1204.00 B11 Â C Â Â Â Â Â *IN70 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1205.00 Â Â Â C Â Â Â Â Â SICARR Â Â ANDEQFPVEND Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1206.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1207.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDAFTVND Â Â SICARR Â Â Â
1208.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR TSTAMP Â Â Â Â Â Â Â Â
1209.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATOPP910R Â Â Â Â Â Â Â
1210.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1211.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1212.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1213.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â
1214.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1215.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1216.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1217.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1218.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1219.00    * If loop was ended because vendor was changed, leave, else   Â
1220.00 Â Â Â * reset *IN12(F12) for previous screen. Â Â Â Â Â Â Â Â Â Â Â Â Â
1221.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1222.00 B8 Â C Â Â Â Â Â *IN12 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1223.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1224.00 X8 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â
1225.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â
1226.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1227.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1228.00 X7 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â
1229.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1230.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00109 Â Â Â Â Â Â Â Â
1231.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1232.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1233.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1234.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1235.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1236.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1237.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1238.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1239.00    * Reset                 Â
1240.00 B1 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â
1241.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12
1242.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1243.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1244.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1245.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1246.00 Â Â Â **************************
1247.00 Â Â Â C Â Â Â Â Â DEL291 Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1248.00 Â Â Â **************************
1249.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1250.00    * Delete invoice detail                     Â
1251.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1252.00    * Access. and Misc. charges              Â
1253.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1254.00 Â Â Â C Â Â Â Â Â KEY13 Â Â SETLLOPP291R Â Â Â Â Â Â Â Â Â Â Â
1255.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â Â Â Â 27 Â
1256.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1257.00 B1 Â C Â Â Â Â Â *IN27 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
1258.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â DELETOPP291R Â Â Â Â Â Â Â Â Â Â Â
1259.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â Â Â Â 27 Â
1260.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1261.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1262.00    * Freight charges                    Â
1263.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1264.00 Â Â Â C Â Â Â Â Â KEY13 Â Â SETLLOPP2912 Â Â Â Â Â Â Â Â Â Â Â Â
1265.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP2912 Â Â Â Â Â Â Â Â Â 27 Â Â
1266.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1267.00 B1 Â C Â Â Â Â Â *IN27 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1268.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â DELETOPP2912 Â Â Â Â Â Â Â Â Â Â Â Â
1269.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP2912 Â Â Â Â Â Â Â Â Â 27 Â Â Â Â Â Â
1270.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1271.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1272.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1273.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1274.00 Â Â Â **************************
1275.00 Â Â Â C Â Â Â Â Â DELETE Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1276.00 Â Â Â **************************
1277.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1278.00    * Reset                  Â
1279.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN08 Â
1280.00    * Delete an invoice            Â
1281.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1282.00 Â Â Â * Load charges from OPP291 Â Â Â Â Â Â Â Â Â
1283.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1284.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â
1285.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00121 Â Â Â Â Â
1286.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â
1287.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN55 Â Â Â Â Â Â Â
1288.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN56 Â Â Â Â Â Â Â
1289.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN22 Â 30 Â Â Â Â
1290.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1291.00 Â Â Â C Â Â Â Â Â KEY13 Â Â SETLLOPP291R Â Â Â Â Â Â Â Â Â Â Â
1292.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â N Â Â 55 Â
1293.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1294.00    * Load Charges associated with invoice        Â
1295.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1296.00 B1 Â C Â Â Â Â Â *IN55 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â
1297.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1298.00 B2 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â
1299.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â Â Â
1300.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1301.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1302.00 Â Â Â C Â Â Â Â Â KEY10 Â Â CHAINOPP292R Â Â Â Â Â Â Â 29
1303.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1304.00 B2 Â C Â Â Â Â Â *IN29 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â
1305.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FYDESC Â Â Â Â Â
1306.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' FYDESC Â Â Â Â Â
1307.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1308.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1309.00 Â Â Â C Â Â Â Â Â KEY14 Â Â CHAINOPP293R Â Â Â Â Â Â Â 29 Â Â
1310.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1311.00 B2 Â C Â Â Â Â Â *IN29 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â
1312.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FSDESC Â Â Â Â Â
1313.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' FSDESC Â Â Â Â Â
1314.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1315.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1316.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN22 Â Â Â Â Â Â Â Â Â
1317.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00122 Â Â Â Â Â Â Â Â Â Â Â Â Â
1318.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1319.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â Â Â Â 55 Â Â Â
1320.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1321.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1322.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1323.00    * Get header record                  Â
1324.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1325.00 Â Â Â C Â Â Â Â Â KEY12 Â Â CHAINOPP290R Â Â Â Â Â Â Â 26 Â Â Â
1326.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1327.00 B1 Â C Â Â Â Â Â *IN26 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
1328.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1329.00    * Screen dates                    Â
1330.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1331.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVIDT Â Â FVIDT Â Â Â Â Â Â Â
1332.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FVIDT Â Â FVIDT Â Â Â Â Â Â Â Â Â
1333.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPIRDT Â Â FIRDT Â Â Â Â Â Â Â Â Â
1334.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FIRDT Â Â FIRDT Â Â Â Â Â Â Â Â Â
1335.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPIDDT Â Â FIDDT Â Â Â Â Â Â Â Â Â
1336.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FIDDT Â Â FIDDT Â Â Â Â Â Â Â Â Â
1337.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1338.00    * "Are you sure?" screen                  Â
1339.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1340.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00110 Â Â Â Â Â Â Â Â Â Â Â Â Â
1341.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00123 Â Â Â Â Â
1342.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1343.00 B2 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â
1344.00 Â Â Â C Â Â Â Â Â *IN08 Â Â ANDEQ*OFF Â Â Â Â Â Â Â
1345.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â
1346.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1347.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00121 Â Â Â Â Â
1348.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1349.00 B3 Â C Â Â Â Â Â *IN12 Â Â IFEQ *OFF Â Â Â Â Â Â Â
1350.00 Â Â Â C Â Â Â Â Â *IN08 Â Â ANDEQ*ON Â Â Â Â Â Â
1351.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1352.00    * Delete invoice detail         Â
1353.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1354.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR DEL291 Â Â Â Â Â
1355.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1356.00 Â Â Â * Delete Invoice header. Â Â Â Â Â Â Â Â Â
1357.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1358.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â DELETOPP290R Â Â Â Â
1359.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1360.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1361.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1362.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1363.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1364.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1365.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1366.00 Â Â Â **************************
1367.00 Â Â Â C Â Â Â Â Â DLTCHG Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1368.00 Â Â Â **************************
1369.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1370.00 Â Â Â * Delete a charge from an invoice. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1371.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1372.00    * Set up SFL fields to FPD00120 heading fields          Â
1373.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1374.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FYDESC Â Â TYPDSC Â Â Â Â Â Â Â Â Â Â Â Â
1375.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1376.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â Â Â Â Â Â Â Â Â
1377.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â
1378.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â TYPDSC Â Â Â Â Â Â
1379.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â Â
1380.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1381.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FSDESC Â Â STPDSC Â Â Â Â Â Â
1382.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1383.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â Â Â
1384.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â
1385.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â STPDSC Â Â Â Â Â Â
1386.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â
1387.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1388.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â
1389.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â
1390.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1391.00    * Confirm Delete               Â
1392.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1393.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00114 Â Â Â Â Â Â
1394.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00120 Â Â Â Â Â Â
1395.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1396.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â
1397.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â
1398.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1399.00    * Sub from totals              Â
1400.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1401.00 B3 Â C Â Â Â Â Â FECTYP Â Â IFEQ 'A' Â Â Â Â Â Â Â Â
1402.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â FEAMNT Â Â FPACHG Â Â
1403.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
1404.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â FEAMNT Â Â FPMCHG Â Â Â
1405.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1406.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1407.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â FEAMNT Â Â TOTACT Â Â Â
1408.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1409.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â
1410.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1411.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1412.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1413.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1414.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1415.00 Â Â Â **************************
1416.00 Â Â Â C Â Â Â Â Â EDIT Â Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1417.00 Â Â Â **************************
1418.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1419.00    * Edit an invoice                        Â
1420.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1421.00 Â Â Â C Â Â Â Â Â KEY12 Â Â CHAINOPP290R Â Â Â Â Â Â Â 26 Â Â Â Â Â Â Â Â
1422.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1423.00 B1 Â C Â Â Â Â Â *IN26 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1424.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1425.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â CHAINOPP910R Â Â Â Â Â Â N30 Â Â Â Â
1426.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1427.00 B2 Â C Â Â Â Â Â *IN30 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1428.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1429.00    * Pallets In/Out                    Â
1430.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1431.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDSIPLIN Â Â PALIN Â Â Â Â
1432.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDSIPLOU Â Â PALOUT Â Â Â
1433.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1434.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â
1435.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1436.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â PALIN Â Â Â Â
1437.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â PALOUT Â Â Â
1438.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1439.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1440.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1441.00 Â Â Â * Display attribute for "UPDATE" Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1442.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1443.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN28 Â Â Â Â Â Â Â Â Â Â Â Â
1444.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1445.00 Â Â Â * Allow user to enter Freight, Access, and Miscellaneous Charges
1446.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1447.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN08 Â Â Â Â Â Â Â Â Â Â Â Â
1448.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1449.00    * Load Charge Detail              Â
1450.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1451.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR LODCHG Â Â Â Â Â Â Â Â
1452.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1453.00    * Screen dates                 Â
1454.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1455.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVIDT Â Â FVIDT Â Â Â
1456.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FVIDT Â Â FVIDT Â Â Â
1457.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPIRDT Â Â FIRDT Â Â Â
1458.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FIRDT Â Â FIRDT Â Â Â Â Â
1459.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPIDDT Â Â FIDDT Â Â Â Â Â
1460.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FIDDT Â Â FIDDT Â Â Â Â Â
1461.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1462.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPECHG Â Â TOTEST Â Â Â Â
1463.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPEFRT Â Â TOTEST Â Â Â Â
1464.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1465.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPMCHG Â Â TOTACT Â Â Â Â
1466.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â TOTACT Â Â Â Â
1467.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPAFRT Â Â TOTACT Â
1468.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1469.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPFB# Â Â BFRFB# Â
1470.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1471.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00110 Â Â Â Â Â
1472.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00111 Â Â Â Â Â
1473.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1474.00 B2 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â
1475.00 Â Â Â C Â Â Â Â Â *IN08 Â Â ANDEQ*OFF Â Â Â Â Â Â Â
1476.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â
1477.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1478.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD001CA Â Â Â Â
1479.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1480.00    * F3, F12 not used            Â
1481.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1482.00 B3 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â
1483.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â
1484.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1485.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR EDTDAT Â Â Â Â Â Â Â Â Â
1486.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1487.00 Â Â Â * Dates entered OK Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1488.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1489.00 B4 Â C Â Â Â Â Â *IN15 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â
1490.00    * Vendor invoice date               Â
1490.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFVIDT Â Â $CDATE Â Â Â Â
1490.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â Â Â
1490.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â Â Â
1490.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â Â
1490.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â Â
1490.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â Â
1490.08 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPVIDT Â Â Â
1490.09 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1490.10 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â FPVIDT Â Â Â
1490.11 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â
1490.12 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1491.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FVIDT Â Â INFLD Â Â Â
1492.00 LAT1 C*** Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â Â
1493.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPVIDT Â Â
1493.01 Â Â Â C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1494.00    * Invoice receipt date            Â
1494.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFIRDT Â Â $CDATE Â Â
1494.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â
1494.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â
1494.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â
1494.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â
1494.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â
1494.07 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPIRDT Â Â
1494.09 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
1494.10 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â FPIRDT Â Â
1494.11 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â
1494.12 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1495.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FIRDT Â Â INFLD Â Â
1496.00 LAT1 C*** Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â Â
1497.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPIRDT Â Â
1498.00    * Invoice Due date                Â
1498.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFIDDT Â Â $CDATE Â Â Â Â
1498.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â Â Â
1498.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â Â Â
1498.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â Â Â Â
1498.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â Â Â Â
1498.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â Â Â Â
1498.07 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPIDDT Â Â Â Â
1498.08 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
1498.11 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â FPIDDT Â
1498.12 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â
1498.13 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1499.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FIDDT Â Â INFLD Â Â
1500.00 LAT1 C*** Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â
1501.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPIDDT Â
1502.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1503.00    * Vendor invoice number must be entered   Â
1504.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1505.00 B5 Â C Â Â Â Â Â FPFB# Â Â IFEQ *BLANKS Â Â Â Â Â Â Â
1506.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN13 Â Â Â
1507.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
1508.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1509.00 Â Â Â * Prepaid flag can only be blank or 'Y'. Â Â Â
1510.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1511.00 B5 Â C Â Â Â Â Â FPPREP Â Â IFNE ' ' Â Â Â Â Â Â Â Â Â
1512.00 Â Â Â C Â Â Â Â Â FPPREP Â Â ANDNE'Y' Â Â Â Â Â Â Â Â Â
1513.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN35 Â Â Â
1514.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1515.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1516.00 B5 Â C Â Â Â Â Â *IN35 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â
1517.00 Â Â Â C Â Â Â Â Â FPPREP Â Â ANDNE' ' Â Â Â Â Â Â Â Â Â Â Â
1518.00 Â Â Â C Â Â Â Â Â FPPCK# Â Â ANDLE0 Â Â Â Â Â Â Â Â Â Â Â Â
1519.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN36 Â Â Â Â Â
1520.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1521.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1522.00 B5 Â C Â Â Â Â Â FPPREP Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â
1523.00 Â Â Â C Â Â Â Â Â FPPCK# Â Â ANDNE0 Â Â Â Â Â Â Â Â Â Â
1524.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN37 Â Â Â
1525.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1526.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1527.00 B5 Â C Â Â Â Â Â *IN13 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â
1528.00 Â Â Â C Â Â Â Â Â *IN35 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
1529.00 Â Â Â C Â Â Â Â Â *IN36 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
1530.00 Â Â Â C Â Â Â Â Â *IN37 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
1531.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1532.00    * Make sure vendor invoice number does not already exist   Â
1533.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1534.00 B6 Â C Â Â Â Â Â FPFB# Â Â IFNE BFRFB# Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1535.00 Â Â Â C Â Â Â Â Â KEY9 Â Â Â SETLLOPP2904 Â Â Â Â Â Â Â Â Â 14 Â Â Â Â
1536.00 X6 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1537.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN14 Â Â Â Â Â Â Â Â Â Â
1538.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1539.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1540.00 B6 Â C Â Â Â Â Â *IN14 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1541.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1542.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPMCHG Â Â TOTACT Â Â Â Â Â Â
1543.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â TOTACT Â Â Â Â Â Â
1544.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPAFRT Â Â TOTACT Â Â Â Â Â Â
1545.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1546.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â Â Â Â Â Â Â Â
1547.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1548.00    * F6 - Add additional charges to check reqeust    Â
1549.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1550.00 B7 Â C Â Â Â Â Â *IN06 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â
1551.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1552.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR CHARGE Â Â Â Â Â Â Â
1553.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1554.00 X7 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1555.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1556.00 Â Â Â * Update OPP290 and OPP291 records. Â Â Â Â Â Â
1557.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1558.00 B8 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â
1559.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1560.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR TSTAMP Â Â
1561.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1562.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATOPP290R Â Â
1563.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1564.00 Â Â Â * Delete invoice detail then re-add Â
1565.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1566.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR DEL291 Â Â
1567.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1568.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CLEAROPP291R Â Â
1569.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1570.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR ADRCDS Â Â Â
1571.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1572.00 X8 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â
1573.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1574.00 Â Â Â * Process subfile request(s) Â Â Â Â Â
1575.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1576.00 B9 Â C Â Â Â Â Â RRNSA Â Â IFNE 0 Â Â Â Â Â
1577.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1578.00 Â Â Â * Keep a mirrored subfile of FPD001SA called FPD001SB. Â This will
1579.00 Â Â Â * will contain records that are not deleted without having to re-
1580.00 Â Â Â * load SFL from disk. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1581.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1582.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â Â Â Â Â Â Â
1583.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CB Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1584.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â Â Â Â Â Â Â
1585.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSB Â 30 Â Â Â Â Â Â Â Â Â Â
1586.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1587.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â RRNSA Â Â Â Â Â
1588.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1589.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â
1590.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1591.00 B10 Â C Â Â Â Â Â *IN57 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â
1592.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1593.00 B11 Â C Â Â Â Â Â SELCHG Â Â IFEQ '2' Â Â Â Â Â Â Â Â Â Â Â
1594.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR EDTCHG Â Â Â Â Â Â Â Â Â Â
1595.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1596.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1597.00 B11 Â C Â Â Â Â Â SELCHG Â Â IFEQ '4' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1598.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR DLTCHG Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1599.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1600.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1601.00    * If either of the subrotuines were ended with a cancel, stop  Â
1602.00 Â Â Â * processing subfile requests and continue to load mirror subfile
1603.00 Â Â Â * to load from after first *IN57 loop has ended. Â Â Â Â Â Â Â Â Â
1604.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1605.00 B11 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â
1606.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1607.00 B12 Â C Â Â Â Â Â *IN57 Â Â DOWEQ*OFF Â Â Â Â Â Â
1608.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1609.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG
1610.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â
1611.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SB Â Â Â Â
1612.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â
1613.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â
1614.00    * Reset                      Â
1615.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â
1616.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1617.00 E12 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1618.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1619.00 X11 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
1620.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1621.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1622.00 Â Â Â * Put record in mirror SFL if F12 was not used and not a delete Â
1623.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1624.00 B12 Â C Â Â Â Â Â SELCHG Â Â IFNE '4' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1625.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG Â Â Â Â Â Â Â Â Â Â Â Â
1626.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â Â Â Â Â Â Â Â Â Â Â Â
1627.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SB Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1628.00 E12 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1629.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1630.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1631.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1632.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â Â Â Â
1633.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â Â Â
1634.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1635.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1636.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1637.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1638.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1639.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â Â
1640.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â Â Â Â Â Â Â Â Â Â
1641.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â Â Â
1642.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN55 Â Â Â Â Â Â Â Â
1643.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN56 Â Â Â Â Â Â Â Â
1644.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â
1645.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1646.00 Â Â Â * Reload SFL FPD001SA from records copied to mirrored SFL
1647.00    * FPD001SB if not empty                 Â
1648.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1649.00 B9 Â C Â Â Â Â Â RRNSB Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â
1650.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1651.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â RRNSB Â Â Â Â
1652.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â A Â Â Â Â Â Â
1653.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1654.00 Â Â Â C Â Â Â Â Â RRNSB Â Â CHAINFPD001SB Â Â Â Â Â Â 55
1655.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1656.00 B10 Â C Â Â Â Â Â *IN55 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â
1657.00 Â Â Â * SFLDSP Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1658.00 B11 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1659.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â Â Â Â Â Â Â Â
1660.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1661.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1662.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â Â
1663.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SA Â Â Â Â Â Â Â Â Â Â Â Â
1664.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1665.00    * Put back in edit arrary also              Â
1666.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1667.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â A Â Â Â Â Â Â Â Â Â Â
1668.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELFECTYP Â Â CHG,A Â Â Â Â Â Â Â Â
1669.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FECSTP Â Â CHG,A Â Â Â Â Â Â Â Â
1670.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1671.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â Â Â Â Â Â Â Â
1672.00 Â Â Â C Â Â Â Â Â RRNSB Â Â CHAINFPD001SB Â Â Â Â Â Â 55 Â Â Â Â
1673.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1674.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1675.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1676.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00111 Â Â Â Â Â Â Â Â Â Â Â
1677.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1678.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1679.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1680.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1681.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1682.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1683.00 Â Â Â * If any errors exist, do not end loop because of F8 Â Â
1684.00 B3 Â C Â Â Â Â Â *IN13 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
1685.00 Â Â Â C Â Â Â Â Â *IN14 Â Â OREQ *ON Â Â Â Â Â Â Â
1686.00 Â Â Â C Â Â Â Â Â *IN15 Â Â OREQ *ON Â Â Â Â Â Â Â
1687.00 Â Â Â C Â Â Â Â Â *IN35 Â Â OREQ *ON Â Â Â Â Â Â Â
1688.00 Â Â Â C Â Â Â Â Â *IN36 Â Â OREQ *ON Â Â Â Â Â Â Â
1689.00 Â Â Â C Â Â Â Â Â *IN37 Â Â OREQ *ON Â Â Â Â Â Â Â
1690.00 B4 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â
1691.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN08 Â
1692.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1693.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1694.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1695.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1696.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1697.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1698.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1699.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1700.00 Â Â Â **************************
1701.00 Â Â Â C Â Â Â Â Â EDTCHG Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1702.00 Â Â Â **************************
1703.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1704.00    * Set up SFL fields to FPD00119 heading fields          Â
1705.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1706.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FYDESC Â Â TYPDSC Â Â Â Â Â Â Â Â Â Â Â Â
1707.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1708.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â Â Â Â Â Â Â Â Â
1709.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1710.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â TYPDSC Â Â Â Â Â Â Â Â Â Â Â Â
1711.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â Â Â Â Â Â Â
1712.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1713.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FSDESC Â Â STPDSC Â Â Â Â Â Â
1714.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1715.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â Â Â
1716.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â
1717.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â STPDSC Â Â Â Â Â Â
1718.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â Â
1719.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1720.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FEAMNT Â Â BFRAMT Â Â Â Â Â Â
1721.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1722.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â
1723.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â
1724.00    * Enter Charge                Â
1725.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00114 Â Â Â Â Â Â
1726.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00119 Â Â Â Â Â Â
1727.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1728.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â
1729.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â
1730.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1731.00 B3 Â C Â Â Â Â Â FEAMNT Â Â IFNE 0 Â Â Â Â Â Â Â Â Â
1732.00 Â Â Â * SFLDSP Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1733.00 B4 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â
1734.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â
1735.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
1736.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1737.00    * Add to totals               Â
1738.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1739.00 B4 Â C Â Â Â Â Â FECTYP Â Â IFEQ 'A' Â Â Â Â Â Â Â Â Â
1740.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â BFRAMT Â Â FPACHG Â Â Â
1741.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPACHG Â Â Â
1742.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1743.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â BFRAMT Â Â FPMCHG Â Â Â
1744.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPMCHG Â Â Â
1745.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1746.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1747.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â BFRAMT Â Â TOTACT Â Â Â
1748.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â TOTACT Â Â Â
1749.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1750.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â
1751.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1752.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1753.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1754.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1755.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1756.00 Â Â Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â
1757.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE BFRAMT Â Â FEAMNT Â Â Â Â Â Â Â Â Â Â Â Â
1758.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1759.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1760.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1761.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1762.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1763.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1764.00 Â Â Â **************************
1765.00 Â Â Â C Â Â Â Â Â EDTDAT Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1766.00 Â Â Â **************************
1767.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1768.00    * Edit dates entered                       Â
1769.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1770.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN15 Â Â Â Â Â Â Â Â Â Â Â Â
1771.00    *Vendor invoice date                       Â
1771.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFVIDT Â Â $CDATE Â Â Â Â Â Â Â Â Â Â Â Â
1771.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â Â Â Â Â Â Â Â Â Â Â
1771.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â Â Â Â Â Â Â Â Â Â Â
1771.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â Â Â Â Â
1771.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â Â Â Â Â
1771.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â Â Â Â Â
1771.07 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â JINVDT Â 80 Â Â Â
1771.08 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â Â Â
1771.09 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN16 Â Â Â Â Â Â
1771.10 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1771.11 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â JINVDT Â Â Â Â Â
1771.12 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â Â Â
1771.13 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1772.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FVIDT Â Â MDY Â Â Â Â
1773.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE 'J' Â Â Â PFLAG Â Â Â
1774.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â JULIAN Â Â Â
1775.00 LAT1 C*** Â Â Â Â Â Â Â Â Â CALL 'DATECHK' PLIST Â Â Â
1776.00 LAT1 Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1777.00 LAT1 C*** Â Â Â Â JULIAN Â Â IFEQ *BLANKS Â Â Â Â Â Â Â
1778.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â
1779.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN16 Â Â Â
1780.00 LAT1 C*** Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1781.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE JULIAN Â Â JINVDT Â 50 Â
1782.00 LAT1 C*** Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1783.00    * Receipt date                 Â
1783.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFVIDT Â Â $CDATE Â Â Â
1783.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â Â
1783.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â Â
1783.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â Â
1783.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â Â
1783.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â Â Â Â Â
1783.08 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â JRECDT Â 80 Â Â Â
1783.09 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â Â Â
1783.10 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN19 Â Â Â Â Â Â
1783.11 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1783.12 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â JRECDT Â Â Â Â Â
1783.14 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â Â Â
1783.15 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1784.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FIRDT Â Â MDY Â Â Â Â Â Â Â
1785.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE 'J' Â Â Â PFLAG Â Â Â Â Â Â Â Â
1786.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â JULIAN Â Â Â Â Â Â Â Â
1787.00 LAT1 C*** Â Â Â Â Â Â Â Â Â CALL 'DATECHK' PLIST Â Â Â Â Â Â Â Â
1788.00 LAT1 Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1789.00 LAT1 C*** Â Â Â Â JULIAN Â Â IFEQ *BLANKS Â Â Â Â Â Â Â Â Â Â Â Â
1790.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â Â Â Â Â
1791.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN19 Â Â Â Â Â Â Â Â
1792.00 LAT1 C*** Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1793.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE JULIAN Â Â JRECDT Â 50 Â Â Â Â Â Â
1794.00 LAT1 C*** Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1795.00    * Due date                    Â
1795.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFVIDT Â Â $CDATE Â Â Â Â
1795.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â Â Â
1795.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â Â Â
1795.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â Â Â Â
1795.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â Â Â Â
1795.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â Â Â Â
1795.07 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â JDUEDT Â 80 Â Â
1795.08 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â Â Â Â Â Â Â Â Â
1795.09 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN20 Â Â Â Â Â Â Â Â Â Â Â Â
1795.10 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1795.11 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â JDUEDT Â Â Â Â Â Â Â Â Â Â Â
1795.12 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1795.13 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1796.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FIDDT Â Â MDY Â Â Â Â Â Â Â Â Â Â Â Â Â
1797.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE 'J' Â Â Â PFLAG Â Â Â Â Â Â Â Â Â Â Â Â
1798.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â JULIAN Â Â Â Â Â Â Â Â Â Â Â
1799.00 LAT1 C*** Â Â Â Â Â Â Â Â Â CALL 'DATECHK' PLIST Â Â Â
1800.00 LAT1 Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1801.00 LAT1 C*** Â Â Â Â JULIAN Â Â IFEQ *BLANKS Â Â Â Â Â Â Â
1802.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â
1803.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN20 Â Â Â
1804.00 LAT1 C*** Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1805.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE JULIAN Â Â JDUEDT Â 50
1806.00 LAT1 C*** Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
1807.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1808.00    * Invoice date > Receipt date          Â
1809.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1810.00 B1 Â C Â Â Â Â Â JINVDT Â Â IFGT JRECDT Â Â Â Â Â Â Â Â
1811.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â
1812.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN17 Â Â Â Â
1813.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1814.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1815.00    * Invoice date > Due date            Â
1816.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1817.00 B1 Â C Â Â Â Â Â JINVDT Â Â IFGT JDUEDT Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1818.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â Â Â Â Â Â Â Â Â
1819.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN18 Â Â Â Â Â Â Â Â Â Â Â Â
1820.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1821.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1822.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1823.00 Â Â Â **************************
1824.00 Â Â Â C Â Â Â Â Â ENTRY Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1825.00 Â Â Â **************************
1826.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1827.00 Â Â Â * Display attribute for "ADD" Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1828.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1829.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN28 Â Â Â Â Â Â Â Â Â Â Â Â
1830.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1831.00 Â Â Â * Allow user to enter Freight, Access, and Miscellaneous Charges Â
1832.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1833.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â Â Â Â Â Â Â
1834.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â
1835.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â Â
1836.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN55 Â Â Â Â Â Â Â
1837.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN56 Â Â Â Â Â Â Â
1838.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSA Â 30 Â Â Â Â
1839.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG Â Â Â Â Â Â
1840.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEA*BLANKS Â CHG Â Â Â Â Â Â Â Â
1841.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â A Â Â Â 20 Â Â Â Â
1842.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1843.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPPREP Â Â Â Â Â Â
1844.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPPCK# Â Â Â Â Â Â Â Â Â Â
1845.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPFB# Â Â Â Â Â Â Â Â Â Â Â
1846.00    * File dates                         Â
1847.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPVIDT Â Â Â Â Â Â Â Â Â Â
1848.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPIRDT Â Â Â Â Â Â Â Â Â Â
1849.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPIDDT Â Â Â Â Â Â Â Â Â Â
1850.00    * Screen dates                        Â
1851.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FVIDT Â Â Â Â Â Â Â Â Â Â Â
1852.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FIRDT Â Â Â Â Â Â Â Â Â Â Â
1853.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FIDDT Â Â Â Â Â Â
1854.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1855.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPACHG Â Â Â Â Â
1856.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPMCHG Â Â Â Â Â
1857.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPAFRT Â Â Â Â Â
1858.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1859.00 B1 Â C Â Â Â Â Â ADBILL Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â Â
1860.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPECHG Â Â TOTEST Â Â Â Â Â
1861.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPEFRT Â Â TOTEST Â Â Â Â Â
1862.00 X1 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1863.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPECHG Â Â Â Â Â Â Â Â Â Â Â Â
1864.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPEFRT Â Â Â Â Â Â Â Â Â Â Â Â
1865.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â TOTEST Â Â Â Â Â Â Â Â Â Â Â Â
1866.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1867.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1868.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â TOTACT Â Â Â Â Â Â Â Â Â Â Â Â
1869.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1870.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN08 Â Â Â Â Â Â Â Â Â Â Â Â
1871.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1872.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00110 Â Â Â Â
1873.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00111 Â Â Â Â
1874.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1875.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â
1876.00 Â Â Â C Â Â Â Â Â *IN08 Â Â ANDEQ*OFF Â Â Â Â Â Â
1877.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â
1878.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1879.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD001CA Â Â Â Â
1880.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1881.00    * F3, F12 not used         Â
1882.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1883.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â
1884.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â
1885.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1886.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR EDTDAT Â Â
1887.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1888.00 Â Â Â * Dates entered OK Â Â Â Â Â Â Â Â Â
1889.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1890.00 B3 Â C Â Â Â Â Â *IN15 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â
1891.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1892.00    * Vendor invoice number must be entered   Â
1893.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1894.00 B4 Â C Â Â Â Â Â FPFB# Â Â IFEQ *BLANKS Â Â Â Â Â Â
1895.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN13 Â Â
1896.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
1897.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1898.00 Â Â Â * Prepaid flag can only be blank or 'Y'. Â Â Â
1899.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1900.00 B4 Â C Â Â Â Â Â FPPREP Â Â IFNE ' ' Â Â Â Â Â Â Â Â Â
1901.00 Â Â Â C Â Â Â Â Â FPPREP Â Â ANDNE'Y' Â Â Â Â Â Â Â Â Â
1902.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN35 Â Â Â
1903.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
1904.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1905.00 B4 Â C Â Â Â Â Â *IN35 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â
1906.00 Â Â Â C Â Â Â Â Â FPPREP Â Â ANDNE' ' Â Â Â Â Â Â Â Â Â
1907.00 Â Â Â C Â Â Â Â Â FPPCK# Â Â ANDLE0 Â Â Â Â Â Â Â Â Â Â Â Â
1908.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN36 Â Â Â Â Â
1909.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1910.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1911.00 B4 Â C Â Â Â Â Â FPPREP Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â
1912.00 Â Â Â C Â Â Â Â Â FPPCK# Â Â ANDNE0 Â Â Â Â Â Â Â Â Â Â Â Â
1913.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN37 Â Â Â Â Â
1914.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1915.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1916.00 B4 Â C Â Â Â Â Â *IN13 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1917.00 Â Â Â C Â Â Â Â Â *IN35 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1918.00 Â Â Â C Â Â Â Â Â *IN36 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1919.00 Â Â Â C Â Â Â Â Â *IN37 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1920.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1921.00 Â Â Â * Make sure vendor invoice number does not already exist
1922.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1923.00 Â Â Â C Â Â Â Â Â KEY9 Â Â Â SETLLOPP2904 Â Â Â Â Â Â Â Â Â 14 Â Â
1924.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1925.00 B5 Â C Â Â Â Â Â *IN14 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
1926.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1927.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPMCHG Â Â TOTACT Â Â Â Â Â Â
1928.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â TOTACT Â Â Â Â Â Â
1929.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPAFRT Â Â TOTACT Â Â Â Â Â Â
1930.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1931.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â Â Â Â Â Â Â Â
1932.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1933.00    * F6 - Add additional charges to check reqeust    Â
1934.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1935.00 B6 Â C Â Â Â Â Â *IN06 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â
1936.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1937.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR CHARGE Â Â Â Â Â Â Â Â
1938.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1939.00 X6 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1940.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1941.00 Â Â Â * Add OPP290 and OPP291 records. Â Â Â Â Â Â Â Â
1942.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1943.00 B7 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â Â
1944.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1945.00 Â Â Â * Add record to Freight Payables header. Â Â Â
1946.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1947.00 Â Â Â * Check Request Type (O=Outside Vendor) Â Â Â
1948.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1949.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE 'O' Â Â Â FPCRTP Â Â
1950.00    * Vendor invoice date            Â
1951.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FVIDT Â Â INFLD Â Â
1952.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â Â
1953.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPVIDT Â Â
1954.00    * Invoice receipt date            Â
1955.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FIRDT Â Â INFLD Â Â
1956.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â Â
1957.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPIRDT Â Â
1958.00    *Invoice Due date              Â
1959.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FIDDT Â Â INFLD Â Â
1960.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â Â
1961.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPIDDT Â Â Â Â Â Â
1962.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1963.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPAPVO Â Â Â Â Â Â
1964.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPAPBA Â Â Â Â Â Â
1965.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPGLBA Â Â Â Â Â Â
1966.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPGLRE Â Â Â Â Â Â
1967.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPBCDT Â Â Â Â Â Â
1968.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPBCTM Â Â Â Â Â Â
1969.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPBCUS Â Â Â Â Â Â
1970.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1971.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPSTAT Â
1972.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1973.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR TSTAMP Â Â Â Â Â Â
1974.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1975.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDZ1DATE Â Â FPENDT Â
1976.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDZ1TIME Â Â FPENTM Â
1977.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE Z1USER Â Â FPENUS Â
1978.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1979.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â Z1DATE Â Â Â Â Â Â Â Â Â Â Â Â
1980.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â Z1TIME Â Â Â Â Â Â Â Â Â Â Â Â
1981.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â Z1USER Â Â Â Â Â Â Â Â Â Â Â Â
1982.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1983.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEOPP290R Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1984.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1985.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CLEAROPP291R Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1986.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1987.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR ADRCDS Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1988.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1989.00 X7 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1990.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1991.00 Â Â Â * Process subfile request(s) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1992.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1993.00 Â Â Â * Keep a mirrored subfile of FPD001SA called FPD001SB. Â This will
1994.00 Â Â Â * will contain records that are not deleted without having to re-
1995.00    * load SFL from disk if records exist              Â
1996.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1997.00 B8 Â C Â Â Â Â Â RRNSA Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1998.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1999.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â Â Â
2000.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CB Â Â Â Â Â Â Â Â Â Â Â
2001.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â Â Â
2002.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSB Â 30 Â Â Â Â Â
2003.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2004.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â
2005.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2006.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â Â
2007.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2008.00 B9 Â C Â Â Â Â Â *IN57 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
2009.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2010.00 B10 Â C Â Â Â Â Â SELCHG Â Â IFEQ '2' Â Â Â Â Â Â Â Â Â Â Â Â
2011.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR EDTCHG Â Â Â Â Â Â Â Â Â Â Â
2012.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2013.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2014.00 B10 Â C Â Â Â Â Â SELCHG Â Â IFEQ '4' Â Â Â Â Â Â Â Â Â Â Â Â
2015.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR DLTCHG Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2016.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2017.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2018.00    * If either of the subrotuines were ended with a cancel, stop  Â
2019.00 Â Â Â * processing subfile requests and continue to load mirror subfile
2020.00 Â Â Â * to load from after first *IN57 loop has ended. Â Â Â Â Â Â Â Â
2021.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2022.00 B10 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2023.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2024.00 B11 Â C Â Â Â Â Â *IN57 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2025.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2026.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG Â Â Â Â Â Â Â Â Â Â Â Â
2027.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â Â Â Â Â Â Â Â Â Â Â Â
2028.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SB Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2029.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â Â Â Â Â
2030.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â Â Â Â Â Â Â Â
2031.00    * Reset                             Â
2032.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â Â Â
2033.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2034.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2035.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2036.00 X10 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2037.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2038.00 Â Â Â * Put record in mirror SFL if F12 was not used and not a delete Â
2039.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2040.00 B11 Â C Â Â Â Â Â SELCHG Â Â IFNE '4' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2041.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG Â Â Â Â Â Â Â Â Â Â Â Â
2042.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â Â Â Â Â Â Â
2043.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SB Â Â Â Â Â Â Â Â Â Â Â
2044.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2045.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2046.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2047.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2048.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â Â Â Â
2049.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â Â Â
2050.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2051.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2052.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2053.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â Â Â Â
2054.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â Â Â Â Â Â Â Â Â Â Â
2055.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â Â Â Â
2056.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN55 Â Â Â Â Â Â Â Â Â
2057.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN56 Â Â Â Â Â Â Â Â Â
2058.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â Â
2059.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2060.00 Â Â Â * Reload SFL FPD001SA from records copied to mirrored SFL Â Â Â Â
2061.00    * FPD001SB if not empty                     Â
2062.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2063.00 B9 Â C Â Â Â Â Â RRNSB Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2064.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2065.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â RRNSB Â Â Â Â Â Â Â Â Â Â Â Â
2066.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2067.00 Â Â Â C Â Â Â Â Â RRNSB Â Â CHAINFPD001SB Â Â Â Â Â Â 55 Â Â Â Â Â Â Â Â
2068.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2069.00 B10 Â C Â Â Â Â Â *IN55 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â
2070.00 Â Â Â * SFLDSP Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2071.00 B11 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â
2072.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â Â Â
2073.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
2074.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2075.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â
2076.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SA Â Â Â Â Â Â Â
2077.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â Â Â Â
2078.00 Â Â Â C Â Â Â Â Â RRNSB Â Â CHAINFPD001SB Â Â Â Â Â Â 55 Â Â Â Â Â Â Â Â
2079.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2080.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2081.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2082.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2083.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2084.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00111 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2085.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2086.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2087.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2088.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2089.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2090.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2091.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2092.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2093.00 Â Â Â * If any errors exist, do not end loop because of F8 Â Â
2094.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2095.00 B2 Â C Â Â Â Â Â *IN13 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
2096.00 Â Â Â C Â Â Â Â Â *IN14 Â Â OREQ *ON Â Â Â Â Â Â Â
2097.00 Â Â Â C Â Â Â Â Â *IN15 Â Â OREQ *ON Â Â Â Â Â Â Â
2098.00 Â Â Â C Â Â Â Â Â *IN35 Â Â OREQ *ON Â Â Â Â Â Â Â
2099.00 Â Â Â C Â Â Â Â Â *IN36 Â Â OREQ *ON Â Â Â Â Â Â Â
2100.00 Â Â Â C Â Â Â Â Â *IN37 Â Â OREQ *ON Â Â Â Â Â Â Â
2101.00 B3 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â
2102.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN08 Â
2103.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2104.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2105.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2106.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2107.00    * Reset                             Â
2108.00 B1 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2109.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â Â Â
2110.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2111.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2112.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2113.00 Â Â Â **************************
2114.00 Â Â Â C Â Â Â Â Â GETVND Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2115.00 Â Â Â **************************
2116.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2117.00    * Vendor Information                       Â
2118.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2119.00 Â Â Â C Â Â Â Â Â FPVEND Â Â CHAINAPP400R Â Â Â Â Â Â Â 01 Â Â Â Â Â Â Â Â
2120.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2121.00 B1 Â C Â Â Â Â Â *IN01 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2122.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMVNNM Â Â Â Â Â Â Â Â Â Â Â Â
2123.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' VMVNNM Â Â Â Â Â Â Â Â Â Â Â Â
2124.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2125.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2126.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2127.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2128.00 Â Â Â **************************
2129.00 Â Â Â C Â Â Â Â Â LODCHG Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2130.00 Â Â Â **************************
2131.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2132.00 Â Â Â * Load charges from OPP291 associated withg invoice Â
2133.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2134.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â
2135.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â Â Â Â Â Â Â Â
2136.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CB Â Â Â Â Â Â Â Â Â Â
2137.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â
2138.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN55 Â Â Â Â Â Â
2139.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN56 Â Â Â Â Â Â
2140.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSA Â Â Â Â Â Â
2141.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEA*BLANKS Â CHG Â Â Â Â Â Â Â Â Â Â
2142.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â A Â Â Â Â Â Â Â Â Â Â Â
2143.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG Â Â Â Â Â Â Â Â
2144.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPACHG Â Â Â Â Â Â Â Â
2145.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPMCHG Â Â Â Â Â Â Â Â
2146.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2147.00 Â Â Â C Â Â Â Â Â KEY13 Â Â SETLLOPP291R Â Â Â Â Â Â Â Â Â Â Â Â Â
2148.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â N Â Â 55 Â Â Â
2149.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2150.00    * Load Charges associated with invoice          Â
2151.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2152.00 B1 Â C Â Â Â Â Â *IN55 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2153.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2154.00 B2 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2155.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â Â Â Â Â Â Â
2156.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2157.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2158.00 Â Â Â C Â Â Â Â Â KEY10 Â Â CHAINOPP292R Â Â Â Â Â Â Â 29 Â Â Â Â
2159.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2160.00 B2 Â C Â Â Â Â Â *IN29 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â
2161.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FYDESC Â Â Â Â Â
2162.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' FYDESC Â Â Â Â Â
2163.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2164.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2165.00 Â Â Â C Â Â Â Â Â KEY14 Â Â CHAINOPP293R Â Â Â Â Â Â Â 29 Â
2166.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2167.00 B2 Â C Â Â Â Â Â *IN29 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â
2168.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FSDESC Â Â
2169.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' FSDESC Â Â
2170.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
2171.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2172.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â
2173.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SA Â Â Â Â Â Â
2174.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2175.00 Â Â Â * Put in arrary also for edit purposes later Â
2176.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2177.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â A Â Â Â Â
2178.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELFECTYP Â Â CHG,A Â Â
2179.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FECSTP Â Â CHG,A Â Â
2180.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2181.00    * Add to totals               Â
2182.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2183.00 B2 Â C Â Â Â Â Â FECTYP Â Â IFEQ 'A' Â Â Â Â Â Â Â Â
2184.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPACHG Â
2185.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2186.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPMCHG Â Â Â Â Â Â Â
2187.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2188.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2189.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â Â Â Â 55 Â Â
2190.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2191.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2192.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2193.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2194.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2195.00 Â Â Â **************************
2196.00 Â Â Â C Â Â Â Â Â LODFPE Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2197.00 Â Â Â **************************
2198.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2199.00    * Load Freight Payable Entries                 Â
2200.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2201.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN50 Â Â Â Â Â Â Â Â Â Â Â Â
2202.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00101 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2203.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN50 Â Â Â Â Â Â SFLCLR Â Â Â
2204.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN51 Â Â Â Â Â Â SFLEND Â Â Â
2205.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN52 Â Â Â Â Â Â SFLDSP Â Â Â
2206.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELINV Â Â Â Â Â Â Â Â Â Â Â Â
2207.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN2 Â Â 30 Â Â Â Â Â Â Â Â Â Â
2208.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2209.00    C           MOVE *OFF    *IN10       ND Vendor  Â
2210.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN11 Â Â Â Â Â Â ND Ship# Â Â
2211.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2212.00    * Vendor Total Fields                      Â
2213.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2214.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENFRT Â Â Â Â Â Â
2215.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENACC Â Â Â Â Â Â
2216.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENMIS Â Â Â Â Â Â
2217.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2218.00    * Batch Total Fields                 Â
2219.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2220.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â BCHFRT Â Â Â Â Â Â
2221.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â BCHACC Â Â Â Â Â Â
2222.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â BCHMIS Â Â Â Â Â Â Â Â
2223.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2224.00 MOD Â C Â Â Â Â Â KEY1 Â Â Â SETLLOPP29012 Â Â Â Â Â Â Â Â Â Â Â Â
2225.00 MOD Â C Â Â Â Â Â KEY1 Â Â Â READEOPP29012 Â Â Â Â Â Â N Â Â 51 Â Â
2226.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2227.00    * Loop                          Â
2228.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2229.00 B1 Â C Â Â Â Â Â *IN51 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2230.00    *First Read                       Â
2231.00 B2 Â C Â Â Â Â Â *IN52 Â Â IFEQ *OFF Â Â Â Â Â Â Â
2232.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2233.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN52 Â Â
2234.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2235.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVEND Â Â HLDVEN Â
2236.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2237.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2238.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2239.00    * Vendor Break               Â
2240.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2241.00 B3 Â C Â Â Â Â Â FPVEND Â Â IFNE HLDVEN Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2242.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2243.00 MOD Â C Â Â Â Â Â KEY1 Â Â Â REDPEOPP29012 Â Â Â Â Â Â N Â Â 51 Â Â Â Â Â
2244.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2245.00 B4 Â C Â Â Â Â Â *IN10 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2246.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2247.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2248.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2249.00    * Accumulate Batch Totals             Â
2250.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2251.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENFRT Â Â BCHFRT Â Â Â Â
2252.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENACC Â Â BCHACC Â Â Â Â
2253.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENMIS Â Â BCHMIS Â Â Â Â
2254.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2255.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENFRT Â Â FPAFRT Â Â Â Â
2256.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENACC Â Â FPACHG Â Â Â Â
2257.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENMIS Â Â FPMCHG Â Â Â Â
2258.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2259.00    * Vendor Line Total               Â
2260.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2261.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENFRT Â Â INVTOT Â Â Â
2262.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENACC Â Â INVTOT Â Â Â
2263.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENMIS Â Â INVTOT Â Â Â
2264.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2265.00    * Vendor Total Record              Â
2266.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2267.00 B4 Â C Â Â Â Â Â *IN10 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â
2268.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN10 Â Â
2269.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
2270.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2271.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN11 Â Â
2272.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2273.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELTOT,1 Â Â FPFB# Â Â
2274.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPPREP Â Â
2275.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2276.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN2 Â Â Â Â
2277.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00102 Â Â Â Â Â Â Â
2278.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN10 Â Â Â
2279.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN11 Â Â Â
2280.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2281.00    * Clear Vendor totals             Â
2282.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2283.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENFRT Â Â Â
2284.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENACC Â Â Â
2285.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENMIS Â Â Â Â Â Â
2286.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2287.00 MOD Â C Â Â Â Â Â KEY1 Â Â Â READEOPP29012 Â Â Â Â Â Â N Â Â 51
2288.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2289.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVEND Â Â HLDVEN Â Â Â Â Â Â
2290.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2291.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2292.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2293.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2294.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2295.00    * Invoice Line Total                      Â
2296.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2297.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPAFRT Â Â INVTOT Â Â Â Â Â Â Â Â Â Â Â
2298.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â INVTOT Â Â Â Â Â Â Â Â Â Â Â
2299.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPMCHG Â Â INVTOT Â Â Â Â Â Â Â Â Â Â Â
2300.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2301.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPAFRT Â Â VENFRT Â Â Â Â Â Â Â Â Â Â Â
2302.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â VENACC Â Â Â Â Â Â Â Â Â Â Â
2303.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPMCHG Â Â VENMIS Â
2304.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2305.00 B2 Â C Â Â Â Â Â *IN10 Â Â IFEQ *OFF Â Â Â Â Â Â Â
2306.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â
2307.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2308.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2309.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN2 Â Â
2310.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00102 Â Â Â Â Â
2311.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2312.00 B2 Â C Â Â Â Â Â *IN10 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2313.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN10 Â Â Â Â Â Â Â Â Â Â
2314.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2315.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2316.00 MOD Â C Â Â Â Â Â KEY1 Â Â Â READEOPP29012 Â Â Â Â Â Â N Â Â 51 Â Â Â Â
2317.00    * End Loop                          Â
2318.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2319.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2320.00 Â Â Â * Turn EOF off so "Bottom" will not show up in SFL until Ven-
2321.00    * dor/Batch total records are written         Â
2322.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2323.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN51 Â Â Â Â Â Â Â
2324.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2325.00    * Vendor information/Select non-display indicator   Â
2326.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2327.00 B2 Â C Â Â Â Â Â *IN10 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
2328.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN10 Â Â Â Â Â Â Â
2329.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2330.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2331.00    * Ship#/Select non-display indicator    Â
2332.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2333.00 B2 Â C Â Â Â Â Â *IN11 Â Â IFEQ *OFF Â Â Â Â Â Â Â
2334.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN11 Â Â
2335.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2336.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2337.00    * If at least one record exists in batch  Â
2338.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2339.00 B1 Â C Â Â Â Â Â *IN52 Â Â IFEQ *ON Â Â Â Â Â Â Â
2340.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2341.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENFRT Â Â BCHFRT Â
2342.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENACC Â Â BCHACC Â
2343.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENMIS Â Â BCHMIS Â
2344.00    * Vendor Total               Â
2345.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENFRT Â Â FPAFRT Â
2346.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENACC Â Â FPACHG Â
2347.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENMIS Â Â FPMCHG Â
2348.00    * Vendor Line Total              Â
2349.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENFRT Â Â INVTOT Â Â Â
2350.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENACC Â Â INVTOT Â Â Â
2351.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENMIS Â Â INVTOT Â Â Â
2352.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELTOT,1 Â Â FPFB# Â Â Â
2353.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPPREP Â Â Â
2354.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN2 Â Â Â Â
2355.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00102 Â Â Â Â Â Â Â
2356.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2357.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
2358.00    * Batch Total                   Â
2359.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDBCHFRT Â Â FPAFRT Â Â Â Â
2360.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDBCHACC Â Â FPACHG Â Â Â Â
2361.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDBCHMIS Â Â FPMCHG Â Â Â Â
2362.00    * Batch Line Total                Â
2363.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDBCHFRT Â Â INVTOT Â Â Â Â
2364.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â BCHACC Â Â INVTOT Â Â Â Â
2365.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â BCHMIS Â Â INVTOT Â Â Â Â
2366.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELTOT,2 Â Â FPFB# Â Â Â Â
2367.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPPREP Â Â Â Â
2368.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2369.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN2 Â Â Â Â Â
2370.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00102 Â Â Â Â Â Â Â Â
2371.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2372.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN51 Â Â Â Â
2373.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN52 Â Â Â Â
2374.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2375.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â CURSOR Â Â Â Â Â Â Â Â Â Â Â Â
2376.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2377.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2378.00 Â Â Â **************************
2379.00 Â Â Â C Â Â Â Â Â LODVND Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2380.00 Â Â Â **************************
2381.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2382.00    * Load Vendor Shipment total records for user to select from   Â
2383.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2384.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN60 Â Â Â Â Â Â Â Â Â Â Â
2385.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00106 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2386.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN60 Â Â Â Â Â Â SFLCLR Â Â
2387.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN61 Â Â Â Â Â Â SFLEND Â Â
2388.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN62 Â Â Â Â Â Â SFLDSP Â Â
2389.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELVND Â Â Â Â Â Â Â Â Â Â Â
2390.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELVN2 Â Â Â Â Â Â Â Â Â Â Â
2391.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN7 Â Â 30 Â Â Â Â Â Â Â Â Â
2392.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2393.00    * Vendor Shipment Totals                Â
2394.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2395.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPEFRT Â Â Â Â Â Â Â
2396.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPECHG Â Â Â Â Â Â Â
2397.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2398.00    * Multiple OPP294 records per Vendor per Shipment    Â
2399.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2400.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â SETLLOPP294R Â Â Â Â Â Â Â Â Â Â Â Â
2401.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP294R Â Â Â Â Â Â N Â Â 61 Â Â
2402.00    * Loop                              Â
2403.00 B1 Â C Â Â Â Â Â *IN61 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2404.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2405.00    * Make Sure Vendor is an outside vendor             Â
2406.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2407.00 Â Â Â C Â Â Â Â Â KEY20 Â Â SETLLOPP3013 Â Â Â Â Â Â Â Â Â 34 Â Â Â Â Â Â
2408.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2409.00 B2 Â C Â Â Â Â Â *IN34 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2410.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2411.00 Â Â Â * Make sure Ship#/Vendor combination is not already in OPP290 Â Â
2412.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2413.00 Â Â Â C Â Â Â Â Â KEY3 Â Â Â SETLLOPP2903 Â Â Â Â Â Â Â Â Â 33 Â Â Â Â Â Â
2414.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2415.00 B3 Â C Â Â Â Â Â *IN33 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2416.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2417.00    * First Read                           Â
2418.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2419.00 B4 Â C Â Â Â Â Â *IN62 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2420.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2421.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN62 Â Â
2422.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2423.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FHVEND Â Â FPVEND Â
2424.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2425.00 X4 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2426.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2427.00    * Vendor Break               Â
2428.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2429.00 B5 Â C Â Â Â Â Â FHVEND Â Â IFNE FPVEND Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2430.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2431.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â REDPEOPP294R Â Â Â Â Â Â N Â Â 61 Â Â Â Â
2432.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2433.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMVNA1 Â Â Â Â Â Â Â Â Â Â
2434.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMSTAT Â Â Â Â Â Â Â Â Â Â
2435.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMZIP1 Â Â Â Â Â Â Â Â Â Â
2436.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2437.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2438.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2439.00    * Shipment Total Record for Vendor      Â
2440.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2441.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN7 Â Â Â
2442.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00107 Â Â Â Â Â Â
2443.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2444.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPEFRT Â Â
2445.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPECHG Â Â
2446.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2447.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP294R Â Â Â Â Â Â N Â Â 61 Â
2448.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2449.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FHVEND Â Â FPVEND Â Â Â Â Â Â
2450.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2451.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2452.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2453.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2454.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2455.00    * Shipment vendor total                Â
2456.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2457.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHEFRT Â Â FPEFRT Â Â Â
2458.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â FPECHG Â Â Â
2459.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2460.00    *  Exclude Vendor all together         Â
2461.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2462.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
2463.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2464.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â SETGTOPP294R Â Â Â Â Â Â Â
2465.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2466.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â
2467.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2468.00    *  Exclude Vendor all together     Â
2469.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2470.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â
2471.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2472.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â SETGTOPP294R Â Â Â
2473.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2474.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2475.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2476.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP294R Â Â Â Â Â Â N Â Â 61 Â
2477.00    * End Loop                       Â
2478.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2479.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2480.00    * If at least one record was read           Â
2481.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2482.00 B1 Â C Â Â Â Â Â *IN62 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
2483.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2484.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â
2485.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2486.00    * Shipment Vendor total Record        Â
2487.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2488.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN7 Â Â Â
2489.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00107 Â Â Â Â Â Â
2490.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2491.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
2492.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2493.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2494.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2495.00 Â Â Â **************************
2496.00 Â Â Â C Â Â Â Â Â LODVN2 Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2497.00 Â Â Â **************************
2498.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2499.00    * Load Vendor Shipment total records for user to select from   Â
2500.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2501.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN60 Â Â Â Â Â Â Â Â Â Â Â Â
2502.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00106 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2503.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN60 Â Â Â Â Â Â SFLCLR Â Â Â
2504.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN61 Â Â Â Â Â Â SFLEND Â Â Â
2505.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN62 Â Â Â Â Â Â SFLDSP Â Â Â
2506.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELVND Â Â Â Â Â Â Â Â Â Â Â
2507.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELVN2 Â Â Â Â Â Â Â Â Â Â Â
2508.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN7 Â Â 30 Â Â Â Â Â Â Â Â Â
2509.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2510.00    * Vendor Shipment Totals                 Â
2511.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2512.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPEFRT Â Â Â Â Â Â Â Â
2513.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPECHG Â Â Â Â Â Â Â Â
2514.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2515.00    * Multiple OPP294 records per Vendor per Shipment    Â
2516.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2517.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â SETLLOPP29411 Â Â Â Â Â Â Â Â Â Â Â Â
2518.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 61 Â Â
2519.00    * Loop                          Â
2520.00 B1 Â C Â Â Â Â Â *IN61 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2521.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2522.00    * Make Sure Vendor is an outside vendor          Â
2523.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2524.00 Â Â Â C Â Â Â Â Â KEY20 Â Â SETLLOPP3013 Â Â Â Â Â Â Â Â Â 34 Â Â Â
2525.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2526.00 B2 Â C Â Â Â Â Â *IN34 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2527.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2528.00 Â Â Â * Make sure Ship#/Vendor combination is already in OPP290 Â Â Â Â
2529.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2530.00 Â Â Â C Â Â Â Â Â KEY3 Â Â Â SETLLOPP2903 Â Â Â Â Â Â Â Â Â 33 Â Â Â Â Â Â
2531.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2532.00 B3 Â C Â Â Â Â Â *IN33 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2533.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2534.00 Â Â Â * Make sure vendor is not in current batch for shipment. Â Â Â Â Â
2535.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2536.00 Â Â Â C Â Â Â Â Â FPVEND Â Â LOKUPVEN,1 Â Â Â Â Â Â Â Â Â Â 33 Â Â Â Â Â Â
2537.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2538.00 B4 Â C Â Â Â Â Â *IN33 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
2539.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2540.00    * First Read                     Â
2541.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2542.00 B5 Â C Â Â Â Â Â *IN62 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
2543.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2544.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN62 Â Â Â Â Â Â Â
2545.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2546.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FHVEND Â Â FPVEND Â Â Â Â Â Â Â
2547.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2548.00 X5 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2549.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2550.00    * Vendor Break                     Â
2551.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2552.00 B6 Â C Â Â Â Â Â FHVEND Â Â IFNE FPVEND Â Â Â Â Â Â Â Â Â Â Â Â
2553.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2554.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â REDPEOPP29411 Â Â Â Â Â Â Â Â 61 Â
2555.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2556.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMVNA1 Â Â Â Â Â Â Â Â
2557.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMSTAT Â Â Â Â Â Â Â Â
2558.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMZIP1 Â Â Â Â Â Â Â Â
2559.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2560.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â Â Â Â Â Â Â
2561.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2562.00    * Shipment Total Record for Vendor            Â
2563.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2564.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN7 Â Â Â Â Â Â Â
2565.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00107 Â Â Â Â Â Â Â Â Â Â
2566.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2567.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPEFRT Â Â Â Â Â Â
2568.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPECHG Â Â Â Â Â Â
2569.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2570.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 61
2571.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2572.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FHVEND Â Â FPVEND Â Â Â Â Â Â
2573.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2574.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
2575.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2576.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
2577.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2578.00    * Shipment vendor total             Â
2579.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2580.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHEFRT Â Â FPEFRT Â Â Â
2581.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â FPECHG Â Â Â
2582.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2583.00    *  Exclude Vendor all together                 Â
2584.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2585.00 X4 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2586.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2587.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN58 Â Â Â Â Â Â Â Â Â Â Â
2588.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2589.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â SETGTOPP29411 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2590.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2591.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2592.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2593.00    *  Exclude Vendor all together       Â
2594.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2595.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2596.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2597.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â SETGTOPP29411 Â Â Â Â Â
2598.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2599.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2600.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2601.00    *  Exclude Vendor all together     Â
2602.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2603.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â
2604.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2605.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â SETGTOPP29411 Â Â Â
2606.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2607.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â
2608.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2609.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 61 Â Â
2610.00    * End Loop                       Â
2611.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2612.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2613.00    * If at least one record was read            Â
2614.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2615.00 B1 Â C Â Â Â Â Â *IN62 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2616.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2617.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â Â Â Â Â Â
2618.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2619.00    * Shipment Vendor total Record      Â
2620.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2621.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN7 Â
2622.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00107 Â Â Â Â
2623.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2624.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
2625.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2626.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â
2627.00 Â Â Â **************************
2628.00 Â Â Â C Â Â Â Â Â LOOK Â Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2629.00 Â Â Â **************************
2630.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2631.00 Â Â Â * Make sure at least one outside vendor exists on shipment even Â
2632.00 Â Â Â * if already paid. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2633.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2634.00    * Multiple OPP294 records per Vendor per Shipment        Â
2635.00 Â Â Â * Â
2636.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â SETLLOPP29411 Â Â Â Â Â Â Â Â Â Â
2637.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 61 Â
2638.00    * Loop                        Â
2639.00 B1 Â C Â Â Â Â Â *IN61 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
2640.00 Â Â Â C Â Â Â Â Â *IN59 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
2641.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2642.00    * Make Sure Vendor is an outside vendor        Â
2643.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2644.00 Â Â Â C Â Â Â Â Â KEY20 Â Â SETLLOPP3013 Â Â Â Â Â Â Â Â Â 34 Â
2645.00 B2 Â C Â Â Â Â Â *IN34 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
2646.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN59 Â Â Â Â Â Â Â Â
2647.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2648.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2649.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 61 Â Â
2650.00    * End Loop                       Â
2651.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2652.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2653.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2654.00 Â Â Â **************************
2655.00 Â Â Â C Â Â Â Â Â SHOW Â Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2656.00 Â Â Â **************************
2657.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2658.00 Â Â Â * Show the total you have paid the vendor thus far for shipment Â
2659.00 Â Â Â * and see user wants to continue. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2660.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2661.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â MISEST Â Â Â Â Â Â Â Â Â Â Â Â
2662.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â MISACT Â Â Â Â Â Â Â Â Â Â Â Â
2663.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â ACCEST Â Â Â Â Â Â
2664.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â ACCACT Â Â Â Â Â Â
2665.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FRTEST Â Â Â Â Â Â
2666.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FRTACT Â Â Â Â Â Â
2667.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â ESTIMT Â Â Â Â Â Â
2668.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â PAID Â Â Â Â Â Â Â
2669.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2670.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â SETLLOPL29006 Â Â Â Â Â Â Â Â Â Â
2671.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â READEOPL29006 Â Â Â Â Â Â Â Â 01
2672.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2673.00 B1 Â C Â Â Â Â Â *IN01 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2674.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPEFRT Â Â FRTEST Â Â Â Â Â Â Â Â
2675.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPECHG Â Â ACCEST Â Â Â Â Â Â Â Â
2676.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPAFRT Â Â FRTACT Â Â Â Â Â Â Â Â
2677.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â ACCACT Â Â Â Â Â Â Â Â
2678.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPMCHG Â Â MISACT Â Â Â Â Â Â Â Â
2679.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â READEOPL29006 Â Â Â Â Â Â Â Â 01 Â Â
2680.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2681.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2682.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FRTEST Â Â ESTIMT Â Â Â Â
2683.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â ACCEST Â Â ESTIMT Â Â Â Â
2684.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FRTACT Â Â PAID Â Â Â Â Â
2685.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â ACCACT Â Â PAID Â Â Â Â Â
2686.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â MISACT Â Â PAID Â Â Â Â Â
2687.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2688.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â F12 Â Â 1 Â Â Â
2689.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2690.00 B1 Â C Â Â Â Â Â *IN12 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â
2691.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00128 Â Â Â Â Â Â Â Â
2692.00 B2 Â C Â Â Â Â Â *IN06 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â
2693.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN12 Â Â Â Â
2694.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â
2695.00 B3 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â
2696.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE '1' Â Â Â F12 Â Â Â Â Â
2697.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
2698.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
2699.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2700.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2701.00 B1 Â C Â Â Â Â Â F12 Â Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2702.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â Â Â
2703.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2704.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2705.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2706.00 Â Â Â **************************
2707.00 Â Â Â C Â Â Â Â Â NOVEND Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2708.00 Â Â Â **************************
2709.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2710.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN60 Â Â Â Â Â Â Â Â Â Â Â Â
2711.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00124 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2712.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN60 Â Â Â Â Â Â Â Â Â Â Â Â
2713.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN61 Â Â Â Â Â Â Â Â Â Â Â Â
2714.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN62 Â Â Â Â Â Â Â Â Â Â Â Â
2715.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2716.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN25 Â 30 Â Â Â Â Â Â Â Â Â
2717.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2718.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CRTDAT Â Â Â Â Â Â Â
2719.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â DUEDAT Â Â Â Â Â Â Â
2720.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2721.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â X Â Â Â 30 Â Â Â Â Â
2722.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEA*ZEROS Â Â VEN Â Â Â Â Â Â Â Â
2723.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2724.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â SETLLOPP2906 Â Â Â Â Â Â Â Â Â Â Â
2725.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP2906 Â Â Â Â Â Â Â Â Â 61 Â
2726.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2727.00 B1 Â C Â Â Â Â Â *IN61 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â
2728.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2729.00 B2 Â C Â Â Â Â Â *IN62 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â
2730.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN62 Â Â Â Â
2731.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
2732.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2733.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â Â Â
2734.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2735.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPIDDT Â Â DUEDAT Â Â Â Â Â Â Â Â Â
2736.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT DUEDAT Â Â DUEDAT Â Â Â Â Â Â Â Â Â
2737.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2738.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPBCDT Â Â CRTDAT Â Â Â Â Â Â Â Â Â
2739.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT CRTDAT Â Â CRTDAT Â Â Â Â Â Â Â Â Â
2740.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2741.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPECHG Â Â FPEFRT Â Â Â Â Â Â Â Â Â
2742.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2743.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â FPAFRT Â Â Â Â Â Â Â Â Â
2744.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPMCHG Â Â FPAFRT Â Â Â Â Â Â
2745.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2746.00 Â Â Â * Array is used in additional billing. Â Â Â Â Â Â Â Â
2747.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2748.00 B2 Â C Â Â Â Â Â FPSTAT Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â Â
2749.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â X Â Â Â Â Â Â Â Â
2750.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVEND Â Â VEN,X Â Â Â Â Â Â
2751.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN25 Â Â Â Â Â Â
2752.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2753.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN25 Â Â Â Â Â Â Â Â Â
2754.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2755.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2756.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN25 Â Â Â Â Â Â Â Â Â
2757.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00125 Â Â Â Â Â Â Â Â Â Â Â Â Â
2758.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2759.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP2906 Â Â Â Â Â Â Â Â Â 61 Â Â Â
2760.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2761.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2762.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2763.00 Â Â Â * See if at least one of the vendors was outside to allow addi-
2764.00 Â Â Â * tional billing. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2765.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2766.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR LOOK Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2767.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2768.00    * Show user history payment history              Â
2769.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2770.00 B1 Â C Â Â Â Â Â *IN12 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2771.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2772.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00126 Â Â Â Â Â Â Â Â Â Â Â
2773.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00124 Â Â Â Â Â Â Â Â Â Â Â
2774.00    * Additional Billing                  Â
2775.00 B2 Â C Â Â Â Â Â *IN06 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2776.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2777.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE '1' Â Â Â ADBILL Â Â Â Â Â Â Â
2778.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2779.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN12 Â Â Â Â Â Â Â Â
2780.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2781.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2782.00    * Detailed Inquiry             Â
2783.00 B3 Â C Â Â Â Â Â *IN07 Â Â IFEQ *ON Â Â Â Â Â Â Â Â
2784.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE '1' Â Â Â QUIRY Â Â
2785.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPSHP# Â Â LDSHP# Â
2786.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â OUT Â LDA Â Â Â Â Â Â Â Â
2787.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'FPC012' Â Â Â Â Â
2788.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â QUIRY Â Â
2789.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD*ZERO Â Â LDSHP# Â Â Â Â
2790.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â OUT Â LDA Â Â Â Â Â Â Â Â Â Â Â
2791.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2792.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
2793.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2794.00 B4 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â
2795.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â ADBILL Â Â Â Â
2796.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN59 Â Â Â Â Â
2797.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
2798.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2799.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2800.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2801.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2802.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2803.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2804.00 Â Â Â **************************
2805.00 Â Â Â C Â Â Â Â Â VNDSEL Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2806.00 Â Â Â **************************
2807.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2808.00    * Display Vendor selection screen             Â
2809.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2810.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2811.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2812.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2813.00 Â Â Â * Load all vendors assosciated with shipment out of OPP294
2814.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2815.00 B2 Â C Â Â Â Â Â ADBILL Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2816.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR LODVND Â Â Â Â Â Â Â Â
2817.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
2818.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR LODVN2 Â Â Â Â Â Â Â Â
2819.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
2820.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2821.00 B2 Â C Â Â Â Â Â RRN7 Â Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â
2822.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2823.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00105 Â Â Â Â Â Â Â
2824.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00106 Â Â Â Â Â Â Â
2824.01 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2824.02 Â Â Â * F8 - DISPLAY EST. FREIGHT WINDOW Â Â Â Â Â Â Â Â
2824.03 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2824.04 Â Â Â C Â Â Â Â Â *INKH Â Â IFEQ '1' Â Â Â Â Â Â Â Â Â Â
2824.05 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPSHP# Â Â PSHIP# Â 6 Â Â
2824.06 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'FPR022' Â Â Â Â Â Â Â Â
2824.07 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â PSHIP# Â Â Â Â
2824.08 Â Â Â C Â Â Â Â Â Â Â Â Â Â ITER Â Â Â Â Â Â Â Â Â Â Â Â
2824.09 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â Â
2825.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2826.00    * F3 or F12 not issued                    Â
2827.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2828.00 B3 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2829.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2830.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2831.00    * Vendors exist to select from                Â
2832.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2833.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN63 Â Â Â Â Â Â Â Â Â Â Â
2834.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2835.00 B4 Â C Â Â Â Â Â *IN62 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
2836.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00107 Â Â Â Â Â Â Â Â 63 Â
2837.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2838.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2839.00    * Read subfile selections               Â
2840.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2841.00 B4 Â C Â Â Â Â Â *IN63 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
2842.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2844.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2845.00 B5 Â C Â Â Â Â Â SELVND Â Â IFEQ '1' Â Â Â Â Â Â Â
2846.00 Â Â Â C Â Â Â Â Â SELVN2 Â Â OREQ '1' Â Â Â Â Â Â Â
2847.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2848.00 B6 Â C Â Â Â Â Â ADBILL Â Â IFEQ '1' Â Â Â Â Â Â Â
2849.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR SHOW Â Â Â Â Â Â
2850.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
2851.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2852.00 B6 Â C Â Â Â Â Â *IN12 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
2853.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN63 Â Â Â Â Â Â Â
2854.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR ENTRY Â Â Â Â Â Â Â Â Â Â Â Â
2855.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2856.00 Â Â Â * Cause loop to end if and invoice was added for vendor
2857.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2858.00 B7 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
2859.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN12 Â Â Â Â Â Â Â
2860.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2861.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2862.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
2863.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2864.00 X5 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2865.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2866.00    * Change vendor# associated with shipment  Â
2867.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2868.00 B6 Â C Â Â Â Â Â SELVND Â Â IFEQ '3' Â Â Â Â Â Â Â Â
2869.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN63 Â Â
2870.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR CHGVND Â Â Â Â Â Â Â Â Â Â Â Â Â
2871.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2872.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2873.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2874.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2875.00 B5 Â C Â Â Â Â Â *IN63 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2876.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00107 Â Â Â Â Â Â Â Â 63 Â Â
2877.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2878.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2879.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2880.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2881.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2882.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2883.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2884.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR NOVEND Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2885.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2886.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2887.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2888.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2889.00 Â Â Â * Â Reset if invoice was not added. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2890.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2891.00 B1 Â C Â Â Â Â Â *IN08 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2892.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â Â Â
2893.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2894.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2895.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2896.00 Â Â Â **************************
2897.00 Â Â Â C/COPY BOOKC1 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2898.00 Â Â Â C/COPY BOOKC2 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2899.00 ** Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2900.00 Â Vendor Total: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2901.00 Â Â Batch Total: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2902.00 ** Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2903.00 Edit list generated, check outq. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
    ****************** End of data **************************
                              Â
                                      Â
                                   Â
                           Â
            Â
                                       Â
                                       Â
                         Â
                                     Â
                                      Â
                                  Â
                                       Â
                                      Â
 Â
                                       Â
       Â
                              Â
       Â
                            Â
Â
                                    Â
                                       Â
         Â
    *************** Beginning of data **************************
0001.00 Â Â Â *% Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0002.00 Â Â Â *=========================
0003.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Hudson Foods, Inc. Â Â Â Â Â Â Â Â Â Â Â *
0004.00 Â Â Â *=========================
0005.00 Â Â Â * Â Â Â Â Â Â Â Â System: FREIGHT PAYABLES Â Â Â Â Â Â Â Â Â Â Â *
0006.00 Â Â Â * Â Â Â Â Â Â Â Program: FPR001 Â Â Â Â Type (B,I): I Â Â Â Â Â *
0007.00 Â Â Â * Â Â Â Program Function: Outside Freight Payables Entry/Update *
0008.00 Â Â Â * Â Â Â Original Request: 6356 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0009.00 Â Â Â *V Â Â Â Current Version: 01.00 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0010.00 Â Â Â * Â Â Â Â Â Â Â Comments: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0011.00 Â Â Â *-------------------------
0012.00 Â Â Â * Â Â Â Â Â Â Programmer: LRE Â Â Â Â Â Â Â Â Date: 04/11/95 Â Â *
0013.00 Â Â Â *-------------------------
0014.00 Â Â Â * Â Special Instructions: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0015.00 Â Â Â *-------------------------
0016.00 Â Â Â * Â Â Potential Problems: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0017.00 Â Â Â *-------------------------
0018.00    *             Modifications             *
0019.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0020.00 Â Â Â * Â Â Â Â Â Â Â Version: 01.03 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0021.00 Â Â Â * Â Â Â Â Â Â Â Request: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0022.00 Â Â Â * Â Â Â Â Â Â Programmer: Â Â Â Â Â Â Â Â Â Â Date: Â / Â / Â Â Â *
0023.00 Â Â Â * Â Â Â Â Â Modification: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0024.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0025.00 Â Â Â * Â Â Â Â Â Â Â Version: 01.02 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0026.00 Â Â Â * Â Â Â Â Â Â Â Request: 7544 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0027.00 Â Â Â * Â Â Â Â Â Â Programmer: LRE Â Â Â Â Â Â Â Â Date: 12/20/96 Â Â *
0028.00 Â Â Â * Â Â Â Â Â Modification: Added Additional Billing Logic. Â Â Â *
0029.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0030.00 Â Â Â * Â Â Â Â Â Â Â Version: 01.01 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0031.00 Â Â Â * Â Â Â Â Â Â Â Request: 7302 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0032.00 Â Â Â * Â Â Â Â Â Â Programmer: LRE Â Â Â Â Â Â Â Â Date: 09/17/96 Â Â *
0033.00 Â Â Â * Â Â Â Â Â Modification: Added confirmation chain to get ship# *
0034.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â and made charges other than Accessori-* Â
0035.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â go to the miscellaneous totals. Â Â Â * Â
0036.00 Â Â Â *-------------------------
0037.00    *              File Usage              * Â
0038.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â * Â
0039.00    *   File Name  I,O,U   Description             * Â
0040.00 Â Â Â * Â Â --------- Â ----- Â Â --------------------------
0041.00 Â Â Â *-------------------------
0042.00    *             Called Programs            * Â
0043.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â * Â
0044.00    *   Program        Description             * Â
0045.00 Â Â Â * Â Â --------- Â Â Â Â Â Â --------------------------
0046.00 Â Â Â * Â Â - NONE - Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â * Â
0047.00 Â Â Â *-------------------------
0048.00    *             Indicator Usage            * Â
0049.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â * Â
0050.00    *   Indicator       Description             * Â
0051.00 Â Â Â * Â Â --------- Â Â Â Â Â Â --------------------------
0052.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *
0053.00 Â Â Â *=========================
0054.00 Â Â Â *# Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0055.00 Â Â Â H Â Â Â Â 1 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0056.00 Â Â Â FFPD001 Â CF Â E Â Â Â Â Â Â Â Â Â Â WORKSTN Â Â Â Â Â Â Â Â Â Â Â Â Â
0057.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN2 Â KSFILE FPD00102 Â Â
0058.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN7 Â KSFILE FPD00107 Â Â
0059.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRNSA KSFILE FPD001SA Â Â
0060.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRNSB KSFILE FPD001SB Â Â
0061.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN16 KSFILE FPD00116 Â Â
0062.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN18 KSFILE FPD00118
0063.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN22 KSFILE FPD00122
0064.00 Â Â Â F Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RRN25 KSFILE FPD00125
0065.00 Â Â Â FHFP001 Â IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0066.00 Â Â Â FAPP400 Â IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0067.00 Â Â Â FOPP292 Â IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0068.00 Â Â Â FOPP293 Â IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0069.00 Â Â Â FOPL30101IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0070.00 Â Â Â FOPL30102IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â
0071.00 Â Â Â F Â Â Â Â Â Â OPP301R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP3012 Â Â
0072.00 Â Â Â FOPL30103IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0073.00 Â Â Â F Â Â Â Â Â Â OPP301R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP3013 Â Â
0074.00 Â Â Â FHFL10001IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0075.00 Â Â Â FOPP910 Â UF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0076.00 Â Â Â FOPL29409UF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0077.00 Â Â Â FOPL29405IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0078.00 Â Â Â F Â Â Â Â Â Â OPP294R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2945 Â Â
0079.00 Â Â Â FOPL29403IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0080.00 Â Â Â F Â Â Â Â Â Â OPP294R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2943 Â
0081.00 Â Â Â FOPL29411IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â
0082.00 Â Â Â F Â Â Â Â Â Â OPP294R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP29411 Â
0083.00 Â Â Â FOPL29501IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â
0084.00 Â Â Â FOPL29001UF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â A Â
0085.00 Â Â Â FOPL29003IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â
0086.00 Â Â Â F Â Â Â Â Â Â OPP290R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2903 Â
0087.00 Â Â Â FOPL29004IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â Â
0088.00 Â Â Â F Â Â Â Â Â Â OPP290R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2904 Â
0089.00 Â Â Â FOPL29006IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0090.00 Â Â Â F Â Â Â Â Â Â OPP290R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2906 Â
0090.01 Â Â Â FOPL29012IF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â Â
0090.02 Â Â Â F Â Â Â Â Â Â OPP290R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP29012
0091.00 Â Â Â FOPL29101UF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â A Â
0092.00 Â Â Â FOPL29102UF Â E Â Â Â Â Â K Â Â Â Â DISK Â Â Â Â Â Â Â Â Â Â Â A Â
0093.00 Â Â Â F Â Â Â Â Â Â OPP291R Â Â Â Â Â Â Â Â Â Â Â Â Â KRENAMEOPP2912 Â
0094.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0095.00 Â Â Â E/COPY BOOKE1 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0096.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â TOT Â Â 1 Â 2 15 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0097.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â MSG Â Â 1 Â 1 32 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0098.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â CHG Â Â Â Â 99 Â 4 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0099.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â SINV Â Â Â 999 Â 4 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0100.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â NOC# Â Â Â 99 Â 3 0 Â Â Â Â Â Â Â Â Â Â Â Â Â
0101.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â NVC# Â Â Â 99 Â 3 0 Â Â Â Â Â Â Â Â Â Â Â Â Â
0102.00 Â Â Â E Â Â Â Â Â Â Â Â Â Â VEN Â Â Â Â 99 Â 7 0 Â Â Â Â Â Â Â Â Â Â Â Â Â
0103.00 Â Â Â I/COPY BOOKI1 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0104.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 512 512 QUIRY Â Â Â Â Â Â
0105.00 Â Â Â I Â Â Â Â Â IDS Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0106.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 25 VMVNNM Â Â Â Â
0107.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 13 VNAME Â Â Â Â Â
0108.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0109.00 Â Â Â I Â Â Â Â Â IDS Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0110.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 4 LOOK1 Â Â Â Â Â
0111.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 1 FSCTYP Â Â Â Â
0112.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 2 Â 40FSCSTP Â Â Â Â
0113.00 Â Â Â I Â Â Â Â Â IDS Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0114.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 4 LOOK2 Â Â Â Â
0115.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 Â 1 FECTYP Â Â Â Â
0116.00 Â Â Â I Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 2 Â 40FECSTP Â Â Â Â
0117.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0118.00 Â Â Â C Â Â Â Â Â PLIST Â Â PLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0119.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â PFLAG Â 1 Â Â Â Â Â Â Â
0120.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â JULIAN Â 5 Â Â Â Â Â Â Â
0121.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â MDY Â Â 6 Â Â Â Â Â Â Â
0122.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0123.00 Â Â Â C Â Â Â Â Â CFTFKY Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0124.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â Â Â Â Â Â Â
0125.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â Â Â Â Â Â Â
0126.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â CNFTRF Â Â Â Â Â Â Â Â Â Â
0127.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â TYPE Â Â Â Â Â Â Â Â Â Â Â
0128.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0129.00 Â Â Â C Â Â Â Â Â KEY1 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0130.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â Â Â Â Â Â Â
0131.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â Â Â Â Â Â Â
0132.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0133.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0134.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â Â Â Â Â Â
0135.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â Â Â Â Â Â
0136.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â Â Â Â Â Â Â Â
0137.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0138.00 Â Â Â C Â Â Â Â Â KEY3 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0139.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHDIV# Â Â Â Â Â Â Â Â Â
0140.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHCPX# Â Â Â Â Â Â Â Â Â
0141.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHVEND Â Â Â
0142.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHSHP# Â Â Â
0143.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0144.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â
0145.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHDIV# Â Â Â
0146.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHCPX# Â Â Â
0147.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHSHP# Â Â Â
0148.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHVEND Â Â Â
0149.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0150.00 Â Â Â C Â Â Â Â Â KEY5 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0151.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â Â Â
0152.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â Â Â
0153.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â AFTVND Â Â Â Â Â Â
0154.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â Â Â Â Â
0155.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0156.00 Â Â Â C Â Â Â Â Â KEY6 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0157.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â Â Â
0158.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â Â Â
0159.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP#
0160.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â AFTVND
0161.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0162.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â KLIST Â Â Â Â Â Â Â Â
0163.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV#
0164.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX#
0165.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP#
0166.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND
0167.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0168.00 Â Â Â C Â Â Â Â Â KEY8 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â
0169.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYDIV# Â Â Â Â
0170.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYCPX# Â Â Â Â
0171.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYCTYP Â Â Â Â
0172.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0173.00 Â Â Â C Â Â Â Â Â KEY9 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â
0174.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â
0175.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â
0176.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â Â Â Â
0168.00 Â Â Â C Â Â Â Â Â KEY8 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â
0169.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYDIV# Â Â Â Â
0170.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYCPX# Â Â Â Â
0171.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FYCTYP Â Â Â Â
0172.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0173.00 Â Â Â C Â Â Â Â Â KEY9 Â Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â
0174.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDDIV# Â Â Â Â
0175.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â LDCPX# Â Â Â Â
0176.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â Â Â Â
0177.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPFB# Â Â Â
0178.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0179.00 Â Â Â C Â Â Â Â Â KEY10 Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â
0180.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEDIV# Â Â Â
0181.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECPX# Â Â Â
0182.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECTYP Â Â Â
0183.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0184.00 Â Â Â C Â Â Â Â Â KEY10A Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â
0185.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEDIV# Â Â Â
0186.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECPX# Â Â Â Â Â
0187.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â PMPROC Â Â Â Â Â
0188.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FDCODE Â Â Â Â Â
0189.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0190.00 Â Â Â C Â Â Â Â Â KEY11 Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â
0191.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â Â Â Â Â
0192.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â Â Â Â Â
0193.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â Â Â Â
0194.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â Â Â Â Â
0195.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPFB# Â Â Â Â Â Â
0196.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECTYP Â Â Â Â Â Â
0197.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECSTP Â Â Â Â Â Â
0198.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0199.00 Â Â Â C Â Â Â Â Â KEY12 Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0200.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â Â Â Â Â Â
0201.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â Â Â Â Â Â
0202.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â Â Â Â Â Â
0203.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â Â Â Â Â
0204.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPFB# Â Â
0205.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0206.00 Â Â Â C Â Â Â Â Â KEY13 Â Â KLIST Â Â Â Â Â Â Â Â Â Â
0207.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â Â
0208.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â Â
0209.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â
0210.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â Â
0211.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPFB# Â Â
0212.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0213.00 Â Â Â C Â Â Â Â Â KEY14 Â Â KLIST Â Â Â Â Â Â Â Â Â Â
0214.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEDIV# Â Â
0215.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECPX# Â Â
0216.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECTYP Â Â
0217.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECSTP Â Â
0218.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0219.00 Â Â Â C Â Â Â Â Â KEY15 Â Â KLIST Â Â Â Â Â Â Â Â Â Â
0220.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â Â
0221.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â
0222.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â
0223.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPVEND Â
0224.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0225.00 Â Â Â C Â Â Â Â Â KEY16 Â Â KLIST Â Â Â Â Â Â Â Â Â
0226.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHDIV# Â
0227.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHCPX# Â
0228.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHKEY# Â
0229.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHCODE Â
0230.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0231.00 Â Â Â C Â Â Â Â Â KEY17 Â Â KLIST Â Â Â Â Â Â Â Â Â
0232.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FDDIV# Â
0233.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FDCPX# Â
0234.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FDLBL Â
0235.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FDEXT# Â
0236.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0237.00 Â Â Â C Â Â Â Â Â KEY18 Â Â KLIST Â Â Â Â Â Â Â Â Â
0238.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â
0239.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â
0240.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPSHP# Â Â Â Â Â Â Â Â Â
0241.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHKEY# Â Â Â Â Â Â Â Â Â
0242.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHCODE Â Â Â Â Â Â Â Â Â
0243.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0244.00 Â Â Â C Â Â Â Â Â KEY19 Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0245.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEDIV# Â Â Â Â Â Â Â Â Â
0246.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FECPX# Â Â Â Â Â Â Â Â Â
0247.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FESHP# Â Â Â Â Â Â Â Â Â
0248.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEVEND Â
0249.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEFB# Â Â Â
0250.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FELBL Â Â Â
0251.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FEEXT# Â Â Â
0252.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0253.00 Â Â Â C Â Â Â Â Â KEY20 Â Â KLIST Â Â Â Â Â Â Â Â Â Â Â
0254.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPDIV# Â Â Â
0255.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FPCPX# Â Â Â
0256.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â KFLD Â Â Â Â Â FHVEND Â Â Â
0257.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.01 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.02 LAT1 C* Â Convert MDY to CYMD Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.03 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.04 LAT1 C Â Â Â Â Â DTCVN Â Â PLIST Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.05 LAT1 C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â $CDATE Â 80 Â Â Â Â Â Â Â Â Â Â
0257.06 LAT1 C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â $CFFMT Â 5 Â Â Â Â Â Â Â Â Â Â
0257.07 LAT1 C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â $CTFMT Â 5 Â Â Â Â Â Â Â Â Â Â
0257.08 LAT1 C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â $CERR Â 1 Â Â Â Â Â Â Â Â Â Â
0257.09 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0257.10 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0258.00    * Level Break Field             Â
0259.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0260.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPVEND Â Â HLDVEN Â Â
0261.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPSHP# Â Â HLDSHP Â Â
0262.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0263.00    * Vendor Total Fields            Â
0264.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0265.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPAFRT Â Â VENFRT Â Â
0266.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPACHG Â Â VENACC Â Â Â Â Â Â Â
0267.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPMCHG Â Â VENMIS Â Â Â Â Â Â Â
0268.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPMCHG Â Â VENTOT Â Â Â Â Â Â Â
0269.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0270.00    * Batch Total Fields                  Â
0271.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0272.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPAFRT Â Â BCHFRT Â Â Â Â Â Â Â
0273.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPACHG Â Â BCHACC Â Â Â Â Â Â Â
0274.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPMCHG Â Â BCHMIS
0275.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPMCHG Â Â BCHTOT Â Â Â Â
0276.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0277.00    * Before image of charge amount          Â
0278.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0279.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FEAMNT Â Â BFRAMT Â Â Â Â
0280.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0281.00 Â Â Â * Before image of Vendor Invoice# Â Â Â Â Â Â Â Â Â
0282.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0283.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPFB# Â Â BFRFB# Â Â Â
0284.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0285.00    * Actual Prorate total for single vendor   Â
0286.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0287.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPAFRT Â Â PROACT Â Â
0288.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0289.00 Â Â Â * Estimated Prorated total for single vendor Â
0290.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0291.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPEFRT Â Â PROEST Â Â
0292.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPEFRT Â Â CHECK Â Â Â
0293.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0294.00    * Estimated Prorated total for multiple vendor confirmations  Â
0295.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0296.00 Â Â Â C Â Â Â Â Â *LIKE Â Â DEFN FPEFRT Â Â PROES2 Â Â Â Â Â Â Â Â Â Â Â
0297.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0298.00    * Get Complex Name                       Â
0299.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0300.00 Â Â Â C Â Â Â Â Â KEY1 Â Â Â CHAINHFP001R Â Â Â Â Â Â Â 01 Â Â Â Â Â Â Â
0301.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0302.00 Â Â Â C Â Â Â Â Â *IN01 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â
0303.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â CXDESC Â Â Â Â
0304.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' CXDESC Â Â Â Â
0305.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0306.00    *Center complex name               Â
0307.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â
0308.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0309.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â
0310.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â CXDESC Â Â Â Â
0311.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â
0312.00    * Main Loop                     Â
0313.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0314.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0315.00    * Load Freight Payable Entries            Â
0316.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0317.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR LODFPE Â Â Â Â Â Â Â Â Â Â Â
0318.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0319.00 B2 Â C Â Â Â Â Â HLDPOS Â Â IFNE 0 Â Â Â Â
0320.00 Â Â Â C Â Â Â Â Â HLDPOS Â Â ANDLERRN2 Â Â Â Â Â Â Â Â Â Â Â Â Â
0321.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDHLDPOS Â Â CURSOR Â Â Â Â Â Â Â
0322.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0323.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0324.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00103 Â Â Â Â Â Â Â Â Â Â Â
0325.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00101 Â Â Â Â Â Â Â Â Â Â Â
0326.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0327.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDROWID Â Â HLDPOS Â 30 Â Â Â Â Â
0328.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDROWID Â Â CURSOR Â
0329.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0330.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â MESSGE Â Â Â Â Â
0331.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0332.00 Â Â Â * Position to bottom of SFL. Â Â Â Â Â Â Â Â Â Â Â Â
0333.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0334.00 B2 Â C Â Â Â Â Â *IN18 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â
0335.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0336.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDRRN2 Â Â Â HLDPOS Â Â Â Â Â
0337.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0338.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0339.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0340.00    * Add an invoice                         Â
0341.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0342.00 B3 Â C Â Â Â Â Â *IN06 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0343.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0344.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â ADBILL Â 1 Â Â Â Â Â Â Â Â Â Â
0345.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0346.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN58 Â Â Â Â Â Â Â Â Â Â Â Â
0347.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0348.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN59 Â Â Â Â Â Â Â Â Â
0349.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0350.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR ADDINV Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0351.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0352.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0353.00    * Edit List                        Â
0354.00 B4 Â C Â Â Â Â Â *IN05 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0355.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0356.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â LDEXIT Â Â Â Â
0357.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â OUT Â LDA Â Â Â Â Â Â Â Â Â Â
0358.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'FPR003' Â Â Â Â Â Â Â Â
0359.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â IN Â LDA Â Â Â Â Â Â Â Â Â Â
0360.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0361.00 Â Â Â C Â Â Â Â Â LDEXIT Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â
0362.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE MSG,1 Â Â MESSGE Â Â Â Â
0363.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0364.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0365.00 X4 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
0366.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0367.00    * Create A/P Edit Batch            Â
0368.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0369.00 B5 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â
0370.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0371.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'FPR002' Â Â Â Â Â Â Â
0372.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0373.00 X5 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
0374.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0375.00    * Process SFL requests                 Â
0376.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0377.00 Â Â Â * SFLDSP(Records exist in SFL) Â Â Â Â Â Â Â Â Â Â Â Â Â
0378.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0379.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN53 Â Â Â Â Â Â Â
0380.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0381.00 B6 Â C Â Â Â Â Â *IN52 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
0382.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00102 Â Â Â Â Â Â Â Â 53 Â
0383.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0384.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0385.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â B Â Â Â 30 Â Â Â Â Â Â Â Â Â Â
0386.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEA*BLANKS Â SINV Â Â Â Â Â Â Â Â Â Â Â Â Â
0387.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0388.00    * Load requests in ARRAY to be processed later          Â
0389.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0390.00 B6 Â C Â Â Â Â Â *IN53 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0391.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â B Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0392.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE RRN2 Â Â Â SINV,B Â Â Â Â Â Â Â Â Â Â Â Â
0393.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELSELINV Â Â SINV,B Â Â Â Â Â Â Â Â Â Â Â Â
0394.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELINV Â Â Â Â Â Â Â Â Â Â Â Â
0395.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATFPD00102 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0396.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00102 Â Â Â Â Â Â Â Â 53 Â Â Â Â Â Â
0397.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0398.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0399.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDB Â Â Â Â C Â Â Â 30 Â Â Â Â Â Â Â Â Â Â
0400.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â B Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0401.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0402.00 B6 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0403.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0404.00 Â Â Â C Â Â Â Â Â B Â Â Â Â ANDLEC Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0405.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0406.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â B Â Â Â Â Â Â Â Â Â Â Â Â Â
0407.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE SINV,B Â Â RRN2 Â Â Â Â Â Â Â Â Â Â Â
0408.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0409.00 Â Â Â C Â Â Â Â Â RRN2 Â Â Â CHAINFPD00102 Â Â Â Â Â Â 53 Â Â Â Â Â Â Â
0410.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0411.00 B7 Â C Â Â Â Â Â *IN53 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0412.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0413.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELSINV,B Â Â SELINV Â Â Â Â Â Â Â Â Â Â Â Â
0414.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0415.00 B8 Â C Â Â Â Â Â SELINV Â Â IFEQ '2' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0416.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR EDIT Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0417.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0418.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0419.00 B8 Â C Â Â Â Â Â SELINV Â Â IFEQ '4' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0420.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR DELETE Â Â Â Â Â Â Â Â Â Â Â Â Â
0421.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0422.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0423.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDRRN2 Â Â Â CURSOR Â Â Â Â Â Â Â Â
0424.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0425.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0426.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0427.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0428.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â
0429.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0430.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0431.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0432.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0433.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0434.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
0435.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0436.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *INLR Â Â Â Â Â
0437.00 Â Â Â C*************************
0438.00 Â Â Â C Â Â Â Â Â ADDBIL Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0439.00 Â Â Â C*************************
0440.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0441.00    * Additional billings will not have an estimated Totals to   Â
0442.00 Â Â Â * work with, so get all the records for the Shipment/Vendor to Â
0443.00 Â Â Â * find the estimated Totals to work with. Â Â Â Â Â Â Â Â Â Â Â Â
0444.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0445.00 Â Â Â C Â Â Â Â Â KEY15 Â Â SETLLOPP29411 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0446.00 Â Â Â C Â Â Â Â Â KEY15 Â Â READEOPP29411 Â Â Â Â Â Â Â Â 01 Â Â Â Â Â Â
0447.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0448.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â WRKFRT Â 92 Â Â Â Â Â Â Â Â Â Â
0449.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â WRKCHG Â 92 Â Â Â Â Â Â Â Â Â Â
0450.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0451.00 B1 Â C Â Â Â Â Â *IN01 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0452.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHEFRT Â Â WRKFRT Â Â Â Â Â Â Â Â Â Â Â Â
0453.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â WRKCHG Â Â Â Â Â Â Â Â Â Â Â Â
0454.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 01 Â Â Â Â Â Â
0455.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0456.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0457.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0458.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0459.00 Â Â Â **************************
0460.00 Â Â Â C Â Â Â Â Â ADDINV Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0461.00 Â Â Â **************************
0462.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0463.00    * Add an invoice                                                                                                 Â
0464.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CNFTRF Â Â Â Â Â Â
0465.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE 'C' Â Â Â TYPE Â Â Â Â Â Â Â
0466.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPSHP# Â Â Â Â Â Â
0467.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0468.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE LDDIV# Â Â FPDIV# Â Â Â Â Â Â
0469.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE LDCPX# Â Â FPCPX# Â Â Â Â Â Â
0470.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE LDPLT# Â Â FPPLT# Â Â Â Â Â Â
0471.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0472.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0473.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0474.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0475.00 B2 Â C Â Â Â Â Â ADBILL Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0476.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0477.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00104 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0478.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0479.00 B3 Â C Â Â Â Â Â CNFTRF Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0480.00 Â Â Â C Â Â Â Â Â CFTFKY Â Â CHAINOPP2943 Â Â Â Â Â Â Â 99 Â Â Â Â Â Â Â Â
0481.00 B4 Â C Â Â Â Â Â *IN99 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0482.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFHSHP# Â Â FPSHP# Â Â Â Â Â Â Â Â Â Â
0483.00 B5 Â C Â Â Â Â Â FPSHP# Â Â IFEQ 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0484.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN98 Â Â Â Â Â Â Â Â Â Â Â
0485.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0486.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0487.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0488.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0489.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0490.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00104 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0491.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00127 Â Â Â Â Â Â Â
0492.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
0493.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0494.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00104 Â Â Â Â Â Â Â
0495.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0496.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â
0497.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
0498.00 Â Â Â C Â Â Â Â Â *IN98 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
0499.00 Â Â Â C Â Â Â Â Â *IN99 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
0500.00 Â Â Â C Â Â Â Â Â FPSHP# Â Â ANDNE0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0501.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0502.00 Â Â Â * Validate Ship# Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0503.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0504.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â CHAINOPP910R Â Â Â Â Â Â N30 Â Â Â Â Â
0505.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0506.00 B3 Â C Â Â Â Â Â *IN30 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0507.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0508.00 Â Â Â * Validate Ship Header Status('Z') Â Â Â Â Â Â Â Â Â Â Â Â
0509.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0510.00 B4 Â C Â Â Â Â Â SISTAT Â Â IFEQ 'Z' Â Â Â Â Â Â Â Â Â Â
0511.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0512.00 Â Â Â * Validate Ship Header Freight Status('Z') Â Â Â Â
0513.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0514.00 B5 Â C Â Â Â Â Â SIFSTA Â Â IFEQ 'Z' Â Â Â Â Â Â Â Â Â Â
0514.01 MOD Â C*** ALLOW JANICE TO PAY WITH EST FREIGHT = 0 Â Â Â
0514.02 MOD Â C* Â Â Â Â Â SIFSTA Â Â OREQ 'S' Â Â Â Â Â Â Â Â Â Â
0514.03 MOD Â C* Â Â Â Â Â SIFSTA Â Â OREQ 'I' Â Â Â Â Â Â Â Â Â Â
0514.04 MOD Â C* Â Â Â Â Â SIFSTA Â Â OREQ 'M' Â Â Â Â Â Â Â Â Â Â Â
0514.05 MOD Â C*** END MOD Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0515.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0516.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CNFTRF Â Â Â Â Â
0517.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE 'C' Â Â Â TYPE Â Â Â Â Â Â
0518.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0519.00    * Pallets In/Out                  Â
0520.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0521.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDSIPLIN Â Â PALIN Â Â Â Â Â
0522.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDSIPLOU Â Â PALOUT Â Â Â Â Â Â Â Â Â Â Â Â
0523.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0524.00 Â Â Â * Ship# OK, now get Vendor(s) associated w/ shipment for user to Â
0525.00 Â Â Â * select. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0526.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0527.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR VNDSEL Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0528.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0529.00 Â Â Â * If invoice was added, end loop. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0530.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0531.00 B6 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0532.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â
0533.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â HLDPOS Â Â Â Â Â Â Â Â Â
0534.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0535.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0536.00 X5 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0537.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0538.00 MOD Â C* ALLOW JANICE TO PAY A SHIPMENT THAT HAS ZERO EST FREIGHT Â
0539.00 MOD Â C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0540.00 MODB6C Â Â Â Â Â SISTAT Â Â IFNE 'Z' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0541.00 MOD Â C* Â Â Â Â Â SISTAT Â Â ANDNE'I' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0542.00 MOD Â C* Â Â Â Â Â SISTAT Â Â ANDNE'M' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0543.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN32 Â Â Â Â Â Â Â Â
0544.00 MODE6C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0545.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0546.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0547.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0548.00 X4 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0549.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0550.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN31 Â Â Â Â Â Â
0551.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0552.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0553.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0554.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0555.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0556.00    * Reset                       Â
0557.00 B1 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â
0558.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â Â Â
0559.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â ADBILL Â Â Â Â Â Â Â Â Â Â Â Â
0560.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN59 Â Â Â Â Â Â Â Â Â Â Â Â
0561.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0562.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0563.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0564.00 Â Â Â **************************
0565.00 Â Â Â C Â Â Â Â Â ADRCDS Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0566.00 Â Â Â **************************
0567.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0568.00    * Add freight detail                       Â
0569.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0570.00    * DETACT is a total of all actaul detail for an invoice     Â
0571.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0572.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â DETACT Â 92 Â Â Â Â Â Â Â Â Â Â
0573.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0574.00    * Add charges first                       Â
0575.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0576.00 B1 Â C Â Â Â Â Â RRNSA Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0577.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0578.00 Â Â Â * Add Acces. &Â Misc. record(s) to Freight Payables Detail. Â Â
0579.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0580.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â Â Â Â
0581.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0582.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 23 Â Â Â Â Â Â Â
0583.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0584.00 B2 Â C Â Â Â Â Â *IN23 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0585.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0586.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPDIV# Â Â FEDIV# Â Â Â Â Â Â
0587.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPCPX# Â Â FECPX# Â Â Â Â Â Â
0588.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPPLT# Â Â FEPLT# Â Â Â Â Â Â
0589.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPSHP# Â Â FESHP# Â Â Â Â Â Â
0590.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVEND Â Â FEVEND Â Â Â Â Â Â
0591.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPFB# Â Â FEFB# Â Â Â Â Â Â Â
0592.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0593.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â FECODE Â Â Â Â Â Â
0594.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FECNF# Â Â Â Â Â Â Â Â
0595.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FELBL Â Â Â Â Â Â Â Â
0596.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FEEXT# Â Â Â Â Â Â Â Â
0597.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0598.00 Â Â Â C Â Â Â Â Â KEY10 Â Â CHAINOPP3012 Â Â Â Â Â Â Â 24 Â Â Â Â
0599.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0600.00 B3 Â C Â Â Â Â Â *IN24 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0601.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0602.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFGCO Â Â Â FECO Â Â Â Â Â Â Â Â Â
0603.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGGLLO Â Â FEGLLO Â Â Â
0604.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGGLAC Â Â FEGLAC Â Â Â
0605.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGTYPE Â Â FEGLTT Â Â Â
0606.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0607.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â
0608.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0609.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FECO Â Â Â Â
0610.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLLO Â Â Â
0611.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLAC Â Â Â
0612.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLTT Â Â Â Â Â Â Â
0613.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0614.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0615.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0616.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEOPP291R Â Â Â Â Â Â Â Â Â Â Â
0617.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0618.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â Â Â Â
0619.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0620.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 23 Â Â Â
0621.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0622.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0623.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0624.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0625.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0626.00    * Write out product freight detail         Â
0627.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0628.00    *Clear accumulators                 Â
0629.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMSL1 Â 92 Â Â Â
0630.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMPC1 103 Â Â Â
0631.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMSL2 Â 92 Â Â Â
0632.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMPC2 103 Â Â Â
0633.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN83 Â Â Â Â Â
0634.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0635.00 B1 Â C Â Â Â Â Â FPAFRT Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â
0636.00 Â Â Â C Â Â Â Â Â FPEFRT Â Â ANDEQ0 Â Â Â Â Â Â Â Â Â Â Â Â
0637.00 Â Â Â C Â Â Â Â Â FPACHG Â Â ORNE 0 Â Â Â Â Â Â Â Â Â Â Â Â
0638.00 Â Â Â C Â Â Â Â Â FPECHG Â Â ANDEQ0 Â Â Â Â Â Â Â Â Â Â Â Â
0639.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN83 Â Â Â Â Â Â
0640.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPEFRT Â Â HLDFRT Â 92 Â Â Â Â
0641.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPECHG Â Â HLDCHG Â 92 Â Â Â Â
0642.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR ADDBIL Â Â Â Â Â Â Â Â Â Â Â
0643.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDWRKFRT Â Â FPEFRT Â Â Â Â Â Â
0644.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDWRKCHG Â Â FPECHG Â Â Â Â Â Â
0645.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0646.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0647.00 Â Â Â C Â Â Â Â Â KEY15 Â Â SETLLOPP29411 Â Â Â Â Â Â Â Â Â Â
0648.00 Â Â Â C Â Â Â Â Â KEY15 Â Â READEOPP29411 Â Â Â Â Â Â Â Â 23 Â Â Â Â Â Â
0649.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0650.00 B1 Â C Â Â Â Â Â *IN23 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0651.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0652.00 Â Â Â * Prorate freight per confirmation based on % the estimate is of Â
0653.00 Â Â Â * the total estimate. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0654.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0655.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHEFRT Â Â CUMSL1 Â Â Â Â Â Â Â Â Â Â Â Â
0656.00 Â Â Â C Â Â Â Â Â CUMSL1 Â Â MULT 100 Â Â Â WORK10 150 Â Â Â Â Â Â Â Â Â Â
0657.00 B2 Â C Â Â Â Â Â FPEFRT Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â
0658.00 Â Â Â C Â Â Â Â Â WORK10 Â Â DIV Â FPEFRT Â Â WORK12 123H Â Â
0659.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
0660.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â WORK12 Â Â Â Â Â
0661.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0662.00 Â Â Â C Â Â Â Â Â WORK12 Â Â SUB Â CUMPC1 Â Â PCT Â Â 63 Â Â Â
0663.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDWORK12 Â Â CUMPC1 Â Â Â Â Â
0664.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0665.00 Â Â Â C Â Â Â Â Â PCT Â Â Â DIV Â 100 Â Â Â PCTDEC Â 65 Â Â Â
0666.00 Â Â Â C Â Â Â Â Â PCTDEC Â Â MULT FPAFRT Â Â FHAFRT Â Â H Â Â Â Â Â Â Â
0667.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0668.00 Â Â Â * Prorate Actual Access. Charge per confirmation based on % Â
0669.00 Â Â Â * the estimate is of the total estimate. Â Â Â Â Â Â Â Â Â Â
0670.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0671.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â CUMSL2 Â Â Â Â Â Â Â Â Â
0672.00 Â Â Â C Â Â Â Â Â CUMSL2 Â Â MULT 100 Â Â Â WORK20 150 Â Â Â Â Â Â Â
0673.00 Â Â Â C Â Â Â Â Â FPECHG Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0674.00 Â Â Â C Â Â Â Â Â WORK20 Â Â DIV Â FPECHG Â Â WORK22 113H Â Â Â Â Â Â Â
0675.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0676.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â WORK22 Â Â Â Â Â
0677.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0678.00 Â Â Â C Â Â Â Â Â WORK22 Â Â SUB Â CUMPC2 Â Â PCT Â Â Â Â Â Â Â
0679.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDWORK22 Â Â CUMPC2 Â Â Â Â Â
0680.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0681.00 Â Â Â C Â Â Â Â Â PCT Â Â Â DIV Â 100 Â Â Â PCTDEC Â Â Â Â Â
0682.00 Â Â Â C Â Â Â Â Â PCTDEC Â Â MULT FPACHG Â Â FHACHG Â Â H Â Â Â
0683.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0684.00 Â Â Â * Estimated total that is to be used for 1 vendor confirmations Â
0685.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0686.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFHEFRT Â Â PROEST Â Â Â Â Â Â Â Â Â Â Â
0687.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â PROEST Â Â Â Â Â Â Â Â Â Â Â
0688.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0689.00    * Actual total to be prorated across detail           Â
0690.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0691.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFHAFRT Â Â PROACT Â Â Â Â Â Â Â Â Â Â Â
0692.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHACHG Â Â PROACT Â Â Â Â Â Â Â Â Â Â Â
0693.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0694.00    * Estimated total to be used during proration of confirmations  Â
0695.00    *  with more than one vendor                   Â
0696.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0697.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â PROES2 Â Â Â Â Â Â Â Â Â Â Â Â
0698.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0699.00 Â Â Â * Figure out number of vendors on shipment/confirmation to figure
0700.00    * which totals to use during calc                Â
0701.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0702.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â COUNT Â 30 Â Â Â Â Â Â
0703.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0704.00 Â Â Â C Â Â Â Â Â KEY18 Â Â SETLLOPP2945 Â Â Â Â Â Â Â Â Â Â Â Â
0705.00 Â Â Â C Â Â Â Â Â KEY18 Â Â READEOPP2945 Â Â Â Â Â Â Â Â Â 24 Â Â
0706.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0707.00 B2 Â C Â Â Â Â Â *IN24 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0708.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0709.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â COUNT Â Â Â Â Â Â Â Â
0710.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHEFRT Â Â PROES2 Â Â Â Â Â Â Â Â
0711.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â PROES2 Â Â Â Â Â Â Â Â Â Â Â
0712.00 Â Â Â C Â Â Â Â Â KEY18 Â Â READEOPP2945 Â Â Â Â Â Â Â Â Â 24 Â Â Â Â Â Â
0713.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0714.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0715.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0716.00 B2 Â C Â Â Â Â Â COUNT Â Â IFGT 1 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0717.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDPROES2 Â Â PROEST Â Â Â Â Â Â Â Â Â Â Â
0718.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0719.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0720.00 Â Â Â * Prorate header(OPP294) prorated total to detail(OPP295) Â Â Â
0721.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0722.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMSL3 Â 92 Â Â Â Â Â Â Â Â
0723.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CUMPC3 103 Â Â Â Â Â Â Â Â
0724.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0725.00 Â Â Â * CHECK is the total of actual detail per vendor confirmation Â
0726.00 Â Â Â * total. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0727.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0728.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CHECK Â Â Â Â Â Â Â Â Â Â Â
0729.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0730.00 Â Â Â C Â Â Â Â Â KEY16 Â Â SETLLOPP295R Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0731.00 Â Â Â C Â Â Â Â Â KEY16 Â Â READEOPP295R Â Â Â Â Â Â Â Â Â 25 Â Â Â Â
0732.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0733.00 B2 Â C Â Â Â Â Â *IN25 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0734.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0735.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FDEFRT Â Â CUMSL3 Â Â Â Â Â Â Â Â Â Â
0736.00 Â Â Â C Â Â Â Â Â CUMSL3 Â Â MULT 100 Â Â Â WORK30 150 Â Â Â Â Â Â Â Â
0737.00 B3 Â C Â Â Â Â Â PROEST Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0738.00 Â Â Â C Â Â Â Â Â WORK30 Â Â DIV Â PROEST Â Â WORK32 113H Â Â Â Â
0739.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0740.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â WORK32 Â Â Â Â Â Â Â
0741.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0742.00 Â Â Â C Â Â Â Â Â WORK32 Â Â SUB Â CUMPC3 Â Â PCT Â Â Â Â Â Â Â Â
0743.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDWORK32 Â Â CUMPC3 Â Â Â Â Â Â Â
0744.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0745.00 Â Â Â C Â Â Â Â Â PCT Â Â Â DIV Â 100 Â Â Â PCTDEC Â Â Â Â Â Â Â
0746.00 Â Â Â C Â Â Â Â Â PCTDEC Â Â MULT PROACT Â Â FDAFRT Â Â H Â Â Â Â
0747.00 B3 Â C Â Â Â Â Â FDLBS Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â
0748.00 Â Â Â C Â Â Â Â Â FDAFRT Â Â DIV Â FDLBS Â Â FDAFLB Â Â H Â Â Â
0749.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0750.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FDAFLB Â Â Â Â Â
0751.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0752.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0753.00    * Set up and write product freight record      Â
0754.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0755.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPDIV# Â Â FEDIV# Â Â Â Â Â
0756.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPCPX# Â Â FECPX# Â Â Â Â Â Â Â
0757.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPPLT# Â Â FEPLT# Â Â Â Â Â Â Â
0758.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPSHP# Â Â FESHP# Â Â Â Â Â Â Â
0759.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVEND Â Â FEVEND Â Â Â Â Â Â Â
0760.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPFB# Â Â FEFB# Â Â Â Â Â Â Â
0761.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0762.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FECTYP Â Â Â Â Â Â Â
0763.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FECSTP Â Â Â Â Â Â Â
0764.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0765.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FDCODE Â Â FECODE Â Â Â Â Â Â Â
0766.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFDKEY# Â Â FECNF# Â Â Â Â Â Â Â
0767.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFDLBL Â Â FELBL Â Â Â Â Â Â Â
0768.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFDEXT# Â Â FEEXT# Â Â Â Â Â Â Â
0769.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFDAFRT Â Â FEAMNT Â Â Â Â Â Â Â
0770.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0771.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FDAFRT Â Â CHECK Â Â Â Â Â Â Â
0772.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0773.00 Â Â Â C Â Â Â Â Â KEY17 Â Â CHAINHFP100R Â Â Â Â Â Â Â 24 Â Â Â
0774.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0775.00 B3 Â C Â Â Â Â Â *IN24 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0776.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â PMPROC Â Â Â Â Â Â Â Â Â
0777.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0778.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0779.00 Â Â Â C Â Â Â Â Â KEY10A Â Â CHAINOPP301R Â Â Â Â Â Â Â 24 Â Â Â Â Â
0780.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0781.00 B3 Â C Â Â Â Â Â *IN24 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0782.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0783.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFGCO Â Â Â FECO Â Â Â Â Â Â Â Â
0784.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGGLLO Â Â FEGLLO Â Â Â Â Â Â Â
0785.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGGLAC Â Â FEGLAC Â Â Â Â Â Â Â
0786.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FGTYPE Â Â FEGLTT Â Â Â Â Â Â Â
0787.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0788.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0789.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0790.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FECO Â Â Â Â Â Â Â Â
0791.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLLO Â Â Â Â Â Â Â
0792.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLAC Â Â Â Â Â
0793.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FEGLTT Â Â Â Â Â
0794.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0795.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0796.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0797.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â DETACT Â Â Â Â Â
0798.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0799.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEOPP2912 Â Â Â Â Â Â Â Â Â Â
0800.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0801.00 Â Â Â C Â Â Â Â Â KEY16 Â Â READEOPP295R Â Â Â Â Â Â Â Â Â 25 Â Â Â Â Â Â
0802.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0803.00 Â Â Â * If there is a difference from the total, add the remainder to Â
0804.00 Â Â Â *the last entry. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0805.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0806.00 B3 Â C Â Â Â Â Â *IN25 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0807.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0808.00 Â Â Â C Â Â Â Â Â PROACT Â Â SUB Â CHECK Â Â CHECK Â Â Â Â Â Â Â Â Â Â Â Â
0809.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0810.00 B4 Â C Â Â Â Â Â CHECK Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0811.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0812.00 Â Â Â C Â Â Â Â Â KEY19 Â Â CHAINOPP2912 Â Â Â Â Â Â Â 26 Â Â Â Â Â Â Â Â
0813.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0814.00 B5 Â C Â Â Â Â Â *IN26 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0815.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0816.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â CHECK Â Â FEAMNT Â
0817.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â CHECK Â Â DETACT Â
0818.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATOPP2912 Â Â Â Â Â Â
0819.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0820.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
0821.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0822.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
0823.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
0824.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
0825.00 Â Â Â C Â Â Â Â Â KEY15 Â Â READEOPP29411 Â Â Â Â Â Â Â Â 23 Â Â
0826.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0827.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0828.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPAFRT Â Â TOTACT Â 92 Â Â Â Â Â
0829.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â TOTACT Â Â Â Â Â Â Â
0830.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0831.00 Â Â Â C Â Â Â Â Â TOTACT Â Â SUB Â DETACT Â Â CHECK Â Â Â Â Â Â Â Â
0832.00 B1 Â C Â Â Â Â Â CHECK Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0833.00 Â Â Â C Â Â Â Â Â KEY19 Â Â CHAINOPP2912 Â Â Â Â Â Â Â 26 Â Â Â Â
0834.00 B2 Â C Â Â Â Â Â *IN26 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0835.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â CHECK Â Â FEAMNT Â Â Â Â Â Â Â Â
0836.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â CHECK Â Â DETACT Â Â Â Â Â Â Â Â
0837.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATOPP2912 Â Â Â Â Â Â Â Â Â Â Â Â
0838.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0839.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0840.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0841.00 B1 Â C Â Â Â Â Â *IN83 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0842.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE HLDFRT Â Â FPEFRT Â Â Â Â Â Â Â Â
0843.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE HLDCHG Â Â FPECHG Â Â Â Â Â Â Â Â Â Â Â Â
0844.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0845.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0846.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0847.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0848.00 Â Â Â **************************
0849.00 Â Â Â C Â Â Â Â Â CHARGE Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0850.00 Â Â Â **************************
0851.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0852.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN40 Â Â Â Â Â Â Â
0853.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00115 Â Â Â Â Â Â Â Â Â Â Â
0854.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN40 Â Â Â Â Â Â Â
0855.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN41 Â Â Â Â Â Â Â
0856.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN42 Â Â Â Â Â Â Â
0857.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN16 Â 30 Â Â Â Â Â
0858.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELTYP Â Â Â Â Â Â Â
0859.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0860.00 Â Â Â C Â Â Â Â Â KEY1 Â Â Â SETLLOPP292R Â Â Â Â Â Â Â Â Â Â Â
0861.00 Â Â Â C Â Â Â Â Â KEY1 Â Â Â READEOPP292R Â Â Â Â Â Â Â Â Â 41
0862.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0863.00 Â Â Â * Load Charge Types SFL Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0864.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0865.00 B1 Â C Â Â Â Â Â *IN41 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0866.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0867.00 B2 Â C Â Â Â Â Â *IN42 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
0868.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN42 Â Â Â Â Â Â
0869.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0870.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0871.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN16 Â Â Â Â Â Â Â
0872.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00116 Â Â Â Â Â Â Â Â Â Â
0873.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0874.00 Â Â Â C Â Â Â Â Â KEY1 Â Â Â READEOPP292R Â Â Â Â Â Â Â Â Â 41 Â
0875.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0876.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0877.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0878.00    * 1st loop                      Â
0879.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0880.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0881.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0882.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0883.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00114 Â Â Â Â Â Â Â Â Â Â
0884.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00115 Â Â Â Â Â Â Â Â Â Â
0885.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0886.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
0887.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0888.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0889.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN43 Â Â Â Â Â Â Â
0890.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0891.00 Â Â Â * Records exist in SFL to issue READC Â Â Â Â Â Â Â Â Â
0892.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0893.00 B3 Â C Â Â Â Â Â *IN42 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
0894.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00116 Â Â Â Â Â Â Â Â 43 Â
0895.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0896.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0897.00    * Process SFL request                  Â
0898.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0899.00 B3 Â C Â Â Â Â Â *IN43 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0900.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0901.00 B4 Â C Â Â Â Â Â SELTYP Â Â IFEQ '1' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0902.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0903.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FYDESC Â Â TYPDSC Â Â Â Â Â Â Â Â
0904.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0905.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â Â Â Â Â
0906.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â
0907.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â TYPDSC Â Â Â Â Â Â
0908.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â
0909.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0910.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN44 Â Â Â Â Â Â
0911.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00117 Â Â Â Â Â Â Â Â Â Â
0912.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN44 Â Â Â Â Â Â
0913.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN45 Â Â Â Â Â Â
0914.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN46 Â Â Â Â Â Â
0915.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN18 Â 30 Â Â Â Â
0916.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELSUB Â Â Â Â Â Â
0917.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0918.00 Â Â Â C Â Â Â Â Â KEY8 Â Â Â SETLLOPP293R Â Â Â Â Â Â Â Â Â Â Â
0919.00 Â Â Â C Â Â Â Â Â KEY8 Â Â Â READEOPP293R Â Â Â Â Â Â Â Â Â 45 Â
0920.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0921.00 Â Â Â * Load Charge Sub-Type SFL Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0922.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0923.00 B5 Â C Â Â Â Â Â *IN45 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0924.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0925.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0926.00 B6 Â C Â Â Â Â Â *IN46 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0927.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN21 Â Â Â Â Â Â RI Â Â Â Â
0928.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN46 Â Â Â Â Â Â SFLDSP Â Â
0929.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0930.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0931.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN18 Â Â Â Â Â Â Â Â Â Â Â
0932.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00118 Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0933.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0934.00 Â Â Â C Â Â Â Â Â KEY8 Â Â Â READEOPP293R Â Â Â Â Â Â Â Â Â 45 Â Â Â Â Â Â
0935.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0936.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0937.00    * 2nd loop                            Â
0938.00 B5 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0939.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0940.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0941.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00114 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0942.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00117 Â Â Â Â Â Â Â Â Â
0943.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0944.00 B6 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â
0945.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â
0946.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0947.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN47 Â Â Â Â Â
0948.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0949.00 Â Â Â * Records exist in SFL to issue READC Â Â Â Â Â Â Â
0950.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0951.00 B7 Â C Â Â Â Â Â *IN46 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
0952.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00118 Â Â Â Â Â Â Â Â 47 Â
0953.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0954.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0955.00    * Process SFL request                 Â
0956.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0957.00 B7 Â C Â Â Â Â Â *IN47 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
0958.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0959.00 B8 Â C Â Â Â Â Â SELSUB Â Â IFEQ '1' Â Â Â Â Â Â Â Â Â Â Â Â Â
0960.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0961.00 Â Â Â C Â Â Â Â Â LOOK1 Â Â LOKUPCHG,1 Â Â Â Â Â Â Â Â Â Â 21 Â Â Â Â
0962.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0963.00 B9 Â C Â Â Â Â Â *IN21 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0964.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0965.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FSCTYP Â Â FECTYP Â Â Â Â Â Â Â Â Â Â
0966.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FSCSTP Â Â FECSTP Â Â Â Â Â Â Â Â Â Â
0967.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0968.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FSDESC Â Â STPDSC Â Â Â Â Â Â Â Â Â Â
0969.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â Â Â Â Â Â Â
0970.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â
0971.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â STPDSC Â Â Â Â Â Â
0972.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â Â
0973.00    *Init display field                  Â
0974.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FEAMNT Â Â Â Â Â Â
0975.00    * 3rd loop                      Â
0976.00 B10 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0977.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
0978.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0979.00    * Enter Charge                 Â
0980.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00119 Â Â Â Â Â Â Â
0981.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0982.00 B11 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â
0983.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
0984.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0985.00 B12 Â C Â Â Â Â Â FEAMNT Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â
0986.00 Â Â Â * SFLDSP Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0987.00 B13 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â
0988.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â Â Â
0989.00 E13 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
0990.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0991.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â
0992.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SA Â Â Â Â Â Â Â
0993.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0994.00 Â Â Â * Put in array for edit purposes on later adds Â
0995.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
0996.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â A Â Â Â Â Â Â Â Â Â Â Â
0997.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELFECTYP Â Â CHG,A Â Â Â Â Â Â Â Â Â
0998.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FECSTP Â Â CHG,A Â Â Â Â Â Â Â Â Â
0999.00 Â Â Â * SFLEND Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1000.00 B13 Â C Â Â Â Â Â *IN55 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1001.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN55 Â Â Â Â Â Â Â Â Â
1002.00 E13 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1003.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1004.00    * Add to totals                      Â
1005.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1006.00 B13 Â C Â Â Â Â Â FECTYP Â Â IFEQ 'A' Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1007.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPACHG Â Â Â Â Â Â Â Â
1008.00 X13 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1009.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPMCHG Â Â Â Â Â Â Â Â
1010.00 E13 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1011.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1012.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â TOTACT Â Â Â Â Â Â Â Â
1013.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1014.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1015.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1016.00 E12 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1017.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1018.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1019.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1020.00 Â Â Â * If loop was ended because a charge was added, leave, else
1021.00 Â Â Â * reset *IN12(F12) for previous screen. Â Â Â Â Â Â Â Â Â Â
1022.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1023.00 B10 Â C Â Â Â Â Â *IN12 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â
1024.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1025.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â
1026.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1027.00 X10 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
1028.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1029.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â
1030.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1031.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1032.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1033.00 X9 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
1034.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1035.00 Â Â Â * SFLMSG Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1036.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1037.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN22 Â Â Â Â Â
1038.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1039.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1040.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1041.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1042.00 Â Â Â C Â Â Â Â Â *IN21 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1043.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELSUB Â Â Â Â Â Â Â
1044.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1045.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1046.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATFPD00118 Â Â Â Â Â Â Â Â Â Â Â
1047.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1048.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN21 Â Â Â Â Â Â RI
1049.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1050.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00118 Â Â Â Â Â Â Â Â 47 Â Â Â
1051.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1052.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1053.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1054.00 B7 Â C Â Â Â Â Â *IN47 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1055.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1056.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1057.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1058.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1059.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1060.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1061.00 Â Â Â * If loop was ended because a charge was added, leave, else
1062.00 Â Â Â * reset *IN12(F12) for previous screen. Â Â Â Â Â Â Â Â Â Â
1063.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1064.00 B5 Â C Â Â Â Â Â *IN12 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1065.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1066.00 X5 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1067.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â
1068.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1069.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1070.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1071.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1072.00 Â Â Â C Â Â Â Â Â RRN16 Â Â CHAINFPD00116 Â Â Â Â Â Â 40 Â Â Â
1073.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELTYP Â Â Â Â Â Â Â
1074.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATFPD00116 Â Â Â Â Â Â Â Â Â Â Â
1075.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1076.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00116 Â Â Â Â Â Â Â Â 43 Â
1077.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1078.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1079.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1080.00 B3 Â C Â Â Â Â Â *IN43 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1081.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1082.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1083.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1084.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1085.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1086.00    * Reset                         Â
1087.00 B1 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1088.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â
1089.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1090.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1091.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1092.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1093.00 Â Â Â **************************
1094.00 Â Â Â C Â Â Â Â Â CHGVND Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1095.00 Â Â Â **************************
1096.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1097.00    * Change Vendor                         Â
1098.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1099.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMVNNM Â Â BFRNAM Â Â Â Â Â Â Â Â Â Â
1100.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMVNA1 Â Â BFRADR Â Â Â Â Â Â Â Â Â Â
1101.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMCITY Â Â BFRCTY Â Â Â Â Â Â Â Â Â Â
1102.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMSTAT Â Â BFRSTE Â Â Â Â Â Â Â Â Â Â
1103.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMZIP1 Â Â BFRZIP Â Â Â Â Â Â Â Â Â Â
1104.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1105.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD*ZERO Â Â AFTVND Â Â Â Â Â Â Â Â Â Â
1106.00    * Loop                            Â
1107.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1108.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1109.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1110.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN65 Â Â Â Â Â Â Â
1111.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1112.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00108 Â Â Â Â Â Â Â Â Â Â Â
1113.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1114.00    * F3, F12 not used                   Â
1115.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1116.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
1117.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
1118.00    *F4=Prompt                      Â
1119.00 B3 Â C Â Â Â Â Â *IN04 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â
1120.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1121.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD*ZERO Â Â LDVEND Â Â Â Â Â Â
1122.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1123.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â OUT Â LDA Â Â Â Â Â Â Â Â Â Â Â Â
1124.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'OPR555 Â ' Â Â Â Â Â Â Â Â Â
1125.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â IN Â LDA Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1126.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1127.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDLDVEND Â Â AFTVND Â Â Â Â Â Â Â Â
1128.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1129.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1130.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1131.00 B4 Â C Â Â Â Â Â AFTVND Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1132.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1133.00 Â Â Â C Â Â Â Â Â AFTVND Â Â CHAINAPP400R Â Â Â Â Â Â Â 66 Â Â Â Â Â
1134.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1135.00 B5 Â C Â Â Â Â Â *IN66 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1136.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1137.00 B6 Â C Â Â Â Â Â FPVEND Â Â IFEQ AFTVND Â Â Â Â Â Â Â Â Â Â Â Â Â
1138.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN67 Â Â Â Â Â Â Â Â
1139.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1140.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1141.00    * Before vendor not equal to after vendor        Â
1142.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1143.00 B6 Â C Â Â Â Â Â *IN67 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1144.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1145.00 Â Â Â * See if new vendor is not already in batch w/ this shipment# Â Â
1146.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1147.00 Â Â Â C Â Â Â Â Â KEY5 Â Â Â SETLLOPP290R Â Â Â Â Â Â Â Â Â 69 Â Â Â Â Â Â
1148.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1149.00 B7 Â C Â Â Â Â Â *IN69 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1150.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1151.00 Â Â Â * See if vendor is already on shipment, ok if he is but tell user
1152.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1153.00 Â Â Â C Â Â Â Â Â KEY6 Â Â Â SETLLOPP294R Â Â Â Â Â Â Â Â Â 68 Â Â Â Â Â
1154.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1155.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMVNNM Â Â AFTNAM Â Â Â Â Â Â Â Â Â Â Â
1156.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMVNA1 Â Â AFTADR Â Â Â Â Â Â Â Â Â Â Â
1157.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMCITY Â Â AFTCTY Â Â Â Â Â Â Â Â Â Â Â
1158.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMSTAT Â Â AFTSTE Â Â Â Â Â Â Â Â Â Â Â
1159.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE VMZIP1 Â Â AFTZIP Â Â Â Â Â Â Â Â Â Â Â
1160.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1161.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN65 Â Â Â Â Â Â Â Â Â Â Â Â
1162.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1163.00 Â Â Â * If vendor is already on, turn off error indidcator, and write Â
1164.00 Â Â Â * screen so fields are updated, then turn it back on so ERRMSG Â Â
1165.00 Â Â Â * will be sent during EXFMT below. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1166.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1167.00 B8 Â C Â Â Â Â Â *IN68 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1168.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN68 Â Â Â Â Â Â Â Â Â Â Â Â
1169.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00108 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1170.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN68 Â Â Â Â Â Â Â Â Â Â Â Â
1171.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1172.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1173.00    * "Are you sure?" display                    Â
1174.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1175.00 B8 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1176.00 Â Â Â C Â Â Â Â Â *IN08 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1177.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1178.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1179.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00108 Â Â Â
1180.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1181.00    * F3, F12 not used           Â
1182.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1183.00 B9 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â
1184.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â
1185.00 Â Â Â *Yes I Am! Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1186.00 B10 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â
1187.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1188.00    * SETLL & READE freight header record(s) and put in new vendor  Â
1189.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1190.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â SETLLOPP294R Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1191.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â READEOPP294R Â Â Â Â Â Â Â Â Â 70 Â Â Â Â Â Â
1192.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1193.00 B11 Â C Â Â Â Â Â *IN70 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1194.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDAFTVND Â Â FHVEND Â Â Â Â Â Â Â Â Â Â Â Â
1195.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR TSTAMP Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1196.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATOPP294R Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1197.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â READEOPP294R Â Â Â Â Â Â Â Â Â 70 Â Â Â Â
1198.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1199.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1200.00 Â Â Â * Update Shipment if primary vendor was changed. Â Â Â Â Â Â Â
1201.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1202.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â CHAINOPP910R Â Â Â Â Â Â Â 70 Â Â Â Â Â Â
1203.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1204.00 B11 Â C Â Â Â Â Â *IN70 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1205.00 Â Â Â C Â Â Â Â Â SICARR Â Â ANDEQFPVEND Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1206.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1207.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDAFTVND Â Â SICARR Â Â Â
1208.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR TSTAMP Â Â Â Â Â Â Â Â
1209.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATOPP910R Â Â Â Â Â Â Â
1210.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1211.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1212.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1213.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â
1214.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1215.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1216.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1217.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1218.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1219.00    * If loop was ended because vendor was changed, leave, else   Â
1220.00 Â Â Â * reset *IN12(F12) for previous screen. Â Â Â Â Â Â Â Â Â Â Â Â Â
1221.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1222.00 B8 Â C Â Â Â Â Â *IN12 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1223.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1224.00 X8 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â
1225.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â
1226.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1227.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1228.00 X7 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â
1229.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1230.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00109 Â Â Â Â Â Â Â Â
1231.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1232.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1233.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1234.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1235.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1236.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1237.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1238.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1239.00    * Reset                 Â
1240.00 B1 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â
1241.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12
1242.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1243.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1244.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1245.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1246.00 Â Â Â **************************
1247.00 Â Â Â C Â Â Â Â Â DEL291 Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1248.00 Â Â Â **************************
1249.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1250.00    * Delete invoice detail                     Â
1251.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1252.00    * Access. and Misc. charges              Â
1253.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1254.00 Â Â Â C Â Â Â Â Â KEY13 Â Â SETLLOPP291R Â Â Â Â Â Â Â Â Â Â Â
1255.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â Â Â Â 27 Â
1256.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1257.00 B1 Â C Â Â Â Â Â *IN27 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
1258.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â DELETOPP291R Â Â Â Â Â Â Â Â Â Â Â
1259.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â Â Â Â 27 Â
1260.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1261.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1262.00    * Freight charges                    Â
1263.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1264.00 Â Â Â C Â Â Â Â Â KEY13 Â Â SETLLOPP2912 Â Â Â Â Â Â Â Â Â Â Â Â
1265.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP2912 Â Â Â Â Â Â Â Â Â 27 Â Â
1266.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1267.00 B1 Â C Â Â Â Â Â *IN27 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1268.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â DELETOPP2912 Â Â Â Â Â Â Â Â Â Â Â Â
1269.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP2912 Â Â Â Â Â Â Â Â Â 27 Â Â Â Â Â Â
1270.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1271.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1272.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1273.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1274.00 Â Â Â **************************
1275.00 Â Â Â C Â Â Â Â Â DELETE Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1276.00 Â Â Â **************************
1277.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1278.00    * Reset                  Â
1279.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN08 Â
1280.00    * Delete an invoice            Â
1281.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1282.00 Â Â Â * Load charges from OPP291 Â Â Â Â Â Â Â Â Â
1283.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1284.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â
1285.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00121 Â Â Â Â Â
1286.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â
1287.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN55 Â Â Â Â Â Â Â
1288.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN56 Â Â Â Â Â Â Â
1289.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN22 Â 30 Â Â Â Â
1290.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1291.00 Â Â Â C Â Â Â Â Â KEY13 Â Â SETLLOPP291R Â Â Â Â Â Â Â Â Â Â Â
1292.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â N Â Â 55 Â
1293.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1294.00    * Load Charges associated with invoice        Â
1295.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1296.00 B1 Â C Â Â Â Â Â *IN55 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â
1297.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1298.00 B2 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â
1299.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â Â Â
1300.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1301.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1302.00 Â Â Â C Â Â Â Â Â KEY10 Â Â CHAINOPP292R Â Â Â Â Â Â Â 29
1303.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1304.00 B2 Â C Â Â Â Â Â *IN29 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â
1305.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FYDESC Â Â Â Â Â
1306.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' FYDESC Â Â Â Â Â
1307.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1308.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1309.00 Â Â Â C Â Â Â Â Â KEY14 Â Â CHAINOPP293R Â Â Â Â Â Â Â 29 Â Â
1310.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1311.00 B2 Â C Â Â Â Â Â *IN29 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â
1312.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FSDESC Â Â Â Â Â
1313.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' FSDESC Â Â Â Â Â
1314.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1315.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1316.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN22 Â Â Â Â Â Â Â Â Â
1317.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00122 Â Â Â Â Â Â Â Â Â Â Â Â Â
1318.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1319.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â Â Â Â 55 Â Â Â
1320.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1321.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1322.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1323.00    * Get header record                  Â
1324.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1325.00 Â Â Â C Â Â Â Â Â KEY12 Â Â CHAINOPP290R Â Â Â Â Â Â Â 26 Â Â Â
1326.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1327.00 B1 Â C Â Â Â Â Â *IN26 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
1328.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1329.00    * Screen dates                    Â
1330.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1331.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVIDT Â Â FVIDT Â Â Â Â Â Â Â
1332.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FVIDT Â Â FVIDT Â Â Â Â Â Â Â Â Â
1333.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPIRDT Â Â FIRDT Â Â Â Â Â Â Â Â Â
1334.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FIRDT Â Â FIRDT Â Â Â Â Â Â Â Â Â
1335.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPIDDT Â Â FIDDT Â Â Â Â Â Â Â Â Â
1336.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FIDDT Â Â FIDDT Â Â Â Â Â Â Â Â Â
1337.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1338.00    * "Are you sure?" screen                  Â
1339.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1340.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00110 Â Â Â Â Â Â Â Â Â Â Â Â Â
1341.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00123 Â Â Â Â Â
1342.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1343.00 B2 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â
1344.00 Â Â Â C Â Â Â Â Â *IN08 Â Â ANDEQ*OFF Â Â Â Â Â Â Â
1345.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â
1346.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1347.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00121 Â Â Â Â Â
1348.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1349.00 B3 Â C Â Â Â Â Â *IN12 Â Â IFEQ *OFF Â Â Â Â Â Â Â
1350.00 Â Â Â C Â Â Â Â Â *IN08 Â Â ANDEQ*ON Â Â Â Â Â Â
1351.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1352.00    * Delete invoice detail         Â
1353.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1354.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR DEL291 Â Â Â Â Â
1355.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1356.00 Â Â Â * Delete Invoice header. Â Â Â Â Â Â Â Â Â
1357.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1358.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â DELETOPP290R Â Â Â Â
1359.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1360.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1361.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1362.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1363.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1364.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1365.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1366.00 Â Â Â **************************
1367.00 Â Â Â C Â Â Â Â Â DLTCHG Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1368.00 Â Â Â **************************
1369.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1370.00 Â Â Â * Delete a charge from an invoice. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1371.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1372.00    * Set up SFL fields to FPD00120 heading fields          Â
1373.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1374.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FYDESC Â Â TYPDSC Â Â Â Â Â Â Â Â Â Â Â Â
1375.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1376.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â Â Â Â Â Â Â Â Â
1377.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â
1378.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â TYPDSC Â Â Â Â Â Â
1379.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â Â
1380.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1381.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FSDESC Â Â STPDSC Â Â Â Â Â Â
1382.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1383.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â Â Â
1384.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â
1385.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â STPDSC Â Â Â Â Â Â
1386.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â
1387.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1388.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â
1389.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â
1390.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1391.00    * Confirm Delete               Â
1392.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1393.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00114 Â Â Â Â Â Â
1394.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00120 Â Â Â Â Â Â
1395.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1396.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â
1397.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â
1398.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1399.00    * Sub from totals              Â
1400.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1401.00 B3 Â C Â Â Â Â Â FECTYP Â Â IFEQ 'A' Â Â Â Â Â Â Â Â
1402.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â FEAMNT Â Â FPACHG Â Â
1403.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
1404.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â FEAMNT Â Â FPMCHG Â Â Â
1405.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1406.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1407.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â FEAMNT Â Â TOTACT Â Â Â
1408.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1409.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â
1410.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1411.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1412.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1413.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1414.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1415.00 Â Â Â **************************
1416.00 Â Â Â C Â Â Â Â Â EDIT Â Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1417.00 Â Â Â **************************
1418.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1419.00    * Edit an invoice                        Â
1420.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1421.00 Â Â Â C Â Â Â Â Â KEY12 Â Â CHAINOPP290R Â Â Â Â Â Â Â 26 Â Â Â Â Â Â Â Â
1422.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1423.00 B1 Â C Â Â Â Â Â *IN26 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1424.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1425.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â CHAINOPP910R Â Â Â Â Â Â N30 Â Â Â Â
1426.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1427.00 B2 Â C Â Â Â Â Â *IN30 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1428.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1429.00    * Pallets In/Out                    Â
1430.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1431.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDSIPLIN Â Â PALIN Â Â Â Â
1432.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDSIPLOU Â Â PALOUT Â Â Â
1433.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1434.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â
1435.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1436.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â PALIN Â Â Â Â
1437.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â PALOUT Â Â Â
1438.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1439.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1440.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1441.00 Â Â Â * Display attribute for "UPDATE" Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1442.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1443.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN28 Â Â Â Â Â Â Â Â Â Â Â Â
1444.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1445.00 Â Â Â * Allow user to enter Freight, Access, and Miscellaneous Charges
1446.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1447.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN08 Â Â Â Â Â Â Â Â Â Â Â Â
1448.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1449.00    * Load Charge Detail              Â
1450.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1451.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR LODCHG Â Â Â Â Â Â Â Â
1452.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1453.00    * Screen dates                 Â
1454.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1455.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVIDT Â Â FVIDT Â Â Â
1456.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FVIDT Â Â FVIDT Â Â Â
1457.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPIRDT Â Â FIRDT Â Â Â
1458.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FIRDT Â Â FIRDT Â Â Â Â Â
1459.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPIDDT Â Â FIDDT Â Â Â Â Â
1460.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT FIDDT Â Â FIDDT Â Â Â Â Â
1461.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1462.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPECHG Â Â TOTEST Â Â Â Â
1463.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPEFRT Â Â TOTEST Â Â Â Â
1464.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1465.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPMCHG Â Â TOTACT Â Â Â Â
1466.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â TOTACT Â Â Â Â
1467.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPAFRT Â Â TOTACT Â
1468.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1469.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPFB# Â Â BFRFB# Â
1470.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1471.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00110 Â Â Â Â Â
1472.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00111 Â Â Â Â Â
1473.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1474.00 B2 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â
1475.00 Â Â Â C Â Â Â Â Â *IN08 Â Â ANDEQ*OFF Â Â Â Â Â Â Â
1476.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â
1477.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1478.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD001CA Â Â Â Â
1479.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1480.00    * F3, F12 not used            Â
1481.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1482.00 B3 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â
1483.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â
1484.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1485.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR EDTDAT Â Â Â Â Â Â Â Â Â
1486.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1487.00 Â Â Â * Dates entered OK Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1488.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1489.00 B4 Â C Â Â Â Â Â *IN15 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â
1490.00    * Vendor invoice date               Â
1490.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFVIDT Â Â $CDATE Â Â Â Â
1490.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â Â Â
1490.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â Â Â
1490.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â Â
1490.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â Â
1490.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â Â
1490.08 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPVIDT Â Â Â
1490.09 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1490.10 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â FPVIDT Â Â Â
1490.11 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â
1490.12 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1491.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FVIDT Â Â INFLD Â Â Â
1492.00 LAT1 C*** Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â Â
1493.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPVIDT Â Â
1493.01 Â Â Â C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1494.00    * Invoice receipt date            Â
1494.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFIRDT Â Â $CDATE Â Â
1494.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â
1494.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â
1494.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â
1494.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â
1494.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â
1494.07 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPIRDT Â Â
1494.09 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
1494.10 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â FPIRDT Â Â
1494.11 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â
1494.12 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1495.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FIRDT Â Â INFLD Â Â
1496.00 LAT1 C*** Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â Â
1497.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPIRDT Â Â
1498.00    * Invoice Due date                Â
1498.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFIDDT Â Â $CDATE Â Â Â Â
1498.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â Â Â
1498.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â Â Â
1498.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â Â Â Â
1498.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â Â Â Â
1498.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â Â Â Â
1498.07 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPIDDT Â Â Â Â
1498.08 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
1498.11 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â FPIDDT Â
1498.12 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â
1498.13 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1499.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FIDDT Â Â INFLD Â Â
1500.00 LAT1 C*** Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â
1501.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPIDDT Â
1502.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1503.00    * Vendor invoice number must be entered   Â
1504.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1505.00 B5 Â C Â Â Â Â Â FPFB# Â Â IFEQ *BLANKS Â Â Â Â Â Â Â
1506.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN13 Â Â Â
1507.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
1508.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1509.00 Â Â Â * Prepaid flag can only be blank or 'Y'. Â Â Â
1510.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1511.00 B5 Â C Â Â Â Â Â FPPREP Â Â IFNE ' ' Â Â Â Â Â Â Â Â Â
1512.00 Â Â Â C Â Â Â Â Â FPPREP Â Â ANDNE'Y' Â Â Â Â Â Â Â Â Â
1513.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN35 Â Â Â
1514.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1515.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1516.00 B5 Â C Â Â Â Â Â *IN35 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â
1517.00 Â Â Â C Â Â Â Â Â FPPREP Â Â ANDNE' ' Â Â Â Â Â Â Â Â Â Â Â
1518.00 Â Â Â C Â Â Â Â Â FPPCK# Â Â ANDLE0 Â Â Â Â Â Â Â Â Â Â Â Â
1519.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN36 Â Â Â Â Â
1520.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1521.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1522.00 B5 Â C Â Â Â Â Â FPPREP Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â
1523.00 Â Â Â C Â Â Â Â Â FPPCK# Â Â ANDNE0 Â Â Â Â Â Â Â Â Â Â
1524.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN37 Â Â Â
1525.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1526.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1527.00 B5 Â C Â Â Â Â Â *IN13 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â
1528.00 Â Â Â C Â Â Â Â Â *IN35 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
1529.00 Â Â Â C Â Â Â Â Â *IN36 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
1530.00 Â Â Â C Â Â Â Â Â *IN37 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â
1531.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1532.00    * Make sure vendor invoice number does not already exist   Â
1533.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1534.00 B6 Â C Â Â Â Â Â FPFB# Â Â IFNE BFRFB# Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1535.00 Â Â Â C Â Â Â Â Â KEY9 Â Â Â SETLLOPP2904 Â Â Â Â Â Â Â Â Â 14 Â Â Â Â
1536.00 X6 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1537.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN14 Â Â Â Â Â Â Â Â Â Â
1538.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1539.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1540.00 B6 Â C Â Â Â Â Â *IN14 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1541.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1542.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPMCHG Â Â TOTACT Â Â Â Â Â Â
1543.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â TOTACT Â Â Â Â Â Â
1544.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPAFRT Â Â TOTACT Â Â Â Â Â Â
1545.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1546.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â Â Â Â Â Â Â Â
1547.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1548.00    * F6 - Add additional charges to check reqeust    Â
1549.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1550.00 B7 Â C Â Â Â Â Â *IN06 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â
1551.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1552.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR CHARGE Â Â Â Â Â Â Â
1553.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1554.00 X7 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1555.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1556.00 Â Â Â * Update OPP290 and OPP291 records. Â Â Â Â Â Â
1557.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1558.00 B8 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â
1559.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1560.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR TSTAMP Â Â
1561.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1562.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â UPDATOPP290R Â Â
1563.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1564.00 Â Â Â * Delete invoice detail then re-add Â
1565.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1566.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR DEL291 Â Â
1567.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1568.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CLEAROPP291R Â Â
1569.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1570.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR ADRCDS Â Â Â
1571.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1572.00 X8 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â
1573.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1574.00 Â Â Â * Process subfile request(s) Â Â Â Â Â
1575.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1576.00 B9 Â C Â Â Â Â Â RRNSA Â Â IFNE 0 Â Â Â Â Â
1577.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1578.00 Â Â Â * Keep a mirrored subfile of FPD001SA called FPD001SB. Â This will
1579.00 Â Â Â * will contain records that are not deleted without having to re-
1580.00 Â Â Â * load SFL from disk. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1581.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1582.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â Â Â Â Â Â Â
1583.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CB Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1584.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â Â Â Â Â Â Â
1585.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSB Â 30 Â Â Â Â Â Â Â Â Â Â
1586.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1587.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â RRNSA Â Â Â Â Â
1588.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1589.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â
1590.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1591.00 B10 Â C Â Â Â Â Â *IN57 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â
1592.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1593.00 B11 Â C Â Â Â Â Â SELCHG Â Â IFEQ '2' Â Â Â Â Â Â Â Â Â Â Â
1594.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR EDTCHG Â Â Â Â Â Â Â Â Â Â
1595.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1596.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1597.00 B11 Â C Â Â Â Â Â SELCHG Â Â IFEQ '4' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1598.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR DLTCHG Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1599.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1600.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1601.00    * If either of the subrotuines were ended with a cancel, stop  Â
1602.00 Â Â Â * processing subfile requests and continue to load mirror subfile
1603.00 Â Â Â * to load from after first *IN57 loop has ended. Â Â Â Â Â Â Â Â Â
1604.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1605.00 B11 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â
1606.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1607.00 B12 Â C Â Â Â Â Â *IN57 Â Â DOWEQ*OFF Â Â Â Â Â Â
1608.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1609.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG
1610.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â
1611.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SB Â Â Â Â
1612.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â
1613.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â
1614.00    * Reset                      Â
1615.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â
1616.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1617.00 E12 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1618.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1619.00 X11 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
1620.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1621.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1622.00 Â Â Â * Put record in mirror SFL if F12 was not used and not a delete Â
1623.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1624.00 B12 Â C Â Â Â Â Â SELCHG Â Â IFNE '4' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1625.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG Â Â Â Â Â Â Â Â Â Â Â Â
1626.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â Â Â Â Â Â Â Â Â Â Â Â
1627.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SB Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1628.00 E12 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1629.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1630.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1631.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1632.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â Â Â Â
1633.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â Â Â
1634.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1635.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1636.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1637.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1638.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1639.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â Â
1640.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â Â Â Â Â Â Â Â Â Â
1641.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â Â Â
1642.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN55 Â Â Â Â Â Â Â Â
1643.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN56 Â Â Â Â Â Â Â Â
1644.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â
1645.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1646.00 Â Â Â * Reload SFL FPD001SA from records copied to mirrored SFL
1647.00    * FPD001SB if not empty                 Â
1648.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1649.00 B9 Â C Â Â Â Â Â RRNSB Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â
1650.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1651.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â RRNSB Â Â Â Â
1652.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â A Â Â Â Â Â Â
1653.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1654.00 Â Â Â C Â Â Â Â Â RRNSB Â Â CHAINFPD001SB Â Â Â Â Â Â 55
1655.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1656.00 B10 Â C Â Â Â Â Â *IN55 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â
1657.00 Â Â Â * SFLDSP Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1658.00 B11 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1659.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â Â Â Â Â Â Â Â
1660.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1661.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1662.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â Â
1663.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SA Â Â Â Â Â Â Â Â Â Â Â Â
1664.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1665.00    * Put back in edit arrary also              Â
1666.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1667.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â A Â Â Â Â Â Â Â Â Â Â
1668.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELFECTYP Â Â CHG,A Â Â Â Â Â Â Â Â
1669.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FECSTP Â Â CHG,A Â Â Â Â Â Â Â Â
1670.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1671.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â Â Â Â Â Â Â Â
1672.00 Â Â Â C Â Â Â Â Â RRNSB Â Â CHAINFPD001SB Â Â Â Â Â Â 55 Â Â Â Â
1673.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1674.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1675.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1676.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00111 Â Â Â Â Â Â Â Â Â Â Â
1677.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1678.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1679.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1680.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1681.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1682.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1683.00 Â Â Â * If any errors exist, do not end loop because of F8 Â Â
1684.00 B3 Â C Â Â Â Â Â *IN13 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
1685.00 Â Â Â C Â Â Â Â Â *IN14 Â Â OREQ *ON Â Â Â Â Â Â Â
1686.00 Â Â Â C Â Â Â Â Â *IN15 Â Â OREQ *ON Â Â Â Â Â Â Â
1687.00 Â Â Â C Â Â Â Â Â *IN35 Â Â OREQ *ON Â Â Â Â Â Â Â
1688.00 Â Â Â C Â Â Â Â Â *IN36 Â Â OREQ *ON Â Â Â Â Â Â Â
1689.00 Â Â Â C Â Â Â Â Â *IN37 Â Â OREQ *ON Â Â Â Â Â Â Â
1690.00 B4 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â
1691.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN08 Â
1692.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1693.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
1694.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1695.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1696.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1697.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1698.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1699.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1700.00 Â Â Â **************************
1701.00 Â Â Â C Â Â Â Â Â EDTCHG Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1702.00 Â Â Â **************************
1703.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1704.00    * Set up SFL fields to FPD00119 heading fields          Â
1705.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1706.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FYDESC Â Â TYPDSC Â Â Â Â Â Â Â Â Â Â Â Â
1707.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1708.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â Â Â Â Â Â Â Â Â
1709.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1710.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â TYPDSC Â Â Â Â Â Â Â Â Â Â Â Â
1711.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â Â Â Â Â Â Â
1712.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1713.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FSDESC Â Â STPDSC Â Â Â Â Â Â
1714.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1715.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD25 Â Â Â Â LEN Â Â 50 Â Â Â Â
1716.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'CENTER' Â Â Â Â Â Â Â Â Â Â
1717.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â STPDSC Â Â Â Â Â Â
1718.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â LEN Â Â Â Â Â Â Â Â
1719.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1720.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FEAMNT Â Â BFRAMT Â Â Â Â Â Â
1721.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1722.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â
1723.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â
1724.00    * Enter Charge                Â
1725.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00114 Â Â Â Â Â Â
1726.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00119 Â Â Â Â Â Â
1727.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1728.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â
1729.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â
1730.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1731.00 B3 Â C Â Â Â Â Â FEAMNT Â Â IFNE 0 Â Â Â Â Â Â Â Â Â
1732.00 Â Â Â * SFLDSP Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1733.00 B4 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â
1734.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â
1735.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
1736.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1737.00    * Add to totals               Â
1738.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1739.00 B4 Â C Â Â Â Â Â FECTYP Â Â IFEQ 'A' Â Â Â Â Â Â Â Â Â
1740.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â BFRAMT Â Â FPACHG Â Â Â
1741.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPACHG Â Â Â
1742.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1743.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â BFRAMT Â Â FPMCHG Â Â Â
1744.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPMCHG Â Â Â
1745.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1746.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1747.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â SUB Â BFRAMT Â Â TOTACT Â Â Â
1748.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â TOTACT Â Â Â
1749.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1750.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â LEAVE Â Â Â Â Â Â Â Â Â Â Â
1751.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1752.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1753.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1754.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1755.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1756.00 Â Â Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â
1757.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE BFRAMT Â Â FEAMNT Â Â Â Â Â Â Â Â Â Â Â Â
1758.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1759.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1760.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1761.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1762.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1763.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1764.00 Â Â Â **************************
1765.00 Â Â Â C Â Â Â Â Â EDTDAT Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1766.00 Â Â Â **************************
1767.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1768.00    * Edit dates entered                       Â
1769.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1770.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN15 Â Â Â Â Â Â Â Â Â Â Â Â
1771.00    *Vendor invoice date                       Â
1771.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFVIDT Â Â $CDATE Â Â Â Â Â Â Â Â Â Â Â Â
1771.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â Â Â Â Â Â Â Â Â Â Â
1771.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â Â Â Â Â Â Â Â Â Â Â
1771.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â Â Â Â Â
1771.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â Â Â Â Â
1771.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â Â Â Â Â
1771.07 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â JINVDT Â 80 Â Â Â
1771.08 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â Â Â
1771.09 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN16 Â Â Â Â Â Â
1771.10 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1771.11 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â JINVDT Â Â Â Â Â
1771.12 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â Â Â
1771.13 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1772.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FVIDT Â Â MDY Â Â Â Â
1773.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE 'J' Â Â Â PFLAG Â Â Â
1774.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â JULIAN Â Â Â
1775.00 LAT1 C*** Â Â Â Â Â Â Â Â Â CALL 'DATECHK' PLIST Â Â Â
1776.00 LAT1 Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1777.00 LAT1 C*** Â Â Â Â JULIAN Â Â IFEQ *BLANKS Â Â Â Â Â Â Â
1778.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â
1779.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN16 Â Â Â
1780.00 LAT1 C*** Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1781.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE JULIAN Â Â JINVDT Â 50 Â
1782.00 LAT1 C*** Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1783.00    * Receipt date                 Â
1783.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFVIDT Â Â $CDATE Â Â Â
1783.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â Â
1783.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â Â
1783.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â Â
1783.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â Â
1783.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â Â Â Â Â
1783.08 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â JRECDT Â 80 Â Â Â
1783.09 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â Â Â
1783.10 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN19 Â Â Â Â Â Â
1783.11 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1783.12 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â JRECDT Â Â Â Â Â
1783.14 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â Â Â
1783.15 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1784.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FIRDT Â Â MDY Â Â Â Â Â Â Â
1785.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE 'J' Â Â Â PFLAG Â Â Â Â Â Â Â Â
1786.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â JULIAN Â Â Â Â Â Â Â Â
1787.00 LAT1 C*** Â Â Â Â Â Â Â Â Â CALL 'DATECHK' PLIST Â Â Â Â Â Â Â Â
1788.00 LAT1 Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1789.00 LAT1 C*** Â Â Â Â JULIAN Â Â IFEQ *BLANKS Â Â Â Â Â Â Â Â Â Â Â Â
1790.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â Â Â Â Â
1791.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN19 Â Â Â Â Â Â Â Â
1792.00 LAT1 C*** Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1793.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE JULIAN Â Â JRECDT Â 50 Â Â Â Â Â Â
1794.00 LAT1 C*** Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
1795.00    * Due date                    Â
1795.01 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADDFVIDT Â Â $CDATE Â Â Â Â
1795.02 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*MDY ' Â $CFFMT Â Â Â Â
1795.03 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE '*YYMD' Â $CTFMT Â Â Â Â
1795.04 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â $CERR Â Â Â Â Â
1795.05 LAT1 C Â Â Â Â Â Â Â Â Â Â CALL 'DATECVN' DTCVN Â Â Â Â Â
1795.06 LAT1 C Â Â Â Â Â $CERR Â Â IFEQ 'Y' Â Â Â Â Â Â Â Â Â Â Â
1795.07 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â JDUEDT Â 80 Â Â
1795.08 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â Â Â Â Â Â Â Â Â
1795.09 LAT1 C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN20 Â Â Â Â Â Â Â Â Â Â Â Â
1795.10 LAT1 C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1795.11 LAT1 C Â Â Â Â Â Â Â Â Â Â Z-ADD$CDATE Â Â JDUEDT Â Â Â Â Â Â Â Â Â Â Â
1795.12 LAT1 C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1795.13 LAT1 C* Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1796.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE FIDDT Â Â MDY Â Â Â Â Â Â Â Â Â Â Â Â Â
1797.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE 'J' Â Â Â PFLAG Â Â Â Â Â Â Â Â Â Â Â Â
1798.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â JULIAN Â Â Â Â Â Â Â Â Â Â Â
1799.00 LAT1 C*** Â Â Â Â Â Â Â Â Â CALL 'DATECHK' PLIST Â Â Â
1800.00 LAT1 Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1801.00 LAT1 C*** Â Â Â Â JULIAN Â Â IFEQ *BLANKS Â Â Â Â Â Â Â
1802.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â
1803.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN20 Â Â Â
1804.00 LAT1 C*** Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1805.00 LAT1 C*** Â Â Â Â Â Â Â Â Â MOVE JULIAN Â Â JDUEDT Â 50
1806.00 LAT1 C*** Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
1807.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1808.00    * Invoice date > Receipt date          Â
1809.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1810.00 B1 Â C Â Â Â Â Â JINVDT Â Â IFGT JRECDT Â Â Â Â Â Â Â Â
1811.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â
1812.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN17 Â Â Â Â
1813.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
1814.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1815.00    * Invoice date > Due date            Â
1816.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1817.00 B1 Â C Â Â Â Â Â JINVDT Â Â IFGT JDUEDT Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1818.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN15 Â Â Â Â Â Â Â Â Â Â Â Â
1819.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN18 Â Â Â Â Â Â Â Â Â Â Â Â
1820.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1821.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1822.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1823.00 Â Â Â **************************
1824.00 Â Â Â C Â Â Â Â Â ENTRY Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1825.00 Â Â Â **************************
1826.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1827.00 Â Â Â * Display attribute for "ADD" Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1828.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1829.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN28 Â Â Â Â Â Â Â Â Â Â Â Â
1830.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1831.00 Â Â Â * Allow user to enter Freight, Access, and Miscellaneous Charges Â
1832.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1833.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â Â Â Â Â Â Â
1834.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â
1835.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â Â
1836.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN55 Â Â Â Â Â Â Â
1837.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN56 Â Â Â Â Â Â Â
1838.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSA Â 30 Â Â Â Â
1839.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG Â Â Â Â Â Â
1840.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEA*BLANKS Â CHG Â Â Â Â Â Â Â Â
1841.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â A Â Â Â 20 Â Â Â Â
1842.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1843.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPPREP Â Â Â Â Â Â
1844.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPPCK# Â Â Â Â Â Â Â Â Â Â
1845.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPFB# Â Â Â Â Â Â Â Â Â Â Â
1846.00    * File dates                         Â
1847.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPVIDT Â Â Â Â Â Â Â Â Â Â
1848.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPIRDT Â Â Â Â Â Â Â Â Â Â
1849.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPIDDT Â Â Â Â Â Â Â Â Â Â
1850.00    * Screen dates                        Â
1851.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FVIDT Â Â Â Â Â Â Â Â Â Â Â
1852.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FIRDT Â Â Â Â Â Â Â Â Â Â Â
1853.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FIDDT Â Â Â Â Â Â
1854.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1855.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPACHG Â Â Â Â Â
1856.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPMCHG Â Â Â Â Â
1857.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPAFRT Â Â Â Â Â
1858.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1859.00 B1 Â C Â Â Â Â Â ADBILL Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â Â
1860.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPECHG Â Â TOTEST Â Â Â Â Â
1861.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPEFRT Â Â TOTEST Â Â Â Â Â
1862.00 X1 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1863.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPECHG Â Â Â Â Â Â Â Â Â Â Â Â
1864.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPEFRT Â Â Â Â Â Â Â Â Â Â Â Â
1865.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â TOTEST Â Â Â Â Â Â Â Â Â Â Â Â
1866.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1867.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1868.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â TOTACT Â Â Â Â Â Â Â Â Â Â Â Â
1869.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1870.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN08 Â Â Â Â Â Â Â Â Â Â Â Â
1871.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1872.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00110 Â Â Â Â
1873.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00111 Â Â Â Â
1874.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1875.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â
1876.00 Â Â Â C Â Â Â Â Â *IN08 Â Â ANDEQ*OFF Â Â Â Â Â Â
1877.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â
1878.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1879.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD001CA Â Â Â Â
1880.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1881.00    * F3, F12 not used         Â
1882.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1883.00 B2 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â
1884.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â
1885.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1886.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR EDTDAT Â Â
1887.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1888.00 Â Â Â * Dates entered OK Â Â Â Â Â Â Â Â Â
1889.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1890.00 B3 Â C Â Â Â Â Â *IN15 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â
1891.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1892.00    * Vendor invoice number must be entered   Â
1893.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1894.00 B4 Â C Â Â Â Â Â FPFB# Â Â IFEQ *BLANKS Â Â Â Â Â Â
1895.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN13 Â Â
1896.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
1897.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1898.00 Â Â Â * Prepaid flag can only be blank or 'Y'. Â Â Â
1899.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1900.00 B4 Â C Â Â Â Â Â FPPREP Â Â IFNE ' ' Â Â Â Â Â Â Â Â Â
1901.00 Â Â Â C Â Â Â Â Â FPPREP Â Â ANDNE'Y' Â Â Â Â Â Â Â Â Â
1902.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN35 Â Â Â
1903.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
1904.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1905.00 B4 Â C Â Â Â Â Â *IN35 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â
1906.00 Â Â Â C Â Â Â Â Â FPPREP Â Â ANDNE' ' Â Â Â Â Â Â Â Â Â
1907.00 Â Â Â C Â Â Â Â Â FPPCK# Â Â ANDLE0 Â Â Â Â Â Â Â Â Â Â Â Â
1908.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN36 Â Â Â Â Â
1909.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1910.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1911.00 B4 Â C Â Â Â Â Â FPPREP Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â
1912.00 Â Â Â C Â Â Â Â Â FPPCK# Â Â ANDNE0 Â Â Â Â Â Â Â Â Â Â Â Â
1913.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN37 Â Â Â Â Â
1914.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1915.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1916.00 B4 Â C Â Â Â Â Â *IN13 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1917.00 Â Â Â C Â Â Â Â Â *IN35 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1918.00 Â Â Â C Â Â Â Â Â *IN36 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1919.00 Â Â Â C Â Â Â Â Â *IN37 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
1920.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1921.00 Â Â Â * Make sure vendor invoice number does not already exist
1922.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1923.00 Â Â Â C Â Â Â Â Â KEY9 Â Â Â SETLLOPP2904 Â Â Â Â Â Â Â Â Â 14 Â Â
1924.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1925.00 B5 Â C Â Â Â Â Â *IN14 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
1926.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1927.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPMCHG Â Â TOTACT Â Â Â Â Â Â
1928.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â TOTACT Â Â Â Â Â Â
1929.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPAFRT Â Â TOTACT Â Â Â Â Â Â
1930.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1931.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â Â Â Â Â Â Â Â
1932.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1933.00    * F6 - Add additional charges to check reqeust    Â
1934.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1935.00 B6 Â C Â Â Â Â Â *IN06 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â
1936.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1937.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR CHARGE Â Â Â Â Â Â Â Â
1938.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1939.00 X6 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
1940.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1941.00 Â Â Â * Add OPP290 and OPP291 records. Â Â Â Â Â Â Â Â
1942.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1943.00 B7 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â Â
1944.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1945.00 Â Â Â * Add record to Freight Payables header. Â Â Â
1946.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1947.00 Â Â Â * Check Request Type (O=Outside Vendor) Â Â Â
1948.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1949.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE 'O' Â Â Â FPCRTP Â Â
1950.00    * Vendor invoice date            Â
1951.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FVIDT Â Â INFLD Â Â
1952.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â Â
1953.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPVIDT Â Â
1954.00    * Invoice receipt date            Â
1955.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FIRDT Â Â INFLD Â Â
1956.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â Â
1957.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPIRDT Â Â
1958.00    *Invoice Due date              Â
1959.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FIDDT Â Â INFLD Â Â
1960.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR XXXMDY Â Â Â Â Â Â Â
1961.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE OUTFLD Â Â FPIDDT Â Â Â Â Â Â
1962.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1963.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPAPVO Â Â Â Â Â Â
1964.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPAPBA Â Â Â Â Â Â
1965.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPGLBA Â Â Â Â Â Â
1966.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPGLRE Â Â Â Â Â Â
1967.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPBCDT Â Â Â Â Â Â
1968.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPBCTM Â Â Â Â Â Â
1969.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPBCUS Â Â Â Â Â Â
1970.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1971.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPSTAT Â
1972.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1973.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR TSTAMP Â Â Â Â Â Â
1974.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1975.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDZ1DATE Â Â FPENDT Â
1976.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDZ1TIME Â Â FPENTM Â
1977.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE Z1USER Â Â FPENUS Â
1978.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1979.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â Z1DATE Â Â Â Â Â Â Â Â Â Â Â Â
1980.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â Z1TIME Â Â Â Â Â Â Â Â Â Â Â Â
1981.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â Z1USER Â Â Â Â Â Â Â Â Â Â Â Â
1982.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1983.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEOPP290R Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1984.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1985.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CLEAROPP291R Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1986.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1987.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR ADRCDS Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1988.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1989.00 X7 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1990.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1991.00 Â Â Â * Process subfile request(s) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1992.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1993.00 Â Â Â * Keep a mirrored subfile of FPD001SA called FPD001SB. Â This will
1994.00 Â Â Â * will contain records that are not deleted without having to re-
1995.00    * load SFL from disk if records exist              Â
1996.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1997.00 B8 Â C Â Â Â Â Â RRNSA Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1998.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
1999.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â Â Â
2000.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CB Â Â Â Â Â Â Â Â Â Â Â
2001.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â Â Â
2002.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSB Â 30 Â Â Â Â Â
2003.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2004.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â
2005.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2006.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â Â
2007.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2008.00 B9 Â C Â Â Â Â Â *IN57 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
2009.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2010.00 B10 Â C Â Â Â Â Â SELCHG Â Â IFEQ '2' Â Â Â Â Â Â Â Â Â Â Â Â
2011.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR EDTCHG Â Â Â Â Â Â Â Â Â Â Â
2012.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2013.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2014.00 B10 Â C Â Â Â Â Â SELCHG Â Â IFEQ '4' Â Â Â Â Â Â Â Â Â Â Â Â
2015.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR DLTCHG Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2016.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2017.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2018.00    * If either of the subrotuines were ended with a cancel, stop  Â
2019.00 Â Â Â * processing subfile requests and continue to load mirror subfile
2020.00 Â Â Â * to load from after first *IN57 loop has ended. Â Â Â Â Â Â Â Â
2021.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2022.00 B10 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2023.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2024.00 B11 Â C Â Â Â Â Â *IN57 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2025.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2026.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG Â Â Â Â Â Â Â Â Â Â Â Â
2027.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â Â Â Â Â Â Â Â Â Â Â Â
2028.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SB Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2029.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â Â Â Â Â
2030.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â Â Â Â Â Â Â Â
2031.00    * Reset                             Â
2032.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â Â Â
2033.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2034.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2035.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2036.00 X10 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2037.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2038.00 Â Â Â * Put record in mirror SFL if F12 was not used and not a delete Â
2039.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2040.00 B11 Â C Â Â Â Â Â SELCHG Â Â IFNE '4' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2041.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG Â Â Â Â Â Â Â Â Â Â Â Â
2042.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â Â Â Â Â Â Â
2043.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SB Â Â Â Â Â Â Â Â Â Â Â
2044.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2045.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2046.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2047.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2048.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â Â Â Â
2049.00 Â Â Â C Â Â Â Â Â RRNSA Â Â CHAINFPD001SA Â Â Â Â Â Â 57 Â Â Â
2050.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2051.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2052.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2053.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â Â Â Â
2054.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â Â Â Â Â Â Â Â Â Â Â
2055.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â Â Â Â
2056.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN55 Â Â Â Â Â Â Â Â Â
2057.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN56 Â Â Â Â Â Â Â Â Â
2058.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSA Â Â Â Â Â Â Â Â Â
2059.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2060.00 Â Â Â * Reload SFL FPD001SA from records copied to mirrored SFL Â Â Â Â
2061.00    * FPD001SB if not empty                     Â
2062.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2063.00 B9 Â C Â Â Â Â Â RRNSB Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2064.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2065.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â RRNSB Â Â Â Â Â Â Â Â Â Â Â Â
2066.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2067.00 Â Â Â C Â Â Â Â Â RRNSB Â Â CHAINFPD001SB Â Â Â Â Â Â 55 Â Â Â Â Â Â Â Â
2068.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2069.00 B10 Â C Â Â Â Â Â *IN55 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â
2070.00 Â Â Â * SFLDSP Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2071.00 B11 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â
2072.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â Â Â
2073.00 E11 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
2074.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2075.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â Â
2076.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SA Â Â Â Â Â Â Â
2077.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSB Â Â Â Â
2078.00 Â Â Â C Â Â Â Â Â RRNSB Â Â CHAINFPD001SB Â Â Â Â Â Â 55 Â Â Â Â Â Â Â Â
2079.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2080.00 E10 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2081.00 E9 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2082.00 E8 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2083.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2084.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00111 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2085.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2086.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2087.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2088.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2089.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2090.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2091.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2092.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2093.00 Â Â Â * If any errors exist, do not end loop because of F8 Â Â
2094.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2095.00 B2 Â C Â Â Â Â Â *IN13 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
2096.00 Â Â Â C Â Â Â Â Â *IN14 Â Â OREQ *ON Â Â Â Â Â Â Â
2097.00 Â Â Â C Â Â Â Â Â *IN15 Â Â OREQ *ON Â Â Â Â Â Â Â
2098.00 Â Â Â C Â Â Â Â Â *IN35 Â Â OREQ *ON Â Â Â Â Â Â Â
2099.00 Â Â Â C Â Â Â Â Â *IN36 Â Â OREQ *ON Â Â Â Â Â Â Â
2100.00 Â Â Â C Â Â Â Â Â *IN37 Â Â OREQ *ON Â Â Â Â Â Â Â
2101.00 B3 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â
2102.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN08 Â
2103.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2104.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2105.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2106.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2107.00    * Reset                             Â
2108.00 B1 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2109.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â Â Â
2110.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2111.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2112.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2113.00 Â Â Â **************************
2114.00 Â Â Â C Â Â Â Â Â GETVND Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2115.00 Â Â Â **************************
2116.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2117.00    * Vendor Information                       Â
2118.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2119.00 Â Â Â C Â Â Â Â Â FPVEND Â Â CHAINAPP400R Â Â Â Â Â Â Â 01 Â Â Â Â Â Â Â Â
2120.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2121.00 B1 Â C Â Â Â Â Â *IN01 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2122.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMVNNM Â Â Â Â Â Â Â Â Â Â Â Â
2123.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' VMVNNM Â Â Â Â Â Â Â Â Â Â Â Â
2124.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2125.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2126.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2127.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2128.00 Â Â Â **************************
2129.00 Â Â Â C Â Â Â Â Â LODCHG Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2130.00 Â Â Â **************************
2131.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2132.00 Â Â Â * Load charges from OPP291 associated withg invoice Â
2133.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2134.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN54 Â Â Â Â Â Â
2135.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CA Â Â Â Â Â Â Â Â Â Â
2136.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001CB Â Â Â Â Â Â Â Â Â Â
2137.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN54 Â Â Â Â Â Â
2138.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN55 Â Â Â Â Â Â
2139.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN56 Â Â Â Â Â Â
2140.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRNSA Â Â Â Â Â Â
2141.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEA*BLANKS Â CHG Â Â Â Â Â Â Â Â Â Â
2142.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â A Â Â Â Â Â Â Â Â Â Â Â
2143.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELCHG Â Â Â Â Â Â Â Â
2144.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPACHG Â Â Â Â Â Â Â Â
2145.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPMCHG Â Â Â Â Â Â Â Â
2146.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2147.00 Â Â Â C Â Â Â Â Â KEY13 Â Â SETLLOPP291R Â Â Â Â Â Â Â Â Â Â Â Â Â
2148.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â N Â Â 55 Â Â Â
2149.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2150.00    * Load Charges associated with invoice          Â
2151.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2152.00 B1 Â C Â Â Â Â Â *IN55 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2153.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2154.00 B2 Â C Â Â Â Â Â *IN56 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2155.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN56 Â Â Â Â Â Â Â Â
2156.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2157.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2158.00 Â Â Â C Â Â Â Â Â KEY10 Â Â CHAINOPP292R Â Â Â Â Â Â Â 29 Â Â Â Â
2159.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2160.00 B2 Â C Â Â Â Â Â *IN29 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â
2161.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FYDESC Â Â Â Â Â
2162.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' FYDESC Â Â Â Â Â
2163.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2164.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2165.00 Â Â Â C Â Â Â Â Â KEY14 Â Â CHAINOPP293R Â Â Â Â Â Â Â 29 Â
2166.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2167.00 B2 Â C Â Â Â Â Â *IN29 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â
2168.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FSDESC Â Â
2169.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEL'UNKNOWN' FSDESC Â Â
2170.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
2171.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2172.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRNSA Â Â Â
2173.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD001SA Â Â Â Â Â Â
2174.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2175.00 Â Â Â * Put in arrary also for edit purposes later Â
2176.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2177.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â A Â Â Â Â
2178.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELFECTYP Â Â CHG,A Â Â
2179.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FECSTP Â Â CHG,A Â Â
2180.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2181.00    * Add to totals               Â
2182.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2183.00 B2 Â C Â Â Â Â Â FECTYP Â Â IFEQ 'A' Â Â Â Â Â Â Â Â
2184.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPACHG Â
2185.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2186.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FEAMNT Â Â FPMCHG Â Â Â Â Â Â Â
2187.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2188.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2189.00 Â Â Â C Â Â Â Â Â KEY13 Â Â READEOPP291R Â Â Â Â Â Â Â Â Â 55 Â Â
2190.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2191.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2192.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2193.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2194.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2195.00 Â Â Â **************************
2196.00 Â Â Â C Â Â Â Â Â LODFPE Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2197.00 Â Â Â **************************
2198.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2199.00    * Load Freight Payable Entries                 Â
2200.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2201.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN50 Â Â Â Â Â Â Â Â Â Â Â Â
2202.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00101 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2203.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN50 Â Â Â Â Â Â SFLCLR Â Â Â
2204.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN51 Â Â Â Â Â Â SFLEND Â Â Â
2205.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN52 Â Â Â Â Â Â SFLDSP Â Â Â
2206.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELINV Â Â Â Â Â Â Â Â Â Â Â Â
2207.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN2 Â Â 30 Â Â Â Â Â Â Â Â Â Â
2208.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2209.00    C           MOVE *OFF    *IN10       ND Vendor  Â
2210.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN11 Â Â Â Â Â Â ND Ship# Â Â
2211.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2212.00    * Vendor Total Fields                      Â
2213.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2214.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENFRT Â Â Â Â Â Â
2215.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENACC Â Â Â Â Â Â
2216.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENMIS Â Â Â Â Â Â
2217.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2218.00    * Batch Total Fields                 Â
2219.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2220.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â BCHFRT Â Â Â Â Â Â
2221.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â BCHACC Â Â Â Â Â Â
2222.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â BCHMIS Â Â Â Â Â Â Â Â
2223.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2224.00 MOD Â C Â Â Â Â Â KEY1 Â Â Â SETLLOPP29012 Â Â Â Â Â Â Â Â Â Â Â Â
2225.00 MOD Â C Â Â Â Â Â KEY1 Â Â Â READEOPP29012 Â Â Â Â Â Â N Â Â 51 Â Â
2226.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2227.00    * Loop                          Â
2228.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2229.00 B1 Â C Â Â Â Â Â *IN51 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2230.00    *First Read                       Â
2231.00 B2 Â C Â Â Â Â Â *IN52 Â Â IFEQ *OFF Â Â Â Â Â Â Â
2232.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2233.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN52 Â Â
2234.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2235.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVEND Â Â HLDVEN Â
2236.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2237.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2238.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2239.00    * Vendor Break               Â
2240.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2241.00 B3 Â C Â Â Â Â Â FPVEND Â Â IFNE HLDVEN Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2242.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2243.00 MOD Â C Â Â Â Â Â KEY1 Â Â Â REDPEOPP29012 Â Â Â Â Â Â N Â Â 51 Â Â Â Â Â
2244.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2245.00 B4 Â C Â Â Â Â Â *IN10 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2246.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2247.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2248.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2249.00    * Accumulate Batch Totals             Â
2250.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2251.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENFRT Â Â BCHFRT Â Â Â Â
2252.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENACC Â Â BCHACC Â Â Â Â
2253.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENMIS Â Â BCHMIS Â Â Â Â
2254.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2255.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENFRT Â Â FPAFRT Â Â Â Â
2256.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENACC Â Â FPACHG Â Â Â Â
2257.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENMIS Â Â FPMCHG Â Â Â Â
2258.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2259.00    * Vendor Line Total               Â
2260.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2261.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENFRT Â Â INVTOT Â Â Â
2262.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENACC Â Â INVTOT Â Â Â
2263.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENMIS Â Â INVTOT Â Â Â
2264.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2265.00    * Vendor Total Record              Â
2266.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2267.00 B4 Â C Â Â Â Â Â *IN10 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â
2268.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN10 Â Â
2269.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
2270.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2271.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN11 Â Â
2272.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2273.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELTOT,1 Â Â FPFB# Â Â
2274.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPPREP Â Â
2275.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2276.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN2 Â Â Â Â
2277.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00102 Â Â Â Â Â Â Â
2278.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN10 Â Â Â
2279.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN11 Â Â Â
2280.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2281.00    * Clear Vendor totals             Â
2282.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2283.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENFRT Â Â Â
2284.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENACC Â Â Â
2285.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â VENMIS Â Â Â Â Â Â
2286.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2287.00 MOD Â C Â Â Â Â Â KEY1 Â Â Â READEOPP29012 Â Â Â Â Â Â N Â Â 51
2288.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2289.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVEND Â Â HLDVEN Â Â Â Â Â Â
2290.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2291.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2292.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2293.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2294.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2295.00    * Invoice Line Total                      Â
2296.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2297.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDFPAFRT Â Â INVTOT Â Â Â Â Â Â Â Â Â Â Â
2298.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â INVTOT Â Â Â Â Â Â Â Â Â Â Â
2299.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPMCHG Â Â INVTOT Â Â Â Â Â Â Â Â Â Â Â
2300.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2301.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPAFRT Â Â VENFRT Â Â Â Â Â Â Â Â Â Â Â
2302.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â VENACC Â Â Â Â Â Â Â Â Â Â Â
2303.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPMCHG Â Â VENMIS Â
2304.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2305.00 B2 Â C Â Â Â Â Â *IN10 Â Â IFEQ *OFF Â Â Â Â Â Â Â
2306.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â
2307.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2308.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2309.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN2 Â Â
2310.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00102 Â Â Â Â Â
2311.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2312.00 B2 Â C Â Â Â Â Â *IN10 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2313.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN10 Â Â Â Â Â Â Â Â Â Â
2314.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2315.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2316.00 MOD Â C Â Â Â Â Â KEY1 Â Â Â READEOPP29012 Â Â Â Â Â Â N Â Â 51 Â Â Â Â
2317.00    * End Loop                          Â
2318.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2319.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2320.00 Â Â Â * Turn EOF off so "Bottom" will not show up in SFL until Ven-
2321.00    * dor/Batch total records are written         Â
2322.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2323.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN51 Â Â Â Â Â Â Â
2324.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2325.00    * Vendor information/Select non-display indicator   Â
2326.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2327.00 B2 Â C Â Â Â Â Â *IN10 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
2328.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN10 Â Â Â Â Â Â Â
2329.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2330.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2331.00    * Ship#/Select non-display indicator    Â
2332.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2333.00 B2 Â C Â Â Â Â Â *IN11 Â Â IFEQ *OFF Â Â Â Â Â Â Â
2334.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN11 Â Â
2335.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2336.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2337.00    * If at least one record exists in batch  Â
2338.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2339.00 B1 Â C Â Â Â Â Â *IN52 Â Â IFEQ *ON Â Â Â Â Â Â Â
2340.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2341.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENFRT Â Â BCHFRT Â
2342.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENACC Â Â BCHACC Â
2343.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENMIS Â Â BCHMIS Â
2344.00    * Vendor Total               Â
2345.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENFRT Â Â FPAFRT Â
2346.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENACC Â Â FPACHG Â
2347.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENMIS Â Â FPMCHG Â
2348.00    * Vendor Line Total              Â
2349.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDVENFRT Â Â INVTOT Â Â Â
2350.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENACC Â Â INVTOT Â Â Â
2351.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â VENMIS Â Â INVTOT Â Â Â
2352.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELTOT,1 Â Â FPFB# Â Â Â
2353.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPPREP Â Â Â
2354.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN2 Â Â Â Â
2355.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00102 Â Â Â Â Â Â Â
2356.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2357.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
2358.00    * Batch Total                   Â
2359.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDBCHFRT Â Â FPAFRT Â Â Â Â
2360.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDBCHACC Â Â FPACHG Â Â Â Â
2361.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDBCHMIS Â Â FPMCHG Â Â Â Â
2362.00    * Batch Line Total                Â
2363.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADDBCHFRT Â Â INVTOT Â Â Â Â
2364.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â BCHACC Â Â INVTOT Â Â Â Â
2365.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â BCHMIS Â Â INVTOT Â Â Â Â
2366.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVELTOT,2 Â Â FPFB# Â Â Â Â
2367.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â FPPREP Â Â Â Â
2368.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2369.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN2 Â Â Â Â Â
2370.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00102 Â Â Â Â Â Â Â Â
2371.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2372.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN51 Â Â Â Â
2373.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN52 Â Â Â Â
2374.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2375.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD1 Â Â Â Â CURSOR Â Â Â Â Â Â Â Â Â Â Â Â
2376.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2377.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2378.00 Â Â Â **************************
2379.00 Â Â Â C Â Â Â Â Â LODVND Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2380.00 Â Â Â **************************
2381.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2382.00    * Load Vendor Shipment total records for user to select from   Â
2383.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2384.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN60 Â Â Â Â Â Â Â Â Â Â Â
2385.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00106 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2386.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN60 Â Â Â Â Â Â SFLCLR Â Â
2387.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN61 Â Â Â Â Â Â SFLEND Â Â
2388.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN62 Â Â Â Â Â Â SFLDSP Â Â
2389.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELVND Â Â Â Â Â Â Â Â Â Â Â
2390.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELVN2 Â Â Â Â Â Â Â Â Â Â Â
2391.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN7 Â Â 30 Â Â Â Â Â Â Â Â Â
2392.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2393.00    * Vendor Shipment Totals                Â
2394.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2395.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPEFRT Â Â Â Â Â Â Â
2396.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPECHG Â Â Â Â Â Â Â
2397.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2398.00    * Multiple OPP294 records per Vendor per Shipment    Â
2399.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2400.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â SETLLOPP294R Â Â Â Â Â Â Â Â Â Â Â Â
2401.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP294R Â Â Â Â Â Â N Â Â 61 Â Â
2402.00    * Loop                              Â
2403.00 B1 Â C Â Â Â Â Â *IN61 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2404.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2405.00    * Make Sure Vendor is an outside vendor             Â
2406.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2407.00 Â Â Â C Â Â Â Â Â KEY20 Â Â SETLLOPP3013 Â Â Â Â Â Â Â Â Â 34 Â Â Â Â Â Â
2408.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2409.00 B2 Â C Â Â Â Â Â *IN34 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2410.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2411.00 Â Â Â * Make sure Ship#/Vendor combination is not already in OPP290 Â Â
2412.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2413.00 Â Â Â C Â Â Â Â Â KEY3 Â Â Â SETLLOPP2903 Â Â Â Â Â Â Â Â Â 33 Â Â Â Â Â Â
2414.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2415.00 B3 Â C Â Â Â Â Â *IN33 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2416.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2417.00    * First Read                           Â
2418.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2419.00 B4 Â C Â Â Â Â Â *IN62 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2420.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2421.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN62 Â Â
2422.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2423.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FHVEND Â Â FPVEND Â
2424.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2425.00 X4 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2426.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2427.00    * Vendor Break               Â
2428.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2429.00 B5 Â C Â Â Â Â Â FHVEND Â Â IFNE FPVEND Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2430.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2431.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â REDPEOPP294R Â Â Â Â Â Â N Â Â 61 Â Â Â Â
2432.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2433.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMVNA1 Â Â Â Â Â Â Â Â Â Â
2434.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMSTAT Â Â Â Â Â Â Â Â Â Â
2435.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMZIP1 Â Â Â Â Â Â Â Â Â Â
2436.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2437.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2438.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2439.00    * Shipment Total Record for Vendor      Â
2440.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2441.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN7 Â Â Â
2442.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00107 Â Â Â Â Â Â
2443.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2444.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPEFRT Â Â
2445.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPECHG Â Â
2446.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2447.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP294R Â Â Â Â Â Â N Â Â 61 Â
2448.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2449.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FHVEND Â Â FPVEND Â Â Â Â Â Â
2450.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2451.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2452.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2453.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2454.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2455.00    * Shipment vendor total                Â
2456.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2457.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHEFRT Â Â FPEFRT Â Â Â
2458.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â FPECHG Â Â Â
2459.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2460.00    *  Exclude Vendor all together         Â
2461.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2462.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
2463.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2464.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â SETGTOPP294R Â Â Â Â Â Â Â
2465.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2466.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â
2467.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2468.00    *  Exclude Vendor all together     Â
2469.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2470.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â
2471.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2472.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â SETGTOPP294R Â Â Â
2473.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2474.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2475.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2476.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP294R Â Â Â Â Â Â N Â Â 61 Â
2477.00    * End Loop                       Â
2478.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2479.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2480.00    * If at least one record was read           Â
2481.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2482.00 B1 Â C Â Â Â Â Â *IN62 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
2483.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2484.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â
2485.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2486.00    * Shipment Vendor total Record        Â
2487.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2488.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN7 Â Â Â
2489.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00107 Â Â Â Â Â Â
2490.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2491.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
2492.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2493.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2494.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2495.00 Â Â Â **************************
2496.00 Â Â Â C Â Â Â Â Â LODVN2 Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2497.00 Â Â Â **************************
2498.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2499.00    * Load Vendor Shipment total records for user to select from   Â
2500.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2501.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN60 Â Â Â Â Â Â Â Â Â Â Â Â
2502.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00106 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2503.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN60 Â Â Â Â Â Â SFLCLR Â Â Â
2504.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN61 Â Â Â Â Â Â SFLEND Â Â Â
2505.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN62 Â Â Â Â Â Â SFLDSP Â Â Â
2506.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELVND Â Â Â Â Â Â Â Â Â Â Â
2507.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â SELVN2 Â Â Â Â Â Â Â Â Â Â Â
2508.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN7 Â Â 30 Â Â Â Â Â Â Â Â Â
2509.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2510.00    * Vendor Shipment Totals                 Â
2511.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2512.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPEFRT Â Â Â Â Â Â Â Â
2513.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPECHG Â Â Â Â Â Â Â Â
2514.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2515.00    * Multiple OPP294 records per Vendor per Shipment    Â
2516.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2517.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â SETLLOPP29411 Â Â Â Â Â Â Â Â Â Â Â Â
2518.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 61 Â Â
2519.00    * Loop                          Â
2520.00 B1 Â C Â Â Â Â Â *IN61 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2521.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2522.00    * Make Sure Vendor is an outside vendor          Â
2523.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2524.00 Â Â Â C Â Â Â Â Â KEY20 Â Â SETLLOPP3013 Â Â Â Â Â Â Â Â Â 34 Â Â Â
2525.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2526.00 B2 Â C Â Â Â Â Â *IN34 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2527.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2528.00 Â Â Â * Make sure Ship#/Vendor combination is already in OPP290 Â Â Â Â
2529.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2530.00 Â Â Â C Â Â Â Â Â KEY3 Â Â Â SETLLOPP2903 Â Â Â Â Â Â Â Â Â 33 Â Â Â Â Â Â
2531.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2532.00 B3 Â C Â Â Â Â Â *IN33 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2533.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2534.00 Â Â Â * Make sure vendor is not in current batch for shipment. Â Â Â Â Â
2535.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2536.00 Â Â Â C Â Â Â Â Â FPVEND Â Â LOKUPVEN,1 Â Â Â Â Â Â Â Â Â Â 33 Â Â Â Â Â Â
2537.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2538.00 B4 Â C Â Â Â Â Â *IN33 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
2539.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2540.00    * First Read                     Â
2541.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2542.00 B5 Â C Â Â Â Â Â *IN62 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â
2543.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2544.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN62 Â Â Â Â Â Â Â
2545.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2546.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FHVEND Â Â FPVEND Â Â Â Â Â Â Â
2547.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2548.00 X5 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2549.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2550.00    * Vendor Break                     Â
2551.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2552.00 B6 Â C Â Â Â Â Â FHVEND Â Â IFNE FPVEND Â Â Â Â Â Â Â Â Â Â Â Â
2553.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2554.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â REDPEOPP29411 Â Â Â Â Â Â Â Â 61 Â
2555.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2556.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMVNA1 Â Â Â Â Â Â Â Â
2557.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMSTAT Â Â Â Â Â Â Â Â
2558.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *BLANKS Â VMZIP1 Â Â Â Â Â Â Â Â
2559.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2560.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â Â Â Â Â Â Â
2561.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2562.00    * Shipment Total Record for Vendor            Â
2563.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2564.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN7 Â Â Â Â Â Â Â
2565.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00107 Â Â Â Â Â Â Â Â Â Â
2566.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2567.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPEFRT Â Â Â Â Â Â
2568.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FPECHG Â Â Â Â Â Â
2569.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2570.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 61
2571.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2572.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FHVEND Â Â FPVEND Â Â Â Â Â Â
2573.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2574.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
2575.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2576.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
2577.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2578.00    * Shipment vendor total             Â
2579.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2580.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHEFRT Â Â FPEFRT Â Â Â
2581.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FHECHG Â Â FPECHG Â Â Â
2582.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2583.00    *  Exclude Vendor all together                 Â
2584.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2585.00 X4 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2586.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2587.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN58 Â Â Â Â Â Â Â Â Â Â Â
2588.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2589.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â SETGTOPP29411 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2590.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2591.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2592.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2593.00    *  Exclude Vendor all together       Â
2594.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2595.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2596.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2597.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â SETGTOPP29411 Â Â Â Â Â
2598.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2599.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â
2600.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2601.00    *  Exclude Vendor all together     Â
2602.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2603.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â
2604.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2605.00 Â Â Â C Â Â Â Â Â KEY4 Â Â Â SETGTOPP29411 Â Â Â
2606.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2607.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â
2608.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2609.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 61 Â Â
2610.00    * End Loop                       Â
2611.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2612.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2613.00    * If at least one record was read            Â
2614.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2615.00 B1 Â C Â Â Â Â Â *IN62 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2616.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2617.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â Â Â Â Â Â
2618.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2619.00    * Shipment Vendor total Record      Â
2620.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2621.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN7 Â
2622.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00107 Â Â Â Â
2623.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2624.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
2625.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2626.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â
2627.00 Â Â Â **************************
2628.00 Â Â Â C Â Â Â Â Â LOOK Â Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2629.00 Â Â Â **************************
2630.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2631.00 Â Â Â * Make sure at least one outside vendor exists on shipment even Â
2632.00 Â Â Â * if already paid. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2633.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2634.00    * Multiple OPP294 records per Vendor per Shipment        Â
2635.00 Â Â Â * Â
2636.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â SETLLOPP29411 Â Â Â Â Â Â Â Â Â Â
2637.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 61 Â
2638.00    * Loop                        Â
2639.00 B1 Â C Â Â Â Â Â *IN61 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
2640.00 Â Â Â C Â Â Â Â Â *IN59 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â
2641.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2642.00    * Make Sure Vendor is an outside vendor        Â
2643.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2644.00 Â Â Â C Â Â Â Â Â KEY20 Â Â SETLLOPP3013 Â Â Â Â Â Â Â Â Â 34 Â
2645.00 B2 Â C Â Â Â Â Â *IN34 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
2646.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN59 Â Â Â Â Â Â Â Â
2647.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2648.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2649.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP29411 Â Â Â Â Â Â Â Â 61 Â Â
2650.00    * End Loop                       Â
2651.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2652.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2653.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2654.00 Â Â Â **************************
2655.00 Â Â Â C Â Â Â Â Â SHOW Â Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2656.00 Â Â Â **************************
2657.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2658.00 Â Â Â * Show the total you have paid the vendor thus far for shipment Â
2659.00 Â Â Â * and see user wants to continue. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2660.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2661.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â MISEST Â Â Â Â Â Â Â Â Â Â Â Â
2662.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â MISACT Â Â Â Â Â Â Â Â Â Â Â Â
2663.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â ACCEST Â Â Â Â Â Â
2664.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â ACCACT Â Â Â Â Â Â
2665.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FRTEST Â Â Â Â Â Â
2666.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â FRTACT Â Â Â Â Â Â
2667.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â ESTIMT Â Â Â Â Â Â
2668.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â PAID Â Â Â Â Â Â Â
2669.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2670.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â SETLLOPL29006 Â Â Â Â Â Â Â Â Â Â
2671.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â READEOPL29006 Â Â Â Â Â Â Â Â 01
2672.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2673.00 B1 Â C Â Â Â Â Â *IN01 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2674.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPEFRT Â Â FRTEST Â Â Â Â Â Â Â Â
2675.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPECHG Â Â ACCEST Â Â Â Â Â Â Â Â
2676.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPAFRT Â Â FRTACT Â Â Â Â Â Â Â Â
2677.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â ACCACT Â Â Â Â Â Â Â Â
2678.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPMCHG Â Â MISACT Â Â Â Â Â Â Â Â
2679.00 Â Â Â C Â Â Â Â Â KEY7 Â Â Â READEOPL29006 Â Â Â Â Â Â Â Â 01 Â Â
2680.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2681.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2682.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FRTEST Â Â ESTIMT Â Â Â Â
2683.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â ACCEST Â Â ESTIMT Â Â Â Â
2684.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FRTACT Â Â PAID Â Â Â Â Â
2685.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â ACCACT Â Â PAID Â Â Â Â Â
2686.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â MISACT Â Â PAID Â Â Â Â Â
2687.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2688.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â F12 Â Â 1 Â Â Â
2689.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2690.00 B1 Â C Â Â Â Â Â *IN12 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â
2691.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00128 Â Â Â Â Â Â Â Â
2692.00 B2 Â C Â Â Â Â Â *IN06 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â
2693.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN12 Â Â Â Â
2694.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â
2695.00 B3 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â
2696.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE '1' Â Â Â F12 Â Â Â Â Â
2697.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
2698.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
2699.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2700.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2701.00 B1 Â C Â Â Â Â Â F12 Â Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2702.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â Â Â
2703.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2704.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2705.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2706.00 Â Â Â **************************
2707.00 Â Â Â C Â Â Â Â Â NOVEND Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2708.00 Â Â Â **************************
2709.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2710.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN60 Â Â Â Â Â Â Â Â Â Â Â Â
2711.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00124 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2712.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN60 Â Â Â Â Â Â Â Â Â Â Â Â
2713.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN61 Â Â Â Â Â Â Â Â Â Â Â Â
2714.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN62 Â Â Â Â Â Â Â Â Â Â Â Â
2715.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2716.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â RRN25 Â 30 Â Â Â Â Â Â Â Â Â
2717.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2718.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â CRTDAT Â Â Â Â Â Â Â
2719.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â DUEDAT Â Â Â Â Â Â Â
2720.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2721.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD0 Â Â Â Â X Â Â Â 30 Â Â Â Â Â
2722.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVEA*ZEROS Â Â VEN Â Â Â Â Â Â Â Â
2723.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2724.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â SETLLOPP2906 Â Â Â Â Â Â Â Â Â Â Â
2725.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP2906 Â Â Â Â Â Â Â Â Â 61 Â
2726.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2727.00 B1 Â C Â Â Â Â Â *IN61 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â
2728.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2729.00 B2 Â C Â Â Â Â Â *IN62 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â
2730.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN62 Â Â Â Â
2731.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
2732.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2733.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR GETVND Â Â Â Â Â Â Â Â Â
2734.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2735.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPIDDT Â Â DUEDAT Â Â Â Â Â Â Â Â Â
2736.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT DUEDAT Â Â DUEDAT Â Â Â Â Â Â Â Â Â
2737.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2738.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPBCDT Â Â CRTDAT Â Â Â Â Â Â Â Â Â
2739.00 Â Â Â C Â Â Â Â Â 100.0001 Â MULT CRTDAT Â Â CRTDAT Â Â Â Â Â Â Â Â Â
2740.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2741.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPECHG Â Â FPEFRT Â Â Â Â Â Â Â Â Â
2742.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2743.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPACHG Â Â FPAFRT Â Â Â Â Â Â Â Â Â
2744.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â FPMCHG Â Â FPAFRT Â Â Â Â Â Â
2745.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2746.00 Â Â Â * Array is used in additional billing. Â Â Â Â Â Â Â Â
2747.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2748.00 B2 Â C Â Â Â Â Â FPSTAT Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â Â
2749.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â X Â Â Â Â Â Â Â Â
2750.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPVEND Â Â VEN,X Â Â Â Â Â Â
2751.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN25 Â Â Â Â Â Â
2752.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2753.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN25 Â Â Â Â Â Â Â Â Â
2754.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2755.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2756.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ADD Â 1 Â Â Â Â RRN25 Â Â Â Â Â Â Â Â Â
2757.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00125 Â Â Â Â Â Â Â Â Â Â Â Â Â
2758.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2759.00 Â Â Â C Â Â Â Â Â KEY2 Â Â Â READEOPP2906 Â Â Â Â Â Â Â Â Â 61 Â Â Â
2760.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2761.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2762.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2763.00 Â Â Â * See if at least one of the vendors was outside to allow addi-
2764.00 Â Â Â * tional billing. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2765.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2766.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR LOOK Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2767.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2768.00    * Show user history payment history              Â
2769.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2770.00 B1 Â C Â Â Â Â Â *IN12 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2771.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2772.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00126 Â Â Â Â Â Â Â Â Â Â Â
2773.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00124 Â Â Â Â Â Â Â Â Â Â Â
2774.00    * Additional Billing                  Â
2775.00 B2 Â C Â Â Â Â Â *IN06 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2776.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2777.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE '1' Â Â Â ADBILL Â Â Â Â Â Â Â
2778.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2779.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN12 Â Â Â Â Â Â Â Â
2780.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2781.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2782.00    * Detailed Inquiry             Â
2783.00 B3 Â C Â Â Â Â Â *IN07 Â Â IFEQ *ON Â Â Â Â Â Â Â Â
2784.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE '1' Â Â Â QUIRY Â Â
2785.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPSHP# Â Â LDSHP# Â
2786.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â OUT Â LDA Â Â Â Â Â Â Â Â
2787.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'FPC012' Â Â Â Â Â
2788.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â QUIRY Â Â
2789.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â Z-ADD*ZERO Â Â LDSHP# Â Â Â Â
2790.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â OUT Â LDA Â Â Â Â Â Â Â Â Â Â Â
2791.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2792.00 X3 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â
2793.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2794.00 B4 Â C Â Â Â Â Â *IN12 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â
2795.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE ' ' Â Â Â ADBILL Â Â Â Â
2796.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN59 Â Â Â Â Â
2797.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â
2798.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2799.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2800.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2801.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2802.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2803.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2804.00 Â Â Â **************************
2805.00 Â Â Â C Â Â Â Â Â VNDSEL Â Â BEGSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2806.00 Â Â Â **************************
2807.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2808.00    * Display Vendor selection screen             Â
2809.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2810.00 B1 Â C Â Â Â Â Â *IN03 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2811.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2812.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2813.00 Â Â Â * Load all vendors assosciated with shipment out of OPP294
2814.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2815.00 B2 Â C Â Â Â Â Â ADBILL Â Â IFEQ ' ' Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2816.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR LODVND Â Â Â Â Â Â Â Â
2817.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â
2818.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR LODVN2 Â Â Â Â Â Â Â Â
2819.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â
2820.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2821.00 B2 Â C Â Â Â Â Â RRN7 Â Â Â IFNE 0 Â Â Â Â Â Â Â Â Â Â
2822.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2823.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â WRITEFPD00105 Â Â Â Â Â Â Â
2824.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXFMTFPD00106 Â Â Â Â Â Â Â
2824.01 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2824.02 Â Â Â * F8 - DISPLAY EST. FREIGHT WINDOW Â Â Â Â Â Â Â Â
2824.03 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2824.04 Â Â Â C Â Â Â Â Â *INKH Â Â IFEQ '1' Â Â Â Â Â Â Â Â Â Â
2824.05 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE FPSHP# Â Â PSHIP# Â 6 Â Â
2824.06 Â Â Â C Â Â Â Â Â Â Â Â Â Â CALL 'FPR022' Â Â Â Â Â Â Â Â
2824.07 Â Â Â C Â Â Â Â Â Â Â Â Â Â PARM Â Â Â Â Â PSHIP# Â Â Â Â
2824.08 Â Â Â C Â Â Â Â Â Â Â Â Â Â ITER Â Â Â Â Â Â Â Â Â Â Â Â
2824.09 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDIF Â Â Â Â Â Â Â Â Â Â Â Â
2825.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2826.00    * F3 or F12 not issued                    Â
2827.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2828.00 B3 Â C Â Â Â Â Â *IN03 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2829.00 Â Â Â C Â Â Â Â Â *IN12 Â Â ANDEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2830.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2831.00    * Vendors exist to select from                Â
2832.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2833.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN63 Â Â Â Â Â Â Â Â Â Â Â
2834.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2835.00 B4 Â C Â Â Â Â Â *IN62 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
2836.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00107 Â Â Â Â Â Â Â Â 63 Â
2837.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2838.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2839.00    * Read subfile selections               Â
2840.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2841.00 B4 Â C Â Â Â Â Â *IN63 Â Â DOWEQ*OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
2842.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2844.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2845.00 B5 Â C Â Â Â Â Â SELVND Â Â IFEQ '1' Â Â Â Â Â Â Â
2846.00 Â Â Â C Â Â Â Â Â SELVN2 Â Â OREQ '1' Â Â Â Â Â Â Â
2847.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2848.00 B6 Â C Â Â Â Â Â ADBILL Â Â IFEQ '1' Â Â Â Â Â Â Â
2849.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR SHOW Â Â Â Â Â Â
2850.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â
2851.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2852.00 B6 Â C Â Â Â Â Â *IN12 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â
2853.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN63 Â Â Â Â Â Â Â
2854.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR ENTRY Â Â Â Â Â Â Â Â Â Â Â Â
2855.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2856.00 Â Â Â * Cause loop to end if and invoice was added for vendor
2857.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2858.00 B7 Â C Â Â Â Â Â *IN08 Â Â IFEQ *ON Â Â Â Â Â Â Â Â Â Â Â Â Â
2859.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN12 Â Â Â Â Â Â Â
2860.00 E7 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2861.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2862.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â
2863.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2864.00 X5 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â
2865.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2866.00    * Change vendor# associated with shipment  Â
2867.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2868.00 B6 Â C Â Â Â Â Â SELVND Â Â IFEQ '3' Â Â Â Â Â Â Â Â
2869.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *ON Â Â Â *IN63 Â Â
2870.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR CHGVND Â Â Â Â Â Â Â Â Â Â Â Â Â
2871.00 E6 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2872.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2873.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2874.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2875.00 B5 Â C Â Â Â Â Â *IN63 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2876.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â READCFPD00107 Â Â Â Â Â Â Â Â 63 Â Â
2877.00 E5 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2878.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2879.00 E4 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2880.00 E3 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2881.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2882.00 X2 Â C Â Â Â Â Â Â Â Â Â Â ELSE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2883.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2884.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â EXSR NOVEND Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2885.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2886.00 E2 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2887.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2888.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2889.00 Â Â Â * Â Reset if invoice was not added. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2890.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2891.00 B1 Â C Â Â Â Â Â *IN08 Â Â IFEQ *OFF Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2892.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â MOVE *OFF Â Â Â *IN12 Â Â Â Â Â Â Â Â Â Â Â Â
2893.00 E1 Â C Â Â Â Â Â Â Â Â Â Â END Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2894.00 Â Â Â * Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2895.00 Â Â Â C Â Â Â Â Â Â Â Â Â Â ENDSR Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2896.00 Â Â Â **************************
2897.00 Â Â Â C/COPY BOOKC1 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2898.00 Â Â Â C/COPY BOOKC2 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2899.00 ** Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2900.00 Â Vendor Total: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2901.00 Â Â Batch Total: Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2902.00 ** Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
2903.00 Edit list generated, check outq. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
    ****************** End of data **************************
                              Â
                                      Â
                                   Â
                           Â
            Â
                                       Â
                                       Â
                         Â
                                     Â
                                      Â
                                  Â
                                       Â
                                      Â
 Â
                                       Â
       Â
                              Â
       Â
                            Â
Â
                                    Â
                                       Â
         Â
ASKER
Dear daveslash:
I am sure you are being clear, but I have absolutely no familiarity with RPG. Â Could you spell out maybe point out an example in the code about the fields and how they are contained in the files?
Thanks,
Christine
I am sure you are being clear, but I have absolutely no familiarity with RPG. Â Could you spell out maybe point out an example in the code about the fields and how they are contained in the files?
Thanks,
Christine
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Greetings!
Since the program uses no SQL, then all files used in the program are declared with F-specs. In your program, that would be lines 56-93 .
As for fields, you can look at the ones contained in the files, and that should do it.
HTH,
DaveSlash