COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 1
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
Compiling %WW-OE6 on S32 to WWOE6 on O32 02/14/12 14:00:02 PM
1 %WW-OE6 00000000 !S %WW-OE6,HCS
2 %WW-OE6 00000000 !O WWOE6,HCO
3 %WW-OE6 00000000 !L TERMINAL,E
7 %WW-OE6 00000000 !R CED
10 %WW-OE6 00000000 !
15 %WW-OE6 00000000 !=====================================================================
20 %WW-OE6 00000000 ! PROGRAM: ORDER ENTRY (PART 2)
25 %WW-OE6 00000000 !
30 %WW-OE6 00000000 ! SOURCE ID: =WW-OE2 BY W. HUS
35 %WW-OE6 00000000 ! OBJECT ID: WWOE2 FOR LEE JOFA
40 %WW-OE6 00000000 ! DATE 10/21/82
45 %WW-OE6 00000000 !
50 %WW-OE6 00000000 ! OVERLAYS: OE, OE3
55 %WW-OE6 00000000 !
60 %WW-OE6 00000000 ! FILES ACCESSED:
65 %WW-OE6 00000000 ! NAME TYPE USE DESCRIPTION R = READ
70 %WW-OE6 00000000 ! ==== ==== === =========== W = WRITE
75 %WW-OE6 00000000 ! O1A K W OPEN ORDER HEAD D = DELETE
80 %WW-OE6 00000000 ! C1A K R CUSTOMER MASTER E = ERASE
85 %WW-OE6 00000000 ! C = CREATE
90 %WW-OE6 00000000 ! C1C K R CUST SHIPTO K = KEYED
95 %WW-OE6 00000000 ! S = SEQUENTIA
100 %WW-OE6 00000000 ! O0 K W ORDER PRINT PTR
101 %WW-OE6 00000000 !
105 %WW-OE6 00000000 ! Z1 K R/X/W # SEQUENCE REC
110 %WW-OE6 00000000 ! PURPOSE: THIS OVERLAY ALLOWS THE ENTRY OF ORDER HEADER INFO
115 %WW-OE6 00000000 ! A VALID CUSTOMER NUMBER ENTRY AND SHIPTO NUMBER ENTRY WI
120 %WW-OE6 00000000 ! DISPLAY THE APPROPRIATE NAMES AND ADDRESSES. THE OPERAT
125 %WW-OE6 00000000 ! NOT TAB AT SHIP TO #. THE SALESMAN
130 %WW-OE6 00000000 ! NAME IS READ FROM THE FILE. SOME FIELDS ASK FOR A QUALI
135 %WW-OE6 00000000 ! ENTRY; IF THE ENTRY IS UNACCEPTABLE THE FIELD MUST BE RE
137 %WW-OE6 00000000 ! THE SCREEN IS A TRANSMIT-TYPE SCREEN.
140 %WW-OE6 00000000 !=====================================================================
145 %WW-OE6 00000000 !
3000 %WW-OE6 00000000 ! ========== COMMON AREA ==========
3100 %WW-OE6 00000000 !
3110 %WW-OE6 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
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 2
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
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 !
3120 %WW-OE6 00000000 !
4900 %WW-OE6 00000000 0000 FORMAT ''
5000 %WW-OE6 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 !
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 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 3
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
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 ! !
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 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 4
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
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 !
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 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 5
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
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 !====================================================================!
5200 %WW-OE6 000001E0 USE '^COO1A' ! 0060 - OPEN ORDER HDR
100 ^COO1A 000001E0 ! !
200 ^COO1A 000001E0 !===========================> ^COO1A <=============================!
300 ^COO1A 000001E0 ! !
400 ^COO1A 000001E0 ! File Format & Length Declaratives !
500 ^COO1A 000001E0 ! !
600 ^COO1A 000001E0 ! File Name: WWO1A OPEN ORDER HEADER !
700 ^COO1A 000001E0 ! !
800 ^COO1A 000001E0 ! Type: K Record: 999 Key: 9 Image: N !
900 ^COO1A 000001E0 ! !
1000 ^COO1A 000001E0 ! #FILES File Name: ORDER.OPEN.H Date: 01/06/06 !
1100 ^COO1A 000001E0 ! !
1200 ^COO1A 000001E0 !--------------------------------------------------------------------!
1300 ^COO1A 000001E0 ! !
1400 ^COO1A 000001E0 ! !
1500 ^COO1A 000001E0 LENGTH 2.0 & LOCAL OHNDPCT !
1600 ^COO1A 000001E0 LENGTH 3.0 & LOCAL OPKGS,OPCT,OWGHT !
1700 ^COO1A 000001E0 LENGTH 4.2 & LOCAL ODISCPCT,OPCKCHG,OTAXPCT !
1800 ^COO1A 000001E0 LENGTH 6.2 & LOCAL OFRT,OHANDAMT !
1900 ^COO1A 000001E0 LENGTH 6.4 & LOCAL OTAXPCL !
2000 ^COO1A 000001E0 LENGTH 7.2 & LOCAL ODEPOSIT,ODISCAMT,OMISC1 !
2100 ^COO1A 000001E0 LENGTH 7.2 & LOCAL OUNITS,OTAXAMT !
2200 ^COO1A 000001E0 LENGTH 8.2 & LOCAL OCOMMRME,OCOMMPD1,OCOMMPD2 !
2300 ^COO1A 000001E0 LENGTH 8.2 & LOCAL OCOMPAID !
2400 ^COO1A 000001E0 LENGTH 9.2 & LOCAL OCOST,OCRPAYREQ,ODEPOSIL !
2500 ^COO1A 000001E0 LENGTH 9.2 & LOCAL ODISCAML,OHOLDAMT,OGROSS !
2600 ^COO1A 000001E0 LENGTH 9.2 & LOCAL OMISC,ONET,OTXBASIS !
2700 ^COO1A 000001E0 LENGTH 1 & LOCAL OCFAFLG$,OCFASTK$,OCLRCD1$ !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 6
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2800 ^COO1A 000001E0 LENGTH 1 & LOCAL OCLRCD2$,OCAFLGH$,OCOMMRES$ !
2900 ^COO1A 000001E0 LENGTH 1 & LOCAL OCRDSC$,OCRLIM$,OCRMSC$ !
3000 ^COO1A 000001E0 LENGTH 1 & LOCAL OCRPST$,OCRPAY$,OCRSLE$ !
3100 ^COO1A 000001E0 LENGTH 1 & LOCAL OCUTYRD$,OCUTARVD$,ODSCFLG$ !
3200 ^COO1A 000001E0 LENGTH 1 & LOCAL OEMLFI$,OEMLOPA$,OEMLSA$ !
3300 ^COO1A 000001E0 LENGTH 1 & LOCAL OFRFLAG$,OFOFLG$,OFRTCODE$ !
3400 ^COO1A 000001E0 LENGTH 1 & LOCAL OFURNOP$,OFURNOPA$ !
3500 ^COO1A 000001E0 LENGTH 1 & LOCAL OIBMFLAG$,OLATE$,OMILLSTK$ !
3600 ^COO1A 000001E0 LENGTH 1 & LOCAL ONEWORD$,OORIGCFA$,OPUFLG$ !
3700 ^COO1A 000001E0 LENGTH 1 & LOCAL OPROFLG$,OREPRNT$,ORESFLG$ !
3800 ^COO1A 000001E0 LENGTH 1 & LOCAL ORETURN$,ORUSHOMO$,ORUSHOP$ !
3900 ^COO1A 000001E0 LENGTH 1 & LOCAL OSAMPFLG$,OPKGSAMP$ !
4000 ^COO1A 000001E0 LENGTH 1 & LOCAL OSTATUS$,OXMLFLAG$ !
4100 ^COO1A 000001E0 LENGTH 2 & LOCAL OBTCNTRY$,OCANCEL$ !
4200 ^COO1A 000001E0 LENGTH 2 & LOCAL OINNOFLG$,OSLSTYP$,OSTATE$ !
4300 ^COO1A 000001E0 LENGTH 2 & LOCAL OSTCNTRY$,OTERMCDE$,CUPS$ !
4400 ^COO1A 000001E0 LENGTH 3 & LOCAL OBOFLAG$,OEMLSEQ1$ !
4500 ^COO1A 000001E0 LENGTH 3 & LOCAL OEMLSEQ2$,OEMLSEQ3$,OHOLD1$ !
4600 ^COO1A 000001E0 LENGTH 3 & LOCAL OHOLD2$,OLRFROM$,OMSGCD1$ !
4700 ^COO1A 000001E0 LENGTH 3 & LOCAL OMSGCD2$,OINIT$,OINITL$ !
4800 ^COO1A 000001E0 LENGTH 3 & LOCAL OINITR$,OEMLREP$,OSNBR1$ !
4900 ^COO1A 000001E0 LENGTH 3 & LOCAL OSNBR2$ !
5000 ^COO1A 000001E0 LENGTH 4 & LOCAL OEOFLAG$,OPTDATE$ !
5100 ^COO1A 000001E0 LENGTH 5 & LOCAL OCYVEND$ !
5200 ^COO1A 000001E0 LENGTH 6 & LOCAL OBILLPER$,OCOMMPER$,CNBR$ !
5200 ^COO1A *****1E0 Variable 'CNBR$ ' has been previously declared
5300 ^COO1A 000001E0 LENGTH 6 & LOCAL OAPCP1$,OAPCP2$,OFAPCR$ !
5400 ^COO1A 000001E0 LENGTH 6 & LOCAL OFINNBR$,OOMORFLG$,OSPNBR$ !
5500 ^COO1A 000001E0 LENGTH 8 & LOCAL OOCSRTDT$,OOCSRTTM$ !
5600 ^COO1A 000001E0 LENGTH 9 & LOCAL INVCNBR$,ORNBR$ !
5700 ^COO1A 000001E0 LENGTH 10 & LOCAL OBORELDT$,OCOMPDTE$,ODEPDT$ !
5800 ^COO1A 000001E0 LENGTH 10 & LOCAL OFREE10$,OINVDTE$,OLRELDT$ !
5900 ^COO1A 000001E0 LENGTH 10 & LOCAL ORDATE$,ORESCDTE$,OSHIPDTE$ !
6000 ^COO1A 000001E0 LENGTH 10 & LOCAL OZIP$ !
6100 ^COO1A 000001E0 LENGTH 15 & LOCAL OCORNBR$,OFOB$,OFRTTRM$ !
6200 ^COO1A 000001E0 LENGTH 15 & LOCAL OGUARBY$,ORORNBR$,OSHIPVIA$ !
6300 ^COO1A 000001E0 LENGTH 18 & LOCAL OCLIENT$ !
6400 ^COO1A 000001E0 LENGTH 21 & LOCAL OCITY$ !
6500 ^COO1A 000001E0 LENGTH 35 & LOCAL OBATTN$,OATTN$,OADR1$ !
6600 ^COO1A 000001E0 LENGTH 35 & LOCAL OADR2$,ONAME$,OSM1$,OSM2$ !
6700 ^COO1A 000001E0 LENGTH 79 & LOCAL OFIL0060$ !
6800 ^COO1A 000001E0 ! !
6900 ^COO1A 000001E0 ! !
7000 ^COO1A 000001E0 ! Description Type Len Pos !
7100 ^COO1A 000001E0 ! ------------------------------------------!
7200 ^COO1A 000001E0 0060 FORMAT _ !
7300 ^COO1A 000001E0 ORNBR$;_ ! ORDER # S 9 0 !
7400 ^COO1A 000001E5 CNBR$;_ ! CUST # S 6 9 !
7500 ^COO1A 000001EA OBATTN$;_ ! BILL TO ATTENTION S 35 15 !
7600 ^COO1A 000001EF ONAME$;_ ! SHIP TO NAME S 35 50 !
7700 ^COO1A 000001F4 OADR1$;_ ! SHIP TO ADDRESS 1 S 35 85 !
7800 ^COO1A 000001F9 OADR2$;_ ! SHIP TO ADDRESS 2 S 35 120 !
7900 ^COO1A 000001FE OCITY$;_ ! SHIP TO CITY S 21 155 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 7
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
8000 ^COO1A 00000203 OSTATE$;_ ! SHIP ST S 2 176 !
8100 ^COO1A 00000208 OZIP$;_ ! SHIP TO ZIP CODE S 10 178 !
8200 ^COO1A 0000020D OATTN$;_ ! SHIP ATTENTION S 35 188 !
8300 ^COO1A 00000212 OSM1$;_ ! SIDE MARK S 35 223 !
8400 ^COO1A 00000217 OSM2$;_ ! SIDE MARK S 35 258 !
8500 ^COO1A 0000021C OCFAFLG$;_ ! CFA FLG S 1 293 !
8600 ^COO1A 00000221 ORESFLG$;_ ! RES FLG S 1 294 !
8700 ^COO1A 00000226 OSHIPVIA$;_ ! SHIP VIA S 15 295 !
8800 ^COO1A 0000022B OCORNBR$;_ ! CUSTOMER ORDER NUMBER S 15 310 !
8900 ^COO1A 00000230 ORORNBR$;_ ! REP ORDER NUMBER S 15 325 !
9000 ^COO1A 00000235 OHOLD1$;_ ! HLD FLG1 S 3 340 !
9100 ^COO1A 0000023A OHOLDAMT;_ ! HOLD FOR AMOUNT N 9.2 343 !
9200 ^COO1A 0000023F OHOLD2$;_ ! HLD FLG2 S 3 354 !
9300 ^COO1A 00000244 OFRTTRM$;_ ! FREIGHT TERMS S 15 357 !
9400 ^COO1A 00000249 OFREE10$;_ ! FREE 10 S 10 372 !
9500 ^COO1A 0000024E OCLIENT$;_ ! CLIENT S 18 382 !
9600 ^COO1A 00000253 ODEPOSIT;_ ! DEPOSIT N 7.2 400 !
9700 ^COO1A 00000258 ODISCPCT;_ ! DISC PCT N 4.2 409 !
9800 ^COO1A 0000025D ODSCFLG$;_ ! D F S 1 415 !
9900 ^COO1A 00000262 OPROFLG$;_ ! PRO FLG S 1 416 !
10000 ^COO1A 00000267 OTERMCDE$;_ ! TRMS CDE S 2 417 !
10100 ^COO1A 0000026C OGUARBY$;_ ! GUARANTEED BY S 15 419 !
10200 ^COO1A 00000271 ORDATE$;_ ! ORDER DATE S 10 434 !
10300 ^COO1A 00000276 OSPNBR$;_ ! SPECIFIER NUMBER S 6 444 !
10400 ^COO1A 0000027B OFINNBR$;_ ! FINISHER S 6 450 !
10500 ^COO1A 00000280 OBORELDT$;_ ! BACK ORDER REL DATE S 10 456 !
10600 ^COO1A 00000285 OLRELDT$;_ ! LAST RELEASE DATE S 10 466 !
10700 ^COO1A 0000028A OLRFROM$;_ ! LAST REL FROM S 3 476 !
10800 ^COO1A 0000028F OINIT$;_ ! OPERATOR ENTER ORDR S 3 479 !
10900 ^COO1A 00000294 OINITR$;_ ! OPER LAST RELEASE S 3 482 !
11000 ^COO1A 00000299 OINITL$;_ ! OPER LAST MAINTAIN S 3 485 !
11100 ^COO1A 0000029E OBOFLAG$;_ ! BACK ORDER FLAG S 3 488 !
11200 ^COO1A 000002A3 OGROSS;_ ! MATERIAL AMOUNT N 9.2 491 !
11300 ^COO1A 000002A8 ODISCAMT;_ ! DISCOUNT AMOUNT N 7.2 502 !
11400 ^COO1A 000002AD OMISC;_ ! MISCEL- LANEOUS N 9.2 511 !
11500 ^COO1A 000002B2 OMISC1;_ ! MISCEL- LANEOUS1 N 7.2 522 !
11600 ^COO1A 000002B7 OPKGS;_ ! # OF PCK N 3.0 531 !
11700 ^COO1A 000002BC OWGHT;_ ! WGHT N 3.0 536 !
11800 ^COO1A 000002C1 OFRT;_ ! FREIGHT N 6.2 541 !
11900 ^COO1A 000002C6 OTAXPCT;_ ! TAX PCT N 4.2 549 !
12000 ^COO1A 000002CB OTAXAMT;_ ! TAX AMOUNT N 7.2 555 !
12100 ^COO1A 000002D0 ONET;_ ! NET N 9.2 564 !
12200 ^COO1A 000002D5 INVCNBR$;_ ! INVOICE NUMBER S 9 575 !
12300 ^COO1A 000002DA OINVDTE$;_ ! INVOICE DATE S 10 584 !
12400 ^COO1A 000002DF OSHIPDTE$;_ ! SHIP DATE S 10 594 !
12500 ^COO1A 000002E4 CUPS$;_ ! ZONE S 2 604 !
12600 ^COO1A 000002E9 OCOST;_ ! COST OF ORDER N 9.2 606 !
12700 ^COO1A 000002EE OUNITS;_ ! ORDER UNITS N 7.2 617 !
12800 ^COO1A 000002F3 OPCKCHG;_ ! PACK CHG N 4.2 626 !
12900 ^COO1A 000002F8 OHNDPCT;_ ! HAND PCT N 2.0 632 !
13000 ^COO1A 000002FD OHANDAMT;_ ! HANDLING AMOUNT N 6.2 636 !
13100 ^COO1A 00000302 OSNBR1$;_ ! SALES REP 1 S 3 644 !
13200 ^COO1A 00000307 OSNBR2$;_ ! SALES REP 2 S 3 647 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 8
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
13300 ^COO1A 0000030C OPCT;_ ! PCT OF SALE TO REP1 N 3.0 650 !
13400 ^COO1A 00000311 OCRPAYREQ;_ ! PAY FOR CREDIT REAL N 9.2 655 !
13500 ^COO1A 00000316 OCRSLE$;_ ! CREDIT SALE S 1 666 !
13600 ^COO1A 0000031B OCRPST$;_ ! CREDIT PAST S 1 667 !
13700 ^COO1A 00000320 OCRLIM$;_ ! CREDIT LIMIT S 1 668 !
13800 ^COO1A 00000325 OCRDSC$;_ ! CREDIT DISCOUNT S 1 669 !
13900 ^COO1A 0000032A OCRPAY$;_ ! CREDIT PAYMENT S 1 670 !
14000 ^COO1A 0000032F OCRMSC$;_ ! CREDIT MISC S 1 671 !
14100 ^COO1A 00000334 OSTATUS$;_ ! DELETE CONFIRMED S 1 672 !
14200 ^COO1A 00000339 ONEWORD$;_ ! NEW ORDER FLAG S 1 673 !
14300 ^COO1A 0000033E OREPRNT$;_ ! REPRINT FLAG S 1 674 !
14400 ^COO1A 00000343 OLATE$;_ ! LATE CODE S 1 675 !
14500 ^COO1A 00000348 OFRFLAG$;_ ! FAX RPT FLG S 1 676 !
14600 ^COO1A 0000034D OMILLSTK$;_ ! MILL STK FLG S 1 677 !
14700 ^COO1A 00000352 OCUTYRD$;_ ! CUT YARDAGE ORDER S 1 678 !
14800 ^COO1A 00000357 OPUFLG$;_ ! PER USE FLG S 1 679 !
14900 ^COO1A 0000035C OFOFLG$;_ ! 1ST ORD FLG S 1 680 !
15000 ^COO1A 00000361 ORETURN$;_ ! RETURN CODE S 1 681 !
15100 ^COO1A 00000366 OSAMPFLG$;_ ! SAMPLE FLAG S 1 682 !
15200 ^COO1A 0000036B OCANCEL$;_ ! ORDER CANCEL REASON S 2 683 !
15300 ^COO1A 00000370 OBILLPER$;_ ! BILL PER. S 6 685 !
15400 ^COO1A 00000375 OCOMMPER$;_ ! COMM PERIOD S 6 691 !
15500 ^COO1A 0000037A OPTDATE$;_ ! PICK TICK DATE S 4 697 !
15600 ^COO1A 0000037F OEOFLAG$;_ ! ELIG ORD FLAG S 4 701 !
15700 ^COO1A 00000384 ORESCDTE$;_ ! RESERVE CANCEL DATE S 10 705 !
15800 ^COO1A 00000389 OFOB$;_ ! FOB S 15 715 !
15900 ^COO1A 0000038E OCAFLGH$;_ ! COMM ADJ FLG HDR S 1 730 !
16000 ^COO1A 00000393 OPKGSAMP$;_ ! SAMPLE PKG FLG S 1 731 !
16100 ^COO1A 00000398 OTXBASIS;_ ! TAXABLE BASIS N 9.2 732 !
16200 ^COO1A 0000039D OORIGCFA$;_ ! ORIGINAL CFA FLAG S 1 743 !
16300 ^COO1A 000003A2 OSLSTYP$;_ ! SALES TYPE S 2 744 !
16400 ^COO1A 000003A7 ODEPDT$;_ ! DEPOSIT DATE S 10 746 !
16500 ^COO1A 000003AC OCYVEND$;_ ! CUT YARDAGE VENDOR # S 5 756 !
16600 ^COO1A 000003B1 OCUTARVD$;_ ! CUTTING ARRIVED FLAG S 1 761 !
16700 ^COO1A 000003B6 OCFASTK$;_ ! CFA FROM STOCK S 1 762 !
16800 ^COO1A 000003BB OOCSRTDT$;_ ! OC SORT DATE S 8 763 !
16900 ^COO1A 000003C0 OOCSRTTM$;_ ! OC SORT TIME S 8 771 !
17000 ^COO1A 000003C5 OOMORFLG$;_ ! OMOR FLAG S 6 779 !
17100 ^COO1A 000003CA OCOMPDTE$;_ ! COMM PAID DATE S 10 785 !
17200 ^COO1A 000003CF OCOMPAID;_ ! COMM PAID AMT N 8.2 795 !
17300 ^COO1A 000003D4 OFAPCR$;_ ! FAP COMM RECORDED S 6 805 !
17400 ^COO1A 000003D9 OAPCP1$;_ ! FAP COMM PAID 1 S 6 811 !
17500 ^COO1A 000003DE OCOMMPD1;_ ! AMT COMM PAID 1 N 8.2 817 !
17600 ^COO1A 000003E3 OAPCP2$;_ ! FAP COMM PAID 2 S 6 827 !
17700 ^COO1A 000003E8 OCOMMPD2;_ ! AMT COMM PAID 2 N 8.2 833 !
17800 ^COO1A 000003ED OCOMMRME;_ ! AMT COMM MONTH END N 8.2 843 !
17900 ^COO1A 000003F2 OFRTCODE$;_ ! FREIGHT CODE S 1 853 !
18000 ^COO1A 000003F7 OFURNOP$;_ ! FURN OP FLAG S 1 854 !
18100 ^COO1A 000003FC OXMLFLAG$;_ ! XML FLAG S 1 855 !
18200 ^COO1A 00000401 OMSGCD1$;_ ! MSG CD 1 S 3 856 !
18300 ^COO1A 00000406 OMSGCD2$;_ ! MSG CD 2 S 3 859 !
18400 ^COO1A 0000040B OCLRCD1$;_ ! CLEAR CD 1 S 1 862 !
18500 ^COO1A 00000410 OCLRCD2$;_ ! CLEAR CD 2 S 1 863 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 9
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
18600 ^COO1A 00000415 OFURNOPA$;_ ! FURN OPA FLAG S 1 864 !
18700 ^COO1A 0000041A OIBMFLAG$;_ ! INVOICED BY MILL FLAG S 1 865 !
18800 ^COO1A 0000041F OBTCNTRY$;_ ! BILL-TO COUNTRY CD S 2 866 !
18900 ^COO1A 00000424 OSTCNTRY$;_ ! SHIP-TO COUNTRY CD S 2 868 !
19000 ^COO1A 00000429 OCOMMRES$;_ ! COMMERCIAL/RESIDENTIAL S 1 870 !
19100 ^COO1A 0000042E ORUSHOMO$;_ ! RUSH ORDER OMOX FLAG S 1 871 !
19200 ^COO1A 00000433 ORUSHOP$;_ ! RUSH ORDER OP FLAG S 1 872 !
19300 ^COO1A 00000438 OEMLSEQ1$;_ ! EMAIL SEQ # 1 S 3 873 !
19400 ^COO1A 0000043D OEMLSEQ2$;_ ! EMAIL SEQ # 2 S 3 876 !
19500 ^COO1A 00000442 OEMLSEQ3$;_ ! EMAIL SEQ # 3 S 3 879 !
19600 ^COO1A 00000447 OEMLOPA$;_ ! EMAIL OPA FLAG S 1 882 !
19700 ^COO1A 0000044C OEMLSA$;_ ! EMAIL SHIP ACK FLAG S 1 883 !
19800 ^COO1A 00000451 OEMLFI$;_ ! EMAIL FINAL INVC FLAG S 1 884 !
19900 ^COO1A 00000456 OINNOFLG$;_ ! INNOVATIONS ORDER FLAG S 2 885 !
20000 ^COO1A 0000045B OEMLREP$;_ ! REP EMAIL SEQ # S 3 887 !
20100 ^COO1A 00000460 ODEPOSIL;_ ! DEPOSIT AMT (LONG) N 9.2 890 !
20200 ^COO1A 00000465 ODISCAML;_ ! DISCOUNT AMT (LONG) N 9.2 901 !
20300 ^COO1A 0000046A OTAXPCL;_ ! TAX PCT (LONG) N 6.4 912 !
20400 ^COO1A 0000046F OFIL0060$ ! FILLER 0060 S 79 920 !
20500 ^COO1A 00000475 ! !
20600 ^COO1A 00000475 !====================================================================!
5220 %WW-OE6 00000475 USE '^COI1A' ! 0200 - ITEM FILE
100 ^COI1A 00000475 ! !
200 ^COI1A 00000475 !===========================> ^COI1A <=============================!
300 ^COI1A 00000475 ! !
400 ^COI1A 00000475 ! File Format & Length Declaratives !
500 ^COI1A 00000475 ! !
600 ^COI1A 00000475 ! File Name: WWI1A COLOR MASTER FILE !
700 ^COI1A 00000475 ! !
800 ^COI1A 00000475 ! Type: K Record: 756 Key: 14 Image: N !
900 ^COI1A 00000475 ! !
1000 ^COI1A 00000475 ! #FILES File Name: COLOR.MASTER Date: 01/18/06 !
1100 ^COI1A 00000475 ! !
1200 ^COI1A 00000475 !--------------------------------------------------------------------!
1300 ^COI1A 00000475 ! !
1400 ^COI1A 00000475 ! !
1500 ^COI1A 00000475 LENGTH 4.0 & LOCAL IINV1MTH,IINV2MTH,IINVMTD !
1600 ^COI1A 00000475 LENGTH 4.0 & LOCAL IINVPRV1,IINVPRV2,IINVPRV3 !
1700 ^COI1A 00000475 LENGTH 4.0 & LOCAL IINVPRV4,IINVQTD,IINVYTD !
1800 ^COI1A 00000475 LENGTH 4.0 & LOCAL IROPNT !
1900 ^COI1A 00000475 LENGTH 5.3 & LOCAL ILENRPT !
2000 ^COI1A 00000475 LENGTH 6.0 & LOCAL INXTPCNO !
2100 ^COI1A 00000475 LENGTH 7.0 & LOCAL IUN1MTH,IUN2MTH,IUNMTD !
2200 ^COI1A 00000475 LENGTH 7.0 & LOCAL IUNPRV1,IUNPRV2,IUNPRV3 !
2300 ^COI1A 00000475 LENGTH 7.0 & LOCAL IUNPRV4,IUNQTD,IUNYTD !
2400 ^COI1A 00000475 LENGTH 7.2 & LOCAL IQICMTD,IQOBO,IQOHNDBN !
2500 ^COI1A 00000475 LENGTH 7.2 & LOCAL IQOHND,IQOORD,IQOCMTD !
2600 ^COI1A 00000475 LENGTH 7.2 & LOCAL IQRCMTD,ISCMTD,ISCPRV1 !
2700 ^COI1A 00000475 LENGTH 7.2 & LOCAL ISCPRV2,ISCPRV3,ISCPRV4 !
2800 ^COI1A 00000475 LENGTH 7.2 & LOCAL ISCQTD,ISCYTD,ISPCLPRC !
2900 ^COI1A 00000475 LENGTH 9.2 & LOCAL ICSTMTD,ICSTPRV1,ICSTPRV2 !
3000 ^COI1A 00000475 LENGTH 9.2 & LOCAL ICSTPRV3,ICSTPRV4,ICSTQTD !
3100 ^COI1A 00000475 LENGTH 9.2 & LOCAL ICSTYTD,ISLSMTD,ISLSPRV1 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 10
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
3200 ^COI1A 00000475 LENGTH 9.2 & LOCAL ISLSPRV2,ISLSPRV3,ISLSPRV4 !
3300 ^COI1A 00000475 LENGTH 9.2 & LOCAL ISLSQTD,ISLSYTD !
3400 ^COI1A 00000475 LENGTH 1 & LOCAL ICITEM$,IFURNITM$,IHORVERT$ !
3500 ^COI1A 00000475 LENGTH 1 & LOCAL IMEXCP$ !
3600 ^COI1A 00000475 LENGTH 2 & LOCAL IPRICOL$,ISECCOL$,IUDEF$ !
3700 ^COI1A 00000475 LENGTH 4 & LOCAL ICACCTNG$ !
3800 ^COI1A 00000475 LENGTH 6 & LOCAL INXTLOT$ !
3900 ^COI1A 00000475 LENGTH 7 & LOCAL IFILLER$,IPATTERN$ !
4000 ^COI1A 00000475 LENGTH 8 & LOCAL ILPDTE$,ISTDLOC$ !
4100 ^COI1A 00000475 LENGTH 10 & LOCAL IDSCNTDT$ !
4200 ^COI1A 00000475 LENGTH 14 & LOCAL IINBR$,INBR$,INEWINBR$ !
4300 ^COI1A 00000475 LENGTH 20 & LOCAL IGRFLNM$ !
4400 ^COI1A 00000475 LENGTH 25 & LOCAL ICOLOR$ !
4500 ^COI1A 00000475 LENGTH 50 & LOCAL IMINBR$ !
4600 ^COI1A 00000475 LENGTH 57 & LOCAL ICCOMM1$,ICCOMM2$ !
4700 ^COI1A 00000475 ! !
4800 ^COI1A 00000475 ! !
4900 ^COI1A 00000475 ! Description Type Len Pos !
5000 ^COI1A 00000475 ! ------------------------------------------!
5100 ^COI1A 00000475 0200 FORMAT _ !
5200 ^COI1A 00000475 INBR$;_ ! ITEM NUMBER S 14 0 !
5300 ^COI1A 0000047A IPATTERN$;_ ! PATTERN NUMBER S 7 14 !
5400 ^COI1A 0000047F ICOLOR$;_ ! COLOR NAME S 25 21 !
5500 ^COI1A 00000484 IMINBR$;_ ! MILL ITEM NUMBER S 50 46 !
5600 ^COI1A 00000489 ICCOMM1$;_ ! COLOR COMMENT 1 S 57 96 !
5700 ^COI1A 0000048E ICCOMM2$;_ ! COLOR COMMENT 2 S 57 153 !
5800 ^COI1A 00000493 IROPNT;_ ! REORDER POINT N 4.0 210 !
5900 ^COI1A 00000498 ICITEM$;_ ! CUST ITEM FLG S 1 216 !
6000 ^COI1A 0000049D IINBR$;_ ! INVENTORY ITEM NUMB S 14 217 !
6100 ^COI1A 000004A2 ILPDTE$;_ ! LT PO DT S 8 231 !
6200 ^COI1A 000004A7 IQOORD;_ ! ON ORDER FROM SUPPLIERS N 7.2 239 !
6300 ^COI1A 000004AC IQOBO;_ ! ON BACKORDER CUSTOM N 7.2 248 !
6400 ^COI1A 000004B1 IQOHND;_ ! QTY ON HAND WHSE N 7.2 257 !
6500 ^COI1A 000004B6 IQOHNDBN;_ ! QTY ON HAND BOND N 7.2 266 !
6600 ^COI1A 000004BB IQOCMTD;_ ! ALLOCATED TO ORDERS N 7.2 275 !
6700 ^COI1A 000004C0 IQRCMTD;_ ! ALLOCATED TO RESERV N 7.2 284 !
6800 ^COI1A 000004C5 ISLSMTD;_ ! SALES MTD N 9.2 293 !
6900 ^COI1A 000004CA ISLSQTD;_ ! SALES QTD N 9.2 304 !
7000 ^COI1A 000004CF ISLSYTD;_ ! SALES YTD N 9.2 315 !
7100 ^COI1A 000004D4 ISLSPRV1;_ ! SALES PRV1 N 9.2 326 !
7200 ^COI1A 000004D9 ISLSPRV2;_ ! SALES PRV2 N 9.2 337 !
7300 ^COI1A 000004DE ISLSPRV3;_ ! SALES PRV3 N 9.2 348 !
7400 ^COI1A 000004E3 ISLSPRV4;_ ! SALES PRV4 N 9.2 359 !
7500 ^COI1A 000004E8 ICSTMTD;_ ! COST MTD N 9.2 370 !
7600 ^COI1A 000004ED ICSTQTD;_ ! COST QTD N 9.2 381 !
7700 ^COI1A 000004F2 ICSTYTD;_ ! COST YTD N 9.2 392 !
7800 ^COI1A 000004F7 ICSTPRV1;_ ! COST PRV1 N 9.2 403 !
7900 ^COI1A 000004FC ICSTPRV2;_ ! COST PRV2 N 9.2 414 !
8000 ^COI1A 00000501 ICSTPRV3;_ ! COST PRV3 N 9.2 425 !
8100 ^COI1A 00000506 ICSTPRV4;_ ! COST PRV4 N 9.2 436 !
8200 ^COI1A 0000050B IUNMTD;_ ! UNITS MTD N 7.0 447 !
8300 ^COI1A 00000510 IUNQTD;_ ! UNITS QTD N 7.0 456 !
8400 ^COI1A 00000515 IUNYTD;_ ! UNITS YTD N 7.0 465 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 11
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
8500 ^COI1A 0000051A IUNPRV1;_ ! UNITS PRV1 N 7.0 474 !
8600 ^COI1A 0000051F IUNPRV2;_ ! UNITS PRV2 N 7.0 483 !
8700 ^COI1A 00000524 IUNPRV3;_ ! UNITS PRV3 N 7.0 492 !
8800 ^COI1A 00000529 IUNPRV4;_ ! UNITS PRV4 N 7.0 501 !
8900 ^COI1A 0000052E IUN1MTH;_ ! UNITS 1 MONTHS AGO N 7.0 510 !
9000 ^COI1A 00000533 IUN2MTH;_ ! UNITS 2 MONTHS AGO N 7.0 519 !
9100 ^COI1A 00000538 IINVMTD;_ ! INVOICES MTD N 4.0 528 !
9200 ^COI1A 0000053D IINVQTD;_ ! INVOICES QTD N 4.0 534 !
9300 ^COI1A 00000542 IINVYTD;_ ! INVOICES YTD N 4.0 540 !
9400 ^COI1A 00000547 IINVPRV1;_ ! INVOICES PRV1 N 4.0 546 !
9500 ^COI1A 0000054C IINVPRV2;_ ! INVOICES PRV2 N 4.0 552 !
9600 ^COI1A 00000551 IINVPRV3;_ ! INVOICES PRV3 N 4.0 558 !
9700 ^COI1A 00000556 IINVPRV4;_ ! INVOICES PRV4 N 4.0 564 !
9800 ^COI1A 0000055B IINV1MTH;_ ! INVOICES 1 MONTHAGO N 4.0 570 !
9900 ^COI1A 00000560 IINV2MTH;_ ! INVOICES 2 MONTHAGO N 4.0 576 !
10000 ^COI1A 00000565 ISCMTD;_ ! SAMPLE COST MTD N 7.2 582 !
10100 ^COI1A 0000056A ISCQTD;_ ! SAMPLE COST QTD N 7.2 591 !
10200 ^COI1A 0000056F ISCYTD;_ ! SAMPLE COST YTD N 7.2 600 !
10300 ^COI1A 00000574 ISCPRV1;_ ! SAMPLE COST PRV1 N 7.2 609 !
10400 ^COI1A 00000579 ISCPRV2;_ ! SAMPLE COST PRV2 N 7.2 618 !
10500 ^COI1A 0000057E ISCPRV3;_ ! SAMPLE COST PRV3 N 7.2 627 !
10600 ^COI1A 00000583 ISCPRV4;_ ! SAMPLE COST PRV4 N 7.2 636 !
10700 ^COI1A 00000588 IMEXCP$;_ ! MEMO EXCP FLAG S 1 645 !
10800 ^COI1A 0000058D IDSCNTDT$;_ ! DISCONTINUE DATE S 10 646 !
10900 ^COI1A 00000592 IQICMTD;_ ! ALLOCATED TO INQUIRIES N 7.2 656 !
11000 ^COI1A 00000597 INXTPCNO;_ ! NEXT PC # N 6.0 665 !
11100 ^COI1A 0000059C INXTLOT$;_ ! NEXT LOT # S 6 673 !
11200 ^COI1A 000005A1 INEWINBR$;_ ! NEW ITEM # S 14 679 !
11300 ^COI1A 000005A6 IUDEF$;_ ! USER DEFINED S 2 693 !
11400 ^COI1A 000005AB ILENRPT;_ ! LENGTH OF REPEAT N 5.3 695 !
11500 ^COI1A 000005B0 IGRFLNM$;_ ! GRAPHIC FILE NAME S 20 702 !
11600 ^COI1A 000005B5 IFURNITM$;_ ! FURN ITEM S 1 722 !
11700 ^COI1A 000005BA ISTDLOC$;_ ! STD WHSE LOC S 8 723 !
11800 ^COI1A 000005BF ICACCTNG$;_ ! COLOR ACCTNG CODE S 4 731 !
11900 ^COI1A 000005C4 IHORVERT$;_ ! GRAPHIC IMAGE HORIZ/VERT S 1 735 !
12000 ^COI1A 000005C9 ISPCLPRC;_ ! SPECIAL PRICE N 7.2 736 !
12100 ^COI1A 000005CE IPRICOL$;_ ! PRIMARY COLOR CODE S 2 745 !
12200 ^COI1A 000005D3 ISECCOL$;_ ! SECONDARY COLOR CODE S 2 747 !
12300 ^COI1A 000005D8 IFILLER$ ! FILLER S 7 749 !
12400 ^COI1A 000005DE ! !
12500 ^COI1A 000005DE !====================================================================!
5280 %WW-OE6 000005DE USE '^COO1P' ! 0803 - RELEASE TRACKING
1000 ^COO1P 000005DE ! !
1100 ^COO1P 000005DE !************************* ^COO1P *******************************!
1200 ^COO1P 000005DE ! !
1300 ^COO1P 000005DE ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWO1P TYPE: K !
1400 ^COO1P 000005DE ! !
1500 ^COO1P 000005DE ! DOCUMENTS.RELEASES REC SIZE: 63 !
1600 ^COO1P 000005DE ! KEY SIZE: 21 !
1700 ^COO1P 000005DE ! !
1800 ^COO1P 000005DE ! #FILE NAME: DOCUMENT.RELEAS DATE: 07/22/92 !
1900 ^COO1P 000005DE ! !
1910 ^COO1P 000005DE ! BY: CRITERION DESIGN & PROGRAMMING LTD. !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 12
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1920 ^COO1P 000005DE ! !
2000 ^COO1P 000005DE !********************************************************************!
2100 ^COO1P 000005DE ! !
2200 ^COO1P 000005DE ! FILE STATEMENT !
2300 ^COO1P 000005DE ! !
2400 ^COO1P 000005DE !!!!FILE 'WWO1P', 63 !
2500 ^COO1P 000005DE ! !
2600 ^COO1P 000005DE ! VARIABLE DECLARATIONS: !
2700 ^COO1P 000005DE ! !
2800 ^COO1P 000005DE LENGTH 1 & LOCAL ORECTYP$ !
2900 ^COO1P 000005DE LENGTH 3 & LOCAL OOPINIT$,ORIGIN$ !
3000 ^COO1P 000005DE LENGTH 8 & LOCAL ORECDTE8$ !
3100 ^COO1P 000005DE LENGTH 9 & LOCAL ORNBR$ !
3100 ^COO1P *****5DE Variable 'ORNBR$ ' has been previously declared
3200 ^COO1P 000005DE LENGTH 11 & LOCAL ORMCODE$ !
3300 ^COO1P 000005DE LENGTH 20 & LOCAL OCOMMENT$ !
3400 ^COO1P 000005DE ! !
3500 ^COO1P 000005DE ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION!
3600 ^COO1P 000005DE ! !
3700 ^COO1P 000005DE 0803 FORMAT _ !
3800 ^COO1P 000005DE ORNBR$;_ ! ORDER NUMBER S 9 0 !
3900 ^COO1P 000005E3 ORECTYP$;_ ! Document/Release S 1 9 !
4000 ^COO1P 000005E8 ORECDTE8$;_ ! YYYYMMDD S 8 10 !
4100 ^COO1P 000005ED ORIGIN$;_ ! ORIGIN OF RECORD S 3 18 !
4200 ^COO1P 000005F2 OCOMMENT$;_ ! COMMENT S 20 21 !
4300 ^COO1P 000005F7 OOPINIT$;_ ! OPERATOR INITIALS S 3 41 !
4400 ^COO1P 000005FC ORMCODE$ ! MESS CODE S 11 44 !
4500 ^COO1P 00000602 ! !
4600 ^COO1P 00000602 !********************************************************************!
5300 %WW-OE6 00000602 USE '^COO1' ! 0065 - ORDER DETAIL
100 ^COO1 00000602 ! !
200 ^COO1 00000602 !===========================> ^COO1 <==============================!
300 ^COO1 00000602 ! !
400 ^COO1 00000602 ! File Format & Length Declaratives !
500 ^COO1 00000602 ! !
600 ^COO1 00000602 ! File Name: WWO1 OPEN ORDER DETAIL (LINE ITEMS !
700 ^COO1 00000602 ! !
800 ^COO1 00000602 ! Type: K Record: 512 Key: 12 Image: N !
900 ^COO1 00000602 ! !
1000 ^COO1 00000602 ! #FILES File Name: ORDER.OPEN.D Date: 05/14/08 !
1100 ^COO1 00000602 ! !
1200 ^COO1 00000602 !--------------------------------------------------------------------!
1300 ^COO1 00000602 ! !
1400 ^COO1 00000602 ! !
1500 ^COO1 00000602 LENGTH 3.0 & LOCAL OLEADTM !
1600 ^COO1 00000602 LENGTH 4.2 & LOCAL OCOMPCT1,OCOMPCT2,OLDSCPCT !
1700 ^COO1 00000602 LENGTH 6.2 & LOCAL OORIGQTY,OQTYBOD,OQTYBIL !
1800 ^COO1 00000602 LENGTH 6.2 & LOCAL OQTYORD,OQTYREL,OQTYSHP !
1900 ^COO1 00000602 LENGTH 7.2 & LOCAL ODFCST,OLDSCAMT,ONDPRICE !
2000 ^COO1 00000602 LENGTH 7.2 & LOCAL OPRICE,OICOST !
2100 ^COO1 00000602 LENGTH 9.2 & LOCAL OEXT !
2200 ^COO1 00000602 LENGTH 1 & LOCAL OCAFLGD$,OCSTOVRD$ !
2300 ^COO1 00000602 LENGTH 1 & LOCAL O1CUTYRD$,OISFLG$,OMANBO$ !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 13
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2400 ^COO1 00000602 LENGTH 1 & LOCAL ORCFLAG$,OSPLITLN$ !
2500 ^COO1 00000602 LENGTH 2 & LOCAL OACTCD1$,OACTCD2$,OACTCD3$ !
2600 ^COO1 00000602 LENGTH 2 & LOCAL OPLO1H$,ORETCD$ !
2700 ^COO1 00000602 LENGTH 3 & LOCAL OLINE$,OQLINE$ !
2800 ^COO1 00000602 LENGTH 7 & LOCAL OPATTERN$ !
2900 ^COO1 00000602 LENGTH 9 & LOCAL OQORNBR$,ORNBR$ !
2900 ^COO1 *****602 Variable 'ORNBR$ ' has been previously declared
3000 ^COO1 00000602 LENGTH 10 & LOCAL OACTDT1$,OACTDT2$,OACTDT3$ !
3100 ^COO1 00000602 LENGTH 10 & LOCAL OMSHPDTE$,OOSHPDTE$ !
3200 ^COO1 00000602 LENGTH 14 & LOCAL INBR$ !
3200 ^COO1 *****602 Variable 'INBR$ ' has been previously declared
3300 ^COO1 00000602 LENGTH 50 & LOCAL OTAG$ !
3400 ^COO1 00000602 LENGTH 223 & LOCAL O1FILLER$ !
3500 ^COO1 00000602 ! !
3600 ^COO1 00000602 ! !
3700 ^COO1 00000602 ! Description Type Len Pos !
3800 ^COO1 00000602 ! ------------------------------------------!
3900 ^COO1 00000602 0065 FORMAT _ !
4000 ^COO1 00000602 ORNBR$;_ ! ORDER # S 9 0 !
4100 ^COO1 00000607 OLINE$;_ ! LIN NUM S 3 9 !
4200 ^COO1 0000060C INBR$;_ ! ITEM NUMBER S 14 12 !
4300 ^COO1 00000611 OTAG$;_ ! TAG COMMENT S 50 26 !
4400 ^COO1 00000616 OQTYORD;_ ! QTY ORDERED N 6.2 76 !
4500 ^COO1 0000061B OQTYSHP;_ ! QTY SHPD N 6.2 84 !
4600 ^COO1 00000620 OQTYBIL;_ ! QTY BILLED N 6.2 92 !
4700 ^COO1 00000625 OPRICE;_ ! PRICE N 7.2 100 !
4800 ^COO1 0000062A OICOST;_ ! UNIT COST N 7.2 109 !
4900 ^COO1 0000062F OEXT;_ ! EXTENSION N 9.2 118 !
5000 ^COO1 00000634 ORETCD$;_ ! RET CDE S 2 129 !
5100 ^COO1 00000639 OCOMPCT1;_ ! COMM PCT REP 1 N 4.2 131 !
5200 ^COO1 0000063E OCOMPCT2;_ ! COMM PCT REP 2 N 4.2 137 !
5300 ^COO1 00000643 OQTYBOD;_ ! QTY BACK ORDRD N 6.2 143 !
5400 ^COO1 00000648 OQORNBR$;_ ! P.O.NUMBER S 9 151 !
5500 ^COO1 0000064D OQLINE$;_ ! PO LINE S 3 160 !
5600 ^COO1 00000652 OISFLG$;_ ! ITEM SERV FLAG S 1 163 !
5700 ^COO1 00000657 ORCFLAG$;_ ! RETURN CREDIT FLAG S 1 164 !
5800 ^COO1 0000065C OPLO1H$;_ ! PROD LINE S 2 165 !
5900 ^COO1 00000661 OQTYREL;_ ! QTY RELEASED N 6.2 167 !
6000 ^COO1 00000666 OPATTERN$;_ ! PATTERN NUMBER S 7 175 !
6100 ^COO1 0000066B OCAFLGD$;_ ! COMM ADJ FLG DET S 1 182 !
6200 ^COO1 00000670 OMANBO$;_ ! MANUAL B/O S 1 183 !
6300 ^COO1 00000675 OMSHPDTE$;_ ! MILL SHIP DATE S 10 184 !
6400 ^COO1 0000067A OOSHPDTE$;_ ! OUR SHIP DATE S 10 194 !
6500 ^COO1 0000067F ODFCST;_ ! DUTY/FRT COSTS N 7.2 204 !
6600 ^COO1 00000684 O1CUTYRD$;_ ! CUT YARDAGE O1 S 1 213 !
6700 ^COO1 00000689 OSPLITLN$;_ ! SPLIT LINE FLAG S 1 214 !
6800 ^COO1 0000068E OACTCD1$;_ ! ACTION CODE 1 S 2 215 !
6900 ^COO1 00000693 OACTCD2$;_ ! ACTION CODE 2 S 2 217 !
7000 ^COO1 00000698 OACTCD3$;_ ! ACTION CODE 3 S 2 219 !
7100 ^COO1 0000069D OACTDT1$;_ ! ACTION DATE 1 S 10 221 !
7200 ^COO1 000006A2 OACTDT2$;_ ! ACTION DATE 2 S 10 231 !
7300 ^COO1 000006A7 OACTDT3$;_ ! ACTION DATE 3 S 10 241 !
7400 ^COO1 000006AC OCSTOVRD$;_ ! COST OVERRIDE S 1 251 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 14
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
7500 ^COO1 000006B1 OORIGQTY;_ ! ORIGINAL ORD QTY N 6.2 252 !
7600 ^COO1 000006B6 OLEADTM;_ ! LEAD TIME N 3.0 260 !
7700 ^COO1 000006BB OLDSCPCT;_ ! LINE DISC % N 4.2 265 !
7800 ^COO1 000006C0 OLDSCAMT;_ ! LINE DISC AMT N 7.2 271 !
7900 ^COO1 000006C5 ONDPRICE;_ ! NON-DISC PRICE N 7.2 280 !
8000 ^COO1 000006CA O1FILLER$ ! FILLER S 223 289 !
8100 ^COO1 000006D0 ! !
8200 ^COO1 000006D0 !====================================================================!
5320 %WW-OE6 000006D0 USE '^COI1P' ! 0215 - PATTERN FILE
100 ^COI1P 000006D0 ! !
200 ^COI1P 000006D0 !===========================> ^COI1P <=============================!
300 ^COI1P 000006D0 ! !
400 ^COI1P 000006D0 ! File Format & Length Declaratives !
500 ^COI1P 000006D0 ! !
600 ^COI1P 000006D0 ! File Name: WWI1P PATTERN FILE !
700 ^COI1P 000006D0 ! !
800 ^COI1P 000006D0 ! Type: K Record: 999 Key: 7 Image: N !
900 ^COI1P 000006D0 ! !
1000 ^COI1P 000006D0 ! #FILES File Name: PATTERN.MASTER Date: 07/05/11 !
1100 ^COI1P 000006D0 ! !
1200 ^COI1P 000006D0 !--------------------------------------------------------------------!
1300 ^COI1P 000006D0 ! !
1400 ^COI1P 000006D0 ! !
1500 ^COI1P 000006D0 LENGTH 2.0 & LOCAL IACTWTOZ,IPNMEMOS,IWGHTOZ !
1600 ^COI1P 000006D0 LENGTH 3.0 & LOCAL IBSIZE,IPLEAD !
1700 ^COI1P 000006D0 LENGTH 4.0 & LOCAL IACTWTLB,ICBP2,ICBP3 !
1800 ^COI1P 000006D0 LENGTH 4.0 & LOCAL IMMINQTY,IPBP2,IPBP3 !
1900 ^COI1P 000006D0 LENGTH 4.0 & LOCAL IWGHTLB !
2000 ^COI1P 000006D0 LENGTH 4.2 & LOCAL IDUTYPCT,IROYRTE !
2100 ^COI1P 000006D0 LENGTH 5.2 & LOCAL IESTFRT,IMPRICE !
2200 ^COI1P 000006D0 LENGTH 6.2 & LOCAL IPMSCCST !
2300 ^COI1P 000006D0 LENGTH 7.2 & LOCAL IPRICE1,IPRICE2,IPRICE3 !
2400 ^COI1P 000006D0 LENGTH 7.4 & LOCAL IINVFACT,IPOFACT !
2500 ^COI1P 000006D0 LENGTH 9.2 & LOCAL IMCOST1,IMCOST2,IMCOST3 !
2600 ^COI1P 000006D0 LENGTH 9.2 & LOCAL ISAMPCST !
2700 ^COI1P 000006D0 LENGTH 1 & LOCAL IPACTCL$,IPACTCWD$,IPACTFR$ !
2800 ^COI1P 000006D0 LENGTH 1 & LOCAL IPACTGU$,IPACTHU$,IPACTPP$ !
2900 ^COI1P 000006D0 LENGTH 1 & LOCAL IBCP$,IFRTCODE$,IISFLG$ !
3000 ^COI1P 000006D0 LENGTH 1 & LOCAL IROYMETH$,ISMPCDE$,ISTKCFA$ !
3100 ^COI1P 000006D0 LENGTH 2 & LOCAL IPCATCD$,IPCONCD$,IPDESCD$ !
3200 ^COI1P 000006D0 LENGTH 2 & LOCAL IDESICDE$,IPMISCD$,IPL$ !
3300 ^COI1P 000006D0 LENGTH 4 & LOCAL IPPRDFLG$ !
3400 ^COI1P 000006D0 LENGTH 5 & LOCAL IFUNIT$,IMUNIT$,IUNIT$ !
3500 ^COI1P 000006D0 LENGTH 5 & LOCAL IVNBR$ !
3600 ^COI1P 000006D0 LENGTH 6 & LOCAL IPACCTNG$,ICURCDE$ !
3700 ^COI1P 000006D0 LENGTH 7 & LOCAL IPATTERN$ !
3700 ^COI1P *****6D0 Variable 'IPATTERN$ ' has been previously declared
3800 ^COI1P 000006D0 LENGTH 10 & LOCAL IPCEDTE$,IPDISDT$,IDTEINT$ !
3900 ^COI1P 000006D0 LENGTH 10 & LOCAL IPEDTE$,IREXPDTE$,IWIDTH$ !
4000 ^COI1P 000006D0 LENGTH 14 & LOCAL IPBOOKID$,IGRINBR$ !
4100 ^COI1P 000006D0 LENGTH 15 & LOCAL ICOUNTRY$,IFINISH$ !
4200 ^COI1P 000006D0 LENGTH 20 & LOCAL IREPEAT$ !
4300 ^COI1P 000006D0 LENGTH 30 & LOCAL IPATTNME$ !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 15
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
4400 ^COI1P 000006D0 LENGTH 40 & LOCAL ICONTNT1$,ICONTNT2$ !
4500 ^COI1P 000006D0 LENGTH 40 & LOCAL ILABDSC1$,ILABDSC2$,ITEST1$ !
4600 ^COI1P 000006D0 LENGTH 40 & LOCAL ITEST2$ !
4700 ^COI1P 000006D0 LENGTH 50 & LOCAL ICOMNT1$,ICOMNT2$,ICOMNT3$ !
4800 ^COI1P 000006D0 LENGTH 178 & LOCAL IFIL0215$ !
4900 ^COI1P 000006D0 ! !
5000 ^COI1P 000006D0 ! !
5100 ^COI1P 000006D0 ! Description Type Len Pos !
5200 ^COI1P 000006D0 ! ------------------------------------------!
5300 ^COI1P 000006D0 0215 FORMAT _ !
5400 ^COI1P 000006D0 IPATTERN$;_ ! PATTERN NUMBER S 7 0 !
5500 ^COI1P 000006D5 IPATTNME$;_ ! PATTERN NAME S 30 7 !
5600 ^COI1P 000006DA IWIDTH$;_ ! WIDTH S 10 37 !
5700 ^COI1P 000006DF IREPEAT$;_ ! REPEAT S 20 47 !
5800 ^COI1P 000006E4 ICONTNT1$;_ ! CONTENT 1 S 40 67 !
5900 ^COI1P 000006E9 ICONTNT2$;_ ! CONTENT 2 S 40 107 !
6000 ^COI1P 000006EE IFINISH$;_ ! FINISH S 15 147 !
6100 ^COI1P 000006F3 ICOUNTRY$;_ ! COUNTRY OF ORIGIN S 15 162 !
6200 ^COI1P 000006F8 IVNBR$;_ ! VENDOR CODE S 5 177 !
6300 ^COI1P 000006FD IPLEAD;_ ! LEAD TIME N 3.0 182 !
6400 ^COI1P 00000702 IWGHTLB;_ ! WEIGHT POUNDS N 4.0 187 !
6500 ^COI1P 00000707 IWGHTOZ;_ ! WEIGHT OUNCES N 2.0 193 !
6600 ^COI1P 0000070C ILABDSC1$;_ ! LABEL DESCRIPTION 1 S 40 197 !
6700 ^COI1P 00000711 ILABDSC2$;_ ! LABEL DESCRIPTION 2 S 40 237 !
6800 ^COI1P 00000716 ITEST1$;_ ! TEST 1 S 40 277 !
6900 ^COI1P 0000071B ITEST2$;_ ! TEST 2 S 40 317 !
7000 ^COI1P 00000720 IPL$;_ ! PRODUCT LINE S 2 357 !
7100 ^COI1P 00000725 IDTEINT$;_ ! INTRODUCTION DATE S 10 359 !
7200 ^COI1P 0000072A ICOMNT1$;_ ! COMMENT 1 S 50 369 !
7300 ^COI1P 0000072F ICOMNT2$;_ ! COMMENT 2 S 50 419 !
7400 ^COI1P 00000734 ICOMNT3$;_ ! COMMENT 3 S 50 469 !
7500 ^COI1P 00000739 IUNIT$;_ ! UNIT OF MEASURE S 5 519 !
7600 ^COI1P 0000073E IPRICE1;_ ! PRICE 1 N 7.2 524 !
7700 ^COI1P 00000743 IPRICE2;_ ! PRICE 2 N 7.2 533 !
7800 ^COI1P 00000748 IPRICE3;_ ! PRICE 3 N 7.2 542 !
7900 ^COI1P 0000074D IPEDTE$;_ ! PRICE EFFECTIVE DTE S 10 551 !
8000 ^COI1P 00000752 IPBP2;_ ! PRICE BREAK POINT 2 N 4.0 561 !
8100 ^COI1P 00000757 IPBP3;_ ! PRICE BREAK POINT 3 N 4.0 567 !
8200 ^COI1P 0000075C IBSIZE;_ ! STANDARD BOLT SIZE N 3.0 573 !
8300 ^COI1P 00000761 ISMPCDE$;_ ! SAMPLE CODE S 1 578 !
8400 ^COI1P 00000766 IROYRTE;_ ! ROYALTY RATE N 4.2 579 !
8500 ^COI1P 0000076B IREXPDTE$;_ ! ROY ALTY EXP DATE S 10 585 !
8600 ^COI1P 00000770 IROYMETH$;_ ! ROYALTY METHOD S 1 595 !
8700 ^COI1P 00000775 IMUNIT$;_ ! MILLS UNIT OF MEAS S 5 596 !
8800 ^COI1P 0000077A IPOFACT;_ ! PO FACTOR N 7.4 601 !
8900 ^COI1P 0000077F IMMINQTY;_ ! MILLS MINIMUM ORDER N 4.0 610 !
9000 ^COI1P 00000784 IMCOST1;_ ! MILLS COST 1 N 9.2 616 !
9100 ^COI1P 00000789 IMCOST2;_ ! MILLS COST 2 N 9.2 627 !
9200 ^COI1P 0000078E IMCOST3;_ ! MILLS COST 3 N 9.2 638 !
9300 ^COI1P 00000793 IPCEDTE$;_ ! COST EFFECTIVE DATE S 10 649 !
9400 ^COI1P 00000798 ICBP2;_ ! COST BREAK POINT 2 N 4.0 659 !
9500 ^COI1P 0000079D ICBP3;_ ! COST BREAK POINT 3 N 4.0 665 !
9600 ^COI1P 000007A2 IBCP$;_ ! BASE COST POINT S 1 671 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 16
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
9700 ^COI1P 000007A7 IPDISDT$;_ ! DISCONTINUE DATE S 10 672 !
9800 ^COI1P 000007AC ICURCDE$;_ ! CURRENCY CODE S 6 682 !
9900 ^COI1P 000007B1 IMPRICE;_ ! MEMO SAMPLE PRICE N 5.2 688 !
10000 ^COI1P 000007B6 IDUTYPCT;_ ! DUTY PERCENT N 4.2 695 !
10100 ^COI1P 000007BB IESTFRT;_ ! ESTIMATED FRT N 5.2 701 !
10200 ^COI1P 000007C0 IISFLG$;_ ! SER VICE FLAG S 1 708 !
10300 ^COI1P 000007C5 IPMSCCST;_ ! MISC COST N 6.2 709 !
10400 ^COI1P 000007CA IACTWTLB;_ ! ACTUAL WT POUNDS N 4.0 717 !
10500 ^COI1P 000007CF IACTWTOZ;_ ! ACTUAL WT OUNCES N 2.0 723 !
10600 ^COI1P 000007D4 IINVFACT;_ ! INV FACTOR N 7.4 727 !
10700 ^COI1P 000007D9 IFUNIT$;_ ! FOREIGN UNITS S 5 736 !
10800 ^COI1P 000007DE ISTKCFA$;_ ! STOCK CUTTINGS FLAG S 1 741 !
10900 ^COI1P 000007E3 IDESICDE$;_ ! DESIGNER CODE S 2 742 !
11000 ^COI1P 000007E8 IPNMEMOS;_ ! NUM MEM SAMP N 2.0 744 !
11100 ^COI1P 000007ED IFRTCODE$;_ ! FREIGHT CODE S 1 748 !
11200 ^COI1P 000007F2 ISAMPCST;_ ! SAMPLE COST N 9.2 749 !
11300 ^COI1P 000007F7 IPACCTNG$;_ ! ACCOUNTING CODE S 6 760 !
11400 ^COI1P 000007FC IPBOOKID$;_ ! BOOK ID S 14 766 !
11500 ^COI1P 00000801 IPCATCD$;_ ! CATEGORY CODE S 2 780 !
11600 ^COI1P 00000806 IPDESCD$;_ ! DESIGN CODE S 2 782 !
11700 ^COI1P 0000080B IPCONCD$;_ ! CONTENT CODE S 2 784 !
11800 ^COI1P 00000810 IPMISCD$;_ ! MISC CODE S 2 786 !
11900 ^COI1P 00000815 IPPRDFLG$;_ ! PRODUCT FLAG S 4 788 !
12000 ^COI1P 0000081A IPACTFR$;_ ! ACT CODE FR S 1 792 !
12100 ^COI1P 0000081F IPACTCWD$;_ ! ACT CODE CWD S 1 793 !
12200 ^COI1P 00000824 IPACTCL$;_ ! ACT CODE CL S 1 794 !
12300 ^COI1P 00000829 IPACTPP$;_ ! ACT CODE PP S 1 795 !
12400 ^COI1P 0000082E IPACTGU$;_ ! ACT CODE GU S 1 796 !
12500 ^COI1P 00000833 IPACTHU$;_ ! ACT CODE HU S 1 797 !
12600 ^COI1P 00000838 IGRINBR$;_ ! GROUND ITEM NO S 14 798 !
12700 ^COI1P 0000083D IFIL0215$ ! FILLER S 178 812 !
12800 ^COI1P 00000843 ! !
12900 ^COI1P 00000843 !====================================================================!
5340 %WW-OE6 00000843 USE '^COM1C' ! 0650 - MISC CODE FL
100 ^COM1C 00000843 ! !
200 ^COM1C 00000843 !===========================> ^COM1C <=============================!
300 ^COM1C 00000843 ! !
400 ^COM1C 00000843 ! File Format & Length Declaratives !
500 ^COM1C 00000843 ! !
600 ^COM1C 00000843 ! File Name: WWM1C MISCELANEOUS CODE FILE !
700 ^COM1C 00000843 ! !
800 ^COM1C 00000843 ! Type: K Record: 126 Key: 3 Image: N !
900 ^COM1C 00000843 ! !
1000 ^COM1C 00000843 ! #FILES File Name: MISC.CODE.FILE Date: 05/26/04 !
1100 ^COM1C 00000843 ! !
1200 ^COM1C 00000843 !--------------------------------------------------------------------!
1300 ^COM1C 00000843 ! !
1400 ^COM1C 00000843 ! !
1500 ^COM1C 00000843 LENGTH 2.0 & LOCAL MDENRTR1,MDENRTR2,MDENRTR3 !
1600 ^COM1C 00000843 LENGTH 2.0 & LOCAL MNUMRTR1,MNUMRTR2,MNUMRTR3 !
1700 ^COM1C 00000843 LENGTH 3.0 & LOCAL MEXTDAY1,MEXTDAY2,MEXTDAY3 !
1800 ^COM1C 00000843 LENGTH 4.2 & LOCAL MAPDISC !
1900 ^COM1C 00000843 LENGTH 12.8 & LOCAL MEXCRATE !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 17
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2000 ^COM1C 00000843 LENGTH 1 & LOCAL MARKEADJ$,MASGNLP$ !
2100 ^COM1C 00000843 LENGTH 1 & LOCAL MINVFLAG$,MLEFLAG$,MCTYPE$ !
2200 ^COM1C 00000843 LENGTH 1 & LOCAL MPGFLAG$,MPROFORA$,MSAMPLE$ !
2300 ^COM1C 00000843 LENGTH 2 & LOCAL MCODE$ !
2400 ^COM1C 00000843 LENGTH 3 & LOCAL MUNUSED$ !
2500 ^COM1C 00000843 LENGTH 6 & LOCAL MWHSPASS$ !
2600 ^COM1C 00000843 LENGTH 8 & LOCAL MGLCODE$ !
2700 ^COM1C 00000843 LENGTH 40 & LOCAL MCDESC$ !
2800 ^COM1C 00000843 ! !
2900 ^COM1C 00000843 ! !
3000 ^COM1C 00000843 ! Description Type Len Pos !
3100 ^COM1C 00000843 ! ------------------------------------------!
3200 ^COM1C 00000843 0650 FORMAT _ !
3300 ^COM1C 00000843 MCTYPE$;_ ! TYPE S 1 0 !
3400 ^COM1C 00000848 MCODE$;_ ! CODE S 2 1 !
3500 ^COM1C 0000084D MUNUSED$;_ ! UNUSED S 3 3 !
3600 ^COM1C 00000852 MCDESC$;_ ! DESCRIPTION S 40 6 !
3700 ^COM1C 00000857 MSAMPLE$;_ ! SAMPLE LINE S 1 46 !
3800 ^COM1C 0000085C MLEFLAG$;_ ! LEATHER FLAG S 1 47 !
3900 ^COM1C 00000861 MPGFLAG$;_ ! PCE GOOD FLG S 1 48 !
4000 ^COM1C 00000866 MGLCODE$;_ ! G.L. CODE S 8 49 !
4100 ^COM1C 0000086B MPROFORA$;_ ! PROFORMA FLAG S 1 57 !
4200 ^COM1C 00000870 MEXTDAY1;_ ! EXTRA DAYS 1 N 3.0 58 !
4300 ^COM1C 00000875 MEXTDAY2;_ ! EXTRA DAYS 2 N 3.0 63 !
4400 ^COM1C 0000087A MEXTDAY3;_ ! EXTRA DAYS 3 N 3.0 68 !
4500 ^COM1C 0000087F MNUMRTR1;_ ! NUMERATOR 1 N 2.0 73 !
4600 ^COM1C 00000884 MNUMRTR2;_ ! NUMERATOR 2 N 2.0 77 !
4700 ^COM1C 00000889 MNUMRTR3;_ ! NUMERATOR 3 N 2.0 81 !
4800 ^COM1C 0000088E MDENRTR1;_ ! DENOMINATOR 1 N 2.0 85 !
4900 ^COM1C 00000893 MDENRTR2;_ ! DENOMINATOR 2 N 2.0 89 !
5000 ^COM1C 00000898 MDENRTR3;_ ! DENOMINATOR 3 N 2.0 93 !
5100 ^COM1C 0000089D MEXCRATE;_ ! EXCHANGE RATE N 12.8 97 !
5200 ^COM1C 000008A2 MAPDISC;_ ! A/P DISC PCT N 4.2 111 !
5300 ^COM1C 000008A7 MINVFLAG$;_ ! INVENTORY FLAG S 1 117 !
5400 ^COM1C 000008AC MARKEADJ$;_ ! AR CASH ADJUST S 1 118 !
5500 ^COM1C 000008B1 MWHSPASS$;_ ! WHSE OP PASSWORD S 6 119 !
5600 ^COM1C 000008B6 MASGNLP$ ! ASSIGN LOT/PIECE FLAG S 1 125 !
5700 ^COM1C 000008BC ! !
5800 ^COM1C 000008BC !====================================================================!
5360 %WW-OE6 000008BC USE '^COO19' ! 0800 - ORDER MESSAGES
1000 ^COO19 000008BC ! !
1100 ^COO19 000008BC !************************* ^COO19 *******************************!
1200 ^COO19 000008BC ! !
1300 ^COO19 000008BC ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: COO19 TYPE: K !
1400 ^COO19 000008BC ! !
1500 ^COO19 000008BC ! STANDARD MESSAGES FOR FORMS REC SIZE: 378 !
1600 ^COO19 000008BC ! KEY SIZE: 6 !
1700 ^COO19 000008BC ! !
1800 ^COO19 000008BC ! #FILE NAME: MESSAGES.FORMS DATE: 07/10/92 !
1900 ^COO19 000008BC ! !
1910 ^COO19 000008BC ! BY: CRITERION DESIGN & PROGRAMMING LTD. !
1920 ^COO19 000008BC ! !
2000 ^COO19 000008BC !********************************************************************!
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 18
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2100 ^COO19 000008BC ! !
2200 ^COO19 000008BC ! FILE STATEMENT !
2300 ^COO19 000008BC ! !
2400 ^COO19 000008BC !!!!FILE 'COO19',756 !
2500 ^COO19 000008BC ! !
2600 ^COO19 000008BC ! VARIABLE DECLARATIONS: !
2700 ^COO19 000008BC ! !
2800 ^COO19 000008BC LENGTH 1 & LOCAL MCODEB$,MCODEC$,MCODEP$,MCODER$ !
2900 ^COO19 000008BC LENGTH 3 & LOCAL MCODEM1$,MCODEM2$ !
3000 ^COO19 000008BC LENGTH 40 & LOCAL MOTDESC$ !
3100 ^COO19 000008BC LENGTH 70 & LOCAL MLINE1$,MLINE10$,MLINE2$,MLINE3$ !
3200 ^COO19 000008BC LENGTH 70 & LOCAL MLINE4$,MLINE5$,MLINE6$,MLINE7$ !
3300 ^COO19 000008BC LENGTH 70 & LOCAL MLINE8$,MLINE9$ !
3400 ^COO19 000008BC ! !
3500 ^COO19 000008BC ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION!
3600 ^COO19 000008BC ! !
3700 ^COO19 000008BC 0800 FORMAT _ !
3800 ^COO19 000008BC MCODEB$;_ ! BCK S 1 0 !
3900 ^COO19 000008C1 MCODEC$;_ ! CFA S 1 1 !
4000 ^COO19 000008C6 MCODEP$;_ ! PRO S 1 2 !
4100 ^COO19 000008CB MCODEM1$;_ ! MSC1 S 3 3 !
4200 ^COO19 000008D0 MCODEM2$;_ ! MSC2 S 3 6 !
4300 ^COO19 000008D5 MCODER$;_ ! RES S 1 9 !
4400 ^COO19 000008DA MLINE1$;_ ! LINE 1 S 70 10 !
4500 ^COO19 000008DF MLINE2$;_ ! LINE 2 S 70 80 !
4600 ^COO19 000008E4 MLINE3$;_ ! LINE 3 S 70 150 !
4700 ^COO19 000008E9 MLINE4$;_ ! LINE 4 S 70 220 !
4800 ^COO19 000008EE MLINE5$;_ ! LINE 5 S 70 290 !
4900 ^COO19 000008F3 MLINE6$;_ ! LINE 6 S 70 360 !
5000 ^COO19 000008F8 MLINE7$;_ ! LINE 7 S 70 430 !
5100 ^COO19 000008FD MLINE8$;_ ! LINE 8 S 70 500 !
5200 ^COO19 00000902 MLINE9$;_ ! LINE 9 S 70 570 !
5300 ^COO19 00000907 MLINE10$;_ ! LINE 10 S 70 640 !
5400 ^COO19 0000090C MOTDESC$ ! OT DESCRIPTION S 40 710 !
5500 ^COO19 00000912 ! !
5600 ^COO19 00000912 !********************************************************************!
5380 %WW-OE6 00000912 USE '^COPM' ! 0089 - PASSWORD MASTER
1000 ^COPM 00000912 ! !
1100 ^COPM 00000912 !************************* [WWPM *******************************!
1200 ^COPM 00000912 ! !
1300 ^COPM 00000912 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWPM TYPE: K !
1400 ^COPM 00000912 ! !
1500 ^COPM 00000912 ! PASSWORD MASTER REC SIZE: 16 !
1600 ^COPM 00000912 ! KEY SIZE: 8 !
1700 ^COPM 00000912 ! !
1800 ^COPM 00000912 ! #FILE NAME: PASSWORD.MASTER DATE: 04/14/92 !
1900 ^COPM 00000912 ! !
1910 ^COPM 00000912 ! BY: CRITERION DESIGN & PROGRAMMING LTD. !
1920 ^COPM 00000912 ! !
2000 ^COPM 00000912 !********************************************************************!
2100 ^COPM 00000912 ! !
2200 ^COPM 00000912 ! FILE STATEMENT !
2300 ^COPM 00000912 ! !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 19
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2400 ^COPM 00000912 !!!!FILE 'WWPM', 16 !
2500 ^COPM 00000912 ! !
2600 ^COPM 00000912 ! VARIABLE DECLARATIONS: !
2700 ^COPM 00000912 ! !
2800 ^COPM 00000912 LENGTH 6 & LOCAL PASSWD$ !
2900 ^COPM 00000912 LENGTH 8 & LOCAL PROG$ !
3000 ^COPM 00000912 ! !
3100 ^COPM 00000912 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH POSITION!
3200 ^COPM 00000912 ! !
3300 ^COPM 00000912 0089 FORMAT _ !
3400 ^COPM 00000912 PROG$;_ ! PROGRAM NAME S 8 0 !
3500 ^COPM 00000917 PASSWD$ ! PASSWORD S 6 8 !
3600 ^COPM 0000091D ! !
3700 ^COPM 0000091D !********************************************************************!
6000 %WW-OE6 0000091D !
6010 %WW-OE6 0000091D LENGTH 3 & LOCAL OPINITS$, TERMNUM$
6020 %WW-OE6 0000091D 0002 FORMAT _
6030 %WW-OE6 0000091D ORNBR$;OPINITS$;TERMNUM$
6040 %WW-OE6 0000092D !
7300 %WW-OE6 0000092D LENGTH 9.2 & LOCAL RAMT,ZRAMT
7320 %WW-OE6 0000092D 0071 FORMAT _
7340 %WW-OE6 0000092D ZRAMT,@(34)
7360 %WW-OE6 00000937 !
7460 %WW-OE6 00000937 LENGTH 8 & LOCAL RDATE$
7480 %WW-OE6 00000937 0070 FORMAT _
7500 %WW-OE6 00000937 RDATE$,@(15);RAMT,@(34)
7520 %WW-OE6 0000094A !
7530 %WW-OE6 0000094A LENGTH 5.0 & LOCAL ZPAYLIM
7540 %WW-OE6 0000094A 0999 FORMAT _
7550 %WW-OE6 0000094A ZPAYLIM,@(348)
7560 %WW-OE6 00000954 !
9000 %WW-OE6 00000954 ! ========== WORKING STORAGE ==========
9100 %WW-OE6 00000954 LENGTH 1 & LOCAL READFLG$,VRT$,MORE$,ZPROFORA$,DEPTYPE$
9120 %WW-OE6 00000954 LENGTH 1 & LOCAL ZCFAFLG$,ZRESFLG$,ZPROFLG$,REPONFL$
9140 %WW-OE6 00000954 LENGTH 1 & LOCAL REL$(5),EXT$(5),FOL$(5),ZCPF$,REPRINT$
9160 %WW-OE6 00000954 LENGTH 1 & LOCAL QUADSEC$
9200 %WW-OE6 00000954 LENGTH 2 & LOCAL TRCODE$,ZZCO$,ZTERMCDE$,HILITE1$,TERMS$
9220 %WW-OE6 00000954 LENGTH 2 & LOCAL HILITE2$,HILITE3$,HILITE4$,HILITE5$
9300 %WW-OE6 00000954 LENGTH 3 & LOCAL SNBR$,ZSNBR1$,ZSNBR2$
9320 %WW-OE6 00000954 LENGTH 3 & LOCAL ZHOLD1$,ZHOLD2$,ORIGSNBR$
9340 %WW-OE6 00000954 LENGTH 4 & LOCAL YYMM$
9360 %WW-OE6 00000954 LENGTH 6 & LOCAL YYMMDD$,SHIPTO$,ZSPNBR$,ZFINNBR$,ZSPCNBR$
9380 %WW-OE6 00000954 LENGTH 6 & LOCAL STNUM$(6),SAVCUST$
9390 %WW-OE6 00000954 LENGTH 7 & LOCAL PARTKY7$
9400 %WW-OE6 00000954 LENGTH 8 & LOCAL PROG$
9400 %WW-OE6 *****954 Variable 'PROG$ ' has been previously declared
9420 %WW-OE6 00000954 LENGTH 9 & LOCAL NUMBER$,ZRSNBR$,RELORD$
9440 %WW-OE6 00000954 LENGTH 10 & LOCAL ZDATE$,Z1$
9510 %WW-OE6 00000954 LENGTH 14 & LOCAL ZINBR$
9514 %WW-OE6 00000954 LENGTH 15 & LOCAL CORNBR$,GUAR$(2),ZGUARBY$
9516 %WW-OE6 00000954 LENGTH 20 & LOCAL CMNT$(5)
9520 %WW-OE6 00000954 LENGTH 23 & LOCAL PARTKY23$
9540 %WW-OE6 00000954 LENGTH 32 & LOCAL KEY$
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 20
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
9600 %WW-OE6 00000954 !
9700 %WW-OE6 00000954 LENGTH 2.0 & LOCAL TYPE,PASS,ERR,SEQ,I,SCREEN
9710 %WW-OE6 00000954 LENGTH 2.0 & LOCAL LINE1
9712 %WW-OE6 00000954 LENGTH 4.0 & LOCAL WORK40
9720 %WW-OE6 00000954 LENGTH 7.0 & LOCAL TDJUL,ZDJUL
9730 %WW-OE6 00000954 LENGTH 9.2 & LOCAL PAY(2),ZDEPOSIT
9740 %WW-OE6 00000954 LENGTH 1.0 & LOCAL NOTES,CRCHK,ASKEND
9750 %WW-OE6 00000954 LENGTH 4.2 & LOCAL ZDISCPCT
9760 %WW-OE6 00000954 LENGTH 9.2 & LOCAL CRLIMCHK,NETDUE
9900 %WW-OE6 00000954 USE '^CODTVAR'
100 ^CODTVAR 00000954 !
200 ^CODTVAR 00000954 ! ========== DATE CHECK VARIABLES ==========
300 ^CODTVAR 00000954 LENGTH 10 & LOCAL XDATE$
400 ^CODTVAR 00000954 LENGTH 2 & LOCAL XMO$,XDA$,XYR$,XCT$
500 ^CODTVAR 00000954 LENGTH 4 & LOCAL XCTYR$
600 ^CODTVAR 00000954 LENGTH 1.0 & LOCAL ZDYWK
700 ^CODTVAR 00000954 LENGTH 2.0 & LOCAL XDA,XMO,XYR,XCT,DATEOK,XPOS,YPOS
800 ^CODTVAR 00000954 LENGTH 3.0 & LOCAL MONTH,DAY,YEAR,LEAPYR,ZDYYR
900 ^CODTVAR 00000954 LENGTH 4.0 & LOCAL XCTYR
1000 ^CODTVAR 00000954 LENGTH 5.0 & LOCAL XTEMPNO
1100 ^CODTVAR 00000954 LENGTH 6.0 & LOCAL ZDYCT
9920 %WW-OE6 00000954 !=====================================================================
9922 %WW-OE6 00000954 LENGTH 68 & LOCAL MESS$
9924 %WW-OE6 00000954 LENGTH 10 & LOCAL AN$
9926 %WW-OE6 00000954 !!!! LENGTH 40 & LOCAL STITLE$
9928 %WW-OE6 00000954 LENGTH 8 & LOCAL FLNM$
9930 %WW-OE6 00000954 LENGTH 3.0 & LOCAL AN,POS,LINE,LM,PM
9932 %WW-OE6 00000954 !!!! LENGTH 20 & LOCAL CHAR$
9934 %WW-OE6 00000954 LENGTH 1 & LOCAL BLIND$ !BLIND MODE FLA
9936 %WW-OE6 00000954 !!!! SET BUSY=33,EOF=2,KEYERR=32
9938 %WW-OE6 00000954 !=====================================================================
9940 %WW-OE6 00000954 ! FORMAT STATEMENTS
9942 %WW-OE6 00000954 !=====================================================================
9944 %WW-OE6 00000954 90 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM)
9946 %WW-OE6 00000971 91 FORMAT (BF),@(0,23)
9948 %WW-OE6 0000097A 92 FORMAT (RB),@(0,23)
9950 %WW-OE6 00000983 95 FORMAT @(POS,LINE)
9952 %WW-OE6 0000098D 96 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM);(BM)
9954 %WW-OE6 000009AE !00 FORMAT(CS)
9956 %WW-OE6 000009AE !10 FORMAT(SB);(BF),@(0,0);ZDATE$,@(0,0);_
9958 %WW-OE6 000009AE !!!! STITLE$,@(TTLPOS,0);'-';@(70);ZNAME$,10
9960 %WW-OE6 000009AE !20 FORMAT '@0403@' ! SET FOR 80 CH
9962 %WW-OE6 000009AE 130 FORMAT '@0402@' ! SET FOR 64 CH
9964 %WW-OE6 000009B4 !
9966 %WW-OE6 000009B4 SET Z1 = 10
9968 %WW-OE6 000009B4 !
10000 %WW-OE6 000009B4 ! ========== CRT FORMATS ==========
11380 %WW-OE6 000009B4 !
11460 %WW-OE6 000009B4 3470 FORMAT @(0,10);_
11480 %WW-OE6 000009BD (BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);_
11500 %WW-OE6 000009E1 (BF);(BF);(BF);(BF);(BF);(SF)
11520 %WW-OE6 000009FA !
11540 %WW-OE6 000009FA 3480 FORMAT _
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 21
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
11560 %WW-OE6 000009FA '<< CREDIT CHECKING - PLEASE WAIT >>',@(22,15)
11580 %WW-OE6 00000A08 !
11600 %WW-OE6 00000A08 3490 FORMAT _
11620 %WW-OE6 00000A08 @(0,15);(BF);(SF)
11640 %WW-OE6 00000A1A !
12000 %WW-OE6 00000A1A 3550 FORMAT _
12010 %WW-OE6 00000A1A (SB);_
12020 %WW-OE6 00000A1E 'HOLD FOR ',@(0,10);(TP);(SF);OHOLD1$;(SSB);' ';_
12030 %WW-OE6 00000A3E (SB);'$';(RJ);_
12040 %WW-OE6 00000A4B (SF);OHOLDAMT,(BZ);(SB);_
12050 %WW-OE6 00000A59 'PRV DEP',@(28,10);(SF);ZDEPOSIT;(SB);_
12060 %WW-OE6 00000A70 'TOT DEP';(SF);ODEPOSIL;(SB);_
12100 %WW-OE6 00000A82 'TOTAL',@(64,10);(SF);ONET;(SB);_
12110 %WW-OE6 00000A99 'HOLD FOR ',@(0,11);(SSB);' ';(SF);OHOLD2$;(SB);_
12120 %WW-OE6 00000AB9 'NET DUE',@(28,11);(SF);NETDUE;(SB);_
12130 %WW-OE6 00000AD0 ' FRT ',@(60,11);(SF);' ';(RJ);OFRT;(SB);_
12452 %WW-OE6 00000AF0 'PROFORMA: ',@(0,12);HILITE1$;' RELEASE(Y)';(TP);_
12460 %WW-OE6 00000B08 (SF);REL$(1);(SSB);' ';(SB);_
12480 %WW-OE6 00000B23 ' PAYMENT $ ';(RJ);(SF);PAY(1),(BZ);(SB);_
12500 %WW-OE6 00000B3E ' EXTEND(Y) ';(SSB);' ';(SF);EXT$(1);(SSB);' ';(SB);_
12520 %WW-OE6 00000B67 ' FOLLOWUP(Y) ';(SSB);' ';(SF);FOL$(1);(SSB);(BF);(SB);_
12540 %WW-OE6 00000B8F ' COMMENT ';(SSB);' ';(SF);CMNT$(1);(SSB);_
12560 %WW-OE6 00000BAF '',5;(SB);' GUARANTEED ';(SSB);' ';(SF);GUAR$(1);(SSB);_
12580 %WW-OE6 00000BDB (BF);(SB);_
12600 %WW-OE6 00000BE3 'CFA: ',@(0,14);HILITE2$;' RELEASE(Y)';(SSB);' ';_
12620 %WW-OE6 00000C00 (SF);REL$(2);(SSB);'',24;(SB);_
12660 %WW-OE6 00000C1E ' EXTEND(Y) ';(SSB);' ';(SF);EXT$(2);(SSB);' ';(SB);_
12680 %WW-OE6 00000C47 ' FOLLOWUP(Y) ';(SSB);' ';(SF);FOL$(2);(SSB);(BF);(SB);_
12700 %WW-OE6 00000C6F ' COMMENT ';(SSB);' ';(SF);CMNT$(2);(SSB);_
12740 %WW-OE6 00000C8F (BF);(SF)
12750 %WW-OE6 00000C98 !
12760 %WW-OE6 00000C98 3560 FORMAT _
12770 %WW-OE6 00000C98 (SB);'HOLD 1: ',@(0,16);_
12774 %WW-OE6 00000CA6 HILITE3$;' RELEASE(Y)';(SSB);' ';_
12780 %WW-OE6 00000CB9 (SF);REL$(3);(SSB);' ';(SB);_
12800 %WW-OE6 00000CD4 ' PAYMENT $ ';(RJ);(SF);PAY(2),(BZ);(SB);_
12820 %WW-OE6 00000CEF ' EXTEND(Y) ';(SSB);' ';(SF);EXT$(3);(SSB);' ';(SB);_
12840 %WW-OE6 00000D18 ' FOLLOWUP(Y) ';(SSB);' ';(SF);FOL$(3);(SSB);(BF);(SB);_
12860 %WW-OE6 00000D40 ' COMMENT ';(SSB);' ';(SF);CMNT$(3);(SSB);_
12880 %WW-OE6 00000D60 '',5;(SB);' GUARANTEED ';(SSB);' ';(SF);GUAR$(2);(SSB);_
12900 %WW-OE6 00000D8C (BF);(SB);_
12920 %WW-OE6 00000D94 'HOLD 2: ',@(0,18);_
12924 %WW-OE6 00000D9E HILITE4$;' RELEASE(Y)';(SSB);' ';_
12940 %WW-OE6 00000DB1 (SF);REL$(4);(SSB);(BF);(SB);_
12960 %WW-OE6 00000DCB ' COMMENT ';(SSB);' ';(SF);CMNT$(4);(SSB);_
12980 %WW-OE6 00000DEB (BF);(SB);_
13000 %WW-OE6 00000DF3 'RESERVE: ',@(0,20);HILITE5$;' RELEASE(Y)';(SSB);' ';_
13020 %WW-OE6 00000E10 (SF);REL$(5);(SSB);(BF);(SB);_
13040 %WW-OE6 00000E2A ' COMMENT ';(SSB);' ';(SF);CMNT$(5);(TM)
13060 %WW-OE6 00000E4B !!!! @(0,12)
13080 %WW-OE6 00000E4B !
13100 %WW-OE6 00000E4B 3570 FORMAT _
13120 %WW-OE6 00000E4B REL$(1);PAY(1);EXT$(1);FOL$(1);CMNT$(1);GUAR$(1);_
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 22
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
13140 %WW-OE6 00000E87 REL$(2); EXT$(2);FOL$(2);CMNT$(2);_
13160 %WW-OE6 00000EAF REL$(3);PAY(2);EXT$(3);FOL$(3);CMNT$(3);GUAR$(2);_
13180 %WW-OE6 00000EEB REL$(4); CMNT$(4);_
13200 %WW-OE6 00000EFF REL$(5); CMNT$(5)
13220 %WW-OE6 00000F14 !
13240 %WW-OE6 00000F14 3580 FORMAT _
13260 %WW-OE6 00000F14 '<< UPDATING LINES - PLEASE WAIT >>',@(22,15)
13280 %WW-OE6 00000F22 !
19900 %WW-OE6 00000F22 USE '^COOESET'
19900 ^COOESET 00000F22 SET C1A = 1 , M1C = 3 , S1 = 5
19904 ^COOESET 00000F22 SET O1A = 6 , O1 = 7 , I1A = 8 , I1P = 9 , Q6 = 11
19908 ^COOESET 00000F22 SET O0 = 12 , O2 = 13 , ZONE = 14 , RATE = 15 , T1 = 16
19912 ^COOESET 00000F22 SET O1E = 17 , O1B = 18 , Q1 = 20 , CS2I = 21
19916 ^COOESET 00000F22 SET O1BOR= 22 , C1X = 23 , O6N = 24 , I1R = 25 , V1 = 26
19920 ^COOESET 00000F22 SET R1 = 27 , O1H = 30 , O2H = 31
19924 ^COOESET 00000F22 SET O1P = 32 , I1X = 33 , O1S = 34 , O1ARD = 36
19928 ^COOESET 00000F22 SET SRTSAV = 37 , SRTCAN = 38
19932 ^COOESET 00000F22 SET O1RD = 39 , O1AWT = 40 , O1WT = 41 , O6NWT=42
19936 ^COOESET 00000F22 SET O1BWT = 43 , O1BRD = 44 , O1SWT = 45 , C1N = 46
19940 ^COOESET 00000F22 SET O1EWT = 47 , R9M = 48 , O1C2 = 49
19944 ^COOESET 00000F22 !
19948 ^COOESET 00000F22 ! THE FOLLOWING FILES ARE OPENED AND CLOSED ON LUN 29 WHEN ACCESSE
19952 ^COOESET 00000F22 !
19956 ^COOESET 00000F22 SET LP = 29 , C1C = 29 , C1R = 29 , I1CS = 29 , C1AC = 29
19960 ^COOESET 00000F22 SET O1RA = 29 , S1P = 29 , PW = 29 , O19 = 29
19964 ^COOESET 00000F22 !
20000 %WW-OE6 00000F22 ! ========== OPEN FILES ==========
20100 %WW-OE6 00000F22 CLEAR LOCAL
20200 %WW-OE6 00000001 ZDATE$ = ZZDATE$
20300 %WW-OE6 0000000A ZZCO$ = ZCO$
20310 %WW-OE6 00000013 XDATE$ = ZDATE$ ! TLF 08/24/2011, MOVED HERE FROM 700
20320 %WW-OE6 0000001C GOSUB 8920 ! QUADRILLE PARTIAL CHECK CAN TAKE PL
20330 %WW-OE6 00000021 ZDJUL = ZDYCT
20400 %WW-OE6 0000002B PROGID$ = 'WWOE6'
20500 %WW-OE6 00000034 ZNET = 0 & DEPTYPE$ = 'A'
20600 %WW-OE6 00000047 EXTRACT (O1A,0060)KEY=ZORNBR$,EXCP=6000
20700 %WW-OE6 00000056 ZCFAFLG$ = OCFAFLG$
20800 %WW-OE6 0000005F ZPROFLG$ = OPROFLG$
20900 %WW-OE6 00000068 ZRESFLG$ = ORESFLG$
21000 %WW-OE6 00000071 ZHOLD1$ = OHOLD1$
21100 %WW-OE6 0000007A ZHOLD2$ = OHOLD2$
21200 %WW-OE6 00000083 ZDEPOSIT = ODEPOSIL
21300 %WW-OE6 0000008D ZGUARBY$ = OGUARBY$
21400 %WW-OE6 00000096 !
21410 %WW-OE6 00000096 READ (C1A,0100)KEY=CNBR$,EXCP=4900 ! GET CBAL, COPEN
21420 %WW-OE6 000000A5 4900 MPROFORA$ = ''
21430 %WW-OE6 000000AE READ (M1C,0650)KEY='T'+CTERMCD$,EXCP=4910
21440 %WW-OE6 000000C7 4910 ZCPF$ = MPROFORA$
21450 %WW-OE6 000000D0 !
21460 %WW-OE6 000000D0 FLNM$ = ZZCO$ + 'O19'
21470 %WW-OE6 000000E2 CLOSE (O19) & OPEN (O19) FLNM$
21480 %WW-OE6 000000EC READ (O19,0800)KEY='R CWV',EXCP=4912
21490 %WW-OE6 000000FB GOTO 4914
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 23
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
21500 %WW-OE6 00000100 4912 MCODEB$ = 'R' & MCODEM1$ = 'CWV'
21510 %WW-OE6 00000112 MLINE1$ = 'WAIVED CUTTING'
21520 %WW-OE6 0000011B MOTDESC$ = MLINE1$
21530 %WW-OE6 00000124 WRITE (O19,0800)KEY='R CWV'
21540 %WW-OE6 0000012F 4914 CLOSE (O19)
21550 %WW-OE6 00000132 !
21600 %WW-OE6 00000132 4920 READ (Z1,0999)KEY=TERM$,EXCP=4930
21610 %WW-OE6 00000141 4930 !
21620 %WW-OE6 00000141 !
21630 %WW-OE6 00000141 READ (Z1,0000)KEY='*WWOE6',EXCP=5000 !SPECIAL HCF CHECK
21640 %WW-OE6 00000150 READ (O1,0065)KEY=ORNBR$,EXCP=4940
21650 %WW-OE6 0000015F 4940 KEY$ = KEY(O1,EXCP=5000)
21660 %WW-OE6 0000016F IF SUB(KEY$,1,9) NE ORNBR$ GOTO 5000
21670 %WW-OE6 00000190 READ (O1,0065),EXCP=6060
21680 %WW-OE6 0000019B READ (I1A,0200)KEY=INBR$,EXCP=6080
21690 %WW-OE6 000001AA IF IDSCNTDT$ NE ' ' THEN
21700 %WW-OE6 000001B8 MESS$ = '<< PLEASE NOTE >> DISCONTINUED ITEM '
21710 %WW-OE6 000001C1 MESS$ = MESS$ + INBR$ + ' ON ORDER - ENTER'
21720 %WW-OE6 000001DC GOSUB 9050
21730 %WW-OE6 000001E1 GOTO 5000
21740 %WW-OE6 000001E6 ENDIF
21750 %WW-OE6 000001E6 GOTO 4940
21760 %WW-OE6 000001EB !
50000 %WW-OE6 000001EB ! ========== BEGIN PROCESSING ==========
50100 %WW-OE6 000001EB !
50200 %WW-OE6 000001EB 5000 !
50300 %WW-OE6 000001EB GOSUB 7500
54040 %WW-OE6 000001F0 !
55070 %WW-OE6 000001F0 5500 !
55072 %WW-OE6 000001F0 IF ((OPROFLG$ EQ '' OR OPROFLG$ EQ ' ') AND _
55074 %WW-OE6 0000020C (OCFAFLG$ EQ '' OR OCFAFLG$ EQ ' ') AND _
55076 %WW-OE6 00000228 (ORESFLG$ EQ '' OR ORESFLG$ EQ ' ') AND _
55078 %WW-OE6 00000244 (OHOLD1$ EQ '' OR OHOLD1$ EQ ' ') AND _
55080 %WW-OE6 00000260 (OHOLD2$ EQ '' OR OHOLD2$ EQ ' ')) OR _
55082 %WW-OE6 00000281 OPROFLG$ EQ 'Y' OR _
55084 %WW-OE6 0000028F (ZZCOID$ EQ 'TR' AND ZPROFLG$ EQ 'Y' AND OPROFLG$ EQ '') _
55086 %WW-OE6 000002B9 GOSUB 7000
55090 %WW-OE6 000002BE !
55094 %WW-OE6 000002BE IF ZZCOID$ EQ 'QU' THEN ! TLF 08/23/2011 FOR QUADRIL
55098 %WW-OE6 000002CC MESS$ = OPROFLG$ + OCFAFLG$ + ORESFLG$ + OHOLD1$ + OHOLD2$ +
55102 %WW-OE6 00000302 IF STRIP(MESS$) EQ '' AND ZCPF$ EQ 'Y' _ ! PROFORMA ACCOU
55106 %WW-OE6 00000316 GOSUB 7024 ! HOLDS LEFT, CH
55126 %WW-OE6 00000329 ! PAST DUE
55130 %WW-OE6 00000329 ENDIF
55134 %WW-OE6 00000329 !
55150 %WW-OE6 00000329 IF ZDEPOSIT EQ 0 AND ODEPOSIL NE 0 AND ODEPOSIL GE ZPAYLIM _
55160 %WW-OE6 00000347 OCRPAY$ = 'P' & CRCHK = 1
55164 %WW-OE6 0000036A IF OGUARBY$ NE '' AND OGUARBY$ NE ' ' AND _
55168 %WW-OE6 00000386 OGUARBY$ NE 'PAYMENT ' AND _
55172 %WW-OE6 00000394 OGUARBY$ NE ZGUARBY$ AND OCRMSC$ NE '$' _
55176 %WW-OE6 000003A2 OCRMSC$ = 'G' & CRCHK = 1
55192 %WW-OE6 000003C3 IF CRCHK EQ 1 _
55196 %WW-OE6 000003C3 WRITE (O0,0000)KEY=ORNBR$
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 24
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
55198 %WW-OE6 000003DD IF ODEPOSIL NE 0 AND ODEPDT$ EQ ' ' ODEPDT$ = ZDATE$
55200 %WW-OE6 00000403 IF ZPROFLG$ NE 'Y' AND ODEPOSIL GT ZDEPOSIT THEN
55202 %WW-OE6 00000420 ORIGIN$ = 'PAY'
55204 %WW-OE6 00000429 OCOMMENT$ = CMNT$(1)
55206 %WW-OE6 0000043F ORMCODE$ = 'R PAY'
55208 %WW-OE6 00000448 WRITE (O1P,0803)KEY=ORNBR$+ORECTYP$+ORECDTE8$+ORIGIN$
55210 %WW-OE6 0000046F ENDIF
55240 %WW-OE6 0000046F IF OCUTYRD$ NE ' ' THEN
55249 %WW-OE6 0000047D IF ((OPROFLG$ EQ '' OR OPROFLG$ EQ ' ') AND _
55254 %WW-OE6 00000499 (OCFAFLG$ EQ '' OR OCFAFLG$ EQ ' ') AND _
55259 %WW-OE6 000004B5 (ORESFLG$ EQ '' OR ORESFLG$ EQ ' ') AND _
55264 %WW-OE6 000004D1 (OHOLD1$ EQ '' OR OHOLD1$ EQ ' ') AND _
55269 %WW-OE6 000004ED (OHOLD2$ EQ '' OR OHOLD2$ EQ ' ') AND _
55274 %WW-OE6 00000509 OBOFLAG$ EQ ' ') THEN
55280 %WW-OE6 00000517 IF OFRFLAG$ NE ' ' OFRFLAG$ = 'S' ! SET SHIPPABLE
55284 %WW-OE6 0000052E !!!! ORMCODE$ = ' SSH' ! BANG OUT AS PER STEVE
55290 %WW-OE6 0000052E !!!! GOSUB 7700 ! O1P RECORD FOR SET SHIPPABLE
55300 %WW-OE6 0000052E ELSE
55304 %WW-OE6 00000533 5530 MESS$ = 'SET THIS ORDER AS SHIPPABLE? (Yes/No)'
55308 %WW-OE6 0000053C GOSUB 9000
55312 %WW-OE6 00000541 IF AN$ NE 'N' AND AN$ NE 'NO' AND _
55316 %WW-OE6 0000055D AN$ NE 'Y' AND AN$ NE 'YES' _
55320 %WW-OE6 0000056B GOTO 5530
55324 %WW-OE6 0000057E !
55326 %WW-OE6 0000057E 5532
55328 %WW-OE6 0000057E IF AN$ EQ 'Y' OR AN$ EQ 'YES' THEN
55332 %WW-OE6 0000059A MESS$ = '<< CAUTION >> HOLDS STILL EXIST - ENTER' ! TLF
55336 %WW-OE6 000005A3 GOSUB 9000 ! ADDED TO ELIMINATE ACCIDENTAL SHIPPABLE
55340 %WW-OE6 000005A8 MESS$ = 'ARE YOU SURE YOU WANT TO SET ORDER AS SHIPPABL
55342 %WW-OE6 000005B1 MESS$ = MESS$ + ' (YES/No)'
55344 %WW-OE6 000005C3 5534 GOSUB 9000
55346 %WW-OE6 000005C8 IF AN$ NE 'YES' AND AN$ NE 'N' AND AN$ NE 'NO' _
55348 %WW-OE6 000005E4 GOTO 5534
55350 %WW-OE6 000005F7 IF AN$ EQ 'N' OR AN$ EQ 'N' _
55352 %WW-OE6 00000605 GOTO 5532
55370 %WW-OE6 00000618 OFRFLAG$ = 'S' !!!! & ORMCODE$ = ' FSH' & _
55372 %WW-OE6 00000621 ELSE
55373 %WW-OE6 00000626 5540 MESS$ = 'SET ORDER AS PREV RESRVD, NOW PAID AND '
55375 %WW-OE6 0000062F MESS$ = MESS$ + 'WAITING MORE INFO (Yes/No)?'
55376 %WW-OE6 00000641 GOSUB 9000
55378 %WW-OE6 00000646 IF AN$ NE 'N' AND AN$ NE 'NO' AND _
55380 %WW-OE6 00000662 AN$ NE 'Y' AND AN$ NE 'YES' _
55382 %WW-OE6 00000670 GOTO 5540
55384 %WW-OE6 00000683 IF AN$ EQ 'Y' OR AN$ EQ 'YES' _
55386 %WW-OE6 00000691 OFRFLAG$ = 'W'
55387 %WW-OE6 000006A8 ENDIF
55390 %WW-OE6 000006A8 !
55392 %WW-OE6 000006A8 ENDIF
55395 %WW-OE6 000006A8 IF OFRFLAG$ EQ 'S' OR OFRFLAG$ EQ 'W' _
55400 %WW-OE6 000006B6 OCRSLE$ = '' & OCRPST$ = '' & OCRLIM$ = '' & _
55410 %WW-OE6 000006DF OCRDSC$ = '' & OCRPAY$ = '' & OCRMSC$ = '' & CRCHK = 0
55420 %WW-OE6 00000704 ENDIF
55430 %WW-OE6 00000704 !
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 25
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
55450 %WW-OE6 00000704 IF CRCHK EQ 1 AND OFRFLAG$ NE 'S' AND ZZCOID$ NE 'TR' _
55460 %WW-OE6 00000721 MESS$ = '<< CUSTOMER WILL FAIL CREDIT >> - ENTER' & _
55470 %WW-OE6 00000738 GOSUB 9000
55480 %WW-OE6 0000073D !
55490 %WW-OE6 0000073D !
55500 %WW-OE6 0000073D IF ZZFURNAC$ EQ 'Y' _ ! ANY OTHER CONDITIONS?????
55510 %WW-OE6 0000073D GOSUB 8160
55520 %WW-OE6 00000750 !
55522 %WW-OE6 00000750 IF ZZCOID$ EQ 'JA' _ ! NO CREDIT CHECKING FOR JAGTAR
55524 %WW-OE6 00000750 OCRSLE$ = '' & OCRPST$ = '' & OCRLIM$ = '' & _
55526 %WW-OE6 00000779 OCRDSC$ = '' & OCRPAY$ = '' & OCRMSC$ = ''
55528 %WW-OE6 00000794 !
55600 %WW-OE6 00000794 WRITE (O1A,0060)
55610 %WW-OE6 0000079B 5560 MESS$ = 'RELEASE PROCESS COMPLETE - ENTER'
55620 %WW-OE6 000007A4 GOSUB 9050
55630 %WW-OE6 000007A9 5562 RUN 'WWOE2'
55640 %WW-OE6 000007AF !
60000 %WW-OE6 000007AF 6000 IF EXCP EQ 33 AGAIN
60020 %WW-OE6 000007BF GOTO 5560
60040 %WW-OE6 000007C4 !
60200 %WW-OE6 000007C4 6020 IF EXCP EQ 33 AGAIN ! FROM R1 CHECK
60220 %WW-OE6 000007D4 GOTO 7026
60240 %WW-OE6 000007D9 !
60400 %WW-OE6 000007D9 6040 IF EXCP EQ 33 AGAIN ! FROM R1 CHECK
60420 %WW-OE6 000007E9 GOTO 7030
60440 %WW-OE6 000007EE !
60600 %WW-OE6 000007EE 6060 MESS$ = 'ORDER DETAIL RECORD LOCKED ELSEWHERE - ENTER'
60610 %WW-OE6 000007F7 IF EXCP NE 33 _
60620 %WW-OE6 000007F7 MESS$ = 'EXCP = ' + STR(EXCP) &_
60630 %WW-OE6 0000081E MESS$ = MESS$ + ' ON ORDER DETAIL RECORD - ENTER'
60640 %WW-OE6 00000830 GOSUB 9000
60650 %WW-OE6 00000835 GOTO 5000
60660 %WW-OE6 0000083A !
60800 %WW-OE6 0000083A 6080 IF EXCP EQ 32 GOTO 5000
60810 %WW-OE6 0000084E IF EXCP EQ 33 _
60820 %WW-OE6 0000084E MESS$ = 'ITEM RECORD LOCKED ELSEWHERE - ENTER'
60830 %WW-OE6 00000866 IF EXCP NE 33 _
60840 %WW-OE6 00000866 MESS$ = 'EXCP = ' + STR(EXCP) & _
60850 %WW-OE6 0000088D MESS$ = MESS$ + ' ON ITEM RECORD - ENTER'
60860 %WW-OE6 0000089F GOSUB 9000
60870 %WW-OE6 000008A4 GOTO 5000
60880 %WW-OE6 000008A9 !
62400 %WW-OE6 000008A9 6240 MESS$ = 'LINE # ' + OLINE$
62420 %WW-OE6 000008BB MESS$ = MESS$ + ' IS LOCKED ELSEWHERE - ENTER'
62440 %WW-OE6 000008CD IF EXCP NE 33 _
62460 %WW-OE6 000008CD MESS$ = 'EXCP = ' + STR(EXCP) &_
62480 %WW-OE6 000008F4 MESS$ = MESS$ + ' ON ORDER DETAIL READ - ENTER'
62500 %WW-OE6 00000906 GOSUB 9000
62520 %WW-OE6 0000090B READ (O1,0065),EXCP=7370
62540 %WW-OE6 00000916 EXTRACT (O1,0065)KEY=KEY$,EXCP=6240
62560 %WW-OE6 00000925 GOTO 7378
62580 %WW-OE6 0000092A !
62600 %WW-OE6 0000092A 6260 MESS$ = 'ITEM # ' + INBR$
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 26
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
62620 %WW-OE6 0000093C MESS$ = MESS$ + ' IS LOCKED ELSEWHERE - ENTER'
62640 %WW-OE6 0000094E IF EXCP NE 33 _
62660 %WW-OE6 0000094E MESS$ = 'EXCP = ' + STR(EXCP) &_
62680 %WW-OE6 00000975 MESS$ = MESS$ + ' ON ITEM FILE READ, LINE ' &_
62700 %WW-OE6 00000987 MESS$ = MESS$ + OLINE$ + ' - ENTER'
62720 %WW-OE6 000009A2 GOSUB 9000
62740 %WW-OE6 000009A7 IF EXCP EQ 33 AGAIN
62760 %WW-OE6 000009B7 READ (O1,0065),EXCP=7370
62770 %WW-OE6 000009C2 GOTO 7370
62780 %WW-OE6 000009C7 !
70000 %WW-OE6 000009C7 ! ========== CREDIT CHECKING ROUTINE ==========
70020 %WW-OE6 000009C7 7000 !
70040 %WW-OE6 000009C7 IF CSACAT$ NE ' ' OR POS(ZOETYPE$,'OB') NE 0 OR _ !NO CREDIT
70060 %WW-OE6 000009E9 OPROFLG$ EQ 'Y' OR (ZCPF$ EQ 'Y' AND ZZCOID$ NE 'TR') _
70080 %WW-OE6 00000A13 GOTO 7054
70100 %WW-OE6 00000A18 PRINT (0,3480) !CR CHECK - WAIT
70180 %WW-OE6 00000A1F IF ZOETYPE$ EQ 'M' AND OPROFLG$ EQ 'Y' _
70200 %WW-OE6 00000A2D GOTO 7024
70220 %WW-OE6 00000A40 IF ZOETYPE$ EQ 'E' THEN !INITIALIZE FLAG
70240 %WW-OE6 00000A4E OCRLIM$ = '' & OCRPST$ = '' & OCRSLE$ = ''
70260 %WW-OE6 00000A69 OCRDSC$ = '' & OCRPAY$ = '' & OCRMSC$ = '' & CRCHK = 0
70280 %WW-OE6 00000A8E ENDIF
70300 %WW-OE6 00000A8E CRLIMCHK = CBAL
70320 %WW-OE6 00000A98 IF ZZORDLIM$ EQ 'Y' _
70340 %WW-OE6 00000A98 CRLIMCHK = CBAL + COPEN
70360 %WW-OE6 00000AB5 IF CRLIMCHK GT CCREDLIM _ !EXCEEDS LIMIT
70380 %WW-OE6 00000AB5 OCRLIM$ = 'L' & CRCHK = 1
70400 %WW-OE6 00000AD8 IF ZOETYPE$ EQ 'E' THEN
70420 %WW-OE6 00000AE6 IF CDOLS$ EQ '' OR CDOLS$ EQ ' ' THEN
70440 %WW-OE6 00000B02 YYMM$ = SUB(CDTEEST$,9,2)
70460 %WW-OE6 00000B19 YYMM$ = YYMM$ + SUB(CDTEEST$,1,2)
70480 %WW-OE6 00000B39 MESS$ = SUB(ZDATE$,9,2)
70500 %WW-OE6 00000B50 MESS$ = MESS$ + SUB(ZDATE$,1,2)
70520 %WW-OE6 00000B70 IF YYMM$ LT MESS$ _
70540 %WW-OE6 00000B70 OCRSLE$ = 'S' & CRCHK = 1
70560 %WW-OE6 00000B91 ELSE
70580 %WW-OE6 00000B96 XDATE$ = CDOLS$
70600 %WW-OE6 00000B9F GOSUB DATECHK !VERIFY DATE
70620 %WW-OE6 00000BA4 IF DATEOK EQ 1 GOSUB 8920
70640 %WW-OE6 00000BB8 TDJUL = ZDJUL - ZDYCT
70660 %WW-OE6 00000BC7 IF DATEOK EQ 0 OR TDJUL GE (ZZMOCRED * 30) _
70680 %WW-OE6 00000BDF OCRSLE$ = 'S' & CRCHK = 1
70700 %WW-OE6 00000BFD ENDIF
70720 %WW-OE6 00000BFD ENDIF
70740 %WW-OE6 00000BFD 7024 !
70760 %WW-OE6 00000BFD IF ZZCOID$ EQ 'TR' AND OCRLIM$ NE 'L' _ !DON'T PERFORM PAST DU
70780 %WW-OE6 00000C0B GOTO 7045 ! CHECK IF TRAVERS AND UNDER C/L 08/18/00
70800 %WW-OE6 00000C1E PARTKY7$ = CNBR$ + 'D'
70820 %WW-OE6 00000C30 READ (R1,0070)KEY=PARTKY7$,EXCP=7026
70840 %WW-OE6 00000C3F 7026 KEY$ = KEY(R1,EXCP=7045)
70860 %WW-OE6 00000C4F IF SUB(KEY$,1,7) NE PARTKY7$ GOTO 7045
70880 %WW-OE6 00000C70 READ (R1,0070),EXCP=6020
70900 %WW-OE6 00000C7B PARTKY23$ = KEY$
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 27
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
70920 %WW-OE6 00000C84 7030 KEY$ = KEY(R1,EXCP=7035)
70940 %WW-OE6 00000C94 IF SUB(KEY$,1,23) NE PARTKY23$ GOTO 7035
70960 %WW-OE6 00000CB5 READ (R1,0071),EXCP=6040
70980 %WW-OE6 00000CC0 RAMT = RAMT + ZRAMT
71000 %WW-OE6 00000CCF GOTO 7030
71020 %WW-OE6 00000CD4 7035 !
71040 %WW-OE6 00000CD4 IF RAMT LE 0 GOTO 7026
71060 %WW-OE6 00000CE8 XDATE$ = SUB(RDATE$,5,2) & XDATE$ = XDATE$ + '/'
71080 %WW-OE6 00000D11 XDATE$ = XDATE$ + SUB(RDATE$,7,2)
71100 %WW-OE6 00000D31 XDATE$ = XDATE$ + '/'
71120 %WW-OE6 00000D43 XDATE$ = XDATE$ + SUB(RDATE$,1,4)
71140 %WW-OE6 00000D63 GOSUB 8920
71160 %WW-OE6 00000D68 TDJUL = ZDJUL - ZDYCT
71180 %WW-OE6 00000D77 IF TDJUL GT ZZPSTDUE _
71200 %WW-OE6 00000D77 OCRPST$ = 'P' & CRCHK = 1 & GOTO 7045
71220 %WW-OE6 00000D9E GOTO 7026
71240 %WW-OE6 00000DA3 !
71260 %WW-OE6 00000DA3 7045!!IF CRCHK EQ 1 THEN ! TLF BANGED OUT 02/23/99
71280 %WW-OE6 00000DA3 !!!! MESS$ = '<< CUSTOMER WILL FAIL CREDIT >> - ENTER'
71300 %WW-OE6 00000DA3 !!!! GOSUB 9000
71320 %WW-OE6 00000DA3 !!!! ENDIF
71340 %WW-OE6 00000DA3 PRINT (0,3490) ! CLEAR CR MESSG
71360 %WW-OE6 00000DAA 7054 RETURN
71380 %WW-OE6 00000DAB !
73500 %WW-OE6 00000DAB ! ========== ORDER RELEASE UPDATE IS HERE ==========
73520 %WW-OE6 00000DAB 7350 !
73540 %WW-OE6 00000DAB READ (O1,0065)KEY=ORNBR$,EXCP=7370
73560 %WW-OE6 00000DBA 7370 KEY$ = KEY(O1,EXCP=7390)
73580 %WW-OE6 00000DCA IF SUB(KEY$,1,9) NE ORNBR$ GOTO 7390
73600 %WW-OE6 00000DEB EXTRACT (O1,0065)KEY=KEY$,EXCP=6240
73620 %WW-OE6 00000DFA 7378 GOTO 7388 !!!! IF SUB(INBR$,1,1) EQ 'Z' OR OISFLG$ EQ 'S' OR _
73622 %WW-OE6 00000DFF !!!! OQTYBOD NE 0 GOTO 7388
73624 %WW-OE6 00000DFF 7379 ZINBR$ = INBR$ & IPATTERN$ = '' & IPL$ = '' & MINVFLAG$ = 'N'
73628 %WW-OE6 00000E23 READ (I1A,0200)KEY=INBR$,EXCP=6260
73630 %WW-OE6 00000E32 IF IINBR$ NE ' ' _
73632 %WW-OE6 00000E32 INBR$ = IINBR$
73634 %WW-OE6 00000E49 READ (I1P,0215)KEY=IPATTERN$,EXCP=7380
73636 %WW-OE6 00000E58 7380 READ (M1C,0650)KEY='P'+IPL$,EXCP=7382
73638 %WW-OE6 00000E71 7382 !
73640 %WW-OE6 00000E71 EXTRACT (I1A,0200)KEY=INBR$,EXCP=6260
73644 %WW-OE6 00000E80 IF OQTYBOD EQ 0 AND MINVFLAG$ NE 'N' _
73660 %WW-OE6 00000E8F IQRCMTD = IQRCMTD - OQTYORD & _
73680 %WW-OE6 00000EAC IQOCMTD = IQOCMTD + OQTYORD
73700 %WW-OE6 00000EBB WRITE (I1A,0200)
73704 %WW-OE6 00000EC2 INBR$ = ZINBR$
73720 %WW-OE6 00000ECB 7388 WRITE (O1,0065)
73740 %WW-OE6 00000ED2 GOTO 7370
73760 %WW-OE6 00000ED7 !
73780 %WW-OE6 00000ED7 7390 !
73800 %WW-OE6 00000ED7 !
73820 %WW-OE6 00000ED7 7398 RETURN
73840 %WW-OE6 00000ED8 !
74000 %WW-OE6 00000ED8 ! ========== BACK-ORDER RELEASE ==========
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 28
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
74020 %WW-OE6 00000ED8 7400 !THIS ROUTINE WILL START BACK-ORDER RELEASE
74040 %WW-OE6 00000ED8 !CODE IN OE3 WILL ASK FOR SHIPPED LINES. ANY
74060 %WW-OE6 00000ED8 !LINES NOT SHIPPED WILL BE ASSIGNED TO -99
74080 %WW-OE6 00000ED8 !WHERE THE -99 IS INCREMENTED FROM THE CURRENT
74100 %WW-OE6 00000ED8 !ORDER LEVEL. SET ZMNTTYP$ SO THAT OE3 WILL
74120 %WW-OE6 00000ED8 !KNOW IT IS IN BACK-ORDER RELEASE
74140 %WW-OE6 00000ED8 !!!! IF OBOFLAG$ NE 'B/O' _
74160 %WW-OE6 00000ED8 !!!! MESS$ = 'ORDER IS NOT A BACKORDER - NO RELEASE - ENTER' &_
74180 %WW-OE6 00000ED8 !!!! GOSUB 9050 & POP & GOTO 5400
74200 %WW-OE6 00000ED8 !420 MESS$ = 'ARE YOU SURE YOU WANT TO RELEASE THIS BACKORDER?'
74220 %WW-OE6 00000ED8 !!!! MESS$ = MESS$ + ' (Yes/No)'
74240 %WW-OE6 00000ED8 !!!! GOSUB 9000
74260 %WW-OE6 00000ED8 !!!! IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7498
74280 %WW-OE6 00000ED8 !!!! IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7420
74300 %WW-OE6 00000ED8 !!!! GOSUB 8100 !SET O1P FIELDS
74320 %WW-OE6 00000ED8 !!!! OLRELDT$ = ZDATE$ & OINITR$ = ZZINIT$
74340 %WW-OE6 00000ED8 !!!! OLRFROM$ = 'B/O'
74360 %WW-OE6 00000ED8 !!!! ORIGIN$ = 'B/O'
74380 %WW-OE6 00000ED8 !!!! ORMCODE$ = 'R B/O'
74400 %WW-OE6 00000ED8 !!!! WRITE (O1P,0803)KEY=ORNBR$+ORECTYP$+ORECDTE8$+ORIGIN$
74420 %WW-OE6 00000ED8 !!!! READ (O1,0065)KEY=ORNBR$,EXCP=7440
74440 %WW-OE6 00000ED8 !440 KEY$ = KEY(O1,EXCP=7490)
74460 %WW-OE6 00000ED8 !!!! IF SUB(KEY$,1,9) NE ORNBR$ GOTO 7490
74480 %WW-OE6 00000ED8 !!!! READ (O1,0065),EXCP=6280
74500 %WW-OE6 00000ED8 !!!! OQTYREL = 0
74520 %WW-OE6 00000ED8 !!!! WRITE (O1,0065)KEY=KEY$
74540 %WW-OE6 00000ED8 !!!! GOTO 7440
74560 %WW-OE6 00000ED8 !
74900 %WW-OE6 00000ED8 !490 ZMNTTYP$ = 'BOR' !BACKORDER RELEASE
74910 %WW-OE6 00000ED8 !
74920 %WW-OE6 00000ED8 7498 RETURN
74930 %WW-OE6 00000ED9 !
75000 %WW-OE6 00000ED9 ! ========== ORDER RELEASE ==========
75010 %WW-OE6 00000ED9 7500 !
75060 %WW-OE6 00000ED9 HILITE1$ = '' & HILITE2$ = '' & HILITE3$ = '' !INITIALIZE
75070 %WW-OE6 00000EF4 HILITE4$ = '' & HILITE5$ = ''
75080 %WW-OE6 00000F06 IF ZPROFLG$ NE ' ' HILITE1$ = '**' !SHOW HOLD
75090 %WW-OE6 00000F1D IF ZCFAFLG$ NE ' ' HILITE2$ = '**'
75100 %WW-OE6 00000F34 IF ZHOLD1$ NE ' ' HILITE3$ = '**'
75110 %WW-OE6 00000F4B IF ZHOLD2$ NE ' ' HILITE4$ = '**'
75120 %WW-OE6 00000F62 IF ZRESFLG$ NE ' ' HILITE5$ = '**'
75124 %WW-OE6 00000F79 7510 IF REL$(1) NE 'Y' PAY(1) = 0 ! TLF 05/25/2010
75126 %WW-OE6 00000FAB IF REL$(3) NE 'Y' PAY(2) = 0 ! "" "" ""
75130 %WW-OE6 00000FDD IF DEPTYPE$ EQ 'A' THEN ! PYMNT AMT IS AN ADDITIONAL DEPOSIT
75132 %WW-OE6 00000FEB ODEPOSIL = ZDEPOSIT + PAY(1) + PAY(2)
75134 %WW-OE6 00001023 ELSE
75136 %WW-OE6 00001028 ODEPOSIL = PAY(1) + PAY(2)
75138 %WW-OE6 00001051 ENDIF
75140 %WW-OE6 00001051 GOSUB 8180
75146 %WW-OE6 00001056 NETDUE = ONET - ODEPOSIL
75148 %WW-OE6 00001065 7511 PRINT (0,3550) & PRINT (0,3560)
75150 %WW-OE6 00001073 7512 MESS$ = 'PRO/CFA/Hold 1/Hold 2/Reserve/pYmnt/Approve/'
75154 %WW-OE6 0000107C IF ZZFURNAC$ NE 'Y' _
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 29
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
75158 %WW-OE6 0000107C MESS$ = MESS$ + 'approve & repriNt/'
75160 %WW-OE6 0000109C MESS$ = MESS$ + 'Ignore'
75170 %WW-OE6 000010AE GOSUB 9000
75172 %WW-OE6 000010B3 IF ZZFURNAC$ EQ 'Y' AND (AN$ EQ 'N' OR AN$ EQ 'REPRIN') _
75174 %WW-OE6 000010DD GOTO 7512
75176 %WW-OE6 000010E2 IF AN$ EQ 'P' OR AN$ EQ 'PRO' OR AN$ EQ 'PROFOR' _
75204 %WW-OE6 000010FE POS = 0 & LINE = 12 & PRINT (0, 95) & _
75206 %WW-OE6 00001127 INPUT (0,3570) & GOTO 7510
75210 %WW-OE6 00001133 IF AN$ EQ 'C' OR AN$ EQ 'CFA' OR AN$ EQ 'CUT' _
75220 %WW-OE6 0000114F POS = 0 & LINE = 14 & PRINT (0, 95) & _
75230 %WW-OE6 00001178 INPUT (0,3570) & GOTO 7510
75240 %WW-OE6 00001184 7524 IF AN$ EQ '1' OR AN$ EQ 'HOLD1' OR AN$ EQ 'HOLD 1' _
75250 %WW-OE6 000011A0 POS = 0 & LINE = 16 & PRINT (0, 95) & _
75260 %WW-OE6 000011C9 INPUT (0,3570) & GOTO 7510
75270 %WW-OE6 000011D5 IF AN$ EQ '2' OR AN$ EQ 'HOLD2' OR AN$ EQ 'HOLD 2' _
75280 %WW-OE6 000011F1 POS = 0 & LINE = 18 & PRINT (0, 95) & _
75290 %WW-OE6 0000121A INPUT (0,3570) & GOTO 7510
75300 %WW-OE6 00001226 IF AN$ EQ 'R' OR AN$ EQ 'RESERV' _
75310 %WW-OE6 00001234 POS = 0 & LINE = 20 & PRINT (0, 95) & _
75320 %WW-OE6 0000125D INPUT (0,3570) & GOTO 7510
75330 %WW-OE6 00001269 IF AN$ EQ 'H' OR AN$ EQ 'HOLD' THEN
75340 %WW-OE6 00001285 MESS$ = 'RELEASE HOLD FOR 1 OR 2?'
75350 %WW-OE6 0000128E GOSUB 9000
75360 %WW-OE6 00001293 IF AN$ NE '1' AND AN$ NE '2' GOTO 7512
75370 %WW-OE6 000012B4 GOTO 7524
75380 %WW-OE6 000012B9 ENDIF
75384 %WW-OE6 000012B9 IF AN$ EQ 'Y' OR AN$ EQ 'PYMNT' THEN
75388 %WW-OE6 000012D5 7528 MESS$ = 'DOES PAYMENT ADD TO OR REPLACE PREVIOUS DEPOSIT?'
75392 %WW-OE6 000012DE MESS$ = MESS$ + ' (A/R/End)'
75396 %WW-OE6 000012F0 GOSUB 9000
75400 %WW-OE6 000012F5 IF AN$ EQ 'E' OR AN$ EQ 'END' _
75404 %WW-OE6 00001303 GOTO 7510
75408 %WW-OE6 00001316 IF AN$ NE 'A' AND AN$ NE 'R' GOTO 7528
75412 %WW-OE6 00001337 DEPTYPE$ = AN$
75416 %WW-OE6 00001340 GOTO 7510
75420 %WW-OE6 00001345 ENDIF
75430 %WW-OE6 00001345 IF AN$ EQ 'I' OR AN$ EQ 'IGNORE' POPALL & GOTO 5562
75440 %WW-OE6 00001367 !
75450 %WW-OE6 00001367 GOSUB 7660 ! PERFORM W/A HOLD CHECK
75455 %WW-OE6 0000136C !
75472 %WW-OE6 0000136C IF AN$ NE 'A' AND AN$ NE 'APPROV' AND _
75474 %WW-OE6 00001388 AN$ NE 'N' AND AN$ NE 'REPRIN' GOTO 7512
75476 %WW-OE6 000013A9 GOSUB 8100 !SET UP O1P FIELDS
75478 %WW-OE6 000013AE REPRINT$ = ''
75480 %WW-OE6 000013B7 IF AN$ EQ 'N' OR AN$ EQ 'REPRIN' REPRINT$ = 'Y'
75484 %WW-OE6 000013DC AN = 0
75488 %WW-OE6 000013E6 FOR I = 1 TO 5
75492 %WW-OE6 000013FF IF REL$(I) NE '' AND REL$(I) NE ' ' AND REL$(I) NE 'Y' _
75496 %WW-OE6 00001442 MESS$ = "USE ONLY BLANK OR 'Y' FOR RELEASE FLAG - ENTER" &_
75500 %WW-OE6 00001459 GOSUB 9050 & GOTO 7512
75504 %WW-OE6 00001463 IF REL$(I) EQ 'Y' AN = AN + 1
75508 %WW-OE6 0000148D IF I LE 3 THEN
75512 %WW-OE6 0000149C IF EXT$(I) NE '' AND EXT$(I) NE ' ' AND EXT$(I) NE 'Y' _
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 30
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
75516 %WW-OE6 000014DF MESS$ = "USE ONLY BLANK OR 'Y' FOR EXTEND FLAG - ENTER" &_
75520 %WW-OE6 000014F6 GOSUB 9050 & GOTO 7512
75524 %WW-OE6 00001500 IF FOL$(I) NE '' AND FOL$(I) NE ' ' AND FOL$(I) NE 'Y' _
75528 %WW-OE6 00001543 MESS$ = "USE ONLY BLANK OR 'Y' FOR FOLLOWUP - ENTER" &_
75532 %WW-OE6 0000155A GOSUB 9050 & GOTO 7512
75536 %WW-OE6 00001564 ENDIF
75540 %WW-OE6 00001564 NEXT I
75544 %WW-OE6 00001578 IF AN EQ 0 THEN
75548 %WW-OE6 00001587 FOR I = 1 TO 3
75552 %WW-OE6 000015A0 IF EXT$(I) EQ 'Y' OR FOL$(I) EQ 'Y' THEN
75556 %WW-OE6 000015D6 AN = AN + 1
75560 %WW-OE6 000015E5 ENDIF
75564 %WW-OE6 000015E5 NEXT I
75568 %WW-OE6 000015F9 ENDIF
75572 %WW-OE6 000015F9 IF AN EQ 0 THEN
75576 %WW-OE6 00001608 7558 MESS$ = 'NO RELEASES, EXTENSIONS OR FOLLOWUPS ENTERED. '
75578 %WW-OE6 00001611 MESS$ = MESS$ + 'TRY AGAIN? (Yes/No)'
75580 %WW-OE6 00001623 GOSUB 9000
75584 %WW-OE6 00001628 IF AN$ EQ 'Y' OR AN$ EQ 'YES' GOTO 7512
75588 %WW-OE6 00001649 IF AN$ NE 'N' AND AN$ NE 'NO' GOTO 7558
75590 %WW-OE6 0000166A ODEPOSIL = ZDEPOSIT & PAY(1) = 0 & PAY(2) = 0 ! TLF 05/25/2
75592 %WW-OE6 000016A2 GOTO 7620
75596 %WW-OE6 000016A7 ENDIF
75598 %WW-OE6 000016A7 !
75600 %WW-OE6 000016A7 IF REL$(1) EQ 'Y' THEN
75604 %WW-OE6 000016C2 IF ZPROFLG$ NE 'Y' _
75608 %WW-OE6 000016C2 MESS$ = 'ORDER WAS NOT PROFORMA, NO RELEASE - ENTER' & _
75610 %WW-OE6 000016D9 GOSUB 9000 & _
75612 %WW-OE6 000016DE ODEPOSIL = ZDEPOSIT & PAY(1) = 0 & GOTO 7570 ! TLF 05/25/
75614 %WW-OE6 00001704 IF ZZCOID$ EQ 'QU' GOSUB 7900
75616 %WW-OE6 00001717 OPROFLG$ = ''
75620 %WW-OE6 00001720 !!!! IF PAY(1) GT 0 ODEPOSIT = PAY(1)
75624 %WW-OE6 00001720 IF GUAR$(1) NE '' AND GUAR$(1) NE ' ' _
75628 %WW-OE6 00001748 OGUARBY$ = GUAR$(1)
75632 %WW-OE6 0000176C GOSUB 7800 ! SET DATES
75636 %WW-OE6 00001771 OLRFROM$ = 'PRO'
75640 %WW-OE6 0000177A ORIGIN$ = 'PRO'
75644 %WW-OE6 00001783 OCOMMENT$ = CMNT$(1)
75648 %WW-OE6 00001799 ORMCODE$ = 'R PRO'
75652 %WW-OE6 000017A2 WRITE (O1P,0803)KEY=ORNBR$+ORECTYP$+ORECDTE8$+ORIGIN$
75656 %WW-OE6 000017C9 ELSE
75660 %WW-OE6 000017CE IF EXT$(1) EQ 'Y' AND FOL$(1) EQ 'Y' _
75664 %WW-OE6 000017F6 MESS$ = 'CANNOT EXTEND AND FOLLOWUP TOGETHER - ENTER' &_
75668 %WW-OE6 0000180D GOSUB 9050 & GOTO 7570
75670 %WW-OE6 00001817 IF EXT$(1) EQ 'Y' GOSUB 7800 & OLRFROM$ = 'EXT' &_
75672 %WW-OE6 00001840 ORIGIN$ = 'PRO' & OCOMMENT$ = CMNT$(1) & _
75674 %WW-OE6 0000185F ORMCODE$ = ' E ' &_ !EXTEND
75676 %WW-OE6 00001868 WRITE (O1P,0803)KEY=ORNBR$+ORECTYP$+ORECDTE8$+ORIGIN$
75678 %WW-OE6 0000188F IF FOL$(1) EQ 'Y' THEN
75680 %WW-OE6 000018AA OLRFROM$ = 'FOL'
75684 %WW-OE6 000018B3 OLATE$ = 'F'
75688 %WW-OE6 000018BC WRITE (O0,0000)KEY=ORNBR$
75692 %WW-OE6 000018C7 ENDIF
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 31
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
75696 %WW-OE6 000018C7 ENDIF
75698 %WW-OE6 000018C7 !
75700 %WW-OE6 000018C7 7570 IF REL$(2) EQ 'Y' THEN
75702 %WW-OE6 000018E2 IF ZCFAFLG$ NE 'Y' _
75704 %WW-OE6 000018E2 MESS$ = 'ORDER WAS NOT CFA - NO RELEASE - ENTER' &_
75706 %WW-OE6 000018F9 GOSUB 9000 & GOTO 7580
75708 %WW-OE6 00001903 OCFAFLG$ = '' & ORMCODE$ = 'R CFA'
75710 %WW-OE6 00001915 IF STRIP(OBOFLAG$) NE '' THEN ! TLF 9/18/2006
75712 %WW-OE6 00001929 MESS$ = 'Is the customer waiving the cutting? (Y/N)'
75714 %WW-OE6 00001932 7572 GOSUB 9000
75716 %WW-OE6 00001937 IF UCASE(AN$) NE 'Y' AND UCASE(AN$) NE 'N' GOTO 7572
75720 %WW-OE6 00001964 IF UCASE(AN$) EQ 'Y' ORMCODE$ = 'R CWV'
75722 %WW-OE6 00001981 ENDIF
75724 %WW-OE6 00001981 !!!! IF PAY(1) GT 0 ODEPOSIT = PAY(1)
75726 %WW-OE6 00001981 !!!! IF GUAR$(1) NE '' AND GUAR$(1) NE ' ' _
75728 %WW-OE6 00001981 !!!! OGUARBY$ = GUAR$(1)
75730 %WW-OE6 00001981 GOSUB 7800 ! SET DATES
75732 %WW-OE6 00001986 OLRFROM$ = 'CFA'
75734 %WW-OE6 0000198F ORIGIN$ = 'CFA'
75736 %WW-OE6 00001998 OCOMMENT$ = CMNT$(2)
75738 %WW-OE6 000019AE !!!! ORMCODE$ = 'R CFA' ! HANDLED ABOVE, 9/18/2006 TLF
75740 %WW-OE6 000019AE WRITE (O1P,0803)KEY=ORNBR$+ORECTYP$+ORECDTE8$+ORIGIN$
75756 %WW-OE6 000019D5 ELSE
75760 %WW-OE6 000019DA IF EXT$(2) EQ 'Y' AND FOL$(2) EQ 'Y' _
75764 %WW-OE6 00001A02 MESS$ = 'CANNOT EXTEND AND FOLLOWUP TOGETHER - ENTER' &_
75768 %WW-OE6 00001A19 GOSUB 9050 & GOTO 7580
75770 %WW-OE6 00001A23 IF EXT$(2) EQ 'Y' GOSUB 7800 & OLRFROM$ = 'EXT' &_
75772 %WW-OE6 00001A4C ORIGIN$ = 'CFA' & OCOMMENT$ = CMNT$(2) & _
75774 %WW-OE6 00001A6B ORMCODE$ = ' E ' &_ !EXTEND
75776 %WW-OE6 00001A74 WRITE (O1P,0803)KEY=ORNBR$+ORECTYP$+ORECDTE8$+ORIGIN$
75778 %WW-OE6 00001A9B IF FOL$(2) EQ 'Y' THEN
75780 %WW-OE6 00001AB6 OLRFROM$ = 'FOL'
75784 %WW-OE6 00001ABF OLATE$ = 'F'
75788 %WW-OE6 00001AC8 WRITE (O0,0000)KEY=ORNBR$
75792 %WW-OE6 00001AD3 ENDIF
75796 %WW-OE6 00001AD3 ENDIF
75798 %WW-OE6 00001AD3 !
75800 %WW-OE6 00001AD3 7580 IF REL$(3) EQ 'Y' THEN
75802 %WW-OE6 00001AEE IF ZHOLD1$ EQ ' ' _
75804 %WW-OE6 00001AEE MESS$ = 'ORDER HAD NO HOLD1 - NO RELEASE - ENTER' &_
75806 %WW-OE6 00001B05 GOSUB 9000 & _
75808 %WW-OE6 00001B0A ODEPOSIL = ZDEPOSIT & PAY(2) = 0 & GOTO 7590 ! TLF 05/25
75812 %WW-OE6 00001B30 PRINT (#) ONAME$ & INPUT (#) MESS$
75814 %WW-OE6 00001B46 IF MESS$ EQ 'W/A' AND ZHOLD1$ EQ 'W/A' AND ZHOLD2$ NE 'W/A' T
75816 %WW-OE6 00001B70 MESS$ = "SHIP-TO IS STILL 'W/A', NO RELEASE - ENTER"
75818 %WW-OE6 00001B79 GOSUB 9000
75820 %WW-OE6 00001B7E IF AN$ NE 'SEH' GOTO 7590
75822 %WW-OE6 00001B91 ENDIF
75826 %WW-OE6 00001B91 GOSUB 7800 ! SET DATES
75828 %WW-OE6 00001B96 OLRFROM$ = 'HO1'
75830 %WW-OE6 00001B9F ORIGIN$ = OHOLD1$
75832 %WW-OE6 00001BA8 OCOMMENT$ = CMNT$(3)
75834 %WW-OE6 00001BBE ORMCODE$ = 'R ' + OHOLD1$
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 32
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
75836 %WW-OE6 00001BD0 WRITE (O1P,0803)KEY=ORNBR$+ORECTYP$+ORECDTE8$+ORIGIN$
75838 %WW-OE6 00001BF7 OHOLD1$ = '' & OHOLDAMT = 0
75848 %WW-OE6 00001C0A IF GUAR$(2) NE '' AND GUAR$(2) NE ' ' _
75852 %WW-OE6 00001C32 OGUARBY$ = GUAR$(2)
75856 %WW-OE6 00001C56 ELSE
75860 %WW-OE6 00001C5B IF EXT$(3) EQ 'Y' AND FOL$(3) EQ 'Y' _
75864 %WW-OE6 00001C83 MESS$ = 'CANNOT EXTEND AND FOLLOWUP TOGETHER - ENTER' &_
75868 %WW-OE6 00001C9A GOSUB 9050 & GOTO 7620
75870 %WW-OE6 00001CA4 IF EXT$(3) EQ 'Y' GOSUB 7800 & OLRFROM$ = 'EXT' &_
75872 %WW-OE6 00001CCD ORIGIN$ = 'HO1' & OCOMMENT$ = CMNT$(3) & _
75874 %WW-OE6 00001CEC ORMCODE$ = 'R EXT' &_
75876 %WW-OE6 00001CF5 WRITE (O1P,0803)KEY=ORNBR$+ORECTYP$+ORECDTE8$+ORIGIN$
75878 %WW-OE6 00001D1C IF FOL$(3) EQ 'Y' THEN
75880 %WW-OE6 00001D37 OLRFROM$ = 'HO1'
75884 %WW-OE6 00001D40 OLATE$ = 'F'
75888 %WW-OE6 00001D49 WRITE (O0,0000)KEY=ORNBR$
75892 %WW-OE6 00001D54 ENDIF
75896 %WW-OE6 00001D54 ENDIF
75898 %WW-OE6 00001D54 !
75900 %WW-OE6 00001D54 7590 IF REL$(4) EQ 'Y' THEN
75904 %WW-OE6 00001D6F IF ZHOLD2$ EQ ' ' _
75908 %WW-OE6 00001D6F MESS$ = 'ORDER HAD NO HOLD 2 - NO RELEASE - ENTER' &_
75912 %WW-OE6 00001D86 GOSUB 9000 & GOTO 7600
75914 %WW-OE6 00001D90 PRINT (#) ONAME$ & INPUT (#) MESS$
75916 %WW-OE6 00001DA6 IF MESS$ EQ 'W/A' AND ZHOLD2$ EQ 'W/A' AND ZHOLD1$ NE 'W/A' T
75918 %WW-OE6 00001DD0 MESS$ = "SHIP-TO IS STILL 'W/A', NO RELEASE - ENTER"
75920 %WW-OE6 00001DD9 GOSUB 9000
75922 %WW-OE6 00001DDE IF AN$ NE 'SEH' GOTO 7600
75924 %WW-OE6 00001DF1 ENDIF
75930 %WW-OE6 00001DF1 GOSUB 7800 ! SET DATES
75932 %WW-OE6 00001DF6 OLRFROM$ = 'HO2'
75934 %WW-OE6 00001DFF ORIGIN$ = OHOLD2$
75936 %WW-OE6 00001E08 OCOMMENT$ = CMNT$(4)
75938 %WW-OE6 00001E1E ORMCODE$ = 'R ' + OHOLD2$
75940 %WW-OE6 00001E30 WRITE (O1P,0803)KEY=ORNBR$+ORECTYP$+ORECDTE8$+ORIGIN$
75942 %WW-OE6 00001E57 OHOLD2$ = ''
75956 %WW-OE6 00001E60 ENDIF
75960 %WW-OE6 00001E60 !
76000 %WW-OE6 00001E60 7600 IF REL$(5) EQ 'Y' THEN
76004 %WW-OE6 00001E7B IF ZRESFLG$ NE 'Y' _
76008 %WW-OE6 00001E7B MESS$ = 'ORDER WAS NOT A RESERVE - NO RELEASE - ENTER' &_
76012 %WW-OE6 00001E92 GOSUB 9000 & GOTO 7620
76016 %WW-OE6 00001E9C ORESFLG$ = '' !!!! & ORESCDTE$ = '' 03/29/2004 TLF
76020 %WW-OE6 00001EA5 !!!! IF PAY(1) GT 0 ODEPOSIT = PAY(1)
76024 %WW-OE6 00001EA5 !!!! IF GUAR$(1) NE '' AND GUAR$(1) NE ' ' _
76028 %WW-OE6 00001EA5 !!!! OGUARBY$ = GUAR$(1)
76032 %WW-OE6 00001EA5 GOSUB 7800 ! SET DATES
76036 %WW-OE6 00001EAA OLRFROM$ = 'RES'
76040 %WW-OE6 00001EB3 ORIGIN$ = 'RES'
76044 %WW-OE6 00001EBC OCOMMENT$ = CMNT$(5)
76048 %WW-OE6 00001ED2 ORMCODE$ = 'R RES'
76052 %WW-OE6 00001EDB WRITE (O1P,0803)KEY=ORNBR$+ORECTYP$+ORECDTE8$+ORIGIN$
76056 %WW-OE6 00001F02 ENDIF
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 33
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
76060 %WW-OE6 00001F02 OINITR$ = ZZINIT$
76064 %WW-OE6 00001F0B !
76074 %WW-OE6 00001F0B IF ZZCOID$ EQ 'TR' THEN
76084 %WW-OE6 00001F19 IF (ORESFLG$ NE '' AND ORESFLG$ NE ' ') OR _
76094 %WW-OE6 00001F3A (OPROFLG$ NE '' AND OPROFLG$ NE ' ') OR _
76104 %WW-OE6 00001F5B (OCFAFLG$ NE '' AND OCFAFLG$ NE ' ') OR _
76114 %WW-OE6 00001F7C (OHOLD1$ NE '' AND OHOLD1$ NE ' ') OR _
76124 %WW-OE6 00001F9D (OHOLD2$ NE '' AND OHOLD2$ NE ' ') _
76134 %WW-OE6 00001FB9 MESS$ = 'ORDER HOLDS STILL EXIST, ORDER ' & _
76144 %WW-OE6 00001FC2 MESS$ = MESS$ + 'WILL NOT SHIP - ENTER' & _
76154 %WW-OE6 00001FD4 GOSUB 9000
76164 %WW-OE6 00001FD9 ENDIF
76174 %WW-OE6 00001FD9 !
76200 %WW-OE6 00001FD9 7620 ZMNTTYP$ = 'REL' !ORDER RELEASE
76210 %WW-OE6 00001FE2 OGUARBY$ = OGUARBY$ + ' '
76220 %WW-OE6 00001FF4 PRINT (0,3470) !(BF) SCREEN
76240 %WW-OE6 00001FFB IF ZRESFLG$ EQ 'Y' AND (ORESFLG$ EQ '' OR ORESFLG$ EQ ' ') _
76244 %WW-OE6 00002025 PRINT (0,3580) & GOSUB 7350 & PRINT (0,3490)
76256 %WW-OE6 00002038 IF (OBOFLAG$ EQ '' OR OBOFLAG$ EQ ' ') AND _
76260 %WW-OE6 00002054 (OCFAFLG$ EQ '' OR OCFAFLG$ EQ ' ') AND _
76264 %WW-OE6 00002070 (ORESFLG$ EQ '' OR ORESFLG$ EQ ' ') AND _
76268 %WW-OE6 0000208C (OHOLD1$ EQ '' OR OHOLD1$ EQ ' ') AND _
76272 %WW-OE6 000020A8 (OHOLD2$ EQ '' OR OHOLD2$ EQ ' ') AND _
76276 %WW-OE6 000020C4 (OPROFLG$ EQ '' OR OPROFLG$ EQ ' ') AND _
76280 %WW-OE6 000020E0 (OCRDSC$ EQ '' OR OCRDSC$ EQ ' ') AND _
76284 %WW-OE6 000020FC (OCRLIM$ EQ '' OR OCRLIM$ EQ ' ') AND _
76288 %WW-OE6 00002118 (OCRPAY$ EQ '' OR OCRPAY$ EQ ' ') AND _
76292 %WW-OE6 00002134 (OCRPST$ EQ '' OR OCRPST$ EQ ' ') AND _
76296 %WW-OE6 00002150 (OCRSLE$ EQ '' OR OCRSLE$ EQ ' ') AND _
76300 %WW-OE6 0000216C (OCRMSC$ EQ '' OR OCRMSC$ EQ ' ') _
76360 %WW-OE6 00002188 WRITE (O0,0000)KEY=ORNBR$
76370 %WW-OE6 00002193 IF REPRINT$ EQ 'Y' THEN
76380 %WW-OE6 000021A1 IF ZZCOID$ EQ 'RG' THEN
76390 %WW-OE6 000021AF MESS$ = 'ARE YOU SURE YOU WANT TO REPRINT THIS ORDER? (Yes
76400 %WW-OE6 000021B8 7640 GOSUB 9000
76410 %WW-OE6 000021BD IF AN$ NE 'Y' AND AN$ NE 'YES' AND _
76420 %WW-OE6 000021D9 AN$ NE 'N' AND AN$ NE 'NO' GOTO 7640
76430 %WW-OE6 000021FA IF AN$ EQ 'Y' OR AN$ EQ 'YES' THEN
76440 %WW-OE6 00002216 WRITE (O0,0000)KEY=ORNBR$
76450 %WW-OE6 00002221 CLOSE (29)
76460 %WW-OE6 00002224 FLNM$ = ZZCOID$ + 'O0AUDT'
76470 %WW-OE6 00002236 CREATE FLNM$,100,K,9,DIR=ZZFXD$,EXCP=7648
76480 %WW-OE6 0000224D 7648 OPEN (29) FLNM$
76482 %WW-OE6 00002254 OPINITS$ = ZZINIT$ & TERMNUM$ = TERM$
76490 %WW-OE6 00002266 WRITE (29,0002)KEY=ORNBR$
76500 %WW-OE6 00002271 CLOSE (29)
76502 %WW-OE6 00002274 ELSE
76504 %WW-OE6 00002279 GOTO 7511
76510 %WW-OE6 0000227E ENDIF
76520 %WW-OE6 0000227E ELSE
76530 %WW-OE6 00002283 WRITE (O0,0000)KEY=ORNBR$
76540 %WW-OE6 0000228E ENDIF
76550 %WW-OE6 0000228E ENDIF
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 34
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
76560 %WW-OE6 0000228E !
76580 %WW-OE6 0000228E RETURN
76590 %WW-OE6 0000228F !
76600 %WW-OE6 0000228F !========== CHECK FOR SHIP-TO & 'W/A' HOLD ==========
76610 %WW-OE6 0000228F !
76620 %WW-OE6 0000228F 7660 !
76630 %WW-OE6 0000228F PRINT (#) ONAME$ & INPUT (#) MESS$
76640 %WW-OE6 000022A5 IF (OHOLD1$ EQ 'W/A' OR OHOLD2$ EQ 'W/A') AND MESS$ NE 'W/A' THE
76650 %WW-OE6 000022CF IF (REL$(3) NE 'Y' AND OHOLD1$ EQ 'W/A' AND AN$ NE 'I' AND _
76660 %WW-OE6 00002306 AN$ NE 'IGNORE') OR _
76670 %WW-OE6 00002319 (REL$(4) NE 'Y' AND OHOLD2$ EQ 'W/A' AND AN$ NE 'I' AND _
76680 %WW-OE6 00002350 AN$ NE 'IGNORE') OR _
76690 %WW-OE6 00002363 AN$ EQ 'I' OR AN$ EQ 'IGNORE' THEN
76700 %WW-OE6 0000237F MESS$ = "<< CAUTION >> SHIP-TO AND 'W/A' HOLD BOTH EXIST -
76710 %WW-OE6 00002388 GOSUB 9000
76720 %WW-OE6 0000238D MESS$ = 'MUST RELEASE '
76722 %WW-OE6 00002396 IF OHOLD1$ EQ 'W/A' MESS$ = MESS$ + 'HOLD 1 - ENTER'
76724 %WW-OE6 000023B6 IF OHOLD2$ EQ 'W/A' MESS$ = MESS$ + 'HOLD 2 - ENTER'
76730 %WW-OE6 000023D6 GOSUB 9000
76740 %WW-OE6 000023DB POP
76750 %WW-OE6 000023DC GOTO 7512
76760 %WW-OE6 000023E1 ENDIF
76770 %WW-OE6 000023E1 ENDIF
76780 %WW-OE6 000023E1 RETURN
76790 %WW-OE6 000023E2 !
78000 %WW-OE6 000023E2 ! ========== SET LAST RELEASE & NEW CANCEL DATES ==========
78002 %WW-OE6 000023E2 !
78004 %WW-OE6 000023E2 ! 07/28/2004 FOR ALL COMPANIES OTHER THAN BERGAMO, ADVANCE OF RESERVE/
78006 %WW-OE6 000023E2 ! DATE WORKS AS IT ALWAYS HAS. FOR BERGAMO ONLY, RELEASE OF AN ORDER
78008 %WW-OE6 000023E2 ! WILL NO LONGER CHANGE THE CANCEL DATE IN ORDER TO STAY CONSISTENT WI
78010 %WW-OE6 000023E2 ! EUROPEAN MILLS. AN 'EXTEND' OF THE CANCEL DATE WILL STILL WORK. RE
78012 %WW-OE6 000023E2 ! OF A PROFORMA ( PAID ORDER ) WILL ADVANCE THE CANCEL DATE BY ONE YEA
78014 %WW-OE6 000023E2 ! ORDER TO INSURE THAT THE ORDER NEVER APPEARS IN OR .
78016 %WW-OE6 000023E2 !
78020 %WW-OE6 000023E2 7800 !
78030 %WW-OE6 000023E2 IF ZZCOID$ NE 'BE' THEN
78040 %WW-OE6 000023F0 OLRELDT$ = ZDATE$
78050 %WW-OE6 000023F9 ORESCDTE$ = ZZRESDT$
78060 %WW-OE6 00002402 IF ORESFLG$ NE 'Y' _
78070 %WW-OE6 00002402 ORESCDTE$ = ZZORDDT$
78080 %WW-OE6 00002419 ELSE
78090 %WW-OE6 0000241E IF EXT$(1) EQ 'Y' OR EXT$(2) EQ 'Y' OR EXT$(3) EQ 'Y' _
78100 %WW-OE6 00002461 OLRELDT$ = ZDATE$ & ORESCDTE$ = ZZRESDT$
78110 %WW-OE6 00002481 IF REL$(1) EQ 'Y' THEN
78120 %WW-OE6 0000249C AN$ = SUB(ZDATE$,7,4) ! GET YYYY OF TODAY'S DATE
78130 %WW-OE6 000024B3 WORK40 = NUM(AN$,ERR) + 1 ! ADD ONE YEAR
78140 %WW-OE6 000024C7 AN$ = STR(WORK40) & AN$ = STRIP(AN$)
78150 %WW-OE6 000024E5 ORESCDTE$ = SUB(ZDATE$,1,6)
78160 %WW-OE6 000024FC IF ORESCDTE$ EQ '02/29/' _
78170 %WW-OE6 000024FC ORESCDTE$ = '02/28/'
78180 %WW-OE6 00002513 ORESCDTE$ = ORESCDTE$ + AN$
78190 %WW-OE6 00002525 ENDIF
78200 %WW-OE6 00002525 ENDIF
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 35
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
78210 %WW-OE6 00002525 !
78300 %WW-OE6 00002525 RETURN
78310 %WW-OE6 00002526 !
79000 %WW-OE6 00002526 ! ========== PASSWORD ROUTINE ========== ! TLF 03/31/2008 FOR QUAD
79010 %WW-OE6 00002526 !
79020 %WW-OE6 00002526 7900 !
79030 %WW-OE6 00002526 GOSUB 7920 ! IN ORDER TO RELEASE PROFORMAS
79040 %WW-OE6 0000252B IF QUADSEC$ EQ '*' _ ! QUADRILLE MUST ENTER A VALID PASSWORD
79050 %WW-OE6 0000252B MESS$ = 'PASSWORD ENTRY NOT FOUND - ENTER' & _
79060 %WW-OE6 00002542 GOSUB 9000 & POP & REL$(1) = '' & PAY(1) = 0 & GOTO 7510
79070 %WW-OE6 0000257A IF QUADSEC$ EQ 'N' _
79080 %WW-OE6 0000257A MESS$ = 'INCORRECT PASSWORD - ENTER' & _
79090 %WW-OE6 00002591 GOSUB 9000 & POP & REL$(1) = '' & PAY(1) = 0 & GOTO 7510
79100 %WW-OE6 000025C9 RETURN
79110 %WW-OE6 000025CA !
79200 %WW-OE6 000025CA 7920 CLOSE (PW) & FLNM$ = ZZCO$ + 'PM' & OPEN (PW) FLNM$
79210 %WW-OE6 000025E6 QUADSEC$ = '*' ! INITIALIZE AS KEY NOT FOUND
79220 %WW-OE6 000025EF READ (PW,0089)KEY=ZZCO$+'OE6',EXCP=7926
79230 %WW-OE6 00002608 MESS$ = 'ENTER PASSWORD TO RELEASE PROFORMA' & GOSUB 9060
79240 %WW-OE6 00002616 AN$ = SUB(AN$ + ' ',1,6) & QUADSEC$ = 'N'
79250 %WW-OE6 0000263F IF AN$ EQ PASSWD$ QUADSEC$ = 'Y'
79260 %WW-OE6 00002656 7926 CLOSE (PW)
79270 %WW-OE6 00002659 RETURN
79280 %WW-OE6 0000265A !
81000 %WW-OE6 0000265A ! ========== SET UP O1P GENERIC FIELDS ==========
81020 %WW-OE6 0000265A 8100 !
81040 %WW-OE6 0000265A ORECTYP$ = 'R' ! FOR O1P WRITES
81060 %WW-OE6 00002663 OOPINIT$ = ZZINIT$
81080 %WW-OE6 0000266C ORECDTE8$ = SUB(ZDATE$,7,4)
81100 %WW-OE6 00002683 ORECDTE8$ = ORECDTE8$ + SUB(ZDATE$,1,2)
81120 %WW-OE6 000026A3 ORECDTE8$ = ORECDTE8$ + SUB(ZDATE$,4,2)
81140 %WW-OE6 000026C3 RETURN
81160 %WW-OE6 000026C4 !
81600 %WW-OE6 000026C4 ! ========== FURNITURE ORDERS, ASK FORMS QUESTION ==========
81610 %WW-OE6 000026C4 !
81620 %WW-OE6 000026C4 8160 !
81630 %WW-OE6 000026C4 MESS$ = 'Finishing, Upholstery, Both, Shipment, No work order?'
81640 %WW-OE6 000026CD GOSUB 9000
81650 %WW-OE6 000026D2 IF LEN(AN$) NE 1 GOTO 8160
81660 %WW-OE6 000026E7 IF POS(AN$,'FUBSN') EQ 0 GOTO 8160
81670 %WW-OE6 00002700 IF AN$ NE 'N' _
81680 %WW-OE6 00002700 OFURNOP$ = AN$
81690 %WW-OE6 00002717 !
81700 %WW-OE6 00002717 8170 MESS$ = 'Print customer acknowledgement? (Yes/No)'
81710 %WW-OE6 00002720 GOSUB 9000
81720 %WW-OE6 00002725 IF AN$ NE 'Y' AND AN$ NE 'YES' AND _
81730 %WW-OE6 00002741 AN$ NE 'N' AND AN$ NE 'NO' GOTO 8170
81740 %WW-OE6 00002762 IF AN$ EQ 'Y' OR AN$ EQ 'YES' _
81750 %WW-OE6 00002770 OFURNOPA$ = 'Y'
81760 %WW-OE6 00002787 RETURN
81770 %WW-OE6 00002788 !
81800 %WW-OE6 00002788 8180 !
81810 %WW-OE6 00002788 ODEPOSIT = ODEPOSIL
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 36
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
81820 %WW-OE6 00002792 IF POS(ZZCOID$,'HC*TR*??*??*??*') NE 0 _
81830 %WW-OE6 0000279C ODEPOSIL = ODEPOSIT
81840 %WW-OE6 000027B0 RETURN
81850 %WW-OE6 000027B1 !
89000 %WW-OE6 000027B1 ! ========== DATE PROCESSING ROUTINES ==========
89020 %WW-OE6 000027B1 !
89040 %WW-OE6 000027B1 USE '^CODATE' ! DATECHK
89000 ^CODATE 000027B1 DATECHK:
89001 ^CODATE 000027B1 !
89003 ^CODATE 000027B1 ! PROPER USE OF THIS USEFILE IS AS FOLLOWS:
89004 ^CODATE 000027B1 ! INPUT (0) XDATE$ ! INPUT TEMP FIELD, NOT FIELD DESIRED
89005 ^CODATE 000027B1 ! GOSUB DTCHK
89006 ^CODATE 000027B1 ! IF DATEOK EQ 0 GOTO XXXX ! DO THIS IF BAD DATE INPUT
89007 ^CODATE 000027B1 ! ORDATE$ = XDATE$ ! SET FIELD DESIRED TO INPUT
89008 ^CODATE 000027B1 !
89010 ^CODATE 000027B1 DTCHK:
89020 ^CODATE 000027B1 ! ========== DATE VALIDATION ROUTINE ==========
89040 ^CODATE 000027B1 DATEOK = 0 !DEFAULT TO DAT
89050 ^CODATE 000027BB XCT$ = '19'
89052 ^CODATE 000027C4 XDATE$ = STRIP(XDATE$) ! TLF 07/11/2003, REPLACES 89054
89054 ^CODATE 000027D3 !!!! PRINT (#) XDATE$
89058 ^CODATE 000027D3 !!!! INPUT (#) XDATE$
89062 ^CODATE 000027D3 IF POS(' ',XDATE$) NE 0 RETURN
89070 ^CODATE 000027E8 XPOS = POS('/',XDATE$)
89080 ^CODATE 000027F7 IF XPOS NE 0 THEN
89090 ^CODATE 00002806 MESS$ = SUB(XDATE$,XPOS+1,10)
89100 ^CODATE 00002827 YPOS = POS('/',MESS$)
89110 ^CODATE 00002836 IF YPOS EQ 0 RETURN
89120 ^CODATE 00002846 YPOS = YPOS + XPOS
89140 ^CODATE 00002855 XMO$ = SUB(XDATE$,1,XPOS-1)
89150 ^CODATE 00002876 XMO$ = SUB('00',1,2-LEN(XMO$)) + XMO$
89160 ^CODATE 000028A2 XDA$ = SUB(XDATE$,XPOS+1,YPOS-XPOS-1)
89170 ^CODATE 000028D7 XDA$ = SUB('00',1,2-LEN(XDA$)) + XDA$
89180 ^CODATE 00002903 MESS$ = SUB(XDATE$,YPOS+1,4)
89190 ^CODATE 00002924 PRINT (#) MESS$
89200 ^CODATE 0000292F INPUT (#) MESS$
89210 ^CODATE 0000293A XYR$ = '??'
89220 ^CODATE 00002943 IF LEN(MESS$) EQ 2 THEN
89230 ^CODATE 00002953 XYR$ = MESS$
89240 ^CODATE 0000295C IF XYR$ LT '50' XCT$ = '20'
89250 ^CODATE 00002973 ELSE
89260 ^CODATE 00002978 XCT$ = MESS$
89270 ^CODATE 00002981 XYR$ = SUB(MESS$,3,2)
89280 ^CODATE 00002998 ENDIF
89290 ^CODATE 00002998 ELSE
89300 ^CODATE 0000299D XMO$ = SUB(XDATE$,1,2)
89310 ^CODATE 000029B4 XDA$ = SUB(XDATE$,3,2)
89314 ^CODATE 000029CB IF LEN(XDATE$) EQ 6 THEN
89318 ^CODATE 000029DB XYR$ = SUB(XDATE$,5,2)
89320 ^CODATE 000029F2 IF XYR$ LT '50' XCT$ = '20'
89322 ^CODATE 00002A09 ELSE
89326 ^CODATE 00002A0E XCT$ = SUB(XDATE$,5,2)
89330 ^CODATE 00002A25 XYR$ = SUB(XDATE$,7,2)
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 37
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
89334 ^CODATE 00002A3C ENDIF
89340 ^CODATE 00002A3C ENDIF
89350 ^CODATE 00002A3C !
89500 ^CODATE 00002A3C XMO = NUM(XMO$,ERR)
89520 ^CODATE 00002A4B XDA = NUM(XDA$,ERR)
89540 ^CODATE 00002A5A XCT = NUM(XCT$,ERR)
89560 ^CODATE 00002A69 XYR = NUM(XYR$,ERR)
89562 ^CODATE 00002A78 !PRINT (0) '@011300@';XMO;XDA;XCT;XYR & INPUT (0) ''
89580 ^CODATE 00002A78 IF POS('.',XDATE$) NE 0 OR _ !!! POS(' ',XDATE$) NE 0 OR ????
89600 ^CODATE 00002A8C POS('+',XDATE$) NE 0 OR ERR NE 0 RETURN
89620 ^CODATE 00002AB0 !
89640 ^CODATE 00002AB0 IF XMO LT 1 OR XMO GT 12 OR XDA LT 1 OR XDA GT 31 OR _
89660 ^CODATE 00002AEC XCT EQ 0 RETURN
89680 ^CODATE 00002AFC !
89700 ^CODATE 00002AFC IF (XMO EQ 4 OR XMO EQ 6 OR XMO EQ 9 OR XMO EQ 11) AND _
89720 ^CODATE 00002B38 XDA GT 30 RETURN
89740 ^CODATE 00002B48 IF XMO EQ 2 AND XDA GT 29 RETURN
89760 ^CODATE 00002B67 !
89780 ^CODATE 00002B67 IF FPT(XYR * .25) NE 0 AND XMO EQ 2 AND XDA GT 28 RETURN
89800 ^CODATE 00002B9F !
89805 ^CODATE 00002B9F IF XCT NE 19 AND XCT NE 20 RETURN
89810 ^CODATE 00002BBE IF (XCT EQ 19 AND XYR LT 50) OR (XCT EQ 20 AND XYR GT 50) RETUR
89814 ^CODATE 00002C00 !
89820 ^CODATE 00002C00 XDATE$ = XMO$ + '/' + XDA$ + '/' + XCT$ + XYR$
89840 ^CODATE 00002C36 DATEOK = 1
89860 ^CODATE 00002C40 RETURN
89880 ^CODATE 00002C41 !
89060 %WW-OE6 00002C41 !
89200 %WW-OE6 00002C41 8920 !
89220 %WW-OE6 00002C41 USE '^CO8920'
80 ^CO8920 00002C41 JULDY:
100 ^CO8920 00002C41 !=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=- ^8920 =-=-=-=-=-=-==-=-=-=-=-=-=-
200 ^CO8920 00002C41 !
300 ^CO8920 00002C41 ! Date Conversion Subroutine...
400 ^CO8920 00002C41 !
500 ^CO8920 00002C41 ! Input : XDATE$ as MM/DD/CCYY
600 ^CO8920 00002C41 !
700 ^CO8920 00002C41 !
800 ^CO8920 00002C41 ! Output: ZDYCT Century Day (relative to 01/01/01)
900 ^CO8920 00002C41 ! ZDYYR Normal Julian day
1000 ^CO8920 00002C41 ! ZDYWK Day of the week (MON = 1, Tues = 2,...)
1100 ^CO8920 00002C41 !
1110 ^CO8920 00002C41 ! PLEASE NOTE: STARTING WITH 01/01/2000 - IF YOU WANT
1120 ^CO8920 00002C41 ! TO RETRIEVE THE ACTUAL DAY OF THE CENTURY FOR THE
1130 ^CO8920 00002C41 ! 21ST CENTURY, SUBTRACT 36,159 FROM ZDYCT. FOR AGEING
1140 ^CO8920 00002C41 ! PURPOSES, THE REFERENCE POINT IS 1900 AND YEARS COUNT
1150 ^CO8920 00002C41 ! FROM 99 TO 100, 101, .... INSTEAD OF TURNING TO ZERO.
1160 ^CO8920 00002C41 !
1200 ^CO8920 00002C41 !
1300 ^CO8920 00002C41 MONTH = NUM(SUB(XDATE$,1,2),ERR)
1400 ^CO8920 00002C5E DAY = NUM(SUB(XDATE$,4,2),ERR)
1500 ^CO8920 00002C7B YEAR = NUM(SUB(XDATE$,9,2),ERR)
1520 ^CO8920 00002C98 IF YEAR LT 50 _
COMET - DDUMP Data File Dump [12.01/2011.455] 02/14/12 14:00 Page 38
File: WWOE6 .LST on S32 Type: TXT Beginning at 1 for 100 Record: 8000 Key: 0 Key Position:
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1540 ^CO8920 00002C98 YEAR = YEAR + 100
1600 ^CO8920 00002CB6 LEAPYR = 2
1700 ^CO8920 00002CC0 IF (INT(YEAR / 4.000) * 4.) = YEAR THEN LEAPYR = 1
1800 ^CO8920 00002CF1 ZDYYR = INT(MONTH * 275 / 9.000) + DAY - 30
1900 ^CO8920 00002D1D IF MONTH > 2 THEN ZDYYR = ZDYYR- LEAPYR
2000 ^CO8920 00002D3B ZDYCT = INT((YEAR - 1) * 1461 /4.000) + ZDYYR
2300 ^CO8920 00002D71 ZDYWK = ZDYCT - INT(ZDYCT / 7.000) * 7 + 1
2400 ^CO8920 00002D9E RETURN
2500 ^CO8920 00002D9F !
2600 ^CO8920 00002D9F !=====================================================================
89240 %WW-OE6 00002D9F !
90000 %WW-OE6 00002D9F USE '^COMSRT8'
100 ^COMSRT8 00002D9F 9000 !========= MESSAGE WRITING ROUTINE =========
200 ^COMSRT8 00002D9F LM = LEN(MESS$)
300 ^COMSRT8 00002DAA PM = 36 - (LM/2)
400 ^COMSRT8 00002DBE PRINT (0, 91)
500 ^COMSRT8 00002DC5 IF BLIND$ NE 'B' PRINT (0, 90)
600 ^COMSRT8 00002DDA IF BLIND$ EQ 'B' PRINT (0, 96)
700 ^COMSRT8 00002DEF INPUT (0) AN$
800 ^COMSRT8 00002DFA PRINT (0, 91) & BLIND$ = ''
900 ^COMSRT8 00002E0A RETURN
1000 ^COMSRT8 00002E0B 9050 PRINT (0, 92)
1100 ^COMSRT8 00002E12 GOTO 9000
1200 ^COMSRT8 00002E17 9060 BLIND$ = 'B'
1300 ^COMSRT8 00002E20 GOTO 9000
100000 %WW-OE6 00002E25 ! ========== PROGRAM END ==========
100100 %WW-OE6 00002E25 9900 PROGID$ = 'O'
100200 %WW-OE6 00002E2E PRINT (0, 130)
100300 %WW-OE6 00002E35 RUN 'Z'
100400 %WW-OE6 00002E3B END
WARNING: STATEMENT 7379 defined at 00000DFF cannot be executed
WARNING: STATEMENT 7400 defined at 00000ED8 cannot be executed
WARNING: STATEMENT 9900 defined at 00002E25 cannot be executed
PROGRAM MEMORY REQUIREMENTS
COMMON 00000507
LOCAL 00007704
CONSTANTS 00003236
FORMATS 00003874
CODE 00011836
--------
TOTAL 00027157
COMPILE COMPLETED
TOTAL ERRORS 0
100500 %WW-OE6 00000000 !
ZZZZZZZ %WW-OE6 00000000 END
TOTAL ERRORS 0
End of listing - 2010 Records