IB Compile of %WW-CCSF, HCS to WWCCSF, HCO Version: 0 on 05/03/16 at 11:12:39 5 %WW-CCSF 0000 !S %WW-CCSF,HCS !! 10 %WW-CCSF 0000 !O WWCCSF,HCO !! 15 %WW-CCSF 0000 !L LPT,S,E !! 20 %WW-CCSF 0000 !R CED !! 25 %WW-CCSF 0000 ! !! 2000 %WW-CCSF 0000 ROUND !! 3000 %WW-CCSF 0000 LENGTH 8 & COMMON RUNCD$ !! 4900 %WW-CCSF 0000 0000 FORMAT '' !! 5100 %WW-CCSF 0005 USE '^COO1A' !0060 - OPEN ORDER HEADER !! 100 ^COO1A 0005 ! ! !! 200 ^COO1A 0005 !===========================> ^COO1A <=============================! !! 300 ^COO1A 0005 ! ! !! 400 ^COO1A 0005 ! File Format & Length Declaratives ! !! 500 ^COO1A 0005 ! ! !! 600 ^COO1A 0005 ! File Name: WWO1A OPEN ORDER HEADER ! !! 700 ^COO1A 0005 ! ! !! 800 ^COO1A 0005 ! Type: K Record: 999 Key: 9 Image: N ! !! 900 ^COO1A 0005 ! ! !! 1000 ^COO1A 0005 ! #FILES File Name: ORDER.OPEN.H Date: 01/06/06 ! !! 1100 ^COO1A 0005 ! ! !! 1200 ^COO1A 0005 !--------------------------------------------------------------------! !! 1300 ^COO1A 0005 ! ! !! 1400 ^COO1A 0005 ! ! !! 1500 ^COO1A 0005 LENGTH 2.0 & LOCAL OHNDPCT ! !! 1600 ^COO1A 0005 LENGTH 3.0 & LOCAL OPKGS,OPCT,OWGHT ! !! 1700 ^COO1A 0005 LENGTH 4.2 & LOCAL ODISCPCT,OPCKCHG,OTAXPCT ! !! 1800 ^COO1A 0005 LENGTH 6.2 & LOCAL OFRT,OHANDAMT ! !! 1900 ^COO1A 0005 LENGTH 6.4 & LOCAL OTAXPCL ! !! 2000 ^COO1A 0005 LENGTH 7.2 & LOCAL ODEPOSIT,ODISCAMT,OMISC1 ! !! 2100 ^COO1A 0005 LENGTH 7.2 & LOCAL OUNITS,OTAXAMT ! !! 2200 ^COO1A 0005 LENGTH 8.2 & LOCAL OCOMMRME,OCOMMPD1,OCOMMPD2 ! !! 2300 ^COO1A 0005 LENGTH 8.2 & LOCAL OCOMPAID ! !! 2400 ^COO1A 0005 LENGTH 9.2 & LOCAL OCOST,OCRPAYREQ,ODEPOSIL ! !! 2500 ^COO1A 0005 LENGTH 9.2 & LOCAL ODISCAML,OHOLDAMT,OGROSS ! !! 2600 ^COO1A 0005 LENGTH 9.2 & LOCAL OMISC,ONET,OTXBASIS ! !! 2700 ^COO1A 0005 LENGTH 1 & LOCAL OCFAFLG$,OCFASTK$,OCLRCD1$ ! !! 2800 ^COO1A 0005 LENGTH 1 & LOCAL OCLRCD2$,OCAFLGH$,OCOMMRES$ ! !! 2900 ^COO1A 0005 LENGTH 1 & LOCAL OCRDSC$,OCRLIM$,OCRMSC$ ! !! 3000 ^COO1A 0005 LENGTH 1 & LOCAL OCRPST$,OCRPAY$,OCRSLE$ ! !! 3100 ^COO1A 0005 LENGTH 1 & LOCAL OCUTYRD$,OCUTARVD$,ODSCFLG$ ! !! 3200 ^COO1A 0005 LENGTH 1 & LOCAL OEMLFI$,OEMLOPA$,OEMLSA$ ! !! 3300 ^COO1A 0005 LENGTH 1 & LOCAL OFRFLAG$,OFOFLG$,OFRTCODE$ ! !! 3400 ^COO1A 0005 LENGTH 1 & LOCAL OFURNOP$,OFURNOPA$ ! !! 3500 ^COO1A 0005 LENGTH 1 & LOCAL OIBMFLAG$,OLATE$,OMILLSTK$ ! !! 3600 ^COO1A 0005 LENGTH 1 & LOCAL ONEWORD$,OORIGCFA$,OPUFLG$ ! !! 3700 ^COO1A 0005 LENGTH 1 & LOCAL OPROFLG$,OREPRNT$,ORESFLG$ ! !! 3800 ^COO1A 0005 LENGTH 1 & LOCAL ORETURN$,ORUSHOMO$,ORUSHOP$ ! !! 3900 ^COO1A 0005 LENGTH 1 & LOCAL OSAMPFLG$,OPKGSAMP$ ! !! 4000 ^COO1A 0005 LENGTH 1 & LOCAL OSTATUS$,OXMLFLAG$ ! !! 4100 ^COO1A 0005 LENGTH 2 & LOCAL OBTCNTRY$,OCANCEL$ ! !! 4200 ^COO1A 0005 LENGTH 2 & LOCAL OINNOFLG$,OSLSTYP$,OSTATE$ ! !! 4300 ^COO1A 0005 LENGTH 2 & LOCAL OSTCNTRY$,OTERMCDE$,CUPS$ ! !! 4400 ^COO1A 0005 LENGTH 3 & LOCAL OBOFLAG$,OEMLSEQ1$ ! !! 4500 ^COO1A 0005 LENGTH 3 & LOCAL OEMLSEQ2$,OEMLSEQ3$,OHOLD1$ ! !! 4600 ^COO1A 0005 LENGTH 3 & LOCAL OHOLD2$,OLRFROM$,OMSGCD1$ ! !! 4700 ^COO1A 0005 LENGTH 3 & LOCAL OMSGCD2$,OINIT$,OINITL$ ! !! 4800 ^COO1A 0005 LENGTH 3 & LOCAL OINITR$,OEMLREP$,OSNBR1$ ! !! 4900 ^COO1A 0005 LENGTH 3 & LOCAL OSNBR2$ ! !! 5000 ^COO1A 0005 LENGTH 4 & LOCAL OEOFLAG$,OPTDATE$ ! !! 5100 ^COO1A 0005 LENGTH 5 & LOCAL OCYVEND$ ! !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 5200 ^COO1A 0005 LENGTH 6 & LOCAL OBILLPER$,OCOMMPER$,CNBR$ ! !! 5300 ^COO1A 0005 LENGTH 6 & LOCAL OAPCP1$,OAPCP2$,OFAPCR$ ! !! 5400 ^COO1A 0005 LENGTH 6 & LOCAL OFINNBR$,OOMORFLG$,OSPNBR$ ! !! 5500 ^COO1A 0005 LENGTH 8 & LOCAL OOCSRTDT$,OOCSRTTM$ ! !! 5600 ^COO1A 0005 LENGTH 9 & LOCAL INVCNBR$,ORNBR$ ! !! 5700 ^COO1A 0005 LENGTH 10 & LOCAL OBORELDT$,OCOMPDTE$,ODEPDT$ ! !! 5800 ^COO1A 0005 LENGTH 10 & LOCAL OFREE10$,OINVDTE$,OLRELDT$ ! !! 5900 ^COO1A 0005 LENGTH 10 & LOCAL ORDATE$,ORESCDTE$,OSHIPDTE$ ! !! 6000 ^COO1A 0005 LENGTH 10 & LOCAL OZIP$ ! !! 6100 ^COO1A 0005 LENGTH 15 & LOCAL OCORNBR$,OFOB$,OFRTTRM$ ! !! 6200 ^COO1A 0005 LENGTH 15 & LOCAL OGUARBY$,ORORNBR$,OSHIPVIA$ ! !! 6300 ^COO1A 0005 LENGTH 18 & LOCAL OCLIENT$ ! !! 6400 ^COO1A 0005 LENGTH 21 & LOCAL OCITY$ ! !! 6500 ^COO1A 0005 LENGTH 35 & LOCAL OBATTN$,OATTN$,OADR1$ ! !! 6600 ^COO1A 0005 LENGTH 35 & LOCAL OADR2$,ONAME$,OSM1$,OSM2$ ! !! 6700 ^COO1A 0005 LENGTH 79 & LOCAL OFIL0060$ ! !! 6800 ^COO1A 0005 ! ! !! 6900 ^COO1A 0005 ! ! !! 7000 ^COO1A 0005 ! Description Type Len Pos ! !! 7100 ^COO1A 0005 ! ------------------------------------------! !! 7200 ^COO1A 0005 0060 FORMAT _ ! !! 7300 ^COO1A 0005 ORNBR$;_ ! ORDER # S 9 0 ! !! 7400 ^COO1A 0009 CNBR$;_ ! CUST # S 6 9 ! !! 7500 ^COO1A 000D OBATTN$;_ ! BILL TO ATTENTION S 35 15 ! !! 7600 ^COO1A 0011 ONAME$;_ ! SHIP TO NAME S 35 50 ! !! 7700 ^COO1A 0015 OADR1$;_ ! SHIP TO ADDRESS 1 S 35 85 ! !! 7800 ^COO1A 0019 OADR2$;_ ! SHIP TO ADDRESS 2 S 35 120 ! !! 7900 ^COO1A 001D OCITY$;_ ! SHIP TO CITY S 21 155 ! !! 8000 ^COO1A 0021 OSTATE$;_ ! SHIP ST S 2 176 ! !! 8100 ^COO1A 0025 OZIP$;_ ! SHIP TO ZIP CODE S 10 178 ! !! 8200 ^COO1A 0029 OATTN$;_ ! SHIP ATTENTION S 35 188 ! !! 8300 ^COO1A 002D OSM1$;_ ! SIDE MARK S 35 223 ! !! 8400 ^COO1A 0031 OSM2$;_ ! SIDE MARK S 35 258 ! !! 8500 ^COO1A 0035 OCFAFLG$;_ ! CFA FLG S 1 293 ! !! 8600 ^COO1A 0039 ORESFLG$;_ ! RES FLG S 1 294 ! !! 8700 ^COO1A 003D OSHIPVIA$;_ ! SHIP VIA S 15 295 ! !! 8800 ^COO1A 0041 OCORNBR$;_ ! CUSTOMER ORDER NUMBER S 15 310 ! !! 8900 ^COO1A 0045 ORORNBR$;_ ! REP ORDER NUMBER S 15 325 ! !! 9000 ^COO1A 0049 OHOLD1$;_ ! HLD FLG1 S 3 340 ! !! 9100 ^COO1A 004D OHOLDAMT;_ ! HOLD FOR AMOUNT N 9.2 343 ! !! 9200 ^COO1A 0052 OHOLD2$;_ ! HLD FLG2 S 3 354 ! !! 9300 ^COO1A 0056 OFRTTRM$;_ ! FREIGHT TERMS S 15 357 ! !! 9400 ^COO1A 005A OFREE10$;_ ! FREE 10 S 10 372 ! !! 9500 ^COO1A 005E OCLIENT$;_ ! CLIENT S 18 382 ! !! 9600 ^COO1A 0062 ODEPOSIT;_ ! DEPOSIT N 7.2 400 ! !! 9700 ^COO1A 0067 ODISCPCT;_ ! DISC PCT N 4.2 409 ! !! 9800 ^COO1A 006C ODSCFLG$;_ ! D F S 1 415 ! !! 9900 ^COO1A 0070 OPROFLG$;_ ! PRO FLG S 1 416 ! !! 10000 ^COO1A 0074 OTERMCDE$;_ ! TRMS CDE S 2 417 ! !! 10100 ^COO1A 0078 OGUARBY$;_ ! GUARANTEED BY S 15 419 ! !! 10200 ^COO1A 007C ORDATE$;_ ! ORDER DATE S 10 434 ! !! 10300 ^COO1A 0080 OSPNBR$;_ ! SPECIFIER NUMBER S 6 444 ! !! 10400 ^COO1A 0084 OFINNBR$;_ ! FINISHER S 6 450 ! !! 10500 ^COO1A 0088 OBORELDT$;_ ! BACK ORDER REL DATE S 10 456 ! !! 10600 ^COO1A 008C OLRELDT$;_ ! LAST RELEASE DATE S 10 466 ! !! 10700 ^COO1A 0090 OLRFROM$;_ ! LAST REL FROM S 3 476 ! !! 10800 ^COO1A 0094 OINIT$;_ ! OPERATOR ENTER ORDR S 3 479 ! !! 10900 ^COO1A 0098 OINITR$;_ ! OPER LAST RELEASE S 3 482 ! !! 11000 ^COO1A 009C OINITL$;_ ! OPER LAST MAINTAIN S 3 485 ! !! 11100 ^COO1A 00A0 OBOFLAG$;_ ! BACK ORDER FLAG S 3 488 ! !! 11200 ^COO1A 00A4 OGROSS;_ ! MATERIAL AMOUNT N 9.2 491 ! !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 11300 ^COO1A 00A9 ODISCAMT;_ ! DISCOUNT AMOUNT N 7.2 502 ! !! 11400 ^COO1A 00AE OMISC;_ ! MISCEL- LANEOUS N 9.2 511 ! !! 11500 ^COO1A 00B3 OMISC1;_ ! MISCEL- LANEOUS1 N 7.2 522 ! !! 11600 ^COO1A 00B8 OPKGS;_ ! # OF PCK N 3.0 531 ! !! 11700 ^COO1A 00BD OWGHT;_ ! WGHT N 3.0 536 ! !! 11800 ^COO1A 00C2 OFRT;_ ! FREIGHT N 6.2 541 ! !! 11900 ^COO1A 00C7 OTAXPCT;_ ! TAX PCT N 4.2 549 ! !! 12000 ^COO1A 00CC OTAXAMT;_ ! TAX AMOUNT N 7.2 555 ! !! 12100 ^COO1A 00D1 ONET;_ ! NET N 9.2 564 ! !! 12200 ^COO1A 00D6 INVCNBR$;_ ! INVOICE NUMBER S 9 575 ! !! 12300 ^COO1A 00DA OINVDTE$;_ ! INVOICE DATE S 10 584 ! !! 12400 ^COO1A 00DE OSHIPDTE$;_ ! SHIP DATE S 10 594 ! !! 12500 ^COO1A 00E2 CUPS$;_ ! ZONE S 2 604 ! !! 12600 ^COO1A 00E6 OCOST;_ ! COST OF ORDER N 9.2 606 ! !! 12700 ^COO1A 00EB OUNITS;_ ! ORDER UNITS N 7.2 617 ! !! 12800 ^COO1A 00F0 OPCKCHG;_ ! PACK CHG N 4.2 626 ! !! 12900 ^COO1A 00F5 OHNDPCT;_ ! HAND PCT N 2.0 632 ! !! 13000 ^COO1A 00FA OHANDAMT;_ ! HANDLING AMOUNT N 6.2 636 ! !! 13100 ^COO1A 00FF OSNBR1$;_ ! SALES REP 1 S 3 644 ! !! 13200 ^COO1A 0103 OSNBR2$;_ ! SALES REP 2 S 3 647 ! !! 13300 ^COO1A 0107 OPCT;_ ! PCT OF SALE TO REP1 N 3.0 650 ! !! 13400 ^COO1A 010C OCRPAYREQ;_ ! PAY FOR CREDIT REAL N 9.2 655 ! !! 13500 ^COO1A 0111 OCRSLE$;_ ! CREDIT SALE S 1 666 ! !! 13600 ^COO1A 0115 OCRPST$;_ ! CREDIT PAST S 1 667 ! !! 13700 ^COO1A 0119 OCRLIM$;_ ! CREDIT LIMIT S 1 668 ! !! 13800 ^COO1A 011D OCRDSC$;_ ! CREDIT DISCOUNT S 1 669 ! !! 13900 ^COO1A 0121 OCRPAY$;_ ! CREDIT PAYMENT S 1 670 ! !! 14000 ^COO1A 0125 OCRMSC$;_ ! CREDIT MISC S 1 671 ! !! 14100 ^COO1A 0129 OSTATUS$;_ ! DELETE CONFIRMED S 1 672 ! !! 14200 ^COO1A 012D ONEWORD$;_ ! NEW ORDER FLAG S 1 673 ! !! 14300 ^COO1A 0131 OREPRNT$;_ ! REPRINT FLAG S 1 674 ! !! 14400 ^COO1A 0135 OLATE$;_ ! LATE CODE S 1 675 ! !! 14500 ^COO1A 0139 OFRFLAG$;_ ! FAX RPT FLG S 1 676 ! !! 14600 ^COO1A 013D OMILLSTK$;_ ! MILL STK FLG S 1 677 ! !! 14700 ^COO1A 0141 OCUTYRD$;_ ! CUT YARDAGE ORDER S 1 678 ! !! 14800 ^COO1A 0145 OPUFLG$;_ ! PER USE FLG S 1 679 ! !! 14900 ^COO1A 0149 OFOFLG$;_ ! 1ST ORD FLG S 1 680 ! !! 15000 ^COO1A 014D ORETURN$;_ ! RETURN CODE S 1 681 ! !! 15100 ^COO1A 0151 OSAMPFLG$;_ ! SAMPLE FLAG S 1 682 ! !! 15200 ^COO1A 0155 OCANCEL$;_ ! ORDER CANCEL REASON S 2 683 ! !! 15300 ^COO1A 0159 OBILLPER$;_ ! BILL PER. S 6 685 ! !! 15400 ^COO1A 015D OCOMMPER$;_ ! COMM PERIOD S 6 691 ! !! 15500 ^COO1A 0161 OPTDATE$;_ ! PICK TICK DATE S 4 697 ! !! 15600 ^COO1A 0165 OEOFLAG$;_ ! ELIG ORD FLAG S 4 701 ! !! 15700 ^COO1A 0169 ORESCDTE$;_ ! RESERVE CANCEL DATE S 10 705 ! !! 15800 ^COO1A 016D OFOB$;_ ! FOB S 15 715 ! !! 15900 ^COO1A 0171 OCAFLGH$;_ ! COMM ADJ FLG HDR S 1 730 ! !! 16000 ^COO1A 0175 OPKGSAMP$;_ ! SAMPLE PKG FLG S 1 731 ! !! 16100 ^COO1A 0179 OTXBASIS;_ ! TAXABLE BASIS N 9.2 732 ! !! 16200 ^COO1A 017E OORIGCFA$;_ ! ORIGINAL CFA FLAG S 1 743 ! !! 16300 ^COO1A 0182 OSLSTYP$;_ ! SALES TYPE S 2 744 ! !! 16400 ^COO1A 0186 ODEPDT$;_ ! DEPOSIT DATE S 10 746 ! !! 16500 ^COO1A 018A OCYVEND$;_ ! CUT YARDAGE VENDOR # S 5 756 ! !! 16600 ^COO1A 018E OCUTARVD$;_ ! CUTTING ARRIVED FLAG S 1 761 ! !! 16700 ^COO1A 0192 OCFASTK$;_ ! CFA FROM STOCK S 1 762 ! !! 16800 ^COO1A 0196 OOCSRTDT$;_ ! OC SORT DATE S 8 763 ! !! 16900 ^COO1A 019A OOCSRTTM$;_ ! OC SORT TIME S 8 771 ! !! 17000 ^COO1A 019E OOMORFLG$;_ ! OMOR FLAG S 6 779 ! !! 17100 ^COO1A 01A2 OCOMPDTE$;_ ! COMM PAID DATE S 10 785 ! !! 17200 ^COO1A 01A6 OCOMPAID;_ ! COMM PAID AMT N 8.2 795 ! !! 17300 ^COO1A 01AB OFAPCR$;_ ! FAP COMM RECORDED S 6 805 ! !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 17400 ^COO1A 01AF OAPCP1$;_ ! FAP COMM PAID 1 S 6 811 ! !! 17500 ^COO1A 01B3 OCOMMPD1;_ ! AMT COMM PAID 1 N 8.2 817 ! !! 17600 ^COO1A 01B8 OAPCP2$;_ ! FAP COMM PAID 2 S 6 827 ! !! 17700 ^COO1A 01BC OCOMMPD2;_ ! AMT COMM PAID 2 N 8.2 833 ! !! 17800 ^COO1A 01C1 OCOMMRME;_ ! AMT COMM MONTH END N 8.2 843 ! !! 17900 ^COO1A 01C6 OFRTCODE$;_ ! FREIGHT CODE S 1 853 ! !! 18000 ^COO1A 01CA OFURNOP$;_ ! FURN OP FLAG S 1 854 ! !! 18100 ^COO1A 01CE OXMLFLAG$;_ ! XML FLAG S 1 855 ! !! 18200 ^COO1A 01D2 OMSGCD1$;_ ! MSG CD 1 S 3 856 ! !! 18300 ^COO1A 01D6 OMSGCD2$;_ ! MSG CD 2 S 3 859 ! !! 18400 ^COO1A 01DA OCLRCD1$;_ ! CLEAR CD 1 S 1 862 ! !! 18500 ^COO1A 01DE OCLRCD2$;_ ! CLEAR CD 2 S 1 863 ! !! 18600 ^COO1A 01E2 OFURNOPA$;_ ! FURN OPA FLAG S 1 864 ! !! 18700 ^COO1A 01E6 OIBMFLAG$;_ ! INVOICED BY MILL FLAG S 1 865 ! !! 18800 ^COO1A 01EA OBTCNTRY$;_ ! BILL-TO COUNTRY CD S 2 866 ! !! 18900 ^COO1A 01EE OSTCNTRY$;_ ! SHIP-TO COUNTRY CD S 2 868 ! !! 19000 ^COO1A 01F2 OCOMMRES$;_ ! COMMERCIAL/RESIDENTIAL S 1 870 ! !! 19100 ^COO1A 01F6 ORUSHOMO$;_ ! RUSH ORDER OMOX FLAG S 1 871 ! !! 19200 ^COO1A 01FA ORUSHOP$;_ ! RUSH ORDER OP FLAG S 1 872 ! !! 19300 ^COO1A 01FE OEMLSEQ1$;_ ! EMAIL SEQ # 1 S 3 873 ! !! 19400 ^COO1A 0202 OEMLSEQ2$;_ ! EMAIL SEQ # 2 S 3 876 ! !! 19500 ^COO1A 0206 OEMLSEQ3$;_ ! EMAIL SEQ # 3 S 3 879 ! !! 19600 ^COO1A 020A OEMLOPA$;_ ! EMAIL OPA FLAG S 1 882 ! !! 19700 ^COO1A 020E OEMLSA$;_ ! EMAIL SHIP ACK FLAG S 1 883 ! !! 19800 ^COO1A 0212 OEMLFI$;_ ! EMAIL FINAL INVC FLAG S 1 884 ! !! 19900 ^COO1A 0216 OINNOFLG$;_ ! INNOVATIONS ORDER FLAG S 2 885 ! !! 20000 ^COO1A 021A OEMLREP$;_ ! REP EMAIL SEQ # S 3 887 ! !! 20100 ^COO1A 021E ODEPOSIL;_ ! DEPOSIT AMT (LONG) N 9.2 890 ! !! 20200 ^COO1A 0223 ODISCAML;_ ! DISCOUNT AMT (LONG) N 9.2 901 ! !! 20300 ^COO1A 0228 OTAXPCL;_ ! TAX PCT (LONG) N 6.4 912 ! !! 20400 ^COO1A 022D OFIL0060$ ! FILLER 0060 S 79 920 ! !! 20500 ^COO1A 0232 ! ! !! 20600 ^COO1A 0232 !====================================================================! !! 5200 %WW-CCSF 0232 USE '^COC1A' !0100 - CUSTOMER FILE !! 100 ^COC1A 0232 ! ! !! 200 ^COC1A 0232 !===========================> ^COC1A <=============================! !! 300 ^COC1A 0232 ! ! !! 400 ^COC1A 0232 ! File Format & Length Declaratives ! !! 500 ^COC1A 0232 ! ! !! 600 ^COC1A 0232 ! File Name: WWC1A CUSTOMER MASTER ! !! 700 ^COC1A 0232 ! ! !! 800 ^COC1A 0232 ! Type: K Record: 999 Key: 6 Image: N ! !! 900 ^COC1A 0232 ! ! !! 1000 ^COC1A 0232 ! #FILES File Name: CUSTOMER.MASTER Date: 01/20/16 ! !! 1100 ^COC1A 0232 ! ! !! 1200 ^COC1A 0232 !--------------------------------------------------------------------! !! 1300 ^COC1A 0232 ! ! !! 1400 ^COC1A 0232 ! ! !! 1500 ^COC1A 0232 LENGTH 3.0 & LOCAL CAVGDAYS,CDSCTPR1,CDSCTPR2 ! !! 1600 ^COC1A 0232 LENGTH 3.0 & LOCAL CDSCTYTD,CNUMPMNT,CNORPRV1 ! !! 1700 ^COC1A 0232 LENGTH 3.0 & LOCAL CNORPRV2,CNORYTD ! !! 1800 ^COC1A 0232 LENGTH 4.0 & LOCAL CMTDINV,CPRV1INV,CPRV2INV ! !! 1900 ^COC1A 0232 LENGTH 4.0 & LOCAL CPRV3INV,CYTDINV ! !! 2000 ^COC1A 0232 LENGTH 4.2 & LOCAL CDISCPCT ! !! 2100 ^COC1A 0232 LENGTH 6.0 & LOCAL CCREDLIM ! !! 2200 ^COC1A 0232 LENGTH 7.2 & LOCAL CDSCPRV1,CDSCPRV2,CDSCPRV3 ! !! 2300 ^COC1A 0232 LENGTH 7.2 & LOCAL CDSCYTD,CSRVPRV1,CSRVPRV2 ! !! 2400 ^COC1A 0232 LENGTH 7.2 & LOCAL CSRVYTD,CRVPRV1,CRVPRV2 ! !! 2500 ^COC1A 0232 LENGTH 7.2 & LOCAL CRVYTD,CSFMTD,CSFPRV1 ! !! 2600 ^COC1A 0232 LENGTH 7.2 & LOCAL CSFPRV2,CSFPRV3,CSFYTD ! !! 2700 ^COC1A 0232 LENGTH 7.2 & LOCAL CSSMTD,CSSPRV1,CSSPRV2 ! !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 2800 ^COC1A 0232 LENGTH 7.2 & LOCAL CSSPRV3,CSSYTD ! !! 2900 ^COC1A 0232 LENGTH 9.2 & LOCAL CCSTMTD,CCSTPRV1,CCSTPRV2 ! !! 3000 ^COC1A 0232 LENGTH 9.2 & LOCAL CCSTPRV3,CCSTYTD,CHIGHBAL ! !! 3100 ^COC1A 0232 LENGTH 9.2 & LOCAL CBAL,COPEN,CSLSMTD ! !! 3200 ^COC1A 0232 LENGTH 9.2 & LOCAL CSLSPRV1,CSLSPRV2,CSLSPRV3 ! !! 3300 ^COC1A 0232 LENGTH 9.2 & LOCAL CSLSYTD,CTAXYTD ! !! 3400 ^COC1A 0232 LENGTH 1 & LOCAL CAPREF$,CAREP$,CBTYPE$ ! !! 3500 ^COC1A 0232 LENGTH 1 & LOCAL CCOMMDUE$,CDSCFLG$,CMBXCP$ ! !! 3600 ^COC1A 0232 LENGTH 1 & LOCAL COPARPFL$,CRTOMILL$ ! !! 3700 ^COC1A 0232 LENGTH 2 & LOCAL CCONSWHS$,CCNTRYCD$,CCTYPE$ ! !! 3800 ^COC1A 0232 LENGTH 2 & LOCAL CSTATE$,CTERMCD$ ! !! 3900 ^COC1A 0232 LENGTH 3 & LOCAL CAREA$,CHOLD2$,CLTYPE$ ! !! 4000 ^COC1A 0232 LENGTH 3 & LOCAL CRANK$,CSNBR$ ! !! 4100 ^COC1A 0232 LENGTH 3 & LOCAL CCODE$(5) ! !! 4200 ^COC1A 0232 LENGTH 3 & LOCAL CSTISO$ ! !! 4300 ^COC1A 0232 LENGTH 5 & LOCAL CCRALRT$,CRESDTE$,CSACAT$ ! !! 4400 ^COC1A 0232 LENGTH 6 & LOCAL CNBR$ ! !! ***** VARIABLE 'CNBR$ ' HAS BEEN PREVIOUSLY DECLARED ***** 4500 ^COC1A 0232 LENGTH 8 & LOCAL CWEBPASS$ ! !! 4600 ^COC1A 0232 LENGTH 10 & LOCAL CACTDATE$,CDTEEST$,CDTEHI$ ! !! 4700 ^COC1A 0232 LENGTH 10 & LOCAL CDOLS$,CDOLSS$,CFUPDATE$ ! !! 4800 ^COC1A 0232 LENGTH 10 & LOCAL CPRCLST$,CZIP$ ! !! 4900 ^COC1A 0232 LENGTH 11 & LOCAL CPHONE2$ ! !! 5000 ^COC1A 0232 LENGTH 15 & LOCAL CRESALE$ ! !! 5100 ^COC1A 0232 LENGTH 16 & LOCAL CFAX$,CPHONE1$ ! !! 5200 ^COC1A 0232 LENGTH 20 & LOCAL CASRT$ ! !! 5300 ^COC1A 0232 LENGTH 21 & LOCAL CCITY$ ! !! 5400 ^COC1A 0232 LENGTH 35 & LOCAL CADR1$,CADR2$,CATTN$ ! !! 5500 ^COC1A 0232 LENGTH 35 & LOCAL CNAME$ ! !! 5600 ^COC1A 0232 LENGTH 60 & LOCAL CEMAIL$ ! !! 5700 ^COC1A 0232 LENGTH 121 & LOCAL CFIL0100$ ! !! 5800 ^COC1A 0232 ! ! !! 5900 ^COC1A 0232 ! ! !! 6000 ^COC1A 0232 ! Description Type Len Pos ! !! 6100 ^COC1A 0232 ! ------------------------------------------! !! 6200 ^COC1A 0232 0100 FORMAT _ ! !! 6300 ^COC1A 0232 CNBR$;_ ! CUST # S 6 0 ! !! 6400 ^COC1A 0236 CNAME$;_ ! CUSTOMER NAME S 35 6 ! !! 6500 ^COC1A 023A CADR1$;_ ! ADDRESS ONE S 35 41 ! !! 6600 ^COC1A 023E CADR2$;_ ! ADDRESS TWO S 35 76 ! !! 6700 ^COC1A 0242 CCITY$;_ ! CITY S 21 111 ! !! 6800 ^COC1A 0246 CSTATE$;_ ! ST S 2 132 ! !! 6900 ^COC1A 024A CZIP$;_ ! ZIP CODE S 10 134 ! !! 7000 ^COC1A 024E CATTN$;_ ! ATTENTION S 35 144 ! !! 7100 ^COC1A 0252 CASRT$;_ ! ALPHA SORT NAME S 20 179 ! !! 7200 ^COC1A 0256 CPHONE1$;_ ! PHONE 1 S 16 199 ! !! 7300 ^COC1A 025A CPHONE2$;_ ! PHONE 2 S 11 215 ! !! 7400 ^COC1A 025E CRESDTE$;_ ! RESALE NUMBER DATE S 5 226 ! !! 7500 ^COC1A 0262 CFAX$;_ ! FAX S 16 231 ! !! 7600 ^COC1A 0266 CSNBR$;_ ! REP ID S 3 247 ! !! 7700 ^COC1A 026A CAREP$;_ ! APP REP S 1 250 ! !! 7800 ^COC1A 026E CRESALE$;_ ! RESALE NUMBER S 15 251 ! !! 7900 ^COC1A 0272 CCTYPE$;_ ! CUST TYPE S 2 266 ! !! 8000 ^COC1A 0276 CLTYPE$;_ ! CUST CLASS S 3 268 ! !! 8100 ^COC1A 027A CTERMCD$;_ ! TERMS CODE S 2 271 ! !! 8200 ^COC1A 027E CCREDLIM;_ ! LIMIT N 6.0 273 ! !! 8300 ^COC1A 0283 CDISCPCT;_ ! DISC PCT N 4.2 281 ! !! 8400 ^COC1A 0288 CDSCFLG$;_ ! D F S 1 287 ! !! 8500 ^COC1A 028C CDTEEST$;_ ! DATE EST S 10 288 ! !! 8600 ^COC1A 0290 CPRCLST$;_ ! PRICE LIST DATE S 10 298 ! !! 8700 ^COC1A 0294 CCRALRT$;_ ! CREDIT ALERT S 5 308 ! !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 8800 ^COC1A 0298 CSACAT$;_ ! SALES AID GL CAT S 5 313 ! !! 8900 ^COC1A 029C CRTOMILL$;_ ! RETURN TO MILL CODE S 1 318 ! !! 9000 ^COC1A 02A0 CDOLS$;_ ! DTE LAST SALE S 10 319 ! !! 9100 ^COC1A 02A4 CDOLSS$;_ ! DTE LAST SAMP SALE S 10 329 ! !! 9200 ^COC1A 02A8 CAVGDAYS;_ ! AVERAGE DAYS TO PAY N 3.0 339 ! !! 9300 ^COC1A 02AD CHIGHBAL;_ ! HIGH A/R BALANCE N 9.2 344 ! !! 9400 ^COC1A 02B2 CDTEHI$;_ ! DTE HIGH A/R BAL S 10 355 ! !! 9500 ^COC1A 02B6 CBAL;_ ! BALANCE N 9.2 365 ! !! 9600 ^COC1A 02BB COPEN;_ ! OPEN ORDERS N 9.2 376 ! !! 9700 ^COC1A 02C0 CTAXYTD;_ ! TAXABLE SALES YTD N 9.2 387 ! !! 9800 ^COC1A 02C5 CSLSMTD;_ ! SALES MTD N 9.2 398 ! !! 9900 ^COC1A 02CA CSLSYTD;_ ! SALES YTD N 9.2 409 ! !! 10000 ^COC1A 02CF CSLSPRV1;_ ! SALES PRV1 N 9.2 420 ! !! 10100 ^COC1A 02D4 CSLSPRV2;_ ! SALES PRV2 N 9.2 431 ! !! 10200 ^COC1A 02D9 CSLSPRV3;_ ! SALES PRV3 N 9.2 442 ! !! 10300 ^COC1A 02DE CCSTMTD;_ ! COST MTD N 9.2 453 ! !! 10400 ^COC1A 02E3 CCSTYTD;_ ! COST YTD N 9.2 464 ! !! 10500 ^COC1A 02E8 CCSTPRV1;_ ! COST PRV1 N 9.2 475 ! !! 10600 ^COC1A 02ED CCSTPRV2;_ ! COST PRV2 N 9.2 486 ! !! 10700 ^COC1A 02F2 CCSTPRV3;_ ! COST PRV3 N 9.2 497 ! !! 10800 ^COC1A 02F7 CMTDINV;_ ! MTD INVCS N 4.0 508 ! !! 10900 ^COC1A 02FC CYTDINV;_ ! YTD INVCS N 4.0 514 ! !! 11000 ^COC1A 0301 CPRV1INV;_ ! PRV YR INVCS N 4.0 520 ! !! 11100 ^COC1A 0306 CPRV2INV;_ ! PRV YR INVCS N 4.0 526 ! !! 11200 ^COC1A 030B CPRV3INV;_ ! PRV YR INVCS N 4.0 532 ! !! 11300 ^COC1A 0310 CDSCTYTD;_ ! DISC TAKEN YTD N 3.0 538 ! !! 11400 ^COC1A 0315 CDSCTPR1;_ ! DISC TAKEN PRV1 N 3.0 543 ! !! 11500 ^COC1A 031A CDSCTPR2;_ ! DISC TAKEN PRV2 N 3.0 548 ! !! 11600 ^COC1A 031F CNUMPMNT;_ ! NUMBER OF PAYMNTS N 3.0 553 ! !! 11700 ^COC1A 0324 CDSCYTD;_ ! DISCOUNTS YTD N 7.2 558 ! !! 11800 ^COC1A 0329 CDSCPRV1;_ ! DISCOUNTS PRV1 N 7.2 567 ! !! 11900 ^COC1A 032E CDSCPRV2;_ ! DISCOUNTS PRV2 N 7.2 576 ! !! 12000 ^COC1A 0333 CDSCPRV3;_ ! DISCOUNTS PRV3 N 7.2 585 ! !! 12100 ^COC1A 0338 CNORYTD;_ ! # OF RETURNS YTD N 3.0 594 ! !! 12200 ^COC1A 033D CNORPRV1;_ ! # OF RETURNS PRV1 N 3.0 599 ! !! 12300 ^COC1A 0342 CNORPRV2;_ ! # OF RETURNS PRV2 N 3.0 604 ! !! 12400 ^COC1A 0347 CMBXCP$;_ ! MEMO BILL EXCP S 1 609 ! !! 12500 ^COC1A 034B CRVYTD;_ ! RETURN VAL YTD N 7.2 610 ! !! 12600 ^COC1A 0350 CRVPRV1;_ ! RETURN VAL PRV1 N 7.2 619 ! !! 12700 ^COC1A 0355 CRVPRV2;_ ! RETURN VAL PRV2 N 7.2 628 ! !! 12800 ^COC1A 035A CSSMTD;_ ! SAMPLE VAL MTD N 7.2 637 ! !! 12900 ^COC1A 035F CSSYTD;_ ! SAMPLE VAL YTD N 7.2 646 ! !! 13000 ^COC1A 0364 CSSPRV1;_ ! SAMPLE VAL PRV1 N 7.2 655 ! !! 13100 ^COC1A 0369 CSSPRV2;_ ! SAMPLE VAL PRV2 N 7.2 664 ! !! 13200 ^COC1A 036E CSSPRV3;_ ! SAMPLE VAL PRV3 N 7.2 673 ! !! 13300 ^COC1A 0373 CSFMTD;_ ! SAMPLE FREE MTD N 7.2 682 ! !! 13400 ^COC1A 0378 CSFYTD;_ ! SAMPLE FREE YTD N 7.2 691 ! !! 13500 ^COC1A 037D CSFPRV1;_ ! SAMPLE FREE PRV1 N 7.2 700 ! !! 13600 ^COC1A 0382 CSFPRV2;_ ! SAMPLE FREE PRV2 N 7.2 709 ! !! 13700 ^COC1A 0387 CSFPRV3;_ ! SAMPLE FREE PRV3 N 7.2 718 ! !! 13800 ^COC1A 038C CSRVYTD;_ ! RETURN VAL YTD N 7.2 727 ! !! 13900 ^COC1A 0391 CSRVPRV1;_ ! RETURN VAL PRV1 N 7.2 736 ! !! 14000 ^COC1A 0396 CSRVPRV2;_ ! RETURN VAL PRV2 N 7.2 745 ! !! 14100 ^COC1A 039B CCOMMDUE$;_ ! COMM DUE FLAG S 1 754 ! !! 14200 ^COC1A 039F CRANK$;_ ! RANK S 3 755 ! !! 14300 ^COC1A 03A3 CCODE$(1),5*3;_ ! SAMP CODE 1 - 5 S 3 758 ! !! 14400 ^COC1A 03AD ____ CCODE2$;_ ! SAMP CODE 2 S 3 761 ! !! 14500 ^COC1A 03AD ____ CCODE3$;_ ! SAMP CODE 3 S 3 764 ! !! 14600 ^COC1A 03AD ____ CCODE4$;_ ! SAMP CODE 4 S 3 767 ! !! 14700 ^COC1A 03AD ____ CCODE5$;_ ! SAMP CODE 5 S 3 770 ! !! 14800 ^COC1A 03AD CBTYPE$;_ ! BUS TYP S 1 773 ! !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 14900 ^COC1A 03B1 CAPREF$;_ ! APPOINTMENT PREFERENCE S 1 774 ! !! 15000 ^COC1A 03B5 CACTDATE$;_ ! ACTIVITY.DATE S 10 775 ! !! 15100 ^COC1A 03B9 CFUPDATE$;_ ! FOLLOW UP DATE S 10 785 ! !! 15200 ^COC1A 03BD CEMAIL$;_ ! EMAIL S 60 795 ! !! 15300 ^COC1A 03C1 CCONSWHS$;_ ! CONSIGNMENT WAREHOUSE S 2 855 ! !! 15400 ^COC1A 03C5 CAREA$;_ ! AREAS S 3 857 ! !! 15500 ^COC1A 03C9 CWEBPASS$;_ ! WEB PASSWORD S 8 860 ! !! 15600 ^COC1A 03CD COPARPFL$;_ ! OPA.RP PRNT FLAG S 1 868 ! !! 15700 ^COC1A 03D1 CHOLD2$;_ ! AUTO HOLD 2 S 3 869 ! !! 15800 ^COC1A 03D5 CCNTRYCD$;_ ! COUNTRY CODE S 2 872 ! !! 15900 ^COC1A 03D9 CSTISO$;_ ! ISO STATE S 3 874 ! !! 16000 ^COC1A 03DD CFIL0100$ ! FILLER S 121 877 ! !! 16100 ^COC1A 03E2 ! ! !! 16200 ^COC1A 03E2 !====================================================================! !! 6200 %WW-CCSF 03E2 USE '^COZ1' !0990 - SYS DAT !! 100 ^COZ1 03E2 ! ! !! 200 ^COZ1 03E2 !===========================> ^COZ1 <==============================! !! 300 ^COZ1 03E2 ! ! !! 400 ^COZ1 03E2 ! File Format & Length Declaratives ! !! 500 ^COZ1 03E2 ! ! !! 600 ^COZ1 03E2 ! File Name: Z1 SYSTEM FILE ! !! 700 ^COZ1 03E2 ! ! !! 800 ^COZ1 03E2 ! Type: K Record: 512 Key: 32 Image: N ! !! 900 ^COZ1 03E2 ! ! !! 1000 ^COZ1 03E2 ! #FILES File Name: SYSTEM.FILE Date: 11/07/13 ! !! 1100 ^COZ1 03E2 ! ! !! 1200 ^COZ1 03E2 !--------------------------------------------------------------------! !! 1300 ^COZ1 03E2 ! ! !! 1400 ^COZ1 03E2 ! ! !! 1500 ^COZ1 03E2 LENGTH 1.0 & LOCAL ZREPFLG ! !! 1600 ^COZ1 03E2 LENGTH 2.0 & LOCAL ZFMM,ZMOCRED,ZREMOTE ! !! 1700 ^COZ1 03E2 LENGTH 2.0 & LOCAL ZHNDPCT,ZDELDYO ! !! 1800 ^COZ1 03E2 LENGTH 3.0 & LOCAL ZMAXUPS,ZPASTDUE,ZPDDYS ! !! 1900 ^COZ1 03E2 LENGTH 4.0 & LOCAL ZCLAMT ! !! 2000 ^COZ1 03E2 LENGTH 4.2 & LOCAL ZFRTMIN,ZPCKCHG ! !! 2100 ^COZ1 03E2 LENGTH 5.0 & LOCAL ZPAYLIM ! !! 2200 ^COZ1 03E2 LENGTH 1 & LOCAL ZACKFLG$,ZARAUDT$,ZINVAUDT$ ! !! 2300 ^COZ1 03E2 LENGTH 1 & LOCAL ZBRKFLG$,ZCNLDISP$,ZCNL7$ ! !! 2400 ^COZ1 03E2 LENGTH 1 & LOCAL ZCUTYRD$,ZDIBC$,ZDIEML$ ! !! 2500 ^COZ1 03E2 LENGTH 1 & LOCAL ZDISCAN$,ZEDRFLG$,ZFRTYDLB$ ! !! 2600 ^COZ1 03E2 LENGTH 1 & LOCAL ZFURNACT$,ZFEVENT$ ! !! 2700 ^COZ1 03E2 LENGTH 1 & LOCAL ZDIMGVSN$,ZKEBAT$,ZLPDSPLY$ ! !! 2800 ^COZ1 03E2 LENGTH 1 & LOCAL ZMENU$,ZMULTIWH$,ZCFAFLOE$ ! !! 2900 ^COZ1 03E2 LENGTH 1 & LOCAL ZORDLIM$,ZOTBCFLG$,ZPCKFLG$ ! !! 3000 ^COZ1 03E2 LENGTH 1 & LOCAL ZPTRDLG$,ZPT$,ZQCLOT$ ! !! 3100 ^COZ1 03E2 LENGTH 1 & LOCAL ZRNDFRT$,ZUPDC1A$ ! !! 3200 ^COZ1 03E2 LENGTH 2 & LOCAL ZCENT$,ZZCO$,ZCOID$ ! !! 3300 ^COZ1 03E2 LENGTH 2 & LOCAL ZSTATE$,ZCURRCD$,ZUNUSED2$ ! !! 3400 ^COZ1 03E2 LENGTH 3 & LOCAL ZPART1$,ZEXP$,ZDIBCLPT$ ! !! 3500 ^COZ1 03E2 LENGTH 3 & LOCAL ZFXD$,ZPARTMEM$,ZMLP$ ! !! 3600 ^COZ1 03E2 LENGTH 3 & LOCAL ZLOC$,ZINIT$,ZLP$,ZRMD$ ! !! 3700 ^COZ1 03E2 LENGTH 3 & LOCAL ZREPDEF$ ! !! 3800 ^COZ1 03E2 LENGTH 5 & LOCAL ZJULIAN$ ! !! 3900 ^COZ1 03E2 LENGTH 6 & LOCAL ZAGED6$ ! !! 4000 ^COZ1 03E2 LENGTH 8 & LOCAL ZAGED$,ZFILLER$,ZRESDTE8$ ! !! 4100 ^COZ1 03E2 LENGTH 8 & LOCAL ZCFADTE8$,ZDATE8$ ! !! 4200 ^COZ1 03E2 LENGTH 10 & LOCAL ZZIP$,ZORDDTE$,ZRESDTE$ ! !! 4300 ^COZ1 03E2 LENGTH 10 & LOCAL ZCFADTE$,ZDATE$ ! !! 4400 ^COZ1 03E2 LENGTH 11 & LOCAL ZSHPVIA$ ! !! 4500 ^COZ1 03E2 LENGTH 12 & LOCAL ZPHONE$,ZFAXNO$ ! !! 4600 ^COZ1 03E2 LENGTH 15 & LOCAL ZADR3$,ZFOBOE$ ! !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 4700 ^COZ1 03E2 LENGTH 20 & LOCAL ZFRTTRM$ ! !! 4800 ^COZ1 03E2 LENGTH 21 & LOCAL ZCITY$ ! !! 4900 ^COZ1 03E2 LENGTH 25 & LOCAL ZADR1$,ZADR2$,ZNAME25$ ! !! 5000 ^COZ1 03E2 LENGTH 27 & LOCAL ZDOWEXP$ ! !! 5100 ^COZ1 03E2 LENGTH 32 & LOCAL ZZKEYZ1$ ! !! 5200 ^COZ1 03E2 LENGTH 35 & LOCAL ZNAME$ ! !! 5300 ^COZ1 03E2 ! ! !! 5400 ^COZ1 03E2 ! ! !! 5500 ^COZ1 03E2 ! Description Type Len Pos ! !! 5600 ^COZ1 03E2 ! ------------------------------------------! !! 5700 ^COZ1 03E2 0990 FORMAT _ ! !! 5800 ^COZ1 03E2 ZDATE8$;_ ! TODAYS DATE 8 S 8 0 ! !! 5900 ^COZ1 03E6 ZDOWEXP$;_ ! DATE EXPANDED S 27 8 ! !! 6000 ^COZ1 03EA ZLP$;_ ! PRINTER S 3 35 ! !! 6100 ^COZ1 03EE ZPT$;_ ! REPURPOSED TO ISO STATES? S 1 38 ! !! 6200 ^COZ1 03F2 ZNAME25$;_ ! NAME S 25 39 ! !! 6300 ^COZ1 03F6 ZADR1$;_ ! ADDRESS 1 S 25 64 ! !! 6400 ^COZ1 03FA ZADR2$;_ ! ADDRESS 2 S 25 89 ! !! 6500 ^COZ1 03FE ZCITY$;_ ! CITY S 21 114 ! !! 6600 ^COZ1 0402 ZSTATE$;_ ! STATE S 2 135 ! !! 6700 ^COZ1 0406 ZZIP$;_ ! ZIP S 10 137 ! !! 6800 ^COZ1 040A ZADR3$;_ ! ADDRESS 3 S 15 147 ! !! 6900 ^COZ1 040E ZPHONE$;_ ! PHONE S 12 162 ! !! 7000 ^COZ1 0412 ZAGED6$;_ ! AGING NUMERIC DATE6 S 6 174 ! !! 7100 ^COZ1 0416 ZJULIAN$;_ ! JULIAN DATE S 5 180 ! !! 7200 ^COZ1 041A ZCOID$;_ ! COMPANY ID S 2 185 ! !! 7300 ^COZ1 041E ZREMOTE;_ ! REMOTE FLAG, 0=NONE N 2.0 187 ! !! 7400 ^COZ1 0423 ZUNUSED2$;_ ! 2 UNUSED BYTES S 2 191 ! !! 7500 ^COZ1 0427 ZLOC$;_ ! MEMO SAMPLE LOC S 3 193 ! !! 7600 ^COZ1 042B ZZCO$;_ ! COMPANY CODE S 2 196 ! !! 7700 ^COZ1 042F ZFXD$;_ ! FIXED DISC S 3 198 ! !! 7800 ^COZ1 0433 ZRMD$;_ ! REMOVABLE DISC S 3 201 ! !! 7900 ^COZ1 0437 ZPART1$;_ ! BACKROUND PARTITION S 3 204 ! !! 8000 ^COZ1 043B ZRESDTE8$;_ ! RESERVE CANCEL DATE S 8 207 ! !! 8100 ^COZ1 043F ZCFADTE8$;_ ! RESERVE CFA CANCEL S 8 215 ! !! 8200 ^COZ1 0443 ZHNDPCT;_ ! RESTOCKING PCT N 2.0 223 ! !! 8300 ^COZ1 0448 ZPCKCHG;_ ! PACKAGING CHARGE N 4.2 227 ! !! 8400 ^COZ1 044D ZPCKFLG$;_ ! PACKAGING CHARGE S 1 233 ! !! 8500 ^COZ1 0451 ZDELDYO;_ ! ADDITIONAL SHIP DAY N 2.0 234 ! !! 8600 ^COZ1 0456 ZPASTDUE;_ ! PAST DUE DAYS N 3.0 238 ! !! 8700 ^COZ1 045B ZFMM;_ ! FISCAL MONTH N 2.0 243 ! !! 8800 ^COZ1 0460 ZMOCRED;_ ! MONTHS WITH NO SALE N 2.0 247 ! !! 8900 ^COZ1 0465 ZREPFLG;_ ! RESTRICT REP FLAG N 1.0 251 ! !! 9000 ^COZ1 046A ZEXP$;_ ! DICT DIRECTORY S 3 254 ! !! 9100 ^COZ1 046E ZREPDEF$;_ ! RESTRICTED REP ID S 3 257 ! !! 9200 ^COZ1 0472 ZDATE$;_ ! TODAYS DATE 10 S 10 260 ! !! 9300 ^COZ1 0476 ZAGED$;_ ! AGING NUMERIC DATE8 S 8 270 ! !! 9400 ^COZ1 047A ZCENT$;_ ! CENTURY S 2 278 ! !! 9500 ^COZ1 047E ZINIT$;_ ! INITIALS S 3 280 ! !! 9600 ^COZ1 0482 ZNAME$;_ ! COMPANY NAME S 35 283 ! !! 9700 ^COZ1 0486 ZFRTMIN;_ ! MINIMUM FRT PER ORD N 4.2 318 ! !! 9800 ^COZ1 048B ZPARTMEM$;_ ! MEMO PRINT PART S 3 324 ! !! 9900 ^COZ1 048F ZRESDTE$;_ ! RESERVE CANCEL DATE S 10 327 ! !! 10000 ^COZ1 0493 ZCFADTE$;_ ! RESERVE CFA CANCEL S 10 337 ! !! 10100 ^COZ1 0497 ZLPDSPLY$;_ ! LOT PIECE DSPLY S 1 347 ! !! 10200 ^COZ1 049B ZPAYLIM;_ ! CR CHK PAYMENT LIMIT N 5.0 348 ! !! 10300 ^COZ1 04A0 ZORDDTE$;_ ! ORDER CANCEL DATE S 10 355 ! !! 10400 ^COZ1 04A4 ZORDLIM$;_ ! ORDER CR LIM CHK S 1 365 ! !! 10500 ^COZ1 04A8 ZMULTIWH$;_ ! MULTI WRHSE S 1 366 ! !! 10600 ^COZ1 04AC ZCFAFLOE$;_ ! OE CFA FLG S 1 367 ! !! 10700 ^COZ1 04B0 ZCNLDISP$;_ ! CNL LOOKUP S 1 368 ! !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 10800 ^COZ1 04B4 ZQCLOT$;_ ! LOT NUMBER DEFAULT S 1 369 ! !! 10900 ^COZ1 04B8 ZFOBOE$;_ ! OE FOB DEFAULT S 15 370 ! !! 11000 ^COZ1 04BC ZMAXUPS;_ ! MAX UPS WGHT PKG N 3.0 385 ! !! 11100 ^COZ1 04C1 ZFAXNO$;_ ! FAX NUMBER S 12 390 ! !! 11200 ^COZ1 04C5 ZFRTTRM$;_ ! QE FRT TERM DEFAULT S 20 402 ! !! 11300 ^COZ1 04C9 ZKEBAT$;_ ! KE BATCH OPTION S 1 422 ! !! 11400 ^COZ1 04CD ZFRTYDLB$;_ ! FRT CALC S 1 423 ! !! 11500 ^COZ1 04D1 ZEDRFLG$;_ ! EDR FLG S 1 424 ! !! 11600 ^COZ1 04D5 ZMENU$;_ ! MENU CODE S 1 425 ! !! 11700 ^COZ1 04D9 ZACKFLG$;_ ! ACK FLG S 1 426 ! !! 11800 ^COZ1 04DD ZMLP$;_ ! MEMO PRNTR S 3 427 ! !! 11900 ^COZ1 04E1 ZCUTYRD$;_ ! CUT YARDAGE USER S 1 430 ! !! 12000 ^COZ1 04E5 ZSHPVIA$;_ ! SHIP VIA S 11 431 ! !! 12100 ^COZ1 04E9 ZCLAMT;_ ! CRED LIM CHK AMT N 4.0 442 ! !! 12200 ^COZ1 04EE ZPDDYS;_ ! PAST DUE ORDER DAYS N 3.0 448 ! !! 12300 ^COZ1 04F3 ZFEVENT$;_ ! FURNITURE EVENT S 1 453 ! !! 12400 ^COZ1 04F7 ZCURRCD$;_ ! CURRENCY CODE S 2 454 ! !! 12500 ^COZ1 04FB ZARAUDT$;_ ! A/R AUDIT FLAG S 1 456 ! !! 12600 ^COZ1 04FF ZRNDFRT$;_ ! ROUND FREIGHT? S 1 457 ! !! 12700 ^COZ1 0503 ZUPDC1A$;_ ! UPDATE C1A? S 1 458 ! !! 12800 ^COZ1 0507 ZFURNACT$;_ ! FURN ACCT S 1 459 ! !! 12900 ^COZ1 050B ZOTBCFLG$;_ ! OTBC FLAG S 1 460 ! !! 13000 ^COZ1 050F ZDISCAN$;_ ! DOC IMAGING SCAN FLAG S 1 461 ! !! 13100 ^COZ1 0513 ZDIEML$;_ ! DOC IMAGING EMAIL FLAG S 1 462 ! !! 13200 ^COZ1 0517 ZDIBC$;_ ! DOC IMAGING BARCODE FLAG S 1 463 ! !! 13300 ^COZ1 051B ZDIBCLPT$;_ ! DOC IMAGING B/C PRINTER S 3 464 ! !! 13400 ^COZ1 051F ZCNL7$;_ ! CNL PHONE FLAG S 1 467 ! !! 13500 ^COZ1 0523 ZBRKFLG$;_ ! BROKER COST FLAG S 1 468 ! !! 13600 ^COZ1 0527 ZPTRDLG$;_ ! USE PRINTER DIALOG BOX S 1 469 ! !! 13700 ^COZ1 052B ZINVAUDT$;_ ! AUDIT INV FLAG S 1 470 ! !! 13800 ^COZ1 052F ZDIMGVSN$;_ ! DOC IMAGE VSN S 1 471 ! !! 13900 ^COZ1 0533 ZFILLER$;_ ! FILLER S 8 472 ! !! 14000 ^COZ1 0537 ZZKEYZ1$ ! KEY Z1 S 32 480 ! !! 14100 ^COZ1 053C ! ! !! 14200 ^COZ1 053C !====================================================================! !! 6210 %WW-CCSF 053C USE '^COZ1ME' !0991 - MONTH !! 100 ^COZ1ME 053C !!!! FILE "Z1",378,32 !! 200 ^COZ1ME 053C LENGTH 6 & LOCAL ZYYYYMM$,ZPYYYYMM$,ZCYYYYMM$,ZMYYYYMM$ !! 250 ^COZ1ME 053C LENGTH 1 & LOCAL ZMEFLG$ , ZCADJFLG$ , ZCOMMISS$ , ZKPMFLG$ !! 275 ^COZ1ME 053C LENGTH 6.6 & LOCAL ZYYYYMM,ZPYYYYMM,ZCYYYYMM,ZMYYYYMM !! 325 ^COZ1ME 053C LENGTH 1.0 & LOCAL ZMBUFLG !! 500 ^COZ1ME 053C ! !! 600 ^COZ1ME 053C 0991 FORMAT _ !! 700 ^COZ1ME 053C ZYYYYMM$;_ !CURRENT BILLING MONTH !! 725 ^COZ1ME 0540 ZYYYYMM;_ !NUMERIC BILLING MONTH !! 750 ^COZ1ME 0545 ZMEFLG$;_ !MONTH END FLAG !! 775 ^COZ1ME 0549 ZPYYYYMM$;_ !BILLING MONTH TO PURGE !! 800 ^COZ1ME 054D ZPYYYYMM;_ !NUMERIC MONTH TO PURGE !! 825 ^COZ1ME 0552 ZCYYYYMM$;_ !CANCELED ORDERS MONTH !! 850 ^COZ1ME 0556 ZCYYYYMM;_ !NUMERIC ORDERS MONTH !! 875 ^COZ1ME 055B ZMYYYYMM$;_ !PO RECEIPT PURGE DATE !! 900 ^COZ1ME 055F ZMYYYYMM;_ !NUMERIC PURGE DATE !! 1000 ^COZ1ME 0564 ZMBUFLG;_ !BACKUP FLAG !! 1100 ^COZ1ME 0569 ZCADJFLG$;_ !COMMISSION ADJ FLAG !! 1110 ^COZ1ME 056D ZCOMMISS$;_ !FINAL COMMISSION REPORT !! 1120 ^COZ1ME 0571 ZKPMFLG$ !! 1200 ^COZ1ME 0576 ! !! 6220 %WW-CCSF 0576 ! !! 6310 %WW-CCSF 0576 LENGTH 10.2 & LOCAL C1HSYTD, C1HSPRV1, C1HSPRV2 !! 6410 %WW-CCSF 0576 ! !! 6510 %WW-CCSF 0576 0001 FORMAT CNBR$;C1HSYTD;C1HSPRV1;C1HSPRV2 !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 6610 %WW-CCSF 058A ! !! 9000 %WW-CCSF 058A ! ========== WORK STORAGE ========== !! 9100 %WW-CCSF 058A LENGTH 4 & LOCAL THISYR$,PRV1YR$,PRV2YR$ !! 9500 %WW-CCSF 058A LENGTH 32 & LOCAL KEY$ !! 9600 %WW-CCSF 058A LENGTH 1.0 & LOCAL ERR , PLUSONE !! 9610 %WW-CCSF 058A LENGTH 4.0 & LOCAL THISYR, PRV1YR, PRV2YR !! 9650 %WW-CCSF 058A LENGTH 8.0 & LOCAL COUNT, COUNTW !! 9950 %WW-CCSF 058A USE '^COUTIL8' !! 100 ^COUTIL8 058A !===============================================================================!! 200 ^COUTIL8 058A LENGTH 68 & LOCAL MESS$ !! 300 ^COUTIL8 058A LENGTH 3 & LOCAL ZPRTCODE$ !! 302 ^COUTIL8 058A LENGTH 10 & LOCAL AN$ !! 310 ^COUTIL8 058A LENGTH 20 & LOCAL ZPRTDESC$ , ZPRTLOC$ !! 400 ^COUTIL8 058A LENGTH 40 & LOCAL STITLE$ !! 410 ^COUTIL8 058A LENGTH 252 & LOCAL PARTSTATUS$ !! 500 ^COUTIL8 058A LENGTH 8 & LOCAL FLNM$,DT$ , ZLJPROG$ !! 510 ^COUTIL8 058A LENGTH 12 & LOCAL FLNM12$ !ADED 5/20/04 SEH !! 600 ^COUTIL8 058A LENGTH 1.0 & LOCAL LJCONFLG , ZLJPFLAG !! 605 ^COUTIL8 058A LENGTH 3.0 & LOCAL AN,POS,LINE,PAGE,LM,PM,TTLPOS,MAXLINE !! 620 ^COUTIL8 058A LENGTH 20 & LOCAL CHAR$ !! 640 ^COUTIL8 058A LENGTH 1 & LOCAL BLIND$,PORL$ !! 700 ^COUTIL8 058A SET BUSY=33,EOF=2,KEYERR=32 !! 800 ^COUTIL8 058A !===============================================================================!! 900 ^COUTIL8 058A ! FORMAT STATEMENTS =====!! 1000 ^COUTIL8 058A !===============================================================================!! 1100 ^COUTIL8 058A 90 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM) !! 1200 ^COUTIL8 05A1 91 FORMAT (BF),@(0,23) !! 1300 ^COUTIL8 05A9 92 FORMAT (RB),@(0,23) !! 1500 ^COUTIL8 05B1 95 FORMAT @(POS,LINE) !! 1520 ^COUTIL8 05B9 96 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM);(BM) !! 1600 ^COUTIL8 05D3 100 FORMAT(CS) !! 1700 ^COUTIL8 05D7 110 FORMAT(SB);(BF),@(0,0);ZDATE$,@(0,0);_ !! 1710 ^COUTIL8 05E9 STITLE$,@(TTLPOS,0);'-';@(70);ZNAME$,10 !! 1720 ^COUTIL8 0600 120 FORMAT (CPL80) ! SET FOR 80 CHAR SCREEN !! 1740 ^COUTIL8 0604 130 FORMAT (CPL64) ! SET FOR 64 CHAR SCREEN !! 1800 ^COUTIL8 0608 ! !! 1810 ^COUTIL8 0608 CURSPOSREM: FORMAT (MC) !REMEMBER CURSOR POSITION !! 1820 ^COUTIL8 060C CURSPOSRES: FORMAT (RC) !RESTORE CURSOR POSITION !! 1830 ^COUTIL8 0610 ! !! 1900 ^COUTIL8 0610 SET Z1 = 10 !! 2000 ^COUTIL8 0610 ! !! 2010 ^COUTIL8 0610 CKPRNTR: FORMAT ZPRTCODE$;_ !PRINTER ID !! 2011 ^COUTIL8 0614 ZLJPFLAG;_ !LASER JET PRINTER FLAG '1'=YES !! 2012 ^COUTIL8 0619 ZPRTDESC$;_ !PRINTER DESCRIPTION !! 2014 ^COUTIL8 061D ZPRTLOC$ !PRINTER LOCATION !! 2020 ^COUTIL8 0622 ! !! 2021 ^COUTIL8 0622 LENGTH 2.0 & LOCAL ZPROGFONT !! 2072 ^COUTIL8 0622 CKLJCOND: FORMAT ZLJPROG$;ZPROGFONT !Report font if different than Default !! 2122 ^COUTIL8 062C ! !! 2123 ^COUTIL8 062C LENGTH 2.0 & LOCAL ZDEFFONT !! 2125 ^COUTIL8 062C CKLJDEFFONT: FORMAT ZDEFFONT !Default Font for all reports !! 2129 ^COUTIL8 0632 ! !! 2132 ^COUTIL8 0632 ! THE FOLLOWING FORMAT IS USED BY FORMS PROGRAMS TO DETERMINE THE !! 2142 ^COUTIL8 0632 ! NUMBER OF LINE FEEDS THE PROGRAM NEEDS TO GET TO THE !! 2152 ^COUTIL8 0632 ! FIRST PRINT LINE ON THE FORM. !! 2162 ^COUTIL8 0632 ! !! 2222 ^COUTIL8 0632 LENGTH 32 & LOCAL KEYLF$ !! 2232 ^COUTIL8 0632 LENGTH 2.0 & LOCAL ZLFINIT,ZHPOS !! 2322 ^COUTIL8 0632 ! !! 2422 ^COUTIL8 0632 FRMLFFMT: FORMAT KEYLF$;_ !! 2522 ^COUTIL8 0636 ZLFINIT;_ !INITIAL LINE FEEDS !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 2622 ^COUTIL8 063B ZHPOS !HORIZONTAL POSITION FOR LABELS !! 2722 ^COUTIL8 0641 ! !! 2822 ^COUTIL8 0641 CLEARFOREGROUND: FORMAT _ !ADDED 11/11/2005 !! 2922 ^COUTIL8 0641 (CF) !! 10000 %WW-CCSF 0645 ! ========== CRT FORMATS ========== !! 10100 %WW-CCSF 0645 3000 FORMAT _ !! 10200 %WW-CCSF 0645 'READ ORDER # ',@(20,10);KEY$;_ !! 10210 %WW-CCSF 0651 'ORDERS READ ',@(20,11);COUNT;_ !! 10220 %WW-CCSF 065E 'CUSTOMER RECORDS WRITTEN',@(20,12);COUNTW;_ !! 10230 %WW-CCSF 066B 'DO NOT DISTURB',@(20,16) !! 10300 %WW-CCSF 0674 ! !! 10400 %WW-CCSF 0674 3020 FORMAT _ !! 10500 %WW-CCSF 0674 @(0,2);ZYYYYMM$;' CURRENT BILLING PERIOD';_ !! 10600 %WW-CCSF 0681 @(0,3);THISYR$;' THIS YEAR';_ !! 10700 %WW-CCSF 068E @(0,4);PRV1YR$;' PRV1 YEAR';_ !! 10800 %WW-CCSF 069B @(0,5);PRV2YR$;' PRV2 YEAR' !! 19900 %WW-CCSF 06A9 SET R9M = 1, C1H = 2, C1A = 3 !! 19990 %WW-CCSF 06A9 ! !! 20000 %WW-CCSF 06A9 ! ========== OPEN FILES ========== !! 20010 %WW-CCSF 06A9 CLOSE !! 20020 %WW-CCSF 0001 OPEN(0) TERM$ !! 20100 %WW-CCSF 0006 USE '^COBEGIN' !START PROGRAM !! 20000 ^COBEGIN 0006 !========== START PROCESSING ========== !! 20100 ^COBEGIN 0006 CLEAR !! 20200 ^COBEGIN 0010 OPEN (Z1) 'Z1' !! 20300 ^COBEGIN 0015 READ (Z1,0990)KEY=TERM$ !! 20400 ^COBEGIN 001D PARTSTATUS$=PSTAT(PARTITION$) !! 20500 ^COBEGIN 0027 ! !! 20110 %WW-CCSF 0027 STITLE$ = 'CREATE CUSTOMER SALES - ORDER TRACK' !! 20120 %WW-CCSF 002D TTLPOS = 40 - LEN(STITLE$) / 2 !! 20130 %WW-CCSF 0046 PRINT (0, 120) !! 20140 %WW-CCSF 004B PRINT (0, 100) & PRINT (0, 110) !! 21000 %WW-CCSF 0055 FLNM$ = ZZCO$ + 'R9M' & OPEN (R9M) FLNM$ !! 21100 %WW-CCSF 0065 FLNM$ = ZZCO$ + 'C1A' & OPEN (C1A) FLNM$ !! 22720 %WW-CCSF 0075 FLNM$ = ZZCO$ + 'C1HWEB' & ERASE FLNM$,EXCP=1020 !! 22725 %WW-CCSF 0086 1020 CREATE FLNM$,64,K,6,DIR=ZFXD$ !! 22740 %WW-CCSF 0093 OPEN (C1H) FLNM$ !! 22840 %WW-CCSF 0098 WRITE(Z1,0000) KEY=ZZCO$+'CCSF' !IF RECORD EXISTS, CUSTOMER WANTS TO !! 22940 %WW-CCSF 00A6 !SHOW SALES INFO. RUNNING THIS PROGRAM !! 23040 %WW-CCSF 00A6 !MEANS CUSTOMER WANTS TO SHOW SALES INFO !! 50000 %WW-CCSF 00A6 ! ========== BEGIN PROCESSING ========== !! 50180 %WW-CCSF 00A6 ! !! 50185 %WW-CCSF 00A6 READ (Z1,0991)KEY='*ME'+ZZCO$ !MONTH END RECORD !! 50186 %WW-CCSF 00B4 ! !! 50187 %WW-CCSF 00B4 THISYR$=SUB(ZYYYYMM$,1,4) !! 50188 %WW-CCSF 00C5 THISYR = NUM(THISYR$,ERR) !! 50189 %WW-CCSF 00D2 ! !! 50190 %WW-CCSF 00D2 PRV1YR = THISYR - 1 !! 50191 %WW-CCSF 00DE PRV1YR$=STR(PRV1YR) !! 50192 %WW-CCSF 00E9 ! !! 50194 %WW-CCSF 00E9 PRV2YR = THISYR - 2 !! 50195 %WW-CCSF 00F5 PRV2YR$=STR(PRV2YR) !! 50196 %WW-CCSF 0100 ! !! 50197 %WW-CCSF 0100 PRINT(0,3020) !! 50198 %WW-CCSF 0105 ! !! 50200 %WW-CCSF 0105 5000 KEY$ = KEY(R9M,EXCP=9950) !! 50240 %WW-CCSF 0110 IF FPT(COUNT/500.0000) EQ 0 PRINT (0,3000) !DIS !! 50244 %WW-CCSF 012A INQUIRE(R9M,0060) !GET HEADER INFO !! 50254 %WW-CCSF 012F COUNT = COUNT + 1 !! 50344 %WW-CCSF 013B IF OBILLPER$ LT PRV2YR$ GOTO 5000 !! 50354 %WW-CCSF 0146 IF OSAMPFLG$ EQ 'Y' GOTO 5000 !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 50364 %WW-CCSF 0151 IF OGROSS EQ 0 AND ODISCAML EQ 0 AND OMISC EQ 0 GOTO 5000 !! 50444 %WW-CCSF 0175 ! !! 50454 %WW-CCSF 0175 IF OBILLPER$ EQ ZYYYYMM$ GOTO 5000 !! 50465 %WW-CCSF 0180 ! C1HSYTD IS ALWAYS AS OF THE LAST MONTH END (MEU/ZME). !! 50470 %WW-CCSF 0180 ! COSF adds CSLSMTD to C1HSYTD. Assumes C1HSYTD is as of last month end. !! 50474 %WW-CCSF 0180 ! !! 50484 %WW-CCSF 0180 INQUIRE(C1A,0100) KEY=CNBR$,EXCP=5000 !! 50544 %WW-CCSF 018A GOSUB 7200 !! 50644 %WW-CCSF 018D GOTO 5000 !! 72000 %WW-CCSF 0190 7200 ! ========== UPDATE CUSTOMER SALES FILE ========== !! 72002 %WW-CCSF 0190 ! For Innovations update order track sales as follows: !! 72004 %WW-CCSF 0190 ! For accounts coded as Residential calculate Purchased Sales. !! 72006 %WW-CCSF 0190 ! For accounts coded as Specifiers calculate specified sales. !! 72008 %WW-CCSF 0190 ! For accounts coded as Both only calculate the accounts specified sales. !! 72010 %WW-CCSF 0190 ! For accounts coded as Purchaser do not calculate sales. !! 72012 %WW-CCSF 0190 !NOTE: In OE, an account coded as a Purchaser cannot be input as the Specifier !! 72014 %WW-CCSF 0190 ! in the More section. !! 72016 %WW-CCSF 0190 ! !! 72018 %WW-CCSF 0190 IF ZCOID$ EQ 'IN' THEN !! 72022 %WW-CCSF 0198 IF STRIP(CCTYPE$) NE '' THEN !NOT A RESIDENTIAL ACCOUNT !! 72024 %WW-CCSF 01A3 IF STRIP(OSPNBR$) EQ '' RETURN !NO SPECIFIER ON THE INVOICE !! 72026 %WW-CCSF 01AF CNBR$=OSPNBR$ !CAPTURE SPECIFIED SALES !! 72028 %WW-CCSF 01B5 ENDIF !! 72030 %WW-CCSF 01B5 ENDIF !! 72040 %WW-CCSF 01B5 ! !! 72080 %WW-CCSF 01B5 C1HSYTD = 0 & C1HSPRV1=0 & C1HSPRV2 = 0 !! 72120 %WW-CCSF 01CD PLUSONE = 1 !! 72160 %WW-CCSF 01D5 READ (C1H,0001) KEY=CNBR$,EXCP=7242 !! 72200 %WW-CCSF 01DF PLUSONE = 0 !! 72201 %WW-CCSF 01E7 ! !! 72240 %WW-CCSF 01E7 7242 IF SUB(OBILLPER$,1,4) EQ THISYR$ _ !! 72280 %WW-CCSF 01F2 C1HSYTD = C1HSYTD + OGROSS - ODISCAML + OMISC !! 72320 %WW-CCSF 020E ! !! 72360 %WW-CCSF 020E IF SUB(OBILLPER$,1,4) EQ PRV1YR$ _ !! 72400 %WW-CCSF 0219 C1HSPRV1= C1HSPRV1+ OGROSS - ODISCAML + OMISC !! 72440 %WW-CCSF 0235 ! !! 72480 %WW-CCSF 0235 IF SUB(OBILLPER$,1,4) EQ PRV2YR$ _ !! 72520 %WW-CCSF 0240 C1HSPRV2= C1HSPRV2+ OGROSS - ODISCAML + OMISC !! 72560 %WW-CCSF 025C ! !! 72600 %WW-CCSF 025C WRITE (C1H,0001) KEY=CNBR$ !! 72640 %WW-CCSF 0264 COUNTW = COUNTW + PLUSONE !! 72680 %WW-CCSF 0270 RETURN !! 72720 %WW-CCSF 0271 ! !! 72760 %WW-CCSF 0271 ! !! 90000 %WW-CCSF 0271 USE '^COMSRT8' !! 100 ^COMSRT8 0271 9000 !========= MESSAGE WRITING ROUTINE ========= !! 200 ^COMSRT8 0271 LM = LEN(MESS$) !! 300 ^COMSRT8 0278 PM = 36 - (LM/2) !! 400 ^COMSRT8 028A PRINT (0, 91) !! 500 ^COMSRT8 028F IF BLIND$ NE 'B' PRINT (0, 90) !! 600 ^COMSRT8 029C IF BLIND$ EQ 'B' PRINT (0, 96) !! 700 ^COMSRT8 02A9 INPUT (0) AN$ !! 800 ^COMSRT8 02B1 PRINT (0, 91) & BLIND$ = '' !! 900 ^COMSRT8 02BC RETURN !! 1000 ^COMSRT8 02BD 9050 PRINT (0, 92) ! Ring Bell @ 0,23 !! 1100 ^COMSRT8 02C2 GOTO 9000 !! 1200 ^COMSRT8 02C5 9060 BLIND$ = 'B' !! 1300 ^COMSRT8 02CB GOTO 9000 !! 110000 %WW-CCSF 02CE 9950 CLOSE & OPEN (0) TERM$ !! 110010 %WW-CCSF 02D4 PRINT(0,3000) !! 110100 %WW-CCSF 02D9 RUN 'Z' !! --~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-- 110200 %WW-CCSF 02DD END !! WARNING: Format 95 Defined At 05B1, Has no Reference WARNING: Format 130 Defined At 0604, Has no Reference WARNING: Format CKPRNTR Defined At 0610, Has no Reference WARNING: Format CKLJCOND Defined At 0622, Has no Reference WARNING: Format FRMLFFMT Defined At 0632, Has no Reference WARNING: Format CURSPOSREM Defined At 0608, Has no Reference WARNING: Format CURSPOSRES Defined At 060C, Has no Reference WARNING: Format CKLJDEFFONT Defined At 062C, Has no Reference WARNING: Format CLEARFOREGROUND Defined At 0641, Has no Reference WARNING: Statement 9050 Defined At 02BD, Has no Reference WARNING: Statement 9060 Defined At 02C5, Has no Reference Program Memory Requirements Common 00000009 Local 00003431 Constants 00000410 Formats 00001706 -------- Total 00005556 Code 00000734 Compilation Memory Usage Available 00065057 Symbol Table 00007446 TOTAL ERRORS 00000 Compile Completed