COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 1
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
Compiling %SHMYOPA on CES to WWSHOPA on CES 03/14/12 10:38:28 AM
10 %SHMYOPA 00000000 !S %SHMYOPA,CES
15 %SHMYOPA 00000000 !O WWSHOPA,CES
20 %SHMYOPA 00000000 !L LPH,E
25 %SHMYOPA 00000000 !R CED
30 %SHMYOPA 00000000 !
40 %SHMYOPA 00000000 ! JAB 01/27/2012 - Copied from %CE-OPA for Change from ODBC to MySQL
50 %SHMYOPA 00000000 ! TLF 02/24/2009 WINDOWS, PDF DOC-IMAGING FORM. CURRENT VERSION.
165 %SHMYOPA 00000000 !
3000 %SHMYOPA 00000000 LENGTH 1 & COMMON RUNCD$
4800 %SHMYOPA 00000000 LENGTH 1 & LOCAL OPT$
4850 %SHMYOPA 00000000 !
4900 %SHMYOPA 00000000 0000 FORMAT ''
5000 %SHMYOPA 00000006 USE '^COO1A' !0060 - OPN ORD
100 ^COO1A 00000006 ! !
200 ^COO1A 00000006 !===========================> ^COO1A <=============================!
300 ^COO1A 00000006 ! !
400 ^COO1A 00000006 ! File Format & Length Declaratives !
500 ^COO1A 00000006 ! !
600 ^COO1A 00000006 ! File Name: WWO1A OPEN ORDER HEADER !
700 ^COO1A 00000006 ! !
800 ^COO1A 00000006 ! Type: K Record: 999 Key: 9 Image: N !
900 ^COO1A 00000006 ! !
1000 ^COO1A 00000006 ! #FILES File Name: ORDER.OPEN.H Date: 01/06/06 !
1100 ^COO1A 00000006 ! !
1200 ^COO1A 00000006 !--------------------------------------------------------------------!
1300 ^COO1A 00000006 ! !
1400 ^COO1A 00000006 ! !
1500 ^COO1A 00000006 LENGTH 2.0 & LOCAL OHNDPCT !
1600 ^COO1A 00000006 LENGTH 3.0 & LOCAL OPKGS,OPCT,OWGHT !
1700 ^COO1A 00000006 LENGTH 4.2 & LOCAL ODISCPCT,OPCKCHG,OTAXPCT !
1800 ^COO1A 00000006 LENGTH 6.2 & LOCAL OFRT,OHANDAMT !
1900 ^COO1A 00000006 LENGTH 6.4 & LOCAL OTAXPCL !
2000 ^COO1A 00000006 LENGTH 7.2 & LOCAL ODEPOSIT,ODISCAMT,OMISC1 !
2100 ^COO1A 00000006 LENGTH 7.2 & LOCAL OUNITS,OTAXAMT !
2200 ^COO1A 00000006 LENGTH 8.2 & LOCAL OCOMMRME,OCOMMPD1,OCOMMPD2 !
2300 ^COO1A 00000006 LENGTH 8.2 & LOCAL OCOMPAID !
2400 ^COO1A 00000006 LENGTH 9.2 & LOCAL OCOST,OCRPAYREQ,ODEPOSIL !
2500 ^COO1A 00000006 LENGTH 9.2 & LOCAL ODISCAML,OHOLDAMT,OGROSS !
2600 ^COO1A 00000006 LENGTH 9.2 & LOCAL OMISC,ONET,OTXBASIS !
2700 ^COO1A 00000006 LENGTH 1 & LOCAL OCFAFLG$,OCFASTK$,OCLRCD1$ !
2800 ^COO1A 00000006 LENGTH 1 & LOCAL OCLRCD2$,OCAFLGH$,OCOMMRES$ !
2900 ^COO1A 00000006 LENGTH 1 & LOCAL OCRDSC$,OCRLIM$,OCRMSC$ !
3000 ^COO1A 00000006 LENGTH 1 & LOCAL OCRPST$,OCRPAY$,OCRSLE$ !
3100 ^COO1A 00000006 LENGTH 1 & LOCAL OCUTYRD$,OCUTARVD$,ODSCFLG$ !
3200 ^COO1A 00000006 LENGTH 1 & LOCAL OEMLFI$,OEMLOPA$,OEMLSA$ !
3300 ^COO1A 00000006 LENGTH 1 & LOCAL OFRFLAG$,OFOFLG$,OFRTCODE$ !
3400 ^COO1A 00000006 LENGTH 1 & LOCAL OFURNOP$,OFURNOPA$ !
3500 ^COO1A 00000006 LENGTH 1 & LOCAL OIBMFLAG$,OLATE$,OMILLSTK$ !
3600 ^COO1A 00000006 LENGTH 1 & LOCAL ONEWORD$,OORIGCFA$,OPUFLG$ !
3700 ^COO1A 00000006 LENGTH 1 & LOCAL OPROFLG$,OREPRNT$,ORESFLG$ !
3800 ^COO1A 00000006 LENGTH 1 & LOCAL ORETURN$,ORUSHOMO$,ORUSHOP$ !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 2
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
3900 ^COO1A 00000006 LENGTH 1 & LOCAL OSAMPFLG$,OPKGSAMP$ !
4000 ^COO1A 00000006 LENGTH 1 & LOCAL OSTATUS$,OXMLFLAG$ !
4100 ^COO1A 00000006 LENGTH 2 & LOCAL OBTCNTRY$,OCANCEL$ !
4200 ^COO1A 00000006 LENGTH 2 & LOCAL OINNOFLG$,OSLSTYP$,OSTATE$ !
4300 ^COO1A 00000006 LENGTH 2 & LOCAL OSTCNTRY$,OTERMCDE$,CUPS$ !
4400 ^COO1A 00000006 LENGTH 3 & LOCAL OBOFLAG$,OEMLSEQ1$ !
4500 ^COO1A 00000006 LENGTH 3 & LOCAL OEMLSEQ2$,OEMLSEQ3$,OHOLD1$ !
4600 ^COO1A 00000006 LENGTH 3 & LOCAL OHOLD2$,OLRFROM$,OMSGCD1$ !
4700 ^COO1A 00000006 LENGTH 3 & LOCAL OMSGCD2$,OINIT$,OINITL$ !
4800 ^COO1A 00000006 LENGTH 3 & LOCAL OINITR$,OEMLREP$,OSNBR1$ !
4900 ^COO1A 00000006 LENGTH 3 & LOCAL OSNBR2$ !
5000 ^COO1A 00000006 LENGTH 4 & LOCAL OEOFLAG$,OPTDATE$ !
5100 ^COO1A 00000006 LENGTH 5 & LOCAL OCYVEND$ !
5200 ^COO1A 00000006 LENGTH 6 & LOCAL OBILLPER$,OCOMMPER$,CNBR$ !
5300 ^COO1A 00000006 LENGTH 6 & LOCAL OAPCP1$,OAPCP2$,OFAPCR$ !
5400 ^COO1A 00000006 LENGTH 6 & LOCAL OFINNBR$,OOMORFLG$,OSPNBR$ !
5500 ^COO1A 00000006 LENGTH 8 & LOCAL OOCSRTDT$,OOCSRTTM$ !
5600 ^COO1A 00000006 LENGTH 9 & LOCAL INVCNBR$,ORNBR$ !
5700 ^COO1A 00000006 LENGTH 10 & LOCAL OBORELDT$,OCOMPDTE$,ODEPDT$ !
5800 ^COO1A 00000006 LENGTH 10 & LOCAL OFREE10$,OINVDTE$,OLRELDT$ !
5900 ^COO1A 00000006 LENGTH 10 & LOCAL ORDATE$,ORESCDTE$,OSHIPDTE$ !
6000 ^COO1A 00000006 LENGTH 10 & LOCAL OZIP$ !
6100 ^COO1A 00000006 LENGTH 15 & LOCAL OCORNBR$,OFOB$,OFRTTRM$ !
6200 ^COO1A 00000006 LENGTH 15 & LOCAL OGUARBY$,ORORNBR$,OSHIPVIA$ !
6300 ^COO1A 00000006 LENGTH 18 & LOCAL OCLIENT$ !
6400 ^COO1A 00000006 LENGTH 21 & LOCAL OCITY$ !
6500 ^COO1A 00000006 LENGTH 35 & LOCAL OBATTN$,OATTN$,OADR1$ !
6600 ^COO1A 00000006 LENGTH 35 & LOCAL OADR2$,ONAME$,OSM1$,OSM2$ !
6700 ^COO1A 00000006 LENGTH 79 & LOCAL OFIL0060$ !
6800 ^COO1A 00000006 ! !
6900 ^COO1A 00000006 ! !
7000 ^COO1A 00000006 ! Description Type Len Pos !
7100 ^COO1A 00000006 ! ------------------------------------------!
7200 ^COO1A 00000006 0060 FORMAT _ !
7300 ^COO1A 00000006 ORNBR$;_ ! ORDER # S 9 0 !
7400 ^COO1A 0000000B CNBR$;_ ! CUST # S 6 9 !
7500 ^COO1A 00000010 OBATTN$;_ ! BILL TO ATTENTION S 35 15 !
7600 ^COO1A 00000015 ONAME$;_ ! SHIP TO NAME S 35 50 !
7700 ^COO1A 0000001A OADR1$;_ ! SHIP TO ADDRESS 1 S 35 85 !
7800 ^COO1A 0000001F OADR2$;_ ! SHIP TO ADDRESS 2 S 35 120 !
7900 ^COO1A 00000024 OCITY$;_ ! SHIP TO CITY S 21 155 !
8000 ^COO1A 00000029 OSTATE$;_ ! SHIP ST S 2 176 !
8100 ^COO1A 0000002E OZIP$;_ ! SHIP TO ZIP CODE S 10 178 !
8200 ^COO1A 00000033 OATTN$;_ ! SHIP ATTENTION S 35 188 !
8300 ^COO1A 00000038 OSM1$;_ ! SIDE MARK S 35 223 !
8400 ^COO1A 0000003D OSM2$;_ ! SIDE MARK S 35 258 !
8500 ^COO1A 00000042 OCFAFLG$;_ ! CFA FLG S 1 293 !
8600 ^COO1A 00000047 ORESFLG$;_ ! RES FLG S 1 294 !
8700 ^COO1A 0000004C OSHIPVIA$;_ ! SHIP VIA S 15 295 !
8800 ^COO1A 00000051 OCORNBR$;_ ! CUSTOMER ORDER NUMBER S 15 310 !
8900 ^COO1A 00000056 ORORNBR$;_ ! REP ORDER NUMBER S 15 325 !
9000 ^COO1A 0000005B OHOLD1$;_ ! HLD FLG1 S 3 340 !
9100 ^COO1A 00000060 OHOLDAMT;_ ! HOLD FOR AMOUNT N 9.2 343 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 3
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
9200 ^COO1A 00000065 OHOLD2$;_ ! HLD FLG2 S 3 354 !
9300 ^COO1A 0000006A OFRTTRM$;_ ! FREIGHT TERMS S 15 357 !
9400 ^COO1A 0000006F OFREE10$;_ ! FREE 10 S 10 372 !
9500 ^COO1A 00000074 OCLIENT$;_ ! CLIENT S 18 382 !
9600 ^COO1A 00000079 ODEPOSIT;_ ! DEPOSIT N 7.2 400 !
9700 ^COO1A 0000007E ODISCPCT;_ ! DISC PCT N 4.2 409 !
9800 ^COO1A 00000083 ODSCFLG$;_ ! D F S 1 415 !
9900 ^COO1A 00000088 OPROFLG$;_ ! PRO FLG S 1 416 !
10000 ^COO1A 0000008D OTERMCDE$;_ ! TRMS CDE S 2 417 !
10100 ^COO1A 00000092 OGUARBY$;_ ! GUARANTEED BY S 15 419 !
10200 ^COO1A 00000097 ORDATE$;_ ! ORDER DATE S 10 434 !
10300 ^COO1A 0000009C OSPNBR$;_ ! SPECIFIER NUMBER S 6 444 !
10400 ^COO1A 000000A1 OFINNBR$;_ ! FINISHER S 6 450 !
10500 ^COO1A 000000A6 OBORELDT$;_ ! BACK ORDER REL DATE S 10 456 !
10600 ^COO1A 000000AB OLRELDT$;_ ! LAST RELEASE DATE S 10 466 !
10700 ^COO1A 000000B0 OLRFROM$;_ ! LAST REL FROM S 3 476 !
10800 ^COO1A 000000B5 OINIT$;_ ! OPERATOR ENTER ORDR S 3 479 !
10900 ^COO1A 000000BA OINITR$;_ ! OPER LAST RELEASE S 3 482 !
11000 ^COO1A 000000BF OINITL$;_ ! OPER LAST MAINTAIN S 3 485 !
11100 ^COO1A 000000C4 OBOFLAG$;_ ! BACK ORDER FLAG S 3 488 !
11200 ^COO1A 000000C9 OGROSS;_ ! MATERIAL AMOUNT N 9.2 491 !
11300 ^COO1A 000000CE ODISCAMT;_ ! DISCOUNT AMOUNT N 7.2 502 !
11400 ^COO1A 000000D3 OMISC;_ ! MISCEL- LANEOUS N 9.2 511 !
11500 ^COO1A 000000D8 OMISC1;_ ! MISCEL- LANEOUS1 N 7.2 522 !
11600 ^COO1A 000000DD OPKGS;_ ! # OF PCK N 3.0 531 !
11700 ^COO1A 000000E2 OWGHT;_ ! WGHT N 3.0 536 !
11800 ^COO1A 000000E7 OFRT;_ ! FREIGHT N 6.2 541 !
11900 ^COO1A 000000EC OTAXPCT;_ ! TAX PCT N 4.2 549 !
12000 ^COO1A 000000F1 OTAXAMT;_ ! TAX AMOUNT N 7.2 555 !
12100 ^COO1A 000000F6 ONET;_ ! NET N 9.2 564 !
12200 ^COO1A 000000FB INVCNBR$;_ ! INVOICE NUMBER S 9 575 !
12300 ^COO1A 00000100 OINVDTE$;_ ! INVOICE DATE S 10 584 !
12400 ^COO1A 00000105 OSHIPDTE$;_ ! SHIP DATE S 10 594 !
12500 ^COO1A 0000010A CUPS$;_ ! ZONE S 2 604 !
12600 ^COO1A 0000010F OCOST;_ ! COST OF ORDER N 9.2 606 !
12700 ^COO1A 00000114 OUNITS;_ ! ORDER UNITS N 7.2 617 !
12800 ^COO1A 00000119 OPCKCHG;_ ! PACK CHG N 4.2 626 !
12900 ^COO1A 0000011E OHNDPCT;_ ! HAND PCT N 2.0 632 !
13000 ^COO1A 00000123 OHANDAMT;_ ! HANDLING AMOUNT N 6.2 636 !
13100 ^COO1A 00000128 OSNBR1$;_ ! SALES REP 1 S 3 644 !
13200 ^COO1A 0000012D OSNBR2$;_ ! SALES REP 2 S 3 647 !
13300 ^COO1A 00000132 OPCT;_ ! PCT OF SALE TO REP1 N 3.0 650 !
13400 ^COO1A 00000137 OCRPAYREQ;_ ! PAY FOR CREDIT REAL N 9.2 655 !
13500 ^COO1A 0000013C OCRSLE$;_ ! CREDIT SALE S 1 666 !
13600 ^COO1A 00000141 OCRPST$;_ ! CREDIT PAST S 1 667 !
13700 ^COO1A 00000146 OCRLIM$;_ ! CREDIT LIMIT S 1 668 !
13800 ^COO1A 0000014B OCRDSC$;_ ! CREDIT DISCOUNT S 1 669 !
13900 ^COO1A 00000150 OCRPAY$;_ ! CREDIT PAYMENT S 1 670 !
14000 ^COO1A 00000155 OCRMSC$;_ ! CREDIT MISC S 1 671 !
14100 ^COO1A 0000015A OSTATUS$;_ ! DELETE CONFIRMED S 1 672 !
14200 ^COO1A 0000015F ONEWORD$;_ ! NEW ORDER FLAG S 1 673 !
14300 ^COO1A 00000164 OREPRNT$;_ ! REPRINT FLAG S 1 674 !
14400 ^COO1A 00000169 OLATE$;_ ! LATE CODE S 1 675 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 4
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
14500 ^COO1A 0000016E OFRFLAG$;_ ! FAX RPT FLG S 1 676 !
14600 ^COO1A 00000173 OMILLSTK$;_ ! MILL STK FLG S 1 677 !
14700 ^COO1A 00000178 OCUTYRD$;_ ! CUT YARDAGE ORDER S 1 678 !
14800 ^COO1A 0000017D OPUFLG$;_ ! PER USE FLG S 1 679 !
14900 ^COO1A 00000182 OFOFLG$;_ ! 1ST ORD FLG S 1 680 !
15000 ^COO1A 00000187 ORETURN$;_ ! RETURN CODE S 1 681 !
15100 ^COO1A 0000018C OSAMPFLG$;_ ! SAMPLE FLAG S 1 682 !
15200 ^COO1A 00000191 OCANCEL$;_ ! ORDER CANCEL REASON S 2 683 !
15300 ^COO1A 00000196 OBILLPER$;_ ! BILL PER. S 6 685 !
15400 ^COO1A 0000019B OCOMMPER$;_ ! COMM PERIOD S 6 691 !
15500 ^COO1A 000001A0 OPTDATE$;_ ! PICK TICK DATE S 4 697 !
15600 ^COO1A 000001A5 OEOFLAG$;_ ! ELIG ORD FLAG S 4 701 !
15700 ^COO1A 000001AA ORESCDTE$;_ ! RESERVE CANCEL DATE S 10 705 !
15800 ^COO1A 000001AF OFOB$;_ ! FOB S 15 715 !
15900 ^COO1A 000001B4 OCAFLGH$;_ ! COMM ADJ FLG HDR S 1 730 !
16000 ^COO1A 000001B9 OPKGSAMP$;_ ! SAMPLE PKG FLG S 1 731 !
16100 ^COO1A 000001BE OTXBASIS;_ ! TAXABLE BASIS N 9.2 732 !
16200 ^COO1A 000001C3 OORIGCFA$;_ ! ORIGINAL CFA FLAG S 1 743 !
16300 ^COO1A 000001C8 OSLSTYP$;_ ! SALES TYPE S 2 744 !
16400 ^COO1A 000001CD ODEPDT$;_ ! DEPOSIT DATE S 10 746 !
16500 ^COO1A 000001D2 OCYVEND$;_ ! CUT YARDAGE VENDOR # S 5 756 !
16600 ^COO1A 000001D7 OCUTARVD$;_ ! CUTTING ARRIVED FLAG S 1 761 !
16700 ^COO1A 000001DC OCFASTK$;_ ! CFA FROM STOCK S 1 762 !
16800 ^COO1A 000001E1 OOCSRTDT$;_ ! OC SORT DATE S 8 763 !
16900 ^COO1A 000001E6 OOCSRTTM$;_ ! OC SORT TIME S 8 771 !
17000 ^COO1A 000001EB OOMORFLG$;_ ! OMOR FLAG S 6 779 !
17100 ^COO1A 000001F0 OCOMPDTE$;_ ! COMM PAID DATE S 10 785 !
17200 ^COO1A 000001F5 OCOMPAID;_ ! COMM PAID AMT N 8.2 795 !
17300 ^COO1A 000001FA OFAPCR$;_ ! FAP COMM RECORDED S 6 805 !
17400 ^COO1A 000001FF OAPCP1$;_ ! FAP COMM PAID 1 S 6 811 !
17500 ^COO1A 00000204 OCOMMPD1;_ ! AMT COMM PAID 1 N 8.2 817 !
17600 ^COO1A 00000209 OAPCP2$;_ ! FAP COMM PAID 2 S 6 827 !
17700 ^COO1A 0000020E OCOMMPD2;_ ! AMT COMM PAID 2 N 8.2 833 !
17800 ^COO1A 00000213 OCOMMRME;_ ! AMT COMM MONTH END N 8.2 843 !
17900 ^COO1A 00000218 OFRTCODE$;_ ! FREIGHT CODE S 1 853 !
18000 ^COO1A 0000021D OFURNOP$;_ ! FURN OP FLAG S 1 854 !
18100 ^COO1A 00000222 OXMLFLAG$;_ ! XML FLAG S 1 855 !
18200 ^COO1A 00000227 OMSGCD1$;_ ! MSG CD 1 S 3 856 !
18300 ^COO1A 0000022C OMSGCD2$;_ ! MSG CD 2 S 3 859 !
18400 ^COO1A 00000231 OCLRCD1$;_ ! CLEAR CD 1 S 1 862 !
18500 ^COO1A 00000236 OCLRCD2$;_ ! CLEAR CD 2 S 1 863 !
18600 ^COO1A 0000023B OFURNOPA$;_ ! FURN OPA FLAG S 1 864 !
18700 ^COO1A 00000240 OIBMFLAG$;_ ! INVOICED BY MILL FLAG S 1 865 !
18800 ^COO1A 00000245 OBTCNTRY$;_ ! BILL-TO COUNTRY CD S 2 866 !
18900 ^COO1A 0000024A OSTCNTRY$;_ ! SHIP-TO COUNTRY CD S 2 868 !
19000 ^COO1A 0000024F OCOMMRES$;_ ! COMMERCIAL/RESIDENTIAL S 1 870 !
19100 ^COO1A 00000254 ORUSHOMO$;_ ! RUSH ORDER OMOX FLAG S 1 871 !
19200 ^COO1A 00000259 ORUSHOP$;_ ! RUSH ORDER OP FLAG S 1 872 !
19300 ^COO1A 0000025E OEMLSEQ1$;_ ! EMAIL SEQ # 1 S 3 873 !
19400 ^COO1A 00000263 OEMLSEQ2$;_ ! EMAIL SEQ # 2 S 3 876 !
19500 ^COO1A 00000268 OEMLSEQ3$;_ ! EMAIL SEQ # 3 S 3 879 !
19600 ^COO1A 0000026D OEMLOPA$;_ ! EMAIL OPA FLAG S 1 882 !
19700 ^COO1A 00000272 OEMLSA$;_ ! EMAIL SHIP ACK FLAG S 1 883 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 5
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
19800 ^COO1A 00000277 OEMLFI$;_ ! EMAIL FINAL INVC FLAG S 1 884 !
19900 ^COO1A 0000027C OINNOFLG$;_ ! INNOVATIONS ORDER FLAG S 2 885 !
20000 ^COO1A 00000281 OEMLREP$;_ ! REP EMAIL SEQ # S 3 887 !
20100 ^COO1A 00000286 ODEPOSIL;_ ! DEPOSIT AMT (LONG) N 9.2 890 !
20200 ^COO1A 0000028B ODISCAML;_ ! DISCOUNT AMT (LONG) N 9.2 901 !
20300 ^COO1A 00000290 OTAXPCL;_ ! TAX PCT (LONG) N 6.4 912 !
20400 ^COO1A 00000295 OFIL0060$ ! FILLER 0060 S 79 920 !
20500 ^COO1A 0000029B ! !
20600 ^COO1A 0000029B !====================================================================!
5200 %SHMYOPA 0000029B USE '^COO1' !0065 - OPEN OR
100 ^COO1 0000029B ! !
200 ^COO1 0000029B !===========================> ^COO1 <==============================!
300 ^COO1 0000029B ! !
400 ^COO1 0000029B ! File Format & Length Declaratives !
500 ^COO1 0000029B ! !
600 ^COO1 0000029B ! File Name: WWO1 OPEN ORDER DETAIL (LINE ITEMS !
700 ^COO1 0000029B ! !
800 ^COO1 0000029B ! Type: K Record: 512 Key: 12 Image: N !
900 ^COO1 0000029B ! !
1000 ^COO1 0000029B ! #FILES File Name: ORDER.OPEN.D Date: 05/14/08 !
1100 ^COO1 0000029B ! !
1200 ^COO1 0000029B !--------------------------------------------------------------------!
1300 ^COO1 0000029B ! !
1400 ^COO1 0000029B ! !
1500 ^COO1 0000029B LENGTH 3.0 & LOCAL OLEADTM !
1600 ^COO1 0000029B LENGTH 4.2 & LOCAL OCOMPCT1,OCOMPCT2,OLDSCPCT !
1700 ^COO1 0000029B LENGTH 6.2 & LOCAL OORIGQTY,OQTYBOD,OQTYBIL !
1800 ^COO1 0000029B LENGTH 6.2 & LOCAL OQTYORD,OQTYREL,OQTYSHP !
1900 ^COO1 0000029B LENGTH 7.2 & LOCAL ODFCST,OLDSCAMT,ONDPRICE !
2000 ^COO1 0000029B LENGTH 7.2 & LOCAL OPRICE,OICOST !
2100 ^COO1 0000029B LENGTH 9.2 & LOCAL OEXT !
2200 ^COO1 0000029B LENGTH 1 & LOCAL OCAFLGD$,OCSTOVRD$ !
2300 ^COO1 0000029B LENGTH 1 & LOCAL O1CUTYRD$,OISFLG$,OMANBO$ !
2400 ^COO1 0000029B LENGTH 1 & LOCAL ORCFLAG$,OSPLITLN$ !
2500 ^COO1 0000029B LENGTH 2 & LOCAL OACTCD1$,OACTCD2$,OACTCD3$ !
2600 ^COO1 0000029B LENGTH 2 & LOCAL OPLO1H$,ORETCD$ !
2700 ^COO1 0000029B LENGTH 3 & LOCAL OLINE$,OQLINE$ !
2800 ^COO1 0000029B LENGTH 7 & LOCAL OPATTERN$ !
2900 ^COO1 0000029B LENGTH 9 & LOCAL OQORNBR$,ORNBR$ !
2900 ^COO1 *****29B Variable 'ORNBR$ ' has been previously declared
3000 ^COO1 0000029B LENGTH 10 & LOCAL OACTDT1$,OACTDT2$,OACTDT3$ !
3100 ^COO1 0000029B LENGTH 10 & LOCAL OMSHPDTE$,OOSHPDTE$ !
3200 ^COO1 0000029B LENGTH 14 & LOCAL INBR$ !
3300 ^COO1 0000029B LENGTH 50 & LOCAL OTAG$ !
3400 ^COO1 0000029B LENGTH 223 & LOCAL O1FILLER$ !
3500 ^COO1 0000029B ! !
3600 ^COO1 0000029B ! !
3700 ^COO1 0000029B ! Description Type Len Pos !
3800 ^COO1 0000029B ! ------------------------------------------!
3900 ^COO1 0000029B 0065 FORMAT _ !
4000 ^COO1 0000029B ORNBR$;_ ! ORDER # S 9 0 !
4100 ^COO1 000002A0 OLINE$;_ ! LIN NUM S 3 9 !
4200 ^COO1 000002A5 INBR$;_ ! ITEM NUMBER S 14 12 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 6
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
4300 ^COO1 000002AA OTAG$;_ ! TAG COMMENT S 50 26 !
4400 ^COO1 000002AF OQTYORD;_ ! QTY ORDERED N 6.2 76 !
4500 ^COO1 000002B4 OQTYSHP;_ ! QTY SHPD N 6.2 84 !
4600 ^COO1 000002B9 OQTYBIL;_ ! QTY BILLED N 6.2 92 !
4700 ^COO1 000002BE OPRICE;_ ! PRICE N 7.2 100 !
4800 ^COO1 000002C3 OICOST;_ ! UNIT COST N 7.2 109 !
4900 ^COO1 000002C8 OEXT;_ ! EXTENSION N 9.2 118 !
5000 ^COO1 000002CD ORETCD$;_ ! RET CDE S 2 129 !
5100 ^COO1 000002D2 OCOMPCT1;_ ! COMM PCT REP 1 N 4.2 131 !
5200 ^COO1 000002D7 OCOMPCT2;_ ! COMM PCT REP 2 N 4.2 137 !
5300 ^COO1 000002DC OQTYBOD;_ ! QTY BACK ORDRD N 6.2 143 !
5400 ^COO1 000002E1 OQORNBR$;_ ! P.O.NUMBER S 9 151 !
5500 ^COO1 000002E6 OQLINE$;_ ! PO LINE S 3 160 !
5600 ^COO1 000002EB OISFLG$;_ ! ITEM SERV FLAG S 1 163 !
5700 ^COO1 000002F0 ORCFLAG$;_ ! RETURN CREDIT FLAG S 1 164 !
5800 ^COO1 000002F5 OPLO1H$;_ ! PROD LINE S 2 165 !
5900 ^COO1 000002FA OQTYREL;_ ! QTY RELEASED N 6.2 167 !
6000 ^COO1 000002FF OPATTERN$;_ ! PATTERN NUMBER S 7 175 !
6100 ^COO1 00000304 OCAFLGD$;_ ! COMM ADJ FLG DET S 1 182 !
6200 ^COO1 00000309 OMANBO$;_ ! MANUAL B/O S 1 183 !
6300 ^COO1 0000030E OMSHPDTE$;_ ! MILL SHIP DATE S 10 184 !
6400 ^COO1 00000313 OOSHPDTE$;_ ! OUR SHIP DATE S 10 194 !
6500 ^COO1 00000318 ODFCST;_ ! DUTY/FRT COSTS N 7.2 204 !
6600 ^COO1 0000031D O1CUTYRD$;_ ! CUT YARDAGE O1 S 1 213 !
6700 ^COO1 00000322 OSPLITLN$;_ ! SPLIT LINE FLAG S 1 214 !
6800 ^COO1 00000327 OACTCD1$;_ ! ACTION CODE 1 S 2 215 !
6900 ^COO1 0000032C OACTCD2$;_ ! ACTION CODE 2 S 2 217 !
7000 ^COO1 00000331 OACTCD3$;_ ! ACTION CODE 3 S 2 219 !
7100 ^COO1 00000336 OACTDT1$;_ ! ACTION DATE 1 S 10 221 !
7200 ^COO1 0000033B OACTDT2$;_ ! ACTION DATE 2 S 10 231 !
7300 ^COO1 00000340 OACTDT3$;_ ! ACTION DATE 3 S 10 241 !
7400 ^COO1 00000345 OCSTOVRD$;_ ! COST OVERRIDE S 1 251 !
7500 ^COO1 0000034A OORIGQTY;_ ! ORIGINAL ORD QTY N 6.2 252 !
7600 ^COO1 0000034F OLEADTM;_ ! LEAD TIME N 3.0 260 !
7700 ^COO1 00000354 OLDSCPCT;_ ! LINE DISC % N 4.2 265 !
7800 ^COO1 00000359 OLDSCAMT;_ ! LINE DISC AMT N 7.2 271 !
7900 ^COO1 0000035E ONDPRICE;_ ! NON-DISC PRICE N 7.2 280 !
8000 ^COO1 00000363 O1FILLER$ ! FILLER S 223 289 !
8100 ^COO1 00000369 ! !
8200 ^COO1 00000369 !====================================================================!
5400 %SHMYOPA 00000369 USE '^COI1P'
100 ^COI1P 00000369 ! !
200 ^COI1P 00000369 !===========================> ^COI1P <=============================!
300 ^COI1P 00000369 ! !
400 ^COI1P 00000369 ! File Format & Length Declaratives !
500 ^COI1P 00000369 ! !
600 ^COI1P 00000369 ! File Name: WWI1P PATTERN FILE !
700 ^COI1P 00000369 ! !
800 ^COI1P 00000369 ! Type: K Record: 999 Key: 7 Image: N !
900 ^COI1P 00000369 ! !
1000 ^COI1P 00000369 ! #FILES File Name: PATTERN.MASTER Date: 07/05/11 !
1100 ^COI1P 00000369 ! !
1200 ^COI1P 00000369 !--------------------------------------------------------------------!
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 7
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1300 ^COI1P 00000369 ! !
1400 ^COI1P 00000369 ! !
1500 ^COI1P 00000369 LENGTH 2.0 & LOCAL IACTWTOZ,IPNMEMOS,IWGHTOZ !
1600 ^COI1P 00000369 LENGTH 3.0 & LOCAL IBSIZE,IPLEAD !
1700 ^COI1P 00000369 LENGTH 4.0 & LOCAL IACTWTLB,ICBP2,ICBP3 !
1800 ^COI1P 00000369 LENGTH 4.0 & LOCAL IMMINQTY,IPBP2,IPBP3 !
1900 ^COI1P 00000369 LENGTH 4.0 & LOCAL IWGHTLB !
2000 ^COI1P 00000369 LENGTH 4.2 & LOCAL IDUTYPCT,IROYRTE !
2100 ^COI1P 00000369 LENGTH 5.2 & LOCAL IESTFRT,IMPRICE !
2200 ^COI1P 00000369 LENGTH 6.2 & LOCAL IPMSCCST !
2300 ^COI1P 00000369 LENGTH 7.2 & LOCAL IPRICE1,IPRICE2,IPRICE3 !
2400 ^COI1P 00000369 LENGTH 7.4 & LOCAL IINVFACT,IPOFACT !
2500 ^COI1P 00000369 LENGTH 9.2 & LOCAL IMCOST1,IMCOST2,IMCOST3 !
2600 ^COI1P 00000369 LENGTH 9.2 & LOCAL ISAMPCST !
2700 ^COI1P 00000369 LENGTH 1 & LOCAL IPACTCL$,IPACTCWD$,IPACTFR$ !
2800 ^COI1P 00000369 LENGTH 1 & LOCAL IPACTGU$,IPACTHU$,IPACTPP$ !
2900 ^COI1P 00000369 LENGTH 1 & LOCAL IBCP$,IFRTCODE$,IISFLG$ !
3000 ^COI1P 00000369 LENGTH 1 & LOCAL IROYMETH$,ISMPCDE$,ISTKCFA$ !
3100 ^COI1P 00000369 LENGTH 2 & LOCAL IPCATCD$,IPCONCD$,IPDESCD$ !
3200 ^COI1P 00000369 LENGTH 2 & LOCAL IDESICDE$,IPMISCD$,IPL$ !
3300 ^COI1P 00000369 LENGTH 4 & LOCAL IPPRDFLG$ !
3400 ^COI1P 00000369 LENGTH 5 & LOCAL IFUNIT$,IMUNIT$,IUNIT$ !
3500 ^COI1P 00000369 LENGTH 5 & LOCAL IVNBR$ !
3600 ^COI1P 00000369 LENGTH 6 & LOCAL IPACCTNG$,ICURCDE$ !
3700 ^COI1P 00000369 LENGTH 7 & LOCAL IPATTERN$ !
3800 ^COI1P 00000369 LENGTH 10 & LOCAL IPCEDTE$,IPDISDT$,IDTEINT$ !
3900 ^COI1P 00000369 LENGTH 10 & LOCAL IPEDTE$,IREXPDTE$,IWIDTH$ !
4000 ^COI1P 00000369 LENGTH 14 & LOCAL IPBOOKID$,IGRINBR$ !
4100 ^COI1P 00000369 LENGTH 15 & LOCAL ICOUNTRY$,IFINISH$ !
4200 ^COI1P 00000369 LENGTH 20 & LOCAL IREPEAT$ !
4300 ^COI1P 00000369 LENGTH 30 & LOCAL IPATTNME$ !
4400 ^COI1P 00000369 LENGTH 40 & LOCAL ICONTNT1$,ICONTNT2$ !
4500 ^COI1P 00000369 LENGTH 40 & LOCAL ILABDSC1$,ILABDSC2$,ITEST1$ !
4600 ^COI1P 00000369 LENGTH 40 & LOCAL ITEST2$ !
4700 ^COI1P 00000369 LENGTH 50 & LOCAL ICOMNT1$,ICOMNT2$,ICOMNT3$ !
4800 ^COI1P 00000369 LENGTH 178 & LOCAL IFIL0215$ !
4900 ^COI1P 00000369 ! !
5000 ^COI1P 00000369 ! !
5100 ^COI1P 00000369 ! Description Type Len Pos !
5200 ^COI1P 00000369 ! ------------------------------------------!
5300 ^COI1P 00000369 0215 FORMAT _ !
5400 ^COI1P 00000369 IPATTERN$;_ ! PATTERN NUMBER S 7 0 !
5500 ^COI1P 0000036E IPATTNME$;_ ! PATTERN NAME S 30 7 !
5600 ^COI1P 00000373 IWIDTH$;_ ! WIDTH S 10 37 !
5700 ^COI1P 00000378 IREPEAT$;_ ! REPEAT S 20 47 !
5800 ^COI1P 0000037D ICONTNT1$;_ ! CONTENT 1 S 40 67 !
5900 ^COI1P 00000382 ICONTNT2$;_ ! CONTENT 2 S 40 107 !
6000 ^COI1P 00000387 IFINISH$;_ ! FINISH S 15 147 !
6100 ^COI1P 0000038C ICOUNTRY$;_ ! COUNTRY OF ORIGIN S 15 162 !
6200 ^COI1P 00000391 IVNBR$;_ ! VENDOR CODE S 5 177 !
6300 ^COI1P 00000396 IPLEAD;_ ! LEAD TIME N 3.0 182 !
6400 ^COI1P 0000039B IWGHTLB;_ ! WEIGHT POUNDS N 4.0 187 !
6500 ^COI1P 000003A0 IWGHTOZ;_ ! WEIGHT OUNCES N 2.0 193 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 8
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
6600 ^COI1P 000003A5 ILABDSC1$;_ ! LABEL DESCRIPTION 1 S 40 197 !
6700 ^COI1P 000003AA ILABDSC2$;_ ! LABEL DESCRIPTION 2 S 40 237 !
6800 ^COI1P 000003AF ITEST1$;_ ! TEST 1 S 40 277 !
6900 ^COI1P 000003B4 ITEST2$;_ ! TEST 2 S 40 317 !
7000 ^COI1P 000003B9 IPL$;_ ! PRODUCT LINE S 2 357 !
7100 ^COI1P 000003BE IDTEINT$;_ ! INTRODUCTION DATE S 10 359 !
7200 ^COI1P 000003C3 ICOMNT1$;_ ! COMMENT 1 S 50 369 !
7300 ^COI1P 000003C8 ICOMNT2$;_ ! COMMENT 2 S 50 419 !
7400 ^COI1P 000003CD ICOMNT3$;_ ! COMMENT 3 S 50 469 !
7500 ^COI1P 000003D2 IUNIT$;_ ! UNIT OF MEASURE S 5 519 !
7600 ^COI1P 000003D7 IPRICE1;_ ! PRICE 1 N 7.2 524 !
7700 ^COI1P 000003DC IPRICE2;_ ! PRICE 2 N 7.2 533 !
7800 ^COI1P 000003E1 IPRICE3;_ ! PRICE 3 N 7.2 542 !
7900 ^COI1P 000003E6 IPEDTE$;_ ! PRICE EFFECTIVE DTE S 10 551 !
8000 ^COI1P 000003EB IPBP2;_ ! PRICE BREAK POINT 2 N 4.0 561 !
8100 ^COI1P 000003F0 IPBP3;_ ! PRICE BREAK POINT 3 N 4.0 567 !
8200 ^COI1P 000003F5 IBSIZE;_ ! STANDARD BOLT SIZE N 3.0 573 !
8300 ^COI1P 000003FA ISMPCDE$;_ ! SAMPLE CODE S 1 578 !
8400 ^COI1P 000003FF IROYRTE;_ ! ROYALTY RATE N 4.2 579 !
8500 ^COI1P 00000404 IREXPDTE$;_ ! ROY ALTY EXP DATE S 10 585 !
8600 ^COI1P 00000409 IROYMETH$;_ ! ROYALTY METHOD S 1 595 !
8700 ^COI1P 0000040E IMUNIT$;_ ! MILLS UNIT OF MEAS S 5 596 !
8800 ^COI1P 00000413 IPOFACT;_ ! PO FACTOR N 7.4 601 !
8900 ^COI1P 00000418 IMMINQTY;_ ! MILLS MINIMUM ORDER N 4.0 610 !
9000 ^COI1P 0000041D IMCOST1;_ ! MILLS COST 1 N 9.2 616 !
9100 ^COI1P 00000422 IMCOST2;_ ! MILLS COST 2 N 9.2 627 !
9200 ^COI1P 00000427 IMCOST3;_ ! MILLS COST 3 N 9.2 638 !
9300 ^COI1P 0000042C IPCEDTE$;_ ! COST EFFECTIVE DATE S 10 649 !
9400 ^COI1P 00000431 ICBP2;_ ! COST BREAK POINT 2 N 4.0 659 !
9500 ^COI1P 00000436 ICBP3;_ ! COST BREAK POINT 3 N 4.0 665 !
9600 ^COI1P 0000043B IBCP$;_ ! BASE COST POINT S 1 671 !
9700 ^COI1P 00000440 IPDISDT$;_ ! DISCONTINUE DATE S 10 672 !
9800 ^COI1P 00000445 ICURCDE$;_ ! CURRENCY CODE S 6 682 !
9900 ^COI1P 0000044A IMPRICE;_ ! MEMO SAMPLE PRICE N 5.2 688 !
10000 ^COI1P 0000044F IDUTYPCT;_ ! DUTY PERCENT N 4.2 695 !
10100 ^COI1P 00000454 IESTFRT;_ ! ESTIMATED FRT N 5.2 701 !
10200 ^COI1P 00000459 IISFLG$;_ ! SER VICE FLAG S 1 708 !
10300 ^COI1P 0000045E IPMSCCST;_ ! MISC COST N 6.2 709 !
10400 ^COI1P 00000463 IACTWTLB;_ ! ACTUAL WT POUNDS N 4.0 717 !
10500 ^COI1P 00000468 IACTWTOZ;_ ! ACTUAL WT OUNCES N 2.0 723 !
10600 ^COI1P 0000046D IINVFACT;_ ! INV FACTOR N 7.4 727 !
10700 ^COI1P 00000472 IFUNIT$;_ ! FOREIGN UNITS S 5 736 !
10800 ^COI1P 00000477 ISTKCFA$;_ ! STOCK CUTTINGS FLAG S 1 741 !
10900 ^COI1P 0000047C IDESICDE$;_ ! DESIGNER CODE S 2 742 !
11000 ^COI1P 00000481 IPNMEMOS;_ ! NUM MEM SAMP N 2.0 744 !
11100 ^COI1P 00000486 IFRTCODE$;_ ! FREIGHT CODE S 1 748 !
11200 ^COI1P 0000048B ISAMPCST;_ ! SAMPLE COST N 9.2 749 !
11300 ^COI1P 00000490 IPACCTNG$;_ ! ACCOUNTING CODE S 6 760 !
11400 ^COI1P 00000495 IPBOOKID$;_ ! BOOK ID S 14 766 !
11500 ^COI1P 0000049A IPCATCD$;_ ! CATEGORY CODE S 2 780 !
11600 ^COI1P 0000049F IPDESCD$;_ ! DESIGN CODE S 2 782 !
11700 ^COI1P 000004A4 IPCONCD$;_ ! CONTENT CODE S 2 784 !
11800 ^COI1P 000004A9 IPMISCD$;_ ! MISC CODE S 2 786 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 9
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
11900 ^COI1P 000004AE IPPRDFLG$;_ ! PRODUCT FLAG S 4 788 !
12000 ^COI1P 000004B3 IPACTFR$;_ ! ACT CODE FR S 1 792 !
12100 ^COI1P 000004B8 IPACTCWD$;_ ! ACT CODE CWD S 1 793 !
12200 ^COI1P 000004BD IPACTCL$;_ ! ACT CODE CL S 1 794 !
12300 ^COI1P 000004C2 IPACTPP$;_ ! ACT CODE PP S 1 795 !
12400 ^COI1P 000004C7 IPACTGU$;_ ! ACT CODE GU S 1 796 !
12500 ^COI1P 000004CC IPACTHU$;_ ! ACT CODE HU S 1 797 !
12600 ^COI1P 000004D1 IGRINBR$;_ ! GROUND ITEM NO S 14 798 !
12700 ^COI1P 000004D6 IFIL0215$ ! FILLER S 178 812 !
12800 ^COI1P 000004DC ! !
12900 ^COI1P 000004DC !====================================================================!
5405 %SHMYOPA 000004DC USE '^COM1C'
100 ^COM1C 000004DC ! !
200 ^COM1C 000004DC !===========================> ^COM1C <=============================!
300 ^COM1C 000004DC ! !
400 ^COM1C 000004DC ! File Format & Length Declaratives !
500 ^COM1C 000004DC ! !
600 ^COM1C 000004DC ! File Name: WWM1C MISCELANEOUS CODE FILE !
700 ^COM1C 000004DC ! !
800 ^COM1C 000004DC ! Type: K Record: 126 Key: 3 Image: N !
900 ^COM1C 000004DC ! !
1000 ^COM1C 000004DC ! #FILES File Name: MISC.CODE.FILE Date: 05/26/04 !
1100 ^COM1C 000004DC ! !
1200 ^COM1C 000004DC !--------------------------------------------------------------------!
1300 ^COM1C 000004DC ! !
1400 ^COM1C 000004DC ! !
1500 ^COM1C 000004DC LENGTH 2.0 & LOCAL MDENRTR1,MDENRTR2,MDENRTR3 !
1600 ^COM1C 000004DC LENGTH 2.0 & LOCAL MNUMRTR1,MNUMRTR2,MNUMRTR3 !
1700 ^COM1C 000004DC LENGTH 3.0 & LOCAL MEXTDAY1,MEXTDAY2,MEXTDAY3 !
1800 ^COM1C 000004DC LENGTH 4.2 & LOCAL MAPDISC !
1900 ^COM1C 000004DC LENGTH 12.8 & LOCAL MEXCRATE !
2000 ^COM1C 000004DC LENGTH 1 & LOCAL MARKEADJ$,MASGNLP$ !
2100 ^COM1C 000004DC LENGTH 1 & LOCAL MINVFLAG$,MLEFLAG$,MCTYPE$ !
2200 ^COM1C 000004DC LENGTH 1 & LOCAL MPGFLAG$,MPROFORA$,MSAMPLE$ !
2300 ^COM1C 000004DC LENGTH 2 & LOCAL MCODE$ !
2400 ^COM1C 000004DC LENGTH 3 & LOCAL MUNUSED$ !
2500 ^COM1C 000004DC LENGTH 6 & LOCAL MWHSPASS$ !
2600 ^COM1C 000004DC LENGTH 8 & LOCAL MGLCODE$ !
2700 ^COM1C 000004DC LENGTH 40 & LOCAL MCDESC$ !
2800 ^COM1C 000004DC ! !
2900 ^COM1C 000004DC ! !
3000 ^COM1C 000004DC ! Description Type Len Pos !
3100 ^COM1C 000004DC ! ------------------------------------------!
3200 ^COM1C 000004DC 0650 FORMAT _ !
3300 ^COM1C 000004DC MCTYPE$;_ ! TYPE S 1 0 !
3400 ^COM1C 000004E1 MCODE$;_ ! CODE S 2 1 !
3500 ^COM1C 000004E6 MUNUSED$;_ ! UNUSED S 3 3 !
3600 ^COM1C 000004EB MCDESC$;_ ! DESCRIPTION S 40 6 !
3700 ^COM1C 000004F0 MSAMPLE$;_ ! SAMPLE LINE S 1 46 !
3800 ^COM1C 000004F5 MLEFLAG$;_ ! LEATHER FLAG S 1 47 !
3900 ^COM1C 000004FA MPGFLAG$;_ ! PCE GOOD FLG S 1 48 !
4000 ^COM1C 000004FF MGLCODE$;_ ! G.L. CODE S 8 49 !
4100 ^COM1C 00000504 MPROFORA$;_ ! PROFORMA FLAG S 1 57 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 10
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
4200 ^COM1C 00000509 MEXTDAY1;_ ! EXTRA DAYS 1 N 3.0 58 !
4300 ^COM1C 0000050E MEXTDAY2;_ ! EXTRA DAYS 2 N 3.0 63 !
4400 ^COM1C 00000513 MEXTDAY3;_ ! EXTRA DAYS 3 N 3.0 68 !
4500 ^COM1C 00000518 MNUMRTR1;_ ! NUMERATOR 1 N 2.0 73 !
4600 ^COM1C 0000051D MNUMRTR2;_ ! NUMERATOR 2 N 2.0 77 !
4700 ^COM1C 00000522 MNUMRTR3;_ ! NUMERATOR 3 N 2.0 81 !
4800 ^COM1C 00000527 MDENRTR1;_ ! DENOMINATOR 1 N 2.0 85 !
4900 ^COM1C 0000052C MDENRTR2;_ ! DENOMINATOR 2 N 2.0 89 !
5000 ^COM1C 00000531 MDENRTR3;_ ! DENOMINATOR 3 N 2.0 93 !
5100 ^COM1C 00000536 MEXCRATE;_ ! EXCHANGE RATE N 12.8 97 !
5200 ^COM1C 0000053B MAPDISC;_ ! A/P DISC PCT N 4.2 111 !
5300 ^COM1C 00000540 MINVFLAG$;_ ! INVENTORY FLAG S 1 117 !
5400 ^COM1C 00000545 MARKEADJ$;_ ! AR CASH ADJUST S 1 118 !
5500 ^COM1C 0000054A MWHSPASS$;_ ! WHSE OP PASSWORD S 6 119 !
5600 ^COM1C 0000054F MASGNLP$ ! ASSIGN LOT/PIECE FLAG S 1 125 !
5700 ^COM1C 00000555 ! !
5800 ^COM1C 00000555 !====================================================================!
5410 %SHMYOPA 00000555 USE '^COO19'
1000 ^COO19 00000555 ! !
1100 ^COO19 00000555 !************************* ^COO19 *******************************!
1200 ^COO19 00000555 ! !
1300 ^COO19 00000555 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: COO19 TYPE: K !
1400 ^COO19 00000555 ! !
1500 ^COO19 00000555 ! STANDARD MESSAGES FOR FORMS REC SIZE: 378 !
1600 ^COO19 00000555 ! KEY SIZE: 6 !
1700 ^COO19 00000555 ! !
1800 ^COO19 00000555 ! #FILE NAME: MESSAGES.FORMS DATE: 07/10/92 !
1900 ^COO19 00000555 ! !
1910 ^COO19 00000555 ! BY: CRITERION DESIGN & PROGRAMMING LTD. !
1920 ^COO19 00000555 ! !
2000 ^COO19 00000555 !********************************************************************!
2100 ^COO19 00000555 ! !
2200 ^COO19 00000555 ! FILE STATEMENT !
2300 ^COO19 00000555 ! !
2400 ^COO19 00000555 !!!!FILE 'COO19',756 !
2500 ^COO19 00000555 ! !
2600 ^COO19 00000555 ! VARIABLE DECLARATIONS: !
2700 ^COO19 00000555 ! !
2800 ^COO19 00000555 LENGTH 1 & LOCAL MCODEB$,MCODEC$,MCODEP$,MCODER$ !
2900 ^COO19 00000555 LENGTH 3 & LOCAL MCODEM1$,MCODEM2$ !
3000 ^COO19 00000555 LENGTH 40 & LOCAL MOTDESC$ !
3100 ^COO19 00000555 LENGTH 70 & LOCAL MLINE1$,MLINE10$,MLINE2$,MLINE3$ !
3200 ^COO19 00000555 LENGTH 70 & LOCAL MLINE4$,MLINE5$,MLINE6$,MLINE7$ !
3300 ^COO19 00000555 LENGTH 70 & LOCAL MLINE8$,MLINE9$ !
3400 ^COO19 00000555 ! !
3500 ^COO19 00000555 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION!
3600 ^COO19 00000555 ! !
3700 ^COO19 00000555 0800 FORMAT _ !
3800 ^COO19 00000555 MCODEB$;_ ! BCK S 1 0 !
3900 ^COO19 0000055A MCODEC$;_ ! CFA S 1 1 !
4000 ^COO19 0000055F MCODEP$;_ ! PRO S 1 2 !
4100 ^COO19 00000564 MCODEM1$;_ ! MSC1 S 3 3 !
4200 ^COO19 00000569 MCODEM2$;_ ! MSC2 S 3 6 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 11
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
4300 ^COO19 0000056E MCODER$;_ ! RES S 1 9 !
4400 ^COO19 00000573 MLINE1$;_ ! LINE 1 S 70 10 !
4500 ^COO19 00000578 MLINE2$;_ ! LINE 2 S 70 80 !
4600 ^COO19 0000057D MLINE3$;_ ! LINE 3 S 70 150 !
4700 ^COO19 00000582 MLINE4$;_ ! LINE 4 S 70 220 !
4800 ^COO19 00000587 MLINE5$;_ ! LINE 5 S 70 290 !
4900 ^COO19 0000058C MLINE6$;_ ! LINE 6 S 70 360 !
5000 ^COO19 00000591 MLINE7$;_ ! LINE 7 S 70 430 !
5100 ^COO19 00000596 MLINE8$;_ ! LINE 8 S 70 500 !
5200 ^COO19 0000059B MLINE9$;_ ! LINE 9 S 70 570 !
5300 ^COO19 000005A0 MLINE10$;_ ! LINE 10 S 70 640 !
5400 ^COO19 000005A5 MOTDESC$ ! OT DESCRIPTION S 40 710 !
5500 ^COO19 000005AB ! !
5600 ^COO19 000005AB !********************************************************************!
5425 %SHMYOPA 000005AB USE '^COI1A'
100 ^COI1A 000005AB ! !
200 ^COI1A 000005AB !===========================> ^COI1A <=============================!
300 ^COI1A 000005AB ! !
400 ^COI1A 000005AB ! File Format & Length Declaratives !
500 ^COI1A 000005AB ! !
600 ^COI1A 000005AB ! File Name: WWI1A COLOR MASTER FILE !
700 ^COI1A 000005AB ! !
800 ^COI1A 000005AB ! Type: K Record: 756 Key: 14 Image: N !
900 ^COI1A 000005AB ! !
1000 ^COI1A 000005AB ! #FILES File Name: COLOR.MASTER Date: 01/18/06 !
1100 ^COI1A 000005AB ! !
1200 ^COI1A 000005AB !--------------------------------------------------------------------!
1300 ^COI1A 000005AB ! !
1400 ^COI1A 000005AB ! !
1500 ^COI1A 000005AB LENGTH 4.0 & LOCAL IINV1MTH,IINV2MTH,IINVMTD !
1600 ^COI1A 000005AB LENGTH 4.0 & LOCAL IINVPRV1,IINVPRV2,IINVPRV3 !
1700 ^COI1A 000005AB LENGTH 4.0 & LOCAL IINVPRV4,IINVQTD,IINVYTD !
1800 ^COI1A 000005AB LENGTH 4.0 & LOCAL IROPNT !
1900 ^COI1A 000005AB LENGTH 5.3 & LOCAL ILENRPT !
2000 ^COI1A 000005AB LENGTH 6.0 & LOCAL INXTPCNO !
2100 ^COI1A 000005AB LENGTH 7.0 & LOCAL IUN1MTH,IUN2MTH,IUNMTD !
2200 ^COI1A 000005AB LENGTH 7.0 & LOCAL IUNPRV1,IUNPRV2,IUNPRV3 !
2300 ^COI1A 000005AB LENGTH 7.0 & LOCAL IUNPRV4,IUNQTD,IUNYTD !
2400 ^COI1A 000005AB LENGTH 7.2 & LOCAL IQICMTD,IQOBO,IQOHNDBN !
2500 ^COI1A 000005AB LENGTH 7.2 & LOCAL IQOHND,IQOORD,IQOCMTD !
2600 ^COI1A 000005AB LENGTH 7.2 & LOCAL IQRCMTD,ISCMTD,ISCPRV1 !
2700 ^COI1A 000005AB LENGTH 7.2 & LOCAL ISCPRV2,ISCPRV3,ISCPRV4 !
2800 ^COI1A 000005AB LENGTH 7.2 & LOCAL ISCQTD,ISCYTD,ISPCLPRC !
2900 ^COI1A 000005AB LENGTH 9.2 & LOCAL ICSTMTD,ICSTPRV1,ICSTPRV2 !
3000 ^COI1A 000005AB LENGTH 9.2 & LOCAL ICSTPRV3,ICSTPRV4,ICSTQTD !
3100 ^COI1A 000005AB LENGTH 9.2 & LOCAL ICSTYTD,ISLSMTD,ISLSPRV1 !
3200 ^COI1A 000005AB LENGTH 9.2 & LOCAL ISLSPRV2,ISLSPRV3,ISLSPRV4 !
3300 ^COI1A 000005AB LENGTH 9.2 & LOCAL ISLSQTD,ISLSYTD !
3400 ^COI1A 000005AB LENGTH 1 & LOCAL ICITEM$,IFURNITM$,IHORVERT$ !
3500 ^COI1A 000005AB LENGTH 1 & LOCAL IMEXCP$ !
3600 ^COI1A 000005AB LENGTH 2 & LOCAL IPRICOL$,ISECCOL$,IUDEF$ !
3700 ^COI1A 000005AB LENGTH 4 & LOCAL ICACCTNG$ !
3800 ^COI1A 000005AB LENGTH 6 & LOCAL INXTLOT$ !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 12
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
3900 ^COI1A 000005AB LENGTH 7 & LOCAL IFILLER$,IPATTERN$ !
3900 ^COI1A *****5AB Variable 'IPATTERN$ ' has been previously declared
4000 ^COI1A 000005AB LENGTH 8 & LOCAL ILPDTE$,ISTDLOC$ !
4100 ^COI1A 000005AB LENGTH 10 & LOCAL IDSCNTDT$ !
4200 ^COI1A 000005AB LENGTH 14 & LOCAL IINBR$,INBR$,INEWINBR$ !
4200 ^COI1A *****5AB Variable 'INBR$ ' has been previously declared
4300 ^COI1A 000005AB LENGTH 20 & LOCAL IGRFLNM$ !
4400 ^COI1A 000005AB LENGTH 25 & LOCAL ICOLOR$ !
4500 ^COI1A 000005AB LENGTH 50 & LOCAL IMINBR$ !
4600 ^COI1A 000005AB LENGTH 57 & LOCAL ICCOMM1$,ICCOMM2$ !
4700 ^COI1A 000005AB ! !
4800 ^COI1A 000005AB ! !
4900 ^COI1A 000005AB ! Description Type Len Pos !
5000 ^COI1A 000005AB ! ------------------------------------------!
5100 ^COI1A 000005AB 0200 FORMAT _ !
5200 ^COI1A 000005AB INBR$;_ ! ITEM NUMBER S 14 0 !
5300 ^COI1A 000005B0 IPATTERN$;_ ! PATTERN NUMBER S 7 14 !
5400 ^COI1A 000005B5 ICOLOR$;_ ! COLOR NAME S 25 21 !
5500 ^COI1A 000005BA IMINBR$;_ ! MILL ITEM NUMBER S 50 46 !
5600 ^COI1A 000005BF ICCOMM1$;_ ! COLOR COMMENT 1 S 57 96 !
5700 ^COI1A 000005C4 ICCOMM2$;_ ! COLOR COMMENT 2 S 57 153 !
5800 ^COI1A 000005C9 IROPNT;_ ! REORDER POINT N 4.0 210 !
5900 ^COI1A 000005CE ICITEM$;_ ! CUST ITEM FLG S 1 216 !
6000 ^COI1A 000005D3 IINBR$;_ ! INVENTORY ITEM NUMB S 14 217 !
6100 ^COI1A 000005D8 ILPDTE$;_ ! LT PO DT S 8 231 !
6200 ^COI1A 000005DD IQOORD;_ ! ON ORDER FROM SUPPLIERS N 7.2 239 !
6300 ^COI1A 000005E2 IQOBO;_ ! ON BACKORDER CUSTOM N 7.2 248 !
6400 ^COI1A 000005E7 IQOHND;_ ! QTY ON HAND WHSE N 7.2 257 !
6500 ^COI1A 000005EC IQOHNDBN;_ ! QTY ON HAND BOND N 7.2 266 !
6600 ^COI1A 000005F1 IQOCMTD;_ ! ALLOCATED TO ORDERS N 7.2 275 !
6700 ^COI1A 000005F6 IQRCMTD;_ ! ALLOCATED TO RESERV N 7.2 284 !
6800 ^COI1A 000005FB ISLSMTD;_ ! SALES MTD N 9.2 293 !
6900 ^COI1A 00000600 ISLSQTD;_ ! SALES QTD N 9.2 304 !
7000 ^COI1A 00000605 ISLSYTD;_ ! SALES YTD N 9.2 315 !
7100 ^COI1A 0000060A ISLSPRV1;_ ! SALES PRV1 N 9.2 326 !
7200 ^COI1A 0000060F ISLSPRV2;_ ! SALES PRV2 N 9.2 337 !
7300 ^COI1A 00000614 ISLSPRV3;_ ! SALES PRV3 N 9.2 348 !
7400 ^COI1A 00000619 ISLSPRV4;_ ! SALES PRV4 N 9.2 359 !
7500 ^COI1A 0000061E ICSTMTD;_ ! COST MTD N 9.2 370 !
7600 ^COI1A 00000623 ICSTQTD;_ ! COST QTD N 9.2 381 !
7700 ^COI1A 00000628 ICSTYTD;_ ! COST YTD N 9.2 392 !
7800 ^COI1A 0000062D ICSTPRV1;_ ! COST PRV1 N 9.2 403 !
7900 ^COI1A 00000632 ICSTPRV2;_ ! COST PRV2 N 9.2 414 !
8000 ^COI1A 00000637 ICSTPRV3;_ ! COST PRV3 N 9.2 425 !
8100 ^COI1A 0000063C ICSTPRV4;_ ! COST PRV4 N 9.2 436 !
8200 ^COI1A 00000641 IUNMTD;_ ! UNITS MTD N 7.0 447 !
8300 ^COI1A 00000646 IUNQTD;_ ! UNITS QTD N 7.0 456 !
8400 ^COI1A 0000064B IUNYTD;_ ! UNITS YTD N 7.0 465 !
8500 ^COI1A 00000650 IUNPRV1;_ ! UNITS PRV1 N 7.0 474 !
8600 ^COI1A 00000655 IUNPRV2;_ ! UNITS PRV2 N 7.0 483 !
8700 ^COI1A 0000065A IUNPRV3;_ ! UNITS PRV3 N 7.0 492 !
8800 ^COI1A 0000065F IUNPRV4;_ ! UNITS PRV4 N 7.0 501 !
8900 ^COI1A 00000664 IUN1MTH;_ ! UNITS 1 MONTHS AGO N 7.0 510 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 13
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
9000 ^COI1A 00000669 IUN2MTH;_ ! UNITS 2 MONTHS AGO N 7.0 519 !
9100 ^COI1A 0000066E IINVMTD;_ ! INVOICES MTD N 4.0 528 !
9200 ^COI1A 00000673 IINVQTD;_ ! INVOICES QTD N 4.0 534 !
9300 ^COI1A 00000678 IINVYTD;_ ! INVOICES YTD N 4.0 540 !
9400 ^COI1A 0000067D IINVPRV1;_ ! INVOICES PRV1 N 4.0 546 !
9500 ^COI1A 00000682 IINVPRV2;_ ! INVOICES PRV2 N 4.0 552 !
9600 ^COI1A 00000687 IINVPRV3;_ ! INVOICES PRV3 N 4.0 558 !
9700 ^COI1A 0000068C IINVPRV4;_ ! INVOICES PRV4 N 4.0 564 !
9800 ^COI1A 00000691 IINV1MTH;_ ! INVOICES 1 MONTHAGO N 4.0 570 !
9900 ^COI1A 00000696 IINV2MTH;_ ! INVOICES 2 MONTHAGO N 4.0 576 !
10000 ^COI1A 0000069B ISCMTD;_ ! SAMPLE COST MTD N 7.2 582 !
10100 ^COI1A 000006A0 ISCQTD;_ ! SAMPLE COST QTD N 7.2 591 !
10200 ^COI1A 000006A5 ISCYTD;_ ! SAMPLE COST YTD N 7.2 600 !
10300 ^COI1A 000006AA ISCPRV1;_ ! SAMPLE COST PRV1 N 7.2 609 !
10400 ^COI1A 000006AF ISCPRV2;_ ! SAMPLE COST PRV2 N 7.2 618 !
10500 ^COI1A 000006B4 ISCPRV3;_ ! SAMPLE COST PRV3 N 7.2 627 !
10600 ^COI1A 000006B9 ISCPRV4;_ ! SAMPLE COST PRV4 N 7.2 636 !
10700 ^COI1A 000006BE IMEXCP$;_ ! MEMO EXCP FLAG S 1 645 !
10800 ^COI1A 000006C3 IDSCNTDT$;_ ! DISCONTINUE DATE S 10 646 !
10900 ^COI1A 000006C8 IQICMTD;_ ! ALLOCATED TO INQUIRIES N 7.2 656 !
11000 ^COI1A 000006CD INXTPCNO;_ ! NEXT PC # N 6.0 665 !
11100 ^COI1A 000006D2 INXTLOT$;_ ! NEXT LOT # S 6 673 !
11200 ^COI1A 000006D7 INEWINBR$;_ ! NEW ITEM # S 14 679 !
11300 ^COI1A 000006DC IUDEF$;_ ! USER DEFINED S 2 693 !
11400 ^COI1A 000006E1 ILENRPT;_ ! LENGTH OF REPEAT N 5.3 695 !
11500 ^COI1A 000006E6 IGRFLNM$;_ ! GRAPHIC FILE NAME S 20 702 !
11600 ^COI1A 000006EB IFURNITM$;_ ! FURN ITEM S 1 722 !
11700 ^COI1A 000006F0 ISTDLOC$;_ ! STD WHSE LOC S 8 723 !
11800 ^COI1A 000006F5 ICACCTNG$;_ ! COLOR ACCTNG CODE S 4 731 !
11900 ^COI1A 000006FA IHORVERT$;_ ! GRAPHIC IMAGE HORIZ/VERT S 1 735 !
12000 ^COI1A 000006FF ISPCLPRC;_ ! SPECIAL PRICE N 7.2 736 !
12100 ^COI1A 00000704 IPRICOL$;_ ! PRIMARY COLOR CODE S 2 745 !
12200 ^COI1A 00000709 ISECCOL$;_ ! SECONDARY COLOR CODE S 2 747 !
12300 ^COI1A 0000070E IFILLER$ ! FILLER S 7 749 !
12400 ^COI1A 00000714 ! !
12500 ^COI1A 00000714 !====================================================================!
5440 %SHMYOPA 00000714 USE '^COC1A'
100 ^COC1A 00000714 ! !
200 ^COC1A 00000714 !===========================> ^COC1A <=============================!
300 ^COC1A 00000714 ! !
400 ^COC1A 00000714 ! File Format & Length Declaratives !
500 ^COC1A 00000714 ! !
600 ^COC1A 00000714 ! File Name: WWC1A CUSTOMER MASTER !
700 ^COC1A 00000714 ! !
800 ^COC1A 00000714 ! Type: K Record: 999 Key: 6 Image: N !
900 ^COC1A 00000714 ! !
1000 ^COC1A 00000714 ! #FILES File Name: CUSTOMER.MASTER Date: 10/13/10 !
1100 ^COC1A 00000714 ! !
1200 ^COC1A 00000714 !--------------------------------------------------------------------!
1300 ^COC1A 00000714 ! !
1400 ^COC1A 00000714 ! !
1500 ^COC1A 00000714 LENGTH 3.0 & LOCAL CAVGDAYS,CDSCTPR1,CDSCTPR2 !
1600 ^COC1A 00000714 LENGTH 3.0 & LOCAL CDSCTYTD,CNUMPMNT,CNORPRV1 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 14
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1700 ^COC1A 00000714 LENGTH 3.0 & LOCAL CNORPRV2,CNORYTD !
1800 ^COC1A 00000714 LENGTH 4.0 & LOCAL CMTDINV,CPRV1INV,CPRV2INV !
1900 ^COC1A 00000714 LENGTH 4.0 & LOCAL CPRV3INV,CYTDINV !
2000 ^COC1A 00000714 LENGTH 4.2 & LOCAL CDISCPCT !
2100 ^COC1A 00000714 LENGTH 6.0 & LOCAL CCREDLIM !
2200 ^COC1A 00000714 LENGTH 7.2 & LOCAL CDSCPRV1,CDSCPRV2,CDSCPRV3 !
2300 ^COC1A 00000714 LENGTH 7.2 & LOCAL CDSCYTD,CSRVPRV1,CSRVPRV2 !
2400 ^COC1A 00000714 LENGTH 7.2 & LOCAL CSRVYTD,CRVPRV1,CRVPRV2 !
2500 ^COC1A 00000714 LENGTH 7.2 & LOCAL CRVYTD,CSFMTD,CSFPRV1 !
2600 ^COC1A 00000714 LENGTH 7.2 & LOCAL CSFPRV2,CSFPRV3,CSFYTD !
2700 ^COC1A 00000714 LENGTH 7.2 & LOCAL CSSMTD,CSSPRV1,CSSPRV2 !
2800 ^COC1A 00000714 LENGTH 7.2 & LOCAL CSSPRV3,CSSYTD !
2900 ^COC1A 00000714 LENGTH 9.2 & LOCAL CCSTMTD,CCSTPRV1,CCSTPRV2 !
3000 ^COC1A 00000714 LENGTH 9.2 & LOCAL CCSTPRV3,CCSTYTD,CHIGHBAL !
3100 ^COC1A 00000714 LENGTH 9.2 & LOCAL CBAL,COPEN,CSLSMTD !
3200 ^COC1A 00000714 LENGTH 9.2 & LOCAL CSLSPRV1,CSLSPRV2,CSLSPRV3 !
3300 ^COC1A 00000714 LENGTH 9.2 & LOCAL CSLSYTD,CTAXYTD !
3400 ^COC1A 00000714 LENGTH 1 & LOCAL CAPREF$,CAREP$,CBTYPE$ !
3500 ^COC1A 00000714 LENGTH 1 & LOCAL CCOMMDUE$,CDSCFLG$,CMBXCP$ !
3600 ^COC1A 00000714 LENGTH 1 & LOCAL COPARPFL$,CRTOMILL$ !
3700 ^COC1A 00000714 LENGTH 2 & LOCAL CCONSWHS$,CCTYPE$,CSTATE$ !
3800 ^COC1A 00000714 LENGTH 2 & LOCAL CTERMCD$ !
3900 ^COC1A 00000714 LENGTH 3 & LOCAL CAREA$,CHOLD2$,CLTYPE$ !
4000 ^COC1A 00000714 LENGTH 3 & LOCAL CRANK$,CSNBR$,CCODE$(5) !
4100 ^COC1A 00000714 !!!! LENGTH 3 & LOCAL CCODE2$,CCODE3$,CCODE4$ !
4200 ^COC1A 00000714 !!!! LENGTH 3 & LOCAL CCODE5$ !
4300 ^COC1A 00000714 LENGTH 5 & LOCAL CCRALRT$,CRESDTE$,CSACAT$ !
4400 ^COC1A 00000714 LENGTH 6 & LOCAL CNBR$ !
4400 ^COC1A *****714 Variable 'CNBR$ ' has been previously declared
4500 ^COC1A 00000714 LENGTH 8 & LOCAL CWEBPASS$ !
4600 ^COC1A 00000714 LENGTH 10 & LOCAL CACTDATE$,CDTEEST$,CDTEHI$ !
4700 ^COC1A 00000714 LENGTH 10 & LOCAL CDOLS$,CDOLSS$,CFUPDATE$ !
4800 ^COC1A 00000714 LENGTH 10 & LOCAL CPRCLST$,CZIP$ !
4900 ^COC1A 00000714 LENGTH 11 & LOCAL CPHONE2$ !
5000 ^COC1A 00000714 LENGTH 15 & LOCAL CRESALE$ !
5100 ^COC1A 00000714 LENGTH 16 & LOCAL CFAX$,CPHONE1$ !
5200 ^COC1A 00000714 LENGTH 20 & LOCAL CASRT$ !
5300 ^COC1A 00000714 LENGTH 21 & LOCAL CCITY$ !
5400 ^COC1A 00000714 LENGTH 35 & LOCAL CADR1$,CADR2$,CATTN$ !
5500 ^COC1A 00000714 LENGTH 35 & LOCAL CNAME$ !
5600 ^COC1A 00000714 LENGTH 60 & LOCAL CEMAIL$ !
5700 ^COC1A 00000714 LENGTH 103 & LOCAL CFIL0100$ !
5800 ^COC1A 00000714 ! !
5900 ^COC1A 00000714 ! !
6000 ^COC1A 00000714 ! Description Type Len Pos !
6100 ^COC1A 00000714 ! ------------------------------------------!
6200 ^COC1A 00000714 0100 FORMAT _ !
6300 ^COC1A 00000714 CNBR$;_ ! CUST # S 6 0 !
6400 ^COC1A 00000719 CNAME$;_ ! CUSTOMER NAME S 35 6 !
6500 ^COC1A 0000071E CADR1$;_ ! ADDRESS ONE S 35 41 !
6600 ^COC1A 00000723 CADR2$;_ ! ADDRESS TWO S 35 76 !
6700 ^COC1A 00000728 CCITY$;_ ! CITY S 21 111 !
6800 ^COC1A 0000072D CSTATE$;_ ! ST S 2 132 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 15
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
6900 ^COC1A 00000732 CZIP$;_ ! ZIP CODE S 10 134 !
7000 ^COC1A 00000737 CATTN$;_ ! ATTENTION S 35 144 !
7100 ^COC1A 0000073C CASRT$;_ ! ALPHA SORT NAME S 20 179 !
7200 ^COC1A 00000741 CPHONE1$;_ ! PHONE 1 S 16 199 !
7300 ^COC1A 00000746 CPHONE2$;_ ! PHONE 2 S 11 215 !
7400 ^COC1A 0000074B CRESDTE$;_ ! RESALE NUMBER DATE S 5 226 !
7500 ^COC1A 00000750 CFAX$;_ ! FAX S 16 231 !
7600 ^COC1A 00000755 CSNBR$;_ ! REP ID S 3 247 !
7700 ^COC1A 0000075A CAREP$;_ ! APP REP S 1 250 !
7800 ^COC1A 0000075F CRESALE$;_ ! RESALE NUMBER S 15 251 !
7900 ^COC1A 00000764 CCTYPE$;_ ! CUST TYPE S 2 266 !
8000 ^COC1A 00000769 CLTYPE$;_ ! CUST CLASS S 3 268 !
8100 ^COC1A 0000076E CTERMCD$;_ ! TERMS CODE S 2 271 !
8200 ^COC1A 00000773 CCREDLIM;_ ! LIMIT N 6.0 273 !
8300 ^COC1A 00000778 CDISCPCT;_ ! DISC PCT N 4.2 281 !
8400 ^COC1A 0000077D CDSCFLG$;_ ! D F S 1 287 !
8500 ^COC1A 00000782 CDTEEST$;_ ! DATE EST S 10 288 !
8600 ^COC1A 00000787 CPRCLST$;_ ! PRICE LIST DATE S 10 298 !
8700 ^COC1A 0000078C CCRALRT$;_ ! CREDIT ALERT S 5 308 !
8800 ^COC1A 00000791 CSACAT$;_ ! SALES AID GL CAT S 5 313 !
8900 ^COC1A 00000796 CRTOMILL$;_ ! RETURN TO MILL CODE S 1 318 !
9000 ^COC1A 0000079B CDOLS$;_ ! DTE LAST SALE S 10 319 !
9100 ^COC1A 000007A0 CDOLSS$;_ ! DTE LAST SAMP SALE S 10 329 !
9200 ^COC1A 000007A5 CAVGDAYS;_ ! AVERAGE DAYS TO PAY N 3.0 339 !
9300 ^COC1A 000007AA CHIGHBAL;_ ! HIGH A/R BALANCE N 9.2 344 !
9400 ^COC1A 000007AF CDTEHI$;_ ! DTE HIGH A/R BAL S 10 355 !
9500 ^COC1A 000007B4 CBAL;_ ! BALANCE N 9.2 365 !
9600 ^COC1A 000007B9 COPEN;_ ! OPEN ORDERS N 9.2 376 !
9700 ^COC1A 000007BE CTAXYTD;_ ! TAXABLE SALES YTD N 9.2 387 !
9800 ^COC1A 000007C3 CSLSMTD;_ ! SALES MTD N 9.2 398 !
9900 ^COC1A 000007C8 CSLSYTD;_ ! SALES YTD N 9.2 409 !
10000 ^COC1A 000007CD CSLSPRV1;_ ! SALES PRV1 N 9.2 420 !
10100 ^COC1A 000007D2 CSLSPRV2;_ ! SALES PRV2 N 9.2 431 !
10200 ^COC1A 000007D7 CSLSPRV3;_ ! SALES PRV3 N 9.2 442 !
10300 ^COC1A 000007DC CCSTMTD;_ ! COST MTD N 9.2 453 !
10400 ^COC1A 000007E1 CCSTYTD;_ ! COST YTD N 9.2 464 !
10500 ^COC1A 000007E6 CCSTPRV1;_ ! COST PRV1 N 9.2 475 !
10600 ^COC1A 000007EB CCSTPRV2;_ ! COST PRV2 N 9.2 486 !
10700 ^COC1A 000007F0 CCSTPRV3;_ ! COST PRV3 N 9.2 497 !
10800 ^COC1A 000007F5 CMTDINV;_ ! MTD INVCS N 4.0 508 !
10900 ^COC1A 000007FA CYTDINV;_ ! YTD INVCS N 4.0 514 !
11000 ^COC1A 000007FF CPRV1INV;_ ! PRV YR INVCS N 4.0 520 !
11100 ^COC1A 00000804 CPRV2INV;_ ! PRV YR INVCS N 4.0 526 !
11200 ^COC1A 00000809 CPRV3INV;_ ! PRV YR INVCS N 4.0 532 !
11300 ^COC1A 0000080E CDSCTYTD;_ ! DISC TAKEN YTD N 3.0 538 !
11400 ^COC1A 00000813 CDSCTPR1;_ ! DISC TAKEN PRV1 N 3.0 543 !
11500 ^COC1A 00000818 CDSCTPR2;_ ! DISC TAKEN PRV2 N 3.0 548 !
11600 ^COC1A 0000081D CNUMPMNT;_ ! NUMBER OF PAYMNTS N 3.0 553 !
11700 ^COC1A 00000822 CDSCYTD;_ ! DISCOUNTS YTD N 7.2 558 !
11800 ^COC1A 00000827 CDSCPRV1;_ ! DISCOUNTS PRV1 N 7.2 567 !
11900 ^COC1A 0000082C CDSCPRV2;_ ! DISCOUNTS PRV2 N 7.2 576 !
12000 ^COC1A 00000831 CDSCPRV3;_ ! DISCOUNTS PRV3 N 7.2 585 !
12100 ^COC1A 00000836 CNORYTD;_ ! # OF RETURNS YTD N 3.0 594 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 16
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
12200 ^COC1A 0000083B CNORPRV1;_ ! # OF RETURNS PRV1 N 3.0 599 !
12300 ^COC1A 00000840 CNORPRV2;_ ! # OF RETURNS PRV2 N 3.0 604 !
12400 ^COC1A 00000845 CMBXCP$;_ ! MEMO BILL EXCP S 1 609 !
12500 ^COC1A 0000084A CRVYTD;_ ! RETURN VAL YTD N 7.2 610 !
12600 ^COC1A 0000084F CRVPRV1;_ ! RETURN VAL PRV1 N 7.2 619 !
12700 ^COC1A 00000854 CRVPRV2;_ ! RETURN VAL PRV2 N 7.2 628 !
12800 ^COC1A 00000859 CSSMTD;_ ! SAMPLE VAL MTD N 7.2 637 !
12900 ^COC1A 0000085E CSSYTD;_ ! SAMPLE VAL YTD N 7.2 646 !
13000 ^COC1A 00000863 CSSPRV1;_ ! SAMPLE VAL PRV1 N 7.2 655 !
13100 ^COC1A 00000868 CSSPRV2;_ ! SAMPLE VAL PRV2 N 7.2 664 !
13200 ^COC1A 0000086D CSSPRV3;_ ! SAMPLE VAL PRV3 N 7.2 673 !
13300 ^COC1A 00000872 CSFMTD;_ ! SAMPLE FREE MTD N 7.2 682 !
13400 ^COC1A 00000877 CSFYTD;_ ! SAMPLE FREE YTD N 7.2 691 !
13500 ^COC1A 0000087C CSFPRV1;_ ! SAMPLE FREE PRV1 N 7.2 700 !
13600 ^COC1A 00000881 CSFPRV2;_ ! SAMPLE FREE PRV2 N 7.2 709 !
13700 ^COC1A 00000886 CSFPRV3;_ ! SAMPLE FREE PRV3 N 7.2 718 !
13800 ^COC1A 0000088B CSRVYTD;_ ! RETURN VAL YTD N 7.2 727 !
13900 ^COC1A 00000890 CSRVPRV1;_ ! RETURN VAL PRV1 N 7.2 736 !
14000 ^COC1A 00000895 CSRVPRV2;_ ! RETURN VAL PRV2 N 7.2 745 !
14100 ^COC1A 0000089A CCOMMDUE$;_ ! COMM DUE FLAG S 1 754 !
14200 ^COC1A 0000089F CRANK$;_ ! RANK S 3 755 !
14300 ^COC1A 000008A4 CCODE$(1),5*3;_ ! SAMP CODE 1 S 3 758 !
14400 ^COC1A 000008B6 ____ CCODE2$;_ ! SAMP CODE 2 S 3 761 !
14500 ^COC1A 000008B6 ____ CCODE3$;_ ! SAMP CODE 3 S 3 764 !
14600 ^COC1A 000008B6 ____ CCODE4$;_ ! SAMP CODE 4 S 3 767 !
14700 ^COC1A 000008B6 ____ CCODE5$;_ ! SAMP CODE 5 S 3 770 !
14800 ^COC1A 000008B6 CBTYPE$;_ ! BUS TYP S 1 773 !
14900 ^COC1A 000008BB CAPREF$;_ ! APPOINTMENT PREFERENCE S 1 774 !
15000 ^COC1A 000008C0 CACTDATE$;_ ! ACTIVITY.DATE S 10 775 !
15100 ^COC1A 000008C5 CFUPDATE$;_ ! FOLLOW UP DATE S 10 785 !
15200 ^COC1A 000008CA CEMAIL$;_ ! EMAIL S 60 795 !
15300 ^COC1A 000008CF CCONSWHS$;_ ! CONSIGNMENT WAREHOUSE S 2 855 !
15400 ^COC1A 000008D4 CAREA$;_ ! AREAS S 3 857 !
15500 ^COC1A 000008D9 CWEBPASS$;_ ! WEB PASSWORD S 8 860 !
15600 ^COC1A 000008DE COPARPFL$;_ ! OPA.RP PRNT FLAG S 1 868 !
15700 ^COC1A 000008E3 CHOLD2$;_ ! AUTO HOLD 2 S 3 869 !
15800 ^COC1A 000008E8 CFIL0100$ ! FILLER S 103 872 !
15900 ^COC1A 000008EE ! !
16000 ^COC1A 000008EE !====================================================================!
5445 %SHMYOPA 000008EE USE '^COS1'
100 ^COS1 000008EE ! !
200 ^COS1 000008EE !===========================> ^COS1 <==============================!
300 ^COS1 000008EE ! !
400 ^COS1 000008EE ! File Format & Length Declaratives !
500 ^COS1 000008EE ! !
600 ^COS1 000008EE ! File Name: WWS1 REP MASTER !
700 ^COS1 000008EE ! !
800 ^COS1 000008EE ! Type: K Record: 756 Key: 3 Image: N !
900 ^COS1 000008EE ! !
1000 ^COS1 000008EE ! #FILES File Name: REP.MASTER Date: 06/22/05 !
1100 ^COS1 000008EE ! !
1200 ^COS1 000008EE !--------------------------------------------------------------------!
1300 ^COS1 000008EE ! !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 17
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1400 ^COS1 000008EE ! !
1500 ^COS1 000008EE LENGTH 4.0 & LOCAL SMTDINV,SPR1INV,SPR2INV !
1600 ^COS1 000008EE LENGTH 4.0 & LOCAL SPR3INV,SYTDINV !
1700 ^COS1 000008EE LENGTH 4.2 & LOCAL SCOMMC,SCOMM !
1800 ^COS1 000008EE LENGTH 7.2 & LOCAL SRETMTD,SRETPRV1,SRETPRV2 !
1900 ^COS1 000008EE LENGTH 7.2 & LOCAL SRETPRV3,SRETYTD,SSFMTD !
2000 ^COS1 000008EE LENGTH 7.2 & LOCAL SSFPRV1,SSFPRV2,SSFPRV3 !
2100 ^COS1 000008EE LENGTH 7.2 & LOCAL SSFYTD,SSRPRV1,SSRPRV2 !
2200 ^COS1 000008EE LENGTH 7.2 & LOCAL SSRPRV3,SSRYTD,SSSMTD !
2300 ^COS1 000008EE LENGTH 7.2 & LOCAL SSSPRV1,SSSPRV2,SSSPRV3 !
2400 ^COS1 000008EE LENGTH 7.2 & LOCAL SSSYTD !
2500 ^COS1 000008EE LENGTH 9.2 & LOCAL SCOMMMTD,SCOMMPR1,SCOMMPR2 !
2600 ^COS1 000008EE LENGTH 9.2 & LOCAL SCOMMPR3,SCOMMYTD,SSLSMTD !
2700 ^COS1 000008EE LENGTH 9.2 & LOCAL SSLSPRV1,SSLSPRV2,SSLSPRV3 !
2800 ^COS1 000008EE LENGTH 9.2 & LOCAL SSLSYTD !
2900 ^COS1 000008EE LENGTH 1 & LOCAL SCOMMDUE$,SINVRPT$,STERRBE$ !
3000 ^COS1 000008EE LENGTH 1 & LOCAL SWCFLAG$ !
3100 ^COS1 000008EE LENGTH 2 & LOCAL SSTATE$ !
3200 ^COS1 000008EE LENGTH 3 & LOCAL SMSNBR$,SOTCREP$,SOTMREP$ !
3300 ^COS1 000008EE LENGTH 3 & LOCAL SNBR$,SSRTFLD$,STERR$ !
3400 ^COS1 000008EE LENGTH 9 & LOCAL SSHRTNM$ !
3500 ^COS1 000008EE LENGTH 10 & LOCAL SDTEEST$,SDTEEND$,SZIP$ !
3600 ^COS1 000008EE LENGTH 15 & LOCAL SCNTRY$ !
3700 ^COS1 000008EE LENGTH 17 & LOCAL SFAX$,SPHONE1$,SPHONE2$ !
3800 ^COS1 000008EE LENGTH 17 & LOCAL STELEX$ !
3900 ^COS1 000008EE LENGTH 21 & LOCAL SCITY$ !
4000 ^COS1 000008EE LENGTH 35 & LOCAL SADR1$,SADR2$,SATTN$ !
4100 ^COS1 000008EE LENGTH 35 & LOCAL SNAME$ !
4200 ^COS1 000008EE LENGTH 60 & LOCAL SEMAIL$ !
4300 ^COS1 000008EE LENGTH 66 & LOCAL SFIL0400$ !
4400 ^COS1 000008EE ! !
4500 ^COS1 000008EE ! !
4600 ^COS1 000008EE ! Description Type Len Pos !
4700 ^COS1 000008EE ! ------------------------------------------!
4800 ^COS1 000008EE 0400 FORMAT _ !
4900 ^COS1 000008EE SNBR$;_ ! REP ID S 3 0 !
5000 ^COS1 000008F3 SNAME$;_ ! REP NAME S 35 3 !
5100 ^COS1 000008F8 SADR1$;_ ! ADDRESS ONE S 35 38 !
5200 ^COS1 000008FD SADR2$;_ ! ADDRESS TWO S 35 73 !
5300 ^COS1 00000902 SCITY$;_ ! CITY S 21 108 !
5400 ^COS1 00000907 SSTATE$;_ ! ST S 2 129 !
5500 ^COS1 0000090C SZIP$;_ ! ZIP CODE S 10 131 !
5600 ^COS1 00000911 SATTN$;_ ! ATTENTION S 35 141 !
5700 ^COS1 00000916 SCNTRY$;_ ! COUNTRY S 15 176 !
5800 ^COS1 0000091B SMSNBR$;_ ! MAST ID S 3 191 !
5900 ^COS1 00000920 STERR$;_ ! TERR S 3 194 !
6000 ^COS1 00000925 SPHONE1$;_ ! PHONE ONE S 17 197 !
6100 ^COS1 0000092A SPHONE2$;_ ! PHONE TWO S 17 214 !
6200 ^COS1 0000092F SFAX$;_ ! FAX S 17 231 !
6300 ^COS1 00000934 STELEX$;_ ! TELEX S 17 248 !
6400 ^COS1 00000939 SCOMM;_ ! COMM PCT N 4.2 265 !
6500 ^COS1 0000093E SDTEEST$;_ ! DATE EST S 10 271 !
6600 ^COS1 00000943 SDTEEND$;_ ! END DATE S 10 281 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 18
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
6700 ^COS1 00000948 SSLSMTD;_ ! SALES MTD N 9.2 291 !
6800 ^COS1 0000094D SSLSYTD;_ ! SALES YTD N 9.2 302 !
6900 ^COS1 00000952 SSLSPRV1;_ ! SALES PREV1 N 9.2 313 !
7000 ^COS1 00000957 SSLSPRV2;_ ! SALES PREV2 N 9.2 324 !
7100 ^COS1 0000095C SSLSPRV3;_ ! SALES PREV3 N 9.2 335 !
7200 ^COS1 00000961 SRETMTD;_ ! RETURNS MTD N 7.2 346 !
7300 ^COS1 00000966 SRETYTD;_ ! RETURNS YTD N 7.2 355 !
7400 ^COS1 0000096B SRETPRV1;_ ! RETURNS PRV1 N 7.2 364 !
7500 ^COS1 00000970 SRETPRV2;_ ! RETURNS PRV2 N 7.2 373 !
7600 ^COS1 00000975 SRETPRV3;_ ! RETURNS PRV3 N 7.2 382 !
7700 ^COS1 0000097A SCOMMMTD;_ ! COMM MTD N 9.2 391 !
7800 ^COS1 0000097F SCOMMYTD;_ ! COMM YTD N 9.2 402 !
7900 ^COS1 00000984 SCOMMPR1;_ ! COMM PREV1 N 9.2 413 !
8000 ^COS1 00000989 SCOMMPR2;_ ! COMM PREV2 N 9.2 424 !
8100 ^COS1 0000098E SCOMMPR3;_ ! COMM PREV3 N 9.2 435 !
8200 ^COS1 00000993 SMTDINV;_ ! MTD INVCS N 4.0 446 !
8300 ^COS1 00000998 SYTDINV;_ ! YTD INVCS N 4.0 452 !
8400 ^COS1 0000099D SPR1INV;_ ! PRV1 INVCS N 4.0 458 !
8500 ^COS1 000009A2 SPR2INV;_ ! PRV2 INVCS N 4.0 464 !
8600 ^COS1 000009A7 SPR3INV;_ ! PRV3 INVCS N 4.0 470 !
8700 ^COS1 000009AC SSFMTD;_ ! SAMP FREE MTD N 7.2 476 !
8800 ^COS1 000009B1 SSFYTD;_ ! SAMP FREE YTD N 7.2 485 !
8900 ^COS1 000009B6 SSFPRV1;_ ! SAMP FREE PRV1 N 7.2 494 !
9000 ^COS1 000009BB SSFPRV2;_ ! SAMP FREE PRV2 N 7.2 503 !
9100 ^COS1 000009C0 SSFPRV3;_ ! SAMP FREE PRV3 N 7.2 512 !
9200 ^COS1 000009C5 SSSMTD;_ ! SAMP SOLD MTD N 7.2 521 !
9300 ^COS1 000009CA SSSYTD;_ ! SAMP SOLD YTD N 7.2 530 !
9400 ^COS1 000009CF SSSPRV1;_ ! SAMP SOLD PRV1 N 7.2 539 !
9500 ^COS1 000009D4 SSSPRV2;_ ! SAMP SOLD PRV2 N 7.2 548 !
9600 ^COS1 000009D9 SSSPRV3;_ ! SAMP SOLD PRV3 N 7.2 557 !
9700 ^COS1 000009DE SSRYTD;_ ! SAMP RETURNED YTD N 7.2 566 !
9800 ^COS1 000009E3 SSRPRV1;_ ! SAMP RETURNED PRV1 N 7.2 575 !
9900 ^COS1 000009E8 SSRPRV2;_ ! SAMP RETURNED PRV2 N 7.2 584 !
10000 ^COS1 000009ED SSRPRV3;_ ! SAMP RETURNED PRV3 N 7.2 593 !
10100 ^COS1 000009F2 SCOMMDUE$;_ ! COMM DUE FLAG S 1 602 !
10200 ^COS1 000009F7 SINVRPT$;_ ! INVOICE REPRINT S 1 603 !
10300 ^COS1 000009FC STERRBE$;_ ! TERR BERG S 1 604 !
10400 ^COS1 00000A01 SSHRTNM$;_ ! SHORT NAME S 9 605 !
10500 ^COS1 00000A06 SSRTFLD$;_ ! SORT FIELD S 3 614 !
10600 ^COS1 00000A0B SEMAIL$;_ ! S 60 617 !
10700 ^COS1 00000A10 SWCFLAG$;_ ! WST CST FLG S 1 677 !
10800 ^COS1 00000A15 SCOMMC;_ ! COMM% CONTRACT N 4.2 678 !
10900 ^COS1 00000A1A SOTCREP$;_ ! ORDER TRACK CONS REP ID S 3 684 !
11000 ^COS1 00000A1F SOTMREP$;_ ! ORDER TRACK MASTER REP ID S 3 687 !
11100 ^COS1 00000A24 SFIL0400$ ! FILLER S 66 690 !
11200 ^COS1 00000A2A ! !
11300 ^COS1 00000A2A !====================================================================!
5680 %SHMYOPA 00000A2A USE '^COZ1' !0990 - SYSTEM
100 ^COZ1 00000A2A ! !
200 ^COZ1 00000A2A !===========================> ^COZ1 <==============================!
300 ^COZ1 00000A2A ! !
400 ^COZ1 00000A2A ! File Format & Length Declaratives !
500 ^COZ1 00000A2A ! !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 19
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
600 ^COZ1 00000A2A ! File Name: Z1 SYSTEM FILE !
700 ^COZ1 00000A2A ! !
800 ^COZ1 00000A2A ! Type: K Record: 512 Key: 32 Image: N !
900 ^COZ1 00000A2A ! !
1000 ^COZ1 00000A2A ! #FILES File Name: SYSTEM.FILE Date: 11/01/06 !
1100 ^COZ1 00000A2A ! !
1200 ^COZ1 00000A2A !--------------------------------------------------------------------!
1300 ^COZ1 00000A2A ! !
1400 ^COZ1 00000A2A ! !
1500 ^COZ1 00000A2A LENGTH 1.0 & LOCAL ZREPFLG !
1600 ^COZ1 00000A2A LENGTH 2.0 & LOCAL ZFMM,ZMOCRED,ZREMOTE !
1700 ^COZ1 00000A2A LENGTH 2.0 & LOCAL ZHNDPCT,ZDELDYO !
1800 ^COZ1 00000A2A LENGTH 3.0 & LOCAL ZMAXUPS,ZPASTDUE,ZPDDYS !
1900 ^COZ1 00000A2A LENGTH 4.0 & LOCAL ZCLAMT !
2000 ^COZ1 00000A2A LENGTH 4.2 & LOCAL ZFRTMIN,ZPCKCHG !
2100 ^COZ1 00000A2A LENGTH 5.0 & LOCAL ZPAYLIM !
2200 ^COZ1 00000A2A LENGTH 1 & LOCAL ZACKFLG$,ZARAUDT$,ZINVAUDT$ !
2300 ^COZ1 00000A2A LENGTH 1 & LOCAL ZBRKFLG$,ZCNLDISP$,ZCNL7$ !
2400 ^COZ1 00000A2A LENGTH 1 & LOCAL ZCUTYRD$,ZDIBC$,ZDIEML$ !
2500 ^COZ1 00000A2A LENGTH 1 & LOCAL ZDISCAN$,ZEDRFLG$,ZFRTYDLB$ !
2600 ^COZ1 00000A2A LENGTH 1 & LOCAL ZFURNACT$,ZFEVENT$,ZKEBAT$ !
2700 ^COZ1 00000A2A LENGTH 1 & LOCAL ZLPDSPLY$,ZMENU$,ZMULTIWH$ !
2800 ^COZ1 00000A2A LENGTH 1 & LOCAL ZCFAFLOE$,ZORDLIM$ !
2900 ^COZ1 00000A2A LENGTH 1 & LOCAL ZOTBCFLG$,ZPCKFLG$,ZPTRDLG$ !
3000 ^COZ1 00000A2A LENGTH 1 & LOCAL ZPT$,ZQCLOT$,ZRNDFRT$ !
3100 ^COZ1 00000A2A LENGTH 1 & LOCAL ZUPDC1A$ !
3200 ^COZ1 00000A2A LENGTH 2 & LOCAL ZCENT$,ZZCO$,ZCOID$ !
3300 ^COZ1 00000A2A LENGTH 2 & LOCAL ZSTATE$,ZCURRCD$,ZUNUSED2$ !
3400 ^COZ1 00000A2A LENGTH 3 & LOCAL ZPART1$,ZEXP$,ZDIBCLPT$ !
3500 ^COZ1 00000A2A LENGTH 3 & LOCAL ZFXD$,ZPARTMEM$,ZMLP$ !
3600 ^COZ1 00000A2A LENGTH 3 & LOCAL ZLOC$,ZINIT$,ZLP$,ZRMD$ !
3700 ^COZ1 00000A2A LENGTH 3 & LOCAL ZREPDEF$ !
3800 ^COZ1 00000A2A LENGTH 5 & LOCAL ZJULIAN$ !
3900 ^COZ1 00000A2A LENGTH 6 & LOCAL ZAGED6$ !
4000 ^COZ1 00000A2A LENGTH 8 & LOCAL ZAGED$,ZRESDTE8$,ZCFADTE8$ !
4100 ^COZ1 00000A2A LENGTH 8 & LOCAL ZDATE8$ !
4200 ^COZ1 00000A2A LENGTH 9 & LOCAL ZFILLER$ !
4300 ^COZ1 00000A2A LENGTH 10 & LOCAL ZZIP$,ZORDDTE$,ZRESDTE$ !
4400 ^COZ1 00000A2A LENGTH 10 & LOCAL ZCFADTE$,ZDATE$ !
4500 ^COZ1 00000A2A LENGTH 11 & LOCAL ZSHPVIA$ !
4600 ^COZ1 00000A2A LENGTH 12 & LOCAL ZPHONE$,ZFAXNO$ !
4700 ^COZ1 00000A2A LENGTH 15 & LOCAL ZADR3$,ZFOBOE$ !
4800 ^COZ1 00000A2A LENGTH 20 & LOCAL ZFRTTRM$ !
4900 ^COZ1 00000A2A LENGTH 21 & LOCAL ZCITY$ !
5000 ^COZ1 00000A2A LENGTH 25 & LOCAL ZADR1$,ZADR2$,ZNAME25$ !
5100 ^COZ1 00000A2A LENGTH 27 & LOCAL ZDOWEXP$ !
5200 ^COZ1 00000A2A LENGTH 32 & LOCAL ZZKEYZ1$ !
5300 ^COZ1 00000A2A LENGTH 35 & LOCAL ZNAME$ !
5400 ^COZ1 00000A2A ! !
5500 ^COZ1 00000A2A ! !
5600 ^COZ1 00000A2A ! Description Type Len Pos !
5700 ^COZ1 00000A2A ! ------------------------------------------!
5800 ^COZ1 00000A2A 0990 FORMAT _ !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 20
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
5900 ^COZ1 00000A2A ZDATE8$;_ ! TODAYS DATE 8 S 8 0 !
6000 ^COZ1 00000A2F ZDOWEXP$;_ ! DATE EXPANDED S 27 8 !
6100 ^COZ1 00000A34 ZLP$;_ ! PRINTER S 3 35 !
6200 ^COZ1 00000A39 ZPT$;_ ! PRINTER TYPE S 1 38 !
6300 ^COZ1 00000A3E ZNAME25$;_ ! NAME S 25 39 !
6400 ^COZ1 00000A43 ZADR1$;_ ! ADDRESS 1 S 25 64 !
6500 ^COZ1 00000A48 ZADR2$;_ ! ADDRESS 2 S 25 89 !
6600 ^COZ1 00000A4D ZCITY$;_ ! CITY S 21 114 !
6700 ^COZ1 00000A52 ZSTATE$;_ ! STATE S 2 135 !
6800 ^COZ1 00000A57 ZZIP$;_ ! ZIP S 10 137 !
6900 ^COZ1 00000A5C ZADR3$;_ ! ADDRESS 3 S 15 147 !
7000 ^COZ1 00000A61 ZPHONE$;_ ! PHONE S 12 162 !
7100 ^COZ1 00000A66 ZAGED6$;_ ! AGING NUMERIC DATE6 S 6 174 !
7200 ^COZ1 00000A6B ZJULIAN$;_ ! JULIAN DATE S 5 180 !
7300 ^COZ1 00000A70 ZCOID$;_ ! COMPANY ID S 2 185 !
7400 ^COZ1 00000A75 ZREMOTE;_ ! REMOTE FLAG, 0=NONE N 2.0 187 !
7500 ^COZ1 00000A7A ZUNUSED2$;_ ! 2 UNUSED BYTES S 2 191 !
7600 ^COZ1 00000A7F ZLOC$;_ ! MEMO SAMPLE LOC S 3 193 !
7700 ^COZ1 00000A84 ZZCO$;_ ! COMPANY CODE S 2 196 !
7800 ^COZ1 00000A89 ZFXD$;_ ! FIXED DISC S 3 198 !
7900 ^COZ1 00000A8E ZRMD$;_ ! REMOVABLE DISC S 3 201 !
8000 ^COZ1 00000A93 ZPART1$;_ ! BACKROUND PARTITION S 3 204 !
8100 ^COZ1 00000A98 ZRESDTE8$;_ ! RESERVE CANCEL DATE S 8 207 !
8200 ^COZ1 00000A9D ZCFADTE8$;_ ! RESERVE CFA CANCEL S 8 215 !
8300 ^COZ1 00000AA2 ZHNDPCT;_ ! RESTOCKING PCT N 2.0 223 !
8400 ^COZ1 00000AA7 ZPCKCHG;_ ! PACKAGING CHARGE N 4.2 227 !
8500 ^COZ1 00000AAC ZPCKFLG$;_ ! PACKAGING CHARGE S 1 233 !
8600 ^COZ1 00000AB1 ZDELDYO;_ ! ADDITIONAL SHIP DAY N 2.0 234 !
8700 ^COZ1 00000AB6 ZPASTDUE;_ ! PAST DUE DAYS N 3.0 238 !
8800 ^COZ1 00000ABB ZFMM;_ ! FISCAL MONTH N 2.0 243 !
8900 ^COZ1 00000AC0 ZMOCRED;_ ! MONTHS WITH NO SALE N 2.0 247 !
9000 ^COZ1 00000AC5 ZREPFLG;_ ! RESTRICT REP FLAG N 1.0 251 !
9100 ^COZ1 00000ACA ZEXP$;_ ! DICT DIRECTORY S 3 254 !
9200 ^COZ1 00000ACF ZREPDEF$;_ ! RESTRICTED REP ID S 3 257 !
9300 ^COZ1 00000AD4 ZDATE$;_ ! TODAYS DATE 10 S 10 260 !
9400 ^COZ1 00000AD9 ZAGED$;_ ! AGING NUMERIC DATE8 S 8 270 !
9500 ^COZ1 00000ADE ZCENT$;_ ! CENTURY S 2 278 !
9600 ^COZ1 00000AE3 ZINIT$;_ ! INITIALS S 3 280 !
9700 ^COZ1 00000AE8 ZNAME$;_ ! COMPANY NAME S 35 283 !
9800 ^COZ1 00000AED ZFRTMIN;_ ! MINIMUM FRT PER ORD N 4.2 318 !
9900 ^COZ1 00000AF2 ZPARTMEM$;_ ! MEMO PRINT PART S 3 324 !
10000 ^COZ1 00000AF7 ZRESDTE$;_ ! RESERVE CANCEL DATE S 10 327 !
10100 ^COZ1 00000AFC ZCFADTE$;_ ! RESERVE CFA CANCEL S 10 337 !
10200 ^COZ1 00000B01 ZLPDSPLY$;_ ! LOT PIECE DSPLY S 1 347 !
10300 ^COZ1 00000B06 ZPAYLIM;_ ! CR CHK PAYMENT LIMIT N 5.0 348 !
10400 ^COZ1 00000B0B ZORDDTE$;_ ! ORDER CANCEL DATE S 10 355 !
10500 ^COZ1 00000B10 ZORDLIM$;_ ! ORDER CR LIM CHK S 1 365 !
10600 ^COZ1 00000B15 ZMULTIWH$;_ ! MULTI WRHSE S 1 366 !
10700 ^COZ1 00000B1A ZCFAFLOE$;_ ! OE CFA FLG S 1 367 !
10800 ^COZ1 00000B1F ZCNLDISP$;_ ! CNL LOOKUP S 1 368 !
10900 ^COZ1 00000B24 ZQCLOT$;_ ! LOT NUMBER DEFAULT S 1 369 !
11000 ^COZ1 00000B29 ZFOBOE$;_ ! OE FOB DEFAULT S 15 370 !
11100 ^COZ1 00000B2E ZMAXUPS;_ ! MAX UPS WGHT PKG N 3.0 385 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 21
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
11200 ^COZ1 00000B33 ZFAXNO$;_ ! FAX NUMBER S 12 390 !
11300 ^COZ1 00000B38 ZFRTTRM$;_ ! QE FRT TERM DEFAULT S 20 402 !
11400 ^COZ1 00000B3D ZKEBAT$;_ ! KE BATCH OPTION S 1 422 !
11500 ^COZ1 00000B42 ZFRTYDLB$;_ ! FRT CALC S 1 423 !
11600 ^COZ1 00000B47 ZEDRFLG$;_ ! EDR FLG S 1 424 !
11700 ^COZ1 00000B4C ZMENU$;_ ! MENU CODE S 1 425 !
11800 ^COZ1 00000B51 ZACKFLG$;_ ! ACK FLG S 1 426 !
11900 ^COZ1 00000B56 ZMLP$;_ ! MEMO PRNTR S 3 427 !
12000 ^COZ1 00000B5B ZCUTYRD$;_ ! CUT YARDAGE USER S 1 430 !
12100 ^COZ1 00000B60 ZSHPVIA$;_ ! SHIP VIA S 11 431 !
12200 ^COZ1 00000B65 ZCLAMT;_ ! CRED LIM CHK AMT N 4.0 442 !
12300 ^COZ1 00000B6A ZPDDYS;_ ! PAST DUE ORDER DAYS N 3.0 448 !
12400 ^COZ1 00000B6F ZFEVENT$;_ ! FURNITURE EVENT S 1 453 !
12500 ^COZ1 00000B74 ZCURRCD$;_ ! CURRENCY CODE S 2 454 !
12600 ^COZ1 00000B79 ZARAUDT$;_ ! A/R AUDIT FLAG S 1 456 !
12700 ^COZ1 00000B7E ZRNDFRT$;_ ! ROUND FREIGHT? S 1 457 !
12800 ^COZ1 00000B83 ZUPDC1A$;_ ! UPDATE C1A? S 1 458 !
12900 ^COZ1 00000B88 ZFURNACT$;_ ! FURN ACCT S 1 459 !
13000 ^COZ1 00000B8D ZOTBCFLG$;_ ! OTBC FLAG S 1 460 !
13100 ^COZ1 00000B92 ZDISCAN$;_ ! DOC IMAGING SCAN FLAG S 1 461 !
13200 ^COZ1 00000B97 ZDIEML$;_ ! DOC IMAGING EMAIL FLAG S 1 462 !
13300 ^COZ1 00000B9C ZDIBC$;_ ! DOC IMAGING BARCODE FLAG S 1 463 !
13400 ^COZ1 00000BA1 ZDIBCLPT$;_ ! DOC IMAGING B/C PRINTER S 3 464 !
13500 ^COZ1 00000BA6 ZCNL7$;_ ! CNL PHONE FLAG S 1 467 !
13600 ^COZ1 00000BAB ZBRKFLG$;_ ! BROKER COST FLAG S 1 468 !
13700 ^COZ1 00000BB0 ZPTRDLG$;_ ! USE PRINTER DIALOG BOX S 1 469 !
13800 ^COZ1 00000BB5 ZINVAUDT$;_ ! AUDIT INV FLAG S 1 470 !
13900 ^COZ1 00000BBA ZFILLER$;_ ! FILLER S 9 471 !
14000 ^COZ1 00000BBF ZZKEYZ1$ ! KEY Z1 S 32 480 !
14100 ^COZ1 00000BC5 ! !
14200 ^COZ1 00000BC5 !====================================================================!
5700 %SHMYOPA 00000BC5 USE '^COO1P' !0803 - OT LOOK
1000 ^COO1P 00000BC5 ! !
1100 ^COO1P 00000BC5 !************************* ^COO1P *******************************!
1200 ^COO1P 00000BC5 ! !
1300 ^COO1P 00000BC5 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWO1P TYPE: K !
1400 ^COO1P 00000BC5 ! !
1500 ^COO1P 00000BC5 ! DOCUMENTS.RELEASES REC SIZE: 63 !
1600 ^COO1P 00000BC5 ! KEY SIZE: 21 !
1700 ^COO1P 00000BC5 ! !
1800 ^COO1P 00000BC5 ! #FILE NAME: DOCUMENT.RELEAS DATE: 07/22/92 !
1900 ^COO1P 00000BC5 ! !
1910 ^COO1P 00000BC5 ! BY: CRITERION DESIGN & PROGRAMMING LTD. !
1920 ^COO1P 00000BC5 ! !
2000 ^COO1P 00000BC5 !********************************************************************!
2100 ^COO1P 00000BC5 ! !
2200 ^COO1P 00000BC5 ! FILE STATEMENT !
2300 ^COO1P 00000BC5 ! !
2400 ^COO1P 00000BC5 !!!!FILE 'WWO1P', 63 !
2500 ^COO1P 00000BC5 ! !
2600 ^COO1P 00000BC5 ! VARIABLE DECLARATIONS: !
2700 ^COO1P 00000BC5 ! !
2800 ^COO1P 00000BC5 LENGTH 1 & LOCAL ORECTYP$ !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 22
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2900 ^COO1P 00000BC5 LENGTH 3 & LOCAL OOPINIT$,ORIGIN$ !
3000 ^COO1P 00000BC5 LENGTH 8 & LOCAL ORECDTE8$ !
3100 ^COO1P 00000BC5 LENGTH 9 & LOCAL ORNBR$ !
3100 ^COO1P *****BC5 Variable 'ORNBR$ ' has been previously declared
3200 ^COO1P 00000BC5 LENGTH 11 & LOCAL ORMCODE$ !
3300 ^COO1P 00000BC5 LENGTH 20 & LOCAL OCOMMENT$ !
3400 ^COO1P 00000BC5 ! !
3500 ^COO1P 00000BC5 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION!
3600 ^COO1P 00000BC5 ! !
3700 ^COO1P 00000BC5 0803 FORMAT _ !
3800 ^COO1P 00000BC5 ORNBR$;_ ! ORDER NUMBER S 9 0 !
3900 ^COO1P 00000BCA ORECTYP$;_ ! Document/Release S 1 9 !
4000 ^COO1P 00000BCF ORECDTE8$;_ ! YYYYMMDD S 8 10 !
4100 ^COO1P 00000BD4 ORIGIN$;_ ! ORIGIN OF RECORD S 3 18 !
4200 ^COO1P 00000BD9 OCOMMENT$;_ ! COMMENT S 20 21 !
4300 ^COO1P 00000BDE OOPINIT$;_ ! OPERATOR INITIALS S 3 41 !
4400 ^COO1P 00000BE3 ORMCODE$ ! MESS CODE S 11 44 !
4500 ^COO1P 00000BE9 ! !
4600 ^COO1P 00000BE9 !********************************************************************!
5705 %SHMYOPA 00000BE9 USE '^COQ1'
100 ^COQ1 00000BE9 ! !
200 ^COQ1 00000BE9 !===========================> ^COQ1 <==============================!
300 ^COQ1 00000BE9 ! !
400 ^COQ1 00000BE9 ! File Format & Length Declaratives !
500 ^COQ1 00000BE9 ! !
600 ^COQ1 00000BE9 ! File Name: WWQ1 MILL PURCHASE ORDER DETAIL (L !
700 ^COQ1 00000BE9 ! !
800 ^COQ1 00000BE9 ! Type: K Record: 378 Key: 12 Image: N !
900 ^COQ1 00000BE9 ! !
1000 ^COQ1 00000BE9 ! #FILES File Name: P.O.MILL.D Date: 03/22/99 !
1100 ^COQ1 00000BE9 ! !
1200 ^COQ1 00000BE9 !--------------------------------------------------------------------!
1300 ^COQ1 00000BE9 ! !
1400 ^COQ1 00000BE9 ! !
1500 ^COQ1 00000BE9 LENGTH 6.2 & LOCAL QDUTYCST,QESTFRT,QQTYMRCV !
1600 ^COQ1 00000BE9 LENGTH 6.2 & LOCAL QMSCCST,QORIGQTY,QQTYORD !
1700 ^COQ1 00000BE9 LENGTH 6.2 & LOCAL QPOQTY,QQTYAL,QQTYBOD !
1800 ^COQ1 00000BE9 LENGTH 6.2 & LOCAL QQTYINV,QQTYRCV !
1900 ^COQ1 00000BE9 LENGTH 7.2 & LOCAL QCOST !
2000 ^COQ1 00000BE9 LENGTH 9.2 & LOCAL QEXT,QPCOST !
2100 ^COQ1 00000BE9 LENGTH 11.2 & LOCAL QPEXT !
2200 ^COQ1 00000BE9 LENGTH 1 & LOCAL QAPBILLD$,QINVCE$,XSTATUS$ !
2300 ^COQ1 00000BE9 LENGTH 3 & LOCAL QLINE$,QWHSEQ1$ !
2400 ^COQ1 00000BE9 LENGTH 5 & LOCAL QPOUNIT$ !
2500 ^COQ1 00000BE9 LENGTH 6 & LOCAL QLOTNBR$,QSEQ$ !
2600 ^COQ1 00000BE9 LENGTH 8 & LOCAL QSTATUS$ !
2700 ^COQ1 00000BE9 LENGTH 9 & LOCAL QORNBR$ !
2800 ^COQ1 00000BE9 LENGTH 10 & LOCAL QDTERCVD$,QINVDTE$,QMOSDTE$ !
2900 ^COQ1 00000BE9 LENGTH 10 & LOCAL QMSHPDTE$,QOSHPDTE$ !
3000 ^COQ1 00000BE9 LENGTH 10 & LOCAL QORDATE$ !
3100 ^COQ1 00000BE9 LENGTH 14 & LOCAL QINBR$ !
3200 ^COQ1 00000BE9 LENGTH 50 & LOCAL QCMNT$ !
3300 ^COQ1 00000BE9 LENGTH 79 & LOCAL QFIL0095$ !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 23
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
3400 ^COQ1 00000BE9 ! !
3500 ^COQ1 00000BE9 ! !
3600 ^COQ1 00000BE9 ! Description Type Len Pos !
3700 ^COQ1 00000BE9 ! ------------------------------------------!
3800 ^COQ1 00000BE9 0095 FORMAT _ !
3900 ^COQ1 00000BE9 QORNBR$;_ ! P.O. # S 9 0 !
4000 ^COQ1 00000BEE QLINE$;_ ! LINE # S 3 9 !
4100 ^COQ1 00000BF3 QINBR$;_ ! ITEM # S 14 12 !
4200 ^COQ1 00000BF8 QORDATE$;_ ! ORDER DATE S 10 26 !
4300 ^COQ1 00000BFD QPOQTY;_ ! P.O. QTY ORDERED N 6.2 36 !
4400 ^COQ1 00000C02 QPOUNIT$;_ ! P.O. UNIT MEASURE S 5 44 !
4500 ^COQ1 00000C07 QPCOST;_ ! P.O COST N 9.2 49 !
4600 ^COQ1 00000C0C QPEXT;_ ! P.O. EXTENSION N 11.2 60 !
4700 ^COQ1 00000C11 QMOSDTE$;_ ! MILLS ORIG SHIP DATE S 10 73 !
4800 ^COQ1 00000C16 QMSHPDTE$;_ ! MILL SHIP DATE S 10 83 !
4900 ^COQ1 00000C1B QOSHPDTE$;_ ! OUR SHIP DATE S 10 93 !
5000 ^COQ1 00000C20 QDTERCVD$;_ ! DATE RECEIVED S 10 103 !
5100 ^COQ1 00000C25 XSTATUS$;_ ! STATUS S 1 113 !
5200 ^COQ1 00000C2A QCMNT$;_ ! COMMENT S 50 114 !
5300 ^COQ1 00000C2F QINVCE$;_ ! INV FLG S 1 164 !
5400 ^COQ1 00000C34 QQTYORD;_ ! QTY ORDERED N 6.2 165 !
5500 ^COQ1 00000C39 QQTYAL;_ ! QTY ALLOCATED TO SALES N 6.2 173 !
5600 ^COQ1 00000C3E QQTYRCV;_ ! QTY RCVD N 6.2 181 !
5700 ^COQ1 00000C43 QQTYBOD;_ ! QTY BCKORD N 6.2 189 !
5800 ^COQ1 00000C48 QQTYINV;_ ! QTY INVOICED FROM MILL N 6.2 197 !
5900 ^COQ1 00000C4D QORIGQTY;_ ! ORIGINAL QTY ORDERE N 6.2 205 !
6000 ^COQ1 00000C52 QCOST;_ ! UNIT COST DOLLARS N 7.2 213 !
6100 ^COQ1 00000C57 QEXT;_ ! EXTENSION DOLLARS N 9.2 222 !
6200 ^COQ1 00000C5C QDUTYCST;_ ! DUTY COST N 6.2 233 !
6300 ^COQ1 00000C61 QESTFRT;_ ! ESTIMATED FREIGHT N 6.2 241 !
6400 ^COQ1 00000C66 QMSCCST;_ ! MSC COST N 6.2 249 !
6500 ^COQ1 00000C6B QINVDTE$;_ ! INVOICE DATE S 10 257 !
6600 ^COQ1 00000C70 QAPBILLD$;_ ! A.P. BILL FLAG S 1 267 !
6700 ^COQ1 00000C75 QSEQ$;_ ! SEQUENCE S 6 268 !
6800 ^COQ1 00000C7A QWHSEQ1$;_ ! WHSE S 3 274 !
6900 ^COQ1 00000C7F QQTYMRCV;_ ! QTY RECVD MILL UNITS N 6.2 277 !
7000 ^COQ1 00000C84 QSTATUS$;_ ! CONF # S 8 285 !
7100 ^COQ1 00000C89 QLOTNBR$;_ ! RUN # S 6 293 !
7200 ^COQ1 00000C8E QFIL0095$ ! FILLER S 79 299 !
7300 ^COQ1 00000C94 ! !
7400 ^COQ1 00000C94 !====================================================================!
5707 %SHMYOPA 00000C94 USE '^COV1'
100 ^COV1 00000C94 ! !
200 ^COV1 00000C94 !===========================> ^COV1 <==============================!
300 ^COV1 00000C94 ! !
400 ^COV1 00000C94 ! File Format & Length Declaratives !
500 ^COV1 00000C94 ! !
600 ^COV1 00000C94 ! File Name: WWV1 VENDOR MASTER FILE !
700 ^COV1 00000C94 ! !
800 ^COV1 00000C94 ! Type: K Record: 756 Key: 05 Image: N !
900 ^COV1 00000C94 ! !
1000 ^COV1 00000C94 ! #FILES File Name: VENDOR.MASTER Date: 11/07/01 !
1100 ^COV1 00000C94 ! !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 24
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1200 ^COV1 00000C94 !--------------------------------------------------------------------!
1300 ^COV1 00000C94 ! !
1400 ^COV1 00000C94 ! !
1500 ^COV1 00000C94 LENGTH 3.0 & LOCAL VSHPDAYS !
1600 ^COV1 00000C94 LENGTH 4.0 & LOCAL VYCRNUM,VYINVNUM,VYPAYNUM !
1700 ^COV1 00000C94 LENGTH 9.2 & LOCAL VLCKAMT,VLPOAMT,VMINVAMT !
1800 ^COV1 00000C94 LENGTH 9.2 & LOCAL VMPAYAMT,VYCRAMT,VYDSCERN !
1900 ^COV1 00000C94 LENGTH 9.2 & LOCAL VYDSCLST !
2000 ^COV1 00000C94 LENGTH 10.2 & LOCAL VAPBAL,VOPENPO,VPINVAMT !
2100 ^COV1 00000C94 LENGTH 10.2 & LOCAL VPPAYAMT,VYINVAMT,VYPAYAMT !
2200 ^COV1 00000C94 LENGTH 1 & LOCAL VDRPSHP$,V1099$,VFORDOM$ !
2300 ^COV1 00000C94 LENGTH 1 & LOCAL VINTERCO$,VPHTP1$,VPHTP2$ !
2400 ^COV1 00000C94 LENGTH 1 & LOCAL VPHTP3$ !
2500 ^COV1 00000C94 LENGTH 2 & LOCAL VTERMSCD$ !
2600 ^COV1 00000C94 LENGTH 3 & LOCAL VSTATE$ !
2700 ^COV1 00000C94 LENGTH 4 & LOCAL VEXT1$,VEXT2$,VEXT3$ !
2800 ^COV1 00000C94 LENGTH 5 & LOCAL VCKTOCD$,VPOTOCD$,VNBR$ !
2900 ^COV1 00000C94 LENGTH 6 & LOCAL VCURRCD$ !
3000 ^COV1 00000C94 LENGTH 8 & LOCAL VGLACCT1$,VGLACCT2$ !
3100 ^COV1 00000C94 LENGTH 8 & LOCAL VGLACCT3$ !
3200 ^COV1 00000C94 LENGTH 9 & LOCAL VLCKNBR$,VLPONBR$ !
3300 ^COV1 00000C94 LENGTH 10 & LOCAL VDTEST$,VLCKDT$,VLPODT$ !
3400 ^COV1 00000C94 LENGTH 10 & LOCAL VSORTNM$,VZIP$ !
3500 ^COV1 00000C94 LENGTH 12 & LOCAL VBEGL1$,VBEGL2$,VTAXID$ !
3600 ^COV1 00000C94 LENGTH 12 & LOCAL VPHON1$,VPHON2$,VPHON3$ !
3700 ^COV1 00000C94 LENGTH 15 & LOCAL VCOUNTRY$,VSHIPVIA$,VTELEX$ !
3800 ^COV1 00000C94 LENGTH 15 & LOCAL VTRMDSCO$,VCITY$ !
3900 ^COV1 00000C94 LENGTH 17 & LOCAL VCNBR$ !
4000 ^COV1 00000C94 LENGTH 25 & LOCAL VADR1$,VADR2$,VATTN$ !
4100 ^COV1 00000C94 LENGTH 25 & LOCAL VNAME$ !
4200 ^COV1 00000C94 LENGTH 58 & LOCAL VFILLER$ !
4300 ^COV1 00000C94 LENGTH 60 & LOCAL VEMAIL$ !
4400 ^COV1 00000C94 LENGTH 65 & LOCAL VCOMMENT$ !
4500 ^COV1 00000C94 ! !
4600 ^COV1 00000C94 ! !
4700 ^COV1 00000C94 ! Description Type Len Pos !
4800 ^COV1 00000C94 ! ------------------------------------------!
4900 ^COV1 00000C94 0085 FORMAT _ !
5000 ^COV1 00000C94 VNBR$;_ ! VENDOR ID S 5 0 !
5100 ^COV1 00000C99 VNAME$;_ ! VENDOR NAME S 25 5 !
5200 ^COV1 00000C9E VADR1$;_ ! VENDOR ADDRESS 1 S 25 30 !
5300 ^COV1 00000CA3 VADR2$;_ ! VENDOR ADDRESS 2 S 25 55 !
5400 ^COV1 00000CA8 VCITY$;_ ! VENDOR CITY S 15 80 !
5500 ^COV1 00000CAD VSTATE$;_ ! VENDOR STATE S 3 95 !
5600 ^COV1 00000CB2 VZIP$;_ ! VENDOR ZIP CODE S 10 98 !
5700 ^COV1 00000CB7 VATTN$;_ ! VENDOR ATTENTION S 25 108 !
5800 ^COV1 00000CBC VPHON1$;_ ! VENDOR PHONE 1 S 12 133 !
5900 ^COV1 00000CC1 VEXT1$;_ ! VENDOR EXT 1 S 4 145 !
6000 ^COV1 00000CC6 VPHTP1$;_ ! VENDOR PHONE TYP 1 S 1 149 !
6100 ^COV1 00000CCB VPHON2$;_ ! VENDOR PHONE 2 S 12 150 !
6200 ^COV1 00000CD0 VEXT2$;_ ! VENDOR EXT 2 S 4 162 !
6300 ^COV1 00000CD5 VPHTP2$;_ ! VENDOR PHONE TYP 2 S 1 166 !
6400 ^COV1 00000CDA VPHON3$;_ ! VENDOR PHONE 3 S 12 167 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 25
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
6500 ^COV1 00000CDF VEXT3$;_ ! VENDOR EXT 3 S 4 179 !
6600 ^COV1 00000CE4 VPHTP3$;_ ! VENDOR PHONE TYP 3 S 1 183 !
6700 ^COV1 00000CE9 VINTERCO$;_ ! INTERCO CODE S 1 184 !
6800 ^COV1 00000CEE V1099$;_ ! 1099 FLAG S 1 185 !
6900 ^COV1 00000CF3 VTAXID$;_ ! TAX ID # S 12 186 !
7000 ^COV1 00000CF8 VTERMSCD$;_ ! TERMS CODE S 2 198 !
7100 ^COV1 00000CFD VTELEX$;_ ! TELEX # S 15 200 !
7200 ^COV1 00000D02 VCKTOCD$;_ ! SEND CHK TO S 5 215 !
7300 ^COV1 00000D07 VPOTOCD$;_ ! SEND P/O TO S 5 220 !
7400 ^COV1 00000D0C VFORDOM$;_ ! FOREIGN DOMESTIC S 1 225 !
7500 ^COV1 00000D11 VCURRCD$;_ ! CURRENCY CODE S 6 226 !
7600 ^COV1 00000D16 VGLACCT1$;_ ! G/L ACCOUNT 1 S 8 232 !
7700 ^COV1 00000D1B VGLACCT2$;_ ! G/L ACCOUNT 2 S 8 240 !
7800 ^COV1 00000D20 VGLACCT3$;_ ! G/L ACCOUNT 3 S 8 248 !
7900 ^COV1 00000D25 VDTEST$;_ ! DATE ESTABLISHED S 10 256 !
8000 ^COV1 00000D2A VSORTNM$;_ ! SORT NAME S 10 266 !
8100 ^COV1 00000D2F VOPENPO;_ ! OPEN P/O AMOUNT N 10.2 276 !
8200 ^COV1 00000D34 VAPBAL;_ ! OPEN A/P BALANCE N 10.2 288 !
8300 ^COV1 00000D39 VMINVAMT;_ ! MTD INVOICE AMT N 9.2 300 !
8400 ^COV1 00000D3E VYINVAMT;_ ! YTD INVOICE AMOUNT N 10.2 311 !
8500 ^COV1 00000D43 VPINVAMT;_ ! PREV YR INVOICE AMOUNT N 10.2 323 !
8600 ^COV1 00000D48 VYINVNUM;_ ! YTD # INV N 4.0 335 !
8700 ^COV1 00000D4D VMPAYAMT;_ ! MTD PAYMENT AMOUNT N 9.2 341 !
8800 ^COV1 00000D52 VYPAYAMT;_ ! YTD PAYMENT AMOUNT N 10.2 352 !
8900 ^COV1 00000D57 VPPAYAMT;_ ! PREV PAYMENT AMOUNT N 10.2 364 !
9000 ^COV1 00000D5C VYPAYNUM;_ ! YTD # CHKS N 4.0 376 !
9100 ^COV1 00000D61 VLPODT$;_ ! LAST P/O DATE S 10 382 !
9200 ^COV1 00000D66 VLPOAMT;_ ! LAST P/O AMOUNT N 9.2 392 !
9300 ^COV1 00000D6B VLPONBR$;_ ! LAST P/O NUMBER S 9 403 !
9400 ^COV1 00000D70 VLCKDT$;_ ! LAST CK DATE S 10 412 !
9500 ^COV1 00000D75 VLCKAMT;_ ! LAST CK AMOUNT N 9.2 422 !
9600 ^COV1 00000D7A VLCKNBR$;_ ! LAST CK NUMBER S 9 433 !
9700 ^COV1 00000D7F VYDSCERN;_ ! YTD DISCOUNTS EARNED N 9.2 442 !
9800 ^COV1 00000D84 VYDSCLST;_ ! YTD DISCOUNTS LOST N 9.2 453 !
9900 ^COV1 00000D89 VYCRAMT;_ ! YTD CREDIT AMOUNT N 9.2 464 !
10000 ^COV1 00000D8E VYCRNUM;_ ! YTD CREDITS ISSUED N 4.0 475 !
10100 ^COV1 00000D93 VCOUNTRY$;_ ! COUNTRY S 15 481 !
10200 ^COV1 00000D98 VDRPSHP$;_ ! DROP SHIP FLAG S 1 496 !
10300 ^COV1 00000D9D VSHPDAYS;_ ! SHIP DAYS N 3.0 497 !
10400 ^COV1 00000DA2 VTRMDSCO$;_ ! TERMS DESC (OLD) S 15 502 !
10500 ^COV1 00000DA7 VSHIPVIA$;_ ! SHIP VIA S 15 517 !
10600 ^COV1 00000DAC VCOMMENT$;_ ! COMMENT S 65 532 !
10700 ^COV1 00000DB1 VCNBR$;_ ! OUR CUST ID S 17 597 !
10800 ^COV1 00000DB6 VBEGL1$;_ ! BERGAMO GL 1 S 12 614 !
10900 ^COV1 00000DBB VBEGL2$;_ ! BERGAMO GL 2 S 12 626 !
11000 ^COV1 00000DC0 VEMAIL$;_ ! EMAIL ADDRESS S 60 638 !
11100 ^COV1 00000DC5 VFILLER$ ! FILLER S 58 698 !
11200 ^COV1 00000DCB ! !
11300 ^COV1 00000DCB !====================================================================!
5709 %SHMYOPA 00000DCB USE '^COO1S'
1000 ^COO1S 00000DCB ! !
1100 ^COO1S 00000DCB !************************* ^COO1S *******************************!
1200 ^COO1S 00000DCB ! !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 26
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1300 ^COO1S 00000DCB ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWO1S TYPE: K !
1400 ^COO1S 00000DCB ! !
1500 ^COO1S 00000DCB ! SHIPPED PIECES LINE ITEMS REC SIZE: 54 !
1600 ^COO1S 00000DCB ! KEY SIZE: 24 !
1700 ^COO1S 00000DCB ! !
1800 ^COO1S 00000DCB ! #FILE NAME: SHIPPED.PIECES DATE: 08/18/92 !
1900 ^COO1S 00000DCB ! !
1910 ^COO1S 00000DCB ! BY: CRITERION DESIGN & PROGRAMMING LTD. !
1920 ^COO1S 00000DCB ! !
2000 ^COO1S 00000DCB !********************************************************************!
2100 ^COO1S 00000DCB ! !
2200 ^COO1S 00000DCB ! FILE STATEMENT !
2300 ^COO1S 00000DCB ! !
2400 ^COO1S 00000DCB !!!!FILE 'WWO1S', 54 !
2500 ^COO1S 00000DCB ! !
2600 ^COO1S 00000DCB ! VARIABLE DECLARATIONS: !
2700 ^COO1S 00000DCB ! !
2800 ^COO1S 00000DCB LENGTH 6.2 & LOCAL OSHPPCE !
2900 ^COO1S 00000DCB LENGTH 1 & LOCAL O1SFILL$,O1SUPDT$ !
3000 ^COO1S 00000DCB LENGTH 3 & LOCAL OLINE$ !
3000 ^COO1S *****DCB Variable 'OLINE$ ' has been previously declared
3100 ^COO1S 00000DCB LENGTH 6 & LOCAL OLOT$,OPCE$ !
3200 ^COO1S 00000DCB LENGTH 9 & LOCAL ORNBR$ !
3200 ^COO1S *****DCB Variable 'ORNBR$ ' has been previously declared
3300 ^COO1S 00000DCB ! !
3400 ^COO1S 00000DCB ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION!
3500 ^COO1S 00000DCB ! !
3600 ^COO1S 00000DCB 0068 FORMAT _ !
3700 ^COO1S 00000DCB ORNBR$;_ ! ORDER # S 9 0 !
3800 ^COO1S 00000DD0 OLINE$;_ ! LIN NUM S 3 9 !
3900 ^COO1S 00000DD5 OLOT$;_ ! LOT NUMBER S 6 12 !
4000 ^COO1S 00000DDA OPCE$;_ ! PCE NUMBER S 6 18 !
4100 ^COO1S 00000DDF OSHPPCE;_ ! QTY SHPD FROM PCE N 6.2 24 !
4200 ^COO1S 00000DE4 O1SUPDT$;_ ! UPDATE FLAG S 1 32 !
4300 ^COO1S 00000DE9 O1SFILL$ ! FILLER S 1 33 !
4400 ^COO1S 00000DEF ! !
4500 ^COO1S 00000DEF !********************************************************************!
5711 %SHMYOPA 00000DEF USE '^COI1R'
100 ^COI1R 00000DEF ! !
200 ^COI1R 00000DEF !===========================> ^COI1R <=============================!
300 ^COI1R 00000DEF ! !
400 ^COI1R 00000DEF ! File Format & Length Declaratives !
500 ^COI1R 00000DEF ! !
600 ^COI1R 00000DEF ! File Name: WWI1R INVENTORY BY LOT AND PIE !
700 ^COI1R 00000DEF ! !
800 ^COI1R 00000DEF ! Type: K Record: 378 Key: 26 Image: N !
900 ^COI1R 00000DEF ! !
1000 ^COI1R 00000DEF ! #FILES File Name: STOCK.LOT.PIECE Date: 05/14/03 !
1100 ^COI1R 00000DEF ! !
1200 ^COI1R 00000DEF !--------------------------------------------------------------------!
1300 ^COI1R 00000DEF ! !
1400 ^COI1R 00000DEF ! !
1500 ^COI1R 00000DEF LENGTH 6.2 & LOCAL RADJPCE,RADJMTD,RADJQTD !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 27
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1600 ^COI1R 00000DEF LENGTH 6.2 & LOCAL RBOHMTD,RBOHQTR,IBRKCST !
1700 ^COI1R 00000DEF LENGTH 6.2 & LOCAL IDUTYCST,IFINCST,IMSCCST !
1800 ^COI1R 00000DEF LENGTH 6.2 & LOCAL RQOHND,IPRTCST,RQALCTD !
1900 ^COI1R 00000DEF LENGTH 6.2 & LOCAL RQRCVD,RQRETURN,RSHPMTD !
2000 ^COI1R 00000DEF LENGTH 6.2 & LOCAL RSHPPCE,RSHPQTD !
2100 ^COI1R 00000DEF LENGTH 7.2 & LOCAL IMATCST,ICOST !
2200 ^COI1R 00000DEF LENGTH 1 & LOCAL RAVAILPO$,RFRTEST$ !
2300 ^COI1R 00000DEF LENGTH 3 & LOCAL IWHSE$ !
2400 ^COI1R 00000DEF LENGTH 5 & LOCAL RCASE$,RVNBR$ !
2500 ^COI1R 00000DEF LENGTH 6 & LOCAL IRUN$,IPCE$ !
2600 ^COI1R 00000DEF LENGTH 8 & LOCAL RLOC$,RPDATE$ !
2700 ^COI1R 00000DEF LENGTH 9 & LOCAL IQORNBR$ !
2800 ^COI1R 00000DEF LENGTH 10 & LOCAL RRCVDBND$,RRCVDWHS$ !
2900 ^COI1R 00000DEF LENGTH 10 & LOCAL RMILLPCE$ !
3000 ^COI1R 00000DEF LENGTH 12 & LOCAL RENTRY$ !
3100 ^COI1R 00000DEF LENGTH 14 & LOCAL INBR$ !
3100 ^COI1R *****DEF Variable 'INBR$ ' has been previously declared
3200 ^COI1R 00000DEF LENGTH 15 & LOCAL IINVCNBR$ !
3300 ^COI1R 00000DEF LENGTH 40 & LOCAL RCMNT$ !
3400 ^COI1R 00000DEF LENGTH 61 & LOCAL RFIL0210$ !
3500 ^COI1R 00000DEF ! !
3600 ^COI1R 00000DEF ! !
3700 ^COI1R 00000DEF ! Description Type Len Pos !
3800 ^COI1R 00000DEF ! ------------------------------------------!
3900 ^COI1R 00000DEF 0210 FORMAT _ !
4000 ^COI1R 00000DEF INBR$;_ ! ITEM # S 14 0 !
4100 ^COI1R 00000DF4 IRUN$;_ ! LOT # S 6 14 !
4200 ^COI1R 00000DF9 IPCE$;_ ! PCE S 6 20 !
4300 ^COI1R 00000DFE IWHSE$;_ ! WHSE CODE S 3 26 !
4400 ^COI1R 00000E03 IQORNBR$;_ ! P.O.NUMBER S 9 29 !
4500 ^COI1R 00000E08 IINVCNBR$;_ ! INVOICE NUMBER S 15 38 !
4600 ^COI1R 00000E0D RRCVDBND$;_ ! DATE RCVD BOND WHSE S 10 53 !
4700 ^COI1R 00000E12 RRCVDWHS$;_ ! DATE RCVD WHSE S 10 63 !
4800 ^COI1R 00000E17 RMILLPCE$;_ ! MILLS PIECE ID S 10 73 !
4900 ^COI1R 00000E1C RENTRY$;_ ! ENTRY NUMBER S 12 83 !
5000 ^COI1R 00000E21 RCASE$;_ ! CASE ID S 5 95 !
5100 ^COI1R 00000E26 RLOC$;_ ! WHSE LOCATION S 8 100 !
5200 ^COI1R 00000E2B RCMNT$;_ ! COMMENT S 40 108 !
5300 ^COI1R 00000E30 RQOHND;_ ! ON HAND N 6.2 148 !
5400 ^COI1R 00000E35 RQRCVD;_ ! RECEIVED N 6.2 156 !
5500 ^COI1R 00000E3A RQRETURN;_ ! RETURNED N 6.2 164 !
5600 ^COI1R 00000E3F RSHPPCE;_ ! SHIPPED FROM PIECE N 6.2 172 !
5700 ^COI1R 00000E44 RADJPCE;_ ! ADJUSTMENTS PIECE N 6.2 180 !
5800 ^COI1R 00000E49 IMATCST;_ ! MATERIAL COST N 7.2 188 !
5900 ^COI1R 00000E4E IDUTYCST;_ ! DUTY COST N 6.2 197 !
6000 ^COI1R 00000E53 IBRKCST;_ ! BROKER COST N 6.2 205 !
6100 ^COI1R 00000E58 IFINCST;_ ! FINISH COST N 6.2 213 !
6200 ^COI1R 00000E5D IPRTCST;_ ! PRINT COST N 6.2 221 !
6300 ^COI1R 00000E62 IMSCCST;_ ! MISC COST N 6.2 229 !
6400 ^COI1R 00000E67 ICOST;_ ! UNIT CST N 7.2 237 !
6500 ^COI1R 00000E6C RFRTEST$;_ ! ESTIMATED FRT FLAG S 1 246 !
6600 ^COI1R 00000E71 RSHPMTD;_ ! SHIPPED MTD N 6.2 247 !
6700 ^COI1R 00000E76 RSHPQTD;_ ! SHIPPED QTD N 6.2 255 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 28
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
6800 ^COI1R 00000E7B RBOHMTD;_ ! BEG ON HAND THIS MONTH N 6.2 263 !
6900 ^COI1R 00000E80 RBOHQTR;_ ! BEG ON HAND THIS QTR N 6.2 271 !
7000 ^COI1R 00000E85 RADJMTD;_ ! ADJ MTD N 6.2 279 !
7100 ^COI1R 00000E8A RADJQTD;_ ! ADJ QTD N 6.2 287 !
7200 ^COI1R 00000E8F RPDATE$;_ ! LOT PURGE DATE S 8 295 !
7300 ^COI1R 00000E94 RQALCTD;_ ! QTY ALLOCATED N 6.2 303 !
7400 ^COI1R 00000E99 RAVAILPO$;_ ! AVAIL PO FLAG S 1 311 !
7500 ^COI1R 00000E9E RVNBR$;_ ! VENDOR # S 5 312 !
7600 ^COI1R 00000EA3 RFIL0210$ ! FILLER S 61 317 !
7700 ^COI1R 00000EA9 ! !
7800 ^COI1R 00000EA9 !====================================================================!
5720 %SHMYOPA 00000EA9 USE '^ODBCAUD' ! 0897 - ODBC/PDF AUDIT
100 ^ODBCAUD 00000EA9 ! !
200 ^ODBCAUD 00000EA9 !===========================> ^ODBCAUD <===========================!
300 ^ODBCAUD 00000EA9 ! !
400 ^ODBCAUD 00000EA9 ! File Format & Length Declaratives !
500 ^ODBCAUD 00000EA9 ! !
600 ^ODBCAUD 00000EA9 ! File Name: ODPDFAUD ODBC/PDF AUDIT FILE !
700 ^ODBCAUD 00000EA9 ! !
800 ^ODBCAUD 00000EA9 ! Type: K Record: 200 Key: 17 Image: N !
900 ^ODBCAUD 00000EA9 ! !
1000 ^ODBCAUD 00000EA9 ! #FILES File Name: ODBC.PDF.AUDIT Date: 10/30/06 !
1100 ^ODBCAUD 00000EA9 ! !
1200 ^ODBCAUD 00000EA9 !--------------------------------------------------------------------!
1300 ^ODBCAUD 00000EA9 ! !
1400 ^ODBCAUD 00000EA9 ! !
1500 ^ODBCAUD 00000EA9 LENGTH 1 & LOCAL ODAUPAWF$ !
1600 ^ODBCAUD 00000EA9 LENGTH 3 & LOCAL ODAUINIT$,ODAUTERM$ !
1700 ^ODBCAUD 00000EA9 LENGTH 6 & LOCAL ODAUDATE$ !
1800 ^ODBCAUD 00000EA9 LENGTH 8 & LOCAL ODAUPROG$ !
1900 ^ODBCAUD 00000EA9 LENGTH 10 & LOCAL ODAUZEDT$ !
2000 ^ODBCAUD 00000EA9 LENGTH 11 & LOCAL ODAUTIME$ !
2100 ^ODBCAUD 00000EA9 LENGTH 48 & LOCAL ODAUFILL$ !
2200 ^ODBCAUD 00000EA9 LENGTH 100 & LOCAL ODAUMESG$ !
2300 ^ODBCAUD 00000EA9 ! !
2400 ^ODBCAUD 00000EA9 ! !
2500 ^ODBCAUD 00000EA9 ! Description Type Len Pos !
2600 ^ODBCAUD 00000EA9 ! ------------------------------------------!
2700 ^ODBCAUD 00000EA9 0897 FORMAT _ !
2800 ^ODBCAUD 00000EA9 ODAUDATE$;_ ! YYMMDD S 6 0 !
2900 ^ODBCAUD 00000EAE ODAUTIME$;_ ! TIME S 11 6 !
3000 ^ODBCAUD 00000EB3 ODAUZEDT$;_ ! ZE DATE S 10 17 !
3100 ^ODBCAUD 00000EB8 ODAUINIT$;_ ! OPER INIT S 3 27 !
3200 ^ODBCAUD 00000EBD ODAUTERM$;_ ! TERM$ S 3 30 !
3300 ^ODBCAUD 00000EC2 ODAUPROG$;_ ! PROGRAM S 8 33 !
3400 ^ODBCAUD 00000EC7 ODAUPAWF$;_ ! PRINT ANYWAY FLAG S 1 41 !
3500 ^ODBCAUD 00000ECC ODAUMESG$;_ ! ODBC/PDF MESSAGE S 100 42 !
3600 ^ODBCAUD 00000ED1 ODAUFILL$ ! FILLER S 48 142 !
3700 ^ODBCAUD 00000ED7 ! !
3800 ^ODBCAUD 00000ED7 !====================================================================!
5730 %SHMYOPA 00000ED7 USE '^VIDIRS' ! VERIFY IMAGE DIRECTORIES
10000 ^VIDIRS 00000ED7 !====== VERIFY IMAGE DIRECTORIES ARE MAPPED AND FUNCTIONING ======
10002 ^VIDIRS 00000ED7 ! AKA: VLSM - Verify Linux Server Mapping
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 29
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
10010 ^VIDIRS 00000ED7 ! CREATED 01/27/12 JAB
10019 ^VIDIRS 00000ED7 !
10020 ^VIDIRS 00000ED7 .IF DECPASS
10030 ^VIDIRS 00000ED7 LENGTH 2 & LOCAL VLSMAX$, VLSMDX$
10040 ^VIDIRS 00000ED7 LENGTH 6.0 & LOCAL VLSMFUNC, VLSMFILE, VLSMFLAG
10050 ^VIDIRS 00000ED7 LENGTH 200 & LOCAL VLSMSRC$, VLSMDEST$
10052 ^VIDIRS 00000ED7 LENGTH 100 & LOCAL XPATH$
10060 ^VIDIRS 00000ED7 VLSMRESULTFMT: FORMAT VLSMAX$;VLSMDX$
10070 ^VIDIRS 00000EE2 .ENDIF
10080 ^VIDIRS 00000EE2 !
20000 ^VIDIRS 00000EE2 .IF EXEPASS
25510 ^VIDIRS 00000EE2 .ENDIF
5760 %SHMYOPA 00000EE2 !
9000 %SHMYOPA 00000EE2 ! ========== WORK STORAGE ==========
9100 %SHMYOPA 00000EE2 LENGTH 1 & LOCAL TYPE$ , BOFLAG$ , PROFORA$ , LOC$, OPTION$
9140 %SHMYOPA 00000EE2 LENGTH 19 & LOCAL DUP1$, DUP2$
9150 %SHMYOPA 00000EE2 LENGTH 26 & LOCAL TYPE2$
9160 %SHMYOPA 00000EE2 LENGTH 25 & LOCAL XFUNCTION$
9200 %SHMYOPA 00000EE2 LENGTH 3.0 & LOCAL I , XC , DUP , ALL , ERR
9204 %SHMYOPA 00000EE2 LENGTH 3 & LOCAL XIDIR$
9210 %SHMYOPA 00000EE2 LENGTH 1.0 & LOCAL SPECO19,PASS !SPECIAL O19 MESSAGE
9220 %SHMYOPA 00000EE2 LENGTH 1.0 & LOCAL DISFLAG !SPECIAL DISCONTINUE MESSAGE
9300 %SHMYOPA 00000EE2 LENGTH 32 & LOCAL KEYO1$ , KEYM1C$ , KEYO1S$ , KEYI1R$
9310 %SHMYOPA 00000EE2 LENGTH 35 & LOCAL BLANK35$
9320 %SHMYOPA 00000EE2 LENGTH 39 & LOCAL DESC$
9350 %SHMYOPA 00000EE2 LENGTH 12 & LOCAL KEYQ1$, KEYO19$
9400 %SHMYOPA 00000EE2 LENGTH 10 & LOCAL DELDTE$
9450 %SHMYOPA 00000EE2 LENGTH 15 & LOCAL XNAME$ , XTERMS$
9460 %SHMYOPA 00000EE2 LENGTH 4 & LOCAL XSM1$, XSM2$, XPRGM$
9600 %SHMYOPA 00000EE2 LENGTH 8 & LOCAL DEPOSIT$
9602 %SHMYOPA 00000EE2 LENGTH 10 & LOCAL CANDTE$
9610 %SHMYOPA 00000EE2 LENGTH 70 & LOCAL BIGDESC$, X$,TEMP$,SHWREPS$
9640 %SHMYOPA 00000EE2 LENGTH 70 & LOCAL BLANK$, CREDCARD$
9650 %SHMYOPA 00000EE2 LENGTH 8.2 & LOCAL DOLLREQ , GROSS
9652 %SHMYOPA 00000EE2 LENGTH 6.2 & LOCAL SHPPCE
9660 %SHMYOPA 00000EE2 LENGTH 9.2 & LOCAL NET
9700 %SHMYOPA 00000EE2 LENGTH 15 & LOCAL COPY$ !**** LASER JET,
9720 %SHMYOPA 00000EE2 LENGTH 1.0 & LOCAL NUMCOP,NUMCOPY !**** LASER JET,
9740 %SHMYOPA 00000EE2 LENGTH 100 & LOCAL XFILE$
9790 %SHMYOPA 00000EE2 !
9800 %SHMYOPA 00000EE2 USE '^CODTVAR'
100 ^CODTVAR 00000EE2 !
200 ^CODTVAR 00000EE2 ! ========== DATE CHECK VARIABLES ==========
300 ^CODTVAR 00000EE2 LENGTH 10 & LOCAL XDATE$
400 ^CODTVAR 00000EE2 LENGTH 2 & LOCAL XMO$,XDA$,XYR$,XCT$
500 ^CODTVAR 00000EE2 LENGTH 4 & LOCAL XCTYR$
600 ^CODTVAR 00000EE2 LENGTH 1.0 & LOCAL ZDYWK
700 ^CODTVAR 00000EE2 LENGTH 2.0 & LOCAL XDA,XMO,XYR,XCT,DATEOK,XPOS,YPOS
800 ^CODTVAR 00000EE2 LENGTH 3.0 & LOCAL MONTH,DAY,YEAR,LEAPYR,ZDYYR
900 ^CODTVAR 00000EE2 LENGTH 4.0 & LOCAL XCTYR
1000 ^CODTVAR 00000EE2 LENGTH 5.0 & LOCAL XTEMPNO
1100 ^CODTVAR 00000EE2 LENGTH 6.0 & LOCAL ZDYCT
9950 %SHMYOPA 00000EE2 USE '^COUTIL8'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 30
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
100 ^COUTIL8 00000EE2 !=====================================================================
200 ^COUTIL8 00000EE2 LENGTH 68 & LOCAL MESS$
300 ^COUTIL8 00000EE2 LENGTH 3 & LOCAL ZPRTCODE$
302 ^COUTIL8 00000EE2 LENGTH 10 & LOCAL AN$
310 ^COUTIL8 00000EE2 LENGTH 20 & LOCAL ZPRTDESC$ , ZPRTLOC$
400 ^COUTIL8 00000EE2 LENGTH 40 & LOCAL STITLE$
500 ^COUTIL8 00000EE2 LENGTH 8 & LOCAL FLNM$,DT$ , ZLJPROG$
510 ^COUTIL8 00000EE2 LENGTH 12 & LOCAL FLNM12$ !ADED 5/20/04 SEH
600 ^COUTIL8 00000EE2 LENGTH 1.0 & LOCAL LJCONFLG , ZLJPFLAG
605 ^COUTIL8 00000EE2 LENGTH 3.0 & LOCAL AN,POS,LINE,PAGE,LM,PM,TTLPOS,MAXLINE
620 ^COUTIL8 00000EE2 LENGTH 20 & LOCAL CHAR$
640 ^COUTIL8 00000EE2 LENGTH 1 & LOCAL BLIND$,PORL$
700 ^COUTIL8 00000EE2 SET BUSY=33,EOF=2,KEYERR=32
800 ^COUTIL8 00000EE2 !=====================================================================
900 ^COUTIL8 00000EE2 ! FORMAT STATEMENTS
1000 ^COUTIL8 00000EE2 !=====================================================================
1100 ^COUTIL8 00000EE2 90 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM)
1200 ^COUTIL8 00000EFF 91 FORMAT (BF),@(0,23)
1300 ^COUTIL8 00000F08 92 FORMAT (RB),@(0,23)
1500 ^COUTIL8 00000F11 95 FORMAT @(POS,LINE)
1520 ^COUTIL8 00000F1B 96 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM);(BM)
1600 ^COUTIL8 00000F3C 100 FORMAT(CS)
1700 ^COUTIL8 00000F41 110 FORMAT(SB);(BF),@(0,0);ZDATE$,@(0,0);_
1710 ^COUTIL8 00000F57 STITLE$,@(TTLPOS,0);'-';@(70);ZNAME$,10
1720 ^COUTIL8 00000F75 120 FORMAT (CPL80) ! SET FOR 80 CHAR SCREEN
1740 ^COUTIL8 00000F7A 130 FORMAT (CPL64) ! SET FOR 64 CHAR SCREEN
1800 ^COUTIL8 00000F7F !
1810 ^COUTIL8 00000F7F CURSPOSREM: FORMAT (MC) !REMEMBER CURSOR POSITION
1820 ^COUTIL8 00000F84 CURSPOSRES: FORMAT (RC) !RESTORE CURSOR POSITION
1830 ^COUTIL8 00000F89 !
1900 ^COUTIL8 00000F89 SET Z1 = 10
2000 ^COUTIL8 00000F89 !
2010 ^COUTIL8 00000F89 CKPRNTR: FORMAT ZPRTCODE$;_ !PRINTER ID
2011 ^COUTIL8 00000F8E ZLJPFLAG;_ !LASER JET PRINTER FLAG '1'=YES
2012 ^COUTIL8 00000F93 ZPRTDESC$;_ !PRINTER DESCRIPTION
2014 ^COUTIL8 00000F98 ZPRTLOC$ !PRINTER LOCATION
2020 ^COUTIL8 00000F9E !
2022 ^COUTIL8 00000F9E CKLJCOND: FORMAT ZLJPROG$
2122 ^COUTIL8 00000FA4 !
2132 ^COUTIL8 00000FA4 ! THE FOLLOWING FORMAT IS USED BY FORMS PROGRAMS TO DETERMINE THE
2142 ^COUTIL8 00000FA4 ! NUMBER OF LINE FEEDS THE PROGRAM NEEDS TO GET TO THE
2152 ^COUTIL8 00000FA4 ! FIRST PRINT LINE ON THE FORM.
2162 ^COUTIL8 00000FA4 !
2222 ^COUTIL8 00000FA4 LENGTH 32 & LOCAL KEYLF$
2232 ^COUTIL8 00000FA4 LENGTH 2.0 & LOCAL ZLFINIT,ZHPOS
2322 ^COUTIL8 00000FA4 !
2422 ^COUTIL8 00000FA4 FRMLFFMT: FORMAT KEYLF$;_
2522 ^COUTIL8 00000FA9 ZLFINIT;_ !INITIAL LINE FEEDS
2622 ^COUTIL8 00000FAE ZHPOS !HORIZONTAL POSITION FOR LABELS
2722 ^COUTIL8 00000FB4 !
2822 ^COUTIL8 00000FB4 CLEARFOREGROUND: FORMAT _ !ADDED 11/11/2005
2922 ^COUTIL8 00000FB4 (CF)
9960 %SHMYOPA 00000FB9 USE '^PSQLOPF' ! MYSQL FORMATS
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 31
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1000 ^PSQLOPF 00000FB9 ! ^PSQLOPF - MYSQL FILE AND SCREEN FORMATS
1010 ^PSQLOPF 00000FB9 ! CREATED: 01/27/12 JAB for Writing to MySQL Table "OrdInfo"
1020 ^PSQLOPF 00000FB9 ! USED BY: OPA, OP and RP
1090 ^PSQLOPF 00000FB9 !
5310 ^PSQLOPF 00000FB9 !
5312 ^PSQLOPF 00000FB9 USE '^COS1E'
100 ^COS1E 00000FB9 ! !
200 ^COS1E 00000FB9 !===========================> ^COS1E <=============================!
300 ^COS1E 00000FB9 ! !
400 ^COS1E 00000FB9 ! File Format & Length Declaratives !
500 ^COS1E 00000FB9 ! !
600 ^COS1E 00000FB9 ! File Name: WWS1E REPP E-MAIL FILE !
700 ^COS1E 00000FB9 ! !
800 ^COS1E 00000FB9 ! Type: K Record: 252 Key: 3 Image: N !
900 ^COS1E 00000FB9 ! !
1000 ^COS1E 00000FB9 ! #FILES File Name: REP.EMAIL.FILE Date: 11/12/03 !
1100 ^COS1E 00000FB9 ! !
1200 ^COS1E 00000FB9 !--------------------------------------------------------------------!
1300 ^COS1E 00000FB9 ! !
1400 ^COS1E 00000FB9 ! !
1500 ^COS1E 00000FB9 LENGTH 3 & LOCAL SNBR$ !
1500 ^COS1E *****FB9 Variable 'SNBR$ ' has been previously declared
1600 ^COS1E 00000FB9 LENGTH 60 & LOCAL SEMAILA$,SEMAILC1$ !
1700 ^COS1E 00000FB9 LENGTH 60 & LOCAL SEMAILC2$ !
1800 ^COS1E 00000FB9 ! !
1900 ^COS1E 00000FB9 ! !
2000 ^COS1E 00000FB9 ! Description Type Len Pos !
2100 ^COS1E 00000FB9 ! ------------------------------------------!
2200 ^COS1E 00000FB9 0138 FORMAT _ !
2300 ^COS1E 00000FB9 SNBR$;_ ! REP ID S 3 0 !
2400 ^COS1E 00000FBE SEMAILA$;_ ! EMAIL ACCOUNTING S 60 3 !
2500 ^COS1E 00000FC3 SEMAILC1$;_ ! EMAIL CUSTOMER SERVICE 1 S 60 63 !
2600 ^COS1E 00000FC8 SEMAILC2$ ! EMAIL CUSTOMER SERVICE 2 S 60 123 !
2700 ^COS1E 00000FCE ! !
2800 ^COS1E 00000FCE !====================================================================!
5314 ^PSQLOPF 00000FCE USE '^COS1EE'
100 ^COS1EE 00000FCE ! !
200 ^COS1EE 00000FCE !===========================> ^COS1EE <============================!
300 ^COS1EE 00000FCE ! !
400 ^COS1EE 00000FCE ! File Format & Length Declaratives !
500 ^COS1EE 00000FCE ! !
600 ^COS1EE 00000FCE ! File Name: WWS1EE REP EMPLOYEE EMAIL FILE !
700 ^COS1EE 00000FCE ! !
800 ^COS1EE 00000FCE ! Type: K Record: 920 Key: 9 Image: N !
900 ^COS1EE 00000FCE ! !
1000 ^COS1EE 00000FCE ! #FILES File Name: REP.EMAIL.EMPLO Date: 09/16/04 !
1100 ^COS1EE 00000FCE ! !
1200 ^COS1EE 00000FCE !--------------------------------------------------------------------!
1300 ^COS1EE 00000FCE ! !
1400 ^COS1EE 00000FCE ! !
1500 ^COS1EE 00000FCE LENGTH 3 & LOCAL SEMSNBR$,SEMSEQ$ !
1600 ^COS1EE 00000FCE LENGTH 20 & LOCAL SEMPHONE$ !
1700 ^COS1EE 00000FCE LENGTH 35 & LOCAL SEMNAME$ !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 32
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1800 ^COS1EE 00000FCE LENGTH 60 & LOCAL SEMADDR$ !
1900 ^COS1EE 00000FCE LENGTH 74 & LOCAL SEMFILL$ !
2000 ^COS1EE 00000FCE LENGTH 80 & LOCAL SEMCMNT1$,SEMCMNT2$ !
2100 ^COS1EE 00000FCE LENGTH 80 & LOCAL SEMCMNT3$,SEMCMNT4$ !
2200 ^COS1EE 00000FCE LENGTH 80 & LOCAL SEMCMNT5$,SEMCMNT6$ !
2300 ^COS1EE 00000FCE LENGTH 80 & LOCAL SEMCMNT7$,SEMCMNT8$ !
2400 ^COS1EE 00000FCE LENGTH 80 & LOCAL SEMCMNT9$ !
2500 ^COS1EE 00000FCE ! !
2600 ^COS1EE 00000FCE ! !
2700 ^COS1EE 00000FCE ! Description Type Len Pos !
2800 ^COS1EE 00000FCE ! ------------------------------------------!
2900 ^COS1EE 00000FCE 0139 FORMAT _ !
3000 ^COS1EE 00000FCE SEMSNBR$;_ ! REP # S 3 0 !
3100 ^COS1EE 00000FD3 SEMSEQ$;_ ! SEQ # S 3 3 !
3200 ^COS1EE 00000FD8 SEMADDR$;_ ! EMAIL ADDRESS S 60 6 !
3300 ^COS1EE 00000FDD SEMNAME$;_ ! EMPLOYEE NAME S 35 66 !
3400 ^COS1EE 00000FE2 SEMPHONE$;_ ! EMPLOYEE PHONE S 20 101 !
3500 ^COS1EE 00000FE7 SEMCMNT1$;_ ! COMMENT1 S 80 121 !
3600 ^COS1EE 00000FEC SEMCMNT2$;_ ! COMMENT2 S 80 201 !
3700 ^COS1EE 00000FF1 SEMCMNT3$;_ ! COMMENT3 S 80 281 !
3800 ^COS1EE 00000FF6 SEMCMNT4$;_ ! COMMENT4 S 80 361 !
3900 ^COS1EE 00000FFB SEMCMNT5$;_ ! COMMENT5 S 80 441 !
4000 ^COS1EE 00001000 SEMCMNT6$;_ ! COMMENT6 S 80 521 !
4100 ^COS1EE 00001005 SEMCMNT7$;_ ! COMMENT7 S 80 601 !
4200 ^COS1EE 0000100A SEMCMNT8$;_ ! COMMENT8 S 80 681 !
4300 ^COS1EE 0000100F SEMCMNT9$;_ ! COMMENT9 S 80 761 !
4400 ^COS1EE 00001014 SEMFILL$ ! FILLER S 74 841 !
4500 ^COS1EE 0000101A ! !
4600 ^COS1EE 0000101A !====================================================================!
5315 ^PSQLOPF 0000101A USE '^COC1E'
100 ^COC1E 0000101A ! !
200 ^COC1E 0000101A !===========================> ^COC1E <=============================!
300 ^COC1E 0000101A ! !
400 ^COC1E 0000101A ! File Format & Length Declaratives !
500 ^COC1E 0000101A ! !
600 ^COC1E 0000101A ! File Name: WWC1E CUSTOMER EMPLOYEE EMAIL ADDRESSES !
700 ^COC1E 0000101A ! !
800 ^COC1E 0000101A ! Type: K Record: 920 Key: 9 Image: N !
900 ^COC1E 0000101A ! !
1000 ^COC1E 0000101A ! #FILES File Name: CUSTOMER.EMAILS Date: 01/17/02 !
1100 ^COC1E 0000101A ! !
1200 ^COC1E 0000101A !--------------------------------------------------------------------!
1300 ^COC1E 0000101A ! !
1400 ^COC1E 0000101A ! !
1500 ^COC1E 0000101A LENGTH 2 & LOCAL CEMJOBCD$ !
1600 ^COC1E 0000101A LENGTH 3 & LOCAL CEMSEQ$ !
1700 ^COC1E 0000101A LENGTH 6 & LOCAL CEMCNBR$ !
1800 ^COC1E 0000101A LENGTH 20 & LOCAL CEMPHONE$ !
1900 ^COC1E 0000101A LENGTH 35 & LOCAL CEMNAME$ !
2000 ^COC1E 0000101A LENGTH 60 & LOCAL CEMADDR$ !
2100 ^COC1E 0000101A LENGTH 74 & LOCAL CEMFILL$ !
2200 ^COC1E 0000101A LENGTH 80 & LOCAL CEMCMNT1$,CEMCMNT2$ !
2300 ^COC1E 0000101A LENGTH 80 & LOCAL CEMCMNT3$,CEMCMNT4$ !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 33
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2400 ^COC1E 0000101A LENGTH 80 & LOCAL CEMCMNT5$,CEMCMNT6$ !
2500 ^COC1E 0000101A LENGTH 80 & LOCAL CEMCMNT7$,CEMCMNT8$ !
2600 ^COC1E 0000101A LENGTH 80 & LOCAL CEMCMNT9$ !
2700 ^COC1E 0000101A ! !
2800 ^COC1E 0000101A ! !
2900 ^COC1E 0000101A ! Description Type Len Pos !
3000 ^COC1E 0000101A ! ------------------------------------------!
3100 ^COC1E 0000101A 0137 FORMAT _ !
3200 ^COC1E 0000101A CEMCNBR$;_ ! CUSTOMER # S 6 0 !
3300 ^COC1E 0000101F CEMSEQ$;_ ! SEQ # S 3 6 !
3400 ^COC1E 00001024 CEMADDR$;_ ! EMAIL ADDRESS S 60 9 !
3500 ^COC1E 00001029 CEMNAME$;_ ! EMPLOYEE NAME S 35 69 !
3600 ^COC1E 0000102E CEMPHONE$;_ ! EMPLOYEE PHONE S 20 104 !
3700 ^COC1E 00001033 CEMJOBCD$;_ ! JOB CODE S 2 124 !
3800 ^COC1E 00001038 CEMCMNT1$;_ ! COMMENT1 S 80 126 !
3900 ^COC1E 0000103D CEMCMNT2$;_ ! COMMENT2 S 80 206 !
4000 ^COC1E 00001042 CEMCMNT3$;_ ! COMMENT3 S 80 286 !
4100 ^COC1E 00001047 CEMCMNT4$;_ ! COMMENT4 S 80 366 !
4200 ^COC1E 0000104C CEMCMNT5$;_ ! COMMENT5 S 80 446 !
4300 ^COC1E 00001051 CEMCMNT6$;_ ! COMMENT6 S 80 526 !
4400 ^COC1E 00001056 CEMCMNT7$;_ ! COMMENT7 S 80 606 !
4500 ^COC1E 0000105B CEMCMNT8$;_ ! COMMENT8 S 80 686 !
4600 ^COC1E 00001060 CEMCMNT9$;_ ! COMMENT9 S 80 766 !
4700 ^COC1E 00001065 CEMFILL$ ! FILLER S 74 846 !
4800 ^COC1E 0000106B ! !
4900 ^COC1E 0000106B !====================================================================!
5316 ^PSQLOPF 0000106B !
5320 ^PSQLOPF 0000106B LENGTH 8.8 & LOCAL DOCINC
5329 ^PSQLOPF 0000106B !
5330 ^PSQLOPF 0000106B DocNbr: FORMAT _
5340 ^PSQLOPF 0000106B DOCINC
5350 ^PSQLOPF 00001071 !
5400 ^PSQLOPF 00001071 LENGTH 3 & LOCAL SOURCE$
5404 ^PSQLOPF 00001071 LENGTH 9 & LOCAL KEYC1E$ , KEYS1EE$, KEYS1E$, DSNNAME$
5407 ^PSQLOPF 00001071 LENGTH 12 & LOCAL KEYO19$
5407 ^PSQLOPF *****071 Variable 'KEYO19$ ' has been previously declared
5412 ^PSQLOPF 00001071 LENGTH 16 & LOCAL DOCNUM$
5498 ^PSQLOPF 00001071 LENGTH 1.0 & LOCAL ODBCFLAG
5548 ^PSQLOPF 00001071 LENGTH 6.0 & LOCAL ZDATESER, SHPDTSER, INVDTSER
5795 ^PSQLOPF 00001071 !
6660 ^PSQLOPF 00001071 LENGTH 6.4 & LOCAL Taxpct64
6661 ^PSQLOPF 00001071 LENGTH 9.2 & LOCAL NET
6661 ^PSQLOPF *****071 Variable 'NET ' has been previously declared
6664 ^PSQLOPF 00001071 LENGTH 1 & LOCAL Enoteflg$,Eshpflg$
6665 ^PSQLOPF 00001071 LENGTH 1 & LOCAL Emailedcustflg$,Emailedrepflg$,Emailedresaleflg
6666 ^PSQLOPF 00001071 LENGTH 14 & LOCAL TYPE3$
6671 ^PSQLOPF 00001071 LENGTH 26 & LOCAL TYPE2$, DSNCMND$
6671 ^PSQLOPF *****071 Variable 'TYPE2$ ' has been previously declared
6672 ^PSQLOPF 00001071 LENGTH 32 & LOCAL PDFFILENAME$
6673 ^PSQLOPF 00001071 LENGTH 60 & LOCAL EMAIL1$, EMAIL2$, EMAIL3$, EMAILR$, EMAILR2$
6674 ^PSQLOPF 00001071 LENGTH 10 & LOCAL SqlDate$, SysDate$, InvDate$
6675 ^PSQLOPF 00001071 LENGTH 100 & LOCAL ERROR$
6680 ^PSQLOPF 00001071 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 34
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
6700 ^PSQLOPF 00001071 OrderRec: FORMAT _
6705 ^PSQLOPF 00001071 Source$;_
6710 ^PSQLOPF 00001076 Ornbr$;_
6715 ^PSQLOPF 0000107B Cname$;_
6720 ^PSQLOPF 00001080 Cadr1$;_
6730 ^PSQLOPF 00001085 Ccity$;_
6735 ^PSQLOPF 0000108A Cstate$;_
6740 ^PSQLOPF 0000108F Czip$;_
6741 ^PSQLOPF 00001094 Ostate$;_
6745 ^PSQLOPF 00001099 Ocornbr$;_
6750 ^PSQLOPF 0000109E Orornbr$;_
6755 ^PSQLOPF 000010A3 Osnbr1$;_
6760 ^PSQLOPF 000010A8 SysDate$;_ was Zdateser;_ but not writing to MySql tab
6765 ^PSQLOPF 000010AD Invcnbr$;_
6770 ^PSQLOPF 000010B2 InvDate$;_ was Invdtser;_ " " " " " "
6775 ^PSQLOPF 000010B7 Otaxamt;_
6780 ^PSQLOPF 000010BC Taxpct64;_
6785 ^PSQLOPF 000010C1 Net;_
6790 ^PSQLOPF 000010C6 Email1$;_
6795 ^PSQLOPF 000010CB Email2$;_
6800 ^PSQLOPF 000010D0 Email3$;_
6805 ^PSQLOPF 000010D5 Oemlopa$;_
6810 ^PSQLOPF 000010DA Oemlsa$;_
6815 ^PSQLOPF 000010DF Oemlfi$;_
6820 ^PSQLOPF 000010E4 Emailedcustflg$;_
6825 ^PSQLOPF 000010E9 Emailedrepflg$;_
6830 ^PSQLOPF 000010EE Emailedresaleflg$;_
6835 ^PSQLOPF 000010F3 Emailr$;_
6840 ^PSQLOPF 000010F8 Emailr2$;_
6841 ^PSQLOPF 000010FD Type2$;_
6842 ^PSQLOPF 00001102 Type3$;_
6845 ^PSQLOPF 00001107 Docnum$
6850 ^PSQLOPF 0000110D !
6860 ^PSQLOPF 0000110D LENGTH 1 & LOCAL DEFAULT$
6870 ^PSQLOPF 0000110D !
6880 ^PSQLOPF 0000110D OrderRecw: FORMAT _
6882 ^PSQLOPF 0000110D Default$;_ !Date Time Stamp
6884 ^PSQLOPF 00001112 Default$;_ !Auto Increment
6890 ^PSQLOPF 00001117 Source$;_
6900 ^PSQLOPF 0000111C Ornbr$;_
6910 ^PSQLOPF 00001121 Cname$;_
6920 ^PSQLOPF 00001126 Cadr1$;_
6930 ^PSQLOPF 0000112B Ccity$;_
6940 ^PSQLOPF 00001130 Cstate$;_
6950 ^PSQLOPF 00001135 Czip$;_
6960 ^PSQLOPF 0000113A Ostate$;_
6970 ^PSQLOPF 0000113F Ocornbr$;_
6980 ^PSQLOPF 00001144 Orornbr$;_
6990 ^PSQLOPF 00001149 Osnbr1$;_
7000 ^PSQLOPF 0000114E Sysdate$;_ was Zdateser changed for Mysql (YYYY-M
7010 ^PSQLOPF 00001153 Invcnbr$;_
7020 ^PSQLOPF 00001158 Invdate$;_ was Invdtser;_ " " " "
7030 ^PSQLOPF 0000115D Otaxamt;_
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 35
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
7040 ^PSQLOPF 00001162 Taxpct64;_
7050 ^PSQLOPF 00001167 Net;_
7060 ^PSQLOPF 0000116C Email1$;_
7070 ^PSQLOPF 00001171 Email2$;_
7080 ^PSQLOPF 00001176 Email3$;_
7090 ^PSQLOPF 0000117B Oemlopa$;_
7100 ^PSQLOPF 00001180 Oemlsa$;_
7110 ^PSQLOPF 00001185 Oemlfi$;_
7120 ^PSQLOPF 0000118A Emailedcustflg$;_
7130 ^PSQLOPF 0000118F Emailedrepflg$;_
7140 ^PSQLOPF 00001194 Emailedresaleflg$;_
7150 ^PSQLOPF 00001199 Emailr$;_
7160 ^PSQLOPF 0000119E Emailr2$;_
7170 ^PSQLOPF 000011A3 Type2$;_
7180 ^PSQLOPF 000011A8 Type3$;_
7190 ^PSQLOPF 000011AD Docnum$
7200 ^PSQLOPF 000011B3 !
7620 ^PSQLOPF 000011B3 !
8000 ^PSQLOPF 000011B3 LENGTH 10 & LOCAL EDATE$
8010 ^PSQLOPF 000011B3 LENGTH 8 & LOCAL ETIME$,EPRGM$
8015 ^PSQLOPF 000011B3 LENGTH 3 & LOCAL EOPR$,ETERM$
8020 ^PSQLOPF 000011B3 LENGTH 80 & LOCAL Errmsg$
8225 ^PSQLOPF 000011B3 LENGTH 25 & LOCAL EFUNC$
8230 ^PSQLOPF 000011B3 LENGTH 21 & LOCAL K21$
8235 ^PSQLOPF 000011B3 LENGTH 1 & LOCAL A$
8290 ^PSQLOPF 000011B3 !
8300 ^PSQLOPF 000011B3 SqlErr: FORMAT _ MYSQL Error Log Format (151 keysize=21)
8310 ^PSQLOPF 000011B3 EDate$;_ 10 ! YYYY-MM-DD
8320 ^PSQLOPF 000011B8 ETime$;_ 8 ! HH:MM:SS
8340 ^PSQLOPF 000011BD ETerm$;_ 3 ! TXX
8350 ^PSQLOPF 000011C2 EPrgm$;_ 8
8360 ^PSQLOPF 000011C7 EOPR$;_ 3
8370 ^PSQLOPF 000011CC EFUNC$;_ 25
8380 ^PSQLOPF 000011D1 Errmsg$;_ 80
8390 ^PSQLOPF 000011D6 ''
8399 ^PSQLOPF 000011DC !
8460 ^PSQLOPF 000011DC LENGTH 3 & LOCAL ZLPPDFPRINTER$, ZDIRPDFO$, ZDIRPDFR$, ZDIRPDFS$
8470 ^PSQLOPF 000011DC LENGTH 3 & LOCAL ZLPPDFEMAIL$, ZDIRPDFMR$
8560 ^PSQLOPF 000011DC !
8610 ^PSQLOPF 000011DC Z1PDF: FORMAT_
8660 ^PSQLOPF 000011DC ZLPPDFPRINTER$;_ !PDF PRINTER
8710 ^PSQLOPF 000011E1 ZDIRPDFO$;_ !PDF FACTORY ORDER FILES KEPT HERE
8720 ^PSQLOPF 000011E6 ZDIRPDFP$;_ !PDF FACTORY P.O. FILES KEPT HERE
8730 ^PSQLOPF 000011EB ZDIRPDFS$;_ !PDF FACTORY SAMPLE FILES KEPT HERE
8740 ^PSQLOPF 000011F0 ZDIRPDFR$;_ !PDF FACTORY STATEMENT FILES KEPT HERE
8750 ^PSQLOPF 000011F5 ZLPPDFEMAIL$;_ !PDF EMAIL PRINTER
8760 ^PSQLOPF 000011FA ZDIRPDFMR$ !PDF FACTORY MANAGEMENT REPORTS KEPT HE
8770 ^PSQLOPF 00001200 !
8790 ^PSQLOPF 00001200 LENGTH 15 & LOCAL ZMYSQLUSER$, ZMYSQLPASS$, ZMYSQLPORT$
8800 ^PSQLOPF 00001200 LENGTH 32 & LOCAL ZMYSQLDB$
8810 ^PSQLOPF 00001200 LENGTH 64 & LOCAL ZMYSQLSERVER$
8820 ^PSQLOPF 00001200 !
8830 ^PSQLOPF 00001200 Z1PDFSQL: FORMAT _ FOR CONNECTING WITH MySQL Driver
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 36
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
8840 ^PSQLOPF 00001200 ZMYSQLDB$;_
8850 ^PSQLOPF 00001205 ZMYSQLSERVER$;_
8860 ^PSQLOPF 0000120A ZMYSQLUSER$;_
8870 ^PSQLOPF 0000120F ZMYSQLPASS$;_
8880 ^PSQLOPF 00001214 ZMYSQLPORT$
8890 ^PSQLOPF 0000121A !
9000 ^PSQLOPF 0000121A ! ========== WORK STORAGE ==========
9100 ^PSQLOPF 0000121A LENGTH 1 & LOCAL PRINT.ANYWAY.FLAG$ !USED IF LINUX DIR'S NOT
9105 ^PSQLOPF 0000121A LENGTH 1 & LOCAL UNDER$
9120 ^PSQLOPF 0000121A LENGTH 2 & LOCAL SRCESHRT$
9140 ^PSQLOPF 0000121A LENGTH 3 & LOCAL GATE$
9200 ^PSQLOPF 0000121A LENGTH 8 & LOCAL MMDDYYYY$
9220 ^PSQLOPF 0000121A LENGTH 10 & LOCAL XDATE$
9220 ^PSQLOPF *****21A Variable 'XDATE$ ' has been previously declared
9300 ^PSQLOPF 0000121A LENGTH 20 & LOCAL RS$
9400 ^PSQLOPF 0000121A LENGTH 254 & LOCAL RESULT$, XDATABASE$
9500 ^PSQLOPF 0000121A LENGTH 1.0 & LOCAL NUMCOP
9500 ^PSQLOPF *****21A Variable 'NUMCOP ' has been previously declared
9600 ^PSQLOPF 0000121A LENGTH 3.0 & LOCAL LOOP1,FL
9700 ^PSQLOPF 0000121A LENGTH 6.0 & LOCAL DATESER
9900 ^PSQLOPF 0000121A !
10000 ^PSQLOPF 0000121A !============== SCREEN FORMATS ============
10010 ^PSQLOPF 0000121A ADOBE.DIR.WARNING: FORMAT _
10020 ^PSQLOPF 0000121A (RB);(RB);(RB);(RB);(RB);(CF);_
10030 ^PSQLOPF 00001232 @(0,10);_
10040 ^PSQLOPF 00001238 "Comet map to Samba drive not found. This means images of
10050 ^PSQLOPF 0000123D "documents that are about to print will not be saved for
10060 ^PSQLOPF 00001242 "display in Order Trace and cannot be emailed to reps and
10062 ^PSQLOPF 00001247 "/or customers.";_
10070 ^PSQLOPF 0000124C (BF);(BF);_
10080 ^PSQLOPF 00001254 "It is advisable to answer the prompt to PRINT ANYWAY wit
10090 ^PSQLOPF 00001259 " and contact your information technology department."
10100 ^PSQLOPF 0000125F !
10110 ^PSQLOPF 0000125F MYSQL.PDF.WARNING: FORMAT _
10120 ^PSQLOPF 0000125F (RB);(RB);(RB);(RB);(RB);(CF);_
10130 ^PSQLOPF 00001277 @(0,10);_
10140 ^PSQLOPF 0000127D "The following error occurred while testing MySQL & PDF p
10142 ^PSQLOPF 00001282 (BF);ERROR$,80;_
10144 ^PSQLOPF 0000128E "This means images of the ";_
10150 ^PSQLOPF 00001293 "documents that are about to print will not be saved for"
10160 ^PSQLOPF 00001298 "display in Order Trace and cannot be emailed to reps and
10170 ^PSQLOPF 0000129D "/or customers.";_
10180 ^PSQLOPF 000012A2 (BF);(BF);_
10190 ^PSQLOPF 000012AA "It is advisable to answer the prompt to PRINT ANYWAY wit
10200 ^PSQLOPF 000012AF " and contact your Information Technology department."
10210 ^PSQLOPF 000012B5 !
11330 ^PSQLOPF 000012B5 !
11340 ^PSQLOPF 000012B5 FILE.COPY.WARNING: FORMAT _
11350 ^PSQLOPF 000012B5 (RB);(RB);(RB);(RB);(RB);(CF);_
11370 ^PSQLOPF 000012CD @(10,10);"Could not copy Image files to Image server. This means
11380 ^PSQLOPF 000012D8 @(10,11);"documents that are about to print will not be saved for
11390 ^PSQLOPF 000012E3 @(10,12);"display in Order Trace and cannot be emailed to Reps an
11400 ^PSQLOPF 000012EE @(10,13);"Customers.";_
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 37
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
11410 ^PSQLOPF 000012F9 @(00,14);(BF);_
11420 ^PSQLOPF 00001303 @(10,15);"It is advisable to answer the prompt to PRINT ANYWAY wi
11430 ^PSQLOPF 0000130E @(10,16);"and contact your Information Technology department."
11440 ^PSQLOPF 0000131A !
13000 ^PSQLOPF 0000131A MySqlErrorMsg: FORMAT _
13100 ^PSQLOPF 0000131A (RB);(RB);(RB);(RB);_
13110 ^PSQLOPF 0000132A (CF),@(0,18);(CF),@(0,19);(CF),@(0,20);_
13200 ^PSQLOPF 00001342 @(0,18);"*** MySQL Database Error ***";_
13300 ^PSQLOPF 0000134D @(0,19);"Function: ";EFUNC$;_
13400 ^PSQLOPF 0000135D @(0,20);" Error: ";Errmsg$,70
13900 ^PSQLOPF 00001371 !
13990 ^PSQLOPF 00001371 !
19900 ^PSQLOPF 00001371 SET ODBCORD = 30, ODBCERLG = 31
19910 ^PSQLOPF 00001371 SET ODO=32, S1E = 40 , S1EE = 41 , C1E = 42
19920 ^PSQLOPF 00001371 SET WORKDIR$ = 'IMG'
9990 %SHMYOPA 00001371 !
10000 %SHMYOPA 00001371 ! ========== CRT FORMATS ==========
10010 %SHMYOPA 00001371 3000 FORMAT _
10020 %SHMYOPA 00001371 'READING ORDER # ',@(10,10);ORNBR$
10030 %SHMYOPA 00001384 !
10360 %SHMYOPA 00001384 3010 FORMAT _
10370 %SHMYOPA 00001384 XFUNCTION$,@(10,12);ORNBR$;' '
10372 %SHMYOPA 0000139C !
11050 %SHMYOPA 0000139C 3120 FORMAT (CF)
14000 %SHMYOPA 000013A1 !
15000 %SHMYOPA 000013A1 ! ========== PRINTER FORMATS ==========
15010 %SHMYOPA 000013A1 4000 FORMAT (FF)
15020 %SHMYOPA 000013A6 !
15030 %SHMYOPA 000013A6 4020 FORMAT (LF);(LF);(LF);(LF);(LF);(LF);(LF);_
15040 %SHMYOPA 000013C2 ORNBR$,@(75);(CR);_
15050 %SHMYOPA 000013CE DUP2$,@(40);(CR);_
15060 %SHMYOPA 000013DA TYPE2$,@(02);OSLSTYP$,@(66);ZDATE$,@(75);(LF);(LF)
15070 %SHMYOPA 000013FB !
15080 %SHMYOPA 000013FB 4060 FORMAT _
15082 %SHMYOPA 000013FB ' ',@(10);(CR);_
15090 %SHMYOPA 00001408 CNAME$,@(09);ONAME$,@(48);(CR);_
15100 %SHMYOPA 0000141C CADR1$,@(09);OADR1$,@(48)
15110 %SHMYOPA 0000142D 4062 FORMAT _
15120 %SHMYOPA 0000142D CADR2$,@(09);OADR2$,@(48)
15130 %SHMYOPA 00001440 4063 FORMAT _
15140 %SHMYOPA 00001440 CCITY$,@(09);' ';CSTATE$;' ';CZIP$;_
15150 %SHMYOPA 0000145D OCITY$,@(48);' ';OSTATE$;' ';OZIP$
15160 %SHMYOPA 0000147B 4064 FORMAT _
15170 %SHMYOPA 0000147B OBATTN$,@(09); OATTN$,@(48);(LF);_
15180 %SHMYOPA 00001491 CNBR$,@(13);(CR);_
15190 %SHMYOPA 0000149D OSM1$,@(48);(CR);_
15200 %SHMYOPA 000014A9 ____ OSM2$,@(48);(CR);_
15210 %SHMYOPA 000014A9 CPHONE1$,@(13);OSM2$,@(48)
15220 %SHMYOPA 000014BA !
15230 %SHMYOPA 000014BA 4100 FORMAT (LF);(LF);(LF);_
15240 %SHMYOPA 000014C6 @(01);OCORNBR$;' ';OSNBR1$;'',4;_
15250 %SHMYOPA 000014E1 ORORNBR$;'',2;OSHIPDTE$;' ';OSHIPVIA$,11;' ';_
15300 %SHMYOPA 00001505 XTERMS$;(LF);(LF);(LF)
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 38
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
15580 %SHMYOPA 00001517 !
15600 %SHMYOPA 00001517 4120 FORMAT(LF);_
15620 %SHMYOPA 0000151B ' ';INBR$;DESC$;' ';' ';OQTYORD;OPRICE,(BZ);OEXT,(BZ)
15670 %SHMYOPA 00001546 !
15680 %SHMYOPA 00001546 4121 FORMAT _
15682 %SHMYOPA 00001546 @(40);SHPPCE,(BZ);_
15690 %SHMYOPA 00001551 @(50);'LOT: ';OLOT$;' PCE: ';OPCE$
15840 %SHMYOPA 0000156B !
15842 %SHMYOPA 0000156B 4125 FORMAT _
15844 %SHMYOPA 0000156B @(16);'WIDTH: ';IWIDTH$;' REPEAT: ';IREPEAT$
15846 %SHMYOPA 00001585 !
15848 %SHMYOPA 00001585 4126 FORMAT _
15850 %SHMYOPA 00001585 @(16);ICONTNT1$
15852 %SHMYOPA 00001590 !
15854 %SHMYOPA 00001590 4127 FORMAT _
15856 %SHMYOPA 00001590 @(16);ICONTNT2$
15858 %SHMYOPA 0000159B !
15860 %SHMYOPA 0000159B 4140 FORMAT @(3);BIGDESC$
15870 %SHMYOPA 000015A6 !
16200 %SHMYOPA 000015A6 4220 FORMAT _
16220 %SHMYOPA 000015A6 'CONTINUED ON NEXT PAGE',@(21)
16270 %SHMYOPA 000015B0 4230 FORMAT (LF);'MESSAGE MISSING ';' B/O-';BOFLAG$;' ';_
16280 %SHMYOPA 000015C8 ' CFA-';OCFAFLG$;' ';_
16290 %SHMYOPA 000015D7 ' PRO-';OPROFLG$;' ';_
16300 %SHMYOPA 000015E6 ' RES-';ORESFLG$;' ';_
16310 %SHMYOPA 000015F5 ' MSC-';OHOLD1$;' ';_
16320 %SHMYOPA 00001604 ' MSC-';OHOLD2$;(LF)
16330 %SHMYOPA 00001613 !
16340 %SHMYOPA 00001613 4231 FORMAT (LF);'KEY O19 MISSING ';KEYO19$;(LF)
16350 %SHMYOPA 00001626 !
16440 %SHMYOPA 00001626 4400 FORMAT (LF);'MERCHANDISE AMOUNT ',@(47);' ';OGROSS
16450 %SHMYOPA 0000163D 4410 FORMAT 'FREIGHT',@(58);' ';OFRT
16460 %SHMYOPA 00001651 !***4415 FORMAT 'HANDLING',@(63);' ';OHANDAMT
16470 %SHMYOPA 00001651 4420 FORMAT OTAXPCL,@(52);'% TAX ';' ';OTAXAMT
16480 %SHMYOPA 0000166A 4430 FORMAT 'MISC ',@(58);' ';OMISC
16520 %SHMYOPA 0000167E 4470 FORMAT 'DEPOSIT',@(58);' ';ODEPOSIL
16530 %SHMYOPA 00001692 4480 FORMAT (LF);'DISCOUNT ',@(57);' ';ODISCAML
16730 %SHMYOPA 000016A9 !
16830 %SHMYOPA 000016A9 4490 FORMAT _
17030 %SHMYOPA 000016A9 OGROSS,(BZ);ODISCAML,(BZ);OMISC,(BZ);' ';_
17130 %SHMYOPA 000016C0 OFRT,(BZ);' ';OTAXAMT,(BZ);_
17140 %SHMYOPA 000016D1 ONET;ODEPOSIL,(BZ);NET
17230 %SHMYOPA 000016E2 !
17330 %SHMYOPA 000016E2 4495 FORMAT _
17340 %SHMYOPA 000016E2 (LF);COPY$,@(40);_ !**** LASER JET,
17430 %SHMYOPA 000016EE @(2);'PAGE ';PAGE;' ';OINIT$
17530 %SHMYOPA 00001707 !
17630 %SHMYOPA 00001707 4497 FORMAT ' ';CREDCARD$;(LF);(LF);(LF);(LF);(LF)
17730 %SHMYOPA 00001726 4498 FORMAT ' ';(LF);(LF);(LF);(LF);(LF)
18000 %SHMYOPA 00001740 !
19900 %SHMYOPA 00001740 !============= SET STATMENTS ================================
19905 %SHMYOPA 00001740 SET LP = 1 , _ !
19910 %SHMYOPA 00001740 O0 = 2 , _ !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 39
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
19915 %SHMYOPA 00001740 O1A = 3 , _ !
19920 %SHMYOPA 00001740 O1 = 4 , _ !
19925 %SHMYOPA 00001740 S1 = 5 , _ !
19935 %SHMYOPA 00001740 I1A = 7 , _ !
19940 %SHMYOPA 00001740 C1A = 8 , _ !
19945 %SHMYOPA 00001740 O19 = 9 , _ !
19955 %SHMYOPA 00001740 O1P = 11,_
19960 %SHMYOPA 00001740 Q1 = 12,_
19970 %SHMYOPA 00001740 O0B = 13,_
19980 %SHMYOPA 00001740 I1P = 14,_
19990 %SHMYOPA 00001740 M1C = 15 , V1 = 16 , O1S = 17 , I1R = 18 , _
19992 %SHMYOPA 00001740 SQLLUN = 19, SQLERLG = 20
19999 %SHMYOPA 00001740 !
20000 %SHMYOPA 00001740 ! ========== OPEN FILES ==========
20010 %SHMYOPA 00001740 USE '^COBEGIN' !START PROGRAM
20000 ^COBEGIN 00001740 !========== START PROCESSING ==========
20100 ^COBEGIN 00001740 CLEAR
20200 ^COBEGIN 00000002 OPEN (Z1) 'Z1'
20300 ^COBEGIN 00000009 READ (Z1,0990)KEY=TERM$
20500 ^COBEGIN 00000014 !
20020 %SHMYOPA 00000014 STITLE$ = 'NOTIFICATIONS'
20030 %SHMYOPA 0000001D TTLPOS = 40 - LEN(STITLE$)
20040 %SHMYOPA 0000002E PRINT (0, 120) & PRINT (0, 100) & PRINT (0, 110)
20042 %SHMYOPA 00000043 XPRGM$='OPA'
20050 %SHMYOPA 0000004C GOSUB VLSM !VERIFY THAT LINUX SERVER IS MAPPED !ODBC
20060 %SHMYOPA 00000051 IF PRINT.ANYWAY.FLAG$ EQ 'Y' THEN
20070 %SHMYOPA 0000005F ODAUPROG$ = 'OPA'
20080 %SHMYOPA 00000068 ODAUPAWF$ = 'Y'
20090 %SHMYOPA 00000071 ODAUMESG$ = 'LINUX DRIVES NOT MAPPED'
20100 %SHMYOPA 0000007A GOSUB WRITE.ODBC.AUDIT
20110 %SHMYOPA 0000007F ELSE
20120 %SHMYOPA 00000084 ENTER 'MYSQCHK'
20130 %SHMYOPA 0000008A INPUT (#) ERROR$
20140 %SHMYOPA 00000095 IF SUB(ERROR$,1,1) EQ 'N' THEN ! SOMETHING FAILED
20150 %SHMYOPA 000000B1 ERROR$ = SUB(ERROR$,2,99)
20160 %SHMYOPA 000000C8 PRINT (0,MYSQL.PDF.WARNING)
20170 %SHMYOPA 000000CF MESS$ = 'PRINT ANYWAY? (Yes/No)'
20180 %SHMYOPA 000000D8 4690 GOSUB 9000
20190 %SHMYOPA 000000DD IF AN$ EQ 'N' OR AN$ EQ 'NO' _
20200 %SHMYOPA 000000EB GOTO 9990
20210 %SHMYOPA 000000FE IF AN$ NE 'Y' AND AN$ NE 'YES' _
20220 %SHMYOPA 0000010C GOTO 4690
20230 %SHMYOPA 0000011F PRINT.ANYWAY.FLAG$ = 'Y'
20240 %SHMYOPA 00000128 ODAUPAWF$ = 'Y'
20250 %SHMYOPA 00000131 ODAUPROG$ = 'OPA'
20260 %SHMYOPA 0000013A ODAUMESG$ = ERROR$
20270 %SHMYOPA 00000143 GOSUB WRITE.ODBC.AUDIT
20280 %SHMYOPA 00000148 PRINT (0,CLEARFOREGROUND)
20290 %SHMYOPA 0000014F ENDIF
20300 %SHMYOPA 0000014F ENDIF
20310 %SHMYOPA 0000014F !
20400 %SHMYOPA 0000014F GOSUB GETPRNT
20420 %SHMYOPA 00000154 DELETE (Z1)KEY='*CFCEOPA'+TERM$,EXCP=4700
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 40
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
20440 %SHMYOPA 00000169 4700 NUMCOPY = 1 & MAXLINE = 20 ! WAS 3. 05/11/2007 TLF
20460 %SHMYOPA 0000017D !!!! SHWREPS$ = '15 *15A*15P*15M*???*???*???*???*???*'
20480 %SHMYOPA 0000017D FLNM$ = ZZCO$ + 'O1' & OPEN (O1) FLNM$
20500 %SHMYOPA 00000196 FLNM$ = ZZCO$ + 'C1A' & OPEN (C1A) FLNM$
20520 %SHMYOPA 000001AF FLNM$ = ZZCO$ + 'I1P' & OPEN (I1P) FLNM$
20540 %SHMYOPA 000001C8 FLNM$ = ZZCO$ + 'M1C' & OPEN (M1C) FLNM$
20560 %SHMYOPA 000001E1 FLNM$ = ZZCO$ + 'O19' & OPEN (O19) FLNM$
20580 %SHMYOPA 000001FA FLNM$ = ZZCO$ + 'I1A' & OPEN (I1A) FLNM$
20600 %SHMYOPA 00000213 FLNM$ = ZZCO$ + 'Q1' & OPEN (Q1) FLNM$
20620 %SHMYOPA 0000022C FLNM$ = ZZCO$ + 'S1' & OPEN (S1) FLNM$
20640 %SHMYOPA 00000245 FLNM$ = ZZCO$ + 'O1A' & OPEN (O1A) FLNM$
20660 %SHMYOPA 0000025E FLNM$ = ZZCO$ + 'V1' & OPEN (V1) FLNM$
20680 %SHMYOPA 00000277 FLNM$ = ZZCO$ + 'O1S' & OPEN (O1S) FLNM$
20700 %SHMYOPA 00000290 FLNM$ = ZZCO$ + 'I1R' & OPEN (I1R) FLNM$
20720 %SHMYOPA 000002A9 CLOSE (O1P) & FLNM$ = ZZCO$ + 'O1P' & OPEN (O1P) FLNM$
20740 %SHMYOPA 000002C5 CLOSE (S1E) & FLNM$ = ZZCO$ + 'S1E' & OPEN (S1E) FLNM$ !ODBC
20760 %SHMYOPA 000002E1 CLOSE (S1EE) & FLNM$ = ZZCO$ + 'S1EE' & OPEN (S1EE) FLNM$ !OD
20780 %SHMYOPA 000002FD CLOSE (C1E) & FLNM$ = ZZCO$ + 'C1E' & OPEN (C1E) FLNM$ !ODBC
20800 %SHMYOPA 00000319 BLANK$=' '
20820 %SHMYOPA 00000322 BLANK$=BLANK$+' '
20840 %SHMYOPA 00000334 BLANK35$ = ' '
20850 %SHMYOPA 0000033D XFUNCTION$=''
20860 %SHMYOPA 00000346 XDATE$=ZDATE$ & GOSUB JULDY !FET JULIAN DAY
20880 %SHMYOPA 00000354 ZDYCT = ZDYCT + 15 !ADD 15 DAYS FOR PROFORMA, CFA NOTICE
20900 %SHMYOPA 00000363 GOSUB DTCNV
20920 %SHMYOPA 00000368 CANDTE$=XDATE$ !CANCEL A PROFORMA OR CFA ON THIS DATE.
20940 %SHMYOPA 00000371 CREDCARD$=''
20960 %SHMYOPA 0000037A READ(O19,0800) KEY='X CC',EXCP=4800 !CREDIT CARD MESSAGE
20980 %SHMYOPA 00000389 CREDCARD$=MLINE1$
21000 %SHMYOPA 00000392 !
21020 %SHMYOPA 00000392 4800 MESS$ = 'CFA/PRO/B-O/MSC/QUOTES/All/END - C/P/B/M/Q/A/E'
21040 %SHMYOPA 0000039B GOSUB 9000
21060 %SHMYOPA 000003A0 IF AN$ EQ 'E' OR AN$ EQ 'END' GOTO 9990
21080 %SHMYOPA 000003C1 IF POS(AN$,'CPBMQA') EQ 0 GOTO 4800
21100 %SHMYOPA 000003DA TYPE$=AN$
21120 %SHMYOPA 000003E3 IF TYPE$ EQ 'A' TYPE$='B' &_ ! WAS TYPE$ = 'C' 10/30/2006 TLF
21140 %SHMYOPA 000003FA ALL = 1 & _
21160 %SHMYOPA 00000404 MESS$ = "DOES NOT INCLUDE QUOTATIONS OR CFA'S " & _
21180 %SHMYOPA 0000040D GOSUB 9050
21200 %SHMYOPA 00000412 !
21220 %SHMYOPA 00000412 FLNM$ = ZZCO$ + 'O0'
21240 %SHMYOPA 00000424 OPEN (O0) FLNM$
21260 %SHMYOPA 0000042B !
21280 %SHMYOPA 0000042B 4820 !!!! MESS$ = '(S)howroom/(O)ffice/(E)nd' & GOSUB 9000
21300 %SHMYOPA 0000042B !!!! IF POS(AN$,'END') EQ 1 GOTO 9990
21320 %SHMYOPA 0000042B !!!! OPTION$ = AN$
21340 %SHMYOPA 0000042B !!!! IF OPTION$ EQ 'O' GOTO 4982
21360 %SHMYOPA 0000042B !!!! IF OPTION$ NE 'S' GOTO 4820
21380 %SHMYOPA 0000042B !830 MESS$ = 'ORDERS FOR REPS 15/15A/15P/15M SELECTED. CONTINUE? (Y/
21400 %SHMYOPA 0000042B !!!! GOSUB 9000
21420 %SHMYOPA 0000042B !!!! IF AN$ EQ 'N' GOTO 4820
21440 %SHMYOPA 0000042B !!!! IF AN$ NE 'Y' GOTO 4830
21460 %SHMYOPA 0000042B !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 41
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
22000 %SHMYOPA 0000042B 4982 IF TYPE$ EQ 'C' TYPE2$ = 'CFA NOTIFICATION'
22020 %SHMYOPA 00000442 IF TYPE$ EQ 'B' TYPE2$ = 'B/O NOTIFICATION'
22040 %SHMYOPA 00000459 IF TYPE$ EQ 'P' TYPE2$ = 'PROFORMA NOTIFICATION'
22060 %SHMYOPA 00000470 IF TYPE$ EQ 'M' TYPE2$ = 'MISCELLANEOUS NOTIFICATION'
22080 %SHMYOPA 00000487 IF TYPE$ EQ 'Q' THEN
22100 %SHMYOPA 00000495 TYPE2$ = 'QUOTATION NOTICE'
22120 %SHMYOPA 0000049E CLOSE (O1A) & CLOSE (O1) & CLOSE (O0)
22140 %SHMYOPA 000004A7 FLNM$ = ZZCO$ + 'U1A' & OPEN (O1A) FLNM$
22160 %SHMYOPA 000004C0 FLNM$ = ZZCO$ + 'U1' & OPEN (O1) FLNM$
22180 %SHMYOPA 000004D9 FLNM$ = ZZCO$ + 'U0' & OPEN (O0) FLNM$
22200 %SHMYOPA 000004F2 ENDIF
22220 %SHMYOPA 000004F2 !
22240 %SHMYOPA 000004F2 IF ALL EQ 2 OR ODBCFLAG EQ 1 READ(O0,0000) KEY='',EXCP=5100 &_
22260 %SHMYOPA 0000051F GOTO 5100
22280 %SHMYOPA 00000524 !
22300 %SHMYOPA 00000524 4985 FLNM$=ZZCO$+'O0B' & CREATE FLNM$,1,K,9,DIR=ZFXD$,EXCP=4990
22320 %SHMYOPA 0000054D OPEN(O0B) FLNM$
22340 %SHMYOPA 00000554 GOTO 4996
22360 %SHMYOPA 00000559 4990 MESS$='IS THIS A RESTART(Y/N)?' & GOSUB 9000
22380 %SHMYOPA 00000567 IF AN$ EQ 'N' CLOSE(O0B) & FLNM$=ZZCO$+'O0B' &_
22400 %SHMYOPA 0000058A ERASE FLNM$ & GOTO 4985
22420 %SHMYOPA 00000595 IF AN$ NE 'Y' GOTO 4990
22440 %SHMYOPA 000005A8 FLNM$=ZZCO$+'O0B' & OPEN(O0B) FLNM$
22460 %SHMYOPA 000005C1 4992 MESS$='ENTER LAST ORDER # TO PRINT CORRECTLY(XXXXXX)' & GOSUB 90
22480 %SHMYOPA 000005CF IF AN$ EQ '' GOTO 9990
22500 %SHMYOPA 000005E2 AN$=SUB('000000',1,6-LEN(AN$))+AN$
22520 %SHMYOPA 0000060E READ(O0,0000) KEY=AN$+'-00' ,EXCP=4992
22540 %SHMYOPA 00000627 !
22560 %SHMYOPA 00000627 GOTO 4996
40000 %SHMYOPA 0000062C 4995 X$= 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
40002 %SHMYOPA 00000635 ORNBR$=X$ & ONAME$=X$ & OADR1$=X$ & OADR2$=X$ & OCITY$=X$ & OSTA
40004 %SHMYOPA 0000066B OZIP$=X$ & OATTN$=X$ & OCORNBR$=X$ & CNBR$=X$
40006 %SHMYOPA 0000068F OSHIPDTE$='MM/DD/YYYY' & OSHIPVIA$=X$& OPKGS=999 & CNAME$ =X$
40008 %SHMYOPA 000006B4 CADR1$=X$ & CADR2$=X$ & CCITY$=X$ & CSTATE$=X$ & CZIP$=X$
40010 %SHMYOPA 000006E1 CPHONE1$=X$
40020 %SHMYOPA 000006EA GOSUB 7000
40022 %SHMYOPA 000006EF LINE = 0
40024 %SHMYOPA 000006F9 GOSUB 6100 !TOP OF NEXT PAGE
40030 %SHMYOPA 000006FE !
40120 %SHMYOPA 000006FE 4996 IF PASS EQ 0 _
40124 %SHMYOPA 000006FE PASS = 1 & ENTER 'CFCEOPA' ! FIRST TIME TO SET FONT ONLY
40130 %SHMYOPA 0000071D MESS$ = 'TAB TO PRINT NOTIFICATIONS OR TEST (TAB/T)' & GOSUB 900
40140 %SHMYOPA 0000072B IF AN$ EQ 'T' GOTO 4995
40240 %SHMYOPA 0000073E PAGE = 0
50000 %SHMYOPA 00000748 ! ========== BEGIN PROCESSING ==========
50040 %SHMYOPA 00000748 5100 ORNBR$ = KEY(O0,EXCP=9500)
50080 %SHMYOPA 00000758 READ (O0,0000)
50120 %SHMYOPA 0000075F DUP = 0
50160 %SHMYOPA 00000769 IF TYPE$ NE 'Q' AND SUB(ORNBR$,7,1) NE '-' _
50200 %SHMYOPA 00000785 DELETE (O0)KEY=ORNBR$,EXCP=5100 & GOTO 5100
50240 %SHMYOPA 000007A3 PRINT(0,3000)
50280 %SHMYOPA 000007AA 5110 OGROSS = 0 & PAGE = 0 & DEPOSIT$=''
50320 %SHMYOPA 000007C7 DOLLREQ = 0 & XSM1$ = '' & XSM2$ = ''
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 42
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
50330 %SHMYOPA 000007E3 DISFLAG = 0 & PAGE = 0
50360 %SHMYOPA 000007F7 INQUIRE (O1A,0060)KEY=ORNBR$ !READ HEADER
50370 %SHMYOPA 00000802 !!!! IF OPTION$ EQ 'S' AND POS(OSNBR1$,SHWREPS$) EQ 0 GOTO 5100
50380 %SHMYOPA 00000802 !!!! IF OPTION$ EQ 'O' AND POS(OSNBR1$,SHWREPS$) NE 0 GOTO 5100
50400 %SHMYOPA 00000802 IF TYPE$ EQ 'Q' GOTO 5140
50401 %SHMYOPA 00000815 !!!! IF NUMCOPY EQ 2 GOTO 5140 !**** FOR LASER JET TE
50440 %SHMYOPA 00000815 IF OSTATUS$ EQ 'U' GOTO 5100
50450 %SHMYOPA 00000828 IF OFRFLAG$ EQ 'I' GOTO 5100 !PICK TICKET
50480 %SHMYOPA 0000083B !
50485 %SHMYOPA 0000083B !
50490 %SHMYOPA 0000083B ! If OHOLD1$ or OHOLD2$ equals 'DIS' it means that the items on the or
50495 %SHMYOPA 0000083B ! are discontinued and have no stock. The DIS message tells the custom
50500 %SHMYOPA 0000083B ! to reselect. No other message PRO, CFA, B/O should print.
50505 %SHMYOPA 0000083B !
50510 %SHMYOPA 0000083B IF (OHOLD1$ EQ 'DIS' OR OHOLD2$ EQ 'DIS') AND TYPE$ EQ 'M' DISF
50515 %SHMYOPA 0000086F GOTO
50520 %SHMYOPA 00000874 ! CHECK IF ORDER HAS PASSED CREDIT
50560 %SHMYOPA 00000874 !
50600 %SHMYOPA 00000874 !!!! IF OCRSLE$ NE ' ' GOTO 5100
50640 %SHMYOPA 00000874 !!!! IF OCRPST$ NE ' ' GOTO 5100
50680 %SHMYOPA 00000874 !!!! IF OCRLIM$ NE ' ' GOTO 5100
50720 %SHMYOPA 00000874 !!!! IF OCRDSC$ NE ' ' GOTO 5100
50760 %SHMYOPA 00000874 !!!! IF OCRPAY$ NE ' ' GOTO 5100
50800 %SHMYOPA 00000874 !!!! IF OCRMSC$ NE ' ' GOTO 5100
50840 %SHMYOPA 00000874 !
50880 %SHMYOPA 00000874 ! ORDER HAS PASSED CREDIT
51000 %SHMYOPA 00000874 !
51010 %SHMYOPA 00000874 IF TYPE$ EQ 'B' AND OBOFLAG$ EQ ' ' GOTO 5100 !ORDER NOT B/O
51020 %SHMYOPA 00000895 ! IF BACK ORDER IS SELECTED DO NOT PRINT STOCK ORDERS.
51030 %SHMYOPA 00000895 !
51040 %SHMYOPA 00000895 IF TYPE$ NE 'B' AND OBOFLAG$ NE ' ' GOTO 5100
51050 %SHMYOPA 000008B6 ! IF BACK ORDERS NOT SELECTED DO NOT PRINT BACK ORDERS
51060 %SHMYOPA 000008B6 !
51070 %SHMYOPA 000008B6 IF TYPE$ EQ 'P' AND OPROFLG$ EQ ' ' GOTO 5100
51080 %SHMYOPA 000008D7 ! IF PROFORMA SELECTED , ORDER MUST BE PROFORMA
51090 %SHMYOPA 000008D7 !
51100 %SHMYOPA 000008D7 IF TYPE$ EQ 'C' AND OCFAFLG$ EQ ' ' GOTO 5100
51110 %SHMYOPA 000008F8 ! IF CFA SELETED ORDER MUST BE CFA
51112 %SHMYOPA 000008F8 !
51114 %SHMYOPA 000008F8 !!!! IF TYPE$ EQ 'C' AND OCUTYRD$ NE ' ' AND OCUTARVD$ NE 'A' _
51116 %SHMYOPA 000008F8 !!!! GOTO 5100
51118 %SHMYOPA 000008F8 ! IF CUT YARDAGE CFA, CUTTING ARRIVED FLAG MUST BE 'A'
51120 %SHMYOPA 000008F8 !
51130 %SHMYOPA 000008F8 !!!! IF TYPE$ EQ 'C' AND OPROFLG$ EQ 'Y' GOTO 5100 !07/23/99 SEH
51132 %SHMYOPA 000008F8 IF TYPE$ EQ 'P' AND OCFAFLG$ EQ 'Y' GOTO 5100 !07/23/99 SEH
51140 %SHMYOPA 00000919 ! PROFORMA CFA ORDER MUST PRINT WITH CFA'S
51150 %SHMYOPA 00000919 !
51151 %SHMYOPA 00000919 IF TYPE$ EQ 'M' AND _
51152 %SHMYOPA 00000927 (OBOFLAG$ NE ' ' OR OPROFLG$ NE ' ' OR OCFAFLG$ NE ' ') _
51153 %SHMYOPA 00000951 GOTO 5100
51154 %SHMYOPA 00000956 ! MISC ORDERS WITH A 'B/O' OR 'PRO' OR 'CFA' HOLD MUST PRINT
51155 %SHMYOPA 00000956 ! WITH 'B/O' OR 'PRO' OR 'CFA' NOTIFICATION
51157 %SHMYOPA 00000956 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 43
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
51158 %SHMYOPA 00000956 !
51160 %SHMYOPA 00000956 !!!! IF TYPE$ EQ 'M' AND OFRFLAG$ EQ 'P' AND _
51170 %SHMYOPA 00000956 !!!! (OHOLD1$ EQ ' ' AND OHOLD2$ EQ ' ') GOTO 5100
51173 %SHMYOPA 00000956 IF TYPE$ EQ 'M' AND OHOLD1$ EQ ' ' AND OHOLD2$ EQ ' ' THEN
51174 %SHMYOPA 00000980 IF OCUTYRD$ NE ' ' AND OMILLSTK$ NE ' ' DELETE(O0) KEY=ORNBR
51175 %SHMYOPA 000009A3 GOTO 5100
51176 %SHMYOPA 000009A8 ENDIF
51177 %SHMYOPA 000009A8 !
51180 %SHMYOPA 000009A8 ! IF MISC SELECTED ORDER MUST HAVE A MISC HOLD
51190 %SHMYOPA 000009A8 !
51200 %SHMYOPA 000009A8 IF OSAMPFLG$ EQ 'Y' AND OCUTYRD$ NE ' ' _
51210 %SHMYOPA 000009B6 DELETE(O0) KEY=ORNBR$ &_ !DO NOT PRINT SAMPLES ORDERS COMMING
51220 %SHMYOPA 000009CB GOTO 5100 !FROM THE MILL.
51250 %SHMYOPA 000009D0 !
51260 %SHMYOPA 000009D0 IF ORESFLG$ EQ 'Y' AND OCFAFLG$ EQ ' ' _
51270 %SHMYOPA 000009DE DELETE(O0) KEY=ORNBR$ &_ !DO NOT PRINT RESERVES WITHOUT CFA
51280 %SHMYOPA 000009F3 GOTO 5100
51282 %SHMYOPA 000009F8 !
51290 %SHMYOPA 000009F8 ! RESERVES WITHOUT A CFA SHOULD NEVER PRINT
51300 %SHMYOPA 000009F8 !
51310 %SHMYOPA 000009F8 IF OCUTYRD$ NE ' ' AND OMILLSTK$ EQ ' ' _
51320 %SHMYOPA 00000A06 GOTO 5100
51330 %SHMYOPA 00000A19 ! CUT YARDAGE ORDERS MUST HAVE MILL STATUS DETERMINED BEFORE
51340 %SHMYOPA 00000A19 ! A NOTIFICATION CAN PRINT.
51350 %SHMYOPA 00000A19 !
51450 %SHMYOPA 00000A19 IF SUB(OSNBR1$,2,1) EQ 'D' _
51550 %SHMYOPA 00000A27 GOTO 5100
51600 %SHMYOPA 00000A3A IF SUB(OSNBR1$,3,1) EQ 'D' _
51650 %SHMYOPA 00000A48 GOTO 5100
51700 %SHMYOPA 00000A5B ! SECOND OR THIRD CHARACTER OF SALES REP = 'D' MEANS THIS IS
51750 %SHMYOPA 00000A5B ! A DIRECT ORDER FROM THE MILL - NO NOTIFICATION FOR DIRECT ORDERS
51800 %SHMYOPA 00000A5B !
51960 %SHMYOPA 00000A5B 5140 IF OSM1$ NE BLANK35$ XSM1$ = 'S/M '
52000 %SHMYOPA 00000A72 IF OSM2$ NE BLANK35$ XSM2$ = 'S/M '
52040 %SHMYOPA 00000A89 !
52080 %SHMYOPA 00000A89 READ(C1A,0100) KEY=CNBR$,EXCP=9400
52090 %SHMYOPA 00000A98 KEYM1C$='T'+CTERMCD$ & MPROFORA$=' '
52100 %SHMYOPA 00000AB3 READ(M1C,0650) KEY=KEYM1C$,EXCP=5150
52105 %SHMYOPA 00000AC2 5150 PROFORA$=MPROFORA$ !CAPTURE IF CUSTOMER IS PROFORMA
52107 %SHMYOPA 00000ACB MCDESC$=''
52120 %SHMYOPA 00000AD4 !
52320 %SHMYOPA 00000AD4 !
52360 %SHMYOPA 00000AD4 !!!! READ (S1,0400)KEY=OSNBR1$,EXCP=9420
52400 %SHMYOPA 00000AD4 IF ODBCFLAG EQ 0 _ ! IF IN PRINT PASS,
52410 %SHMYOPA 00000AD4 WRITE(O0B,0000)KEY=ORNBR$ & _
52412 %SHMYOPA 00000AEE XFUNCTION$=' Printing Order: ' & _
52414 %SHMYOPA 00000AF7 PRINT (0,3010) ! INPROG MSG (FUNCTION$)
52420 %SHMYOPA 00000AFE !!!! XNAME$=SNAME$
52430 %SHMYOPA 00000AFE KEYM1C$='T'+OTERMCDE$
52440 %SHMYOPA 00000B10 READ(M1C,0650) KEY=KEYM1C$,EXCP=9480
52450 %SHMYOPA 00000B1F XTERMS$=MCDESC$
52460 %SHMYOPA 00000B28 FOR NUMCOP = 1 TO NUMCOPY !**** LASER JET,
52480 %SHMYOPA 00000B41 PAGE = 0
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 44
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
52490 %SHMYOPA 00000B4B COPY$ = 'ORIGINAL' & PAGE = 0 !**** LASER JET,
52500 %SHMYOPA 00000B5E IF NUMCOP EQ 2 COPY$ = 'REMITTANCE COPY' !**** LASER JET,
52510 %SHMYOPA 00000B76 IF NUMCOP EQ 3 COPY$ = 'FILE COPY'
52520 %SHMYOPA 00000B8E !
52600 %SHMYOPA 00000B8E 5200 READ (O1,0000)KEY=ORNBR$,EXCP=5250 !POINT TO FIRST
52640 %SHMYOPA 00000B9D 5250 !
52650 %SHMYOPA 00000B9D IF ODBCFLAG EQ 1 THEN
52660 %SHMYOPA 00000BAC OPEN (LP) ZLPPDFPRINTER$
52670 %SHMYOPA 00000BB3 DELETE (Z1)KEY='*CFCEOPA'+TERM$,EXCP=5260
52680 %SHMYOPA 00000BC8 5260 XFUNCTION$='Creating PDF Image file: ' ! SEH & _
52682 %SHMYOPA 00000BD1 PRINT(0,3010) ! INPROG MESS
52700 %SHMYOPA 00000BD8 ENTER 'CFCEOPA' ! PRINT FORM
52701 %SHMYOPA 00000BDE PDFFILENAME$ = ORNBR$ + DOCNUM$
52702 %SHMYOPA 00000BF0 !!!! MESS$=ZDIRPDFO$+'*'+ZLPPDFPRINTER$+'*'+PDFFILENAME$ & GOSUB 9
52705 %SHMYOPA 00000BF0 ENDIF
52707 %SHMYOPA 00000BF0 !
52720 %SHMYOPA 00000BF0 GOSUB 7000 !TOP OF PAGE
52760 %SHMYOPA 00000BF5 DOLLREQ = OHOLDAMT
52800 %SHMYOPA 00000BFF 5400 KEYO1$ = KEY(O1,EXCP=5500)
52840 %SHMYOPA 00000C0F IF SUB(KEYO1$,1,9) NE ORNBR$ GOTO 5500 !LAST LINE IN O
52880 %SHMYOPA 00000C30 INQUIRE (O1,0065)
52920 %SHMYOPA 00000C37 IF SUB(INBR$,1,2) EQ 'ZP' GOTO 5400 !PICK TICKET ONLY
52930 %SHMYOPA 00000C58 IF SUB(INBR$,1,2) EQ 'ZI' GOTO 5400 !INVOICE ONLY
52940 %SHMYOPA 00000C79 IF SUB(INBR$,1,2) EQ 'ZM' GOTO 5400 !INVOICE ONLY
53040 %SHMYOPA 00000C9A GOSUB 6200 ! CHECK LINE COU
53080 %SHMYOPA 00000C9F IF LINE EQ 0 AND SUB(INBR$,1,1) EQ 'Z' _
53090 %SHMYOPA 00000CBC PRINT (LP) "" & LINE = LINE + 1
53120 %SHMYOPA 00000CE4 !
53160 %SHMYOPA 00000CE4 IF SUB(INBR$,1,1) EQ 'Z' BIGDESC$=OTAG$ &_ !COMMENT
53200 %SHMYOPA 00000D09 PRINT(LP,4140) &_ !COMMENT
53240 %SHMYOPA 00000D10 LINE=LINE+1 & GOTO 5400
53280 %SHMYOPA 00000D24 READ(I1A,0200) KEY=INBR$,EXCP=9400
53320 %SHMYOPA 00000D33 READ(I1P,0215) KEY=IPATTERN$,EXCP=9460
53360 %SHMYOPA 00000D42 DESC$=SUB(IPATTNME$,1,22) & DESC$=STRIP(DESC$)+'/'
53400 %SHMYOPA 00000D71 DESC$=DESC$+ICOLOR$
53440 %SHMYOPA 00000D83 !!!! IF PROFORA$ EQ ' ' OR DUP EQ 1 OPRICE = 0 & OEXT = 0
53450 %SHMYOPA 00000D83 IF DUP EQ 1 OPRICE = 0 & OEXT = 0
53480 %SHMYOPA 00000DA6 PRINT (LP,4120) !PRINT DETAIL LINE
53520 %SHMYOPA 00000DAD LINE=LINE+2
53524 %SHMYOPA 00000DBC IF SUB(IWIDTH$,1,10) NE ' ' OR _
53528 %SHMYOPA 00000DD8 SUB(IREPEAT$,1,10) NE ' ' _
53532 %SHMYOPA 00000DE6 PRINT(LP,4125) &_ !WIDTH & REPEAT
53536 %SHMYOPA 00000DFB LINE = LINE + 1
53540 %SHMYOPA 00000E0A IF SUB(ICONTNT1$,1,10) NE ' ' PRINT(LP,4126) &_
53544 %SHMYOPA 00000E2D LINE = LINE + 1
53548 %SHMYOPA 00000E3C IF SUB(ICONTNT2$,1,10) NE ' ' PRINT(LP,4127) &_
53552 %SHMYOPA 00000E5F LINE = LINE + 1
53554 %SHMYOPA 00000E6E GOSUB 6200 ! CHECK LINE COUNT
53556 %SHMYOPA 00000E73 IF IDSCNTDT$ NE ' ' AND DISFLAG EQ 0 _
53558 %SHMYOPA 00000E81 BIGDESC$='LIMITED STOCK. INQUIRE ABOUT AVAILABILITY' &_
53559 %SHMYOPA 00000E99 PRINT(LP,4140) & LINE = LINE + 1
53564 %SHMYOPA 00000EAF !
53566 %SHMYOPA 00000EAF IF SUB(ICOMNT1$,1,1) EQ '*' THEN
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 45
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
53568 %SHMYOPA 00000ECB BIGDESC$=ICOMNT1$
53570 %SHMYOPA 00000ED4 PRINT(LP,4140) & LINE = LINE + 1
53572 %SHMYOPA 00000EEA ICOMNT2$=STRIP(ICOMNT2$)
53574 %SHMYOPA 00000EF9 IF ICOMNT2$ NE '' BIGDESC$=ICOMNT2$ &_
53576 %SHMYOPA 00000F10 PRINT(LP,4140) & LINE = LINE + 1
53577 %SHMYOPA 00000F26 ICOMNT3$=STRIP(ICOMNT3$)
53578 %SHMYOPA 00000F35 IF ICOMNT3$ NE '' BIGDESC$=ICOMNT3$ &_
53579 %SHMYOPA 00000F4C PRINT(LP,4140) & LINE = LINE + 1
53581 %SHMYOPA 00000F62 ENDIF
53583 %SHMYOPA 00000F62 !
53590 %SHMYOPA 00000F62 GOSUB 8100
53600 %SHMYOPA 00000F67 IF SUB(OTAG$,1,20) NE ' ' _
53640 %SHMYOPA 00000F75 BIGDESC$=OTAG$ &_
53680 %SHMYOPA 00000F8C PRINT(LP,4140) & _
53720 %SHMYOPA 00000F93 LINE = LINE + 1
53760 %SHMYOPA 00000FA2 IF OBOFLAG$ NE ' ' AND OISFLG$ NE 'S' AND _
53800 %SHMYOPA 00000FBE OLATE$ NE 'F' AND TYPE$ NE 'Q' _
53840 %SHMYOPA 00000FCC GOSUB 7200 & GOSUB 7400 !PRINT MESSAGE
53880 %SHMYOPA 00000FE4 GOTO 5400
54000 %SHMYOPA 00000FE9 5500 IF TYPE$ EQ 'Q' _
54020 %SHMYOPA 00000FE9 KEYO19$ = ' Q' & SPECO19 = 1 &_
54025 %SHMYOPA 0000100A GOSUB 7410 & GOTO 5540
54040 %SHMYOPA 00001014 !
54044 %SHMYOPA 00001014 IF DISFLAG EQ 1 DISFLAG = 2 &_
54048 %SHMYOPA 0000102D GOSUB 7400 &_
54052 %SHMYOPA 00001032 GOTO 5540
54056 %SHMYOPA 00001037 !
54060 %SHMYOPA 00001037 BOFLAG$ = ' '
54080 %SHMYOPA 00001040 IF OBOFLAG$ NE ' ' AND OLATE$ EQ 'F' _
54100 %SHMYOPA 0000104E GOSUB 7400 !CFA, PRO FOLLOW-UP
54105 %SHMYOPA 00001061 IF OCUTYRD$ NE ' ' THEN
54107 %SHMYOPA 0000106F BOFLAG$='C'
54109 %SHMYOPA 00001078 IF OCUTARVD$ EQ 'A' BOFLAG$='A' !CUTTING HAS ARRIVED
54110 %SHMYOPA 0000108F IF OCFAFLG$ EQ 'Y' AND OCFASTK$ EQ 'Y' _
54111 %SHMYOPA 0000109D BOFLAG$='A' &_ !CUTTING SENT FROM CFA STOCK IN NY
54112 %SHMYOPA 000010B4 OCOMMENT$='CFA SENT FROM NY STK'
54113 %SHMYOPA 000010BD ENDIF !FROM NY
54114 %SHMYOPA 000010BD !
54120 %SHMYOPA 000010BD IF OBOFLAG$ EQ ' ' DELDTE$=ORESCDTE$ &_
54125 %SHMYOPA 000010D4 GOSUB 7400
54126 %SHMYOPA 000010D9 OCOMMENT$='' !INITIALIZE FOR 'CUTTING FROM NY STOCK'
54133 %SHMYOPA 000010E2 !
54140 %SHMYOPA 000010E2 !!!! IF CAREP$ EQ 'N' KEYO19$=' NRA' &_ !NOT REP APPROVED
54160 %SHMYOPA 000010E2 !!!! GOSUB 7410
54170 %SHMYOPA 000010E2 AN$=SUB(ORDATE$,7,4)+SUB(ORDATE$,1,2)
54210 %SHMYOPA 00001115 !!!! IF OORIGCFA$ EQ ' ' AND OCFAFLG$ EQ ' ' AND OGROSS GT 0 _
54216 %SHMYOPA 00001115 !!!! KEYO19$=' CFA' &_
54220 %SHMYOPA 00001115 !!!! SPECO19 = 1 &_
54260 %SHMYOPA 00001115 !!!! GOSUB 7410
54280 %SHMYOPA 00001115 !
54440 %SHMYOPA 00001115 5540 NET = ONET - ODEPOSIL
54450 %SHMYOPA 00001124 GOSUB 6000
54451 %SHMYOPA 00001129 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 46
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
54452 %SHMYOPA 00001129 !!!! IF OSNBR1$ EQ '15 ' OR OSNBR1$ EQ '15C' OR OSNBR1$ EQ '15P' OR _
54453 %SHMYOPA 00001129 !!!! OSNBR1$ EQ '25 ' THEN
54456 %SHMYOPA 00001129 !!!! PRINT(LP,4497) & LINE = LINE + 3
54458 %SHMYOPA 00001129 !!!! ELSE
54459 %SHMYOPA 00001129 !!!! PRINT(LP,4498) & LINE = LINE + 3
54461 %SHMYOPA 00001129 !!!! ENDIF
54463 %SHMYOPA 00001129 !
54465 %SHMYOPA 00001129 !!!! IF PROFORA$ EQ ' ' OR DUP EQ 1 _
54470 %SHMYOPA 00001129 IF DUP EQ 1 _
54575 %SHMYOPA 00001129 ODISCAMT = 0 & ODISCAML = 0 & _
54579 %SHMYOPA 0000114C OMISC = 0 &_
54580 %SHMYOPA 00001156 OFRT = 0 &_
54590 %SHMYOPA 00001160 OTAXAMT = 0 &_
54880 %SHMYOPA 0000116A ODEPOSIT = 0 & ODEPOSIL = 0 & _
54890 %SHMYOPA 0000117E OGROSS = 0 &_
54900 %SHMYOPA 00001188 ONET = 0 & NET = 0
54910 %SHMYOPA 0000119C !
54915 %SHMYOPA 0000119C GROSS = OGROSS !SHORTEN FIELD
54930 %SHMYOPA 000011A6 PRINT (LP,4490) & LINE = 31
55120 %SHMYOPA 000011B7 GOSUB 6100
55140 %SHMYOPA 000011BC NEXT NUMCOP !**** LASER JET,
55160 %SHMYOPA 000011D0 IF SUB(OCORNBR$,1,1) EQ '*' AND DUP EQ 0 _ !PRINT 2ND NOTICE
55180 %SHMYOPA 000011EC OCORNBR$=SUB(OCORNBR$,2,15) &_ !WITHOUT PRICES
55200 %SHMYOPA 00001212 DUP = 1 & GOTO 5110
55220 %SHMYOPA 00001221 !
55240 %SHMYOPA 00001221 IF ODBCFLAG EQ 1 THEN
55260 %SHMYOPA 00001230 PRINT (LP) (Document = PDFFILENAME$,ZDIRPDFO$)
55265 %SHMYOPA 00001241 CLOSE (LP) & PAUSE (18)
55280 %SHMYOPA 00001249 !!! XDATE$ = ZDATE$ & GOSUB DateSerial & ZDATESER = DATESER !OD
55282 %SHMYOPA 00001249 !!! XDATE$ = OINVDTE$ & GOSUB DateSerial & INVDTSER=DATESER !OD
55290 %SHMYOPA 00001249 XDATE$ = ZDATE$ & GOSUB MySqlDate & SysDate$ = SqlDate$ !My
55306 %SHMYOPA 00001260 XDATE$ = OINVDTE$ & GOSUB MySqlDate & InvDate$=SqlDate$ !My
55310 %SHMYOPA 00001277 !!! MESS$='>'+SYSDATE$+'< >'+INVDATE$+'<' & GOSUB 9000
55320 %SHMYOPA 00001277 TAXPCT64 = OTAXPCT
55340 %SHMYOPA 00001281 GOSUB WriteTmp
55360 %SHMYOPA 00001286 ENDIF
55380 %SHMYOPA 00001286 !
55400 %SHMYOPA 00001286 GOTO 5100
55420 %SHMYOPA 0000128B !
60000 %SHMYOPA 0000128B 6000 !========== END OF FORM ==========
60010 %SHMYOPA 0000128B XC = 0
60100 %SHMYOPA 00001295 FOR I = LINE TO 26 !WAS 30 9/28/98
60200 %SHMYOPA 000012AE PRINT (LP) ''
60300 %SHMYOPA 000012B9 NEXT I
60600 %SHMYOPA 000012CD RETURN
60700 %SHMYOPA 000012CE !
60800 %SHMYOPA 000012CE 6100!=============== GET TO TOP OF NEXT FORM =========
60901 %SHMYOPA 000012CE FOR I = LINE TO 27
61000 %SHMYOPA 000012E7 PRINT(LP) ''
61012 %SHMYOPA 000012F2 NEXT I
61022 %SHMYOPA 00001306 PRINT (LP,4495)
61110 %SHMYOPA 0000130D !
61120 %SHMYOPA 0000130D ENTER 'CFCEOPA'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 47
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
61130 %SHMYOPA 00001313 PRINT (LP,4000)
61200 %SHMYOPA 0000131A RETURN
61900 %SHMYOPA 0000131B !
62000 %SHMYOPA 0000131B ! ========== CHECK LINE COUNT ==========
62020 %SHMYOPA 0000131B 6200 !
62030 %SHMYOPA 0000131B IF LINE GE MAXLINE THEN
62040 %SHMYOPA 0000132A PRINT (LP,4220)
62050 %SHMYOPA 00001331 LINE = LINE + 1
62060 %SHMYOPA 00001340 GOSUB 6100
62070 %SHMYOPA 00001345 GOSUB 7000
62080 %SHMYOPA 0000134A ENDIF
62090 %SHMYOPA 0000134A RETURN
62100 %SHMYOPA 0000134B !
70000 %SHMYOPA 0000134B 7000 ! ========== TOP OF FORM ==========
70010 %SHMYOPA 0000134B !!!! IF CAREP$ EQ 'N' AND PAGE EQ 0 _ !FOR NON APPROVED CUSTOMERS
70012 %SHMYOPA 0000134B !!!! ONAME$=CNAME$ &_ !SEND THE NOTIFICATION TO
70020 %SHMYOPA 0000134B !!!! OADR1$=CADR1$ &_ !THE REP. PUT THE CUSTOMER
70030 %SHMYOPA 0000134B !!!! OADR2$=CADR2$ &_ !NAME AND ADDRESS IN THE
70040 %SHMYOPA 0000134B !!!! OCITY$=CCITY$ &_ !SHIP TO.
70050 %SHMYOPA 0000134B !!!! OSTATE$=CSTATE$ &_
70060 %SHMYOPA 0000134B !!!! OZIP$=CZIP$ &_
70070 %SHMYOPA 0000134B !!!! OATTN$=CATTN$ &_
70080 %SHMYOPA 0000134B !!!! CNAME$=SNAME$ &_
70085 %SHMYOPA 0000134B !!!! CADR1$=SADR1$ &_
70087 %SHMYOPA 0000134B !!!! CADR2$=SADR2$ &_
70089 %SHMYOPA 0000134B !!!! CCITY$=SCITY$ &_
70091 %SHMYOPA 0000134B !!!! CSTATE$=OSTATE$ &_
70093 %SHMYOPA 0000134B !!!! CZIP$=OZIP$ &_
70095 %SHMYOPA 0000134B !!!! CATTN$=OATTN$
70097 %SHMYOPA 0000134B !
70100 %SHMYOPA 0000134B LINE = 0 & PAGE = PAGE + 1 !INITIALIZE & INCREMENT
70300 %SHMYOPA 00001364 PRINT (LP,4020) !PICK SLIP HEAD
70310 %SHMYOPA 0000136B PRINT(LP,4060)
70320 %SHMYOPA 00001372 PRINT(LP,4062)
70330 %SHMYOPA 00001379 PRINT(LP,4063)
70340 %SHMYOPA 00001380 PRINT(LP,4064)
70600 %SHMYOPA 00001387 PRINT (LP,4100) !COLUMN HEADING
71000 %SHMYOPA 0000138E RETURN
71900 %SHMYOPA 0000138F !
72000 %SHMYOPA 0000138F 7200!================ GET SHIP DATE =============
72100 %SHMYOPA 0000138F !
72200 %SHMYOPA 0000138F BOFLAG$='0' & DELDTE$=''
72210 %SHMYOPA 000013A1 IF OCUTYRD$ NE ' ' THEN
72212 %SHMYOPA 000013AF DELDTE$=OOSHPDTE$ &_
72220 %SHMYOPA 000013B8 BOFLAG$='B' &_ !BACKORDERED AT MILL
72230 %SHMYOPA 000013C1 IF OOSHPDTE$ EQ 'BACKORDER ' OHOLD2$='NOS'
72231 %SHMYOPA 000013D8 RETURN
72236 %SHMYOPA 000013D9 ENDIF
72240 %SHMYOPA 000013D9 !
72300 %SHMYOPA 000013D9 IF OQORNBR$ EQ ' ' OR OQLINE$ EQ ' ' RETURN
72400 %SHMYOPA 000013F6 KEYQ1$=OQORNBR$+OQLINE$
72500 %SHMYOPA 00001408 READ(Q1,0095) KEY=KEYQ1$,EXCP=7220
72510 %SHMYOPA 00001417 DELDTE$=QOSHPDTE$
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 48
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
72600 %SHMYOPA 00001420 BOFLAG$='1'
72700 %SHMYOPA 00001429 RETURN
72800 %SHMYOPA 0000142A !
72900 %SHMYOPA 0000142A 7220 IF EXCP EQ BUSY _
73000 %SHMYOPA 0000142A MESS$='PO '+KEYQ1$+' LOCKED OUT; TAB' &_
73100 %SHMYOPA 00001454 GOSUB 9000 & AGAIN
73200 %SHMYOPA 0000145A IF EXCP NE KEYERR ERROR
73300 %SHMYOPA 0000146A RETURN
73400 %SHMYOPA 0000146B !
74000 %SHMYOPA 0000146B 7400 !========== SET UP MESSAGES ==========
74010 %SHMYOPA 0000146B IF DISFLAG EQ 1 RETURN
74040 %SHMYOPA 0000147B GOSUB 6200 !CHECK LINE COUNT
74080 %SHMYOPA 00001480 !
74100 %SHMYOPA 00001480 IF OLATE$ EQ 'F' THEN !PROFORMA/CFA FOLLOWUP
74120 %SHMYOPA 0000148E IF OCFAFLG$ NE ' ' OCFAFLG$='F'
74140 %SHMYOPA 000014A5 IF OPROFLG$ NE ' ' OPROFLG$='F'
74145 %SHMYOPA 000014BC IF BOFLAG$ NE '0' AND BOFLAG$ NE '1' BOFLAG$=' '
74160 %SHMYOPA 000014E1 ORESFLG$=' ' & OHOLD1$='' & OHOLD2$=''
74180 %SHMYOPA 000014FC ENDIF
74200 %SHMYOPA 000014FC !
74220 %SHMYOPA 000014FC KEYO19$=BOFLAG$+OCFAFLG$+OPROFLG$+ORESFLG$+OHOLD1$+OHOLD2$
74240 %SHMYOPA 00001532 !
74260 %SHMYOPA 00001532 IF OLATE$ EQ 'L' BOFLAG$='L' &_ !LATE DELIVERY NOTICE
74280 %SHMYOPA 00001549 KEYO19$='L' & SPECO19 = 1
74300 %SHMYOPA 0000155C !
74305 %SHMYOPA 0000155C IF OLATE$ EQ 'I' BOFLAG$='I' &_ !IMPROVED DELIVERY NOTICE
74310 %SHMYOPA 00001573 KEYO19$='I' & SPECO19 = 1
74315 %SHMYOPA 00001586 !
74316 %SHMYOPA 00001586 IF DISFLAG EQ 2 _
74317 %SHMYOPA 00001586 KEYO19$=' '+' '+' '+' '+'DIS'+' ' & SPECO19 = 1
74318 %SHMYOPA 000015D5 !
74320 %SHMYOPA 000015D5 ORIGIN$ = 'OPA' & ORMCODE$ = KEYO19$
74340 %SHMYOPA 000015E7 ORECDTE8$=SUB(ZDATE$,7,4)
74360 %SHMYOPA 000015FE ORECDTE8$=ORECDTE8$+SUB(ZDATE$,1,2)
74380 %SHMYOPA 0000161E ORECDTE8$=ORECDTE8$+SUB(ZDATE$,4,2)
74400 %SHMYOPA 0000163E ORECTYP$='D'
74420 %SHMYOPA 00001647 IF ODBCFLAG EQ 0 WRITE (O1P,0803)KEY=ORNBR$+ORECTYP$+ORECDTE8$+O
74440 %SHMYOPA 0000167D 7410 READ(O19,0800) KEY=KEYO19$,EXCP=7450
74445 %SHMYOPA 0000168C !
74447 %SHMYOPA 0000168C SPECO19 = 0 !NO NEED FOR SPECIAL FLAG IF MESSAGE ON FILE.
74449 %SHMYOPA 00001696 !
74460 %SHMYOPA 00001696 PRINT(LP) "" & LINE=LINE + 1
74500 %SHMYOPA 000016B0 GOSUB 6200 !CHECK LINE COUNT
74540 %SHMYOPA 000016B5 !
74560 %SHMYOPA 000016B5 BIGDESC$=MLINE1$
74580 %SHMYOPA 000016BE IF POS('MM/DD/YYYY',BIGDESC$) NE 0 GOSUB 8500
74600 %SHMYOPA 000016D7 IF POS('####',BIGDESC$) NE 0 GOSUB 8600
74620 %SHMYOPA 000016F0 IF POS('$$$$$$$$$',BIGDESC$) NE 0 GOSUB 8400
74640 %SHMYOPA 00001709 PRINT(LP,4140) & LINE=LINE+1
74660 %SHMYOPA 0000171F IF MLINE2$ EQ BLANK$ GOTO 7420
74700 %SHMYOPA 00001732 GOSUB 6200 !CHECK LINE COUNT
74740 %SHMYOPA 00001737 !
74760 %SHMYOPA 00001737 BIGDESC$=MLINE2$
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:41 Page 49
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
74780 %SHMYOPA 00001740 IF POS('MM/DD/YYYY',BIGDESC$) NE 0 GOSUB 8500
74800 %SHMYOPA 00001759 IF POS('####',BIGDESC$) NE 0 GOSUB 8600
74820 %SHMYOPA 00001772 IF POS('$$$$$$$$$',BIGDESC$) NE 0 GOSUB 8400
74840 %SHMYOPA 0000178B PRINT(LP,4140) & LINE=LINE+1
74860 %SHMYOPA 000017A1 IF MLINE3$ EQ BLANK$ GOTO 7420
74900 %SHMYOPA 000017B4 GOSUB 6200 !CHECK LINE COUNT
74940 %SHMYOPA 000017B9 !
74960 %SHMYOPA 000017B9 BIGDESC$=MLINE3$
74980 %SHMYOPA 000017C2 IF POS('MM/DD/YYYY',BIGDESC$) NE 0 GOSUB 8500
75000 %SHMYOPA 000017DB IF POS('####',BIGDESC$) NE 0 GOSUB 8600
75020 %SHMYOPA 000017F4 IF POS('$$$$$$$$$',BIGDESC$) NE 0 GOSUB 8400
75040 %SHMYOPA 0000180D PRINT(LP,4140) & LINE=LINE+1
75060 %SHMYOPA 00001823 IF MLINE4$ EQ BLANK$ GOTO 7420
75100 %SHMYOPA 00001836 GOSUB 6200 !CHECK LINE COUNT
75140 %SHMYOPA 0000183B !
75160 %SHMYOPA 0000183B BIGDESC$=MLINE4$
75180 %SHMYOPA 00001844 IF POS('MM/DD/YYYY',BIGDESC$) NE 0 GOSUB 8500
75200 %SHMYOPA 0000185D IF POS('####',BIGDESC$) NE 0 GOSUB 8600
75220 %SHMYOPA 00001876 IF POS('$$$$$$$$$',BIGDESC$) NE 0 GOSUB 8400
75240 %SHMYOPA 0000188F PRINT(LP,4140) & LINE=LINE+1
75260 %SHMYOPA 000018A5 BIGDESC$=MLINE5$
75280 %SHMYOPA 000018AE IF MLINE5$ EQ BLANK$ GOTO 7420
75320 %SHMYOPA 000018C1 GOSUB 6200 !CHECK LINE COUNT
75360 %SHMYOPA 000018C6 !
75380 %SHMYOPA 000018C6 IF POS('MM/DD/YYYY',BIGDESC$) NE 0 GOSUB 8500
75400 %SHMYOPA 000018DF IF POS('####',BIGDESC$) NE 0 GOSUB 8600
75420 %SHMYOPA 000018F8 IF POS('$$$$$$$$$',BIGDESC$) NE 0 GOSUB 8400
75440 %SHMYOPA 00001911 PRINT(LP,4140) & LINE=LINE+1
75460 %SHMYOPA 00001927 IF MLINE6$ EQ BLANK$ GOTO 7420
75500 %SHMYOPA 0000193A GOSUB 6200 !CHECK LINE COUNT
75540 %SHMYOPA 0000193F !
75560 %SHMYOPA 0000193F BIGDESC$=MLINE6$
75580 %SHMYOPA 00001948 IF POS('MM/DD/YYYY',BIGDESC$) NE 0 GOSUB 8500
75600 %SHMYOPA 00001961 IF POS('####',BIGDESC$) NE 0 GOSUB 8600
75620 %SHMYOPA 0000197A IF POS('$$$$$$$$$',BIGDESC$) NE 0 GOSUB 8400
75640 %SHMYOPA 00001993 PRINT(LP,4140) & LINE=LINE+1
75660 %SHMYOPA 000019A9 IF MLINE7$ EQ BLANK$ GOTO 7420
75700 %SHMYOPA 000019BC GOSUB 6200 !CHECK LINE COUNT
75740 %SHMYOPA 000019C1 !
75760 %SHMYOPA 000019C1 BIGDESC$=MLINE7$
75780 %SHMYOPA 000019CA IF POS('MM/DD/YYYY',BIGDESC$) NE 0 GOSUB 8500
75800 %SHMYOPA 000019E3 IF POS('####',BIGDESC$) NE 0 GOSUB 8600
75820 %SHMYOPA 000019FC IF POS('$$$$$$$$$',BIGDESC$) NE 0 GOSUB 8400
75840 %SHMYOPA 00001A15 PRINT(LP,4140) & LINE=LINE+1
75860 %SHMYOPA 00001A2B IF MLINE8$ EQ BLANK$ GOTO 7420
75900 %SHMYOPA 00001A3E GOSUB 6200 !CHECK LINE COUNT
75940 %SHMYOPA 00001A43 !
75960 %SHMYOPA 00001A43 BIGDESC$=MLINE8$
75980 %SHMYOPA 00001A4C IF POS('MM/DD/YYYY',BIGDESC$) NE 0 GOSUB 8500
76000 %SHMYOPA 00001A65 IF POS('####',BIGDESC$) NE 0 GOSUB 8600
76020 %SHMYOPA 00001A7E IF POS('$$$$$$$$$',BIGDESC$) NE 0 GOSUB 8400
76040 %SHMYOPA 00001A97 PRINT(LP,4140) & LINE=LINE+1
76060 %SHMYOPA 00001AAD IF MLINE9$ EQ BLANK$ GOTO 7420
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 50
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
76100 %SHMYOPA 00001AC0 GOSUB 6200 !CHECK LINE COUNT
76140 %SHMYOPA 00001AC5 !
76160 %SHMYOPA 00001AC5 BIGDESC$=MLINE9$
76180 %SHMYOPA 00001ACE IF POS('MM/DD/YYYY',BIGDESC$) NE 0 GOSUB 8500
76200 %SHMYOPA 00001AE7 IF POS('####',BIGDESC$) NE 0 GOSUB 8600
76220 %SHMYOPA 00001B00 IF POS('$$$$$$$$$',BIGDESC$) NE 0 GOSUB 8400
76240 %SHMYOPA 00001B19 PRINT(LP,4140) & LINE=LINE+1
76260 %SHMYOPA 00001B2F IF MLINE10$ EQ BLANK$ GOTO 7420
76268 %SHMYOPA 00001B42 GOSUB 6200 !CHECK LINE COUNT
76276 %SHMYOPA 00001B47 !
76280 %SHMYOPA 00001B47 BIGDESC$=MLINE10$
76300 %SHMYOPA 00001B50 IF POS('MM/DD/YYYY',BIGDESC$) NE 0 GOSUB 8500
76320 %SHMYOPA 00001B69 IF POS('####',BIGDESC$) NE 0 GOSUB 8600
76340 %SHMYOPA 00001B82 IF POS('$$$$$$$$$',BIGDESC$) NE 0 GOSUB 8400
76360 %SHMYOPA 00001B9B PRINT(LP,4140) & LINE=LINE+1
76380 %SHMYOPA 00001BB1 7420 PRINT(LP) "" & LINE = LINE + 1
76400 %SHMYOPA 00001BCB RETURN
76420 %SHMYOPA 00001BCC !
76440 %SHMYOPA 00001BCC 7450 IF EXCP EQ BUSY MESS$= KEYO19$+" LOCKED OUT IN 'ORM'; TAB" &_
76460 %SHMYOPA 00001BED GOSUB 9000 & AGAIN
76480 %SHMYOPA 00001BF3 IF EXCP NE KEYERR ERROR
76500 %SHMYOPA 00001C03 !
76520 %SHMYOPA 00001C03 IF ORESFLG$ EQ 'Y' AND SPECO19 NE 1 _
76540 %SHMYOPA 00001C11 ORESFLG$=' ' &_
76560 %SHMYOPA 00001C29 KEYO19$=BOFLAG$+OCFAFLG$+OPROFLG$+ORESFLG$+OHOLD1$+OHOLD2$ &_
76565 %SHMYOPA 00001C5F GOTO 7410 !ELIMINATE RESERVE SEGMENT
76567 %SHMYOPA 00001C64 !
76569 %SHMYOPA 00001C64 IF OHOLD2$ NE ' ' AND SPECO19 NE 1 AND (OHOLD1$ NE ' ' OR _
76570 %SHMYOPA 00001C8F OCFAFLG$ NE ' ' OR OPROFLG$ NE ' ') _
76572 %SHMYOPA 00001CAB OHOLD2$=' ' &_
76574 %SHMYOPA 00001CB4 KEYO19$=BOFLAG$+OCFAFLG$+OPROFLG$+ORESFLG$+OHOLD1$+OHOLD2$ &_
76575 %SHMYOPA 00001CEA GOTO 7410 !ELIMINATE HOLD 2 SEGMENT
76577 %SHMYOPA 00001CEF !
76579 %SHMYOPA 00001CEF !
76581 %SHMYOPA 00001CEF !!!! IF OHOLD1$ NE ' ' AND SPECO19 NE 1 AND _
76583 %SHMYOPA 00001CEF !!!! (OCFAFLG$ NE ' ' OR OPROFLG$ NE ' ') _
76585 %SHMYOPA 00001CEF !!!! OHOLD1$=' ' &_
76587 %SHMYOPA 00001CEF !!!! KEYO19$=BOFLAG$+OCFAFLG$+OPROFLG$+ORESFLG$+OHOLD1$+OHOLD2$ &_
76589 %SHMYOPA 00001CEF !!!! GOTO 7410 !ELIMINATE HOLD 1 SEGMENT
76590 %SHMYOPA 00001CEF IF SPECO19 EQ 1 PRINT(LP,4231) & LINE = LINE + 3
76600 %SHMYOPA 00001D14 ! SPECO19 IS SET TO 1 WHEN KEYO19$ IS SET BECAUSE OF A SPECIAL
76620 %SHMYOPA 00001D14 ! MESSAGE AND NOT FROM THE HOLD CODES. IN THIS CASE FORMAT 4230
76640 %SHMYOPA 00001D14 ! WOULD NOT GIVE THE PROPER KEYO19.
76660 %SHMYOPA 00001D14 !
76680 %SHMYOPA 00001D14 PRINT(LP,4230) & LINE = LINE + 3
76700 %SHMYOPA 00001D2A SPECO19 = 0
76720 %SHMYOPA 00001D34 RETURN
80000 %SHMYOPA 00001D35 !!!!* 8000 USE '^COJULIA'
81000 %SHMYOPA 00001D35 !
81100 %SHMYOPA 00001D35 8100 !================ PRINT PIECES ============
81200 %SHMYOPA 00001D35 READ(O1S,0068) KEY=KEYO1$,EXCP=8110
81300 %SHMYOPA 00001D44 8110 KEYO1S$=KEY(O1S,EXCP=8190)
81400 %SHMYOPA 00001D54 IF SUB(KEYO1S$,1,12) NE SUB(KEYO1$,1,12) GOTO 8190
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 51
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
81500 %SHMYOPA 00001D88 READ(O1S,0068)
81510 %SHMYOPA 00001D8F !!!! IF SUB(OLOT$,1,2) EQ 'XX' AND SUB(OPCE$,1,2) EQ 'XX' AND _
81520 %SHMYOPA 00001D8F !!!! OQTYORD EQ OSHPPCE RETURN
81600 %SHMYOPA 00001D8F KEYI1R$=INBR$+OLOT$+OPCE$ & LOC$=''
81700 %SHMYOPA 00001DB3 READ(I1R,0210) KEY=KEYI1R$,EXCP=8150 !GET LOCATION
81710 %SHMYOPA 00001DC2 8130 GOSUB 6200 ! CHECK LINE COUNT
81790 %SHMYOPA 00001DC7 SHPPCE = 0
81840 %SHMYOPA 00001DD1 IF OQTYORD NE OSHPPCE SHPPCE = OSHPPCE
82100 %SHMYOPA 00001DEA PRINT(LP,4121) & LINE = LINE + 1
82200 %SHMYOPA 00001E00 GOTO 8110
82300 %SHMYOPA 00001E05 !
82400 %SHMYOPA 00001E05 8150 IF EXCP EQ KEYERR GOTO 8130
82500 %SHMYOPA 00001E19 IF EXCP EQ BUSY PAUSE 1200 &_
82600 %SHMYOPA 00001E2D AGAIN
82700 %SHMYOPA 00001E2E ERROR
82800 %SHMYOPA 00001E2F 8190 RETURN
82900 %SHMYOPA 00001E30 !
84000 %SHMYOPA 00001E30 8400 !========== SUBSTITUTE FOR DEPOSIT AMOUNT ==========
84020 %SHMYOPA 00001E30 TEMP$=BIGDESC$
84040 %SHMYOPA 00001E39 AN = POS('$$$$$$$$$',BIGDESC$)
84060 %SHMYOPA 00001E48 BIGDESC$=SUB(BIGDESC$,1,AN-1)
84080 %SHMYOPA 00001E69 BIGDESC$=BIGDESC$+SUB(STR(DOLLREQ),1,9)
84100 %SHMYOPA 00001E8F BIGDESC$=BIGDESC$+SUB(TEMP$,AN+9,70)
84120 %SHMYOPA 00001EB9 RETURN
84190 %SHMYOPA 00001EBA !
85000 %SHMYOPA 00001EBA 8500 !========== SUBSTITUTE A DATE ==========
85100 %SHMYOPA 00001EBA TEMP$=BIGDESC$
85200 %SHMYOPA 00001EC3 AN = POS('MM/DD/YYYY',BIGDESC$)
85300 %SHMYOPA 00001ED2 BIGDESC$=SUB(BIGDESC$,1,AN-1)+DELDTE$
85400 %SHMYOPA 00001EFC BIGDESC$=BIGDESC$+SUB(TEMP$,AN+10,70)
85500 %SHMYOPA 00001F26 RETURN
85900 %SHMYOPA 00001F27 !
86000 %SHMYOPA 00001F27 8600 !========== SUBSTITUTE LEAD TIME ==========
86010 %SHMYOPA 00001F27 VSHPDAYS = 0
86020 %SHMYOPA 00001F31 READ(V1,0085) KEY=IVNBR$,EXCP=8620 !GET NUMBER OF SHIP DAYS
86100 %SHMYOPA 00001F40 8610 TEMP$=BIGDESC$
86200 %SHMYOPA 00001F49 AN = POS('####',BIGDESC$)
86300 %SHMYOPA 00001F58 BIGDESC$=SUB(BIGDESC$,1,AN-1)
86320 %SHMYOPA 00001F79 IPLEAD = ABS(IPLEAD) +(ZDELDYO + VSHPDAYS) / 7.00000!ADD TURN AR
86400 %SHMYOPA 00001FB0 BIGDESC$=BIGDESC$+SUB(STR(IPLEAD),1,4)
86500 %SHMYOPA 00001FD6 BIGDESC$=BIGDESC$+SUB(TEMP$,AN+4,70)
86600 %SHMYOPA 00002000 RETURN
86610 %SHMYOPA 00002001 !
86620 %SHMYOPA 00002001 8620 IF EXCP EQ BUSY MESS$='VENDOR LOCKED OUT; TAB' &_
86640 %SHMYOPA 00002019 GOSUB 9050 & GOTO 8600
86660 %SHMYOPA 00002023 GOTO 8610
86669 %SHMYOPA 00002028 !
86760 %SHMYOPA 00002028 USE '^CO8920'
80 ^CO8920 00002028 JULDY:
100 ^CO8920 00002028 !=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=- ^8920 =-=-=-=-=-=-==-=-=-=-=-=-=-
200 ^CO8920 00002028 !
300 ^CO8920 00002028 ! Date Conversion Subroutine...
400 ^CO8920 00002028 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 52
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
500 ^CO8920 00002028 ! Input : XDATE$ as MM/DD/CCYY
600 ^CO8920 00002028 !
700 ^CO8920 00002028 !
800 ^CO8920 00002028 ! Output: ZDYCT Century Day (relative to 01/01/01)
900 ^CO8920 00002028 ! ZDYYR Normal Julian day
1000 ^CO8920 00002028 ! ZDYWK Day of the week (MON = 1, Tues = 2,...)
1100 ^CO8920 00002028 !
1110 ^CO8920 00002028 ! PLEASE NOTE: STARTING WITH 01/01/2000 - IF YOU WANT
1120 ^CO8920 00002028 ! TO RETRIEVE THE ACTUAL DAY OF THE CENTURY FOR THE
1130 ^CO8920 00002028 ! 21ST CENTURY, SUBTRACT 36,159 FROM ZDYCT. FOR AGEING
1140 ^CO8920 00002028 ! PURPOSES, THE REFERENCE POINT IS 1900 AND YEARS COUNT
1150 ^CO8920 00002028 ! FROM 99 TO 100, 101, .... INSTEAD OF TURNING TO ZERO.
1160 ^CO8920 00002028 !
1200 ^CO8920 00002028 !
1300 ^CO8920 00002028 MONTH = NUM(SUB(XDATE$,1,2),ERR)
1400 ^CO8920 00002045 DAY = NUM(SUB(XDATE$,4,2),ERR)
1500 ^CO8920 00002062 YEAR = NUM(SUB(XDATE$,9,2),ERR)
1520 ^CO8920 0000207F IF YEAR LT 50 _
1540 ^CO8920 0000207F YEAR = YEAR + 100
1600 ^CO8920 0000209D LEAPYR = 2
1700 ^CO8920 000020A7 IF (INT(YEAR / 4.000) * 4.) = YEAR THEN LEAPYR = 1
1800 ^CO8920 000020D8 ZDYYR = INT(MONTH * 275 / 9.000) + DAY - 30
1900 ^CO8920 00002104 IF MONTH > 2 THEN ZDYYR = ZDYYR- LEAPYR
2000 ^CO8920 00002122 ZDYCT = INT((YEAR - 1) * 1461 /4.000) + ZDYYR
2300 ^CO8920 00002158 ZDYWK = ZDYCT - INT(ZDYCT / 7.000) * 7 + 1
2400 ^CO8920 00002185 RETURN
2500 ^CO8920 00002186 !
2600 ^CO8920 00002186 !=====================================================================
86860 %SHMYOPA 00002186 USE '^CO8960'
80 ^CO8960 00002186 DTCNV:
100 ^CO8960 00002186 !=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ^8960 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
200 ^CO8960 00002186 !
300 ^CO8960 00002186 ! Date Conversion Subroutine...
400 ^CO8960 00002186 ! Input : ZDYCT Century Day (Julian Day Relative to
500 ^CO8960 00002186 !
600 ^CO8960 00002186 ! Output: XDATE$ as MM/DD/YYYY
800 ^CO8960 00002186 ! ZDYYR Normal Julian Day
1000 ^CO8960 00002186 ! ZDYWK Day of the Week (Mon = 1, Tues = 2,
1100 ^CO8960 00002186 !
1200 ^CO8960 00002186 !
1300 ^CO8960 00002186 YEAR = INT((ZDYCT - INT(ZDYCT / 1461.000) + 364) / 365.000)
1400 ^CO8960 000021B9 ZDYYR = ZDYCT - INT((YEAR - 1) * 1461 / 4.000)
1500 ^CO8960 000021F0 LEAPYR = 2
1600 ^CO8960 000021FA IF INT(YEAR / 4.000) * 4 = YEAR THEN LEAPYR = 1
1700 ^CO8960 0000222B XTEMPNO = ZDYYR
1800 ^CO8960 00002235 IF XTEMPNO > (61 - LEAPYR) THEN XTEMPNO = XTEMPNO + LEAPYR
1900 ^CO8960 00002259 XMO = INT((XTEMPNO * 9 + 269) / 275.000)
2000 ^CO8960 00002280 XDA = XTEMPNO - INT(XMO * 275 / 9.000) + 30
2100 ^CO8960 000022AD ZDYWK = ZDYCT - INT(ZDYCT / 7.000) * 7 + 1
2200 ^CO8960 000022DA XMO$ =SUB(STR(XMO+100),15,2)
2210 ^CO8960 00002301 XDA$ =SUB(STR(XDA+100),15,2)
2220 ^CO8960 00002328 IF ZDYCT LE 36159 _ ! LAST DAY OF 1
2222 ^CO8960 00002328 XDATE$ = XMO$ + '/' + XDA$ + '/19'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 53
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2224 ^CO8960 0000235B IF ZDYCT GT 36159 _
2226 ^CO8960 0000235B XDATE$ = XMO$ + '/' + XDA$ + '/20'
2230 ^CO8960 0000238E XDATE$ = XDATE$ + SUB(STR(YEAR),2,2)
2240 ^CO8960 000023B4 RETURN
2400 ^CO8960 000023B5 !
2500 ^CO8960 000023B5 !=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
88000 %SHMYOPA 000023B5 USE '^COPRNTR' ! 8800 PRINTER BUSY
19000 ^COPRNTR 000023B5 !
19020 ^COPRNTR 000023B5 ! OUTLINE OF ^COPRNTR FUNCTIONALITY
19040 ^COPRNTR 000023B5 !====================================
19060 ^COPRNTR 000023B5 !
19080 ^COPRNTR 000023B5 ! GOSUB GETPRNT IN A PRINT PROGRAM CALLS THIS ROUTINE. LET'S SAY PRO
19100 ^COPRNTR 000023B5 ! IS BEING RUN. WHEN SL STARTED UP, Z1 WAS READ WITH TERM$ AND A ZLP
19120 ^COPRNTR 000023B5 ! BEEN READ IN. IT MAY BE 'LPX' IN WHICH CASE THE DIALOG BOX OR INPU
19140 ^COPRNTR 000023B5 ! WILL COME UP. IT MAY BE A VALID PRINTER NAME.
19160 ^COPRNTR 000023B5 !
19180 ^COPRNTR 000023B5 ! PROGRAM LPM MAINTAINS PRINTERS AND CONDENSED PRINT PROGRAM NAMES.
19200 ^COPRNTR 000023B5 ! PRINTERS ARE ENTERED IN LPM THEN NO '(' PRINTER RECORDS WILL EXIST
19220 ^COPRNTR 000023B5 ! AND THIS ROUTINE WILL SIMPLY DROP DOWN TO THE PRINTER OPEN. THE RE
19240 ^COPRNTR 000023B5 ! THIS OUTLINE DESCRIBES WHAT'S GOING ON IF '(' LPM PRINTER ENTRIES D
19260 ^COPRNTR 000023B5 !
19280 ^COPRNTR 000023B5 ! AN = 99, AN = 0. AN IS SET TO ZERO IF AT LEAST ONE '(' ENTRY EXIST
19300 ^COPRNTR 000023B5 ! SINCE DLG4 IS THE WINDOWS DIALOG BOX THAT DOES THE PRINTER SELECTIO
19320 ^COPRNTR 000023B5 ! YOU DON'T WANT TO HAVE THE DIALOG BOX COME UP IF NO PRINTERS ARE DE
19340 ^COPRNTR 000023B5 ! LPM. AN IS INITIALIZED TO 99 UPON ENTRY AND SET TO 0 IF A '(' KEY E
19360 ^COPRNTR 000023B5 !
19380 ^COPRNTR 000023B5 ! THE PROGRAM READS Z1 WITH '(' AND DOES A KEY FUNCTION. IF A VALID
19400 ^COPRNTR 000023B5 ! FOUND STARTING WITH '(' THEN AN IS SET TO ZERO AND DLG4 CAN BE USED
19420 ^COPRNTR 000023B5 ! ZM FIELD ZPTRDLG$ IS THEN CHECKED. IF IT IS 'N' THEN THE END-USER
19440 ^COPRNTR 000023B5 ! TO NOT USE THE WINDOWS DIALOG BOX AND INSTEAD WILL USE THE MESSAGE
19460 ^COPRNTR 000023B5 ! PROMPT FOR THE PRINTER.
19480 ^COPRNTR 000023B5 !
19500 ^COPRNTR 000023B5 ! THE ROUTINE NEXT GETS THE PROGRAM THAT IS RUNNING WITH A PSTAT AND
19520 ^COPRNTR 000023B5 ! PROGRAM NAME TOGETHER WITH ')'. PROGRAM LPM MAINTAINS PROGRAMS THA
19540 ^COPRNTR 000023B5 ! PRINT IN CONDENSED PRINT IF THEY GO TO A LASER PRINTER. THESE ENTR
19560 ^COPRNTR 000023B5 ! WRITTEN WITH ')' + PROGRAM NAME. IN THIS EXAMPLE IT READS WITH ')S
19580 ^COPRNTR 000023B5 !
19600 ^COPRNTR 000023B5 ! IF THE ')' + PROGRAM NAME KEY IS FOUND IN Z1, IT MEANS THIS SPECIFI
19620 ^COPRNTR 000023B5 ! SHOULD PRINT CONDENSED. IF THIS IS THE CASE AND THE ZLP$ FOR THIS
19640 ^COPRNTR 000023B5 ! RECORD IS 'LJX' WHERE X IS A PRINTER NUMBER ( LJ3, LJ5, ETC. ) THEN
19660 ^COPRNTR 000023B5 ! ROUTINE CHANGES THE PRINTER TO A CONDENSED PRINTER FOR THIS PRINT J
19680 ^COPRNTR 000023B5 ! IF IT WAS 'LJ5' IT IS CHANGED TO 'LC5'.
19700 ^COPRNTR 000023B5 !
19720 ^COPRNTR 000023B5 ! THE PROGRAM THEN DOES THE PRINTER OPEN. THE PRINTER OPEN IS ALSO D
19740 ^COPRNTR 000023B5 ! TO IF THERE ARE NO '(' PRINTERS IN Z1 AND ALSO IF ZPTRDLG$ EQUALS '
19760 ^COPRNTR 000023B5 !
19780 ^COPRNTR 000023B5 ! NEXT, ZLP$ IS OPENED. IF THERE IS ANY EXCEPTION ON THE OPEN THE RO
19800 ^COPRNTR 000023B5 ! WILL EITHER RUN THE WINDOWS DIALOG BOX PRINTER SELECTOR OR THE OPER
19820 ^COPRNTR 000023B5 ! INPUT MESSAGE PROMPT, DEPENDING ON THE VALUE OF AN.
19830 ^COPRNTR 000023B5 !
19840 ^COPRNTR 000023B5 ! DLG4 DISPLAYS A WINDOWS DIALOG BOX THAT SHOWS ALL PRINTERS ENTERED
19850 ^COPRNTR 000023B5 ! THIS MEANS ALL KEYS IN Z1 THAT START WITH A '('. FOR COMETANYWHERE
19860 ^COPRNTR 000023B5 ! DLG4 WILL ONLY DISPLAY PRINTERS CONFIGURED AS '#' PRINTERS.
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 54
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
19870 ^COPRNTR 000023B5 !
19880 ^COPRNTR 000023B5 !
20000 ^COPRNTR 000023B5 GETPRNT: !========== GET PRINTER =========
20100 ^COPRNTR 000023B5 !
20110 ^COPRNTR 000023B5 AN = 99 ! CODE TO ACCOMODATE 503 & 504 USERS WITH NO
20112 ^COPRNTR 000023BF MAXLINE = 58
20120 ^COPRNTR 000023C9 READ (Z1,CKPRNTR)KEY='(',EXCP=USEWINDW ! CMTNAME SET
20130 ^COPRNTR 000023D8 USEWINDW:
20140 ^COPRNTR 000023D8 MESS$ = KEY(Z1,EXCP=OPENPRNT)
20150 ^COPRNTR 000023E8 IF SUB(MESS$,1,1) NE '(' GOTO OPENPRNT
20160 ^COPRNTR 00002409 IF ZPTRDLG$ EQ 'N' GOTO OPENPRNT ! DO NOT USE PRINTER DIALOG
20170 ^COPRNTR 0000241C AN = 0 ! OK TO PROCESS WINDOWS PRINTER LOOKUP DIALOG
20180 ^COPRNTR 00002426 !
20200 ^COPRNTR 00002426 MESS$=PSTAT(PARTITION$)
20300 ^COPRNTR 00002435 ZLJPROG$=')'+SUB(MESS$,1,8)
20400 ^COPRNTR 00002455 IF SUB(MESS$,1,2) EQ 'WW' ZLJPROG$=')'+SUB(MESS$,3,6)
20500 ^COPRNTR 00002491 !
20510 ^COPRNTR 00002491 ! Determine if program should be printed in condensed mode for
20520 ^COPRNTR 00002491 ! narrow paper.
20530 ^COPRNTR 00002491 !
20550 ^COPRNTR 00002491 LJCONFLG = 0 !LASER JET CONDENSE FLAG, DEFAULT TO 0
20700 ^COPRNTR 0000249B READ (Z1,CKLJCOND) KEY=ZLJPROG$ ,EXCP=OPENPRNT
20750 ^COPRNTR 000024AA LJCONFLG = 1 !VALID LASER PROGRAM TO CONDENSE
20900 ^COPRNTR 000024B4 !
21000 ^COPRNTR 000024B4 VALPRNT: !======== DETERMINE IF PRINTER HAS CONDENSE ABILITY =====
21100 ^COPRNTR 000024B4 !
21110 ^COPRNTR 000024B4 ZLJPFLAG = 0
21200 ^COPRNTR 000024BE READ (Z1,CKPRNTR) KEY='('+ZLP$,EXCP=OPENPRNT
21300 ^COPRNTR 000024D7 !
21310 ^COPRNTR 000024D7 ! ========== CHANGE PRINTER NAME IF CONDENSED ======
21400 ^COPRNTR 000024D7 IF LJCONFLG EQ 1 AND ZLJPFLAG EQ 1 THEN
21500 ^COPRNTR 000024F5 !
21600 ^COPRNTR 000024F5 IF SUB(ZLP$,2,1) EQ 'J' THEN
21700 ^COPRNTR 00002511 ZLP$=SUB(ZLP$,1,1)+'C'+SUB(ZLP$,3,1)
21800 ^COPRNTR 0000254D ELSE
21900 ^COPRNTR 00002552 IF SUB(ZLP$,2,2) EQ 'F1' _ !CONDENSED
22000 ^COPRNTR 00002560 ZLP$='LF2' !FAX
22100 ^COPRNTR 00002577 ENDIF
22200 ^COPRNTR 00002577 !
22300 ^COPRNTR 00002577 ENDIF
22400 ^COPRNTR 00002577 !
22500 ^COPRNTR 00002577 OPENPRNT: !========= OPEN PRINTER ============
22600 ^COPRNTR 00002577 !
22620 ^COPRNTR 00002577 CLOSE (LP)
22700 ^COPRNTR 0000257A OPEN (LP) ZLP$,EXCP=EXCPPRNT
22800 ^COPRNTR 00002585 RETURN
22900 ^COPRNTR 00002586 !
23000 ^COPRNTR 00002586 EXCPPRNT: !============ EXCEPTION OPENING PRINTER =========
23010 ^COPRNTR 00002586 !
23100 ^COPRNTR 00002586 IF AN EQ 0 THEN
23110 ^COPRNTR 00002595 PRINT (#) ''
23120 ^COPRNTR 000025A0 CLOSE (LP) & OPEN (LP) 'DLG4',EXCP=NODLG4
23130 ^COPRNTR 000025AE ENTER "DLG4"
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 55
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
23140 ^COPRNTR 000025B4 INPUT (#) AN$
23150 ^COPRNTR 000025BF IF AN$ NE '' THEN
23160 ^COPRNTR 000025CD ZLP$ = AN$
23170 ^COPRNTR 000025D6 PORL$ = SUB(AN$,4,1)
23180 ^COPRNTR 000025ED MAXLINE = 58
23190 ^COPRNTR 000025F7 IF PORL$ EQ 'L' _
23200 ^COPRNTR 000025F7 MAXLINE = 44
23210 ^COPRNTR 0000260F GOTO VALPRNT
23220 ^COPRNTR 00002614 ENDIF
23230 ^COPRNTR 00002614 ENDIF
23240 ^COPRNTR 00002614 !
24200 ^COPRNTR 00002614 NODLG4: MESS$ = 'PRINTER BUSY. TRY AGAIN? (Y/N/LPx/?)'
24300 ^COPRNTR 0000261D GOSUB 9000
24400 ^COPRNTR 00002622 IF AN$ EQ "N" RUN "Z"
24500 ^COPRNTR 00002636 IF (AN$ GE 'L01' AND AN$ LE 'LZZ') OR _
24600 ^COPRNTR 00002657 (AN$ GE 'S ' AND AN$ LE 'SZZ') _
24700 ^COPRNTR 00002673 ZLP$ = AN$ & GOTO VALPRNT
24800 ^COPRNTR 00002681 IF SUB(AN$,1,1) EQ '?' GOTO EXCPPRNT
24900 ^COPRNTR 000026A2 IF AN$ NE "Y" GOTO EXCPPRNT
25000 ^COPRNTR 000026B5 AGAIN
25100 ^COPRNTR 000026B6 !
90000 %SHMYOPA 000026B6 USE '^COMSRT8' ! 9000 MESSAGE WRITER
100 ^COMSRT8 000026B6 9000 !========= MESSAGE WRITING ROUTINE =========
200 ^COMSRT8 000026B6 LM = LEN(MESS$)
300 ^COMSRT8 000026C1 PM = 36 - (LM/2)
400 ^COMSRT8 000026D5 PRINT (0, 91)
500 ^COMSRT8 000026DC IF BLIND$ NE 'B' PRINT (0, 90)
600 ^COMSRT8 000026F1 IF BLIND$ EQ 'B' PRINT (0, 96)
700 ^COMSRT8 00002706 INPUT (0) AN$
800 ^COMSRT8 00002711 PRINT (0, 91) & BLIND$ = ''
900 ^COMSRT8 00002721 RETURN
1000 ^COMSRT8 00002722 9050 PRINT (0, 92) ! Ring Bell @ 0,23
1100 ^COMSRT8 00002729 GOTO 9000
1200 ^COMSRT8 0000272E 9060 BLIND$ = 'B'
1300 ^COMSRT8 00002737 GOTO 9000
90010 %SHMYOPA 0000273C USE '^PSQLOPC' ! MYSQL CODE
1000 ^PSQLOPC 0000273C ! ^PSQLOPC - MYSQL CODE
1010 ^PSQLOPC 0000273C ! CREATED: 01/27/12 JAB for Writing to MySQL Table "OrdInfo"
1020 ^PSQLOPC 0000273C ! USED IN: OPA, OP and RP
1090 ^PSQLOPC 0000273C !
1099 ^PSQLOPC 0000273C !
10000 ^PSQLOPC 0000273C !---------------- Open MySQL DB as defined on Z1 --------------
10100 ^PSQLOPC 0000273C OpenMySql:
10200 ^PSQLOPC 0000273C INQUIRE(Z1,Z1PDFSQL) KEY='*PDFMYSQL' ! GET MYSQL DB INFO
10210 ^PSQLOPC 00002747 CLOSE(SqlLun) & OPEN(SqlLun) "SQL"
10290 ^PSQLOPC 00002751 !
10300 ^PSQLOPC 00002751 OpenErlg:
10310 ^PSQLOPC 00002751 CLOSE(SqlErlg) & OPEN(Sqlerlg) "SQLERLG",Excp=NoErrLg
10320 ^PSQLOPC 0000275F GOTO OpenDB
10390 ^PSQLOPC 00002764 !
10400 ^PSQLOPC 00002764 NoErrLg:
10420 ^PSQLOPC 00002764 CREATE "SQLERLG",151,K,21,DIR=ZFXD$
10430 ^PSQLOPC 00002777 GOTO OpenErlg
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 56
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
10490 ^PSQLOPC 0000277C !
10500 ^PSQLOPC 0000277C OpenDB:
10510 ^PSQLOPC 0000277C !!!result$=( "CONNECT PDF@_Image testserver.pdfkqs.local pdfsys1 satch
10520 ^PSQLOPC 0000277C XDATABASE$="CONNECT "+STRIP(ZMYSQLDB$)+' '+STRIP(ZMYSQLSERVER$)+'
10530 ^PSQLOPC 000027BA XDATABASE$=XDATABASE$+STRIP(ZMYSQLUSER$)+' '+STRIP(ZMYSQLPASS$)+'
10540 ^PSQLOPC 000027F8 XDATABASE$=XDATABASE$+STRIP(ZMYSQLPORT$)
10550 ^PSQLOPC 00002810 result$=Control(SqlLun,XDATABASE$)
10560 ^PSQLOPC 00002820 !
10600 ^PSQLOPC 00002820 If sub(result$, 1, 1)EQ "-" error$ = Control(SqlLun,"GETLASTERROR"
10610 ^PSQLOPC 0000284C Goto DbOpenError
10620 ^PSQLOPC 00002851 !
10700 ^PSQLOPC 00002851 GOTO GetBatchSeqnum
10800 ^PSQLOPC 00002856 !
11000 ^PSQLOPC 00002856 DbOpenError:
11100 ^PSQLOPC 00002856 EFUNC$='Cannot open: '+ZMYSQLDB$
11200 ^PSQLOPC 00002868 Errmsg$=error$
11300 ^PSQLOPC 00002871 Gosub WriteSqlErrorLog
11400 ^PSQLOPC 00002876 PRINT(0,MySqlErrorMsg)
11500 ^PSQLOPC 0000287D Goto ErrorExit
11900 ^PSQLOPC 00002882 !
13000 ^PSQLOPC 00002882 !------ Get Batch Sequence# to append to end of Image file name ------
13010 ^PSQLOPC 00002882 GetBatchSeqnum:
13100 ^PSQLOPC 00002882 CLOSE(ODBCERLG) & OPEN (ODBCERLG) 'ODBCERLG'
13200 ^PSQLOPC 0000288C EXTRACT (Z1,DOCNBR)KEY='DOCUMENTIMAGE',EXCP=Z1EXCP
13300 ^PSQLOPC 0000289B DOCINC = DOCINC + .00000001
13400 ^PSQLOPC 000028AA WRITE (Z1,DOCNBR)
13500 ^PSQLOPC 000028B1 DOCNUM$ = SUB(ZDATE$,7,4)
13510 ^PSQLOPC 000028C8 DOCNUM$ = DOCNUM$ + SUB(ZDATE$,1,2)
13520 ^PSQLOPC 000028E8 DOCNUM$ = DOCNUM$ + SUB(ZDATE$,4,2)
13530 ^PSQLOPC 00002908 DOCNUM$ = DOCNUM$ + SUB(STR(DOCINC),2,8)
13580 ^PSQLOPC 0000292E RETURN
13590 ^PSQLOPC 0000292F !
13700 ^PSQLOPC 0000292F Z1Excp:
13710 ^PSQLOPC 0000292F IF EXCP EQ 33 AGAIN
13720 ^PSQLOPC 0000293F IF EXCP NE 32 ERROR
13730 ^PSQLOPC 0000294F DOCINC = 0
13740 ^PSQLOPC 00002959 WRITE (Z1,DOCNBR)KEY='DOCUMENTIMAGE'
13750 ^PSQLOPC 00002964 AGAIN
13900 ^PSQLOPC 00002965 !
13990 ^PSQLOPC 00002965 !
20090 ^PSQLOPC 00002965 !=========== Set MySQL table "Ordinfo" for Writing ==========
20100 ^PSQLOPC 00002965 SetWriteOrdinfo:
20220 ^PSQLOPC 00002965 GOSUB OpenMySql ! Open MySQL Database
20320 ^PSQLOPC 0000296A result$ = Control( SqlLun, "SETWRITETABLE OrdInfo" )
20322 ^PSQLOPC 0000297A !!!! result$ = Control( SqlLun, "SETWRITETABLE OrdInfoJB" ) ! TEST F
20420 ^PSQLOPC 0000297A If sub(result$,1,1) eq '-' ___ print result$; ">> ";error$
20440 ^PSQLOPC 00002988 Goto DbTableError !! DOES NOT ERROR EVEN IF TABLE DOES NOT
20900 ^PSQLOPC 0000299B !
29900 ^PSQLOPC 0000299B SRCESHRT$ = SUB(SOURCE$, 1, 2) ! 'OP
29920 ^PSQLOPC 000029B2 IF LEN(STRIP(SOURCE$)) EQ 3 SRCESHRT$ = SUB(SOURCE$, 2, 3) ! 'OP
30100 ^PSQLOPC 000029DF FLNM$ = 'ODO' + TERM$ + SRCESHRT$
30200 ^PSQLOPC 000029FA ERASE FLNM$,EXCP=CreateTmp
30280 ^PSQLOPC 00002A04 CreateTmp:
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 57
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
30300 ^PSQLOPC 00002A04 CREATE FLNM$,1024,S,DIR=ZFXD$
30400 ^PSQLOPC 00002A13 OPEN (ODO) FLNM$
30600 ^PSQLOPC 00002A1A RETURN
30700 ^PSQLOPC 00002A1B !
32000 ^PSQLOPC 00002A1B DbTableError:
32100 ^PSQLOPC 00002A1B EFUNC$='Write to Table Not Found.'
32200 ^PSQLOPC 00002A24 Errmsg$=error$
32300 ^PSQLOPC 00002A2D Gosub WriteSqlErrorLog
32400 ^PSQLOPC 00002A32 PRINT(0,MySqlErrorMsg)
32500 ^PSQLOPC 00002A39 Goto ErrorExit
32900 ^PSQLOPC 00002A3E !
71000 ^PSQLOPC 00002A3E !========== Change Date format to MySQL format =========
71100 ^PSQLOPC 00002A3E MySqlDate:
71110 ^PSQLOPC 00002A3E SqlDate$ = ''
71120 ^PSQLOPC 00002A47 If SUB(XDATE$,1,4)=' ' _
71122 ^PSQLOPC 00002A55 RETURN
71200 ^PSQLOPC 00002A64 SqlDate$ = SUB(XDATE$,7,4)+'-' ! YYYY-
71210 ^PSQLOPC 00002A84 SqlDate$ = SqlDate$ + SUB(XDATE$,1,2)+'-' ! YYYY-MM-
71220 ^PSQLOPC 00002AAD SqlDate$ = SqlDate$ + SUB(XDATE$,4,2) ! YYYY-MM-DD
71550 ^PSQLOPC 00002ACD !! PRINT(0,3011) & INPUT(0)''
71600 ^PSQLOPC 00002ACD RETURN
71900 ^PSQLOPC 00002ACE !
75300 ^PSQLOPC 00002ACE !
75900 ^PSQLOPC 00002ACE !=========== Write Order Recs to Temp Work File ========
76000 ^PSQLOPC 00002ACE WriteTmp:
76030 ^PSQLOPC 00002ACE GOSUB GetOrderEmails
76700 ^PSQLOPC 00002AD3 WRITE (ODO,OrderRec) ! temp file
76900 ^PSQLOPC 00002ADA RETURN
76920 ^PSQLOPC 00002ADB !
78000 ^PSQLOPC 00002ADB !============== Write Order to OrdInfo Table ==============
78010 ^PSQLOPC 00002ADB WriteMySQLRecs:
78040 ^PSQLOPC 00002ADB FILE (ODO)POS=BOF
78050 ^PSQLOPC 00002AE0 DEFAULT$="@FF@" ! MUST BE SET FOR MYSQL TO SET DEFAULT F
78060 ^PSQLOPC 00002AE9 ! ! IE: Date/Time Stamp, ID#, etc.
78070 ^PSQLOPC 00002AE9 XFUNCTION$=' Writing MySql Record: '
78210 ^PSQLOPC 00002AF2 NextRec:
78230 ^PSQLOPC 00002AF2 READ (ODO,OrderRec) EXCP=DBClose
78280 ^PSQLOPC 00002AFD !!!! MESS$='Order# read:'+ORNBR$ & GOSUB 9000
78330 ^PSQLOPC 00002AFD PRINT(0,3010) ! INPROG MSG (XFUNCTION$)
78700 ^PSQLOPC 00002B04 WRITE (SqlLun, OrderRecw) EXCP=WriteToTableError
78710 ^PSQLOPC 00002B0F !!!! MESS$='Order# write:'+ORNBR$ & GOSUB 9000
78770 ^PSQLOPC 00002B0F PAUSE(9) ! PAUSE TO SEE MESSAGE
78800 ^PSQLOPC 00002B14 WriteCont:
79120 ^PSQLOPC 00002B14 GOTO NextRec
79300 ^PSQLOPC 00002B19 !
99000 ^PSQLOPC 00002B19 DBClose:
99100 ^PSQLOPC 00002B19 result$ = Control( SqlLun, "DISCONNECT" )
99200 ^PSQLOPC 00002B29 Close( SqlLun )
99300 ^PSQLOPC 00002B2C RETURN
99500 ^PSQLOPC 00002B2D !
99900 ^PSQLOPC 00002B2D !
100000 ^PSQLOPC 00002B2D !------- Get Email Addresses for Writing to DB --------
100200 ^PSQLOPC 00002B2D GetOrderEmails:
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 58
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
100300 ^PSQLOPC 00002B2D KEYC1E$=CNBR$+OEMLSEQ1$
100400 ^PSQLOPC 00002B3F CEMADDR$=''
100500 ^PSQLOPC 00002B48 INQUIRE(C1E,0137) KEY=KEYC1E$ ,EXCP=EXCP1C1E
100600 ^PSQLOPC 00002B57 EXCP1C1E:
100700 ^PSQLOPC 00002B57 EMAIL1$=CEMADDR$
100800 ^PSQLOPC 00002B60 KEYC1E$=CNBR$+OEMLSEQ2$
100900 ^PSQLOPC 00002B72 CEMADDR$=''
101000 ^PSQLOPC 00002B7B INQUIRE(C1E,0137) KEY=KEYC1E$,EXCP=EXCP2C1E
101100 ^PSQLOPC 00002B8A EXCP2C1E:
101200 ^PSQLOPC 00002B8A EMAIL2$=CEMADDR$
101300 ^PSQLOPC 00002B93 KEYC1E$=CNBR$+OEMLSEQ3$
101400 ^PSQLOPC 00002BA5 CEMADDR$=''
101500 ^PSQLOPC 00002BAE INQUIRE(C1E,0137) KEY=KEYC1E$,EXCP=EXCP3C1E
101600 ^PSQLOPC 00002BBD EXCP3C1E:
101700 ^PSQLOPC 00002BBD EMAIL3$=CEMADDR$
101800 ^PSQLOPC 00002BC6 IF STRIP(EMAIL1$) EQ '' AND STRIP(EMAIL2$) NE '' EMAIL1$=EMAIL2$
101900 ^PSQLOPC 00002BF7 EMAIL2$=''
102000 ^PSQLOPC 00002C00 IF STRIP(EMAIL2$) EQ '' AND STRIP(EMAIL3$) NE '' EMAIL2$=EMAIL3$
102100 ^PSQLOPC 00002C31 EMAIL3$=''
102102 ^PSQLOPC 00002C3A !
102104 ^PSQLOPC 00002C3A ! GET REP EMAIL
102105 ^PSQLOPC 00002C3A !
102110 ^PSQLOPC 00002C3A KEYS1EE$=OSNBR1$+OEMLREP$
102120 ^PSQLOPC 00002C4C EMAILR$='' & EMAILR2$=''
102130 ^PSQLOPC 00002C5E INQUIRE(S1EE,0139) KEY = KEYS1EE$,EXCP=EXCP1S1EE
102150 ^PSQLOPC 00002C6D EMAILR$=SEMADDR$
102300 ^PSQLOPC 00002C76 Emailedcustflg$='N' & Emailedrepflg$='N' & Emailedresaleflg$='N'
102400 ^PSQLOPC 00002C91 RETURN
102500 ^PSQLOPC 00002C92 EXCP1S1EE:
102600 ^PSQLOPC 00002C92 INQUIRE(S1E,0138) KEY = OSNBR1$,EXCP=EXCPS1E
102700 ^PSQLOPC 00002CA1 EMAILR$=SEMAILC1$
102800 ^PSQLOPC 00002CAA EMAILR2$=SEMAILC2$
102900 ^PSQLOPC 00002CB3 IF STRIP(EMAILR$) EQ '' AND STRIP(EMAILR2$) NE '' EMAILR$=EMAILR
103000 ^PSQLOPC 00002CE4 EMAILR2$=''
103100 ^PSQLOPC 00002CED IF STRIP(SEMAILA$) NE '' AND STRIP(SOURCE$) EQ 'RP' EMAILR$=SEMA
103200 ^PSQLOPC 00002D1E EMAILR2$=''
103210 ^PSQLOPC 00002D27 EXCPS1E:
103300 ^PSQLOPC 00002D27 RETURN
180000 ^PSQLOPC 00002D28 !
190000 ^PSQLOPC 00002D28 !
200000 ^PSQLOPC 00002D28 !----------- Error attempting to Write to DB -----------
200100 ^PSQLOPC 00002D28 WriteToTableError:
200700 ^PSQLOPC 00002D28 EFUNC$=XFUNCTION$ ! =result$
200800 ^PSQLOPC 00002D31 Error$=Control(SqlLun,"GETLASTERROR")
200810 ^PSQLOPC 00002D41 Errmsg$=Error$
202000 ^PSQLOPC 00002D4A Gosub WriteSqlErrorLog
203000 ^PSQLOPC 00002D4F PRINT(0,MySqlErrorMsg)
203200 ^PSQLOPC 00002D56 wait
203400 ^PSQLOPC 00002D57 Goto NextRec
208000 ^PSQLOPC 00002D5C !
209000 ^PSQLOPC 00002D5C !
700000 ^PSQLOPC 00002D5C !----------- Write Errors to SQLERLG file --------------
700010 ^PSQLOPC 00002D5C WriteSqlErrorLog:
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 59
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
700100 ^PSQLOPC 00002D5C EDATE$=Sysdate$ !YYYY-MM-DD
700200 ^PSQLOPC 00002D65 A$=DSTAT("CL1") !Get current time
700300 ^PSQLOPC 00002D74 ETIME$=SUB(TIME$,1,8) !HH:MM:SS
700400 ^PSQLOPC 00002D8B ETERM$=TERM$
700500 ^PSQLOPC 00002D94 EPRGM$=SOURCE$ ! 'MP' OR 'MB'
700600 ^PSQLOPC 00002D9D EOPR$=ZINIT$
702000 ^PSQLOPC 00002DA6 K21$=EDATE$+ETIME$+ETERM$
702100 ^PSQLOPC 00002DC1 WRITE(SQLERLG,SqlErr)KEY=K21$
709000 ^PSQLOPC 00002DCC Return
790000 ^PSQLOPC 00002DCD !
890000 ^PSQLOPC 00002DCD !----------- Exit program because of Error ------------
999000 ^PSQLOPC 00002DCD ErrorExit:
999100 ^PSQLOPC 00002DCD CLOSE(SQLlun)
999110 ^PSQLOPC 00002DD0 Run 'Z'
90020 %SHMYOPA 00002DD6 USE '^VIDIRS' ! VERIFY IMMAGE DIRECTORIES
10000 ^VIDIRS 00002DD6 !====== VERIFY IMAGE DIRECTORIES ARE MAPPED AND FUNCTIONING ======
10002 ^VIDIRS 00002DD6 ! AKA: VLSM - Verify Linux Server Mapping
10010 ^VIDIRS 00002DD6 ! CREATED 01/27/12 JAB
10019 ^VIDIRS 00002DD6 !
10020 ^VIDIRS 00002DD6 .IF DECPASS
10070 ^VIDIRS 00002DD6 .ENDIF
10080 ^VIDIRS 00002DD6 !
20000 ^VIDIRS 00002DD6 .IF EXEPASS
20010 ^VIDIRS 00002DD6 VLSM:
20020 ^VIDIRS 00002DD6 ! THIS TEST DETERMINES IF THE SAMBA DRIVE IS CONFIGURED IN THE INI
20030 ^VIDIRS 00002DD6 ! AND ASSIGNED A THREE CHARACTER DRIVE ID WITH A QDIR. ZM, PDF MO
20040 ^VIDIRS 00002DD6 ! REQUIRES THAT THESE DRIVE IDs BE ENTERED FOR USE IN DOC-IMAGING.
20050 ^VIDIRS 00002DD6 !
20100 ^VIDIRS 00002DD6 INQUIRE(Z1,Z1PDF) KEY='*PDFIMAGE' ! GET PDF IMAGE DIRS
20110 ^VIDIRS 00002DE1 XPATH$=PATH(ZDIRPDFO$) ! DEFAULT ORDER IMAGES PAT
20112 ^VIDIRS 00002DF0 XIDIR$=ZDIRPDFO$ ! " " " DIR
20114 ^VIDIRS 00002DF9 !
20120 ^VIDIRS 00002DF9 IF POS(XPRGM$,'*QP*') GT 0 _ ! IF PURCHASE ORDER PRINTI
20122 ^VIDIRS 00002E03 XPATH$=PATH(ZDIRPDFP$) & _ ! SET P/O IMAGES PATH
20124 ^VIDIRS 00002E1C XIDIR$=ZDIRPDFP$ ! " " " DIR
20125 ^VIDIRS 00002E25 !
20130 ^VIDIRS 00002E25 IF POS(XPRGM$,'*RS*') GT 0 _ ! IF STATEMENT PRINTING,
20132 ^VIDIRS 00002E2F XPATH$=PATH(ZDIRPDFR$) & _ ! SET P/O IMAGES PATH
20134 ^VIDIRS 00002E48 XIDIR$=ZDIRPDFR$ ! " " " DIR
20135 ^VIDIRS 00002E51 !
20140 ^VIDIRS 00002E51 IF POS(XPRGM$,'*MP*MB*') GT 0 _ ! IF MEMO PRINT OR MEMO BI
20142 ^VIDIRS 00002E5B XPATH$=PATH(ZDIRPDFS$) & _ ! SET SAMPLE IMAGES PATH
20144 ^VIDIRS 00002E74 XIDIR$=ZDIRPDFS$ ! " " " DIR
20154 ^VIDIRS 00002E7D !
20200 ^VIDIRS 00002E7D !! MESS$='PATH='+XPATH$+' DIR='+XIDIR$ & GOSUB 9000
20210 ^VIDIRS 00002E7D IF STRIP(XPATH$) NE '' GOTO VLSM01 ! PDF/IMAGE SERVER IS MAPP
20400 ^VIDIRS 00002E96 PRINT(0,ADOBE.DIR.WARNING) ! print warning message
20500 ^VIDIRS 00002E9D MESS$='Print Anyway (Y/N)?' & AN$=''
20600 ^VIDIRS 00002EAF DO WHILE AN$ EQ ''
20700 ^VIDIRS 00002EBD GOSUB 9000
20800 ^VIDIRS 00002EC2 IF AN$ NE 'Y' AND AN$ NE 'N' AN$=''
20900 ^VIDIRS 00002EE7 LOOP
21000 ^VIDIRS 00002EEC !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 60
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
21100 ^VIDIRS 00002EEC IF AN$ EQ 'N' POPALL & RUN 'Z'
21200 ^VIDIRS 00002F01 PRINT.ANYWAY.FLAG$=AN$
21300 ^VIDIRS 00002F0A PRINT(0,CLEARFOREGROUND)
21310 ^VIDIRS 00002F11 GOTO VLSMRETURN
21320 ^VIDIRS 00002F16 !
21322 ^VIDIRS 00002F16 VLSM01:
21330 ^VIDIRS 00002F16 ! THIS TEST DETERMINES IF THE SAMBA DRIVE IS ACCESSIBLE. IT WIL
21340 ^VIDIRS 00002F16 ! A WORK KEYED FILE TO SEE IF THE DRIVE IS SPINNING, CAN BE SEEN
21350 ^VIDIRS 00002F16 ! NETWORK AND CAN RECEIVE I/O.
21410 ^VIDIRS 00002F16 CLOSE (29)
21420 ^VIDIRS 00002F19 XFILE$ = 'VIDIR' + TERM$ + '.TXT'
21430 ^VIDIRS 00002F34 ERASE XFILE$,EXCP=VLSM02
21440 ^VIDIRS 00002F3E VLSM02:
21442 ^VIDIRS 00002F3E IF STRIP(ZEXP$) EQ '' ZEXP$=ZFXD$ !ADDED 10/31/2011 SEH
21450 ^VIDIRS 00002F5B CREATE XFILE$,DIR=ZEXP$
21460 ^VIDIRS 00002F65 OPEN (29) XFILE$
21462 ^VIDIRS 00002F6C VLSMAX$ = 'AX' & VLSMDX$ = 'DX'
21470 ^VIDIRS 00002F7E WRITE (29,VLSMRESULTFMT)
21480 ^VIDIRS 00002F85 CLOSE (29)
21490 ^VIDIRS 00002F88 VLSMSRC$ = PATH(ZEXP$) + XFILE$ ! FROM PATH
21500 ^VIDIRS 00002FA0 VLSMDEST$ = PATH(XIDIR$) + XFILE$ ! TO PATH (WAS ZD
21510 ^VIDIRS 00002FB8 VLSMFLAG = 2048
21520 ^VIDIRS 00002FC2 PRINT (COPYFILE=VLSMSRC$, VLSMDEST$, VLSMFLAG)
21530 ^VIDIRS 00002FD7 INPUT (0,VLSMRESULTFMT)
21540 ^VIDIRS 00002FDE VLSMAX$ = SUB(VLSMAX$,2,1) + SUB(VLSMAX$,1,1)
21550 ^VIDIRS 00003011 VLSMDX$ = SUB(VLSMDX$,2,1) + SUB(VLSMDX$,1,1)
21560 ^VIDIRS 00003044 VLSMFUNC = HEXDEC(VLSMAX$)
21570 ^VIDIRS 0000304F VLSMFILE = HEXDEC(VLSMDX$)
21590 ^VIDIRS 0000305A !
21600 ^VIDIRS 0000305A IF VLSMFUNC GT 32767 VLSMFUNC = VLSMFUNC - 65536
21610 ^VIDIRS 00003078 IF VLSMFILE GT 32767 VLSMFILE = VLSMFILE - 65536
21620 ^VIDIRS 00003096 !
21640 ^VIDIRS 00003096 IF VLSMFUNC EQ 1 AND VLSMFILE EQ 0 _ IF NO COPY ERRORS,
21642 ^VIDIRS 000030A5 GOTO VLSMRETURN! RETURN
21650 ^VIDIRS 000030B9 !
22000 ^VIDIRS 000030B9 VLSM03:
22010 ^VIDIRS 000030B9 PRINT(0,FILE.COPY.WARNING) !print warning message
22020 ^VIDIRS 000030C0 MESS$='Print Anyway (Y/N)?' & AN$=''
22030 ^VIDIRS 000030D2 DO WHILE AN$ EQ ''
22040 ^VIDIRS 000030E0 GOSUB 9000
22050 ^VIDIRS 000030E5 IF AN$ NE 'Y' AND AN$ NE 'N' AN$=''
22060 ^VIDIRS 0000310A LOOP
22070 ^VIDIRS 0000310F !
22080 ^VIDIRS 0000310F IF AN$ EQ 'N' POPALL & RUN 'Z'
22090 ^VIDIRS 00003124 PRINT.ANYWAY.FLAG$=AN$
22100 ^VIDIRS 0000312D PRINT(0,CLEARFOREGROUND)
22110 ^VIDIRS 00003134 !
25400 ^VIDIRS 00003134 VLSMRETURN:
25500 ^VIDIRS 00003134 RETURN
25510 ^VIDIRS 00003135 .ENDIF
90030 %SHMYOPA 00003135 USE '^WTODAUD' ! WRITE ODBC/PDF/LINUX AUDIT
100 ^WTODAUD 00003135 !
110 ^WTODAUD 00003135 ! ========== WRITE ODBC/PDF/LINUX MAP AUDIT FILE ==========
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 61
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
120 ^WTODAUD 00003135 !
130 ^WTODAUD 00003135 WRITE.ODBC.AUDIT:
140 ^WTODAUD 00003135 !
150 ^WTODAUD 00003135 FLNM$ = 'ODPDFAUD'
160 ^WTODAUD 0000313E CLOSE (29) & OPEN (29) FLNM$,EXCP=CREATE.ODBC.AUDIT
170 ^WTODAUD 0000314C AN$ = DSTAT('CL1') ! DSTAT CLOCK FOR CURRENT TIME
180 ^WTODAUD 0000315B ODAUTIME$ = TIME$
190 ^WTODAUD 00003164 ODAUDATE$ = SUB(DATE$,5,2)
200 ^WTODAUD 0000317B ODAUDATE$ = ODAUDATE$ + SUB(DATE$,1,2)
210 ^WTODAUD 0000319B ODAUDATE$ = ODAUDATE$ + SUB(DATE$,3,2)
220 ^WTODAUD 000031BB ODAUZEDT$ = ZDATE$
230 ^WTODAUD 000031C4 ODAUINIT$ = ZINIT$
240 ^WTODAUD 000031CD ODAUTERM$ = TERM$
250 ^WTODAUD 000031D6 !
260 ^WTODAUD 000031D6 !
270 ^WTODAUD 000031D6 !
280 ^WTODAUD 000031D6 WRITE (29,0897)KEY=ODAUDATE$+ODAUTIME$
290 ^WTODAUD 000031EB CLOSE (29)
300 ^WTODAUD 000031EE RETURN
310 ^WTODAUD 000031EF !
320 ^WTODAUD 000031EF CREATE.ODBC.AUDIT:
330 ^WTODAUD 000031EF CREATE FLNM$,200,K,17,DIR=ZFXD$
340 ^WTODAUD 00003202 AGAIN
350 ^WTODAUD 00003203 !
90040 %SHMYOPA 00003203 !
94000 %SHMYOPA 00003203 9400 IF EXCP EQ BUSY _
94010 %SHMYOPA 00003203 MESS$='CUSTOMER '+CNBR$+' LOCKED OUT; TAB' &_
94020 %SHMYOPA 0000322D GOSUB 9000 & AGAIN
94100 %SHMYOPA 00003233 ERROR
94110 %SHMYOPA 00003234 !
94200 %SHMYOPA 00003234 9420 IF EXCP EQ BUSY MESS$='REP '+ OSNBR1$+' LOCKED OUT; TAB' &_
94300 %SHMYOPA 0000325E GOSUB 9000 & AGAIN
94400 %SHMYOPA 00003264 ERROR
94500 %SHMYOPA 00003265 !
94600 %SHMYOPA 00003265 9440 IF EXCP EQ BUSY MESS$='ITEM '+ INBR$+' LOCKED OUT; TAB' &_
94700 %SHMYOPA 0000328F GOSUB 9000 & AGAIN
94800 %SHMYOPA 00003295 ERROR
94810 %SHMYOPA 00003296 !
94820 %SHMYOPA 00003296 9460 IF EXCP EQ BUSY MESS$='PATTERN '+IPATTERN$+' LOCKED OUT; TAB' &_
94830 %SHMYOPA 000032C0 GOSUB 9000 & AGAIN
94840 %SHMYOPA 000032C6 ERROR
95000 %SHMYOPA 000032C7 !
95010 %SHMYOPA 000032C7 9480 IF EXCP EQ BUSY MESS$='TERMS '+OTERMCDE$+' LOCKED OUT; TAB' &_
95020 %SHMYOPA 000032F1 GOSUB 9000 & AGAIN
95030 %SHMYOPA 000032F7 ERROR
95040 %SHMYOPA 000032F8 !
95100 %SHMYOPA 000032F8 9500 IF ALL NE 0 THEN
95101 %SHMYOPA 00003307 IF TYPE$ EQ 'M' GOTO 9520
95104 %SHMYOPA 0000331A IF TYPE$ EQ 'P' TYPE$='M'
95106 %SHMYOPA 00003331 IF TYPE$ EQ 'B' TYPE$='P'
95108 %SHMYOPA 00003348 !!!! IF TYPE$ EQ 'C' TYPE$='B' ! 10/30/2006 TLF.
95110 %SHMYOPA 00003348 ALL = 2
95111 %SHMYOPA 00003352 ENDIF
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 62
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
95113 %SHMYOPA 00003352 !
95114 %SHMYOPA 00003352 IF ALL NE 0 GOTO 4982 !PRINT ALL NOTIFICATIONS
95115 %SHMYOPA 00003366 !
95118 %SHMYOPA 00003366 9520 CLOSE (LP)
95119 %SHMYOPA 00003369 IF ODBCFLAG EQ 0 THEN
95160 %SHMYOPA 00003378 MESS$ = 'Have the Orders Printer Correctly? (Y/N)'
95200 %SHMYOPA 00003381 GOSUB 9000
95210 %SHMYOPA 00003386 IF AN$ = 'N' GOTO 9990 !RUN MENU - NO UPDAT
95220 %SHMYOPA 00003399 IF AN$ NE 'Y' GOTO 9520 !INVALID RESPONSE
95250 %SHMYOPA 000033AC ELSE
95300 %SHMYOPA 000033B1 GOSUB WriteMySQLRecs ! ^PSQLOPC (ODBCFLAG=1)
95400 %SHMYOPA 000033B6 ENDIF
95600 %SHMYOPA 000033B6 !
95610 %SHMYOPA 000033B6 IF ODBCFLAG EQ 0 AND PRINT.ANYWAY.FLAG$ NE 'Y' THEN
95620 %SHMYOPA 000033D3 ODBCFLAG = 1
95630 %SHMYOPA 000033DD CLOSE(O0) & FLNM$=ZZCO$+'O0B' & OPEN(O0) FLNM$
95640 %SHMYOPA 000033F9 IF ALL NE 0 ALL = 1 & _
95650 %SHMYOPA 00003412 TYPE$ = 'B'
95660 %SHMYOPA 0000341B NUMCOPY = 1
95661 %SHMYOPA 00003425 SOURCE$='OPA'
95665 %SHMYOPA 0000342E Emailedcustflg$='N' & Emailedrepflg$='N' & Emailedresaleflg$='
95666 %SHMYOPA 00003449 INQUIRE(Z1,Z1PDF)KEY='*PDFIMAGE' !GET PDF PRINTER AND D
95670 %SHMYOPA 00003454 GOSUB SetWriteOrdInfo ! ^PSQLOPC
95680 %SHMYOPA 00003459 GOTO 4982
95690 %SHMYOPA 0000345E ENDIF
95695 %SHMYOPA 0000345E !
95700 %SHMYOPA 0000345E CLOSE(O0) & FLNM$=ZZCO$+'O0' & OPEN(O0) FLNM$
95710 %SHMYOPA 0000347A !
100000 %SHMYOPA 0000347A 9900 !============ CLEAR ORDER PRINT FILE ===========================
100100 %SHMYOPA 0000347A READ(O0B,0000) KEY='',EXCP=9920
100200 %SHMYOPA 00003489 9920 ORNBR$=KEY(O0B,EXCP=9950)
100300 %SHMYOPA 00003499 READ(O0B,0000)
100302 %SHMYOPA 000034A0 !!!! IF SUB(STS(0),4,1) EQ '1' _
100304 %SHMYOPA 000034A0 PRINT(0) "@011010@UPDATING ";ORNBR$
100306 %SHMYOPA 000034B2 !
100310 %SHMYOPA 000034B2 EXTRACT(O1A,0060) KEY=ORNBR$,EXCP=9930
100320 %SHMYOPA 000034C1 ONEWORD$='O'
100330 %SHMYOPA 000034CA OLATE$=' '
100332 %SHMYOPA 000034D3 IF OCFAFLG$ NE ' ' AND OCUTARVD$ EQ 'A' _
100334 %SHMYOPA 000034E1 OCUTARVD$ = ' '
100340 %SHMYOPA 000034F8 WRITE(O1A,0060)
100350 %SHMYOPA 000034FF GOTO 9940
100360 %SHMYOPA 00003504 !
100370 %SHMYOPA 00003504 9930 IF EXCP EQ BUSY MESS$='ORDER '+ORNBR$+' LOCKED OUT; TAB' &_
100380 %SHMYOPA 0000352E GOSUB 9000 & AGAIN
100385 %SHMYOPA 00003534 IF EXCP NE KEYERR ERROR
100400 %SHMYOPA 00003544 9940!!IF OCFAFLG$ NE ' ' OR OPROFLG$ NE ' ' OR ORESFLG$ NE ' ' OR _
100420 %SHMYOPA 00003544 DELETE (O0)KEY=ORNBR$,EXCP=9920
100500 %SHMYOPA 0000354F GOTO 9920
100520 %SHMYOPA 00003554 9950 FLNM$=ZZCO$+'O0B' & CLOSE(O0B)
100540 %SHMYOPA 00003569 ERASE FLNM$
100560 %SHMYOPA 0000356F !
100600 %SHMYOPA 0000356F 9990 RUNCD$ = "O" !SET 1ST BYTE O
COMET - DDUMP Data File Dump [12.02/2011.457] 03/14/12 10:42 Page 63
File: WWSHOPA .LST on CES Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
100610 %SHMYOPA 00003578 CLOSE(SQLLUN)
100700 %SHMYOPA 0000357B RUN "Z" !RETURN TO SELE
100800 %SHMYOPA 00003581 END
FORMAT 0400 defined at 000008EE cannot be executed
FORMAT 130 defined at 00000F7A cannot be executed
FORMAT 3120 defined at 0000139C cannot be executed
FORMAT 4400 defined at 00001626 cannot be executed
FORMAT 4410 defined at 0000163D cannot be executed
FORMAT 4420 defined at 00001651 cannot be executed
FORMAT 4430 defined at 0000166A cannot be executed
FORMAT 4470 defined at 0000167E cannot be executed
FORMAT 4480 defined at 00001692 cannot be executed
FORMAT 4497 defined at 00001707 cannot be executed
FORMAT 4498 defined at 00001726 cannot be executed
FORMAT 95 defined at 00000F11 cannot be executed
FORMAT CURSPOSREM defined at 00000F7F cannot be executed
FORMAT CURSPOSRES defined at 00000F84 cannot be executed
FORMAT FRMLFFMT defined at 00000FA4 cannot be executed
WARNING: STATEMENT 9060 defined at 0000272E cannot be executed
WARNING: STATEMENT 9420 defined at 00003234 cannot be executed
WARNING: STATEMENT 9440 defined at 00003265 cannot be executed
PROGRAM MEMORY REQUIREMENTS
COMMON 00000005
LOCAL 00016343
CONSTANTS 00003391
FORMATS 00005952
CODE 00013698
--------
TOTAL 00039389
COMPILE COMPLETED
TOTAL ERRORS 0
ZZZZZZZ %SHMYOPA 00000000 END
TOTAL ERRORS 0
End of listing - 3322 Records