COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 1
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
Compiling %WW-CM on S32 to WWCM on O32 02/14/12 13:55:51 PM
10 %WW-CM 00000000 !S %WW-CM,HCS
20 %WW-CM 00000000 !O WWCM,HCO
30 %WW-CM 00000000 !L LPH,E
40 %WW-CM 00000000 !R CED
3000 %WW-CM 00000000 ! ========== COMMON AREA ==========
3100 %WW-CM 00000000 !
3200 %WW-CM 00000000 USE '^COOECOM'
3000 ^COOECOM 00000000 LENGTH 8 & COMMON PROGID$ !COMMON VARIABL
3100 ^COOECOM 00000000 LENGTH 50 & COMMON COMBLK$
3110 ^COOECOM 00000000 LENGTH 1 & COMMON ORO$,ZDSCFLG$,ZCANFLG$,ZZPCKFLG$,ZOETYPE$
3120 ^COOECOM 00000000 LENGTH 1 & COMMON ZREPAPRV$,ZCLASS$
3130 ^COOECOM 00000000 LENGTH 2 & COMMON ZCO$,ZZCOID$
3140 ^COOECOM 00000000 LENGTH 3 & COMMON ZZINIT$,ZOLINE$,ZQLINE$
3150 ^COOECOM 00000000 LENGTH 3 & COMMON ZMNTTYP$,ZZFXD$
3160 ^COOECOM 00000000 LENGTH 5 & COMMON ZVNBR$,ZCSACAT$
3170 ^COOECOM 00000000 LENGTH 6 & COMMON ZCNBR$
3180 ^COOECOM 00000000 LENGTH 8 & COMMON ZZAGED$,ZRETURN$
3190 ^COOECOM 00000000 LENGTH 9 & COMMON ZORNBR$,ZQORNBR$,ZINVCNBR$
3200 ^COOECOM 00000000 LENGTH 10 & COMMON ZZDATE$,ZZRESDT$,ZZORDDT$
3210 ^COOECOM 00000000 LENGTH 15 & COMMON ZSHIPVIA$
3220 ^COOECOM 00000000 LENGTH 1.0 & COMMON ZZREPFLG
3230 ^COOECOM 00000000 LENGTH 2.0 & COMMON ZZHNDPCT,ZZMOCRED,ZNUMLAB
3240 ^COOECOM 00000000 LENGTH 3.0 & COMMON ZZPSTDUE
3250 ^COOECOM 00000000 LENGTH 4.2 & COMMON ZZPCKCHG,ZCOMPCT,ZZFRTMIN
3260 ^COOECOM 00000000 LENGTH 9.2 & COMMON ZNET
3270 ^COOECOM 00000000 LENGTH 1 & COMMON ZZLPDISP$,ZZORDLIM$,ZZMULTIW$
3280 ^COOECOM 00000000 LENGTH 3.0 & COMMON ZZMAXUPS
3290 ^COOECOM 00000000 LENGTH 1 & COMMON ZZCFA$,ZZSTRSL$
3300 ^COOECOM 00000000 LENGTH 15 & COMMON ZZFOB$
3310 ^COOECOM 00000000 LENGTH 4.2 & COMMON ZZSTRPCT
3320 ^COOECOM 00000000 LENGTH 2.0 & COMMON ZZREMOTE
3330 ^COOECOM 00000000 LENGTH 1 & COMMON ZZFRTYL$,ZZCY$
3340 ^COOECOM 00000000 LENGTH 10 & COMMON ZZOZIP$
3350 ^COOECOM 00000000 LENGTH 2 & COMMON ZZCURRCD$
3360 ^COOECOM 00000000 LENGTH 3.0 & COMMON ZZPDDYS
3370 ^COOECOM 00000000 LENGTH 4.0 & COMMON ZZCLAMT
3380 ^COOECOM 00000000 LENGTH 9.2 & COMMON ZZNET
3390 ^COOECOM 00000000 LENGTH 1 & COMMON ZZRNDFRT$,ZZUPDC1A$,ZZFURNAC$
3400 ^COOECOM 00000000 LENGTH 1 & COMMON ZZDIBC$
3410 ^COOECOM 00000000 LENGTH 3 & COMMON ZZDIBCLPT$
3420 ^COOECOM 00000000 LENGTH 1 & COMMON ZZBRKFLG$
3440 ^COOECOM 00000000 !
3300 %WW-CM 00000000 !
4900 %WW-CM 00000000 0000 FORMAT ''
5000 %WW-CM 00000006 USE '^COC1A' !0100 - CUSTOMER MASTER
100 ^COC1A 00000006 ! !
200 ^COC1A 00000006 !===========================> ^COC1A <=============================!
300 ^COC1A 00000006 ! !
400 ^COC1A 00000006 ! File Format & Length Declaratives !
500 ^COC1A 00000006 ! !
600 ^COC1A 00000006 ! File Name: WWC1A CUSTOMER MASTER !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 2
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
700 ^COC1A 00000006 ! !
800 ^COC1A 00000006 ! Type: K Record: 999 Key: 6 Image: N !
900 ^COC1A 00000006 ! !
1000 ^COC1A 00000006 ! #FILES File Name: CUSTOMER.MASTER Date: 10/13/10 !
1100 ^COC1A 00000006 ! !
1200 ^COC1A 00000006 !--------------------------------------------------------------------!
1300 ^COC1A 00000006 ! !
1400 ^COC1A 00000006 ! !
1500 ^COC1A 00000006 LENGTH 3.0 & LOCAL CAVGDAYS,CDSCTPR1,CDSCTPR2 !
1600 ^COC1A 00000006 LENGTH 3.0 & LOCAL CDSCTYTD,CNUMPMNT,CNORPRV1 !
1700 ^COC1A 00000006 LENGTH 3.0 & LOCAL CNORPRV2,CNORYTD !
1800 ^COC1A 00000006 LENGTH 4.0 & LOCAL CMTDINV,CPRV1INV,CPRV2INV !
1900 ^COC1A 00000006 LENGTH 4.0 & LOCAL CPRV3INV,CYTDINV !
2000 ^COC1A 00000006 LENGTH 4.2 & LOCAL CDISCPCT !
2100 ^COC1A 00000006 LENGTH 6.0 & LOCAL CCREDLIM !
2200 ^COC1A 00000006 LENGTH 7.2 & LOCAL CDSCPRV1,CDSCPRV2,CDSCPRV3 !
2300 ^COC1A 00000006 LENGTH 7.2 & LOCAL CDSCYTD,CSRVPRV1,CSRVPRV2 !
2400 ^COC1A 00000006 LENGTH 7.2 & LOCAL CSRVYTD,CRVPRV1,CRVPRV2 !
2500 ^COC1A 00000006 LENGTH 7.2 & LOCAL CRVYTD,CSFMTD,CSFPRV1 !
2600 ^COC1A 00000006 LENGTH 7.2 & LOCAL CSFPRV2,CSFPRV3,CSFYTD !
2700 ^COC1A 00000006 LENGTH 7.2 & LOCAL CSSMTD,CSSPRV1,CSSPRV2 !
2800 ^COC1A 00000006 LENGTH 7.2 & LOCAL CSSPRV3,CSSYTD !
2900 ^COC1A 00000006 LENGTH 9.2 & LOCAL CCSTMTD,CCSTPRV1,CCSTPRV2 !
3000 ^COC1A 00000006 LENGTH 9.2 & LOCAL CCSTPRV3,CCSTYTD,CHIGHBAL !
3100 ^COC1A 00000006 LENGTH 9.2 & LOCAL CBAL,COPEN,CSLSMTD !
3200 ^COC1A 00000006 LENGTH 9.2 & LOCAL CSLSPRV1,CSLSPRV2,CSLSPRV3 !
3300 ^COC1A 00000006 LENGTH 9.2 & LOCAL CSLSYTD,CTAXYTD !
3400 ^COC1A 00000006 LENGTH 1 & LOCAL CAPREF$,CAREP$,CBTYPE$ !
3500 ^COC1A 00000006 LENGTH 1 & LOCAL CCOMMDUE$,CDSCFLG$,CMBXCP$ !
3600 ^COC1A 00000006 LENGTH 1 & LOCAL COPARPFL$,CRTOMILL$ !
3700 ^COC1A 00000006 LENGTH 2 & LOCAL CCONSWHS$,CCTYPE$,CSTATE$ !
3800 ^COC1A 00000006 LENGTH 2 & LOCAL CTERMCD$ !
3900 ^COC1A 00000006 LENGTH 3 & LOCAL CAREA$,CHOLD2$,CLTYPE$ !
4000 ^COC1A 00000006 LENGTH 3 & LOCAL CRANK$,CSNBR$,CCODE$(5) !
4100 ^COC1A 00000006 !!!! LENGTH 3 & LOCAL CCODE2$,CCODE3$,CCODE4$ !
4200 ^COC1A 00000006 !!!! LENGTH 3 & LOCAL CCODE5$ !
4300 ^COC1A 00000006 LENGTH 5 & LOCAL CCRALRT$,CRESDTE$,CSACAT$ !
4400 ^COC1A 00000006 LENGTH 6 & LOCAL CNBR$ !
4500 ^COC1A 00000006 LENGTH 8 & LOCAL CWEBPASS$ !
4600 ^COC1A 00000006 LENGTH 10 & LOCAL CACTDATE$,CDTEEST$,CDTEHI$ !
4700 ^COC1A 00000006 LENGTH 10 & LOCAL CDOLS$,CDOLSS$,CFUPDATE$ !
4800 ^COC1A 00000006 LENGTH 10 & LOCAL CPRCLST$,CZIP$ !
4900 ^COC1A 00000006 LENGTH 11 & LOCAL CPHONE2$ !
5000 ^COC1A 00000006 LENGTH 15 & LOCAL CRESALE$ !
5100 ^COC1A 00000006 LENGTH 16 & LOCAL CFAX$,CPHONE1$ !
5200 ^COC1A 00000006 LENGTH 20 & LOCAL CASRT$ !
5300 ^COC1A 00000006 LENGTH 21 & LOCAL CCITY$ !
5400 ^COC1A 00000006 LENGTH 35 & LOCAL CADR1$,CADR2$,CATTN$ !
5500 ^COC1A 00000006 LENGTH 35 & LOCAL CNAME$ !
5600 ^COC1A 00000006 LENGTH 60 & LOCAL CEMAIL$ !
5700 ^COC1A 00000006 LENGTH 103 & LOCAL CFIL0100$ !
5800 ^COC1A 00000006 ! !
5900 ^COC1A 00000006 ! !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 3
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
6000 ^COC1A 00000006 ! Description Type Len Pos !
6100 ^COC1A 00000006 ! ------------------------------------------!
6200 ^COC1A 00000006 0100 FORMAT _ !
6300 ^COC1A 00000006 CNBR$;_ ! CUST # S 6 0 !
6400 ^COC1A 0000000B CNAME$;_ ! CUSTOMER NAME S 35 6 !
6500 ^COC1A 00000010 CADR1$;_ ! ADDRESS ONE S 35 41 !
6600 ^COC1A 00000015 CADR2$;_ ! ADDRESS TWO S 35 76 !
6700 ^COC1A 0000001A CCITY$;_ ! CITY S 21 111 !
6800 ^COC1A 0000001F CSTATE$;_ ! ST S 2 132 !
6900 ^COC1A 00000024 CZIP$;_ ! ZIP CODE S 10 134 !
7000 ^COC1A 00000029 CATTN$;_ ! ATTENTION S 35 144 !
7100 ^COC1A 0000002E CASRT$;_ ! ALPHA SORT NAME S 20 179 !
7200 ^COC1A 00000033 CPHONE1$;_ ! PHONE 1 S 16 199 !
7300 ^COC1A 00000038 CPHONE2$;_ ! PHONE 2 S 11 215 !
7400 ^COC1A 0000003D CRESDTE$;_ ! RESALE NUMBER DATE S 5 226 !
7500 ^COC1A 00000042 CFAX$;_ ! FAX S 16 231 !
7600 ^COC1A 00000047 CSNBR$;_ ! REP ID S 3 247 !
7700 ^COC1A 0000004C CAREP$;_ ! APP REP S 1 250 !
7800 ^COC1A 00000051 CRESALE$;_ ! RESALE NUMBER S 15 251 !
7900 ^COC1A 00000056 CCTYPE$;_ ! CUST TYPE S 2 266 !
8000 ^COC1A 0000005B CLTYPE$;_ ! CUST CLASS S 3 268 !
8100 ^COC1A 00000060 CTERMCD$;_ ! TERMS CODE S 2 271 !
8200 ^COC1A 00000065 CCREDLIM;_ ! LIMIT N 6.0 273 !
8300 ^COC1A 0000006A CDISCPCT;_ ! DISC PCT N 4.2 281 !
8400 ^COC1A 0000006F CDSCFLG$;_ ! D F S 1 287 !
8500 ^COC1A 00000074 CDTEEST$;_ ! DATE EST S 10 288 !
8600 ^COC1A 00000079 CPRCLST$;_ ! PRICE LIST DATE S 10 298 !
8700 ^COC1A 0000007E CCRALRT$;_ ! CREDIT ALERT S 5 308 !
8800 ^COC1A 00000083 CSACAT$;_ ! SALES AID GL CAT S 5 313 !
8900 ^COC1A 00000088 CRTOMILL$;_ ! RETURN TO MILL CODE S 1 318 !
9000 ^COC1A 0000008D CDOLS$;_ ! DTE LAST SALE S 10 319 !
9100 ^COC1A 00000092 CDOLSS$;_ ! DTE LAST SAMP SALE S 10 329 !
9200 ^COC1A 00000097 CAVGDAYS;_ ! AVERAGE DAYS TO PAY N 3.0 339 !
9300 ^COC1A 0000009C CHIGHBAL;_ ! HIGH A/R BALANCE N 9.2 344 !
9400 ^COC1A 000000A1 CDTEHI$;_ ! DTE HIGH A/R BAL S 10 355 !
9500 ^COC1A 000000A6 CBAL;_ ! BALANCE N 9.2 365 !
9600 ^COC1A 000000AB COPEN;_ ! OPEN ORDERS N 9.2 376 !
9700 ^COC1A 000000B0 CTAXYTD;_ ! TAXABLE SALES YTD N 9.2 387 !
9800 ^COC1A 000000B5 CSLSMTD;_ ! SALES MTD N 9.2 398 !
9900 ^COC1A 000000BA CSLSYTD;_ ! SALES YTD N 9.2 409 !
10000 ^COC1A 000000BF CSLSPRV1;_ ! SALES PRV1 N 9.2 420 !
10100 ^COC1A 000000C4 CSLSPRV2;_ ! SALES PRV2 N 9.2 431 !
10200 ^COC1A 000000C9 CSLSPRV3;_ ! SALES PRV3 N 9.2 442 !
10300 ^COC1A 000000CE CCSTMTD;_ ! COST MTD N 9.2 453 !
10400 ^COC1A 000000D3 CCSTYTD;_ ! COST YTD N 9.2 464 !
10500 ^COC1A 000000D8 CCSTPRV1;_ ! COST PRV1 N 9.2 475 !
10600 ^COC1A 000000DD CCSTPRV2;_ ! COST PRV2 N 9.2 486 !
10700 ^COC1A 000000E2 CCSTPRV3;_ ! COST PRV3 N 9.2 497 !
10800 ^COC1A 000000E7 CMTDINV;_ ! MTD INVCS N 4.0 508 !
10900 ^COC1A 000000EC CYTDINV;_ ! YTD INVCS N 4.0 514 !
11000 ^COC1A 000000F1 CPRV1INV;_ ! PRV YR INVCS N 4.0 520 !
11100 ^COC1A 000000F6 CPRV2INV;_ ! PRV YR INVCS N 4.0 526 !
11200 ^COC1A 000000FB CPRV3INV;_ ! PRV YR INVCS N 4.0 532 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 4
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
11300 ^COC1A 00000100 CDSCTYTD;_ ! DISC TAKEN YTD N 3.0 538 !
11400 ^COC1A 00000105 CDSCTPR1;_ ! DISC TAKEN PRV1 N 3.0 543 !
11500 ^COC1A 0000010A CDSCTPR2;_ ! DISC TAKEN PRV2 N 3.0 548 !
11600 ^COC1A 0000010F CNUMPMNT;_ ! NUMBER OF PAYMNTS N 3.0 553 !
11700 ^COC1A 00000114 CDSCYTD;_ ! DISCOUNTS YTD N 7.2 558 !
11800 ^COC1A 00000119 CDSCPRV1;_ ! DISCOUNTS PRV1 N 7.2 567 !
11900 ^COC1A 0000011E CDSCPRV2;_ ! DISCOUNTS PRV2 N 7.2 576 !
12000 ^COC1A 00000123 CDSCPRV3;_ ! DISCOUNTS PRV3 N 7.2 585 !
12100 ^COC1A 00000128 CNORYTD;_ ! # OF RETURNS YTD N 3.0 594 !
12200 ^COC1A 0000012D CNORPRV1;_ ! # OF RETURNS PRV1 N 3.0 599 !
12300 ^COC1A 00000132 CNORPRV2;_ ! # OF RETURNS PRV2 N 3.0 604 !
12400 ^COC1A 00000137 CMBXCP$;_ ! MEMO BILL EXCP S 1 609 !
12500 ^COC1A 0000013C CRVYTD;_ ! RETURN VAL YTD N 7.2 610 !
12600 ^COC1A 00000141 CRVPRV1;_ ! RETURN VAL PRV1 N 7.2 619 !
12700 ^COC1A 00000146 CRVPRV2;_ ! RETURN VAL PRV2 N 7.2 628 !
12800 ^COC1A 0000014B CSSMTD;_ ! SAMPLE VAL MTD N 7.2 637 !
12900 ^COC1A 00000150 CSSYTD;_ ! SAMPLE VAL YTD N 7.2 646 !
13000 ^COC1A 00000155 CSSPRV1;_ ! SAMPLE VAL PRV1 N 7.2 655 !
13100 ^COC1A 0000015A CSSPRV2;_ ! SAMPLE VAL PRV2 N 7.2 664 !
13200 ^COC1A 0000015F CSSPRV3;_ ! SAMPLE VAL PRV3 N 7.2 673 !
13300 ^COC1A 00000164 CSFMTD;_ ! SAMPLE FREE MTD N 7.2 682 !
13400 ^COC1A 00000169 CSFYTD;_ ! SAMPLE FREE YTD N 7.2 691 !
13500 ^COC1A 0000016E CSFPRV1;_ ! SAMPLE FREE PRV1 N 7.2 700 !
13600 ^COC1A 00000173 CSFPRV2;_ ! SAMPLE FREE PRV2 N 7.2 709 !
13700 ^COC1A 00000178 CSFPRV3;_ ! SAMPLE FREE PRV3 N 7.2 718 !
13800 ^COC1A 0000017D CSRVYTD;_ ! RETURN VAL YTD N 7.2 727 !
13900 ^COC1A 00000182 CSRVPRV1;_ ! RETURN VAL PRV1 N 7.2 736 !
14000 ^COC1A 00000187 CSRVPRV2;_ ! RETURN VAL PRV2 N 7.2 745 !
14100 ^COC1A 0000018C CCOMMDUE$;_ ! COMM DUE FLAG S 1 754 !
14200 ^COC1A 00000191 CRANK$;_ ! RANK S 3 755 !
14300 ^COC1A 00000196 CCODE$(1),5*3;_ ! SAMP CODE 1 S 3 758 !
14400 ^COC1A 000001A8 ____ CCODE2$;_ ! SAMP CODE 2 S 3 761 !
14500 ^COC1A 000001A8 ____ CCODE3$;_ ! SAMP CODE 3 S 3 764 !
14600 ^COC1A 000001A8 ____ CCODE4$;_ ! SAMP CODE 4 S 3 767 !
14700 ^COC1A 000001A8 ____ CCODE5$;_ ! SAMP CODE 5 S 3 770 !
14800 ^COC1A 000001A8 CBTYPE$;_ ! BUS TYP S 1 773 !
14900 ^COC1A 000001AD CAPREF$;_ ! APPOINTMENT PREFERENCE S 1 774 !
15000 ^COC1A 000001B2 CACTDATE$;_ ! ACTIVITY.DATE S 10 775 !
15100 ^COC1A 000001B7 CFUPDATE$;_ ! FOLLOW UP DATE S 10 785 !
15200 ^COC1A 000001BC CEMAIL$;_ ! EMAIL S 60 795 !
15300 ^COC1A 000001C1 CCONSWHS$;_ ! CONSIGNMENT WAREHOUSE S 2 855 !
15400 ^COC1A 000001C6 CAREA$;_ ! AREAS S 3 857 !
15500 ^COC1A 000001CB CWEBPASS$;_ ! WEB PASSWORD S 8 860 !
15600 ^COC1A 000001D0 COPARPFL$;_ ! OPA.RP PRNT FLAG S 1 868 !
15700 ^COC1A 000001D5 CHOLD2$;_ ! AUTO HOLD 2 S 3 869 !
15800 ^COC1A 000001DA CFIL0100$ ! FILLER S 103 872 !
15900 ^COC1A 000001E0 ! !
16000 ^COC1A 000001E0 !====================================================================!
5100 %WW-CM 000001E0 USE '^COM1C' !0650 - MISC CODES
100 ^COM1C 000001E0 ! !
200 ^COM1C 000001E0 !===========================> ^COM1C <=============================!
300 ^COM1C 000001E0 ! !
400 ^COM1C 000001E0 ! File Format & Length Declaratives !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 5
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
500 ^COM1C 000001E0 ! !
600 ^COM1C 000001E0 ! File Name: WWM1C MISCELANEOUS CODE FILE !
700 ^COM1C 000001E0 ! !
800 ^COM1C 000001E0 ! Type: K Record: 126 Key: 3 Image: N !
900 ^COM1C 000001E0 ! !
1000 ^COM1C 000001E0 ! #FILES File Name: MISC.CODE.FILE Date: 05/26/04 !
1100 ^COM1C 000001E0 ! !
1200 ^COM1C 000001E0 !--------------------------------------------------------------------!
1300 ^COM1C 000001E0 ! !
1400 ^COM1C 000001E0 ! !
1500 ^COM1C 000001E0 LENGTH 2.0 & LOCAL MDENRTR1,MDENRTR2,MDENRTR3 !
1600 ^COM1C 000001E0 LENGTH 2.0 & LOCAL MNUMRTR1,MNUMRTR2,MNUMRTR3 !
1700 ^COM1C 000001E0 LENGTH 3.0 & LOCAL MEXTDAY1,MEXTDAY2,MEXTDAY3 !
1800 ^COM1C 000001E0 LENGTH 4.2 & LOCAL MAPDISC !
1900 ^COM1C 000001E0 LENGTH 12.8 & LOCAL MEXCRATE !
2000 ^COM1C 000001E0 LENGTH 1 & LOCAL MARKEADJ$,MASGNLP$ !
2100 ^COM1C 000001E0 LENGTH 1 & LOCAL MINVFLAG$,MLEFLAG$,MCTYPE$ !
2200 ^COM1C 000001E0 LENGTH 1 & LOCAL MPGFLAG$,MPROFORA$,MSAMPLE$ !
2300 ^COM1C 000001E0 LENGTH 2 & LOCAL MCODE$ !
2400 ^COM1C 000001E0 LENGTH 3 & LOCAL MUNUSED$ !
2500 ^COM1C 000001E0 LENGTH 6 & LOCAL MWHSPASS$ !
2600 ^COM1C 000001E0 LENGTH 8 & LOCAL MGLCODE$ !
2700 ^COM1C 000001E0 LENGTH 40 & LOCAL MCDESC$ !
2800 ^COM1C 000001E0 ! !
2900 ^COM1C 000001E0 ! !
3000 ^COM1C 000001E0 ! Description Type Len Pos !
3100 ^COM1C 000001E0 ! ------------------------------------------!
3200 ^COM1C 000001E0 0650 FORMAT _ !
3300 ^COM1C 000001E0 MCTYPE$;_ ! TYPE S 1 0 !
3400 ^COM1C 000001E5 MCODE$;_ ! CODE S 2 1 !
3500 ^COM1C 000001EA MUNUSED$;_ ! UNUSED S 3 3 !
3600 ^COM1C 000001EF MCDESC$;_ ! DESCRIPTION S 40 6 !
3700 ^COM1C 000001F4 MSAMPLE$;_ ! SAMPLE LINE S 1 46 !
3800 ^COM1C 000001F9 MLEFLAG$;_ ! LEATHER FLAG S 1 47 !
3900 ^COM1C 000001FE MPGFLAG$;_ ! PCE GOOD FLG S 1 48 !
4000 ^COM1C 00000203 MGLCODE$;_ ! G.L. CODE S 8 49 !
4100 ^COM1C 00000208 MPROFORA$;_ ! PROFORMA FLAG S 1 57 !
4200 ^COM1C 0000020D MEXTDAY1;_ ! EXTRA DAYS 1 N 3.0 58 !
4300 ^COM1C 00000212 MEXTDAY2;_ ! EXTRA DAYS 2 N 3.0 63 !
4400 ^COM1C 00000217 MEXTDAY3;_ ! EXTRA DAYS 3 N 3.0 68 !
4500 ^COM1C 0000021C MNUMRTR1;_ ! NUMERATOR 1 N 2.0 73 !
4600 ^COM1C 00000221 MNUMRTR2;_ ! NUMERATOR 2 N 2.0 77 !
4700 ^COM1C 00000226 MNUMRTR3;_ ! NUMERATOR 3 N 2.0 81 !
4800 ^COM1C 0000022B MDENRTR1;_ ! DENOMINATOR 1 N 2.0 85 !
4900 ^COM1C 00000230 MDENRTR2;_ ! DENOMINATOR 2 N 2.0 89 !
5000 ^COM1C 00000235 MDENRTR3;_ ! DENOMINATOR 3 N 2.0 93 !
5100 ^COM1C 0000023A MEXCRATE;_ ! EXCHANGE RATE N 12.8 97 !
5200 ^COM1C 0000023F MAPDISC;_ ! A/P DISC PCT N 4.2 111 !
5300 ^COM1C 00000244 MINVFLAG$;_ ! INVENTORY FLAG S 1 117 !
5400 ^COM1C 00000249 MARKEADJ$;_ ! AR CASH ADJUST S 1 118 !
5500 ^COM1C 0000024E MWHSPASS$;_ ! WHSE OP PASSWORD S 6 119 !
5600 ^COM1C 00000253 MASGNLP$ ! ASSIGN LOT/PIECE FLAG S 1 125 !
5700 ^COM1C 00000259 ! !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 6
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
5800 ^COM1C 00000259 !====================================================================!
5200 %WW-CM 00000259 USE '^COC1AC' !0110 - CUSTOMER NOTES
1000 ^COC1AC 00000259 ! !
1100 ^COC1AC 00000259 !************************* [WWC1AC *******************************!
1200 ^COC1AC 00000259 ! !
1300 ^COC1AC 00000259 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWC1AC TYPE: K !
1400 ^COC1AC 00000259 ! !
1500 ^COC1AC 00000259 ! CUSTOMER NOTES REC SIZE: 756 !
1600 ^COC1AC 00000259 ! KEY SIZE: 6 !
1700 ^COC1AC 00000259 ! !
1800 ^COC1AC 00000259 ! #FILE NAME: CUSTOMER.NOTES DATE: 04/22/92 !
1900 ^COC1AC 00000259 ! !
1910 ^COC1AC 00000259 ! BY: CRITERION DESIGN & PROGRAMMING LTD. !
1920 ^COC1AC 00000259 ! !
2000 ^COC1AC 00000259 !********************************************************************!
2100 ^COC1AC 00000259 ! !
2200 ^COC1AC 00000259 ! FILE STATEMENT !
2300 ^COC1AC 00000259 ! !
2400 ^COC1AC 00000259 !!!!FILE 'WWC1AC',756 !
2500 ^COC1AC 00000259 ! !
2600 ^COC1AC 00000259 ! VARIABLE DECLARATIONS: !
2700 ^COC1AC 00000259 ! !
2800 ^COC1AC 00000259 LENGTH 6 & LOCAL CNBR$ !
2800 ^COC1AC *****259 Variable 'CNBR$ ' has been previously declared
2900 ^COC1AC 00000259 LENGTH 78 & LOCAL CNOTE1$,CNOTE2$,CNOTE3$,CNOTE4$ !
3000 ^COC1AC 00000259 LENGTH 78 & LOCAL CNOTE5$,CNOTE6$,CNOTE7$,CNOTE8$ !
3100 ^COC1AC 00000259 LENGTH 78 & LOCAL CNOTE9$ !
3200 ^COC1AC 00000259 ! !
3300 ^COC1AC 00000259 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION!
3400 ^COC1AC 00000259 ! !
3500 ^COC1AC 00000259 0110 FORMAT _ !
3600 ^COC1AC 00000259 CNBR$;_ ! CUST NUMBER S 6 0 !
3700 ^COC1AC 0000025E CNOTE1$;_ ! COMMENT1 S 78 6 !
3800 ^COC1AC 00000263 CNOTE2$;_ ! S 78 84 !
3900 ^COC1AC 00000268 CNOTE3$;_ ! S 78 162 !
4000 ^COC1AC 0000026D CNOTE4$;_ ! S 78 240 !
4100 ^COC1AC 00000272 CNOTE5$;_ ! S 78 318 !
4200 ^COC1AC 00000277 CNOTE6$;_ ! S 78 396 !
4300 ^COC1AC 0000027C CNOTE7$;_ ! S 78 474 !
4400 ^COC1AC 00000281 CNOTE8$;_ ! S 78 552 !
4500 ^COC1AC 00000286 CNOTE9$ ! S 78 630 !
4600 ^COC1AC 0000028C ! !
4700 ^COC1AC 0000028C !********************************************************************!
5300 %WW-CM 0000028C USE '^COS1D' !0152 - DESIGNERS
1 ^COS1D 0000028C ! !
2 ^COS1D 0000028C !===========================> ^COS1D <=============================!
3 ^COS1D 0000028C ! !
4 ^COS1D 0000028C ! File Format & Length Declaratives !
5 ^COS1D 0000028C ! !
6 ^COS1D 0000028C ! File Name: WWS1D SPECIFIER-DESIGNER MASTER FILE !
7 ^COS1D 0000028C ! !
8 ^COS1D 0000028C ! Type: K Record: 950 Key: 6 Image: N !
9 ^COS1D 0000028C ! !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 7
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
10 ^COS1D 0000028C ! #FILES File Name: DESIGNER.MASTER Date: 09/25/95 !
11 ^COS1D 0000028C ! !
12 ^COS1D 0000028C !--------------------------------------------------------------------!
13 ^COS1D 0000028C ! !
14 ^COS1D 0000028C ! !
15 ^COS1D 0000028C LENGTH 3 & LOCAL DCODE$(15,5) !
16 ^COS1D 0000028C LENGTH 6 & LOCAL DSPNBR$ !
17 ^COS1D 0000028C LENGTH 15 & LOCAL DSALUT$(15)
18 ^COS1D 0000028C LENGTH 25 & LOCAL DNAME$(15) !
19 ^COS1D 0000028C LENGTH 119 & LOCAL DFILLS1D$ !
20 ^COS1D 0000028C ! !
21 ^COS1D 0000028C ! !
22 ^COS1D 0000028C ! Description Type Len Pos !
23 ^COS1D 0000028C ! ------------------------------------------!
24 ^COS1D 0000028C 0152 FORMAT _ !
25 ^COS1D 0000028C DSPNBR$;_ ! SPECIFIER NUMBER S 6 0 !
26 ^COS1D 00000291 DNAME$(1),15*25;_ ! DESIGNER NAME01-15 S 25 006 !
27 ^COS1D 000002A3 DCODE$(1,1),15*3;_ ! CODE 01 DESIGNERS 1-15 S 3 381 !
27 ^COS1D *****2A3 *****Use of repetition factor on multi-dimensioned array
28 ^COS1D 000002B9 DCODE$(1,2),15*3;_ ! CODE 02 DESIGNERS 1-15 S 3 426 !
28 ^COS1D *****2B9 *****Use of repetition factor on multi-dimensioned array
29 ^COS1D 000002CF DCODE$(1,3),15*3;_ ! CODE 03 DESIGNERS 1-15 S 3 471 !
29 ^COS1D *****2CF *****Use of repetition factor on multi-dimensioned array
30 ^COS1D 000002E5 DCODE$(1,4),15*3;_ ! CODE 04 DESIGNERS 1-15 S 3 516 !
30 ^COS1D *****2E5 *****Use of repetition factor on multi-dimensioned array
31 ^COS1D 000002FB DCODE$(1,5),15*3;_ ! CODE 05 DESIGNERS 1-15 S 3 561 !
31 ^COS1D *****2FB *****Use of repetition factor on multi-dimensioned array
32 ^COS1D 00000311 DSALUT$(1),15*15;_ ! DESIGNER 1-15 SALUTATION S 15 606 !
33 ^COS1D 00000323 DFILLS1D$ ! FILLER S 119 831 !
34 ^COS1D 00000329 ! 950 !
35 ^COS1D 00000329 !====================================================================!
5310 %WW-CM 00000329 USE '^COC1C' !0140 - SHIP-TO MASTER
1000 ^COC1C 00000329 ! !
1100 ^COC1C 00000329 !************************* [WWC1C *******************************!
1200 ^COC1C 00000329 ! !
1300 ^COC1C 00000329 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWC1C TYPE: K !
1400 ^COC1C 00000329 ! !
1500 ^COC1C 00000329 ! CUSTOMER SHIP TO AD REC SIZE: 189 !
1600 ^COC1C 00000329 ! KEY SIZE: 12 !
1700 ^COC1C 00000329 ! !
1800 ^COC1C 00000329 ! #FILE NAME: SHIP.TO.ADDRESS DATE: 04/09/92 !
1900 ^COC1C 00000329 ! !
1910 ^COC1C 00000329 ! BY: CRITERION DESIGN & PROGRAMMING LTD. !
1920 ^COC1C 00000329 ! !
2000 ^COC1C 00000329 !********************************************************************!
2100 ^COC1C 00000329 ! !
2200 ^COC1C 00000329 ! FILE STATEMENT !
2300 ^COC1C 00000329 ! !
2400 ^COC1C 00000329 !!!!FILE 'WWC1C',189 !
2500 ^COC1C 00000329 ! !
2600 ^COC1C 00000329 ! VARIABLE DECLARATIONS: !
2700 ^COC1C 00000329 ! !
2800 ^COC1C 00000329 LENGTH 2 & LOCAL CSSTATE$ !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 8
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2900 ^COC1C 00000329 LENGTH 6 & LOCAL CNBR$,CSHIPTO$ !
2900 ^COC1C *****329 Variable 'CNBR$ ' has been previously declared
3000 ^COC1C 00000329 LENGTH 10 & LOCAL CSZIP$ !
3100 ^COC1C 00000329 LENGTH 21 & LOCAL CSCITY$ !
3200 ^COC1C 00000329 LENGTH 35 & LOCAL CSADR1$,CSADR2$,CSATTN$,CSNAME$ !
3300 ^COC1C 00000329 ! !
3400 ^COC1C 00000329 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION!
3500 ^COC1C 00000329 ! !
3600 ^COC1C 00000329 0140 FORMAT _ !
3700 ^COC1C 00000329 CNBR$;_ ! CUST # S 6 0 !
3800 ^COC1C 0000032E CSHIPTO$;_ ! SHIP TO S 6 6 !
3900 ^COC1C 00000333 CSNAME$;_ ! NAME S 35 12 !
4000 ^COC1C 00000338 CSADR1$;_ ! ADDRESS ONE S 35 47 !
4100 ^COC1C 0000033D CSADR2$;_ ! ADDRESS TWO S 35 82 !
4200 ^COC1C 00000342 CSCITY$;_ ! CITY S 21 117 !
4300 ^COC1C 00000347 CSSTATE$;_ ! ST S 2 138 !
4400 ^COC1C 0000034C CSZIP$;_ ! ZIP CODE S 10 140 !
4500 ^COC1C 00000351 CSATTN$ ! ATTENTION S 35 150 !
4600 ^COC1C 00000357 ! !
4700 ^COC1C 00000357 !********************************************************************!
5320 %WW-CM 00000357 USE '^COC1E' !0137 - EMPLOYEE EMAILS
100 ^COC1E 00000357 ! !
200 ^COC1E 00000357 !===========================> ^COC1E <=============================!
300 ^COC1E 00000357 ! !
400 ^COC1E 00000357 ! File Format & Length Declaratives !
500 ^COC1E 00000357 ! !
600 ^COC1E 00000357 ! File Name: WWC1E CUSTOMER EMPLOYEE EMAIL ADDRESSES !
700 ^COC1E 00000357 ! !
800 ^COC1E 00000357 ! Type: K Record: 920 Key: 9 Image: N !
900 ^COC1E 00000357 ! !
1000 ^COC1E 00000357 ! #FILES File Name: CUSTOMER.EMAILS Date: 01/17/02 !
1100 ^COC1E 00000357 ! !
1200 ^COC1E 00000357 !--------------------------------------------------------------------!
1300 ^COC1E 00000357 ! !
1400 ^COC1E 00000357 ! !
1500 ^COC1E 00000357 LENGTH 2 & LOCAL CEMJOBCD$ !
1600 ^COC1E 00000357 LENGTH 3 & LOCAL CEMSEQ$ !
1700 ^COC1E 00000357 LENGTH 6 & LOCAL CEMCNBR$ !
1800 ^COC1E 00000357 LENGTH 20 & LOCAL CEMPHONE$ !
1900 ^COC1E 00000357 LENGTH 35 & LOCAL CEMNAME$ !
2000 ^COC1E 00000357 LENGTH 60 & LOCAL CEMADDR$ !
2100 ^COC1E 00000357 LENGTH 74 & LOCAL CEMFILL$ !
2200 ^COC1E 00000357 LENGTH 80 & LOCAL CEMCMNT1$,CEMCMNT2$ !
2300 ^COC1E 00000357 LENGTH 80 & LOCAL CEMCMNT3$,CEMCMNT4$ !
2400 ^COC1E 00000357 LENGTH 80 & LOCAL CEMCMNT5$,CEMCMNT6$ !
2500 ^COC1E 00000357 LENGTH 80 & LOCAL CEMCMNT7$,CEMCMNT8$ !
2600 ^COC1E 00000357 LENGTH 80 & LOCAL CEMCMNT9$ !
2700 ^COC1E 00000357 ! !
2800 ^COC1E 00000357 ! !
2900 ^COC1E 00000357 ! Description Type Len Pos !
3000 ^COC1E 00000357 ! ------------------------------------------!
3100 ^COC1E 00000357 0137 FORMAT _ !
3200 ^COC1E 00000357 CEMCNBR$;_ ! CUSTOMER # S 6 0 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 9
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
3300 ^COC1E 0000035C CEMSEQ$;_ ! SEQ # S 3 6 !
3400 ^COC1E 00000361 CEMADDR$;_ ! EMAIL ADDRESS S 60 9 !
3500 ^COC1E 00000366 CEMNAME$;_ ! EMPLOYEE NAME S 35 69 !
3600 ^COC1E 0000036B CEMPHONE$;_ ! EMPLOYEE PHONE S 20 104 !
3700 ^COC1E 00000370 CEMJOBCD$;_ ! JOB CODE S 2 124 !
3800 ^COC1E 00000375 CEMCMNT1$;_ ! COMMENT1 S 80 126 !
3900 ^COC1E 0000037A CEMCMNT2$;_ ! COMMENT2 S 80 206 !
4000 ^COC1E 0000037F CEMCMNT3$;_ ! COMMENT3 S 80 286 !
4100 ^COC1E 00000384 CEMCMNT4$;_ ! COMMENT4 S 80 366 !
4200 ^COC1E 00000389 CEMCMNT5$;_ ! COMMENT5 S 80 446 !
4300 ^COC1E 0000038E CEMCMNT6$;_ ! COMMENT6 S 80 526 !
4400 ^COC1E 00000393 CEMCMNT7$;_ ! COMMENT7 S 80 606 !
4500 ^COC1E 00000398 CEMCMNT8$;_ ! COMMENT8 S 80 686 !
4600 ^COC1E 0000039D CEMCMNT9$;_ ! COMMENT9 S 80 766 !
4700 ^COC1E 000003A2 CEMFILL$ ! FILLER S 74 846 !
4800 ^COC1E 000003A8 ! !
4900 ^COC1E 000003A8 !====================================================================!
5330 %WW-CM 000003A8 USE '^COC1D' !0143 - CREDIT CARDS
100 ^COC1D 000003A8 ! !
200 ^COC1D 000003A8 !===========================> ^COC1D <=============================!
300 ^COC1D 000003A8 ! !
400 ^COC1D 000003A8 ! File Format & Length Declaratives !
500 ^COC1D 000003A8 ! !
600 ^COC1D 000003A8 ! File Name: WWC1D CUSTOMER CREDIT CARD INFO !
700 ^COC1D 000003A8 ! !
800 ^COC1D 000003A8 ! Type: K Record: 100 Key: 9 Image: N !
900 ^COC1D 000003A8 ! !
1000 ^COC1D 000003A8 ! #FILES File Name: CUSTOMER.CRCARD Date: 11/29/01 !
1100 ^COC1D 000003A8 ! !
1200 ^COC1D 000003A8 !--------------------------------------------------------------------!
1300 ^COC1D 000003A8 ! !
1400 ^COC1D 000003A8 ! !
1500 ^COC1D 000003A8 LENGTH 2 & LOCAL CCCTYPE$ !
1600 ^COC1D 000003A8 LENGTH 3 & LOCAL CCCSEQ$ !
1700 ^COC1D 000003A8 LENGTH 5 & LOCAL CCCFILL$ !
1800 ^COC1D 000003A8 LENGTH 6 & LOCAL CCCCNBR$ !
1900 ^COC1D 000003A8 LENGTH 7 & LOCAL CCCEXPDT$ !
2000 ^COC1D 000003A8 LENGTH 16 & LOCAL CCCNUM$ !
2100 ^COC1D 000003A8 LENGTH 25 & LOCAL CCCBANK$ !
2200 ^COC1D 000003A8 LENGTH 35 & LOCAL CCCNAME$ !
2300 ^COC1D 000003A8 ! !
2400 ^COC1D 000003A8 ! !
2500 ^COC1D 000003A8 ! Description Type Len Pos !
2600 ^COC1D 000003A8 ! ------------------------------------------!
2700 ^COC1D 000003A8 0143 FORMAT _ !
2800 ^COC1D 000003A8 CCCCNBR$;_ ! CUST # S 6 0 !
2900 ^COC1D 000003AD CCCSEQ$;_ ! SEQ # S 3 6 !
3000 ^COC1D 000003B2 CCCNUM$;_ ! CR CARD # S 16 9 !
3100 ^COC1D 000003B7 CCCTYPE$;_ ! CR CARD TYPE S 2 25 !
3200 ^COC1D 000003BC CCCEXPDT$;_ ! EXPIRE DATE S 7 27 !
3300 ^COC1D 000003C1 CCCNAME$;_ ! NAME S 35 34 !
3400 ^COC1D 000003C6 CCCBANK$;_ ! ISSUING BANK S 25 69 !
3500 ^COC1D 000003CB CCCFILL$ ! FILLER S 5 94 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 10
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
3600 ^COC1D 000003D1 ! !
3700 ^COC1D 000003D1 !====================================================================!
5400 %WW-CM 000003D1 USE '^COC1R' !0105 - RESALE NUMBERS
1000 ^COC1R 000003D1 ! !
1100 ^COC1R 000003D1 !************************* [WWC1R *******************************!
1200 ^COC1R 000003D1 ! !
1300 ^COC1R 000003D1 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWC1R TYPE: K !
1400 ^COC1R 000003D1 ! !
1500 ^COC1R 000003D1 ! OUT OF STATE RESALE NUMBERS REC SIZE: 151 !
1600 ^COC1R 000003D1 ! KEY SIZE: 6 !
1700 ^COC1R 000003D1 ! !
1800 ^COC1R 000003D1 ! #FILE NAME: RESALE.NO.OUT DATE: 04/09/92 !
1900 ^COC1R 000003D1 ! !
1910 ^COC1R 000003D1 ! BY: CRITERION DESIGN & PROGRAMMING LTD. !
1920 ^COC1R 000003D1 ! !
2000 ^COC1R 000003D1 !********************************************************************!
2100 ^COC1R 000003D1 ! !
2200 ^COC1R 000003D1 ! FILE STATEMENT !
2300 ^COC1R 000003D1 ! !
2400 ^COC1R 000003D1 !!!!FILE 'WWC1R',151 !
2500 ^COC1R 000003D1 ! !
2600 ^COC1R 000003D1 ! VARIABLE DECLARATIONS: !
2700 ^COC1R 000003D1 ! !
2800 ^COC1R 000003D1 LENGTH 2 & LOCAL CRST1$,CRST2$,CRST3$,CRST4$ !
2900 ^COC1R 000003D1 LENGTH 2 & LOCAL CRST5$,CRST6$,CRST7$,CRST8$ !
3000 ^COC1R 000003D1 LENGTH 6 & LOCAL CNBR$ !
3000 ^COC1R *****3D1 Variable 'CNBR$ ' has been previously declared
3100 ^COC1R 000003D1 LENGTH 10 & LOCAL CREXPDT1$,CREXPDT2$,CREXPDT3$ !
3200 ^COC1R 000003D1 LENGTH 10 & LOCAL CREXPDT4$,CREXPDT5$,CREXPDT6$ !
3300 ^COC1R 000003D1 LENGTH 10 & LOCAL CREXPDT7$,CREXPDT8$ !
3400 ^COC1R 000003D1 LENGTH 15 & LOCAL CRSL1$,CRSL2$,CRSL3$,CRSL4$ !
3500 ^COC1R 000003D1 LENGTH 15 & LOCAL CRSL5$,CRSL6$,CRSL7$,CRSL8$ !
3600 ^COC1R 000003D1 ! !
3700 ^COC1R 000003D1 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION!
3800 ^COC1R 000003D1 ! !
3900 ^COC1R 000003D1 0105 FORMAT _ !
4000 ^COC1R 000003D1 CNBR$;_ ! CUSTOMER NUMBER S 6 0 !
4100 ^COC1R 000003D6 CRST1$;_ ! RESALE STATE1 S 2 6 !
4200 ^COC1R 000003DB CRST2$;_ ! RESALE STATE2 S 2 8 !
4300 ^COC1R 000003E0 CRST3$;_ ! RESALE STATE3 S 2 10 !
4400 ^COC1R 000003E5 CRST4$;_ ! RESALE STATE4 S 2 12 !
4500 ^COC1R 000003EA CRST5$;_ ! RESALE STATE5 S 2 14 !
4600 ^COC1R 000003EF CRST6$;_ ! RESALE STATE6 S 2 16 !
4700 ^COC1R 000003F4 CRST7$;_ ! RESALE STATE7 S 2 18 !
4800 ^COC1R 000003F9 CRST8$;_ ! RESALE STATE8 S 2 20 !
4900 ^COC1R 000003FE CRSL1$;_ ! RESALE NUMBER1 S 15 22 !
5000 ^COC1R 00000403 CRSL2$;_ ! RESALE NUMBER2 S 15 37 !
5100 ^COC1R 00000408 CRSL3$;_ ! RESALE NUMBER3 S 15 52 !
5200 ^COC1R 0000040D CRSL4$;_ ! RESALE NUMBER4 S 15 67 !
5300 ^COC1R 00000412 CRSL5$;_ ! RESALE NUMBER5 S 15 82 !
5400 ^COC1R 00000417 CRSL6$;_ ! RESALE NUMBER6 S 15 97 !
5500 ^COC1R 0000041C CRSL7$;_ ! RESALE NUMBER7 S 15 112 !
5600 ^COC1R 00000421 CRSL8$;_ ! RESALE NUMBER8 S 15 127 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 11
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
5700 ^COC1R 00000426 CREXPDT1$;_ ! EXPIRATION DATE 1 S 10 142 !
5800 ^COC1R 0000042B CREXPDT2$;_ ! EXPIRATION DATE 2 S 10 152 !
5900 ^COC1R 00000430 CREXPDT3$;_ ! EXPIRATION DATE 3 S 10 162 !
6000 ^COC1R 00000435 CREXPDT4$;_ ! EXPIRATION DATE 4 S 10 172 !
6100 ^COC1R 0000043A CREXPDT5$;_ ! EXPIRATION DATE 5 S 10 182 !
6200 ^COC1R 0000043F CREXPDT6$;_ ! EXPIRATION DATE 6 S 10 192 !
6300 ^COC1R 00000444 CREXPDT7$;_ ! EXPIRATION DATE 7 S 10 202 !
6400 ^COC1R 00000449 CREXPDT8$ ! EXPIRATION DATE 8 S 10 212 !
6500 ^COC1R 0000044F ! !
6600 ^COC1R 0000044F !********************************************************************!
5410 %WW-CM 0000044F USE '^COCS1A' !0710 - SPECIFIED SALES
1000 ^COCS1A 0000044F ! !
1100 ^COCS1A 0000044F !************************* ^COCS1A *******************************!
1200 ^COCS1A 0000044F ! !
1300 ^COCS1A 0000044F ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWCS1A TYPE: K !
1400 ^COCS1A 0000044F ! !
1500 ^COCS1A 0000044F ! SPECIFIED SALES BY SPECIFIER REC SIZE: 252 !
1600 ^COCS1A 0000044F ! KEY SIZE: 6 !
1700 ^COCS1A 0000044F ! !
1800 ^COCS1A 0000044F ! #FILE NAME: SPECIFIED.SALES DATE: 10/16/92 !
1900 ^COCS1A 0000044F ! !
1910 ^COCS1A 0000044F ! BY: CRITERION DESIGN & PROGRAMMING LTD. !
1920 ^COCS1A 0000044F ! !
2000 ^COCS1A 0000044F !********************************************************************!
2100 ^COCS1A 0000044F ! !
2200 ^COCS1A 0000044F ! FILE STATEMENT !
2300 ^COCS1A 0000044F ! !
2400 ^COCS1A 0000044F !!!!FILE 'WWCS1A',252 !
2500 ^COCS1A 0000044F ! !
2600 ^COCS1A 0000044F ! VARIABLE DECLARATIONS: !
2700 ^COCS1A 0000044F ! !
2800 ^COCS1A 0000044F LENGTH 4.0 & LOCAL SPINVLIF,SPINVMTD,SPINVPV1 !
2900 ^COCS1A 0000044F LENGTH 4.0 & LOCAL SPINVPV2,SPINVYTD !
3000 ^COCS1A 0000044F LENGTH 8.2 & LOCAL SPUTSLIF,SPUTSMTD,SPUTSPV1 !
3100 ^COCS1A 0000044F LENGTH 8.2 & LOCAL SPUTSPV2,SPUTSYTD !
3200 ^COCS1A 0000044F LENGTH 9.2 & LOCAL SPCSTLIF,SPCSTMTD,SPCSTPV1 !
3300 ^COCS1A 0000044F LENGTH 9.2 & LOCAL SPCSTPV2,SPCSTYTD,SPSLSLIF !
3400 ^COCS1A 0000044F LENGTH 9.2 & LOCAL SPSLSMTD,SPSLSPV1,SPSLSPV2 !
3500 ^COCS1A 0000044F LENGTH 9.2 & LOCAL SPSLSYTD !
3600 ^COCS1A 0000044F LENGTH 3 & LOCAL SPREP$ !
3700 ^COCS1A 0000044F LENGTH 6 & LOCAL SPCNBR$ !
3800 ^COCS1A 0000044F LENGTH 10 & LOCAL SPLINVDT$ !
3900 ^COCS1A 0000044F LENGTH 43 & LOCAL SPFILL$ !
4000 ^COCS1A 0000044F ! !
4100 ^COCS1A 0000044F ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION!
4200 ^COCS1A 0000044F ! !
4300 ^COCS1A 0000044F 0710 FORMAT _ !
4400 ^COCS1A 0000044F SPCNBR$;_ ! SPECIFIER # S 6 0 !
4500 ^COCS1A 00000454 SPSLSMTD;_ ! SALES MTD N 9.2 6 !
4600 ^COCS1A 00000459 SPSLSYTD;_ ! SALES YTD N 9.2 17 !
4700 ^COCS1A 0000045E SPSLSPV1;_ ! SALES PREV1 N 9.2 28 !
4800 ^COCS1A 00000463 SPSLSPV2;_ ! SALES PREV2 N 9.2 39 !
4900 ^COCS1A 00000468 SPSLSLIF;_ ! SALES LIFE N 9.2 50 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 12
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
5000 ^COCS1A 0000046D SPCSTMTD;_ ! COST MTD N 9.2 61 !
5100 ^COCS1A 00000472 SPCSTYTD;_ ! COST YTD N 9.2 72 !
5200 ^COCS1A 00000477 SPCSTPV1;_ ! COST PREV1 N 9.2 83 !
5300 ^COCS1A 0000047C SPCSTPV2;_ ! COST PREV2 N 9.2 94 !
5400 ^COCS1A 00000481 SPCSTLIF;_ ! COST LIFE N 9.2 105 !
5500 ^COCS1A 00000486 SPUTSMTD;_ ! UNITS MTD N 8.2 116 !
5600 ^COCS1A 0000048B SPUTSYTD;_ ! UNITS YTD N 8.2 126 !
5700 ^COCS1A 00000490 SPUTSPV1;_ ! UNITS PREV1 N 8.2 136 !
5800 ^COCS1A 00000495 SPUTSPV2;_ ! UNITS PREV2 N 8.2 146 !
5900 ^COCS1A 0000049A SPUTSLIF;_ ! UNITS LIFE N 8.2 156 !
6000 ^COCS1A 0000049F SPINVMTD;_ ! INVOICES MTD N 4.0 166 !
6100 ^COCS1A 000004A4 SPINVYTD;_ ! INVOICES YTD N 4.0 172 !
6200 ^COCS1A 000004A9 SPINVPV1;_ ! INVOICES PREV1 N 4.0 178 !
6300 ^COCS1A 000004AE SPINVPV2;_ ! INVOICES PREV2 N 4.0 184 !
6400 ^COCS1A 000004B3 SPINVLIF;_ ! INVOICES LIFE N 4.0 190 !
6500 ^COCS1A 000004B8 SPLINVDT$;_ ! LAST SPECIFIED INV S 10 196 !
6600 ^COCS1A 000004BD SPREP$;_ ! SALES REP S 3 206 !
6700 ^COCS1A 000004C2 SPFILL$ ! FILLER S 43 209 !
6800 ^COCS1A 000004C8 ! !
6900 ^COCS1A 000004C8 !********************************************************************!
5412 %WW-CM 000004C8 USE '^COC7A' !0170 - ACTIVITY NOTES
100 ^COC7A 000004C8 ! !
200 ^COC7A 000004C8 !===========================> ^COC7A <=============================!
300 ^COC7A 000004C8 ! !
400 ^COC7A 000004C8 ! File Format & Length Declaratives !
500 ^COC7A 000004C8 ! !
600 ^COC7A 000004C8 ! File Name: WWC7A ACTIVITY NOTES !
700 ^COC7A 000004C8 ! !
800 ^COC7A 000004C8 ! Type: K Record: 756 Key: 6 Image: N !
900 ^COC7A 000004C8 ! !
1000 ^COC7A 000004C8 ! #FILES File Name: ACTIVITY.NOTES Date: 08/13/99 !
1100 ^COC7A 000004C8 ! !
1200 ^COC7A 000004C8 !--------------------------------------------------------------------!
1300 ^COC7A 000004C8 ! !
1400 ^COC7A 000004C8 ! !
1500 ^COC7A 000004C8 LENGTH 6 & LOCAL C7ACNBR$ !
1600 ^COC7A 000004C8 LENGTH 240 & LOCAL C7ANOTE1$,C7ANOTE2$ !
1700 ^COC7A 000004C8 LENGTH 240 & LOCAL C7ANOTE3$ !
1800 ^COC7A 000004C8 ! !
1900 ^COC7A 000004C8 ! !
2000 ^COC7A 000004C8 ! Description Type Len Pos !
2100 ^COC7A 000004C8 ! ------------------------------------------!
2200 ^COC7A 000004C8 0170 FORMAT _ !
2300 ^COC7A 000004C8 C7ACNBR$;_ ! CUSTOMER.NUMBER S 6 0 !
2400 ^COC7A 000004CD C7ANOTE1$;_ ! ACTIVITY NOTE 1 S 240 6 !
2500 ^COC7A 000004D2 C7ANOTE2$;_ ! ACTIVITY NOTE 2 S 240 246 !
2600 ^COC7A 000004D7 C7ANOTE3$ ! ACTIVITY NOTE 3 S 240 486 !
2700 ^COC7A 000004DD ! !
2800 ^COC7A 000004DD !====================================================================!
5420 %WW-CM 000004DD !
5430 %WW-CM 000004DD LENGTH 21 & LOCAL XCITY$
5440 %WW-CM 000004DD LENGTH 35 & LOCAL XNAME$
5450 %WW-CM 000004DD !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 13
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
5460 %WW-CM 000004DD 0101 FORMAT _ !USED TO CONVERT MEMO ACCOUNTS
5470 %WW-CM 000004DD @(6);XNAME$;_
5480 %WW-CM 000004E7 @(111);XCITY$
5485 %WW-CM 000004F2 !
5500 %WW-CM 000004F2 0102 FORMAT CNBR$
5600 %WW-CM 000004F8 USE '^COS1' !0400 - REP MASTER
100 ^COS1 000004F8 ! !
200 ^COS1 000004F8 !===========================> ^COS1 <==============================!
300 ^COS1 000004F8 ! !
400 ^COS1 000004F8 ! File Format & Length Declaratives !
500 ^COS1 000004F8 ! !
600 ^COS1 000004F8 ! File Name: WWS1 REP MASTER !
700 ^COS1 000004F8 ! !
800 ^COS1 000004F8 ! Type: K Record: 756 Key: 3 Image: N !
900 ^COS1 000004F8 ! !
1000 ^COS1 000004F8 ! #FILES File Name: REP.MASTER Date: 06/22/05 !
1100 ^COS1 000004F8 ! !
1200 ^COS1 000004F8 !--------------------------------------------------------------------!
1300 ^COS1 000004F8 ! !
1400 ^COS1 000004F8 ! !
1500 ^COS1 000004F8 LENGTH 4.0 & LOCAL SMTDINV,SPR1INV,SPR2INV !
1600 ^COS1 000004F8 LENGTH 4.0 & LOCAL SPR3INV,SYTDINV !
1700 ^COS1 000004F8 LENGTH 4.2 & LOCAL SCOMMC,SCOMM !
1800 ^COS1 000004F8 LENGTH 7.2 & LOCAL SRETMTD,SRETPRV1,SRETPRV2 !
1900 ^COS1 000004F8 LENGTH 7.2 & LOCAL SRETPRV3,SRETYTD,SSFMTD !
2000 ^COS1 000004F8 LENGTH 7.2 & LOCAL SSFPRV1,SSFPRV2,SSFPRV3 !
2100 ^COS1 000004F8 LENGTH 7.2 & LOCAL SSFYTD,SSRPRV1,SSRPRV2 !
2200 ^COS1 000004F8 LENGTH 7.2 & LOCAL SSRPRV3,SSRYTD,SSSMTD !
2300 ^COS1 000004F8 LENGTH 7.2 & LOCAL SSSPRV1,SSSPRV2,SSSPRV3 !
2400 ^COS1 000004F8 LENGTH 7.2 & LOCAL SSSYTD !
2500 ^COS1 000004F8 LENGTH 9.2 & LOCAL SCOMMMTD,SCOMMPR1,SCOMMPR2 !
2600 ^COS1 000004F8 LENGTH 9.2 & LOCAL SCOMMPR3,SCOMMYTD,SSLSMTD !
2700 ^COS1 000004F8 LENGTH 9.2 & LOCAL SSLSPRV1,SSLSPRV2,SSLSPRV3 !
2800 ^COS1 000004F8 LENGTH 9.2 & LOCAL SSLSYTD !
2900 ^COS1 000004F8 LENGTH 1 & LOCAL SCOMMDUE$,SINVRPT$,STERRBE$ !
3000 ^COS1 000004F8 LENGTH 1 & LOCAL SWCFLAG$ !
3100 ^COS1 000004F8 LENGTH 2 & LOCAL SSTATE$ !
3200 ^COS1 000004F8 LENGTH 3 & LOCAL SMSNBR$,SOTCREP$,SOTMREP$ !
3300 ^COS1 000004F8 LENGTH 3 & LOCAL SNBR$,SSRTFLD$,STERR$ !
3400 ^COS1 000004F8 LENGTH 9 & LOCAL SSHRTNM$ !
3500 ^COS1 000004F8 LENGTH 10 & LOCAL SDTEEST$,SDTEEND$,SZIP$ !
3600 ^COS1 000004F8 LENGTH 15 & LOCAL SCNTRY$ !
3700 ^COS1 000004F8 LENGTH 17 & LOCAL SFAX$,SPHONE1$,SPHONE2$ !
3800 ^COS1 000004F8 LENGTH 17 & LOCAL STELEX$ !
3900 ^COS1 000004F8 LENGTH 21 & LOCAL SCITY$ !
4000 ^COS1 000004F8 LENGTH 35 & LOCAL SADR1$,SADR2$,SATTN$ !
4100 ^COS1 000004F8 LENGTH 35 & LOCAL SNAME$ !
4200 ^COS1 000004F8 LENGTH 60 & LOCAL SEMAIL$ !
4300 ^COS1 000004F8 LENGTH 66 & LOCAL SFIL0400$ !
4400 ^COS1 000004F8 ! !
4500 ^COS1 000004F8 ! !
4600 ^COS1 000004F8 ! Description Type Len Pos !
4700 ^COS1 000004F8 ! ------------------------------------------!
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 14
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
4800 ^COS1 000004F8 0400 FORMAT _ !
4900 ^COS1 000004F8 SNBR$;_ ! REP ID S 3 0 !
5000 ^COS1 000004FD SNAME$;_ ! REP NAME S 35 3 !
5100 ^COS1 00000502 SADR1$;_ ! ADDRESS ONE S 35 38 !
5200 ^COS1 00000507 SADR2$;_ ! ADDRESS TWO S 35 73 !
5300 ^COS1 0000050C SCITY$;_ ! CITY S 21 108 !
5400 ^COS1 00000511 SSTATE$;_ ! ST S 2 129 !
5500 ^COS1 00000516 SZIP$;_ ! ZIP CODE S 10 131 !
5600 ^COS1 0000051B SATTN$;_ ! ATTENTION S 35 141 !
5700 ^COS1 00000520 SCNTRY$;_ ! COUNTRY S 15 176 !
5800 ^COS1 00000525 SMSNBR$;_ ! MAST ID S 3 191 !
5900 ^COS1 0000052A STERR$;_ ! TERR S 3 194 !
6000 ^COS1 0000052F SPHONE1$;_ ! PHONE ONE S 17 197 !
6100 ^COS1 00000534 SPHONE2$;_ ! PHONE TWO S 17 214 !
6200 ^COS1 00000539 SFAX$;_ ! FAX S 17 231 !
6300 ^COS1 0000053E STELEX$;_ ! TELEX S 17 248 !
6400 ^COS1 00000543 SCOMM;_ ! COMM PCT N 4.2 265 !
6500 ^COS1 00000548 SDTEEST$;_ ! DATE EST S 10 271 !
6600 ^COS1 0000054D SDTEEND$;_ ! END DATE S 10 281 !
6700 ^COS1 00000552 SSLSMTD;_ ! SALES MTD N 9.2 291 !
6800 ^COS1 00000557 SSLSYTD;_ ! SALES YTD N 9.2 302 !
6900 ^COS1 0000055C SSLSPRV1;_ ! SALES PREV1 N 9.2 313 !
7000 ^COS1 00000561 SSLSPRV2;_ ! SALES PREV2 N 9.2 324 !
7100 ^COS1 00000566 SSLSPRV3;_ ! SALES PREV3 N 9.2 335 !
7200 ^COS1 0000056B SRETMTD;_ ! RETURNS MTD N 7.2 346 !
7300 ^COS1 00000570 SRETYTD;_ ! RETURNS YTD N 7.2 355 !
7400 ^COS1 00000575 SRETPRV1;_ ! RETURNS PRV1 N 7.2 364 !
7500 ^COS1 0000057A SRETPRV2;_ ! RETURNS PRV2 N 7.2 373 !
7600 ^COS1 0000057F SRETPRV3;_ ! RETURNS PRV3 N 7.2 382 !
7700 ^COS1 00000584 SCOMMMTD;_ ! COMM MTD N 9.2 391 !
7800 ^COS1 00000589 SCOMMYTD;_ ! COMM YTD N 9.2 402 !
7900 ^COS1 0000058E SCOMMPR1;_ ! COMM PREV1 N 9.2 413 !
8000 ^COS1 00000593 SCOMMPR2;_ ! COMM PREV2 N 9.2 424 !
8100 ^COS1 00000598 SCOMMPR3;_ ! COMM PREV3 N 9.2 435 !
8200 ^COS1 0000059D SMTDINV;_ ! MTD INVCS N 4.0 446 !
8300 ^COS1 000005A2 SYTDINV;_ ! YTD INVCS N 4.0 452 !
8400 ^COS1 000005A7 SPR1INV;_ ! PRV1 INVCS N 4.0 458 !
8500 ^COS1 000005AC SPR2INV;_ ! PRV2 INVCS N 4.0 464 !
8600 ^COS1 000005B1 SPR3INV;_ ! PRV3 INVCS N 4.0 470 !
8700 ^COS1 000005B6 SSFMTD;_ ! SAMP FREE MTD N 7.2 476 !
8800 ^COS1 000005BB SSFYTD;_ ! SAMP FREE YTD N 7.2 485 !
8900 ^COS1 000005C0 SSFPRV1;_ ! SAMP FREE PRV1 N 7.2 494 !
9000 ^COS1 000005C5 SSFPRV2;_ ! SAMP FREE PRV2 N 7.2 503 !
9100 ^COS1 000005CA SSFPRV3;_ ! SAMP FREE PRV3 N 7.2 512 !
9200 ^COS1 000005CF SSSMTD;_ ! SAMP SOLD MTD N 7.2 521 !
9300 ^COS1 000005D4 SSSYTD;_ ! SAMP SOLD YTD N 7.2 530 !
9400 ^COS1 000005D9 SSSPRV1;_ ! SAMP SOLD PRV1 N 7.2 539 !
9500 ^COS1 000005DE SSSPRV2;_ ! SAMP SOLD PRV2 N 7.2 548 !
9600 ^COS1 000005E3 SSSPRV3;_ ! SAMP SOLD PRV3 N 7.2 557 !
9700 ^COS1 000005E8 SSRYTD;_ ! SAMP RETURNED YTD N 7.2 566 !
9800 ^COS1 000005ED SSRPRV1;_ ! SAMP RETURNED PRV1 N 7.2 575 !
9900 ^COS1 000005F2 SSRPRV2;_ ! SAMP RETURNED PRV2 N 7.2 584 !
10000 ^COS1 000005F7 SSRPRV3;_ ! SAMP RETURNED PRV3 N 7.2 593 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 15
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
10100 ^COS1 000005FC SCOMMDUE$;_ ! COMM DUE FLAG S 1 602 !
10200 ^COS1 00000601 SINVRPT$;_ ! INVOICE REPRINT S 1 603 !
10300 ^COS1 00000606 STERRBE$;_ ! TERR BERG S 1 604 !
10400 ^COS1 0000060B SSHRTNM$;_ ! SHORT NAME S 9 605 !
10500 ^COS1 00000610 SSRTFLD$;_ ! SORT FIELD S 3 614 !
10600 ^COS1 00000615 SEMAIL$;_ ! S 60 617 !
10700 ^COS1 0000061A SWCFLAG$;_ ! WST CST FLG S 1 677 !
10800 ^COS1 0000061F SCOMMC;_ ! COMM% CONTRACT N 4.2 678 !
10900 ^COS1 00000624 SOTCREP$;_ ! ORDER TRACK CONS REP ID S 3 684 !
11000 ^COS1 00000629 SOTMREP$;_ ! ORDER TRACK MASTER REP ID S 3 687 !
11100 ^COS1 0000062E SFIL0400$ ! FILLER S 66 690 !
11200 ^COS1 00000634 ! !
11300 ^COS1 00000634 !====================================================================!
5650 %WW-CM 00000634 USE '^COM1A'
100 ^COM1A 00000634 ! !
200 ^COM1A 00000634 !===========================> ^COM1A <=============================!
300 ^COM1A 00000634 ! !
400 ^COM1A 00000634 ! File Format & Length Declaratives !
500 ^COM1A 00000634 ! !
600 ^COM1A 00000634 ! File Name: WWM1A SAMPLE HEADER !
700 ^COM1A 00000634 ! !
800 ^COM1A 00000634 ! Type: K Record: 512 Key: 9 Image: N !
900 ^COM1A 00000634 ! !
1000 ^COM1A 00000634 ! #FILES File Name: SAMP.HEADER Date: 09/17/04 !
1100 ^COM1A 00000634 ! !
1200 ^COM1A 00000634 !--------------------------------------------------------------------!
1300 ^COM1A 00000634 ! !
1400 ^COM1A 00000634 ! !
1500 ^COM1A 00000634 LENGTH 4.2 & LOCAL MTAXPCT !
1600 ^COM1A 00000634 LENGTH 7.2 & LOCAL MGROSS !
1700 ^COM1A 00000634 LENGTH 1 & LOCAL OCUT$,MEEFLG$,MECFLG$ !
1800 ^COM1A 00000634 LENGTH 1 & LOCAL MLABFLG$,OPPRNT$ !
1900 ^COM1A 00000634 LENGTH 2 & LOCAL MSTYPEH$,OSTATE$ !
2000 ^COM1A 00000634 LENGTH 3 & LOCAL MEMLSEQ$,MELOC$,METERM$ !
2100 ^COM1A 00000634 LENGTH 3 & LOCAL MOPINIT$,MEMLREP$,MSNBR$ !
2200 ^COM1A 00000634 LENGTH 3 & LOCAL OLOC$ !
2300 ^COM1A 00000634 LENGTH 6 & LOCAL MCNBR$,MSPECNBR$ !
2400 ^COM1A 00000634 LENGTH 9 & LOCAL MRNBR$ !
2500 ^COM1A 00000634 LENGTH 10 & LOCAL MDATE$,MRDATE$,OZIP$ !
2600 ^COM1A 00000634 LENGTH 15 & LOCAL MSHIPVIA$ !
2700 ^COM1A 00000634 LENGTH 21 & LOCAL OCITY$ !
2800 ^COM1A 00000634 LENGTH 25 & LOCAL MJOB$,MTRACKNO$ !
2900 ^COM1A 00000634 LENGTH 30 & LOCAL MSM1$,MSM2$ !
3000 ^COM1A 00000634 LENGTH 35 & LOCAL OADR1$,OADR2$,OATTN$ !
3100 ^COM1A 00000634 LENGTH 35 & LOCAL ONAME$ !
3200 ^COM1A 00000634 LENGTH 60 & LOCAL MPCOMM$ !
3300 ^COM1A 00000634 LENGTH 70 & LOCAL OFILL60$ !
3400 ^COM1A 00000634 ! !
3500 ^COM1A 00000634 ! !
3600 ^COM1A 00000634 ! Description Type Len Pos !
3700 ^COM1A 00000634 ! ------------------------------------------!
3800 ^COM1A 00000634 0060 FORMAT _ !
3900 ^COM1A 00000634 MRNBR$;_ ! MEMO # S 9 0 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 16
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
4000 ^COM1A 00000639 MCNBR$;_ ! CUST NUMBER S 6 9 !
4100 ^COM1A 0000063E MDATE$;_ ! MEMO DATE S 10 15 !
4200 ^COM1A 00000643 MRDATE$;_ ! RETURN DATE S 10 25 !
4300 ^COM1A 00000648 MSM1$;_ ! SIDE MARK 1 S 30 35 !
4400 ^COM1A 0000064D MSM2$;_ ! SIDE MARK 2 S 30 65 !
4500 ^COM1A 00000652 MTAXPCT;_ ! TAX PCT N 4.2 95 !
4600 ^COM1A 00000657 MSNBR$;_ ! SLS # S 3 101 !
4700 ^COM1A 0000065C ONAME$;_ ! SHIP TO NAME S 35 104 !
4800 ^COM1A 00000661 OADR1$;_ ! ADDRESS 1 S 35 139 !
4900 ^COM1A 00000666 OADR2$;_ ! SHIP TO ADDRESS S 35 174 !
5000 ^COM1A 0000066B OCITY$;_ ! SHIP TO CITY S 21 209 !
5100 ^COM1A 00000670 OSTATE$;_ ! SHP TO ST S 2 230 !
5200 ^COM1A 00000675 OZIP$;_ ! SHIP TO ZIP S 10 232 !
5300 ^COM1A 0000067A OATTN$;_ ! ATTENTION S 35 242 !
5400 ^COM1A 0000067F OPPRNT$;_ ! PRICE PRINT FLAG S 1 277 !
5500 ^COM1A 00000684 OCUT$;_ ! CUT FLG S 1 278 !
5600 ^COM1A 00000689 MELOC$;_ ! MEMO ENTRY LOC. S 3 279 !
5700 ^COM1A 0000068E METERM$;_ ! CRT OF ENTRY S 3 282 !
5800 ^COM1A 00000693 OLOC$;_ ! TRAN TO LOC S 3 285 !
5900 ^COM1A 00000698 MGROSS;_ ! MEMO GROSS SET IN MB N 7.2 288 !
6000 ^COM1A 0000069D MOPINIT$;_ ! OPER INIT S 3 297 !
6100 ^COM1A 000006A2 MPCOMM$;_ ! COMMENT S 60 300 !
6200 ^COM1A 000006A7 MSTYPEH$;_ ! SAMPLE TYPE H S 2 360 !
6300 ^COM1A 000006AC MLABFLG$;_ ! LABEL FLAG S 1 362 !
6400 ^COM1A 000006B1 MJOB$;_ ! JOB NAME S 25 363 !
6500 ^COM1A 000006B6 MSPECNBR$;_ ! SPECIFIER NUMBER S 6 388 !
6600 ^COM1A 000006BB MTRACKNO$;_ ! TRACKING NUMBER S 25 394 !
6700 ^COM1A 000006C0 MSHIPVIA$;_ ! SHIP VIA S 15 419 !
6800 ^COM1A 000006C5 MEMLSEQ$;_ ! C1E EMAIL SEQ # S 3 434 !
6900 ^COM1A 000006CA MEEFLG$;_ ! EMAIL CONF FLAG S 1 437 !
7000 ^COM1A 000006CF MECFLG$;_ ! EMAILED CONF FLAG S 1 438 !
7100 ^COM1A 000006D4 MEMLREP$;_ ! REP EMAIL SEQ S 3 439 !
7200 ^COM1A 000006D9 OFILL60$ ! FILLER S 70 442 !
7300 ^COM1A 000006DF ! !
7400 ^COM1A 000006DF !====================================================================!
5700 %WW-CM 000006DF USE '^COM1H'
100 ^COM1H 000006DF ! !
200 ^COM1H 000006DF !===========================> ^COM1H <=============================!
300 ^COM1H 000006DF ! !
400 ^COM1H 000006DF ! File Format & Length Declaratives !
500 ^COM1H 000006DF ! !
600 ^COM1H 000006DF ! File Name: WWM1H SAMPLE HISTORY !
700 ^COM1H 000006DF ! !
800 ^COM1H 000006DF ! Type: K Record: 100 Key: 20 Image: N !
900 ^COM1H 000006DF ! !
1000 ^COM1H 000006DF ! #FILES File Name: SAMP.HISTORY Date: 10/26/99 !
1100 ^COM1H 000006DF ! !
1200 ^COM1H 000006DF !--------------------------------------------------------------------!
1300 ^COM1H 000006DF ! !
1400 ^COM1H 000006DF ! !
1500 ^COM1H 000006DF LENGTH 4.0 & LOCAL HLPREV1,HLYTD,HRPREV1 !
1600 ^COM1H 000006DF LENGTH 4.0 & LOCAL HRYTD !
1700 ^COM1H 000006DF LENGTH 2 & LOCAL HITYPE$,HSTYPE$ !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 17
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1800 ^COM1H 000006DF LENGTH 6 & LOCAL HCNBR$ !
1900 ^COM1H 000006DF LENGTH 7 & LOCAL HPATTERN$ !
2000 ^COM1H 000006DF LENGTH 14 & LOCAL HINBR$ !
2100 ^COM1H 000006DF ! !
2200 ^COM1H 000006DF ! !
2300 ^COM1H 000006DF ! Description Type Len Pos !
2400 ^COM1H 000006DF ! ------------------------------------------!
2500 ^COM1H 000006DF 0066 FORMAT _ !
2600 ^COM1H 000006DF HCNBR$;_ ! CUST NUMBER S 6 0 !
2700 ^COM1H 000006E4 HINBR$;_ ! ITEM NUMBER S 14 6 !
2800 ^COM1H 000006E9 HPATTERN$;_ ! PATTERN NUMBER S 7 20 !
2900 ^COM1H 000006EE HITYPE$;_ ! ITEM TYPE S 2 27 !
3000 ^COM1H 000006F3 HLYTD;_ ! LOANS YTD N 4.0 29 !
3100 ^COM1H 000006F8 HLPREV1;_ ! LOANS PREV YEAR N 4.0 35 !
3200 ^COM1H 000006FD HRYTD;_ ! RETURNS YTD N 4.0 41 !
3300 ^COM1H 00000702 HRPREV1;_ ! RETURNS PREV YEAR N 4.0 47 !
3400 ^COM1H 00000707 HSTYPE$ ! SAMPLE TYPE S 2 53 !
3500 ^COM1H 0000070D ! !
3600 ^COM1H 0000070D !====================================================================!
6000 %WW-CM 0000070D USE '^COZ1' !0990 - SYSTEM DATA
100 ^COZ1 0000070D ! !
200 ^COZ1 0000070D !===========================> ^COZ1 <==============================!
300 ^COZ1 0000070D ! !
400 ^COZ1 0000070D ! File Format & Length Declaratives !
500 ^COZ1 0000070D ! !
600 ^COZ1 0000070D ! File Name: Z1 SYSTEM FILE !
700 ^COZ1 0000070D ! !
800 ^COZ1 0000070D ! Type: K Record: 512 Key: 32 Image: N !
900 ^COZ1 0000070D ! !
1000 ^COZ1 0000070D ! #FILES File Name: SYSTEM.FILE Date: 11/01/06 !
1100 ^COZ1 0000070D ! !
1200 ^COZ1 0000070D !--------------------------------------------------------------------!
1300 ^COZ1 0000070D ! !
1400 ^COZ1 0000070D ! !
1500 ^COZ1 0000070D LENGTH 1.0 & LOCAL ZREPFLG !
1600 ^COZ1 0000070D LENGTH 2.0 & LOCAL ZFMM,ZMOCRED,ZREMOTE !
1700 ^COZ1 0000070D LENGTH 2.0 & LOCAL ZHNDPCT,ZDELDYO !
1800 ^COZ1 0000070D LENGTH 3.0 & LOCAL ZMAXUPS,ZPASTDUE,ZPDDYS !
1900 ^COZ1 0000070D LENGTH 4.0 & LOCAL ZCLAMT !
2000 ^COZ1 0000070D LENGTH 4.2 & LOCAL ZFRTMIN,ZPCKCHG !
2100 ^COZ1 0000070D LENGTH 5.0 & LOCAL ZPAYLIM !
2200 ^COZ1 0000070D LENGTH 1 & LOCAL ZACKFLG$,ZARAUDT$,ZINVAUDT$ !
2300 ^COZ1 0000070D LENGTH 1 & LOCAL ZBRKFLG$,ZCNLDISP$,ZCNL7$ !
2400 ^COZ1 0000070D LENGTH 1 & LOCAL ZCUTYRD$,ZDIBC$,ZDIEML$ !
2500 ^COZ1 0000070D LENGTH 1 & LOCAL ZDISCAN$,ZEDRFLG$,ZFRTYDLB$ !
2600 ^COZ1 0000070D LENGTH 1 & LOCAL ZFURNACT$,ZFEVENT$,ZKEBAT$ !
2700 ^COZ1 0000070D LENGTH 1 & LOCAL ZLPDSPLY$,ZMENU$,ZMULTIWH$ !
2800 ^COZ1 0000070D LENGTH 1 & LOCAL ZCFAFLOE$,ZORDLIM$ !
2900 ^COZ1 0000070D LENGTH 1 & LOCAL ZOTBCFLG$,ZPCKFLG$,ZPTRDLG$ !
3000 ^COZ1 0000070D LENGTH 1 & LOCAL ZPT$,ZQCLOT$,ZRNDFRT$ !
3100 ^COZ1 0000070D LENGTH 1 & LOCAL ZUPDC1A$ !
3200 ^COZ1 0000070D LENGTH 2 & LOCAL ZCENT$,ZZCO$,ZCOID$ !
3300 ^COZ1 0000070D LENGTH 2 & LOCAL ZSTATE$,ZCURRCD$,ZUNUSED2$ !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 18
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
3400 ^COZ1 0000070D LENGTH 3 & LOCAL ZPART1$,ZDICTDIR$,ZDIBCLPT$ !
3500 ^COZ1 0000070D LENGTH 3 & LOCAL ZFXD$,ZPARTMEM$,ZMLP$ !
3600 ^COZ1 0000070D LENGTH 3 & LOCAL ZLOC$,ZINIT$,ZLP$,ZRMD$ !
3700 ^COZ1 0000070D LENGTH 3 & LOCAL ZREPDEF$ !
3800 ^COZ1 0000070D LENGTH 5 & LOCAL ZJULIAN$ !
3900 ^COZ1 0000070D LENGTH 6 & LOCAL ZAGED6$ !
4000 ^COZ1 0000070D LENGTH 8 & LOCAL ZAGED$,ZRESDTE8$,ZCFADTE8$ !
4100 ^COZ1 0000070D LENGTH 8 & LOCAL ZDATE8$ !
4200 ^COZ1 0000070D LENGTH 9 & LOCAL ZFILLER$ !
4300 ^COZ1 0000070D LENGTH 10 & LOCAL ZZIP$,ZORDDTE$,ZRESDTE$ !
4400 ^COZ1 0000070D LENGTH 10 & LOCAL ZCFADTE$,ZDATE$ !
4500 ^COZ1 0000070D LENGTH 11 & LOCAL ZSHPVIA$ !
4600 ^COZ1 0000070D LENGTH 12 & LOCAL ZPHONE$,ZFAXNO$ !
4700 ^COZ1 0000070D LENGTH 15 & LOCAL ZADR3$,ZFOBOE$ !
4800 ^COZ1 0000070D LENGTH 20 & LOCAL ZFRTTRM$ !
4900 ^COZ1 0000070D LENGTH 21 & LOCAL ZCITY$ !
5000 ^COZ1 0000070D LENGTH 25 & LOCAL ZADR1$,ZADR2$,ZNAME25$ !
5100 ^COZ1 0000070D LENGTH 27 & LOCAL ZDOWEXP$ !
5200 ^COZ1 0000070D LENGTH 32 & LOCAL ZZKEYZ1$ !
5300 ^COZ1 0000070D LENGTH 35 & LOCAL ZNAME$ !
5400 ^COZ1 0000070D ! !
5500 ^COZ1 0000070D ! !
5600 ^COZ1 0000070D ! Description Type Len Pos !
5700 ^COZ1 0000070D ! ------------------------------------------!
5800 ^COZ1 0000070D 0990 FORMAT _ !
5900 ^COZ1 0000070D ZDATE8$;_ ! TODAYS DATE 8 S 8 0 !
6000 ^COZ1 00000712 ZDOWEXP$;_ ! DATE EXPANDED S 27 8 !
6100 ^COZ1 00000717 ZLP$;_ ! PRINTER S 3 35 !
6200 ^COZ1 0000071C ZPT$;_ ! PRINTER TYPE S 1 38 !
6300 ^COZ1 00000721 ZNAME25$;_ ! NAME S 25 39 !
6400 ^COZ1 00000726 ZADR1$;_ ! ADDRESS 1 S 25 64 !
6500 ^COZ1 0000072B ZADR2$;_ ! ADDRESS 2 S 25 89 !
6600 ^COZ1 00000730 ZCITY$;_ ! CITY S 21 114 !
6700 ^COZ1 00000735 ZSTATE$;_ ! STATE S 2 135 !
6800 ^COZ1 0000073A ZZIP$;_ ! ZIP S 10 137 !
6900 ^COZ1 0000073F ZADR3$;_ ! ADDRESS 3 S 15 147 !
7000 ^COZ1 00000744 ZPHONE$;_ ! PHONE S 12 162 !
7100 ^COZ1 00000749 ZAGED6$;_ ! AGING NUMERIC DATE6 S 6 174 !
7200 ^COZ1 0000074E ZJULIAN$;_ ! JULIAN DATE S 5 180 !
7300 ^COZ1 00000753 ZCOID$;_ ! COMPANY ID S 2 185 !
7400 ^COZ1 00000758 ZREMOTE;_ ! REMOTE FLAG, 0=NONE N 2.0 187 !
7500 ^COZ1 0000075D ZUNUSED2$;_ ! 2 UNUSED BYTES S 2 191 !
7600 ^COZ1 00000762 ZLOC$;_ ! MEMO SAMPLE LOC S 3 193 !
7700 ^COZ1 00000767 ZZCO$;_ ! COMPANY CODE S 2 196 !
7800 ^COZ1 0000076C ZFXD$;_ ! FIXED DISC S 3 198 !
7900 ^COZ1 00000771 ZRMD$;_ ! REMOVABLE DISC S 3 201 !
8000 ^COZ1 00000776 ZPART1$;_ ! BACKROUND PARTITION S 3 204 !
8100 ^COZ1 0000077B ZRESDTE8$;_ ! RESERVE CANCEL DATE S 8 207 !
8200 ^COZ1 00000780 ZCFADTE8$;_ ! RESERVE CFA CANCEL S 8 215 !
8300 ^COZ1 00000785 ZHNDPCT;_ ! RESTOCKING PCT N 2.0 223 !
8400 ^COZ1 0000078A ZPCKCHG;_ ! PACKAGING CHARGE N 4.2 227 !
8500 ^COZ1 0000078F ZPCKFLG$;_ ! PACKAGING CHARGE S 1 233 !
8600 ^COZ1 00000794 ZDELDYO;_ ! ADDITIONAL SHIP DAY N 2.0 234 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 19
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
8700 ^COZ1 00000799 ZPASTDUE;_ ! PAST DUE DAYS N 3.0 238 !
8800 ^COZ1 0000079E ZFMM;_ ! FISCAL MONTH N 2.0 243 !
8900 ^COZ1 000007A3 ZMOCRED;_ ! MONTHS WITH NO SALE N 2.0 247 !
9000 ^COZ1 000007A8 ZREPFLG;_ ! RESTRICT REP FLAG N 1.0 251 !
9100 ^COZ1 000007AD ZDICTDIR$;_ ! DICT DIRECTORY S 3 254 !
9200 ^COZ1 000007B2 ZREPDEF$;_ ! RESTRICTED REP ID S 3 257 !
9300 ^COZ1 000007B7 ZDATE$;_ ! TODAYS DATE 10 S 10 260 !
9400 ^COZ1 000007BC ZAGED$;_ ! AGING NUMERIC DATE8 S 8 270 !
9500 ^COZ1 000007C1 ZCENT$;_ ! CENTURY S 2 278 !
9600 ^COZ1 000007C6 ZINIT$;_ ! INITIALS S 3 280 !
9700 ^COZ1 000007CB ZNAME$;_ ! COMPANY NAME S 35 283 !
9800 ^COZ1 000007D0 ZFRTMIN;_ ! MINIMUM FRT PER ORD N 4.2 318 !
9900 ^COZ1 000007D5 ZPARTMEM$;_ ! MEMO PRINT PART S 3 324 !
10000 ^COZ1 000007DA ZRESDTE$;_ ! RESERVE CANCEL DATE S 10 327 !
10100 ^COZ1 000007DF ZCFADTE$;_ ! RESERVE CFA CANCEL S 10 337 !
10200 ^COZ1 000007E4 ZLPDSPLY$;_ ! LOT PIECE DSPLY S 1 347 !
10300 ^COZ1 000007E9 ZPAYLIM;_ ! CR CHK PAYMENT LIMIT N 5.0 348 !
10400 ^COZ1 000007EE ZORDDTE$;_ ! ORDER CANCEL DATE S 10 355 !
10500 ^COZ1 000007F3 ZORDLIM$;_ ! ORDER CR LIM CHK S 1 365 !
10600 ^COZ1 000007F8 ZMULTIWH$;_ ! MULTI WRHSE S 1 366 !
10700 ^COZ1 000007FD ZCFAFLOE$;_ ! OE CFA FLG S 1 367 !
10800 ^COZ1 00000802 ZCNLDISP$;_ ! CNL LOOKUP S 1 368 !
10900 ^COZ1 00000807 ZQCLOT$;_ ! LOT NUMBER DEFAULT S 1 369 !
11000 ^COZ1 0000080C ZFOBOE$;_ ! OE FOB DEFAULT S 15 370 !
11100 ^COZ1 00000811 ZMAXUPS;_ ! MAX UPS WGHT PKG N 3.0 385 !
11200 ^COZ1 00000816 ZFAXNO$;_ ! FAX NUMBER S 12 390 !
11300 ^COZ1 0000081B ZFRTTRM$;_ ! QE FRT TERM DEFAULT S 20 402 !
11400 ^COZ1 00000820 ZKEBAT$;_ ! KE BATCH OPTION S 1 422 !
11500 ^COZ1 00000825 ZFRTYDLB$;_ ! FRT CALC S 1 423 !
11600 ^COZ1 0000082A ZEDRFLG$;_ ! EDR FLG S 1 424 !
11700 ^COZ1 0000082F ZMENU$;_ ! MENU CODE S 1 425 !
11800 ^COZ1 00000834 ZACKFLG$;_ ! ACK FLG S 1 426 !
11900 ^COZ1 00000839 ZMLP$;_ ! MEMO PRNTR S 3 427 !
12000 ^COZ1 0000083E ZCUTYRD$;_ ! CUT YARDAGE USER S 1 430 !
12100 ^COZ1 00000843 ZSHPVIA$;_ ! SHIP VIA S 11 431 !
12200 ^COZ1 00000848 ZCLAMT;_ ! CRED LIM CHK AMT N 4.0 442 !
12300 ^COZ1 0000084D ZPDDYS;_ ! PAST DUE ORDER DAYS N 3.0 448 !
12400 ^COZ1 00000852 ZFEVENT$;_ ! FURNITURE EVENT S 1 453 !
12500 ^COZ1 00000857 ZCURRCD$;_ ! CURRENCY CODE S 2 454 !
12600 ^COZ1 0000085C ZARAUDT$;_ ! A/R AUDIT FLAG S 1 456 !
12700 ^COZ1 00000861 ZRNDFRT$;_ ! ROUND FREIGHT? S 1 457 !
12800 ^COZ1 00000866 ZUPDC1A$;_ ! UPDATE C1A? S 1 458 !
12900 ^COZ1 0000086B ZFURNACT$;_ ! FURN ACCT S 1 459 !
13000 ^COZ1 00000870 ZOTBCFLG$;_ ! OTBC FLAG S 1 460 !
13100 ^COZ1 00000875 ZDISCAN$;_ ! DOC IMAGING SCAN FLAG S 1 461 !
13200 ^COZ1 0000087A ZDIEML$;_ ! DOC IMAGING EMAIL FLAG S 1 462 !
13300 ^COZ1 0000087F ZDIBC$;_ ! DOC IMAGING BARCODE FLAG S 1 463 !
13400 ^COZ1 00000884 ZDIBCLPT$;_ ! DOC IMAGING B/C PRINTER S 3 464 !
13500 ^COZ1 00000889 ZCNL7$;_ ! CNL PHONE FLAG S 1 467 !
13600 ^COZ1 0000088E ZBRKFLG$;_ ! BROKER COST FLAG S 1 468 !
13700 ^COZ1 00000893 ZPTRDLG$;_ ! USE PRINTER DIALOG BOX S 1 469 !
13800 ^COZ1 00000898 ZINVAUDT$;_ ! AUDIT INV FLAG S 1 470 !
13900 ^COZ1 0000089D ZFILLER$;_ ! FILLER S 9 471 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 20
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
14000 ^COZ1 000008A2 ZZKEYZ1$ ! KEY Z1 S 32 480 !
14100 ^COZ1 000008A8 ! !
14200 ^COZ1 000008A8 !====================================================================!
6100 %WW-CM 000008A8 !
6200 %WW-CM 000008A8 LENGTH 6.6 & LOCAL LASTNUM !LAST CUST # ASSIGNED
6300 %WW-CM 000008A8 0002 FORMAT _
6400 %WW-CM 000008A8 LASTNUM
6500 %WW-CM 000008AE !
6510 %WW-CM 000008AE USE '^COPM' ! PASSWORD MASTER
1000 ^COPM 000008AE ! !
1100 ^COPM 000008AE !************************* [WWPM *******************************!
1200 ^COPM 000008AE ! !
1300 ^COPM 000008AE ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWPM TYPE: K !
1400 ^COPM 000008AE ! !
1500 ^COPM 000008AE ! PASSWORD MASTER REC SIZE: 16 !
1600 ^COPM 000008AE ! KEY SIZE: 8 !
1700 ^COPM 000008AE ! !
1800 ^COPM 000008AE ! #FILE NAME: PASSWORD.MASTER DATE: 04/14/92 !
1900 ^COPM 000008AE ! !
1910 ^COPM 000008AE ! BY: CRITERION DESIGN & PROGRAMMING LTD. !
1920 ^COPM 000008AE ! !
2000 ^COPM 000008AE !********************************************************************!
2100 ^COPM 000008AE ! !
2200 ^COPM 000008AE ! FILE STATEMENT !
2300 ^COPM 000008AE ! !
2400 ^COPM 000008AE !!!!FILE 'WWPM', 16 !
2500 ^COPM 000008AE ! !
2600 ^COPM 000008AE ! VARIABLE DECLARATIONS: !
2700 ^COPM 000008AE ! !
2800 ^COPM 000008AE LENGTH 6 & LOCAL PASSWD$ !
2900 ^COPM 000008AE LENGTH 8 & LOCAL PROG$ !
3000 ^COPM 000008AE ! !
3100 ^COPM 000008AE ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION!
3200 ^COPM 000008AE ! !
3300 ^COPM 000008AE 0089 FORMAT _ !
3400 ^COPM 000008AE PROG$;_ ! PROGRAM NAME S 8 0 !
3500 ^COPM 000008B3 PASSWD$ ! PASSWORD S 6 8 !
3600 ^COPM 000008B9 ! !
3700 ^COPM 000008B9 !********************************************************************!
6520 %WW-CM 000008B9 !
6670 %WW-CM 000008B9 LENGTH 8 & LOCAL Dateest8$
7120 %WW-CM 000008B9 !
7220 %WW-CM 000008B9 CstRec: FORMAT CNBR$
7625 %WW-CM 000008BF !
7630 %WW-CM 000008BF LENGTH 3 & LOCAL DOSEXCPCD$
7640 %WW-CM 000008BF LENGTH 37 & LOCAL DOSEXCPMSG$
7650 %WW-CM 000008BF 0011 FORMAT _
7660 %WW-CM 000008BF DOSEXCPCD$;DOSEXCPMSG$
7670 %WW-CM 000008CA !
7680 %WW-CM 000008CA LENGTH 100 & LOCAL DocImageURL$
7690 %WW-CM 000008CA 0008 FORMAT _
7700 %WW-CM 000008CA DocImageURL$
7710 %WW-CM 000008D0 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 21
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
9000 %WW-CM 000008D0 ! ========== WORK STORAGE ==========
9100 %WW-CM 000008D0 SET MAXFLD = 20
9110 %WW-CM 000008D0 LENGTH 1 & LOCAL RST$,RSTC$,VRT$,CHAR1$,DELPASS$ , ACCTFLG$
9120 %WW-CM 000008D0 LENGTH 1 & LOCAL FULLCC$
9130 %WW-CM 000008D0 LENGTH 2 & LOCAL AX$, BX$, CX$, DX$, ZX$, WORK2$
9140 %WW-CM 000008D0 LENGTH 3 & LOCAL DCD$(5)
9150 %WW-CM 000008D0 LENGTH 4 & LOCAL TYPHDG4$
9160 %WW-CM 000008D0 LENGTH 6 & LOCAL OLDCUST$,NEWCUST$,PASSTRY$,TYPHDG6$
9170 %WW-CM 000008D0 LENGTH 7 & LOCAL PARTKY07$,XPHONE7$,ZPHONE7$
9216 %WW-CM 000008D0 LENGTH 8 & LOCAL X$
9220 %WW-CM 000008D0 LENGTH 10 & LOCAL XZIP$,RECTP$ , XZIP$
9220 %WW-CM *****8D0 Variable 'XZIP$ ' has been previously declared
9240 %WW-CM 000008D0 LENGTH 12 & LOCAL KEYC1C$
9250 %WW-CM 000008D0 LENGTH 15 & LOCAL DSAL$
9260 %WW-CM 000008D0 LENGTH 16 & LOCAL XPHONE1$,XPHONE$,DISPCC$
9265 %WW-CM 000008D0 LENGTH 16 & LOCAL SEED1$,SEED2$,SEED3$,CC16$
9280 %WW-CM 000008D0 LENGTH 24 & LOCAL KEYO2$
9300 %WW-CM 000008D0 LENGTH 20 & LOCAL XASRT$
9310 %WW-CM 000008D0 LENGTH 25 & LOCAL DNM$
9320 %WW-CM 000008D0 LENGTH 32 & LOCAL KEYM2P$,KEYM1H$,KEYC1E$,KEYC1D$
9330 %WW-CM 000008D0 LENGTH 40 & LOCAL TERMSDSC$
9332 %WW-CM 000008D0 LENGTH 64 & LOCAL KEY$
9340 %WW-CM 000008D0 LENGTH 254 & LOCAL A$,B$,C$,D$,E$
9400 %WW-CM 000008D0 LENGTH 80 & LOCAL TOP$,BOT$,HELPINP$
9410 %WW-CM 000008D0 LENGTH 1.0 & LOCAL CONVERT,MOREMODE
9500 %WW-CM 000008D0 LENGTH 2.0 & LOCAL FLDNBR,ERR,FL,I,J,I3110,PARTKYLN, WRTIMAGE
9950 %WW-CM 000008D0 USE '^COUTIL8'
100 ^COUTIL8 000008D0 !=====================================================================
200 ^COUTIL8 000008D0 LENGTH 68 & LOCAL MESS$
300 ^COUTIL8 000008D0 LENGTH 3 & LOCAL ZPRTCODE$
302 ^COUTIL8 000008D0 LENGTH 10 & LOCAL AN$
310 ^COUTIL8 000008D0 LENGTH 20 & LOCAL ZPRTDESC$ , ZPRTLOC$
400 ^COUTIL8 000008D0 LENGTH 40 & LOCAL STITLE$
500 ^COUTIL8 000008D0 LENGTH 8 & LOCAL FLNM$,DT$ , ZLJPROG$
510 ^COUTIL8 000008D0 LENGTH 12 & LOCAL FLNM12$ !ADED 5/20/04 SEH
600 ^COUTIL8 000008D0 LENGTH 1.0 & LOCAL LJCONFLG , ZLJPFLAG
605 ^COUTIL8 000008D0 LENGTH 3.0 & LOCAL AN,POS,LINE,PAGE,LM,PM,TTLPOS,MAXLINE
620 ^COUTIL8 000008D0 LENGTH 20 & LOCAL CHAR$
640 ^COUTIL8 000008D0 LENGTH 1 & LOCAL BLIND$,PORL$
700 ^COUTIL8 000008D0 SET BUSY=33,EOF=2,KEYERR=32
800 ^COUTIL8 000008D0 !=====================================================================
900 ^COUTIL8 000008D0 ! FORMAT STATEMENTS
1000 ^COUTIL8 000008D0 !=====================================================================
1100 ^COUTIL8 000008D0 90 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM)
1200 ^COUTIL8 000008ED 91 FORMAT (BF),@(0,23)
1300 ^COUTIL8 000008F6 92 FORMAT (RB),@(0,23)
1500 ^COUTIL8 000008FF 95 FORMAT @(POS,LINE)
1520 ^COUTIL8 00000909 96 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM);(BM)
1600 ^COUTIL8 0000092A 100 FORMAT(CS)
1700 ^COUTIL8 0000092F 110 FORMAT(SB);(BF),@(0,0);ZDATE$,@(0,0);_
1710 ^COUTIL8 00000945 STITLE$,@(TTLPOS,0);'-';@(70);ZNAME$,10
1720 ^COUTIL8 00000963 120 FORMAT (CPL80) ! SET FOR 80 CHAR SCREEN
1740 ^COUTIL8 00000968 130 FORMAT (CPL64) ! SET FOR 64 CHAR SCREEN
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 22
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1800 ^COUTIL8 0000096D !
1810 ^COUTIL8 0000096D CURSPOSREM: FORMAT (MC) !REMEMBER CURSOR POSITION
1820 ^COUTIL8 00000972 CURSPOSRES: FORMAT (RC) !RESTORE CURSOR POSITION
1830 ^COUTIL8 00000977 !
1900 ^COUTIL8 00000977 SET Z1 = 10
2000 ^COUTIL8 00000977 !
2010 ^COUTIL8 00000977 CKPRNTR: FORMAT ZPRTCODE$;_ !PRINTER ID
2011 ^COUTIL8 0000097C ZLJPFLAG;_ !LASER JET PRINTER FLAG '1'=YES
2012 ^COUTIL8 00000981 ZPRTDESC$;_ !PRINTER DESCRIPTION
2014 ^COUTIL8 00000986 ZPRTLOC$ !PRINTER LOCATION
2020 ^COUTIL8 0000098C !
2022 ^COUTIL8 0000098C CKLJCOND: FORMAT ZLJPROG$
2122 ^COUTIL8 00000992 !
2132 ^COUTIL8 00000992 ! THE FOLLOWING FORMAT IS USED BY FORMS PROGRAMS TO DETERMINE THE
2142 ^COUTIL8 00000992 ! NUMBER OF LINE FEEDS THE PROGRAM NEEDS TO GET TO THE
2152 ^COUTIL8 00000992 ! FIRST PRINT LINE ON THE FORM.
2162 ^COUTIL8 00000992 !
2222 ^COUTIL8 00000992 LENGTH 32 & LOCAL KEYLF$
2232 ^COUTIL8 00000992 LENGTH 2.0 & LOCAL ZLFINIT,ZHPOS
2322 ^COUTIL8 00000992 !
2422 ^COUTIL8 00000992 FRMLFFMT: FORMAT KEYLF$;_
2522 ^COUTIL8 00000997 ZLFINIT;_ !INITIAL LINE FEEDS
2622 ^COUTIL8 0000099C ZHPOS !HORIZONTAL POSITION FOR LABELS
2722 ^COUTIL8 000009A2 !
2822 ^COUTIL8 000009A2 CLEARFOREGROUND: FORMAT _ !ADDED 11/11/2005
2922 ^COUTIL8 000009A2 (CF)
9960 %WW-CM 000009A7 USE '^CODTVAR' !DATE VARIABLES
100 ^CODTVAR 000009A7 !
200 ^CODTVAR 000009A7 ! ========== DATE CHECK VARIABLES ==========
300 ^CODTVAR 000009A7 LENGTH 10 & LOCAL XDATE$
400 ^CODTVAR 000009A7 LENGTH 2 & LOCAL XMO$,XDA$,XYR$,XCT$
500 ^CODTVAR 000009A7 LENGTH 4 & LOCAL XCTYR$
600 ^CODTVAR 000009A7 LENGTH 1.0 & LOCAL ZDYWK
700 ^CODTVAR 000009A7 LENGTH 2.0 & LOCAL XDA,XMO,XYR,XCT,DATEOK,XPOS,YPOS
800 ^CODTVAR 000009A7 LENGTH 3.0 & LOCAL MONTH,DAY,YEAR,LEAPYR,ZDYYR
900 ^CODTVAR 000009A7 LENGTH 4.0 & LOCAL XCTYR
1000 ^CODTVAR 000009A7 LENGTH 5.0 & LOCAL XTEMPNO
1100 ^CODTVAR 000009A7 LENGTH 6.0 & LOCAL ZDYCT
9970 %WW-CM 000009A7 USE '^CODTIOV'
100 ^CODTIOV 000009A7 !===================== DATE , TIME , INITIALS STAMP ================
200 ^CODTIOV 000009A7 LENGTH 80 & LOCAL BLANK80$
210 ^CODTIOV 000009A7 LENGTH 60 & LOCAL BLANK60$
300 ^CODTIOV 000009A7 LENGTH 20 & LOCAL XDTI$ !LENGTH OF STAMP
310 ^CODTIOV 000009A7 LENGTH 5 & LOCAL XDTIINIT$ !OPERATORS INITIALS STA
312 ^CODTIOV 000009A7 LENGTH 10 & LOCAL XDTIDATE$ !DATE STAMP
400 ^CODTIOV 000009A7 LENGTH 3.0 & LOCAL XDTIPOS, XDTILINE !FIRST POSITION &
410 ^CODTIOV 000009A7 !LINE OF INPUT.
500 ^CODTIOV 000009A7 !
510 ^CODTIOV 000009A7 LENGTH 2.0 & LOCAL XDTISLEN
512 ^CODTIOV 000009A7 LENGTH 2.0 & LOCAL XDTPGNUM ! PAGE NUMBER FOR EXTEN
514 ^CODTIOV 000009A7 LENGTH 1.0 & LOCAL XDTIEXTN ! REGULAR KEYED OR EXTE
515 ^CODTIOV 000009A7 ! 0 = KEYED, 1 = EXTEND
520 ^CODTIOV 000009A7 LENGTH 1 & LOCAL XDTIEXTM$
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 23
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
530 ^CODTIOV 000009A7 !
600 ^CODTIOV 000009A7 DATESLEN: FORMAT _ !KEY= *DATESLENP date stamp length in Z1.
700 ^CODTIOV 000009A7 XDTISLEN;_ !8 = DATE STAMP IS MM/DD/YY
800 ^CODTIOV 000009AC XDTIEXTM$ !Y = DO NOT INCLUDE TIME STAMP
10000 %WW-CM 000009B2 ! ========== CRT FORMATS ==========
10200 %WW-CM 000009B2 3000 FORMAT _
10220 %WW-CM 000009B2 (SB);'CUSTOMER ID/? ',@(00,02);(TP);(SF);CNBR$ ;(TP);_
10240 %WW-CM 000009D1 (SB);'01 NAME ',@(00,03);(TP);(SF);CNAME$ ;(TP);_
10260 %WW-CM 000009F0 (SB);'02 ADDRESS 1 ',@(00,04);(TP);(SF);CADR1$ ;(TP);_
10280 %WW-CM 00000A0F (SB);'03 ADDRESS 2 ',@(00,05);(TP);(SF);CADR2$ ;(TP);_
10300 %WW-CM 00000A2E (SB);'04 C/S/Z ',@(00,06);(TP);(SF);CCITY$ ;_
10320 %WW-CM 00000A49 (TP) ;CSTATE$;(TP) ;CZIP$;(TP);_
10340 %WW-CM 00000A5F (SB);'05 ATTN ',@(00,07);(TP);(SF);CATTN$ ;(TP);_
10360 %WW-CM 00000A7E (SB);'06 ALPHA SORT ',@(00,08);(TP);(SF);CASRT$ ;(TP);_
10380 %WW-CM 00000A9D (SB);'07 PHONE 1 ',@(00,09);(TP);(SF);CPHONE1$ ;_
10400 %WW-CM 00000AB8 (SSB);' ';(SB);'PHONE 2';(SSB);' ';(SF);CPHONE2$;_
10405 %WW-CM 00000ADC (SSB);' ';(SB);'FAX';(SSB);' ';(SF);CFAX$ ;(TP);_
10420 %WW-CM 00000B04 (SB);'08 ',@(00,10);(TP);(SF);CEMAIL$ ;(TP);_
10440 %WW-CM 00000B23 (SB);'09 REP ID/? ',@(00,11);(TP);(SF);CSNBR$ ;_
10460 %WW-CM 00000B3E (SSB);' ';(SB);'APPROVED BY REP (Y/N)';(SSB);' ';(SF);CAREP$;(TP);_
10480 %WW-CM 00000B66 (SF);SNAME$,32;_
10500 %WW-CM 00000B72 (SB);'10 STATE RESALE # ',@(00,12);(TP);(SF);CRESALE$ ;(SB);_
10505 %WW-CM 00000B91 (TP);_
10507 %WW-CM 00000B95 'EFFECTIVE DT';(TP);(SF);CRESDTE$;(SB);(TP);_
10520 %WW-CM 00000BAF (SF)
10540 %WW-CM 00000BB4 !
10560 %WW-CM 00000BB4 3010 FORMAT _
10570 %WW-CM 00000BB4 CASRT$,@(20,8);(SF)
10580 %WW-CM 00000BC6 !
10600 %WW-CM 00000BC6 3020 FORMAT _
10620 %WW-CM 00000BC6 (SB);'11 CUSTOMER TYPE ',@(00,13);(TP);(SF);CCTYPE$ ;(TP);_
10640 %WW-CM 00000BE5 (SB);'(S-SPECIFIER/P-PURCHASER/B-BOTH/',@(26,13);_
10644 %WW-CM 00000BF3 (SSB);' ';(SB);'RANK';(TP);(SF);CRANK$;(TP);_
10660 %WW-CM 00000C16 (SB);'12 CUSTOMER CLASS ',@(00,14);(TP);(SF);CLTYPE$ ;(TP);_
10680 %WW-CM 00000C35 (SB);'(R-ROAD/E-EXECUTIVE/S-SHOWROOM)',@(26,14);_
10685 %WW-CM 00000C43 'CONS WHS CD',@(59,14);(TP);(SF);CCONSWHS$ ;(TP);_
10700 %WW-CM 00000C5E (SB);'13 TERMS CODE/? ',@(00,15);(TP);(SF);CTERMCD$ ;(TP);_
10720 %WW-CM 00000C7D TERMSDSC$,@(26,15);(SF)
10724 %WW-CM 00000C8C !
10726 %WW-CM 00000C8C 3024 FORMAT _
10740 %WW-CM 00000C8C (SB);'14 CREDIT LIMIT ',@(00,16);(TP);(RJ);(SF);CCREDLIM,6;(TP);_
10760 %WW-CM 00000CB2 (SB);'15 DISC % 1 ',@(00,17);(TP);(RJ);(SF);CDISCPCT ;_
10780 %WW-CM 00000CD1 (SSB);' ';(SB);'DISCOUNT FLAG(L)';(SSB);' ';(SF);CDSCFLG$;(TP);_
10800 %WW-CM 00000CF9 (SB);'16 DATE ESTABLISHED',@(00,18);(TP);(SF);CDTEEST$ ;_
10820 %WW-CM 00000D14 (SSB);'',9;(SB);'LAST PRICE LIST';(SSB);' ';(SF);CPRCLST$;(TP);_
10840 %WW-CM 00000D3F (SB);'17 CREDIT ALERT ',@(00,19);(TP);(SF);CCRALRT$ ;(TP);_
10845 %WW-CM 00000D5E (SSB);'',13;(SB);'AREA';(TP);(SF);CAREA$;(TP);_
10847 %WW-CM 00000D84 (SB);'AUTO HOLD 2';(TP);(SF);CHOLD2$;(TP);_
10860 %WW-CM 00000D9E (SB);'18 COMM-INVOICE-PAY',@(00,20);(TP);(SF);CCOMMDUE$;(SB);(T
10861 %WW-CM 00000DC1 (SSB);'',17;(SB);'PRINT OPA/RP IF E-MAILED(Y/N)?';(TP);_
10862 %WW-CM 00000DDA (SF);COPARPFL$;(TP);_
10864 %WW-CM 00000DE7 (SB);'19 MEMO EXCP ',@(00,21);(TP);(SF);CMBXCP$;(TP);_
10865 %WW-CM 00000E06 (SSB);'',17;(SB);'WEB PASSWORD';(TP);(SF);CWEBPASS$;(SB);(TP);_
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 24
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
10867 %WW-CM 00000E30 ____ (SB);'20 EMAIL ADDRESS ',@(00,22);(TP);(SF);CEMAIL$;(TP);_
10868 %WW-CM 00000E30 (SF)
10870 %WW-CM 00000E35 !
10880 %WW-CM 00000E35 3026 FORMAT _
10884 %WW-CM 00000E35 (SB);'20 SAMPLE CODES ',@(00,22);(TP);(SF);CCODE$(1);_
10886 %WW-CM 00000E55 (SSB);' ';(SB);' ';(SSB);' ';(SF);CCODE$(2);_
10888 %WW-CM 00000E7E (SSB);' ';(SB);' ';(SSB);' ';(SF);CCODE$(3);_
10890 %WW-CM 00000EA7 (SSB);' ';(SB);' ';(SSB);' ';(SF);CCODE$(4);_
10892 %WW-CM 00000ED0 (SSB);' ';(SB);' ';(SSB);' ';(SF);CCODE$(5);(TP);_
10900 %WW-CM 00000EFD (SF)
10904 %WW-CM 00000F02 3028 FORMAT _
10906 %WW-CM 00000F02 @(00,22);(BF);(SF)
10920 %WW-CM 00000F14 !
10930 %WW-CM 00000F14 3030 FORMAT _
10940 %WW-CM 00000F14 @(48,11);SNAME$,32;(SF)
10950 %WW-CM 00000F2B !
10960 %WW-CM 00000F2B 3040 FORMAT _
10970 %WW-CM 00000F2B @(26,15);MCDESC$;(SF)
10980 %WW-CM 00000F3E !
11000 %WW-CM 00000F3E 3100 FORMAT _
11020 %WW-CM 00000F3E (SB);CNBR$,@(00,02);CNAME$,@(08,02);_
11040 %WW-CM 00000F56 (SB);' MTD ',@(17,04);' YTD ',@(28,04);_
11060 %WW-CM 00000F6E ' PRV1 ',@(39,04);' PRV2 ',@(50,04);_
11080 %WW-CM 00000F82 ' PRV3 ',@(61,04);_
11100 %WW-CM 00000F8C (SB);'SALES - $ ',@(00,05);(TM);(SF);CSLSMTD;CSLSYTD;_
11120 %WW-CM 00000FAC CSLSPRV1;CSLSPRV2;CSLSPRV3;_
11140 %WW-CM 00000FBB (SB);'COST - $ ',@(00,06);(TM);(SF);CCSTMTD;CCSTYTD;_
11160 %WW-CM 00000FDB CCSTPRV1;CCSTPRV2;CCSTPRV3;_
11180 %WW-CM 00000FEA (SB);'INVOICES - # ',@(00,07);(TM);(SF);CMTDINV,8;_
11200 %WW-CM 00001008 CYTDINV,11;CPRV1INV,11;CPRV2INV,11;CPRV3INV,11;_
11220 %WW-CM 00001028 (SB);'MEMO SAMPLES - #',@(00,09);(SF);(TM);' SAMP ';_
11240 %WW-CM 00001043 ' SAMP ';' SAMP ';' SAMP ';' SAMP ';_
11260 %WW-CM 00001057 (SB);'SAMPLES - $ ',@(00,10);(TM);(SF);CSSMTD,11;_
11280 %WW-CM 00001075 CSSYTD,11;CSSPRV1,11;CSSPRV2,11;CSSPRV3,11;_
11300 %WW-CM 00001095 (SB);'SAMPLES - FREE ',@(00,11);(TM);(SF);CSFMTD,11;_
11320 %WW-CM 000010B3 CSFYTD,11;CSFPRV1,11;CSFPRV2,11;CSFPRV3,11;_
11340 %WW-CM 000010D3 @(0,4);' ';(SF)
11360 %WW-CM 000010E3 !
11362 %WW-CM 000010E3 3110 FORMAT _
11363 %WW-CM 000010E3 @(0,2);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);_
11364 %WW-CM 00001114 (BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);_
11365 %WW-CM 0000113C (SB);CNBR$,@(00,02);CNAME$,@(08,02);@(0,4);'** SPECIFIED ** ';_
11366 %WW-CM 0000115F (SB);' MTD ',@(17,04);' YTD ',@(28,04);_
11368 %WW-CM 00001177 ' PRV1 ',@(39,04);' PRV2 ',@(50,04);_
11370 %WW-CM 0000118B ' PRV3 ',@(61,04);_
11372 %WW-CM 00001195 (SB);'SALES - $ ',@(00,05);(TM);(SF);SPSLSMTD;SPSLSYTD;_
11374 %WW-CM 000011B5 SPSLSPV1;SPSLSPV2;_
11376 %WW-CM 000011BF (SB);'COST - $ ',@(00,06);(TM);(SF);SPCSTMTD;SPCSTYTD;_
11378 %WW-CM 000011DF SPCSTPV1;SPCSTPV2;_
11380 %WW-CM 000011E9 (SB);'INVOICES - # ',@(00,07);(TM);(SF);SPINVMTD,8;_
11382 %WW-CM 00001207 SPINVYTD,11;SPINVPV1,11;SPINVPV2,11;_
11387 %WW-CM 0000121F (SB);'DATE LAST INVOICE SPECIFIED ',@(00,17);(TM);_
11392 %WW-CM 00001231 (SF);SPLINVDT$;_
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 25
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
11396 %WW-CM 0000123A (SF)
11398 %WW-CM 0000123F !
11400 %WW-CM 0000123F 3120 FORMAT _
11420 %WW-CM 0000123F (SB);'RETURNS - $ ',@(00,13);(TM);(SF);'' ,11;_
11440 %WW-CM 0000125D CRVYTD,11;CRVPRV1,11;CRVPRV2,11;_
11460 %WW-CM 00001275 (SB);'DISCOUNTS - # ',@(00,14);(TM);(SF);'' , 8;_
11480 %WW-CM 00001293 CDSCTYTD,11;CDSCTPR1,11;CDSCTPR2,11;_
11500 %WW-CM 000012AB (SB);'DISCOUNTS - $ ',@(00,15);(TM);(SF);'' ,11;_
11520 %WW-CM 000012C9 CDSCYTD,11;CDSCPRV1,11;CDSCPRV2,11;CDSCPRV3,11;_
11540 %WW-CM 000012E9 (SB);'DATE OF LAST SALE - NOT SAMPLES',@(00,17);(TM);_
11560 %WW-CM 000012FB (SF);CDOLS$;_
11580 %WW-CM 00001304 (SB);'DATE OF LAST SALE - SAMPLES ',@(00,18);(TM);_
11600 %WW-CM 00001316 (SF);CDOLSS$;_
11620 %WW-CM 0000131F (SB);'OPEN ORDER VALUE',@(00,19);(TM);(SF);COPEN;_
11640 %WW-CM 0000133A (SB);'OPEN A/R BALANCE',@(00,20);(TM);(SF);CBAL;_
11660 %WW-CM 00001355 (SF)
11680 %WW-CM 0000135A !
11800 %WW-CM 0000135A 3200 FORMAT _
11810 %WW-CM 0000135A (SB);CNBR$,@(00,02);CNAME$,@(08,02);_
11820 %WW-CM 00001372 'CUSTOMER SERVICE NOTES',@(29,04);(TP),@(09,07);_
11830 %WW-CM 00001384 (SF);@(01,07);CNOTE1$ ;@(01,08);CNOTE2$ ;_
11840 %WW-CM 0000139E @(01,09);CNOTE3$ ;@(01,10);CNOTE4$ ;_
11850 %WW-CM 000013B4 @(01,11);CNOTE5$ ;@(01,12);CNOTE6$ ;_
11860 %WW-CM 000013CA (SF)
11870 %WW-CM 000013CF 3220 FORMAT _
11880 %WW-CM 000013CF @(01,13);CNOTE7$ ;@(01,14);CNOTE8$ ;_
11890 %WW-CM 000013EB @(01,15);CNOTE9$ ; _* @(10,16);CNOTE10$;_
11900 %WW-CM 000013F9 _*** @(10,17);CNOTE11$;@(10,18);CNOTE12$;_
11910 %WW-CM 000013F9 (TP),@(01,16);@(POS,LINE)
11920 %WW-CM 0000140B !
11930 %WW-CM 0000140B 3300 FORMAT _
11940 %WW-CM 0000140B (SB);CNBR$,@(00,02);CNAME$,@(08,02);_
11950 %WW-CM 00001423 (SB);'SHIP TO CODE ',@(00,04);(TP);(SF);CSHIPTO$ ;(TP);_
11960 %WW-CM 00001442 (SB);'01 NAME ',@(00,06);(TP);(SF);CSNAME$ ;(TP);_
11970 %WW-CM 00001461 (SB);'02 ADDRESS 1 ',@(00,07);(TP);(SF);CSADR1$ ;(TP);_
11980 %WW-CM 00001480 (SB);'03 ADDRESS 2 ',@(00,08);(TP);(SF);CSADR2$ ;(TP);_
11990 %WW-CM 0000149F (SB);'04 C/S/Z ',@(00,09);(TP);(SF);CSCITY$ ;_
12000 %WW-CM 000014BA (TP) ;CSSTATE$;(TP) ;CSZIP$;(TP);_
12010 %WW-CM 000014D0 (SB);'05 ATTENTION ',@(00,10);(TP);(SF);CSATTN$ ;(TP);_
12020 %WW-CM 000014EF (SF)
12030 %WW-CM 000014F4 !
12040 %WW-CM 000014F4 3310 FORMAT _
12044 %WW-CM 000014F4 (SB);CNBR$,@(00,02);CNAME$,@(08,02);_
12048 %WW-CM 0000150C (SB);'SEQUENCE # ',@(00,04);(TP);(SF);CEMSEQ$ ;(TP);_
12052 %WW-CM 0000152B (SB);"Enter '?' to display existing Email addresses";_
12056 %WW-CM 00001534 (SB);'01 EMAIL ADDRESS',@(00,06);(TP);(SF);CEMADDR$ ;(TP);_
12060 %WW-CM 00001553 (SB);'02 EMPLOYEE NAME',@(00,07);(TP);(SF);CEMNAME$ ;(TP);_
12064 %WW-CM 00001572 (SB);'03 PHONE # ',@(00,08);(TP);(SF);CEMPHONE$;(TP);_
12068 %WW-CM 00001591 (SB);'04 JOB CODE (?) ',@(00,09);(TP);(SF);CEMJOBCD$;(TP);_
12072 %WW-CM 000015B0 (SB);'05 COMMENTS ',@(00,10);(TP),@(79,10);(TM),@(0,20);_
12076 %WW-CM 000015CE (SF)
12080 %WW-CM 000015D3 !
12084 %WW-CM 000015D3 3312 FORMAT _
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 26
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
12088 %WW-CM 000015D3 CEMCMNT1$,@(0,11);CEMCMNT2$,@(0,12);CEMCMNT3$,@(0,13);_
12092 %WW-CM 000015FA CEMCMNT4$,@(0,14);CEMCMNT5$,@(0,15);CEMCMNT6$,@(0,16);_
12096 %WW-CM 00001621 CEMCMNT7$,@(0,17);CEMCMNT8$,@(0,18);CEMCMNT9$,@(0,19);(SF)
12100 %WW-CM 0000164D !
12104 %WW-CM 0000164D 3314 FORMAT _
12106 %WW-CM 0000164D CEMCMNT1$;CEMCMNT2$;CEMCMNT3$;CEMCMNT4$;CEMCMNT5$;_
12108 %WW-CM 00001666 CEMCMNT6$;CEMCMNT7$;CEMCMNT8$;CEMCMNT9$
12110 %WW-CM 0000167B !
12120 %WW-CM 0000167B !
12130 %WW-CM 0000167B 3320 FORMAT _
12140 %WW-CM 0000167B @(0,11);(BF);(BF);(BF);(BF);(BF);(BF);_
12150 %WW-CM 0000169C (BF);(BF);(BF);(BF);(BF);(BF);(SF)
12160 %WW-CM 000016B9 !
12170 %WW-CM 000016B9 3330 FORMAT _
12180 %WW-CM 000016B9 CEMSEQ$,@(00,LINE);' ';CEMNAME$,25;' ';CEMADDR$,50;(SF)
12190 %WW-CM 000016E7 !
12200 %WW-CM 000016E7 3340 FORMAT _
12210 %WW-CM 000016E7 CEMJOBCD$,@(17,09);MCDESC$,@(20,09);(SF)
12220 %WW-CM 00001706 !
12230 %WW-CM 00001706 3350 FORMAT _
12240 %WW-CM 00001706 (SB);CNBR$,@(00,02);CNAME$,@(08,02);_
12250 %WW-CM 0000171E (SB);'SEQUENCE # ',@(00,04);(TP);(SF);CCCSEQ$ ;(TP);_
12260 %WW-CM 0000173D (SB);"Enter '?' to display existing Credit cards";_
12270 %WW-CM 00001746 (SB);'01 CARD NUMBER ',@(00,06);(TP);(SF);DISPCC$ ;(TP);_
12280 %WW-CM 00001765 (SB);'02 CARD TYPE (?)',@(00,07);(TP);(SF);CCCTYPE$ ;(TP);_
12290 %WW-CM 00001784 (SB);'03 EXPIRE DATE ',@(00,08);(TP);(SF);CCCEXPDT$;(TP);_
12300 %WW-CM 000017A3 (SB);'04 NAME ON CARD ',@(00,09);(TP);(SF);CCCNAME$ ;(TP);_
12310 %WW-CM 000017C2 (SB);'05 ISSUING BANK ',@(00,10);(TP);(SF);CCCBANK$ ;(TP);_
12320 %WW-CM 000017E1 (SF)
12330 %WW-CM 000017E6 !
12340 %WW-CM 000017E6 3360 FORMAT _
12350 %WW-CM 000017E6 CCCSEQ$,@(00,LINE);' ';DISPCC$;' ';CCCTYPE$;' ';_
12352 %WW-CM 0000180C CCCNAME$,25;' ';CCCBANK$;(SF)
12360 %WW-CM 00001824 !
12370 %WW-CM 00001824 3370 FORMAT _
12380 %WW-CM 00001824 CCCTYPE$,@(17,07);MCDESC$,@(20,07);(SF)
12390 %WW-CM 00001843 !
12400 %WW-CM 00001843 3400 FORMAT _
12410 %WW-CM 00001843 (SB);CNBR$,@(00,02);CNAME$,@(08,02);_
12420 %WW-CM 0000185B (SB);'STATE',@(10,04);'RESALE NUMBER',@(20,04);_
12430 %WW-CM 00001873 'EFFECTIVE DATE',@(43,04);_
12440 %WW-CM 0000187D (TP),@(10,05);_
12450 %WW-CM 00001885 (SF);CRST1$,@(11,05);CRSL1$,@(20,05);CREXPDT1$,@(45,05);_
12460 %WW-CM 000018A7 (SF);CRST2$,@(11,06);CRSL2$,@(20,06);CREXPDT2$,@(45,06);_
12470 %WW-CM 000018C9 (SF);CRST3$,@(11,07);CRSL3$,@(20,07);CREXPDT3$,@(45,07);_
12480 %WW-CM 000018EB (SF);CRST4$,@(11,08);CRSL4$,@(20,08);CREXPDT4$,@(45,08);_
12490 %WW-CM 0000190D (SF);CRST5$,@(11,09);CRSL5$,@(20,09);CREXPDT5$,@(45,09);_
12500 %WW-CM 0000192F (SF);CRST6$,@(11,10);CRSL6$,@(20,10);CREXPDT6$,@(45,10);_
12510 %WW-CM 00001951 (SF);CRST7$,@(11,11);CRSL7$,@(20,11);CREXPDT7$,@(45,11);_
12520 %WW-CM 00001973 (SF);CRST8$,@(11,12);CRSL8$,@(20,12);CREXPDT8$,@(45,12);_
12530 %WW-CM 00001995 (TP);@(POS,LINE)
12540 %WW-CM 000019A3 !
12585 %WW-CM 000019A3 3500 FORMAT _
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 27
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
12590 %WW-CM 000019A3 (SB);CNBR$,@(00,02);CNAME$,@(08,02);_
12595 %WW-CM 000019BB @(0,4);_
12600 %WW-CM 000019C1 (SB);'BUSINESS TYPE ';(TP);(SF);CBTYPE$;_
12602 %WW-CM 000019D7 (SSB);' ';(SB);'Residential/Contract/Both';_
12605 %WW-CM 000019E9 @(0,5);_
12610 %WW-CM 000019EF (SB);'APPOINTMENT PREFERENCE';(SSB);' ';(SF);CAPREF$;_
12612 %WW-CM 00001A0A (SSB);' ';(SB);'Hotel/Office/Showroom/All';_
12615 %WW-CM 00001A1C @(0,6);_
12620 %WW-CM 00001A22 (SB);'LAST ACTIVITY DATE ';(SSB);' ';(SF);CACTDATE$;_
12625 %WW-CM 00001A3D @(0,7);_
12630 %WW-CM 00001A43 (SB);'FOLLOW UP DATE ';(SSB);' ';(SF);CFUPDATE$;_
12635 %WW-CM 00001A5E (SB);(TP);_
12637 %WW-CM 00001A66 @(20,9);'--------- N O T E S ---------';(TP);(SF);_
12638 %WW-CM 00001A79 @(0,10);C7ANOTE1$;C7ANOTE2$;C7ANOTE3$;_
12639 %WW-CM 00001A8E (SB);(TP);(BF);@(POS,LINE)
12640 %WW-CM 00001AA4 !
12642 %WW-CM 00001AA4 3510 FORMAT C7ANOTE1$;C7ANOTE2$;C7ANOTE3$
12643 %WW-CM 00001AB4 !
12645 %WW-CM 00001AB4 3600 FORMAT _
12650 %WW-CM 00001AB4 (CF);@(00,02)
12655 %WW-CM 00001ABF !
12660 %WW-CM 00001ABF 3700 FORMAT _
12665 %WW-CM 00001ABF (TP),@(79,04);(SB);TOP$,@(00,05);_
12670 %WW-CM 00001AD5 VRT$,@(00,06);VRT$,@(79,06);VRT$,@(00,07);VRT$,@(79,07);_
12675 %WW-CM 00001AFD VRT$,@(00,08);VRT$,@(79,08);VRT$,@(00,09);VRT$,@(79,09);_
12680 %WW-CM 00001B25 VRT$,@(00,10);VRT$,@(79,10);VRT$,@(00,11);VRT$,@(79,11);_
12685 %WW-CM 00001B4D VRT$,@(00,12);VRT$,@(79,12);VRT$,@(00,13);VRT$,@(79,13);_
12690 %WW-CM 00001B75 VRT$,@(00,14);VRT$,@(79,14);VRT$,@(00,15);VRT$,@(79,15);_
12695 %WW-CM 00001B9D VRT$,@(00,16);VRT$,@(79,16);_*RT$,@(00,17);VRT$,@(79,17);_
12700 %WW-CM 00001BB1 _*** VRT$,@(00,18);VRT$,@(79,18);VRT$,@(00,19);VRT$,@(79,19);_
12705 %WW-CM 00001BB1 BOT$,@(00,17);(TP);@(00,07)
12710 %WW-CM 00001BC6 !
12800 %WW-CM 00001BC6 3800 FORMAT _
12820 %WW-CM 00001BC6 (SSB);@(0,1);_
12840 %WW-CM 00001BD0 (BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);_
12860 %WW-CM 00001BF8 (BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);_
12880 %WW-CM 00001C20 (BF);(BF);(SF)
12900 %WW-CM 00001C2D !
13000 %WW-CM 00001C2D !!!! 3900 FORMAT _
13020 %WW-CM 00001C2D !!!! CCITY$;CSTATE$;CZIP$
13040 %WW-CM 00001C2D !
13100 %WW-CM 00001C2D 3910 FORMAT _
13120 %WW-CM 00001C2D CPHONE1$;CPHONE2$;CFAX$
13140 %WW-CM 00001C3D !
13200 %WW-CM 00001C3D 3920 FORMAT _
13220 %WW-CM 00001C3D CSNBR$;CAREP$
13240 %WW-CM 00001C48 !
13300 %WW-CM 00001C48 3930 FORMAT _
13320 %WW-CM 00001C48 CDISCPCT;CDSCFLG$
13340 %WW-CM 00001C53 !
13400 %WW-CM 00001C53 3940 FORMAT _
13420 %WW-CM 00001C53 CDTEEST$;CPRCLST$
13440 %WW-CM 00001C5E !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 28
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
13500 %WW-CM 00001C5E 3950 FORMAT _
13520 %WW-CM 00001C5E CNOTE1$ ;CNOTE2$ ;CNOTE3$ ;CNOTE4$ ;CNOTE5$ ;CNOTE6$ ;_
13540 %WW-CM 00001C7C CNOTE7$ ;CNOTE8$ ;CNOTE9$ !*** ;CNOTE10$;CNOTE11$;CNOTE12$
13560 %WW-CM 00001C8C !
13570 %WW-CM 00001C8C 3952 FORMAT _
13580 %WW-CM 00001C8C (SB);TYPHDG4$,@(58,13)
13590 %WW-CM 00001C9B !
13600 %WW-CM 00001C9B 3954 FORMAT _
13610 %WW-CM 00001C9B (SB);TYPHDG6$,@(58,13)
13620 %WW-CM 00001CAA !
13700 %WW-CM 00001CAA 3970 FORMAT _
13720 %WW-CM 00001CAA CRST1$;CRSL1$;CREXPDT1$;CRST2$;CRSL2$;CREXPDT2$;_
13740 %WW-CM 00001CC8 CRST3$;CRSL3$;CREXPDT3$;CRST4$;CRSL4$;CREXPDT4$;_
13760 %WW-CM 00001CE6 CRST5$;CRSL5$;CREXPDT5$;CRST6$;CRSL6$;CREXPDT6$;_
13780 %WW-CM 00001D04 CRST7$;CRSL7$;CREXPDT7$;CRST8$;CRSL8$;CREXPDT8$
13790 %WW-CM 00001D23 !
13800 %WW-CM 00001D23 !
13820 %WW-CM 00001D23 3974 FORMAT _
13840 %WW-CM 00001D23 CNBR$,@(20,2);(SF)
13860 %WW-CM 00001D35 !
13863 %WW-CM 00001D35 3975 FORMAT _
13866 %WW-CM 00001D35 CNBR$,@(20,2);@(20,2)
13869 %WW-CM 00001D4C !
13870 %WW-CM 00001D4C 3980 FORMAT CBTYPE$;CAPREF$;CACTDATE$;CFUPDATE$
13900 %WW-CM 00001D61 4000 FORMAT _
13910 %WW-CM 00001D61 (SB);'SPECIFIER #',@(0,2);(TP);(TM),@(18,2);_
13920 %WW-CM 00001D7B ' DESIGNER NAME SALUTATION ',@(0,3);_
13930 %WW-CM 00001D85 ' CODES 1 2 3 4 5';(BF);_
13940 %WW-CM 00001D8E '01',@(0,4);(TP);(SSB);@(28,4);' ';@(45,4);' ';_
13950 %WW-CM 00001DB6 @(55,4);' ';@(60,4);' ';@(65,4);' ';@(70,4);' ';_
13960 %WW-CM 00001DE2 (TM),@(75,4);(BF);(SB);_
13980 %WW-CM 00001DF2 '02',@(0,5);(TP);(SSB);@(28,5);' ';@(45,5);' ';_
13990 %WW-CM 00001E1A @(55,5);' ';@(60,5);' ';@(65,5);' ';@(70,5);' ';_
14000 %WW-CM 00001E46 (TM),@(75,5);(BF);(SB);_
14020 %WW-CM 00001E56 '03',@(0,6);(TP);(SSB);@(28,6);' ';@(45,6);' ';_
14030 %WW-CM 00001E7E @(55,6);' ';@(60,6);' ';@(65,6);' ';@(70,6);' ';_
14040 %WW-CM 00001EAA (TM),@(75,6);(BF);(SB);_
14060 %WW-CM 00001EBA '04',@(0,7);(TP);(SSB);@(28,7);' ';@(45,7);' ';_
14070 %WW-CM 00001EE2 @(55,7);' ';@(60,7);' ';@(65,7);' ';@(70,7);' ';_
14080 %WW-CM 00001F0E (TM),@(75,7);(BF);(SB);_
14100 %WW-CM 00001F1E (SB);'05',@(0,8);(TP);(SSB);@(28,8);' ';@(45,8);' ';_
14110 %WW-CM 00001F4A @(55,8);' ';@(60,8);' ';@(65,8);' ';@(70,8);' ';_
14120 %WW-CM 00001F76 (TM),@(75,8);(BF);(SF)
14140 %WW-CM 00001F87 !
14150 %WW-CM 00001F87 4010 FORMAT _
14190 %WW-CM 00001F87 (SB);'06',@(0,9);(TP);(SSB);@(28,9);' ';@(45,9);' ';_
14200 %WW-CM 00001FB3 @(55,9);' ';@(60,9);' ';@(65,9);' ';@(70,9);' ';_
14210 %WW-CM 00001FDF (TM),@(75,9);(BF);(SB);_
14220 %WW-CM 00001FEF '07',@(0,10);(TP);(SSB);@(28,10);' ';@(45,10);' ';_
14230 %WW-CM 00002017 @(55,10);' ';@(60,10);' ';@(65,10);' ';@(70,10);' ';_
14240 %WW-CM 00002043 (TM),@(75,10);(BF);(SB);_
14250 %WW-CM 00002053 '08',@(0,11);(TP);(SSB);@(28,11);' ';@(45,11);' ';_
14260 %WW-CM 0000207B @(55,11);' ';@(60,11);' ';@(65,11);' ';@(70,11);' ';_
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 29
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
14270 %WW-CM 000020A7 (TM),@(75,11);(BF);(SB);_
14280 %WW-CM 000020B7 '09',@(0,12);(TP);(SSB);@(28,12);' ';@(45,12);' ';_
14290 %WW-CM 000020DF @(55,12);' ';@(60,12);' ';@(65,12);' ';@(70,12);' ';_
14300 %WW-CM 0000210B (TM),@(75,12);(BF);(SB);_
14310 %WW-CM 0000211B '10',@(0,13);(TP);(SSB);@(28,13);' ';@(45,13);' ';_
14320 %WW-CM 00002143 @(55,13);' ';@(60,13);' ';@(65,13);' ';@(70,13);' ';_
14330 %WW-CM 0000216F (TM),@(75,13);(BF);(SF)
14340 %WW-CM 00002180 !
14360 %WW-CM 00002180 4020 FORMAT _
14364 %WW-CM 00002180 (SB);_
14370 %WW-CM 00002184 '11',@(0,14);(TP);(SSB);@(28,14);' ';@(45,14);' ';_
14380 %WW-CM 000021AC @(55,14);' ';@(60,14);' ';@(65,14);' ';@(70,14);' ';_
14390 %WW-CM 000021D8 (TM),@(75,14);(BF);(SB);_
14400 %WW-CM 000021E8 '12',@(0,15);(TP);(SSB);@(28,15);' ';@(45,15);' ';_
14410 %WW-CM 00002210 @(55,15);' ';@(60,15);' ';@(65,15);' ';@(70,15);' ';_
14420 %WW-CM 0000223C (TM),@(75,15);(BF);(SB);_
14430 %WW-CM 0000224C '13',@(0,16);(TP);(SSB);@(28,16);' ';@(45,16);' ';_
14440 %WW-CM 00002274 @(55,16);' ';@(60,16);' ';@(65,16);' ';@(70,16);' ';_
14450 %WW-CM 000022A0 (TM),@(75,16);(BF);(SB);_
14460 %WW-CM 000022B0 '14',@(0,17);(TP);(SSB);@(28,17);' ';@(45,17);' ';_
14470 %WW-CM 000022D8 @(55,17);' ';@(60,17);' ';@(65,17);' ';@(70,17);' ';_
14480 %WW-CM 00002304 (TM),@(75,17);(BF);(SB);_
14490 %WW-CM 00002314 '15',@(0,18);(TP);(SSB);@(28,18);' ';@(45,18);' ';_
14500 %WW-CM 0000233C @(55,18);' ';@(60,18);' ';@(65,18);' ';@(70,18);' ';_
14510 %WW-CM 00002368 (TM),@(75,18);(BF);(SF)
14520 %WW-CM 00002379 !
14530 %WW-CM 00002379 4030 FORMAT _
14540 %WW-CM 00002379 DSPNBR$,@(12,2);CNAME$,@(20,2);(SF)
14550 %WW-CM 00002398 !
14560 %WW-CM 00002398 4040 FORMAT _
14570 %WW-CM 00002398 (CF);@(0,2)
14580 %WW-CM 000023A3 !
14590 %WW-CM 000023A3 4050 FORMAT _
14600 %WW-CM 000023A3 DNAME$(1),@(3,4);DSALUT$(1),@(30,4);_
14604 %WW-CM 000023C7 DCODE$(01,1),@(52,4);_
14610 %WW-CM 000023DD DCODE$(01,2),@(57,4);DCODE$(01,3),@(62,4);_
14620 %WW-CM 00002409 DCODE$(01,4),@(67,4);DCODE$(01,5),@(72,4);_
14640 %WW-CM 00002435 DNAME$(2),@(3,5);DSALUT$(2),@(30,5);_
14644 %WW-CM 00002459 DCODE$(02,1),@(52,5);_
14650 %WW-CM 0000246F DCODE$(02,2),@(57,5);DCODE$(02,3),@(62,5);_
14660 %WW-CM 0000249B DCODE$(02,4),@(67,5);DCODE$(02,5),@(72,5);_
14680 %WW-CM 000024C7 DNAME$(3),@(3,6);DSALUT$(3),@(30,6);_
14684 %WW-CM 000024EB DCODE$(03,1),@(52,6);_
14690 %WW-CM 00002501 DCODE$(03,2),@(57,6);DCODE$(03,3),@(62,6);_
14700 %WW-CM 0000252D DCODE$(03,4),@(67,6);DCODE$(03,5),@(72,6);_
14710 %WW-CM 00002559 DNAME$(4),@(3,7);DSALUT$(4),@(30,7);_
14714 %WW-CM 0000257D DCODE$(04,1),@(52,7);_
14720 %WW-CM 00002593 DCODE$(04,2),@(57,7);DCODE$(04,3),@(62,7);_
14730 %WW-CM 000025BF DCODE$(04,4),@(67,7);DCODE$(04,5),@(72,7);_
14750 %WW-CM 000025EB DNAME$(5),@(3,8);DSALUT$(5),@(30,8);_
14754 %WW-CM 0000260F DCODE$(05,1),@(52,8);_
14760 %WW-CM 00002625 DCODE$(05,2),@(57,8);DCODE$(05,3),@(62,8);_
14770 %WW-CM 00002651 DCODE$(05,4),@(67,8);DCODE$(05,5),@(72,8);(SF)
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 30
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
14780 %WW-CM 00002682 !
14800 %WW-CM 00002682 4060 FORMAT _
14810 %WW-CM 00002682 DNAME$(6),@(3,9);DSALUT$(6),@(30,9);_
14814 %WW-CM 000026A6 DCODE$(06,1),@(52,9);_
14820 %WW-CM 000026BC DCODE$(06,2),@(57,9);DCODE$(06,3),@(62,9);_
14830 %WW-CM 000026E8 DCODE$(06,4),@(67,9);DCODE$(06,5),@(72,9);_
14840 %WW-CM 00002714 DNAME$(7),@(3,10);DSALUT$(7),@(30,10);_
14844 %WW-CM 00002738 DCODE$(07,1),@(52,10);_
14850 %WW-CM 0000274E DCODE$(07,2),@(57,10);DCODE$(07,3),@(62,10);_
14860 %WW-CM 0000277A DCODE$(07,4),@(67,10);DCODE$(07,5),@(72,10);_
14870 %WW-CM 000027A6 DNAME$(8),@(3,11);DSALUT$(8),@(30,11);_
14874 %WW-CM 000027CA DCODE$(08,1),@(52,11);_
14880 %WW-CM 000027E0 DCODE$(08,2),@(57,11);DCODE$(08,3),@(62,11);_
14890 %WW-CM 0000280C DCODE$(08,4),@(67,11);DCODE$(08,5),@(72,11);_
14900 %WW-CM 00002838 DNAME$(9),@(3,12);DSALUT$(9),@(30,12);_
14904 %WW-CM 0000285C DCODE$(09,1),@(52,12);_
14910 %WW-CM 00002872 DCODE$(09,2),@(57,12);DCODE$(09,3),@(62,12);_
14920 %WW-CM 0000289E DCODE$(09,4),@(67,12);DCODE$(09,5),@(72,12);_
14930 %WW-CM 000028CA DNAME$(10),@(3,13);DSALUT$(10),@(30,13);_
14934 %WW-CM 000028EE DCODE$(10,1),@(52,13);_
14940 %WW-CM 00002904 DCODE$(10,2),@(57,13);DCODE$(10,3),@(62,13);_
14950 %WW-CM 00002930 DCODE$(10,4),@(67,13);DCODE$(10,5),@(72,13);(SF)
14960 %WW-CM 00002961 !
14980 %WW-CM 00002961 4070 FORMAT _
14990 %WW-CM 00002961 DNAME$(11),@(3,14);DSALUT$(11),@(30,14);_
14994 %WW-CM 00002985 DCODE$(11,1),@(52,14);_
15000 %WW-CM 0000299B DCODE$(11,2),@(57,14);DCODE$(11,3),@(62,14);_
15010 %WW-CM 000029C7 DCODE$(11,4),@(67,14);DCODE$(11,5),@(72,14);_
15020 %WW-CM 000029F3 DNAME$(12),@(3,15);DSALUT$(12),@(30,15);_
15024 %WW-CM 00002A17 DCODE$(12,1),@(52,15);_
15030 %WW-CM 00002A2D DCODE$(12,2),@(57,15);DCODE$(15,3),@(62,15);_
15040 %WW-CM 00002A59 DCODE$(15,4),@(67,15);DCODE$(15,5),@(72,15);_
15050 %WW-CM 00002A85 DNAME$(13),@(3,16);DSALUT$(13),@(30,16);_
15054 %WW-CM 00002AA9 DCODE$(13,1),@(52,16);_
15060 %WW-CM 00002ABF DCODE$(13,2),@(57,16);DCODE$(13,3),@(62,16);_
15070 %WW-CM 00002AEB DCODE$(13,4),@(67,16);DCODE$(13,5),@(72,16);_
15080 %WW-CM 00002B17 DNAME$(14),@(3,17);DSALUT$(14),@(30,17);_
15084 %WW-CM 00002B3B DCODE$(14,1),@(52,17);_
15090 %WW-CM 00002B51 DCODE$(14,2),@(57,17);DCODE$(14,3),@(62,17);_
15100 %WW-CM 00002B7D DCODE$(14,4),@(67,17);DCODE$(14,5),@(72,17);_
15110 %WW-CM 00002BA9 DNAME$(15),@(3,18);DSALUT$(15),@(30,18);_
15114 %WW-CM 00002BCD DCODE$(15,1),@(52,18);_
15120 %WW-CM 00002BE3 DCODE$(15,2),@(57,18);DCODE$(15,3),@(62,18);_
15130 %WW-CM 00002C0F DCODE$(15,4),@(67,18);DCODE$(15,5),@(72,18);(SF)
15140 %WW-CM 00002C40 !
15150 %WW-CM 00002C40 4080 FORMAT _
15160 %WW-CM 00002C40 DNM$;DSAL$;DCD$(1);DCD$(2);DCD$(3);DCD$(4);DCD$(5)
15170 %WW-CM 00002C7D !
15180 %WW-CM 00002C7D 4090 FORMAT _
15190 %WW-CM 00002C7D CCODE$(1);CCODE$(2);CCODE$(3);CCODE$(4);CCODE$(5)
15200 %WW-CM 00002CB0 !
19900 %WW-CM 00002CB0 SET C1A=2 , C1C=3 , C1AC=4 , C1R=8 , C1N=9
19920 %WW-CM 00002CB0 SET M1C=11 , S1=12 , CS1A = 13
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 31
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
19925 %WW-CM 00002CB0 SET M1H = 14 , M2P = 15, M1A = 16 , M1AH = 17
19940 %WW-CM 00002CB0 SET O2 =20 , S1D = 21 , C1A2 = 22 , C7A = 23
19950 %WW-CM 00002CB0 SET C1E = 24 , C1D = 25
19960 %WW-CM 00002CB0 SET PW = 26 , C1J = 27 , VOREDT = 28
19970 %WW-CM 00002CB0 !
20000 %WW-CM 00002CB0 ! ========== OPEN FILES ==========
20100 %WW-CM 00002CB0 USE '^COBEGCL'
20000 ^COBEGCL 00002CB0 !========== START PROCESSING ==========
20100 ^COBEGCL 00002CB0 CLEAR LOCAL
20200 ^COBEGCL 00000001 OPEN (Z1) 'Z1'
20300 ^COBEGCL 00000008 READ (Z1,0990)KEY=TERM$
20500 ^COBEGCL 00000013 !
20110 %WW-CM 00000013 X$ = 'XXXXXXXX'
20115 %WW-CM 0000001C XDTIINIT$ = ZINIT$
20120 %WW-CM 00000025 !
20130 %WW-CM 00000025 SEED1$ = '8426593S6W8E3PKK'
20140 %WW-CM 0000002E SEED2$ = 'K55K85N39DC874QM'
20150 %WW-CM 00000037 SEED3$ = ENCRYPT(SEED1$,SEED2$)
20160 %WW-CM 0000004A !
20200 %WW-CM 0000004A FLNM$ = ZZCO$ + 'C1A' & CLOSE (C1A)
20250 %WW-CM 0000005F OPEN (C1A) FLNM$
20300 %WW-CM 00000066 FLNM$ = ZZCO$ + 'M1C' & CLOSE (M1C)
20350 %WW-CM 0000007B OPEN (M1C) FLNM$
20400 %WW-CM 00000082 FLNM$ = ZZCO$ + 'C1AC' & CLOSE (C1AC)
20450 %WW-CM 00000097 OPEN (C1AC) FLNM$
20500 %WW-CM 0000009E FLNM$ = ZZCO$ + 'C1C' & CLOSE (C1C)
20550 %WW-CM 000000B3 OPEN (C1C) FLNM$
20600 %WW-CM 000000BA FLNM$ = ZZCO$ + 'C1R' & CLOSE (C1R)
20650 %WW-CM 000000CF OPEN (C1R) FLNM$
20700 %WW-CM 000000D6 FLNM$ = ZZCO$ + 'C1N' & CLOSE (C1N)
20750 %WW-CM 000000EB OPEN (C1N) FLNM$
20800 %WW-CM 000000F2 FLNM$ = ZZCO$ + 'S1' & CLOSE (S1)
20850 %WW-CM 00000107 OPEN (S1) FLNM$
20854 %WW-CM 0000010E FLNM$ = ZZCO$ + 'CS1A' & CLOSE (CS1A)
20858 %WW-CM 00000123 OPEN (CS1A) FLNM$
20860 %WW-CM 0000012A FLNM$ = ZZCO$ + 'S1D' & CLOSE (S1D)
20870 %WW-CM 0000013F OPEN (S1D) FLNM$
20880 %WW-CM 00000146 FLNM$ = ZZCO$ + 'C7A' & CLOSE (C7A)
20890 %WW-CM 0000015B OPEN (C7A) FLNM$,EXCP=8440
20900 %WW-CM 00000166 FLNM$ = ZZCO$ + 'C1E' & CLOSE (C1E)
20910 %WW-CM 0000017B OPEN (C1E) FLNM$,EXCP=8450
20920 %WW-CM 00000186 FLNM$ = ZZCO$ + 'C1D' & CLOSE (C1D)
20930 %WW-CM 0000019B OPEN (C1D) FLNM$,EXCP=8460
20934 %WW-CM 000001A6 FLNM$ = ZZCO$ + 'C1J' & CLOSE (C1J)
20938 %WW-CM 000001BB OPEN (C1J) FLNM$,EXCP=8660
20940 %WW-CM 000001C6 !
20950 %WW-CM 000001C6 FLNM$=ZZCO$+'VOREDT'
20952 %WW-CM 000001D8 CREATE FLNM$,6,K,6,DIR=ZFXD$,EXCP=1100
20960 %WW-CM 000001EF 1100 OPEN(VOREDT) FLNM$ !VORTX FILE FOR HENRY CALVIN WEB SITE
20970 %WW-CM 000001F6 !
21040 %WW-CM 000001F6 STITLE$ = 'CUSTOMER MAINTENANCE'
21140 %WW-CM 000001FF TTLPOS = 40 - LEN(STITLE$)/2
21150 %WW-CM 0000021E !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 32
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
21160 %WW-CM 0000021E READ (Z1,0008)KEY='*DocImageURL',EXCP=4900
21170 %WW-CM 0000022D 4900 !
21240 %WW-CM 0000022D !
22000 %WW-CM 0000022D TOP$ = '@1010101010@'
22100 %WW-CM 00000236 TOP$ = TOP$+TOP$ & TOP$ = TOP$+TOP$
22200 %WW-CM 0000025A TOP$ = TOP$+TOP$ & TOP$ = TOP$ + SUB(TOP$,1,38)
22300 %WW-CM 0000028C TOP$ = '@16@' + TOP$ + '@17@'
22400 %WW-CM 000002A7 BOT$ = '@1010101010@'
22500 %WW-CM 000002B0 BOT$ = BOT$+BOT$ & BOT$ = BOT$+BOT$
22600 %WW-CM 000002D4 BOT$ = BOT$+BOT$ & BOT$ = BOT$ + SUB(BOT$,1,38)
22700 %WW-CM 00000306 BOT$ = '@18@' + BOT$ + '@19@'
22800 %WW-CM 00000321 VRT$ = '@11@'
23000 %WW-CM 0000032A !
23010 %WW-CM 0000032A TYPHDG4$ = 'X-?)' ! TLF 04/05/2004
23030 %WW-CM 00000333 TYPHDG6$ = 'R-RES)'
23040 %WW-CM 0000033C !
49900 %WW-CM 0000033C !!!! GOSUB 7300
50000 %WW-CM 0000033C ! ========== BEGIN PROCESSING ==========
50100 %WW-CM 0000033C 4990 GOSUB 7000
50200 %WW-CM 00000341 5000 RST$ = '' & GOSUB 7100
50300 %WW-CM 0000034F !!!! INPUT (0) CNBR$
50400 %WW-CM 0000034F IF CNBR$ EQ '' OR CNBR$ EQ 'END' GOTO 9900
50420 %WW-CM 00000370 !*** IF PROG$ = 'CQ' AND POS(CNBR$,'NEXT') = 1 CNBR$ = KEY(C1A,EXCP=5
50500 %WW-CM 00000370 IF RST$ EQ 'N' GOTO 5200
50510 %WW-CM 00000383 !*** IF PROG$ = 'CQ' READ (C1A,0100)KEY=CNBR$,EXCP=8400
50520 %WW-CM 00000383 5020 !!!! ZCSORT$ = CSORT$
50540 %WW-CM 00000383 GOSUB 7900
50600 %WW-CM 00000388 GOSUB 7080
50618 %WW-CM 0000038D PRINT (#) CCTYPE$ & INPUT (#) CCTYPE$
50620 %WW-CM 000003A3 IF POS(CCTYPE$,'SB') NE 0 OR ZCOID$ EQ 'PO' THEN
50630 %WW-CM 000003C5 PRINT (0,3026)
50640 %WW-CM 000003CC ELSE
50650 %WW-CM 000003D1 PRINT (0,3028)
50660 %WW-CM 000003D8 ENDIF
50700 %WW-CM 000003D8 !
50800 %WW-CM 000003D8 5100
50820 %WW-CM 000003D8 IF SUB(CNBR$,1,1) EQ '-' _
50822 %WW-CM 000003E6 MESS$='convert from memo account to regular account(Y/N)?' &_
50824 %WW-CM 000003FD GOSUB 9000 &_
50825 %WW-CM 00000402 IF AN$ EQ 'Y' GOSUB 8000 &_
50826 %WW-CM 00000415 GOTO 4990
50827 %WW-CM 0000041A !
50830 %WW-CM 0000041A PRINT (#) CCTYPE$ & INPUT (#) CCTYPE$
50832 %WW-CM 00000430 MOREMODE = 1 ! INITIALIZE
50840 %WW-CM 0000043A MESS$ = '#/DELETE/nOtes/Resale #/Credit cds/'
50860 %WW-CM 00000443 MESS$ = MESS$ + 'Sales/NEXT/sHipto/opTions2/End'
50870 %WW-CM 00000455 !!!! IF POS(CCTYPE$,'SB') NE 0 _
50880 %WW-CM 00000455 !!!! MESS$ = MESS$ + 'Personnel/'
50885 %WW-CM 00000455 !!!! MESS$ = MESS$ + 'TAB'
50900 %WW-CM 00000455 5110 GOSUB 9000
50910 %WW-CM 0000045A IF MOREMODE EQ 1 AND AN$ EQ 'T' THEN
50920 %WW-CM 00000477 MOREMODE = 2
50930 %WW-CM 00000481 MESS$ = 'CNL/Activity/'
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 33
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
50940 %WW-CM 0000048A IF POS(CCTYPE$,'SB') NE 0 _
50950 %WW-CM 00000494 MESS$ = MESS$ + 'Personnel/'
50960 %WW-CM 000004B0 MESS$ = MESS$ + 'Mail/empLoyee email/imaGing/opTions1/End'
50970 %WW-CM 000004C2 GOTO 5110
50980 %WW-CM 000004C7 ENDIF
50985 %WW-CM 000004C7 IF MOREMODE EQ 2 AND AN$ EQ 'T' _
50987 %WW-CM 000004D6 GOTO 5100
51000 %WW-CM 000004E9 IF (AN$ EQ '' OR POS(AN$,'END') EQ 1 OR POS(AN$,'NEXT') EQ 1) _
51020 %WW-CM 0000051F ____ OR AN$ EQ 'H' OR AN$ EQ 'O' OR _
51040 %WW-CM 0000051F ____ POS(AN$,'RESALE-NUMBERS') EQ 1 OR POS(AN$,'SALES') EQ 1) _
51060 %WW-CM 0000051F AND POS(RST$,'XN') NE 0 GOSUB 7600
51065 %WW-CM 00000538 IF AN$ EQ 'L' GOTO 5740 ! EMPLOYEE EMAIL
51067 %WW-CM 0000054B IF AN$ EQ 'C' GOTO 5840 ! CREDIT CARDS
51070 %WW-CM 0000055E !!!! IF AN$ EQ 'TLF' GOTO 5600 ! FOR TESTING UNLIMITED NOTES
51080 %WW-CM 0000055E IF AN$ EQ '' OR POS(AN$,'END') EQ 1 GOSUB 5250 & GOTO 5000
51084 %WW-CM 0000058A IF AN$ EQ 'DELETE' GOTO 7800
51088 %WW-CM 0000059D IF POS(AN$,'NEXT') = 1 GOSUB 7200 & GOTO 5020
51092 %WW-CM 000005BB IF POS(CCTYPE$,'SB') NE 0 AND AN$ EQ 'P' _
51096 %WW-CM 000005CF GOTO 8700
51100 %WW-CM 000005E2 IF POS(AN$,'SALES') EQ 1 GOTO 5400
51104 %WW-CM 000005FB IF AN$ EQ 'O' GOTO 5500
51108 %WW-CM 0000060E IF AN$ EQ 'H' GOTO 5700
51113 %WW-CM 00000621 IF POS(AN$,'MAIL') EQ 1 THEN
51118 %WW-CM 00000635 CEMAIL$ = STRIP(CEMAIL$)
51123 %WW-CM 00000644 IF CEMAIL$ EQ '' _
51128 %WW-CM 00000644 MESS$ = 'NO E-MAIL ADDRESS LISTED - ENTER' & _
51133 %WW-CM 0000065B GOSUB 9000 & GOTO 5100
51138 %WW-CM 00000665 HELPINP$ = 'MAILTO:' + CEMAIL$
51143 %WW-CM 00000677 PRINT (0) (LAUNCH=HELPINP$)
51148 %WW-CM 00000684 GOTO 5160
51153 %WW-CM 00000689 ENDIF
51190 %WW-CM 00000689 IF POS(AN$,'RESALE') EQ 1 GOTO 5900
51200 %WW-CM 000006A2 IF AN$ EQ 'CNL' _ !WANT TO LOOKUP
51210 %WW-CM 000006A2 GOSUB 7200 & CLOSE & OPEN (0) TERM$ &_
51220 %WW-CM 000006BD PROGID$ = 'WWCNL' & _
51230 %WW-CM 000006C6 RUN PROGID$
51232 %WW-CM 000006CC !
51235 %WW-CM 000006CC IF AN$ EQ 'A' THEN
51237 %WW-CM 000006DA IF POS(RST$,'XN') EQ 0 _
51239 %WW-CM 000006E4 EXTRACT (C1A,0100)KEY=CNBR$,EXCP=8420 & RST$ = 'X'
51249 %WW-CM 00000706 GOTO 5800
51254 %WW-CM 0000070B ENDIF
51256 %WW-CM 0000070B !
51260 %WW-CM 0000070B IF AN$ EQ 'G' OR AN$ EQ 'IMAGE' THEN
51270 %WW-CM 00000727 A$ = STRIP(DocImageURL$)
51274 %WW-CM 00000736 A$ = A$ + 'ResaleTable.php?customerNumber='
51280 %WW-CM 00000748 B$ = CNBR$
51290 %WW-CM 00000751 C$ = '&OK=Submit+Query'
51300 %WW-CM 0000075A !!!! D$ = '&track.x=25&track.y=10'
51310 %WW-CM 0000075A E$ = A$ + B$ + C$
51320 %WW-CM 00000775 PRINT (0) (LAUNCH=E$)
51330 %WW-CM 00000782 GOTO 5160
51340 %WW-CM 00000787 ENDIF
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 34
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
51350 %WW-CM 00000787 !
51430 %WW-CM 00000787 FLDNBR = NUM(AN$,ERR)
51440 %WW-CM 00000796 IF FLDNBR LT 1 OR FLDNBR GT MAXFLD GOTO 5160
51450 %WW-CM 000007B9 IF POS(RST$,'XN') EQ 0 _
51460 %WW-CM 000007C3 EXTRACT (C1A,0100)KEY=CNBR$,EXCP=8420 & RST$ = 'X'
51470 %WW-CM 000007E5 GOSUB 6000
51500 %WW-CM 000007EA GOSUB 7080
51510 %WW-CM 000007EF PRINT (#) CCTYPE$ & INPUT (#) CCTYPE$
51520 %WW-CM 00000805 IF POS(CCTYPE$,'SB') NE 0 OR ZCOID$ EQ 'PO' THEN
51530 %WW-CM 00000827 PRINT (0,3026)
51540 %WW-CM 0000082E ELSE
51550 %WW-CM 00000833 PRINT (0,3028)
51560 %WW-CM 0000083A ENDIF
51600 %WW-CM 0000083A 5160 IF MOREMODE EQ 2 _
51610 %WW-CM 0000083A GOTO 5110
51620 %WW-CM 0000084E GOTO 5100
51700 %WW-CM 00000853 !
51800 %WW-CM 00000853 5200 FOR FLDNBR = 1 TO MAXFLD
51810 %WW-CM 0000086C IF FLDNBR EQ 9 CSNBR$='' !ADDED 01/29/2002 SEH
51900 %WW-CM 00000884 GOSUB 6000
52000 %WW-CM 00000889 IF FLDNBR EQ 1 THEN
52010 %WW-CM 00000898 IF CNAME$ EQ '' GOTO 5000
52020 %WW-CM 000008AB IF ZCOID$ NE 'QU' CASRT$ = CNAME$
52024 %WW-CM 000008C2 PRINT (0,3010)
52028 %WW-CM 000008C9 ENDIF
52100 %WW-CM 000008C9 NEXT FLDNBR
52200 %WW-CM 000008DD PRINT (0,3000) & PRINT (0,3020) & PRINT (0,3024) !ECHO INPUT
52210 %WW-CM 000008F2 PRINT (#) CCTYPE$ & INPUT (#) CCTYPE$
52220 %WW-CM 00000908 IF POS(CCTYPE$,'SB') NE 0 OR ZCOID$ EQ 'PO' THEN
52230 %WW-CM 0000092A PRINT (0,3026)
52240 %WW-CM 00000931 ELSE
52250 %WW-CM 00000936 PRINT (0,3028)
52260 %WW-CM 0000093D ENDIF
52300 %WW-CM 0000093D GOTO 5100
52330 %WW-CM 00000942 !
52400 %WW-CM 00000942 ! ========== INPUT SUBROUTINE ==========
52420 %WW-CM 00000942 5250 !SET DISPLAY VA
52500 %WW-CM 00000942 CSLSMTD=0 & CSLSYTD=0 & CSLSPRV1=0 & CSLSPRV2=0 & CSLSPRV3=0
52505 %WW-CM 00000974 CCSTMTD=0 & CCSTYTD=0 & CCSTPRV1=0 & CCSTPRV2=0 & CCSTPRV3=0
52515 %WW-CM 000009A6 CMTDINV=0 & CYTDINV=0 & CPRV1INV=0 & CPRV2INV=0 & CPRV3INV=0
52520 %WW-CM 000009D8 !
52525 %WW-CM 000009D8 CSSMTD =0 & CSSYTD =0 & CSSPRV1 =0 & CSSPRV2 =0 & CSSPRV3 =0
52530 %WW-CM 00000A0A CSFMTD =0 & CSFYTD =0 & CSFPRV1 =0 & CSFPRV2 =0 & CSFPRV3 =0
52535 %WW-CM 00000A3C CRVYTD =0 & CRVPRV1 =0 & CRVPRV2 =0
52540 %WW-CM 00000A5A CDSCYTD=0 & CDSCPRV1=0 & CDSCPRV2=0 & CDSCPRV3=0
52560 %WW-CM 00000A82 CDSCTYTD=0 & CDSCTPR1=0 & CDSCTPR2=0 & CNUMPMNT=0
52570 %WW-CM 00000AAA CSRVYTD = 0
52580 %WW-CM 00000AB4 CSRVPRV1 = 0
52590 %WW-CM 00000ABE CSRVPRV2 = 0
52700 %WW-CM 00000AC8 CDOLS$ = '' & CDOLSS$ = '' & COPEN = 0 & CBAL = 0
52720 %WW-CM 00000AEE SNAME$ = '' & MCDESC$ = ''
52730 %WW-CM 00000B00 CSACAT$ = '' & CRTOMILL$ = '' & CAVGDAYS = 0
52740 %WW-CM 00000B1C CHIGHBAL = 0 & CDTEHI$ = '' & CTAXYTD = 0
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 35
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
52750 %WW-CM 00000B39 CNUMPMNT = 0 & CNORYTD = 0 & CNORPRV1 = 0
52760 %WW-CM 00000B57 CNORPRV2 = 0 & CRVYTD = 0 & CRVPRV1 = 0 & CRVPRV2 = 0
52762 %WW-CM 00000B7F FOR AN = 1 TO 5
52766 %WW-CM 00000B98 CCODE$(AN) = ''
52770 %WW-CM 00000BAE NEXT AN
52774 %WW-CM 00000BC2 CBTYPE$=''
52775 %WW-CM 00000BCB CAPREF$=''
52780 %WW-CM 00000BD4 CACTDATE$=''
52785 %WW-CM 00000BDD CFUPDATE$=''
52795 %WW-CM 00000BE6 WRTIMAGE = 0
52800 %WW-CM 00000BF0 RETURN
52900 %WW-CM 00000BF1 !
54000 %WW-CM 00000BF1 ! ========== SALES SCREEN ==========
54100 %WW-CM 00000BF1 5400 GOSUB 7300
54200 %WW-CM 00000BF6 5420 PRINT (#) CCTYPE$ & INPUT (#) CCTYPE$
54210 %WW-CM 00000C0C I3110 = 0
54220 %WW-CM 00000C16 IF POS(CCTYPE$,'SB') NE 0 THEN
54230 %WW-CM 00000C2A I3110 = 1
54240 %WW-CM 00000C34 READ (CS1A,0710)KEY=CNBR$,EXCP=5460
54250 %WW-CM 00000C43 ENDIF
54260 %WW-CM 00000C43 5430 PRINT (0,3100)
54270 %WW-CM 00000C4A PRINT (0,3120)
54290 %WW-CM 00000C51 !
54300 %WW-CM 00000C51 5440 MESS$ = 'nOtes/Resale-numbers/NEXT/sHip-to/TAB'
54310 %WW-CM 00000C5A IF I3110 EQ 1 _
54320 %WW-CM 00000C5A MESS$ = MESS$ + '/Specifier sales'
54330 %WW-CM 00000C7B IF I3110 EQ 2 _
54340 %WW-CM 00000C7B MESS$ = MESS$ + '/Purchaser sales'
54400 %WW-CM 00000C9C GOSUB 9000
54410 %WW-CM 00000CA1 IF I3110 EQ 1 AND AN$ EQ 'S' _
54420 %WW-CM 00000CB0 I3110 = 2 & PRINT (0,3110) & GOTO 5440
54430 %WW-CM 00000CD4 IF I3110 EQ 2 AND AN$ EQ 'P' _
54440 %WW-CM 00000CE3 I3110 = 1 & PRINT (0,3100) & PRINT (0,3120) & GOTO 5440
54500 %WW-CM 00000D0E IF AN$ EQ '' OR AN$ EQ 'END' GOSUB 7000 & GOTO 5100
54520 %WW-CM 00000D34 IF AN$ EQ 'O' GOTO 5500
54540 %WW-CM 00000D47 IF POS(AN$,'RESALE') EQ 1 GOTO 5900
54560 %WW-CM 00000D60 IF AN$ EQ 'H' GOTO 5700
54580 %WW-CM 00000D73 IF POS(AN$,'NEXT') EQ 1 THEN
54600 %WW-CM 00000D87 IF POS(RST$,'XN') NE 0 GOSUB 7600
54620 %WW-CM 00000DA0 GOSUB 7200 & GOTO 5420
54640 %WW-CM 00000DAA ENDIF
54650 %WW-CM 00000DAA !
54660 %WW-CM 00000DAA IF AN$ EQ 'S' _
54670 %WW-CM 00000DAA READ(CS1A,0710) KEY=CNBR$,EXCP=5460 &_
54680 %WW-CM 00000DC7 PRINT(0,3110) & I3110 = 1
54700 %WW-CM 00000DD8 GOTO 5440
54710 %WW-CM 00000DDD !
54720 %WW-CM 00000DDD 5460 IF EXCP EQ BUSY _
54730 %WW-CM 00000DDD MESS$='RECORD LOCKED OUT ' &_
54740 %WW-CM 00000DF5 GOSUB 9000
54750 %WW-CM 00000DFA IF EXCP NE KEYERR ERROR
54752 %WW-CM 00000E0A SPSLSMTD = 0 & SPSLSYTD = 0 & SPSLSPV1 = 0 & SPSLSPV2 = 0
54754 %WW-CM 00000E32 SPCSTMTD = 0 & SPCSTYTD = 0 & SPCSTPV1 = 0 & SPCSTPV2 = 0
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 36
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
54756 %WW-CM 00000E5A SPINVMTD = 0 & SPINVYTD = 0 & SPINVPV1 = 0 & SPINVPV2 = 0
54758 %WW-CM 00000E82 SPLINVDT$ = ''
54770 %WW-CM 00000E8B GOTO 5430
54800 %WW-CM 00000E90 !
55000 %WW-CM 00000E90 ! ========== NOTES SCREEN ==========
55010 %WW-CM 00000E90 5500 IF CNBR$ EQ 'NEW' OR CNBR$ EQ 'NEW ' _
55020 %WW-CM 00000E9E GOSUB 7650
55030 %WW-CM 00000EB1 GOSUB 7300
55040 %WW-CM 00000EB6 PRINT (0,3700)
55050 %WW-CM 00000EBD EXTRACT (C1AC,0110)KEY=CNBR$,EXCP=8500 & RSTC$ = 'X'
55060 %WW-CM 00000ED5 XDTIPOS = 1 !POSITION OF FIRST INPUT
55070 %WW-CM 00000EDF XDTILINE = 7 !POSITION OF FIRST LINE
55080 %WW-CM 00000EE9 GOSUB DTISTAMP
55090 %WW-CM 00000EEE POS = XDTIPOS & LINE = XDTILINE
55100 %WW-CM 00000F02 5520 PRINT (0,3200) & PRINT (0,3220)
55110 %WW-CM 00000F10 INPUT (0,3950)
55120 %WW-CM 00000F17 5540 MESS$ = 'Modify/DELETE/Resale-numbers/Sales/sHip-to/TAB'
55130 %WW-CM 00000F20 GOSUB 9000
55140 %WW-CM 00000F25 IF POS(AN$,'MODIFY' ) EQ 1 GOTO 5520
55150 %WW-CM 00000F3E IF (AN$ EQ '' OR AN$ EQ 'END' OR POS(AN$,'SALES') EQ 1 OR _
55160 %WW-CM 00000F6E POS(AN$,'RESALE') EQ 1) AND POS(RSTC$,'XN') NE 0 _
55170 %WW-CM 00000F8C WRITE (C1AC,0110) & RSTC$ = ''
55180 %WW-CM 00000FA6 IF AN$ = 'DELETE' RSTC$ = '' & DELETE (C1AC)KEY=CNBR$,EXCP=8520
55190 %WW-CM 00000FC8 5560 IF AN$ EQ '' OR AN$ EQ 'END' OR AN$ EQ 'DELETE' _
55200 %WW-CM 00000FE4 GOSUB 7000 & GOTO 5100
55210 %WW-CM 00000FFC IF POS(AN$,'SALES') EQ 1 GOTO 5400
55220 %WW-CM 00001015 IF AN$ EQ 'H' GOTO 5700
55230 %WW-CM 00001028 IF POS(AN$,'RESALE') EQ 1 GOTO 5900
55240 %WW-CM 00001041 !!!! IF POS(AN$,'NEXT') EQ 1 GOTO 7200
55250 %WW-CM 00001041 !
55260 %WW-CM 00001041 GOTO 5540
55270 %WW-CM 00001046 !
56000 %WW-CM 00001046 ! ========== TEST OUT UNLIMITED NOTES ==========
56010 %WW-CM 00001046 !
56020 %WW-CM 00001046 5600 ! ! ASSEMBLE FILE NAME HERE
56030 %WW-CM 00001046 A$ = 'H:\BIGVOL01\TEST\'
56040 %WW-CM 0000104F A$ = A$ + STRIP(CNBR$)
56050 %WW-CM 00001067 A$ = A$ + '.doc' + '@00@' ! MUST BE NULL BYTE TERMINA
56060 %WW-CM 00001082 !
56100 %WW-CM 00001082 5610 AX$ = '@3D00@' ! OPEN, READ-ONLY
56110 %WW-CM 0000108B CX$ = '@0000@'
56120 %WW-CM 00001094 DOSFC( AX$, CX$, A$),EXCP=5650 ! IF SUCCESSFUL, AX$ IS FIL
56130 %WW-CM 000010A6 ZX$ = AX$ ! SAVE FILE HANDLE
56140 %WW-CM 000010AF !
56200 %WW-CM 000010AF 5620 AX$ = '@3E00@' ! CLOSE FILE
56210 %WW-CM 000010B8 BX$ = ZX$ ! SET SAVED FILE HANDLE
56220 %WW-CM 000010C1 CX$ = '@0000@' & DX$ = '@0000@'
56230 %WW-CM 000010D3 DOSMS( AX$, BX$, CX$, DX$ ),EXCP=5660
56240 %WW-CM 000010E9 !
56300 %WW-CM 000010E9 5630 AN = LEN(A$)
56310 %WW-CM 000010F4 A$ = SUB(A$,1,AN-1) ! STRIP OFF NULL BYTE
56320 %WW-CM 00001115 PRINT (0) (LAUNCH=A$) ! LAUNCH WORD DOCUMENT
56330 %WW-CM 00001122 GOTO 5160
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 37
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
56340 %WW-CM 00001127 !
56500 %WW-CM 00001127 5650 WORK2$ = SUB(HEXASC(AX$),3,2)
56510 %WW-CM 00001144 IF WORK2$ EQ '02' GOTO 5660 ! FILE NOT FOUND, GO CREATE
56520 %WW-CM 00001157 DOSEXCPCD$ = 'D' + WORK2$
56530 %WW-CM 00001169 CLOSE (29) & OPEN (29) 'QERCOMET' ! OPEN EXCP DESCRIPTION FIL
56540 %WW-CM 00001173 DOSEXCPMSG$ = '?????'
56550 %WW-CM 0000117C READ (29,0011)KEY=MESS$,EXCP=5655
56560 %WW-CM 0000118B 5655 MESS$ = 'DOS EXCP = ' + DOSEXCPMSG$ + ' - ENTER'
56570 %WW-CM 000011A6 GOSUB 9000
56580 %WW-CM 000011AB CLOSE (29)
56585 %WW-CM 000011AE GOTO 5160
56587 %WW-CM 000011B3 !
56600 %WW-CM 000011B3 5660 AX$ = '@3C00@'
56610 %WW-CM 000011BC CX$ = '@0000@'
56620 %WW-CM 000011C5 DOSFC( AX$, CX$, A$),EXCP=5670 ! CREATE DOS FILE
56630 %WW-CM 000011D7 ZX$ = AX$ ! SAVE FILE HANDLE
56640 %WW-CM 000011E0 GOTO 5620
56690 %WW-CM 000011E5 !
56700 %WW-CM 000011E5 5670 WORK2$ = SUB(HEXASC(AX$),3,2)
56710 %WW-CM 00001202 !!!! IF WORK2$ EQ '02' GOTO 5660 ! FILE NOT FOUND, GO CREATE
56720 %WW-CM 00001202 DOSEXCPCD$ = 'D' + WORK2$
56730 %WW-CM 00001214 CLOSE (29) & OPEN (29) 'QERCOMET' ! OPEN EXCP DESCRIPTION FIL
56740 %WW-CM 0000121E DOSEXCPMSG$ = '?????'
56750 %WW-CM 00001227 READ (29,0011)KEY=MESS$,EXCP=5655
56760 %WW-CM 00001236 5675 MESS$ = 'DOS CREATE EXCP = ' + DOSEXCPMSG$ + ' - ENTER'
56770 %WW-CM 00001251 GOSUB 9000
56780 %WW-CM 00001256 CLOSE (29)
56790 %WW-CM 00001259 GOTO 5160
56800 %WW-CM 0000125E !
57000 %WW-CM 0000125E ! ========== SHIP-TO SCREEN ==========
57010 %WW-CM 0000125E 5700 IF CNBR$ EQ 'NEW' OR CNBR$ EQ 'NEW ' _
57020 %WW-CM 0000126C GOSUB 7650
57030 %WW-CM 0000127F GOSUB 7300
57040 %WW-CM 00001284 PRINT (0,3300)
57050 %WW-CM 0000128B POS = 0 & LINE = 4 & PRINT (0,95)
57060 %WW-CM 000012A6 INPUT (0) CSHIPTO$
57070 %WW-CM 000012B1 IF CSHIPTO$ EQ '' OR CSHIPTO$ EQ 'END' GOSUB 7000 & GOTO 5100
57080 %WW-CM 000012D7 CSHIPTO$ = SUB('000000',1,6-LEN(CSHIPTO$)) + CSHIPTO$
57090 %WW-CM 00001303 READ (C1C,0140)KEY=CNBR$+CSHIPTO$,EXCP=8540
57100 %WW-CM 0000131C 5710 PRINT (0,3300)
57110 %WW-CM 00001323 5712 MESS$ = '#/DELETE/nOtes/Resale-numbers/Sales/NEXT/TAB'
57120 %WW-CM 0000132C GOSUB 9000
57130 %WW-CM 00001331 IF CSHIPTO$ EQ '' AND POS(AN$,'NEXT') EQ 1 GOTO 5712
57140 %WW-CM 00001358 IF AN$ EQ 'DELETE' DELETE (C1C)KEY=CNBR$+CSHIPTO$,EXCP=5700 & _
57150 %WW-CM 0000137B GOTO 5700
57160 %WW-CM 00001380 IF AN$ EQ '' OR AN$ EQ 'END' OR POS(AN$,'SALES') EQ 1 OR _
57170 %WW-CM 000013B0 AN$ EQ 'O' OR POS(AN$,'RESALE') EQ 1 OR POS(AN$,'NEXT') EQ 1_
57180 %WW-CM 000013DC WRITE (C1C,0140)KEY=CNBR$+CSHIPTO$ & _
57190 %WW-CM 000013FB CSHIPTO$ = '' & CSNAME$ = '' & CSADR1$ = '' & CSADR2$ = '' &_
57200 %WW-CM 0000141F CSCITY$ = '' & CSSTATE$= '' & CSZIP$ = '' & CSATTN$ = ''
57210 %WW-CM 00001443 IF AN$ EQ '' OR AN$ EQ 'END' GOTO 5700
57220 %WW-CM 00001464 IF POS(AN$,'SALES') EQ 1 GOTO 5400
57230 %WW-CM 0000147D IF AN$ EQ 'O' GOTO 5500
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 38
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
57240 %WW-CM 00001490 IF POS(AN$,'RESALE') EQ 1 GOTO 5900
57250 %WW-CM 000014A9 IF POS(AN$,'NEXT') EQ 1 GOTO 7400
57260 %WW-CM 000014C2 FLDNBR = NUM(AN$,ERR) & IF FLDNBR LT 1 OR FLDNBR GT 5 GOTO 5712
57270 %WW-CM 000014F4 GOSUB 6500
57280 %WW-CM 000014F9 PRINT (0,3300)
57290 %WW-CM 00001500 GOTO 5712
57300 %WW-CM 00001505 5730 FOR FLDNBR = 1 TO 5
57310 %WW-CM 0000151E GOSUB 6500 & IF FLDNBR EQ 1 AND CSNAME$ EQ '' GOTO 5700
57320 %WW-CM 00001545 NEXT FLDNBR
57330 %WW-CM 00001559 PRINT (0,3300)
57340 %WW-CM 00001560 GOTO 5712
57350 %WW-CM 00001565 !
57400 %WW-CM 00001565 ! ========== EMPLOYEE EMAILS ==========
57410 %WW-CM 00001565 5740 IF CNBR$ EQ 'NEW' OR CNBR$ EQ 'NEW ' _
57420 %WW-CM 00001573 GOSUB 7650
57424 %WW-CM 00001586 GOSUB 7300
57428 %WW-CM 0000158B CEMCNBR$ = CNBR$ & CEMADDR$ = '' & CEMNAME$ = ''
57432 %WW-CM 000015A6 CEMPHONE$ = '' & CEMJOBCD$ = '' & CEMCMNT1$ = '' & CEMCMNT2$ = '
57434 %WW-CM 000015CA CEMCMNT3$ = '' & CEMCMNT4$ = '' & CEMCMNT5$ = '' & CEMCMNT6$ = '
57436 %WW-CM 000015EE CEMCMNT7$ = '' & CEMCMNT8$ = '' & CEMCMNT9$ = ''
57440 %WW-CM 00001609 PRINT (0,3310) & PRINT (0,3312)
57450 %WW-CM 00001617 POS = 0 & LINE = 4 & PRINT (0, 95)
57460 %WW-CM 00001632 INPUT (0) CEMSEQ$
57462 %WW-CM 0000163D IF CEMSEQ$ EQ '?' THEN
57464 %WW-CM 0000164B GOSUB 7020
57466 %WW-CM 00001650 IF CEMSEQ$ EQ '' _
57468 %WW-CM 00001650 GOTO 5740
57470 %WW-CM 00001663 ENDIF
57476 %WW-CM 00001663 IF CEMSEQ$ EQ '' OR CEMSEQ$ EQ 'END' GOSUB 7000 & GOTO 5100
57480 %WW-CM 00001689 CEMSEQ$ = SUB('000',1,3-LEN(CEMSEQ$)) + CEMSEQ$
57490 %WW-CM 000016B5 5748 READ (C1E,0137)KEY=CEMCNBR$+CEMSEQ$,EXCP=8550
57500 %WW-CM 000016CE 5750 PRINT (0,3310) & PRINT (0,3312)
57510 %WW-CM 000016DC 5752 MESS$ = '#/DELETE/nOtes/Resale-numbers/Sales/Mail/NEXT/TAB'
57520 %WW-CM 000016E5 GOSUB 9000
57540 %WW-CM 000016EA IF AN$ EQ 'DELETE' DELETE (C1E)KEY=CEMCNBR$+CEMSEQ$,EXCP=5740 &
57550 %WW-CM 0000170D GOTO 5740
57560 %WW-CM 00001712 IF AN$ EQ '' OR AN$ EQ 'END' OR POS(AN$,'SALES') EQ 1 OR _
57570 %WW-CM 00001742 AN$ EQ 'O' OR POS(AN$,'RESALE') EQ 1 OR POS(AN$,'NEXT') EQ 1_
57580 %WW-CM 0000176E WRITE (C1E,0137)KEY=CEMCNBR$+CEMSEQ$ & _
57590 %WW-CM 0000178D CEMSEQ$ = '' & CEMNAME$ = '' & CEMADDR$ = '' & _
57595 %WW-CM 000017A8 CEMPHONE$ = '' & CEMJOBCD$ = '' & CEMCMNT1$ = '' & CEMCMNT2$
57600 %WW-CM 000017CC CEMCMNT3$ = '' & CEMCMNT4$ = '' & CEMCMNT5$ = '' & CEMCMNT6$
57605 %WW-CM 000017F0 CEMCMNT7$ = '' & CEMCMNT8$ = '' & CEMCMNT9$ = ''
57610 %WW-CM 0000180B IF AN$ EQ '' OR AN$ EQ 'END' GOTO 5740
57620 %WW-CM 0000182C IF POS(AN$,'SALES') EQ 1 GOTO 5400
57630 %WW-CM 00001845 IF AN$ EQ 'O' GOTO 5500
57640 %WW-CM 00001858 IF POS(AN$,'RESALE') EQ 1 GOTO 5900
57650 %WW-CM 00001871 IF POS(AN$,'NEXT') EQ 1 GOTO 7420
57660 %WW-CM 0000188A IF POS(AN$,'MAIL') NE 0 THEN
57670 %WW-CM 0000189E CEMADDR$ = STRIP(CEMADDR$)
57680 %WW-CM 000018AD IF CEMADDR$ EQ '' _
57690 %WW-CM 000018AD MESS$ = 'NO E-MAIL ADDRESS LISTED - ENTER' & _
57700 %WW-CM 000018C4 GOSUB 9000 & GOTO 5752
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 39
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
57710 %WW-CM 000018CE HELPINP$ = 'MAILTO:' + CEMADDR$
57720 %WW-CM 000018E0 PRINT (0) (LAUNCH=HELPINP$)
57730 %WW-CM 000018ED GOTO 5752
57740 %WW-CM 000018F2 ENDIF
57760 %WW-CM 000018F2 FLDNBR = NUM(AN$,ERR) & IF FLDNBR LT 1 OR FLDNBR GT 5 GOTO 5752
57770 %WW-CM 00001924 GOSUB 6700
57780 %WW-CM 00001929 PRINT (0,3310) & PRINT (0,3312)
57790 %WW-CM 00001937 GOTO 5752
57800 %WW-CM 0000193C 5780 FOR FLDNBR = 1 TO 5
57810 %WW-CM 00001955 GOSUB 6700 & IF FLDNBR EQ 1 AND CEMADDR$ EQ '' GOTO 5740
57820 %WW-CM 0000197C NEXT FLDNBR
57830 %WW-CM 00001990 PRINT (0,3310) & PRINT (0,3312)
57840 %WW-CM 0000199E GOTO 5752
57850 %WW-CM 000019A3 !
58000 %WW-CM 000019A3 5800 ! ========== ACTIVITY ==========
58005 %WW-CM 000019A3 IF SUB(CNBR$,1,1) EQ '-' _
58007 %WW-CM 000019B1 MESS$='cannot have activity for temporary memo accounts' &_
58009 %WW-CM 000019C8 GOSUB 9000 & GOTO 5100
58020 %WW-CM 000019D2 IF CNBR$ EQ 'NEW' OR CNBR$ EQ 'NEW ' _
58030 %WW-CM 000019E0 GOSUB 7650
58040 %WW-CM 000019F3 GOSUB 7300
58042 %WW-CM 000019F8 C7ACNBR$=CNBR$
58044 %WW-CM 00001A01 C7ANOTE1$='' & C7ANOTE2$='' & C7ANOTE3$=''
58050 %WW-CM 00001A1C READ (C7A,0170) KEY=C7ACNBR$,EXCP=5804
58060 %WW-CM 00001A2B 5804 POS = 11 & LINE = 04
58070 %WW-CM 00001A3F 5808 PRINT (0,3500)
58074 %WW-CM 00001A46 INPUT (0,3980)
58078 %WW-CM 00001A4D CBTYPE$ = CBTYPE$ + ' '
58080 %WW-CM 00001A5F CAPREF$ = CAPREF$ + ' '
58082 %WW-CM 00001A71 IF POS(CBTYPE$,' RCB') EQ 0 POS = 0 & LINE = 4 & PRINT(0,95) &_
58084 %WW-CM 00001AA0 GOTO 5808
58086 %WW-CM 00001AA5 IF POS(CAPREF$,' HOSA') EQ 0 POS = 0 & LINE=5 & PRINT(0,95) &_
58088 %WW-CM 00001AD4 GOTO 5808
58089 %WW-CM 00001AD9 IF STRIP(CACTDATE$) NE '' _
58095 %WW-CM 00001ADF XDATE$ = CACTDATE$ & GOSUB DTCHK & CACTDATE$ = XDATE$ &_
58100 %WW-CM 00001B04 IF DATEOK EQ 0 LINE = 6 & POS = 0 & GOTO 5808
58103 %WW-CM 00001B2C IF STRIP(CFUPDATE$) NE '' _
58106 %WW-CM 00001B32 XDATE$ = CFUPDATE$ & GOSUB DTCHK & CFUPDATE$ = XDATE$ &_
58109 %WW-CM 00001B57 IF DATEOK EQ 0 LINE = 7 & POS = 0 & GOTO 5808
58110 %WW-CM 00001B7F POS = 0 & LINE = 10 & PRINT(0,95)
58113 %WW-CM 00001B9A INPUT(0,3510)
58115 %WW-CM 00001BA1 PRINT (0,3500)
58120 %WW-CM 00001BA8 5812 MESS$ = 'MODIFY/DELETE notes/'
58130 %WW-CM 00001BB1 GOSUB 9000
58140 %WW-CM 00001BB6 IF POS(AN$,'MODIFY') EQ 1 GOTO 5804
58150 %WW-CM 00001BCF IF STRIP(C7ANOTE1$) NE '' OR _
58152 %WW-CM 00001BE3 STRIP(C7ANOTE2$) NE '' OR _
58154 %WW-CM 00001BF7 STRIP(C7ANOTE3$) NE '' WRITE (C7A,0170) KEY=C7ACNBR$
58160 %WW-CM 00001C16 IF AN$ EQ 'DELETE' DELETE (C7A)KEY=C7ACNBR$,EXCP=5812 &_
58161 %WW-CM 00001C2F C7ANOTE1$ = '' &_
58162 %WW-CM 00001C38 C7ANOTE2$ = '' &_
58163 %WW-CM 00001C41 C7ANOTE3$ = '' &_
58164 %WW-CM 00001C4A PRINT (0,3500) &_
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 40
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
58165 %WW-CM 00001C51 GOTO 5812
58200 %WW-CM 00001C56 IF AN$ EQ '' GOSUB 7000
58210 %WW-CM 00001C69 GOTO 5100
58220 %WW-CM 00001C6E !
58390 %WW-CM 00001C6E !
58400 %WW-CM 00001C6E ! ========== CUSTOMER CREDIT CARDS ==========
58402 %WW-CM 00001C6E !
58404 %WW-CM 00001C6E 5840 IF PASSTRY$ EQ '' THEN
58406 %WW-CM 00001C7C 5842 MESS$ = 'ENTER PASSWORD FOR FULL C/C #s - ENTER' & GOSUB 9000
58408 %WW-CM 00001C8A GOSUB 7440 ! GET PASSWORD
58410 %WW-CM 00001C8F PASSTRY$ = SUB(AN$,1,6) & PASSTRY$ = PASSTRY$ + ' '
58412 %WW-CM 00001CB8 IF PASSTRY$ NE PASSWD$ THEN
58414 %WW-CM 00001CC6 MESS$ = 'INCORRECT PASSWORD - ENTER' & GOSUB 9000
58416 %WW-CM 00001CD4 5844 MESS$ = 'TRY AGAIN OR CONTINUE? (T/Enter)'
58418 %WW-CM 00001CDD GOSUB 9000
58420 %WW-CM 00001CE2 IF AN$ EQ 'T' OR AN$ EQ 'TRY' GOTO 5842
58422 %WW-CM 00001D03 IF AN$ NE '' GOTO 5844
58424 %WW-CM 00001D16 GOTO 5846
58426 %WW-CM 00001D1B ENDIF
58428 %WW-CM 00001D1B FULLCC$ = 'Y'
58430 %WW-CM 00001D24 ENDIF
58432 %WW-CM 00001D24 !
58442 %WW-CM 00001D24 5846 IF CNBR$ EQ 'NEW' OR CNBR$ EQ 'NEW ' _
58444 %WW-CM 00001D32 GOSUB 7650
58446 %WW-CM 00001D45 GOSUB 7300
58448 %WW-CM 00001D4A CCCCNBR$ = CNBR$ & CCCNUM$ = '' & CCCTYPE$ = ''
58450 %WW-CM 00001D65 CCCEXPDT$ = '' & CCCNAME$ = '' & CCCBANK$ = '' & DISPCC$ = ''
58460 %WW-CM 00001D89 PRINT (0,3350)
58470 %WW-CM 00001D90 POS = 0 & LINE = 4 & PRINT (0, 95)
58480 %WW-CM 00001DAB INPUT (0) CCCSEQ$
58490 %WW-CM 00001DB6 IF CCCSEQ$ EQ '?' THEN
58500 %WW-CM 00001DC4 GOSUB 7520
58510 %WW-CM 00001DC9 IF CCCSEQ$ EQ '' _
58520 %WW-CM 00001DC9 GOTO 5840
58530 %WW-CM 00001DDC ENDIF
58540 %WW-CM 00001DDC IF CCCSEQ$ EQ '' OR CCCSEQ$ EQ 'END' GOSUB 7000 & GOTO 5100
58550 %WW-CM 00001E02 CCCSEQ$ = SUB('000',1,3-LEN(CCCSEQ$)) + CCCSEQ$
58560 %WW-CM 00001E2E 5848 READ (C1D,0143)KEY=CCCCNBR$+CCCSEQ$,EXCP=8555
58562 %WW-CM 00001E47 5850 CCCNUM$ = DECRYPT(CCCNUM$,SEED3$)
58570 %WW-CM 00001E5A DISPCC$ = CCCNUM$
58572 %WW-CM 00001E63 IF FULLCC$ NE 'Y' _
58574 %WW-CM 00001E63 DISPCC$ = SUB(CCCNUM$,1,8) + X$
58576 %WW-CM 00001E91 PRINT (0,3350)
58580 %WW-CM 00001E98 5852 MESS$ = '#/DELETE/nOtes/Resale-numbers/Sales/Mail/NEXT/TAB'
58590 %WW-CM 00001EA1 GOSUB 9000
58600 %WW-CM 00001EA6 IF AN$ EQ 'DELETE' DELETE (C1D)KEY=CCCCNBR$+CCCSEQ$,EXCP=5840 &
58610 %WW-CM 00001EC9 GOTO 5840
58620 %WW-CM 00001ECE IF AN$ EQ '' OR AN$ EQ 'END' OR POS(AN$,'SALES') EQ 1 OR _
58630 %WW-CM 00001EFE AN$ EQ 'O' OR POS(AN$,'RESALE') EQ 1 OR POS(AN$,'NEXT') EQ 1_
58632 %WW-CM 00001F2A CCCNUM$ = ENCRYPT(CCCNUM$,SEED3$) & _
58640 %WW-CM 00001F47 WRITE (C1D,0143)KEY=CCCCNBR$+CCCSEQ$ & _
58650 %WW-CM 00001F5C CCCSEQ$ = '' & CCCNUM$ = '' & CCCTYPE$ = '' & _
58660 %WW-CM 00001F77 CCCEXPDT$ = '' & CCCNAME$ = '' & CCCBANK$ = '' & DISPCC$ = '
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 41
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
58670 %WW-CM 00001F9B IF AN$ EQ '' OR AN$ EQ 'END' GOTO 5840
58680 %WW-CM 00001FBC IF POS(AN$,'SALES') EQ 1 GOTO 5400
58690 %WW-CM 00001FD5 IF AN$ EQ 'O' GOTO 5500
58700 %WW-CM 00001FE8 IF POS(AN$,'RESALE') EQ 1 GOTO 5900
58710 %WW-CM 00002001 IF POS(AN$,'NEXT') EQ 1 GOTO 7430
58720 %WW-CM 0000201A !!!! IF POS(AN$,'MAIL') NE 0 THEN
58730 %WW-CM 0000201A !!!! CEMADDR$ = STRIP(CEMADDR$)
58740 %WW-CM 0000201A !!!! IF CEMADDR$ EQ '' _
58750 %WW-CM 0000201A !!!! MESS$ = 'NO E-MAIL ADDRESS LISTED - ENTER' & _
58760 %WW-CM 0000201A !!!! GOSUB 9000 & GOTO 5752
58770 %WW-CM 0000201A !!!! HELPINP$ = 'MAILTO:' + CEMADDR$
58780 %WW-CM 0000201A !!!! PRINT (0) (LAUNCH=HELPINP$)
58790 %WW-CM 0000201A !!!! GOTO 5752
58800 %WW-CM 0000201A !!!! ENDIF
58810 %WW-CM 0000201A FLDNBR = NUM(AN$,ERR) & IF FLDNBR LT 1 OR FLDNBR GT 5 GOTO 5852
58820 %WW-CM 0000204C GOSUB 6800
58830 %WW-CM 00002051 PRINT (0,3350)
58840 %WW-CM 00002058 GOTO 5852
58850 %WW-CM 0000205D 5880 FOR FLDNBR = 1 TO 5
58860 %WW-CM 00002076 GOSUB 6800 & IF FLDNBR EQ 1 AND STRIP(CCCNUM$) EQ '' GOTO 5840
58870 %WW-CM 000020A3 NEXT FLDNBR
58880 %WW-CM 000020B7 PRINT (0,3350)
58890 %WW-CM 000020BE GOTO 5852
58900 %WW-CM 000020C3 !
59000 %WW-CM 000020C3 ! ========== RESALE NUMBERS SCREEN ==========
59100 %WW-CM 000020C3 5900 IF CNBR$ EQ 'NEW' OR CNBR$ EQ 'NEW ' _
59110 %WW-CM 000020D1 GOSUB 7650
59120 %WW-CM 000020E4 GOSUB 7300
59200 %WW-CM 000020E9 EXTRACT (C1R,0105)KEY=CNBR$,EXCP=8560
59300 %WW-CM 000020F8 POS = 11 & LINE = 05
59320 %WW-CM 0000210C 5910 PRINT (0,3400)
59400 %WW-CM 00002113 5920 INPUT (0,3970)
59410 %WW-CM 0000211A !!!! XDATE$ = CREXPDT1$ & GOSUB DTCHK & CREXPDT1$ = XDATE$
59415 %WW-CM 0000211A !!!! IF DATEOK EQ 0 LINE = 5 & POS = 45 & GOTO 5910
59495 %WW-CM 0000211A PRINT (0,3400)
59500 %WW-CM 00002121 5940 MESS$ = 'MODIFY/DELETE/nOtes/Sales/sHip-to/TAB'
59600 %WW-CM 0000212A GOSUB 9000
59620 %WW-CM 0000212F IF POS(AN$,'MODIFY') EQ 1 GOTO 5910
59640 %WW-CM 00002148 WRITE (C1R,0105)
59660 %WW-CM 0000214F IF AN$ EQ 'DELETE' DELETE (C1R)KEY=CNBR$,EXCP=8560
59680 %WW-CM 00002168 IF POS(AN$,'SALES') EQ 1 GOTO 5400
59700 %WW-CM 00002181 IF AN$ EQ 'O' GOTO 5500
59720 %WW-CM 00002194 IF AN$ EQ 'H' GOTO 5700
59740 %WW-CM 000021A7 IF AN$ EQ '' GOSUB 7000 & GOTO 5100
59760 %WW-CM 000021BF GOTO 5940
59780 %WW-CM 000021C4 !
60000 %WW-CM 000021C4 !
60100 %WW-CM 000021C4 6000 POS = 20
60110 %WW-CM 000021CE LINE = FLDNBR + 2
60120 %WW-CM 000021DD 6010 PRINT (0,95)
60130 %WW-CM 000021E4 ON FLDNBR GOTO 6480,6480,_
60140 %WW-CM 000021F5 6020,6040,6060,6080,6100,6120,6140,6160,6180,6200,_
60150 %WW-CM 0000221D 6220,6240,6260,6280,6300,6320,6340,6360,6380,6400,_
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 42
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
60160 %WW-CM 00002245 6480
60180 %WW-CM 00002249 !
60200 %WW-CM 00002249 6020 INPUT (0) CNAME$
60220 %WW-CM 00002254 RETURN
60240 %WW-CM 00002255 !
60400 %WW-CM 00002255 6040 INPUT (0) CADR1$
60420 %WW-CM 00002260 RETURN
60440 %WW-CM 00002261 !
60600 %WW-CM 00002261 6060 INPUT (0) CADR2$
60620 %WW-CM 0000226C RETURN
60640 %WW-CM 0000226D !
60800 %WW-CM 0000226D 6080 !!!! INPUT (0,3900) !CCITY$;CSTATE$;CZIP$
60802 %WW-CM 0000226D INPUT (0) CCITY$
60804 %WW-CM 00002278 INPUT (0) CSTATE$
60806 %WW-CM 00002283 INPUT (0) CZIP$
60820 %WW-CM 0000228E RETURN
60840 %WW-CM 0000228F !
61000 %WW-CM 0000228F 6100 INPUT (0) CATTN$
61020 %WW-CM 0000229A RETURN
61040 %WW-CM 0000229B !
61050 %WW-CM 0000229B 6120 PRINT(0,CURSPOSREM) !REMEMBER CURSOR POSTION
61200 %WW-CM 000022A2 INPUT (0) CASRT$
61205 %WW-CM 000022AD IF ZCOID$ EQ 'QU' AND STRIP(CASRT$) EQ '' _
61207 %WW-CM 000022C1 PRINT(0,CURSPOSRES) &_ !RESTORE CURSOR POSTION
61209 %WW-CM 000022D6 GOTO 6120
61220 %WW-CM 000022DB RETURN
61240 %WW-CM 000022DC !
61400 %WW-CM 000022DC 6140 INPUT (0,3910) !CPHONE1$;CPHONE2$;CFAX$
61420 %WW-CM 000022E3 RETURN
61440 %WW-CM 000022E4 !
61600 %WW-CM 000022E4 6160 INPUT (0) CEMAIL$
61620 %WW-CM 000022EF RETURN
61640 %WW-CM 000022F0 !
61650 %WW-CM 000022F0 6180 IF ZREPFLG EQ 1 THEN !THIS TERMINAL
61660 %WW-CM 000022FF IF STRIP(CSNBR$) EQ '' CSNBR$=ZREPDEF$ &_ !ENTER OR CHANG
61670 %WW-CM 0000231C CAREP$='Y'
61680 %WW-CM 00002325 RETURN
61690 %WW-CM 00002326 ENDIF
61700 %WW-CM 00002326 INPUT (0,3920) & SNAME$ = '' !CSNBR$;CAREP$
61708 %WW-CM 00002336 !
61710 %WW-CM 00002336 IF SUB(CSNBR$,1,1) EQ '?' ENTER 'DLG4S1' &_
61740 %WW-CM 00002358 INPUT(#) CSNBR$
61750 %WW-CM 00002363 !
61802 %WW-CM 00002363 READ (S1,0400)KEY=CSNBR$,EXCP=8600 & PRINT (0,3030)
61803 %WW-CM 00002379 6184 IF CAREP$ EQ '' OR CAREP$ EQ ' ' CAREP$='Y' !11/29/95, SEH
61812 %WW-CM 0000239E IF POS(CAREP$,'YN') EQ 0 POS = 40 & GOTO 6010
61820 %WW-CM 000023C1 RETURN
61840 %WW-CM 000023C2 !
62000 %WW-CM 000023C2 6200 INPUT (0) CRESALE$
62005 %WW-CM 000023CD INPUT(0) CRESDTE$
62020 %WW-CM 000023D8 RETURN
62040 %WW-CM 000023D9 !
62200 %WW-CM 000023D9 6220 INPUT (0) CCTYPE$
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 43
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
62210 %WW-CM 000023E4 IF ZCOID$ EQ 'PO' AND POS(CCTYPE$,'P*S*B*R') EQ 0 _
62220 %WW-CM 000023FC MESS$ = 'VALID CUSTOMER TYPES ARE P, S, B, R - ENTER' & _
62230 %WW-CM 0000240F GOSUB 9000 & GOTO 6000
62250 %WW-CM 00002419 INPUT (0) CRANK$
62260 %WW-CM 00002424 IF POS(CCTYPE$,'SB') NE 0 OR ZCOID$ EQ 'PO' _
62270 %WW-CM 00002438 PRINT (0,3026)
62280 %WW-CM 0000244D RETURN
62290 %WW-CM 0000244E !
62400 %WW-CM 0000244E 6240 INPUT (0) CLTYPE$
62420 %WW-CM 00002459 6242 INPUT (0) CCONSWHS$
62430 %WW-CM 00002464 IF CCONSWHS$ NE '' _
62440 %WW-CM 00002464 READ (M1C,0650)KEY='W'+CCONSWHS$,EXCP=8640
62480 %WW-CM 0000248B 6248 RETURN
62490 %WW-CM 0000248C !
62600 %WW-CM 0000248C 6260 INPUT (0) CTERMCD$
62604 %WW-CM 00002497 IF SUB(CTERMCD$,1,1) EQ '?' AN$='T' &_
62608 %WW-CM 000024BC PRINT(#) AN$ &_
62612 %WW-CM 000024C7 ENTER 'DLG4M1C' &_
62616 %WW-CM 000024CD INPUT(#) CTERMCD$
62618 %WW-CM 000024D8 !
62619 %WW-CM 000024D8 IF (ZCOID$ EQ 'JT' OR ZCOID$ EQ 'DE') AND CTERMCD$ EQ '' CTERMCD
62621 %WW-CM 0000250B TERMSDSC$ = ''
62630 %WW-CM 00002514 READ (M1C,0650)KEY='T'+CTERMCD$ ,EXCP=8580
62632 %WW-CM 0000252D TERMSDSC$ = MCDESC$
62634 %WW-CM 00002536 PRINT (0,3040)
62640 %WW-CM 0000253D RETURN
62660 %WW-CM 0000253E !
62800 %WW-CM 0000253E 6280 INPUT (0) CCREDLIM
62820 %WW-CM 00002549 RETURN
62840 %WW-CM 0000254A !
63000 %WW-CM 0000254A 6300 INPUT (0,3930) !CDISCPCT;CDSCFLG$
63020 %WW-CM 00002551 RETURN
63040 %WW-CM 00002552 !
63200 %WW-CM 00002552 6320 INPUT (0,3940) !CDTEEST$;CPRCLST$
63201 %WW-CM 00002559 CDTEEST$=STRIP(CDTEEST$)
63202 %WW-CM 00002568 IF CDTEEST$ EQ '' CDTEEST$=ZDATE$
63203 %WW-CM 0000257F XDATE$ = CDTEEST$ & GOSUB DTCHK & IF DATEOK EQ 0 GOTO 6000
63204 %WW-CM 000025A1 CDTEEST$ = XDATE$
63206 %WW-CM 000025AA !!!! XDATE$ = CPRCLST$ & GOSUB DTCHK
63208 %WW-CM 000025AA !!!! IF DATEOK EQ 0 POS = 55 & GOTO 6010
63210 %WW-CM 000025AA !!!! CPRCLST$ = XDATE$
63220 %WW-CM 000025AA RETURN
63240 %WW-CM 000025AB !
63400 %WW-CM 000025AB 6340 INPUT (0) CCRALRT$
63405 %WW-CM 000025B6 INPUT (0) CAREA$
63410 %WW-CM 000025C1 INPUT (0) CHOLD2$
63420 %WW-CM 000025CC RETURN
63440 %WW-CM 000025CD !
63600 %WW-CM 000025CD 6360 INPUT (0) CCOMMDUE$
63602 %WW-CM 000025D8 IF CCOMMDUE$ NE '' AND POS(CCOMMDUE$,'PI ') EQ 0 GOTO 6000
63607 %WW-CM 000025FF 6365 PRINT(0, CURSPOSREM)
63612 %WW-CM 00002606 INPUT(0) COPARPFL$
63614 %WW-CM 00002611 IF COPARPFL$ EQ '' COPARPFL$='Y'
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 44
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
63615 %WW-CM 00002628 IF COPARPFL$ NE 'Y' AND COPARPFL$ NE 'N' PRINT(0,CURSPOSRES) &_
63616 %WW-CM 0000264B GOTO 6365
63620 %WW-CM 00002650 RETURN
63640 %WW-CM 00002651 !
63660 %WW-CM 00002651 6380 INPUT (0) CMBXCP$
63665 %WW-CM 0000265C INPUT(0) CWEBPASS$
63680 %WW-CM 00002667 RETURN
63700 %WW-CM 00002668 !
63710 %WW-CM 00002668 6400 PRINT (#) CCTYPE$ & INPUT (#) CCTYPE$
63720 %WW-CM 0000267E IF POS(CCTYPE$,'SB') NE 0 OR ZCOID$ EQ 'PO' INPUT (0,4090)
63730 %WW-CM 000026A7 RETURN
63740 %WW-CM 000026A8 !
64800 %WW-CM 000026A8 6480 RETURN
64820 %WW-CM 000026A9 !
65000 %WW-CM 000026A9 ! ========== SHIP-TO FIELD ENTRY ==========
65100 %WW-CM 000026A9 6500 POS = 0 & LINE = FLDNBR + 5 & PRINT (0,95)
65120 %WW-CM 000026C9 ON FLDNBR GOTO 6680,6680,_
65140 %WW-CM 000026DA 6520,6540,6560,6580,6600,_
65160 %WW-CM 000026EE 6680
65200 %WW-CM 000026F2 6520 INPUT (0) CSNAME$
65220 %WW-CM 000026FD RETURN
65240 %WW-CM 000026FE !
65400 %WW-CM 000026FE 6540 INPUT (0) CSADR1$
65420 %WW-CM 00002709 RETURN
65440 %WW-CM 0000270A !
65600 %WW-CM 0000270A 6560 INPUT (0) CSADR2$
65620 %WW-CM 00002715 RETURN
65640 %WW-CM 00002716 !
65800 %WW-CM 00002716 6580 !!!! INPUT (0,3960) !CSCITY$;CSSTATE$;CSZIP$
65802 %WW-CM 00002716 INPUT (0) CSCITY$
65804 %WW-CM 00002721 INPUT (0) CSSTATE$
65806 %WW-CM 0000272C INPUT (0) CSZIP$
65820 %WW-CM 00002737 RETURN
65840 %WW-CM 00002738 !
66000 %WW-CM 00002738 6600 INPUT (0) CSATTN$
66020 %WW-CM 00002743 RETURN
66040 %WW-CM 00002744 !
66800 %WW-CM 00002744 6680 RETURN
66820 %WW-CM 00002745 !
66990 %WW-CM 00002745 !
67000 %WW-CM 00002745 ! ========== EMPLOYEE EMAIL ENTRY ==========
67010 %WW-CM 00002745 6700 POS = 0 & LINE = FLDNBR + 5 & PRINT (0,95)
67020 %WW-CM 00002765 ON FLDNBR GOTO 6790,6790,_
67030 %WW-CM 00002776 6720,6740,6760,6780,6784,_
67040 %WW-CM 0000278A 6790
67050 %WW-CM 0000278E 6720 INPUT (0) CEMADDR$
67060 %WW-CM 00002799 RETURN
67070 %WW-CM 0000279A !
67080 %WW-CM 0000279A 6740 INPUT (0) CEMNAME$
67090 %WW-CM 000027A5 RETURN
67100 %WW-CM 000027A6 !
67110 %WW-CM 000027A6 6760 INPUT (0) CEMPHONE$
67120 %WW-CM 000027B1 RETURN
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 45
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
67130 %WW-CM 000027B2 !
67140 %WW-CM 000027B2 6780 INPUT (0) CEMJOBCD$
67150 %WW-CM 000027BD IF SUB(CEMJOBCD$,1,1) EQ '?' THEN
67160 %WW-CM 000027D9 AN$ = 'J' & PRINT (#) AN$
67170 %WW-CM 000027ED ENTER 'DLG4M1C'
67180 %WW-CM 000027F3 INPUT (#) CEMJOBCD$
67190 %WW-CM 000027FE ENDIF
67200 %WW-CM 000027FE READ (M1C,0650)KEY='J'+CEMJOBCD$,EXCP=8620
67210 %WW-CM 00002817 PRINT (0,3340)
67220 %WW-CM 0000281E RETURN
67300 %WW-CM 0000281F !
67310 %WW-CM 0000281F 6784 INPUT (0,3314)
67320 %WW-CM 00002826 RETURN
67330 %WW-CM 00002827 !
67340 %WW-CM 00002827 6790 RETURN
67350 %WW-CM 00002828 !
67990 %WW-CM 00002828 !
68000 %WW-CM 00002828 ! ========== CUSTOMER CREDIT CARD ENTRY ==========
68010 %WW-CM 00002828 6800 POS = 0 & LINE = FLDNBR + 5 & PRINT (0,95)
68020 %WW-CM 00002848 ON FLDNBR GOTO 6890,6890,_
68030 %WW-CM 00002859 6810,6820,6830,6840,6850,_
68040 %WW-CM 0000286D 6890
68042 %WW-CM 00002871 6810 INPUT (0) CC16$ ! TLF 12/01/2009, WAS CCCNUM$
68044 %WW-CM 0000287C CC16$ = PAD(CC16$) ! ADDED THIS TO INSURE THAT IF IN PARTIAL DI
68046 %WW-CM 0000288B IF SUB(CC16$,9,8) NE X$ _ ! THE C/C # IS NOT WRITTEN OUT BADLY
68048 %WW-CM 00002899 CCCNUM$ = CC16$
68052 %WW-CM 000028B0 DISPCC$ = CCCNUM$
68054 %WW-CM 000028B9 IF FULLCC$ NE 'Y' _
68056 %WW-CM 000028B9 DISPCC$ = SUB(CCCNUM$,1,8) + X$
68060 %WW-CM 000028E7 RETURN
68070 %WW-CM 000028E8 !
68080 %WW-CM 000028E8 6820 INPUT (0) CCCTYPE$
68090 %WW-CM 000028F3 IF SUB(CCCTYPE$,1,1) EQ '?' THEN
68100 %WW-CM 0000290F AN$ = 'D' & PRINT (#) AN$
68110 %WW-CM 00002923 ENTER 'DLG4M1C'
68120 %WW-CM 00002929 INPUT (#) CCCTYPE$
68130 %WW-CM 00002934 ENDIF
68140 %WW-CM 00002934 READ (M1C,0650)KEY='D'+CCCTYPE$,EXCP=8630
68150 %WW-CM 0000294D PRINT (0,3370)
68200 %WW-CM 00002954 RETURN
68210 %WW-CM 00002955 !
68220 %WW-CM 00002955 6830 INPUT (0) CCCEXPDT$
68222 %WW-CM 00002960 AN = POS('/',CCCEXPDT$)
68224 %WW-CM 0000296F IF AN EQ 0 GOTO 6800
68226 %WW-CM 00002983 IF AN EQ 2 CCCEXPDT$ = '0' + CCCEXPDT$
68228 %WW-CM 000029A4 XDATE$ = SUB(CCCEXPDT$,1,3) + '01/'
68230 %WW-CM 000029C4 XDATE$ = XDATE$ + SUB(CCCEXPDT$,4,4)
68232 %WW-CM 000029E4 GOSUB DTCHK
68234 %WW-CM 000029E9 IF DATEOK EQ 0 MESS$ = 'INVALID DATE - ENTER' & _
68236 %WW-CM 00002A01 GOSUB 9000 & GOTO 6800
68238 %WW-CM 00002A0B RETURN
68240 %WW-CM 00002A0C !
68250 %WW-CM 00002A0C 6840 INPUT (0) CCCNAME$
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 46
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
68320 %WW-CM 00002A17 RETURN
68330 %WW-CM 00002A18 !
68340 %WW-CM 00002A18 6850 INPUT (0) CCCBANK$
68350 %WW-CM 00002A23 RETURN
68360 %WW-CM 00002A24 !
68370 %WW-CM 00002A24 6890 RETURN
68380 %WW-CM 00002A25 !
69600 %WW-CM 00002A25 ! ========== INPUT DESIGNER INFO ==========
69610 %WW-CM 00002A25 !
69620 %WW-CM 00002A25 6960 !
69630 %WW-CM 00002A25 POS = 3 & LINE = FLDNBR + 3
69640 %WW-CM 00002A3E PRINT (0, 95)
69650 %WW-CM 00002A45 INPUT (0,4080)
69660 %WW-CM 00002A4C RETURN
69670 %WW-CM 00002A4D !
70000 %WW-CM 00002A4D ! ========== MAIN SCREEN ==========
70010 %WW-CM 00002A4D 7000 GOSUB 7300
70020 %WW-CM 00002A52 GOSUB 7080
70030 %WW-CM 00002A57 PRINT (#) CCTYPE$ & INPUT (#) CCTYPE$
70040 %WW-CM 00002A6D IF POS(CCTYPE$,'SB') NE 0 OR ZCOID$ EQ 'PO' THEN
70050 %WW-CM 00002A8F PRINT (0,3026)
70060 %WW-CM 00002A96 ELSE
70070 %WW-CM 00002A9B PRINT (0,3028)
70080 %WW-CM 00002AA2 ENDIF
70090 %WW-CM 00002AA2 RETURN
70100 %WW-CM 00002AA3 !
70200 %WW-CM 00002AA3 ! ========== DISPLAY EMAIL ADDRESSES ==========
70210 %WW-CM 00002AA3 !
70220 %WW-CM 00002AA3 7020 PRINT (0,3320) & POS = 0 & LINE = 11
70230 %WW-CM 00002ABE READ (C1E,0137)KEY=CEMCNBR$,EXCP=7024
70240 %WW-CM 00002ACD 7024 KEYC1E$ = KEY(C1E,EXCP=7060)
70250 %WW-CM 00002ADD IF SUB(KEYC1E$,1,6) NE CEMCNBR$ GOTO 7060
70260 %WW-CM 00002AFE INQUIRE (C1E,0137)
70270 %WW-CM 00002B05 !!!! IPATTNME$ = SUB(KEY$,2,28)
70280 %WW-CM 00002B05 !!!! IF LINE EQ 23 AND POS EQ 0 LINE = 19 & POS = 40
70290 %WW-CM 00002B05 !!!! IF LINE EQ 23 AND POS EQ 27 LINE = 19 & POS = 54
70300 %WW-CM 00002B05 IF LINE EQ 23 GOTO 7040 !!!! AND POS EQ 40 GOTO 7420
70310 %WW-CM 00002B19 7030 !!!! COUNT = COUNT + 1
70320 %WW-CM 00002B19 !!!! WORK = 100 + COUNT
70330 %WW-CM 00002B19 !!!! LN$ = SUB(STR(WORK),2,2)
70340 %WW-CM 00002B19 !!!! PTRN$(COUNT) = IPATTERN$
70350 %WW-CM 00002B19 PRINT (0,3330)
70360 %WW-CM 00002B20 LINE = LINE + 1
70370 %WW-CM 00002B2F GOTO 7024
70380 %WW-CM 00002B34 !
70390 %WW-CM 00002B34 7040 MESS$ = ' FOR NEXT PAGE/# to select/'
70400 %WW-CM 00002B3D MESS$ = MESS$ + 'Restart/End'
70410 %WW-CM 00002B4F GOSUB 9000
70420 %WW-CM 00002B54 IF AN$ EQ '' _
70430 %WW-CM 00002B54 POS = 0 & LINE = 11 & _
70440 %WW-CM 00002B76 PRINT (0,3320) & GOTO 7030
70450 %WW-CM 00002B82 IF AN$ EQ 'E' OR AN$ EQ 'END' _
70460 %WW-CM 00002B90 CEMSEQ$ = '' & GOTO 7072
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 47
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
70470 %WW-CM 00002BAC !!!! IF AN$ EQ 'N' OR AN$ EQ 'NEW' INBR$ = '?' & GOTO 7400
70480 %WW-CM 00002BAC IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' _
70490 %WW-CM 00002BBA GOTO 7020
70500 %WW-CM 00002BCD !!!! AN = NUM(AN$,ERR)
70510 %WW-CM 00002BCD !!!! IF AN LT 1 OR AN GT 10 OR PTRN$(AN) EQ '' _
70520 %WW-CM 00002BCD !!!! MESS$ = 'INVALID RESPONSE - ENTER' &_
70530 %WW-CM 00002BCD !!!! GOSUB 9050 & GOTO 7420
70540 %WW-CM 00002BCD CEMSEQ$ = AN$
70550 %WW-CM 00002BD6 GOTO 7072
70560 %WW-CM 00002BDB !
70570 %WW-CM 00002BDB 7060 MESS$ = 'END OF FILE. # to select/'
70580 %WW-CM 00002BE4 MESS$ = MESS$ + 'Restart/End'
70582 %WW-CM 00002BF6 IF LINE EQ 11 _ ! NO RECORDS FOUND
70584 %WW-CM 00002BF6 MESS$ = 'NO EMAIL ADDRESSES ON FILE - ENTER'
70590 %WW-CM 00002C0E GOSUB 9000
70600 %WW-CM 00002C13 IF AN$ EQ 'E' OR AN$ EQ 'END' OR LINE EQ 11 _
70610 %WW-CM 00002C2F CEMSEQ$ = '' & GOTO 7072
70620 %WW-CM 00002C4C !!!! IF AN$ EQ 'N' OR AN$ EQ 'NEW' INBR$ = '?' & GOTO 7400
70630 %WW-CM 00002C4C IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' _
70640 %WW-CM 00002C5A GOTO 7020
70650 %WW-CM 00002C6D !!!! AN = NUM(AN$,ERR)
70660 %WW-CM 00002C6D !!!! IF AN LT 1 OR AN GT 10 OR PTRN$(AN) EQ '' _
70670 %WW-CM 00002C6D !!!! MESS$ = 'INVALID RESPONSE - ENTER' &_
70680 %WW-CM 00002C6D !!!! GOSUB 9050 & GOTO 7430
70690 %WW-CM 00002C6D CEMSEQ$ = AN$
70700 %WW-CM 00002C76 !!!! GOTO 7448
70710 %WW-CM 00002C76 !
70720 %WW-CM 00002C76 7072 PRINT (0,3320)
70730 %WW-CM 00002C7D RETURN
70740 %WW-CM 00002C7E !
70790 %WW-CM 00002C7E !
70800 %WW-CM 00002C7E ! ========== DISPLAY BACKGROUND ==========
70810 %WW-CM 00002C7E !
70820 %WW-CM 00002C7E 7080 !
70830 %WW-CM 00002C7E PRINT (0,3000) & PRINT (0,3020) & PRINT (0,3024) !FOREGROUND
70840 %WW-CM 00002C93 IF ZCOID$ NE 'PO' THEN ! TLF 04/05/2004
70850 %WW-CM 00002CA1 PRINT (0,3952)
70860 %WW-CM 00002CA8 ELSE
70870 %WW-CM 00002CAD PRINT (0,3954)
70880 %WW-CM 00002CB4 ENDIF
70890 %WW-CM 00002CB4 RETURN
70900 %WW-CM 00002CB5 !
71000 %WW-CM 00002CB5 7100 ! ========== GET BASE CUSTOMER INFO ==========
71017 %WW-CM 00002CB5 PRINT (0,3600) & CCTYPE$ = ''
71018 %WW-CM 00002CC5 IF STRIP(ACCTFLG$) NE '' CNBR$=NEWCUST$ &_
71019 %WW-CM 00002CE2 ACCTFLG$='' & PRINT(0,3975)
71020 %WW-CM 00002CF2 IF SUB(PROGID$,1,7) EQ 'WWOERET' _ ! RETURN TO OE
71030 %WW-CM 00002D00 COMBLK$ = CNBR$ & _
71040 %WW-CM 00002D17 CLOSE & OPEN (0) TERM$ & _
71050 %WW-CM 00002D1F PROGID$ = 'WWCM' & RUN 'WWOE'
71060 %WW-CM 00002D2E IF SUB(PROGID$,1,5) EQ 'WWCNL' _
71070 %WW-CM 00002D3C CNBR$ = SUB(COMBLK$,1,6) & _
71080 %WW-CM 00002D61 PRINT (0,3974) & PROGID$ = 'WWCM' & GOTO 7120
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 48
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
71090 %WW-CM 00002D76 IF SUB(PROGID$,1,4) EQ 'WWOE' _
71100 %WW-CM 00002D84 CNBR$ = SUB(COMBLK$,1,6) & _
71110 %WW-CM 00002DA9 PRINT (0,3974) & PROGID$ = 'WWOERET' & GOTO 7120
71200 %WW-CM 00002DBE INPUT (0) CNBR$
71300 %WW-CM 00002DC9 IF CNBR$ EQ '' OR CNBR$ EQ 'END' GOTO 7180
71320 %WW-CM 00002DEA IF CNBR$ EQ '?' _
71340 %WW-CM 00002DEA CLOSE & OPEN (0) TERM$ &_
71360 %WW-CM 00002E00 POPALL & RUN 'WWCNL'
71365 %WW-CM 00002E07 WRTIMAGE = 0
71380 %WW-CM 00002E11 IF CNBR$ NE 'NEW' CNBR$ = SUB('000000',1,6-LEN(CNBR$)) + CNBR$
71400 %WW-CM 00002E4B 7120 READ (C1A,0100)KEY=CNBR$,EXCP=8400 & RST$ = 'R'
71420 %WW-CM 00002E63 XASRT$ = CASRT$ & XZIP$ = CZIP$
71436 %WW-CM 00002E75 GOSUB 7700 & XPHONE1$ = XPHONE$ & ZPHONE7$ = XPHONE7$
71440 %WW-CM 00002E8C GOSUB 7900
71500 %WW-CM 00002E91 !!!! PRINT (0,3000) & PRINT (0,3020) & PRINT (0,3024) !FOREGROUND
71600 %WW-CM 00002E91 7180 RETURN
71700 %WW-CM 00002E92 !
72000 %WW-CM 00002E92 ! ========== 'NEXT' OPTION ==========
72100 %WW-CM 00002E92 7200 IF POS(RST$,'XN') NE 0 GOSUB 7600 & GOSUB 5250
72200 %WW-CM 00002EB0 7220 CNBR$ = KEY(C1A,EXCP=7280)
72400 %WW-CM 00002EC0 READ (C1A,0100)KEY=CNBR$,EXCP=7260 & RST$ = 'R'
72420 %WW-CM 00002ED8 !
72440 %WW-CM 00002ED8 XASRT$ = CASRT$ & XZIP$ = CZIP$
72460 %WW-CM 00002EEA GOSUB 7700 & XPHONE1$ = XPHONE$ & ZPHONE7$ = XPHONE7$
72500 %WW-CM 00002F01 RETURN
72600 %WW-CM 00002F02 !
72800 %WW-CM 00002F02 7260 IF EXCP EQ 33 RECTP$ = ' CUSTOMER' & GOTO 9100
72820 %WW-CM 00002F1F ERROR
72840 %WW-CM 00002F20 !
72900 %WW-CM 00002F20 7280 READ (C1A,0100)KEY='@00@',EXCP=7220
72920 %WW-CM 00002F2F GOTO 7220
72940 %WW-CM 00002F34 !
73000 %WW-CM 00002F34 ! ========== CLEAR & RESET SCREEN ==========
73100 %WW-CM 00002F34 7300 PRINT (0,120)
73200 %WW-CM 00002F3B POS = TTLPOS & LINE = 0 & PRINT (0,110)
73300 %WW-CM 00002F56 PRINT (0,3800)
73400 %WW-CM 00002F5D RETURN
73500 %WW-CM 00002F5E !
74000 %WW-CM 00002F5E ! ========== NEXT SHIP-TO ==========
74110 %WW-CM 00002F5E 7400 KEYC1C$ = KEY(C1C,EXCP=5712) !*** 7490)
74120 %WW-CM 00002F6E IF SUB(KEYC1C$,1,6) NE CNBR$ GOTO 5712 !*** _
74130 %WW-CM 00002F8F !*** READ (C1A,0100)KEY=SUB(KEYC1C$,1,6),EXCP=7495
74140 %WW-CM 00002F8F EXTRACT (C1C,0140)
74150 %WW-CM 00002F96 GOTO 5710
74160 %WW-CM 00002F9B !
74190 %WW-CM 00002F9B !
74200 %WW-CM 00002F9B ! ========== NEXT EMAIL ADDRESS ==========
74210 %WW-CM 00002F9B 7420 KEYC1E$ = KEY(C1E,EXCP=5752) !*** 7490)
74220 %WW-CM 00002FAB IF SUB(KEYC1E$,1,6) NE CNBR$ GOTO 5752 !*** _
74230 %WW-CM 00002FCC !*** READ (C1A,0100)KEY=SUB(KEYC1C$,1,6),EXCP=7495
74240 %WW-CM 00002FCC EXTRACT (C1E,0137)
74250 %WW-CM 00002FD3 GOTO 5750
74260 %WW-CM 00002FD8 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 49
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
74290 %WW-CM 00002FD8 !
74300 %WW-CM 00002FD8 ! ========== NEXT CREDIT CARD ==========
74310 %WW-CM 00002FD8 7430 KEYC1D$ = KEY(C1D,EXCP=5852) !*** 7490)
74320 %WW-CM 00002FE8 IF SUB(KEYC1D$,1,6) NE CNBR$ GOTO 5852 !*** _
74330 %WW-CM 00003009 !*** READ (C1A,0100)KEY=SUB(KEYC1C$,1,6),EXCP=7495
74340 %WW-CM 00003009 EXTRACT (C1D,0143)
74350 %WW-CM 00003010 GOTO 5850
74360 %WW-CM 00003015 !
74400 %WW-CM 00003015 ! ========== GET PASSWORD ==========
74410 %WW-CM 00003015 !
74420 %WW-CM 00003015 7440 !
74430 %WW-CM 00003015 CLOSE (PW) & FLNM$ = ZZCO$ + 'PM'
74440 %WW-CM 0000302A OPEN (PW) FLNM$
74450 %WW-CM 00003031 READ (PW,0089)KEY=PROGID$,EXCP=7446
74460 %WW-CM 00003040 7446 !
74470 %WW-CM 00003040 CLOSE (PW)
74480 %WW-CM 00003043 RETURN
74490 %WW-CM 00003044 !
74990 %WW-CM 00003044 !
75000 %WW-CM 00003044 ! ========== DISPLAY EMAIL ADDRESSES ==========
75010 %WW-CM 00003044 !
75020 %WW-CM 00003044 7520 PRINT (0,3320) & POS = 0 & LINE = 11
75030 %WW-CM 0000305F READ (C1D,0143)KEY=CCCCNBR$,EXCP=7524
75040 %WW-CM 0000306E 7524 KEYC1D$ = KEY(C1D,EXCP=7560)
75050 %WW-CM 0000307E IF SUB(KEYC1D$,1,6) NE CCCCNBR$ GOTO 7560
75060 %WW-CM 0000309F INQUIRE (C1D,0143)
75062 %WW-CM 000030A6 CCCNUM$ = DECRYPT(CCCNUM$,SEED3$)
75070 %WW-CM 000030B9 DISPCC$ = CCCNUM$
75080 %WW-CM 000030C2 IF FULLCC$ NE 'Y' _
75090 %WW-CM 000030C2 DISPCC$ = SUB(CCCNUM$,1,8) + X$
75100 %WW-CM 000030F0 IF LINE EQ 23 GOTO 7540 !!!! AND POS EQ 40 GOTO 7420
75110 %WW-CM 00003104 7530 !!!! COUNT = COUNT + 1
75120 %WW-CM 00003104 !!!! WORK = 100 + COUNT
75130 %WW-CM 00003104 !!!! LN$ = SUB(STR(WORK),2,2)
75140 %WW-CM 00003104 !!!! PTRN$(COUNT) = IPATTERN$
75150 %WW-CM 00003104 PRINT (0,3360)
75160 %WW-CM 0000310B LINE = LINE + 1
75170 %WW-CM 0000311A GOTO 7524
75180 %WW-CM 0000311F !
75190 %WW-CM 0000311F 7540 MESS$ = ' FOR NEXT PAGE/# to select/'
75200 %WW-CM 00003128 MESS$ = MESS$ + 'Restart/End'
75210 %WW-CM 0000313A GOSUB 9000
75220 %WW-CM 0000313F IF AN$ EQ '' _
75230 %WW-CM 0000313F POS = 0 & LINE = 11 & _
75240 %WW-CM 00003161 PRINT (0,3360) & GOTO 7530
75250 %WW-CM 0000316D IF AN$ EQ 'E' OR AN$ EQ 'END' _
75260 %WW-CM 0000317B CCCSEQ$ = '' & GOTO 7572
75270 %WW-CM 00003197 !!!! IF AN$ EQ 'N' OR AN$ EQ 'NEW' INBR$ = '?' & GOTO 7400
75280 %WW-CM 00003197 IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' _
75290 %WW-CM 000031A5 GOTO 7520
75300 %WW-CM 000031B8 !!!! AN = NUM(AN$,ERR)
75310 %WW-CM 000031B8 !!!! IF AN LT 1 OR AN GT 10 OR PTRN$(AN) EQ '' _
75320 %WW-CM 000031B8 !!!! MESS$ = 'INVALID RESPONSE - ENTER' &_
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 50
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
75330 %WW-CM 000031B8 !!!! GOSUB 9050 & GOTO 7420
75340 %WW-CM 000031B8 CCCSEQ$ = AN$
75350 %WW-CM 000031C1 GOTO 7572
75360 %WW-CM 000031C6 !
75370 %WW-CM 000031C6 7560 MESS$ = 'END OF FILE. # to select/'
75380 %WW-CM 000031CF MESS$ = MESS$ + 'Restart/End'
75390 %WW-CM 000031E1 IF LINE EQ 11 _ ! NO RECORDS FOUND
75400 %WW-CM 000031E1 MESS$ = 'NO CREDIT CARDS ON FILE - ENTER'
75410 %WW-CM 000031F9 GOSUB 9000
75420 %WW-CM 000031FE IF AN$ EQ 'E' OR AN$ EQ 'END' OR LINE EQ 11 _
75430 %WW-CM 0000321A CCCSEQ$ = '' & GOTO 7572
75440 %WW-CM 00003237 !!!! IF AN$ EQ 'N' OR AN$ EQ 'NEW' INBR$ = '?' & GOTO 7400
75450 %WW-CM 00003237 IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' _
75460 %WW-CM 00003245 GOTO 7520
75470 %WW-CM 00003258 !!!! AN = NUM(AN$,ERR)
75480 %WW-CM 00003258 !!!! IF AN LT 1 OR AN GT 10 OR PTRN$(AN) EQ '' _
75490 %WW-CM 00003258 !!!! MESS$ = 'INVALID RESPONSE - ENTER' &_
75500 %WW-CM 00003258 !!!! GOSUB 9050 & GOTO 7430
75510 %WW-CM 00003258 CCCSEQ$ = AN$
75520 %WW-CM 00003261 !!!! GOTO 7448
75530 %WW-CM 00003261 !
75540 %WW-CM 00003261 7572 PRINT (0,3320)
75550 %WW-CM 00003268 RETURN
75560 %WW-CM 00003269 !
76000 %WW-CM 00003269 7600 ! ========== WRITE MASTER RECORD ==========
76020 %WW-CM 00003269 IF CNBR$ EQ 'NEW' OR CNBR$ EQ 'NEW ' _
76040 %WW-CM 00003277 GOSUB 7650 ! ASSIGN CUST # ROUTINE
76100 %WW-CM 0000328A 7610 WRITE (C1A,0100)KEY=CNBR$,EXCP=5000 & RST$ = ''
76110 %WW-CM 000032A2 WRITE (C1J,CstRec)KEY=CNBR$
76112 %WW-CM 000032AD IF ZCOID$ EQ 'HC' WRITE(VOREDT,CstRec) KEY=CNBR$
76120 %WW-CM 000032C6 CASRT$ = SUB(CASRT$ + ' ',1,20)
76140 %WW-CM 000032E6 CPHONE1$ = SUB(CPHONE1$ + ' ' ,1,16)
76160 %WW-CM 00003306 CZIP$ = SUB(CZIP$ + ' ' ,1,10)
76200 %WW-CM 00003326 WRITE (C1N,0102)KEY='N'+CASRT$ +CNBR$
76210 %WW-CM 00003344 GOSUB 7700
76220 %WW-CM 00003349 WRITE (C1N,0102)KEY='P'+XPHONE$ +CNBR$
76225 %WW-CM 00003367 IF ZCNL7$ NE ' ' _
76227 %WW-CM 00003367 WRITE (C1N,0102)KEY='Q'+XPHONE7$+CNBR$
76240 %WW-CM 00003393 WRITE (C1N,0102)KEY='Z'+CZIP$ +CNBR$
76260 %WW-CM 000033B1 IF XASRT$ NE CASRT$ DELETE (C1N)KEY='N'+XASRT$+CNBR$,EXCP=7620
76270 %WW-CM 000033DD 7620 GOSUB 7700
76280 %WW-CM 000033E2 IF XPHONE1$ NE XPHONE$ _
76300 %WW-CM 000033E2 DELETE (C1N)KEY='P'+XPHONE1$+CNBR$,EXCP=7622
76305 %WW-CM 0000340E 7622 IF ZPHONE7$ NE XPHONE7$ _
76307 %WW-CM 0000340E DELETE (C1N)KEY='Q'+ZPHONE7$+CNBR$,EXCP=7624
76320 %WW-CM 0000343A 7624 IF XZIP$ NE CZIP$ DELETE (C1N)KEY='Z'+XZIP$ +CNBR$,EXCP=7630
76400 %WW-CM 00003466 7630 GOSUB 5250
76420 %WW-CM 0000346B RETURN
76500 %WW-CM 0000346C !
76525 %WW-CM 0000346C 7650 EXTRACT (Z1,0002)KEY='*'+ZZCO$+'CNUM',EXCP=7670
76540 %WW-CM 0000348E LASTNUM = LASTNUM + .000001
76560 %WW-CM 0000349D WRITE (Z1,0002)KEY='*'+ZZCO$+'CNUM'
76580 %WW-CM 000034BB CNBR$ = SUB(STR(LASTNUM),2,6)
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 51
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
76600 %WW-CM 000034D8 READ (C1A,0000)KEY=CNBR$,EXCP=7640
76620 %WW-CM 000034E7 GOTO 7650
76640 %WW-CM 000034EC 7640 IF EXCP EQ 32 THEN
76644 %WW-CM 000034FB PRINT (0,3974)
76648 %WW-CM 00003502 MESS$ = 'PLEASE NOTE CUST # ASSIGNED - ENTER'
76652 %WW-CM 0000350B GOSUB 9050
76655 %WW-CM 00003510 WRTIMAGE = 1
76656 %WW-CM 0000351A GOTO 7690
76660 %WW-CM 0000351F ENDIF
76664 %WW-CM 0000351F GOTO 7650
76680 %WW-CM 00003524 !
76700 %WW-CM 00003524 7670 IF EXCP EQ 32 _
76720 %WW-CM 00003524 LASTNUM = .900000 & _
76740 %WW-CM 0000353D WRITE (Z1,0002)KEY='*'+ZZCO$+'CNUM' & AGAIN
76760 %WW-CM 0000355C IF EXCP EQ 33 AGAIN
76780 %WW-CM 0000356C MESS$ = 'EXCP = ' + STR(EXCP)
76800 %WW-CM 00003584 MESS$ = MESS$ + ' ON Z1 CUST # (*WWCNUM) RECORD - ENTER'
76820 %WW-CM 00003596 GOSUB 9050
76840 %WW-CM 0000359B AGAIN
76860 %WW-CM 0000359C !
76880 %WW-CM 0000359C 7690 RETURN
76900 %WW-CM 0000359D !
77000 %WW-CM 0000359D ! ========== MASSAGE PHONE # ==========
77010 %WW-CM 0000359D !
77020 %WW-CM 0000359D 7700 !
77030 %WW-CM 0000359D XPHONE$ = ''
77040 %WW-CM 000035A6 CPHONE1$ = CPHONE1$ + ' '
77050 %WW-CM 000035B8 FOR AN = 1 TO 16
77060 %WW-CM 000035D1 CHAR1$ = SUB(CPHONE1$,AN,1)
77070 %WW-CM 000035E8 IF CHAR1$ GE '0' AND CHAR1$ LE '9' _
77080 %WW-CM 000035F6 XPHONE$ = XPHONE$ + CHAR1$
77090 %WW-CM 00003616 NEXT AN
77100 %WW-CM 0000362A XPHONE$ = XPHONE$ + ' '
77110 %WW-CM 0000363C IF ZCNL7$ NE ' ' THEN
77112 %WW-CM 0000364A XPHONE7$ = XPHONE$
77120 %WW-CM 00003653 AN = LEN(STRIP(XPHONE$))
77130 %WW-CM 00003664 IF AN GT 7 _
77140 %WW-CM 00003664 XPHONE7$ = SUB(XPHONE$,AN-6,7)
77150 %WW-CM 00003694 XPHONE7$ = SUB(XPHONE7$,1,7)
77160 %WW-CM 000036AB ENDIF
77170 %WW-CM 000036AB RETURN
77180 %WW-CM 000036AC !
78000 %WW-CM 000036AC ! ========== DELETE MASTER RECORD ==========
78100 %WW-CM 000036AC 7800 IF COPEN NE 0 OR CBAL NE 0 _ !IF BALANCES NE 0
78200 %WW-CM 000036BB MESS$ = 'BALANCE NOT AT 0 UNABLE TO DELETE' & _
78220 %WW-CM 000036D3 GOSUB 9000 & GOTO 5100
78290 %WW-CM 000036DD DELPASS$ = 'C'
78300 %WW-CM 000036E6 7810 FOR FL = 1 TO 6
78320 %WW-CM 000036FF FLNM$ = ZZCO$ + SUB('O2 O2H O2COR1 R1H M2P ',FL*4-3,4)
78340 %WW-CM 0000372D CLOSE (O2) & OPEN (O2) FLNM$
78344 %WW-CM 00003737 IF SUB(FLNM$,1,4) EQ 'WWO2' THEN
78346 %WW-CM 00003753 PARTKY07$ = DELPASS$ + CNBR$ & PARTKYLN = 7
78348 %WW-CM 0000376F ELSE
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 52
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
78350 %WW-CM 00003774 PARTKY07$ = CNBR$ & PARTKYLN = 6
78352 %WW-CM 00003787 ENDIF
78360 %WW-CM 00003787 READ (O2,0000)KEY=PARTKY07$,EXCP=7820
78380 %WW-CM 00003796 7820 KEYO2$ = KEY(O2,EXCP=7840)
78400 %WW-CM 000037A6 IF SUB(KEYO2$,1,PARTKYLN) EQ PARTKY07$ THEN
78410 %WW-CM 000037C2 IF DELPASS$ EQ 'C' _
78420 %WW-CM 000037C2 MESS$ = 'CUSTOMER RECORD ON ' + FLNM$ + ' - CANNOT DELETE'
78430 %WW-CM 000037EB IF DELPASS$ EQ 'S' _
78440 %WW-CM 000037EB MESS$ = 'SPECIFIER REC ON ' + FLNM$ + ' - CANNOT DELETE'
78450 %WW-CM 00003814 GOSUB 9000
78460 %WW-CM 00003819 GOTO 5100
78480 %WW-CM 0000381E ENDIF
78500 %WW-CM 0000381E 7840 NEXT FL
78504 %WW-CM 00003832 IF DELPASS$ EQ 'C' _
78508 %WW-CM 00003832 DELPASS$ = 'S' & GOTO 7810 ! CHECK AS SPECIFIER
78520 %WW-CM 0000384E 7845 DELETE (C1N)KEY='N'+CASRT$ +CNBR$,EXCP=7850
78530 %WW-CM 0000386C 7850 GOSUB 7700
78540 %WW-CM 00003871 DELETE (C1N)KEY='P'+XPHONE$+CNBR$,EXCP=7852
78560 %WW-CM 0000388F 7852 DELETE (C1N)KEY='Z'+CZIP$ +CNBR$,EXCP=7856
78580 %WW-CM 000038AD 7856 DELETE (C1N)KEY='Q'+XPHONE7$+CNBR$,EXCP=7858
78585 %WW-CM 000038CB 7858 !
78600 %WW-CM 000038CB RSTC$ = '' & DELETE (C1AC)KEY=CNBR$,EXCP=7860
78610 %WW-CM 000038DF 7860 DELETE (C1R )KEY=CNBR$,EXCP=7870
78620 %WW-CM 000038EA 7870 READ (C1C,0140)KEY=CNBR$,EXCP=7872
78630 %WW-CM 000038F9 7872 KEYC1C$ = KEY(C1C,EXCP=7874)
78640 %WW-CM 00003909 IF SUB(KEYC1C$,1,6) NE CNBR$ GOTO 7874
78650 %WW-CM 0000392A DELETE (C1C)KEY=KEYC1C$,EXCP=7872
78660 %WW-CM 00003935 GOTO 7872
78670 %WW-CM 0000393A 7874 DELETE (C1AC)KEY=CNBR$,EXCP=7876
78680 %WW-CM 00003945 7876 DELETE (C7A)KEY=CNBR$,EXCP=7878
78690 %WW-CM 00003950 7878 READ (C1E,0137)KEY=CNBR$,EXCP=7880
78700 %WW-CM 0000395F 7880 KEY$ = KEY(C1E,EXCP=7882)
78710 %WW-CM 0000396F IF SUB(KEY$,1,6) NE CNBR$ GOTO 7882
78720 %WW-CM 00003990 DELETE (C1E)KEY=KEY$,EXCP=7880
78730 %WW-CM 0000399B GOTO 7880
78740 %WW-CM 000039A0 7882 READ (C1D,0143)KEY=CNBR$,EXCP=7884
78750 %WW-CM 000039AF 7884 KEY$ = KEY(C1D,EXCP=7886)
78760 %WW-CM 000039BF IF SUB(KEY$,1,6) NE CNBR$ GOTO 7886
78770 %WW-CM 000039E0 DELETE (C1D)KEY=KEY$,EXCP=7884
78780 %WW-CM 000039EB GOTO 7884
78790 %WW-CM 000039F0 7886 DELETE (S1D)KEY=CNBR$,EXCP=7888
78800 %WW-CM 000039FB 7888 DELETE (CS1A)KEY=CNBR$,EXCP=7890
78810 %WW-CM 00003A06 7890 !
78900 %WW-CM 00003A06 7896 RST$ = '' & DELETE (C1A)KEY=CNBR$,EXCP=7898
78910 %WW-CM 00003A1A 7898 IF CONVERT EQ 1 GOTO 8045 !BACK TO MEMO SAMPLE CONVERT
78920 %WW-CM 00003A2E GOSUB 5250
78930 %WW-CM 00003A33 GOTO 5000
78940 %WW-CM 00003A38 !
79000 %WW-CM 00003A38 ! ========== GET DESCRIPTIONS TO DISPLAY ==========
79100 %WW-CM 00003A38 7900 TERMSDSC$ = ''
79110 %WW-CM 00003A41 READ (M1C,0650)KEY='T'+CTERMCD$,EXCP=7990
79120 %WW-CM 00003A5A TERMSDSC$ = MCDESC$
79200 %WW-CM 00003A63 7920 READ (S1,0400)KEY=CSNBR$,EXCP=7992
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 53
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
79300 %WW-CM 00003A72 7940 RETURN
79400 %WW-CM 00003A73 !
79900 %WW-CM 00003A73 7990 IF EXCP EQ 33 RECTP$ = ' TERMS' & GOTO 9100
79910 %WW-CM 00003A90 IF EXCP NE 32 ERROR
79920 %WW-CM 00003AA0 MCDESC$ = '* TERMS NOT ON FILE *'
79930 %WW-CM 00003AA9 GOTO 7920
79940 %WW-CM 00003AAE !
79950 %WW-CM 00003AAE 7992 IF EXCP EQ 33 RECTP$ = ' SALESMAN' & GOTO 9100
79960 %WW-CM 00003ACB IF EXCP NE 32 ERROR
79970 %WW-CM 00003ADB SNAME$ = '* SALESMAN NOT ON FILE *'
79980 %WW-CM 00003AE4 GOTO 7940
79990 %WW-CM 00003AE9 !
80000 %WW-CM 00003AE9 8000 !======== CONVERT MEMO ACCOUNT TO REGULAR ACCOUNT =========
80020 %WW-CM 00003AE9 !
80040 %WW-CM 00003AE9 MESS$='convert to New account/Current account/End' & AN$=''
80060 %WW-CM 00003AFB !
80080 %WW-CM 00003AFB DO WHILE AN$ EQ ''
80100 %WW-CM 00003B09 GOSUB 9000
80120 %WW-CM 00003B0E IF AN$ NE 'N' AND AN$ NE 'C' AND AN$ NE 'E' AN$=''
80140 %WW-CM 00003B41 LOOP
80160 %WW-CM 00003B46 !
80180 %WW-CM 00003B46 IF AN$ EQ 'E' RETURN
80220 %WW-CM 00003B55 ACCTFLG$=AN$
80340 %WW-CM 00003B5E OLDCUST$=CNBR$
80360 %WW-CM 00003B67 !
80380 %WW-CM 00003B67 IF ACCTFLG$ EQ 'N' THEN
80400 %WW-CM 00003B75 GOSUB 7650 !GET NEW ACCOUNT
80420 %WW-CM 00003B7A NEWCUST$=CNBR$
80440 %WW-CM 00003B83 ELSE
80460 %WW-CM 00003B88 MESS$='input current account number'
80480 %WW-CM 00003B91 GOSUB 9000
80500 %WW-CM 00003B96 IF AN$ EQ '' GOTO 8000
80520 %WW-CM 00003BA9 AN$ = SUB('000000',1,6-LEN(AN$)) + AN$
80525 %WW-CM 00003BD5 CLOSE(C1A2) & FLNM$=ZZCO$+'C1A' & OPEN(C1A2) FLNM$
80540 %WW-CM 00003BF1 READ(C1A2,0101) KEY=AN$,EXCP=8000
80545 %WW-CM 00003C00 NEWCUST$=AN$
80560 %WW-CM 00003C09 MESS$=SUB(XNAME$,1,25)+','+SUB(XCITY$,1,15) +' correct(Y/N)?'
80580 %WW-CM 00003C4E AN$=''
80581 %WW-CM 00003C57 !
80585 %WW-CM 00003C57 DO WHILE AN$ EQ ''
80587 %WW-CM 00003C65 GOSUB 9000
80589 %WW-CM 00003C6A IF AN$ NE 'Y' AND AN$ NE 'N' AN$=''
80591 %WW-CM 00003C8F LOOP
80593 %WW-CM 00003C94 !
80595 %WW-CM 00003C94 IF AN$ EQ 'N' GOTO 8000
80600 %WW-CM 00003CA7 ENDIF
80610 %WW-CM 00003CA7 !
80615 %WW-CM 00003CA7 CLOSE(M2P) & FLNM$=ZZCO$+'M2P' & OPEN(M2P) FLNM$
80620 %WW-CM 00003CC3 CLOSE(M1A) & FLNM$=ZZCO$+'M1A' & OPEN(M1A) FLNM$
80624 %WW-CM 00003CDF CLOSE(M1AH) & FLNM$=ZZCO$+'M1AH' & OPEN(M1AH) FLNM$,EXCP=8007
80625 %WW-CM 00003CFF 8007 CLOSE(M1H) & FLNM$=ZZCO$+'M1H' & OPEN(M1H) FLNM$
80630 %WW-CM 00003D1B !
80660 %WW-CM 00003D1B READ(M1H,0066) KEY=OLDCUST$,EXCP=8010
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 54
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
80680 %WW-CM 00003D2A 8010 KEYM1H$=KEY(M1H,EXCP=8020)
80700 %WW-CM 00003D3A IF SUB(KEYM1H$,1,6) NE OLDCUST$ GOTO 8020
80720 %WW-CM 00003D5B READ(M1H,0066)
80740 %WW-CM 00003D62 HCNBR$=NEWCUST$
80760 %WW-CM 00003D6B WRITE(M1H,0066) KEY=HCNBR$+SUB(KEYM1H$,7,26)
80780 %WW-CM 00003D8E DELETE(M1H) KEY=KEYM1H$
80800 %WW-CM 00003D95 GOTO 8010
80820 %WW-CM 00003D9A !
80840 %WW-CM 00003D9A 8020 READ(M2P,0000) KEY=OLDCUST$,EXCP=8030
80860 %WW-CM 00003DA9 8030 KEYM2P$=KEY(M2P,EXCP=8040)
80880 %WW-CM 00003DB9 IF SUB(KEYM2P$,1,6) NE OLDCUST$ GOTO 8040
80900 %WW-CM 00003DDA READ(M2P,0000)
80920 %WW-CM 00003DE1 EXTRACT(M1A,0060) KEY=SUB(KEYM2P$,7,9), EXCP=8035
80940 %WW-CM 00003DFF MCNBR$=NEWCUST$
80960 %WW-CM 00003E08 WRITE(M1A,0060)
80980 %WW-CM 00003E0F WRITE(M2P,0000) KEY = NEWCUST$+SUB(KEYM2P$,7,9)
80985 %WW-CM 00003E32 EXTRACT(M1AH,0060) KEY=SUB(KEYM2P$,7,9), EXCP=8035
80990 %WW-CM 00003E50 MCNBR$=NEWCUST$
80995 %WW-CM 00003E59 WRITE(M1AH,0060)
81000 %WW-CM 00003E60 8035 DELETE(M2P) KEY=KEYM2P$
81020 %WW-CM 00003E67 GOTO 8030
81040 %WW-CM 00003E6C !
81060 %WW-CM 00003E6C 8040 CONVERT = 1 & CNBR$=OLDCUST$
81080 %WW-CM 00003E7F GOTO 7845 !DELETE OLD RECORDS
81100 %WW-CM 00003E84 8045 IF ACCTFLG$ EQ 'N' CNBR$ = NEWCUST$ &_
81120 %WW-CM 00003E9B WRTIMAGE = 1 & GOSUB 7610 !NEW ACCOUNT
81140 %WW-CM 00003EAA CONVERT = 0
81160 %WW-CM 00003EB4 RETURN
82600 %WW-CM 00003EB5 !
84000 %WW-CM 00003EB5 8400 IF EXCP EQ 33 RECTP$ = ' CUSTOMER' & GOTO 9100
84020 %WW-CM 00003ED2 IF EXCP NE 32 ERROR
84040 %WW-CM 00003EE2 RST$ = 'N'
84060 %WW-CM 00003EEB GOTO 7180
84080 %WW-CM 00003EF0 !
84200 %WW-CM 00003EF0 8420 IF EXCP EQ 33 RECTP$ = ' CUSTOMER' & GOTO 9100
84220 %WW-CM 00003F0D ERROR
84240 %WW-CM 00003F0E !
84400 %WW-CM 00003F0E ! ========== CREATE C7A FILE IF NOT THERE ==========
84420 %WW-CM 00003F0E !
84430 %WW-CM 00003F0E 8440 !
84440 %WW-CM 00003F0E CREATE FLNM$,756,K,6,DIR=ZFXD$
84450 %WW-CM 00003F21 AGAIN
84460 %WW-CM 00003F22 !
84490 %WW-CM 00003F22 !
84500 %WW-CM 00003F22 8450 !
84510 %WW-CM 00003F22 CREATE FLNM$,920,K,9,DIR=ZFXD$
84520 %WW-CM 00003F35 AGAIN
84530 %WW-CM 00003F36 !
84600 %WW-CM 00003F36 8460 !
84610 %WW-CM 00003F36 CREATE FLNM$,100,K,9,DIR=ZFXD$
84620 %WW-CM 00003F49 AGAIN
84630 %WW-CM 00003F4A !
85000 %WW-CM 00003F4A 8500 IF EXCP EQ 33 RECTP$ = ' NOTES' & GOTO 9100
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 55
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
85020 %WW-CM 00003F67 IF EXCP NE 32 ERROR
85040 %WW-CM 00003F77 CNOTE1$ = '' & CNOTE2$ = '' & CNOTE3$ = '' & CNOTE4$ = ''
85060 %WW-CM 00003F9B CNOTE5$ = '' & CNOTE6$ = '' & CNOTE7$ = '' & CNOTE8$ = ''
85080 %WW-CM 00003FBF CNOTE9$ = '' !* & CNOTE10$ = '' & CNOTE11$ = '' & CNOTE12$ = ''
85100 %WW-CM 00003FC8 WRITE (C1AC,0110)KEY=CNBR$ & RSTC$ = ''
85120 %WW-CM 00003FDC AGAIN
85140 %WW-CM 00003FDD !
85200 %WW-CM 00003FDD 8520 IF EXCP EQ 33 RECTP$ = ' NOTES' & GOTO 9100
85220 %WW-CM 00003FFA IF EXCP NE 32 ERROR
85240 %WW-CM 0000400A GOTO 5560
85260 %WW-CM 0000400F !
85400 %WW-CM 0000400F 8540 IF EXCP EQ 33 RECTP$ = ' SHIP-TO' & GOTO 9100
85420 %WW-CM 0000402C IF EXCP NE 32 ERROR
85440 %WW-CM 0000403C GOTO 5730
85460 %WW-CM 00004041 !
85500 %WW-CM 00004041 8550 IF EXCP EQ 33 RECTP$ = ' EMAILS ' & GOTO 9100
85510 %WW-CM 0000405E IF EXCP NE 32 ERROR
85520 %WW-CM 0000406E GOTO 5780
85530 %WW-CM 00004073 !
85550 %WW-CM 00004073 8555 IF EXCP EQ 33 RECTP$ = ' CR CRD ' & GOTO 9100
85560 %WW-CM 00004090 IF EXCP NE 32 ERROR
85570 %WW-CM 000040A0 GOTO 5880
85580 %WW-CM 000040A5 !
85600 %WW-CM 000040A5 8560 IF EXCP EQ 33 RECTP$ = ' RESALE #' & GOTO 9100
85620 %WW-CM 000040C2 IF EXCP NE 32 ERROR
85640 %WW-CM 000040D2 CRST1$ = '' & CRSL1$ = '' & CREXPDT1$ = ''
85650 %WW-CM 000040ED CRST2$ = '' & CRSL2$ = '' & CREXPDT2$ = ''
85660 %WW-CM 00004108 CRST3$ = '' & CRSL3$ = '' & CREXPDT3$ = ''
85670 %WW-CM 00004123 CRST4$ = '' & CRSL4$ = '' & CREXPDT4$ = ''
85680 %WW-CM 0000413E CRST5$ = '' & CRSL5$ = '' & CREXPDT5$ = ''
85690 %WW-CM 00004159 CRST6$ = '' & CRSL6$ = '' & CREXPDT6$ = ''
85700 %WW-CM 00004174 CRST7$ = '' & CRSL7$ = '' & CREXPDT7$ = ''
85710 %WW-CM 0000418F CRST8$ = '' & CRSL8$ = '' & CREXPDT8$ = ''
85720 %WW-CM 000041AA WRITE (C1R,0105)KEY=CNBR$
85740 %WW-CM 000041B5 AGAIN
85760 %WW-CM 000041B6 !
85800 %WW-CM 000041B6 8580 IF EXCP EQ 33 RECTP$ = ' TERMS' & GOTO 9100
85840 %WW-CM 000041D3 GOTO 6000
85860 %WW-CM 000041D8 !
86000 %WW-CM 000041D8 8600 IF EXCP EQ 33 RECTP$ = ' SALESMAN' & GOTO 9100
86020 %WW-CM 000041F5 IF EXCP NE 32 ERROR
86030 %WW-CM 00004205 IF ZCOID$ EQ 'SU' GOTO 6184
86040 %WW-CM 00004218 GOTO 6000
86060 %WW-CM 0000421D !
86200 %WW-CM 0000421D 8620 IF EXCP EQ 33 RECTP$ = ' JOB CDS ' & GOTO 9100
86210 %WW-CM 0000423A IF EXCP NE 32 ERROR
86220 %WW-CM 0000424A GOTO 6700
86230 %WW-CM 0000424F !
86300 %WW-CM 0000424F 8630 IF EXCP EQ 33 RECTP$ = ' C/C TYP ' & GOTO 9100
86310 %WW-CM 0000426C IF EXCP NE 32 ERROR
86320 %WW-CM 0000427C GOTO 6800
86330 %WW-CM 00004281 !
86400 %WW-CM 00004281 8640 IF EXCP NE 32 _
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 56
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
86410 %WW-CM 00004281 GOTO 6248
86420 %WW-CM 00004295 MESS$ = 'WAREHOUSE CODE NOT FOUND IN - ENTER'
86430 %WW-CM 0000429E GOSUB 9000
86440 %WW-CM 000042A3 POS = 71 & LINE = 14 & PRINT (0, 95)
86450 %WW-CM 000042BE GOTO 6242
86460 %WW-CM 000042C3 !
86560 %WW-CM 000042C3 !
86660 %WW-CM 000042C3 8660 !
86760 %WW-CM 000042C3 CREATE FLNM$,6,K,6,DIR=ZFXD$
86860 %WW-CM 000042D6 AGAIN
86960 %WW-CM 000042D7 !
87000 %WW-CM 000042D7 ! ========== SPECIFIER-DESIGNER INPUT ROUTINE ==========
87010 %WW-CM 000042D7 8700 IF POS(RST$,'XN') NE 0 _
87012 %WW-CM 000042E1 GOSUB 7600 & GOSUB 5250
87016 %WW-CM 000042F5 DSPNBR$ = CNBR$ & COMBLK$ = CNBR$ & PRINT (0, 120)
87020 %WW-CM 0000430E STITLE$ = 'SPECIFIER PERSONNEL ENTRY'
87030 %WW-CM 00004317 POS = 40 - LEN(STITLE$) / 2 ! RE-CENTER PRO
87040 %WW-CM 00004336 LINE = 0 & PRINT (0, 110) ! REDISPLAY BAN
87050 %WW-CM 00004347 PRINT (0,4000) & PRINT (0,4010) & PRINT (0,4020)
87060 %WW-CM 0000435C 8702 PRINT (0,4030)
87070 %WW-CM 00004363 EXTRACT (S1D,0152)KEY=DSPNBR$,EXCP=8790
87080 %WW-CM 00004372 8710 PRINT (0,4050) & PRINT (0,4060) & PRINT (0,4070) ! DISPLAY FRGND
87090 %WW-CM 00004387 GOTO 8720
87100 %WW-CM 0000438C !
87110 %WW-CM 0000438C 8714 FOR FLDNBR = 1 TO 15
87120 %WW-CM 000043A5 8716 GOSUB 6960
87130 %WW-CM 000043AA IF DNM$ EQ '' GOTO 8720
87140 %WW-CM 000043BD IF DNM$ EQ ' ' _
87150 %WW-CM 000043BD MESS$ = 'MUST ENTER NAME WITH CODES - TAB' &_
87160 %WW-CM 000043D4 GOSUB 9000 & GOTO 8716
87170 %WW-CM 000043DE DNAME$(FLDNBR) = DNM$ & DSALUT$(FLDNBR) = DSAL$
87180 %WW-CM 0000440A FOR I = 1 TO 5
87190 %WW-CM 00004423 DCODE$(FLDNBR,I) = DCD$(I)
87200 %WW-CM 0000444A NEXT I
87210 %WW-CM 0000445E NEXT FLDNBR
87220 %WW-CM 00004472 !
87230 %WW-CM 00004472 8720 MESS$ = 'Modify line #, Next, DELETE, Specifier #,'
87232 %WW-CM 0000447B MESS$ = MESS$ + ' Accept, Ignore'
87240 %WW-CM 0000448D GOSUB 9000
87242 %WW-CM 00004492 IF AN$ EQ '' OR AN$ EQ 'A' OR AN$ EQ 'ACCEPT' _
87244 %WW-CM 000044AE GOSUB 8750 & DSPNBR$ = '' & GOTO 8772
87250 %WW-CM 000044CF IF AN$ EQ 'I' OR AN$ EQ 'IGNORE' _
87254 %WW-CM 000044DD DSPNBR$ = '' & GOTO 8772
87258 %WW-CM 000044F9 IF AN$ EQ 'S' GOSUB 8750 & GOTO 8770
87260 %WW-CM 00004511 IF AN$ EQ 'D' OR AN$ EQ 'DELETE' GOTO 8760
87270 %WW-CM 00004532 IF AN$ EQ 'N' OR AN$ EQ 'NEXT' _
87280 %WW-CM 00004540 GOSUB 8750 & DSPNBR$ = KEY(S1D,EXCP=8770) &_
87290 %WW-CM 00004563 CNAME$ = '' & READ (C1A,0100)KEY=DSPNBR$,EXCP=8702 &_
87300 %WW-CM 0000457B COMBLK$ = CNBR$ & GOTO 8702
87310 %WW-CM 00004589 FLDNBR = NUM(AN$,ERR)
87320 %WW-CM 00004598 IF FLDNBR LT 1 OR FLDNBR GT 15 GOTO 8720
87330 %WW-CM 000045BB !!!! IF FLDNBR NE 1 AND DCODE$(FLDNBR-1) EQ ' ' _
87340 %WW-CM 000045BB !!!! MESS$ = 'MUST ENTER CODES IN CONSECUTIVE ORDER - TAB' &_
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 57
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
87350 %WW-CM 000045BB !!!! GOSUB 9000 & GOTO 8720
87360 %WW-CM 000045BB 8730 GOSUB 6960
87370 %WW-CM 000045C0 IF DNM$ EQ '' GOTO 8740
87380 %WW-CM 000045D3 !!!! IF FLDNBR NE 1 AND DISPCD$ LT DCODE$(FLDNBR-1) _
87390 %WW-CM 000045D3 !!!! MESS$ = 'MUST ENTER CODES IN CONSECUTIVE ORDER - TAB' &_
87400 %WW-CM 000045D3 !!!! GOSUB 9000 & GOTO 8730
87410 %WW-CM 000045D3 !!!! IF FLDNBR NE 20 AND DCODE$(FLDNBR+1) NE ' ' AND _
87420 %WW-CM 000045D3 !!!! DISPCD$ GT DCODE$(FLDNBR+1) _
87430 %WW-CM 000045D3 !!!! MESS$ = 'MUST ENTER CODES IN CONSECUTIVE ORDER - TAB' &_
87440 %WW-CM 000045D3 !!!! GOSUB 9000 & GOTO 8730
87450 %WW-CM 000045D3 8740 DNAME$(FLDNBR) = DNM$ & DSALUT$(FLDNBR) = DSAL$
87460 %WW-CM 000045FF FOR I = 1 TO 5
87470 %WW-CM 00004618 DCODE$(FLDNBR,I) = DCD$(I)
87480 %WW-CM 0000463F NEXT I
87490 %WW-CM 00004653 !
87500 %WW-CM 00004653 GOTO 8720
87510 %WW-CM 00004658 !
87520 %WW-CM 00004658 8750 WRITE (S1D,0152)KEY=DSPNBR$
87530 %WW-CM 00004663 RETURN
87540 %WW-CM 00004664 !
87542 %WW-CM 00004664 8760 MESS$ = 'ARE YOU SURE YOU WANT TO DELETE THIS DESIGNER? (Yes/No)
87544 %WW-CM 0000466D GOSUB 9000
87545 %WW-CM 00004672 IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 8720
87546 %WW-CM 00004693 IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 8760
87550 %WW-CM 000046B4 DELETE (S1D)KEY=DSPNBR$,EXCP=8770
87560 %WW-CM 000046BF GOTO 8770
87570 %WW-CM 000046C4 !
87580 %WW-CM 000046C4 8770 PRINT (0,4040)
87590 %WW-CM 000046CB INPUT (0) DSPNBR$
87592 %WW-CM 000046D6 IF DSPNBR$ NE '' _
87596 %WW-CM 000046D6 DSPNBR$ = SUB('000000',1,6-LEN(DSPNBR$)) + DSPNBR$
87600 %WW-CM 00004710 8772 IF DSPNBR$ EQ '' OR DSPNBR$ EQ 'E' OR DSPNBR$ EQ 'END' _
87610 %WW-CM 0000472C STITLE$ = 'CUSTOMER MAINTENANCE' & _ ! RE-SET PROGRA
87620 %WW-CM 00004743 POS = 40 - LEN(STITLE$) / 2 & LINE = 0 &_
87630 %WW-CM 0000476C PRINT (0, 100) & PRINT (0, 110) & PROGID$ = 'WWCNL' & _
87640 %WW-CM 00004783 GOTO 4990
87650 %WW-CM 00004788 READ (C1A,0100)KEY=DSPNBR$,EXCP=8794
87660 %WW-CM 00004797 8774 IF POS(SUB(CCTYPE$,1,1),'SB') EQ 0 _
87664 %WW-CM 000047AF MESS$ = 'NUMBER INPUT IS NOT CODED AS A SPECIFIER - TAB' & _
87668 %WW-CM 000047C2 GOSUB 9000 & GOTO 8770
87672 %WW-CM 000047CC COMBLK$ = DSPNBR$
87680 %WW-CM 000047D5 GOTO 8702
87690 %WW-CM 000047DA !
87700 %WW-CM 000047DA 8790 IF EXCP EQ 33 _
87710 %WW-CM 000047DA MESS$ = 'SPECIFIER-DESIGNER RECORD LOCKED - TAB' &_
87720 %WW-CM 000047F2 GOSUB 9000 & GOTO 8770
87730 %WW-CM 000047FC IF EXCP NE 32 _
87740 %WW-CM 000047FC MESS$ = 'EXCP=' + STR(EXCP) &_
87750 %WW-CM 00004823 MESS$ = MESS$ + ' ON DESIGNER RECORD - TAB' &_
87760 %WW-CM 00004835 GOSUB 9000 & GOTO 8770
87770 %WW-CM 0000483F FOR I = 1 TO 15
87780 %WW-CM 00004858 DNAME$(I) = '' & DSALUT$(I) = ''
87782 %WW-CM 00004884 FOR J = 1 TO 5
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 58
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
87784 %WW-CM 0000489D DCODE$(I,J) = ''
87785 %WW-CM 000048B7 NEXT J
87790 %WW-CM 000048CB NEXT I
87800 %WW-CM 000048DF GOTO 8714
87810 %WW-CM 000048E4 !
87820 %WW-CM 000048E4 8794 CNAME$ = '** RECORD LOCKED **'
87830 %WW-CM 000048ED IF EXCP NE 33 AND EXCP NE 32 _
87840 %WW-CM 000048FC CNAME$ = '** EXCP=' + STR(EXCP) &_
87850 %WW-CM 00004923 CNAME$ = CNAME$ + 'ON C1A **'
87860 %WW-CM 00004935 IF EXCP EQ 32 _
87870 %WW-CM 00004935 MESS$ = 'SPECIFIER # NOT ON FILE - TAB' &_
87880 %WW-CM 0000494D GOSUB 9000 & GOTO 8770
87890 %WW-CM 00004957 GOTO 8774
87900 %WW-CM 0000495C !
89000 %WW-CM 0000495C USE '^CODATE' !DATE ROUTINES
89000 ^CODATE 0000495C DATECHK:
89001 ^CODATE 0000495C !
89003 ^CODATE 0000495C ! PROPER USE OF THIS USEFILE IS AS FOLLOWS:
89004 ^CODATE 0000495C ! INPUT (0) XDATE$ ! INPUT TEMP FIELD, NOT FIELD DESIRED
89005 ^CODATE 0000495C ! GOSUB DTCHK
89006 ^CODATE 0000495C ! IF DATEOK EQ 0 GOTO XXXX ! DO THIS IF BAD DATE INPUT
89007 ^CODATE 0000495C ! ORDATE$ = XDATE$ ! SET FIELD DESIRED TO INPUT
89008 ^CODATE 0000495C !
89010 ^CODATE 0000495C DTCHK:
89020 ^CODATE 0000495C ! ========== DATE VALIDATION ROUTINE ==========
89040 ^CODATE 0000495C DATEOK = 0 !DEFAULT TO DAT
89050 ^CODATE 00004966 XCT$ = '19'
89052 ^CODATE 0000496F XDATE$ = STRIP(XDATE$) ! TLF 07/11/2003, REPLACES 89054
89054 ^CODATE 0000497E !!!! PRINT (#) XDATE$
89058 ^CODATE 0000497E !!!! INPUT (#) XDATE$
89062 ^CODATE 0000497E IF POS(' ',XDATE$) NE 0 RETURN
89070 ^CODATE 00004993 XPOS = POS('/',XDATE$)
89080 ^CODATE 000049A2 IF XPOS NE 0 THEN
89090 ^CODATE 000049B1 MESS$ = SUB(XDATE$,XPOS+1,10)
89100 ^CODATE 000049D2 YPOS = POS('/',MESS$)
89110 ^CODATE 000049E1 IF YPOS EQ 0 RETURN
89120 ^CODATE 000049F1 YPOS = YPOS + XPOS
89140 ^CODATE 00004A00 XMO$ = SUB(XDATE$,1,XPOS-1)
89150 ^CODATE 00004A21 XMO$ = SUB('00',1,2-LEN(XMO$)) + XMO$
89160 ^CODATE 00004A4D XDA$ = SUB(XDATE$,XPOS+1,YPOS-XPOS-1)
89170 ^CODATE 00004A82 XDA$ = SUB('00',1,2-LEN(XDA$)) + XDA$
89180 ^CODATE 00004AAE MESS$ = SUB(XDATE$,YPOS+1,4)
89190 ^CODATE 00004ACF PRINT (#) MESS$
89200 ^CODATE 00004ADA INPUT (#) MESS$
89210 ^CODATE 00004AE5 XYR$ = '??'
89220 ^CODATE 00004AEE IF LEN(MESS$) EQ 2 THEN
89230 ^CODATE 00004AFE XYR$ = MESS$
89240 ^CODATE 00004B07 IF XYR$ LT '50' XCT$ = '20'
89250 ^CODATE 00004B1E ELSE
89260 ^CODATE 00004B23 XCT$ = MESS$
89270 ^CODATE 00004B2C XYR$ = SUB(MESS$,3,2)
89280 ^CODATE 00004B43 ENDIF
89290 ^CODATE 00004B43 ELSE
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 59
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
89300 ^CODATE 00004B48 XMO$ = SUB(XDATE$,1,2)
89310 ^CODATE 00004B5F XDA$ = SUB(XDATE$,3,2)
89314 ^CODATE 00004B76 IF LEN(XDATE$) EQ 6 THEN
89318 ^CODATE 00004B86 XYR$ = SUB(XDATE$,5,2)
89320 ^CODATE 00004B9D IF XYR$ LT '50' XCT$ = '20'
89322 ^CODATE 00004BB4 ELSE
89326 ^CODATE 00004BB9 XCT$ = SUB(XDATE$,5,2)
89330 ^CODATE 00004BD0 XYR$ = SUB(XDATE$,7,2)
89334 ^CODATE 00004BE7 ENDIF
89340 ^CODATE 00004BE7 ENDIF
89350 ^CODATE 00004BE7 !
89500 ^CODATE 00004BE7 XMO = NUM(XMO$,ERR)
89520 ^CODATE 00004BF6 XDA = NUM(XDA$,ERR)
89540 ^CODATE 00004C05 XCT = NUM(XCT$,ERR)
89560 ^CODATE 00004C14 XYR = NUM(XYR$,ERR)
89562 ^CODATE 00004C23 !PRINT (0) '@011300@';XMO;XDA;XCT;XYR & INPUT (0) ''
89580 ^CODATE 00004C23 IF POS('.',XDATE$) NE 0 OR _ !!! POS(' ',XDATE$) NE 0 OR ????
89600 ^CODATE 00004C37 POS('+',XDATE$) NE 0 OR ERR NE 0 RETURN
89620 ^CODATE 00004C5B !
89640 ^CODATE 00004C5B IF XMO LT 1 OR XMO GT 12 OR XDA LT 1 OR XDA GT 31 OR _
89660 ^CODATE 00004C97 XCT EQ 0 RETURN
89680 ^CODATE 00004CA7 !
89700 ^CODATE 00004CA7 IF (XMO EQ 4 OR XMO EQ 6 OR XMO EQ 9 OR XMO EQ 11) AND _
89720 ^CODATE 00004CE3 XDA GT 30 RETURN
89740 ^CODATE 00004CF3 IF XMO EQ 2 AND XDA GT 29 RETURN
89760 ^CODATE 00004D12 !
89780 ^CODATE 00004D12 IF FPT(XYR * .25) NE 0 AND XMO EQ 2 AND XDA GT 28 RETURN
89800 ^CODATE 00004D4A !
89805 ^CODATE 00004D4A IF XCT NE 19 AND XCT NE 20 RETURN
89810 ^CODATE 00004D69 IF (XCT EQ 19 AND XYR LT 50) OR (XCT EQ 20 AND XYR GT 50) RETUR
89814 ^CODATE 00004DAB !
89820 ^CODATE 00004DAB XDATE$ = XMO$ + '/' + XDA$ + '/' + XCT$ + XYR$
89840 ^CODATE 00004DE1 DATEOK = 1
89860 ^CODATE 00004DEB RETURN
89880 ^CODATE 00004DEC !
90000 %WW-CM 00004DEC USE '^COMSRT8' !9000 - MESSAGE WRITER
100 ^COMSRT8 00004DEC 9000 !========= MESSAGE WRITING ROUTINE =========
200 ^COMSRT8 00004DEC LM = LEN(MESS$)
300 ^COMSRT8 00004DF7 PM = 36 - (LM/2)
400 ^COMSRT8 00004E0B PRINT (0, 91)
500 ^COMSRT8 00004E12 IF BLIND$ NE 'B' PRINT (0, 90)
600 ^COMSRT8 00004E27 IF BLIND$ EQ 'B' PRINT (0, 96)
700 ^COMSRT8 00004E3C INPUT (0) AN$
800 ^COMSRT8 00004E47 PRINT (0, 91) & BLIND$ = ''
900 ^COMSRT8 00004E57 RETURN
1000 ^COMSRT8 00004E58 9050 PRINT (0, 92)
1100 ^COMSRT8 00004E5F GOTO 9000
1200 ^COMSRT8 00004E64 9060 BLIND$ = 'B'
1300 ^COMSRT8 00004E6D GOTO 9000
90100 %WW-CM 00004E72 USE '^CODTIOC'
1000 ^CODTIOC 00004E72 !===================== STAMP DATE AND TIME ==============
1100 ^CODTIOC 00004E72 !FOR CM
1200 ^CODTIOC 00004E72 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 60
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1300 ^CODTIOC 00004E72 DTISTAMP:
1400 ^CODTIOC 00004E72 BLANK60$=' '
1500 ^CODTIOC 00004E7B BLANK60$=BLANK60$+' '
1600 ^CODTIOC 00004E8D !
1700 ^CODTIOC 00004E8D ! XDTIPOS: THE FIRST POSSIBLE POSITION WHERE INPUT CAN TAKE PLACE.
1800 ^CODTIOC 00004E8D ! THIS VARIABLE MUST BE SET BEFORE CALLING THIS ROUTINE.
1900 ^CODTIOC 00004E8D !
2000 ^CODTIOC 00004E8D ! XDTILINE: THE FIRST POSSIBLE LINE OF NOTES WHERE INPUT CAN TAKE
2100 ^CODTIOC 00004E8D ! PLACE. THIS VARIABLE MUST BE SET BEFORE CALLING THIS
2200 ^CODTIOC 00004E8D ! ROUTINE.
2300 ^CODTIOC 00004E8D !
2400 ^CODTIOC 00004E8D ! XDTIDATE$: THE DATE TO BE INSERTED IN THE DATE, TIME & INITIALS
2500 ^CODTIOC 00004E8D ! STAMP. THIS VARIABLE MUST BE SET BEFORE CALLING
2600 ^CODTIOC 00004E8D ! THIS ROUTINE.
2700 ^CODTIOC 00004E8D !
2800 ^CODTIOC 00004E8D ! XDTIINIT$: THE INITIALS TO BE INSERTED IN THE DATE, TIME &
2900 ^CODTIOC 00004E8D ! INITIALS STAMP. THIS VARIABLE MUST BE SET BEFORE
3000 ^CODTIOC 00004E8D ! CALLING THIS ROUTINE.
3100 ^CODTIOC 00004E8D !
3104 ^CODTIOC 00004E8D ! XDTISLEN: This variable comes from record *DATESLEN in Z1. If X
3108 ^CODTIOC 00004E8D ! is 8, the date stamp is MM/DD/YY, otherwise the is st
3130 ^CODTIOC 00004E8D !
3150 ^CODTIOC 00004E8D INQUIRE(Z1,DATESLEN) KEY = '*DATESLENC' ,EXCP=DTIEXCP
3160 ^CODTIOC 00004E9C DTIEXCP:
3180 ^CODTIOC 00004E9C XDTIDATE$=SUB(ZDATE$,1,5)
3185 ^CODTIOC 00004EB3 IF XDTISLEN EQ 8 XDTIDATE$=XDTIDATE$+'/'+SUB(ZDATE$,9,2)
3200 ^CODTIOC 00004EF0 AN$ = DSTAT('CL1')
3300 ^CODTIOC 00004EFF !
3320 ^CODTIOC 00004EFF IF XDTIEXTM$ NE 'Y' THEN
3330 ^CODTIOC 00004F0D XDTI$='('+XDTIDATE$+' '+SUB(TIME$,1,5)+' '+XDTIINIT$+')'
3340 ^CODTIOC 00004F5F ELSE
3350 ^CODTIOC 00004F64 XDTI$='('+XDTIDATE$+' '+XDTIINIT$+')'
3360 ^CODTIOC 00004F91 ENDIF
3370 ^CODTIOC 00004F91 !
3600 ^CODTIOC 00004F91 IF STRIP(CNOTE9$) NE '' RETURN
3700 ^CODTIOC 00004FA6 !
3800 ^CODTIOC 00004FA6 !!!! IF ONOTE11$ NE '' AND ONOTE11$ NE BLANK60$ ONOTE12$=XDTI$ &_
3900 ^CODTIOC 00004FA6 !!!! LINE = 11 &_
4000 ^CODTIOC 00004FA6 !!!! GOTO DTIPOS
4100 ^CODTIOC 00004FA6 !
4200 ^CODTIOC 00004FA6 !!!! IF ONOTE10$ NE '' AND ONOTE10$ NE BLANK60$ ONOTE11$=XDTI$ &_
4300 ^CODTIOC 00004FA6 !!!! LINE = 10 &_
4400 ^CODTIOC 00004FA6 !!!! GOTO DTIPOS
4500 ^CODTIOC 00004FA6 !
4600 ^CODTIOC 00004FA6 !!!! IF ONOTE9$ NE '' AND ONOTE9$ NE BLANK60$ ONOTE10$=XDTI$ &_
4700 ^CODTIOC 00004FA6 !!!! LINE = 09 &_
4800 ^CODTIOC 00004FA6 !!!! GOTO DTIPOS
4900 ^CODTIOC 00004FA6 !
5000 ^CODTIOC 00004FA6 IF STRIP(CNOTE8$) NE '' CNOTE9$ = XDTI$ &_
5100 ^CODTIOC 00004FC3 LINE = 8 &_
5200 ^CODTIOC 00004FCD GOTO DTIPOS
5300 ^CODTIOC 00004FD2 !
5400 ^CODTIOC 00004FD2 IF STRIP(CNOTE7$) NE '' CNOTE8$ = XDTI$ &_
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 61
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
5500 ^CODTIOC 00004FEF LINE = 7 &_
5600 ^CODTIOC 00004FF9 GOTO DTIPOS
5700 ^CODTIOC 00004FFE !
5800 ^CODTIOC 00004FFE IF STRIP(CNOTE6$) NE '' CNOTE7$ = XDTI$ &_
5900 ^CODTIOC 0000501B LINE = 6 &_
6000 ^CODTIOC 00005025 GOTO DTIPOS
6100 ^CODTIOC 0000502A !
6200 ^CODTIOC 0000502A IF STRIP(CNOTE5$) NE '' CNOTE6$ = XDTI$ &_
6300 ^CODTIOC 00005047 LINE = 5 &_
6400 ^CODTIOC 00005051 GOTO DTIPOS
6500 ^CODTIOC 00005056 !
6600 ^CODTIOC 00005056 IF STRIP(CNOTE4$) NE '' CNOTE5$ = XDTI$ &_
6700 ^CODTIOC 00005073 LINE = 4 &_
6800 ^CODTIOC 0000507D GOTO DTIPOS
6900 ^CODTIOC 00005082 !
7000 ^CODTIOC 00005082 IF STRIP(CNOTE3$) NE '' CNOTE4$ = XDTI$ &_
7100 ^CODTIOC 0000509F LINE = 3 &_
7200 ^CODTIOC 000050A9 GOTO DTIPOS
7300 ^CODTIOC 000050AE !
7400 ^CODTIOC 000050AE IF STRIP(CNOTE2$) NE '' CNOTE3$ = XDTI$ &_
7500 ^CODTIOC 000050CB LINE = 2 &_
7600 ^CODTIOC 000050D5 GOTO DTIPOS
7700 ^CODTIOC 000050DA !
7800 ^CODTIOC 000050DA IF STRIP(CNOTE1$) NE '' CNOTE2$ = XDTI$ &_
7900 ^CODTIOC 000050F7 LINE = 1 &_
8000 ^CODTIOC 00005101 GOTO DTIPOS
8100 ^CODTIOC 00005106 !
8200 ^CODTIOC 00005106 IF STRIP(CNOTE1$) EQ '' CNOTE1$ = XDTI$ &_
8300 ^CODTIOC 00005123 LINE = 0 &_
8400 ^CODTIOC 0000512D GOTO DTIPOS
8500 ^CODTIOC 00005132 !
8600 ^CODTIOC 00005132 RETURN !NO STAMP
8700 ^CODTIOC 00005133 !
8800 ^CODTIOC 00005133 DTIPOS: !POSITION CURSOR
8900 ^CODTIOC 00005133 !
9000 ^CODTIOC 00005133 XDTIPOS = XDTIPOS + 18 !17 IS LENGTH OF STAMP PLUS 1.
9010 ^CODTIOC 00005142 IF XDTISLEN EQ 8 XDTIPOS = XDTIPOS + 3
9020 ^CODTIOC 00005160 IF XDTIEXTM$ EQ 'Y' XDTIPOS = XDTIPOS - 6
9100 ^CODTIOC 0000517D XDTILINE = XDTILINE + LINE
9200 ^CODTIOC 0000518C RETURN
91000 %WW-CM 0000518D ! ========== RECORD BUSY MESSAGE ==========
91020 %WW-CM 0000518D 9100 MESS$ = RECTP$ + ' RECORD LOCKED OUT - TAB WHEN READY'
91040 %WW-CM 0000519F GOSUB 9000
91080 %WW-CM 000051A4 9120 AGAIN
91100 %WW-CM 000051A5 !
100000 %WW-CM 000051A5 9900 PROGID$ = 'F'
100100 %WW-CM 000051AE RUN 'Z'
100200 %WW-CM 000051B4 END
FORMAT 130 defined at 00000968 cannot be executed
FORMAT CKLJCOND defined at 0000098C cannot be executed
FORMAT CKPRNTR defined at 00000977 cannot be executed
FORMAT CLEARFOREGROUND defined at 000009A2 cannot be executed
FORMAT FRMLFFMT defined at 00000992 cannot be executed
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 13:57 Page 62
File: WWCM .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
WARNING: STATEMENT 5600 defined at 00001046 cannot be executed
WARNING: STATEMENT 9060 defined at 00004E64 cannot be executed
WARNING: STATEMENT DATECHK defined at 0000495C cannot be executed
PROGRAM MEMORY REQUIREMENTS
COMMON 00000507
LOCAL 00012142
CONSTANTS 00005636
FORMATS 00011440
CODE 00020917
--------
TOTAL 00050642
COMPILE COMPLETED
TOTAL ERRORS 0
ZZZZZZZ %WW-CM 00000000 END
TOTAL ERRORS 0
End of listing - 3251 Records