COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 1
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
Compiling %WW-OE3 on S32 to WWOE3 on O32 03/13/12 12:50:31 PM
1 %WW-OE3 00000000 !S %WW-OE3,S32
2 %WW-OE3 00000000 !O WWOE3,O32
3 %WW-OE3 00000000 !L LPH,E
7 %WW-OE3 00000000 !R CED
10 %WW-OE3 00000000 !
12 %WW-OE3 00000000 ! This version was copied from %WW-OE3 on 4/25/03 to incorpo
13 %WW-OE3 00000000 ! extended comment changes.
14 %WW-OE3 00000000 !
20 %WW-OE3 00000000 !
30 %WW-OE3 00000000 ! 12/29/2010 - WHEN INSTALLING OE3 CHECK TO SEE IF END-USER
40 %WW-OE3 00000000 ! EVEN THOUGH O1 FILES HAVE BEEN EXPANDED, THEIR VERSION OF
50 %WW-OE3 00000000 ! CREATING THE TEMPORARY O1 FILES ( WWO1T33 FOR EXAMPLE ) WI
60 %WW-OE3 00000000 ! RECORD LENGTH.
70 %WW-OE3 00000000 !
1000 %WW-OE3 00000000 !===========================================================
1010 %WW-OE3 00000000 ! PROGRAM: ORDER ENTRY/MAINT (PART 3)
1020 %WW-OE3 00000000 !
1030 %WW-OE3 00000000 ! SOURCE ID: =WW-OE3 BY W. HUS
1040 %WW-OE3 00000000 ! OBJECT ID: WWOE3 FOR LEE JOFA
1050 %WW-OE3 00000000 ! DATE 10/22/82
1060 %WW-OE3 00000000 !
1070 %WW-OE3 00000000 ! OVERLAYS: OE, OE2, OM4, IT
1080 %WW-OE3 00000000 !
1090 %WW-OE3 00000000 ! FILES ACCESSED:
1100 %WW-OE3 00000000 ! NAME TYPE USE DESCRIPTION R =
1110 %WW-OE3 00000000 ! ==== ==== === =========== W =
1120 %WW-OE3 00000000 ! O1 K W ORDER DETAIL D =
1130 %WW-OE3 00000000 ! I1A K R/W INVENTORY MASTER E =
1140 %WW-OE3 00000000 ! C =
1150 %WW-OE3 00000000 ! O1A K W HEADER 'B' REC K =
1160 %WW-OE3 00000000 ! S =
1170 %WW-OE3 00000000 !
1180 %WW-OE3 00000000 !
1190 %WW-OE3 00000000 ! PURPOSE: THIS PROGRAM ALLOWS THE MAINTENANCE OF O
1200 %WW-OE3 00000000 ! LINE NUMBERS ARE ENTERED AND THE LINES ARE CHANGED. N
1210 %WW-OE3 00000000 ! ADDED BY ENTERING A LINE NUMBER THAT IS NOT ON THE O1
1220 %WW-OE3 00000000 !
1230 %WW-OE3 00000000 !
1240 %WW-OE3 00000000 !
1250 %WW-OE3 00000000 !===========================================================
1260 %WW-OE3 00000000 !
2000 %WW-OE3 00000000 ROUND
3200 %WW-OE3 00000000 USE '^COOECOM' !COMMON
3000 ^COOECOM 00000000 LENGTH 8 & COMMON PROGID$ !COMM
3100 ^COOECOM 00000000 LENGTH 50 & COMMON COMBLK$
3110 ^COOECOM 00000000 LENGTH 1 & COMMON ORO$,ZDSCFLG$,ZCANFLG$,ZZPCKFLG
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$
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 2
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
3170 ^COOECOM 00000000 LENGTH 6 & COMMON ZCNBR$
3180 ^COOECOM 00000000 LENGTH 8 & COMMON ZZAGED$,ZRETURN$
3190 ^COOECOM 00000000 LENGTH 9 & COMMON ZORNBR$,ZQORNBR$,ZINVCNBR$
3200 ^COOECOM 00000000 LENGTH 10 & COMMON ZZDATE$,ZZRESDT$,ZZORDDT$
3210 ^COOECOM 00000000 LENGTH 15 & COMMON ZSHIPVIA$
3220 ^COOECOM 00000000 LENGTH 1.0 & COMMON ZZREPFLG
3230 ^COOECOM 00000000 LENGTH 2.0 & COMMON ZZHNDPCT,ZZMOCRED,ZNUMLAB
3240 ^COOECOM 00000000 LENGTH 3.0 & COMMON ZZPSTDUE
3250 ^COOECOM 00000000 LENGTH 4.2 & COMMON ZZPCKCHG,ZCOMPCT,ZZFRTMIN
3260 ^COOECOM 00000000 LENGTH 9.2 & COMMON ZNET
3270 ^COOECOM 00000000 LENGTH 1 & COMMON ZZLPDISP$,ZZORDLIM$,ZZMULTIW$
3280 ^COOECOM 00000000 LENGTH 3.0 & COMMON ZZMAXUPS
3290 ^COOECOM 00000000 LENGTH 1 & COMMON ZZCFA$,ZZSTRSL$
3300 ^COOECOM 00000000 LENGTH 15 & COMMON ZZFOB$
3310 ^COOECOM 00000000 LENGTH 4.2 & COMMON ZZSTRPCT
3320 ^COOECOM 00000000 LENGTH 2.0 & COMMON ZZREMOTE
3330 ^COOECOM 00000000 LENGTH 1 & COMMON ZZFRTYL$,ZZCY$
3340 ^COOECOM 00000000 LENGTH 10 & COMMON ZZOZIP$
3350 ^COOECOM 00000000 LENGTH 2 & COMMON ZZCURRCD$
3360 ^COOECOM 00000000 LENGTH 3.0 & COMMON ZZPDDYS
3370 ^COOECOM 00000000 LENGTH 4.0 & COMMON ZZCLAMT
3380 ^COOECOM 00000000 LENGTH 9.2 & COMMON ZZNET
3390 ^COOECOM 00000000 LENGTH 1 & COMMON ZZRNDFRT$,ZZUPDC1A$,ZZFURNAC$
3400 ^COOECOM 00000000 LENGTH 1 & COMMON ZZDIBC$
3410 ^COOECOM 00000000 LENGTH 3 & COMMON ZZDIBCLPT$
3420 ^COOECOM 00000000 LENGTH 1 & COMMON ZZBRKFLG$
3440 ^COOECOM 00000000 !
4900 %WW-OE3 00000000 0000 FORMAT ''
5000 %WW-OE3 00000006 USE '^COI1A' !0200-I
100 ^COI1A 00000006 !
200 ^COI1A 00000006 !===========================> ^COI1A <====================
300 ^COI1A 00000006 !
400 ^COI1A 00000006 ! File Format & Length Declaratives
500 ^COI1A 00000006 !
600 ^COI1A 00000006 ! File Name: WWI1A COLOR MASTER FILE
700 ^COI1A 00000006 !
800 ^COI1A 00000006 ! Type: K Record: 756 Key: 14 Image: N
900 ^COI1A 00000006 !
1000 ^COI1A 00000006 ! #FILES File Name: COLOR.MASTER Date: 0
1100 ^COI1A 00000006 !
1200 ^COI1A 00000006 !-----------------------------------------------------------
1300 ^COI1A 00000006 !
1400 ^COI1A 00000006 !
1500 ^COI1A 00000006 LENGTH 4.0 & LOCAL IINV1MTH,IINV2MTH,IINVMTD
1600 ^COI1A 00000006 LENGTH 4.0 & LOCAL IINVPRV1,IINVPRV2,IINVPRV3
1700 ^COI1A 00000006 LENGTH 4.0 & LOCAL IINVPRV4,IINVQTD,IINVYTD
1800 ^COI1A 00000006 LENGTH 4.0 & LOCAL IROPNT
1900 ^COI1A 00000006 LENGTH 5.3 & LOCAL ILENRPT
2000 ^COI1A 00000006 LENGTH 6.0 & LOCAL INXTPCNO
2100 ^COI1A 00000006 LENGTH 7.0 & LOCAL IUN1MTH,IUN2MTH,IUNMTD
2200 ^COI1A 00000006 LENGTH 7.0 & LOCAL IUNPRV1,IUNPRV2,IUNPRV3
2300 ^COI1A 00000006 LENGTH 7.0 & LOCAL IUNPRV4,IUNQTD,IUNYTD
2400 ^COI1A 00000006 LENGTH 7.2 & LOCAL IQICMTD,IQOBO,IQOHNDBN
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 3
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2500 ^COI1A 00000006 LENGTH 7.2 & LOCAL IQOHND,IQOORD,IQOCMTD
2600 ^COI1A 00000006 LENGTH 7.2 & LOCAL IQRCMTD,ISCMTD,ISCPRV1
2700 ^COI1A 00000006 LENGTH 7.2 & LOCAL ISCPRV2,ISCPRV3,ISCPRV4
2800 ^COI1A 00000006 LENGTH 7.2 & LOCAL ISCQTD,ISCYTD,ISPCLPRC
2900 ^COI1A 00000006 LENGTH 9.2 & LOCAL ICSTMTD,ICSTPRV1,ICSTPRV2
3000 ^COI1A 00000006 LENGTH 9.2 & LOCAL ICSTPRV3,ICSTPRV4,ICSTQTD
3100 ^COI1A 00000006 LENGTH 9.2 & LOCAL ICSTYTD,ISLSMTD,ISLSPRV1
3200 ^COI1A 00000006 LENGTH 9.2 & LOCAL ISLSPRV2,ISLSPRV3,ISLSPRV4
3300 ^COI1A 00000006 LENGTH 9.2 & LOCAL ISLSQTD,ISLSYTD
3400 ^COI1A 00000006 LENGTH 1 & LOCAL ICITEM$,IFURNITM$,IHORVERT$
3500 ^COI1A 00000006 LENGTH 1 & LOCAL IMEXCP$
3600 ^COI1A 00000006 LENGTH 2 & LOCAL IPRICOL$,ISECCOL$,IUDEF$
3700 ^COI1A 00000006 LENGTH 4 & LOCAL ICACCTNG$
3800 ^COI1A 00000006 LENGTH 6 & LOCAL INXTLOT$
3900 ^COI1A 00000006 LENGTH 7 & LOCAL IFILLER$,IPATTERN$
4000 ^COI1A 00000006 LENGTH 8 & LOCAL ILPDTE$,ISTDLOC$
4100 ^COI1A 00000006 LENGTH 10 & LOCAL IDSCNTDT$
4200 ^COI1A 00000006 LENGTH 14 & LOCAL IINBR$,INBR$,INEWINBR$
4300 ^COI1A 00000006 LENGTH 20 & LOCAL IGRFLNM$
4400 ^COI1A 00000006 LENGTH 25 & LOCAL ICOLOR$
4500 ^COI1A 00000006 LENGTH 50 & LOCAL IMINBR$
4600 ^COI1A 00000006 LENGTH 57 & LOCAL ICCOMM1$,ICCOMM2$
4700 ^COI1A 00000006 !
4800 ^COI1A 00000006 !
4900 ^COI1A 00000006 ! Description Type
5000 ^COI1A 00000006 ! ---------------------------------
5100 ^COI1A 00000006 0200 FORMAT _
5200 ^COI1A 00000006 INBR$;_ ! ITEM NUMBER S
5300 ^COI1A 0000000B IPATTERN$;_ ! PATTERN NUMBER S
5400 ^COI1A 00000010 ICOLOR$;_ ! COLOR NAME S
5500 ^COI1A 00000015 IMINBR$;_ ! MILL ITEM NUMBER S
5600 ^COI1A 0000001A ICCOMM1$;_ ! COLOR COMMENT 1 S
5700 ^COI1A 0000001F ICCOMM2$;_ ! COLOR COMMENT 2 S
5800 ^COI1A 00000024 IROPNT;_ ! REORDER POINT N
5900 ^COI1A 00000029 ICITEM$;_ ! CUST ITEM FLG S
6000 ^COI1A 0000002E IINBR$;_ ! INVENTORY ITEM NUMB S
6100 ^COI1A 00000033 ILPDTE$;_ ! LT PO DT S
6200 ^COI1A 00000038 IQOORD;_ ! ON ORDER FROM SUPPLIERS N
6300 ^COI1A 0000003D IQOBO;_ ! ON BACKORDER CUSTOM N
6400 ^COI1A 00000042 IQOHND;_ ! QTY ON HAND WHSE N
6500 ^COI1A 00000047 IQOHNDBN;_ ! QTY ON HAND BOND N
6600 ^COI1A 0000004C IQOCMTD;_ ! ALLOCATED TO ORDERS N
6700 ^COI1A 00000051 IQRCMTD;_ ! ALLOCATED TO RESERV N
6800 ^COI1A 00000056 ISLSMTD;_ ! SALES MTD N
6900 ^COI1A 0000005B ISLSQTD;_ ! SALES QTD N
7000 ^COI1A 00000060 ISLSYTD;_ ! SALES YTD N
7100 ^COI1A 00000065 ISLSPRV1;_ ! SALES PRV1 N
7200 ^COI1A 0000006A ISLSPRV2;_ ! SALES PRV2 N
7300 ^COI1A 0000006F ISLSPRV3;_ ! SALES PRV3 N
7400 ^COI1A 00000074 ISLSPRV4;_ ! SALES PRV4 N
7500 ^COI1A 00000079 ICSTMTD;_ ! COST MTD N
7600 ^COI1A 0000007E ICSTQTD;_ ! COST QTD N
7700 ^COI1A 00000083 ICSTYTD;_ ! COST YTD N
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 4
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
7800 ^COI1A 00000088 ICSTPRV1;_ ! COST PRV1 N
7900 ^COI1A 0000008D ICSTPRV2;_ ! COST PRV2 N
8000 ^COI1A 00000092 ICSTPRV3;_ ! COST PRV3 N
8100 ^COI1A 00000097 ICSTPRV4;_ ! COST PRV4 N
8200 ^COI1A 0000009C IUNMTD;_ ! UNITS MTD N
8300 ^COI1A 000000A1 IUNQTD;_ ! UNITS QTD N
8400 ^COI1A 000000A6 IUNYTD;_ ! UNITS YTD N
8500 ^COI1A 000000AB IUNPRV1;_ ! UNITS PRV1 N
8600 ^COI1A 000000B0 IUNPRV2;_ ! UNITS PRV2 N
8700 ^COI1A 000000B5 IUNPRV3;_ ! UNITS PRV3 N
8800 ^COI1A 000000BA IUNPRV4;_ ! UNITS PRV4 N
8900 ^COI1A 000000BF IUN1MTH;_ ! UNITS 1 MONTHS AGO N
9000 ^COI1A 000000C4 IUN2MTH;_ ! UNITS 2 MONTHS AGO N
9100 ^COI1A 000000C9 IINVMTD;_ ! INVOICES MTD N
9200 ^COI1A 000000CE IINVQTD;_ ! INVOICES QTD N
9300 ^COI1A 000000D3 IINVYTD;_ ! INVOICES YTD N
9400 ^COI1A 000000D8 IINVPRV1;_ ! INVOICES PRV1 N
9500 ^COI1A 000000DD IINVPRV2;_ ! INVOICES PRV2 N
9600 ^COI1A 000000E2 IINVPRV3;_ ! INVOICES PRV3 N
9700 ^COI1A 000000E7 IINVPRV4;_ ! INVOICES PRV4 N
9800 ^COI1A 000000EC IINV1MTH;_ ! INVOICES 1 MONTHAGO N
9900 ^COI1A 000000F1 IINV2MTH;_ ! INVOICES 2 MONTHAGO N
10000 ^COI1A 000000F6 ISCMTD;_ ! SAMPLE COST MTD N
10100 ^COI1A 000000FB ISCQTD;_ ! SAMPLE COST QTD N
10200 ^COI1A 00000100 ISCYTD;_ ! SAMPLE COST YTD N
10300 ^COI1A 00000105 ISCPRV1;_ ! SAMPLE COST PRV1 N
10400 ^COI1A 0000010A ISCPRV2;_ ! SAMPLE COST PRV2 N
10500 ^COI1A 0000010F ISCPRV3;_ ! SAMPLE COST PRV3 N
10600 ^COI1A 00000114 ISCPRV4;_ ! SAMPLE COST PRV4 N
10700 ^COI1A 00000119 IMEXCP$;_ ! MEMO EXCP FLAG S
10800 ^COI1A 0000011E IDSCNTDT$;_ ! DISCONTINUE DATE S
10900 ^COI1A 00000123 IQICMTD;_ ! ALLOCATED TO INQUIRIES N
11000 ^COI1A 00000128 INXTPCNO;_ ! NEXT PC # N
11100 ^COI1A 0000012D INXTLOT$;_ ! NEXT LOT # S
11200 ^COI1A 00000132 INEWINBR$;_ ! NEW ITEM # S
11300 ^COI1A 00000137 IUDEF$;_ ! USER DEFINED S
11400 ^COI1A 0000013C ILENRPT;_ ! LENGTH OF REPEAT N
11500 ^COI1A 00000141 IGRFLNM$;_ ! GRAPHIC FILE NAME S
11600 ^COI1A 00000146 IFURNITM$;_ ! FURN ITEM S
11700 ^COI1A 0000014B ISTDLOC$;_ ! STD WHSE LOC S
11800 ^COI1A 00000150 ICACCTNG$;_ ! COLOR ACCTNG CODE S
11900 ^COI1A 00000155 IHORVERT$;_ ! GRAPHIC IMAGE HORIZ/VERT S
12000 ^COI1A 0000015A ISPCLPRC;_ ! SPECIAL PRICE N
12100 ^COI1A 0000015F IPRICOL$;_ ! PRIMARY COLOR CODE S
12200 ^COI1A 00000164 ISECCOL$;_ ! SECONDARY COLOR CODE S
12300 ^COI1A 00000169 IFILLER$ ! FILLER S
12400 ^COI1A 0000016F !
12500 ^COI1A 0000016F !===========================================================
5020 %WW-OE3 0000016F USE '^COI1R' !0210-L
100 ^COI1R 0000016F !
200 ^COI1R 0000016F !===========================> ^COI1R <====================
300 ^COI1R 0000016F !
400 ^COI1R 0000016F ! File Format & Length Declaratives
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 5
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
500 ^COI1R 0000016F !
600 ^COI1R 0000016F ! File Name: WWI1R INVENTORY BY LOT AND PIE
700 ^COI1R 0000016F !
800 ^COI1R 0000016F ! Type: K Record: 378 Key: 26 Image: N
900 ^COI1R 0000016F !
1000 ^COI1R 0000016F ! #FILES File Name: STOCK.LOT.PIECE Date: 0
1100 ^COI1R 0000016F !
1200 ^COI1R 0000016F !-----------------------------------------------------------
1300 ^COI1R 0000016F !
1400 ^COI1R 0000016F !
1500 ^COI1R 0000016F LENGTH 6.2 & LOCAL RADJPCE,RADJMTD,RADJQTD
1600 ^COI1R 0000016F LENGTH 6.2 & LOCAL RBOHMTD,RBOHQTR,IBRKCST
1700 ^COI1R 0000016F LENGTH 6.2 & LOCAL IDUTYCST,IFINCST,IMSCCST
1800 ^COI1R 0000016F LENGTH 6.2 & LOCAL RQOHND,IPRTCST,RQALCTD
1900 ^COI1R 0000016F LENGTH 6.2 & LOCAL RQRCVD,RQRETURN,RSHPMTD
2000 ^COI1R 0000016F LENGTH 6.2 & LOCAL RSHPPCE,RSHPQTD
2100 ^COI1R 0000016F LENGTH 7.2 & LOCAL IMATCST,ICOST
2200 ^COI1R 0000016F LENGTH 1 & LOCAL RAVAILPO$,RFRTEST$
2300 ^COI1R 0000016F LENGTH 3 & LOCAL IWHSE$
2400 ^COI1R 0000016F LENGTH 5 & LOCAL RCASE$,RVNBR$
2500 ^COI1R 0000016F LENGTH 6 & LOCAL IRUN$,IPCE$
2600 ^COI1R 0000016F LENGTH 8 & LOCAL RLOC$,RPDATE$
2700 ^COI1R 0000016F LENGTH 9 & LOCAL IQORNBR$
2800 ^COI1R 0000016F LENGTH 10 & LOCAL RRCVDBND$,RRCVDWHS$
2900 ^COI1R 0000016F LENGTH 10 & LOCAL RMILLPCE$
3000 ^COI1R 0000016F LENGTH 12 & LOCAL RENTRY$
3100 ^COI1R 0000016F LENGTH 14 & LOCAL INBR$
3100 ^COI1R *****16F Variable 'INBR$ ' has been previously declared
3200 ^COI1R 0000016F LENGTH 15 & LOCAL IINVCNBR$
3300 ^COI1R 0000016F LENGTH 40 & LOCAL RCMNT$
3400 ^COI1R 0000016F LENGTH 61 & LOCAL RFIL0210$
3500 ^COI1R 0000016F !
3600 ^COI1R 0000016F !
3700 ^COI1R 0000016F ! Description Type
3800 ^COI1R 0000016F ! ---------------------------------
3900 ^COI1R 0000016F 0210 FORMAT _
4000 ^COI1R 0000016F INBR$;_ ! ITEM # S
4100 ^COI1R 00000174 IRUN$;_ ! LOT # S
4200 ^COI1R 00000179 IPCE$;_ ! PCE S
4300 ^COI1R 0000017E IWHSE$;_ ! WHSE CODE S
4400 ^COI1R 00000183 IQORNBR$;_ ! P.O.NUMBER S
4500 ^COI1R 00000188 IINVCNBR$;_ ! INVOICE NUMBER S
4600 ^COI1R 0000018D RRCVDBND$;_ ! DATE RCVD BOND WHSE S
4700 ^COI1R 00000192 RRCVDWHS$;_ ! DATE RCVD WHSE S
4800 ^COI1R 00000197 RMILLPCE$;_ ! MILLS PIECE ID S
4900 ^COI1R 0000019C RENTRY$;_ ! ENTRY NUMBER S
5000 ^COI1R 000001A1 RCASE$;_ ! CASE ID S
5100 ^COI1R 000001A6 RLOC$;_ ! WHSE LOCATION S
5200 ^COI1R 000001AB RCMNT$;_ ! COMMENT S
5300 ^COI1R 000001B0 RQOHND;_ ! ON HAND N
5400 ^COI1R 000001B5 RQRCVD;_ ! RECEIVED N
5500 ^COI1R 000001BA RQRETURN;_ ! RETURNED N
5600 ^COI1R 000001BF RSHPPCE;_ ! SHIPPED FROM PIECE N
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 6
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
5700 ^COI1R 000001C4 RADJPCE;_ ! ADJUSTMENTS PIECE N
5800 ^COI1R 000001C9 IMATCST;_ ! MATERIAL COST N
5900 ^COI1R 000001CE IDUTYCST;_ ! DUTY COST N
6000 ^COI1R 000001D3 IBRKCST;_ ! BROKER COST N
6100 ^COI1R 000001D8 IFINCST;_ ! FINISH COST N
6200 ^COI1R 000001DD IPRTCST;_ ! PRINT COST N
6300 ^COI1R 000001E2 IMSCCST;_ ! MISC COST N
6400 ^COI1R 000001E7 ICOST;_ ! UNIT CST N
6500 ^COI1R 000001EC RFRTEST$;_ ! ESTIMATED FRT FLAG S
6600 ^COI1R 000001F1 RSHPMTD;_ ! SHIPPED MTD N
6700 ^COI1R 000001F6 RSHPQTD;_ ! SHIPPED QTD N
6800 ^COI1R 000001FB RBOHMTD;_ ! BEG ON HAND THIS MONTH N
6900 ^COI1R 00000200 RBOHQTR;_ ! BEG ON HAND THIS QTR N
7000 ^COI1R 00000205 RADJMTD;_ ! ADJ MTD N
7100 ^COI1R 0000020A RADJQTD;_ ! ADJ QTD N
7200 ^COI1R 0000020F RPDATE$;_ ! LOT PURGE DATE S
7300 ^COI1R 00000214 RQALCTD;_ ! QTY ALLOCATED N
7400 ^COI1R 00000219 RAVAILPO$;_ ! AVAIL PO FLAG S
7500 ^COI1R 0000021E RVNBR$;_ ! VENDOR # S
7600 ^COI1R 00000223 RFIL0210$ ! FILLER S
7700 ^COI1R 00000229 !
7800 ^COI1R 00000229 !===========================================================
5040 %WW-OE3 00000229 USE '^COO1' !0065-O
100 ^COO1 00000229 !
200 ^COO1 00000229 !===========================> ^COO1 <=====================
300 ^COO1 00000229 !
400 ^COO1 00000229 ! File Format & Length Declaratives
500 ^COO1 00000229 !
600 ^COO1 00000229 ! File Name: WWO1 OPEN ORDER DETAIL (LINE ITEMS
700 ^COO1 00000229 !
800 ^COO1 00000229 ! Type: K Record: 512 Key: 12 Image: N
900 ^COO1 00000229 !
1000 ^COO1 00000229 ! #FILES File Name: ORDER.OPEN.D Date: 0
1100 ^COO1 00000229 !
1200 ^COO1 00000229 !-----------------------------------------------------------
1300 ^COO1 00000229 !
1400 ^COO1 00000229 !
1500 ^COO1 00000229 LENGTH 3.0 & LOCAL OLEADTM
1600 ^COO1 00000229 LENGTH 4.2 & LOCAL OCOMPCT1,OCOMPCT2,OLDSCPCT
1700 ^COO1 00000229 LENGTH 6.2 & LOCAL OORIGQTY,OQTYBOD,OQTYBIL
1800 ^COO1 00000229 LENGTH 6.2 & LOCAL OQTYORD,OQTYREL,OQTYSHP
1900 ^COO1 00000229 LENGTH 7.2 & LOCAL ODFCST,OLDSCAMT,ONDPRICE
2000 ^COO1 00000229 LENGTH 7.2 & LOCAL OPRICE,OICOST
2100 ^COO1 00000229 LENGTH 9.2 & LOCAL OEXT
2200 ^COO1 00000229 LENGTH 1 & LOCAL OCAFLGD$,OCSTOVRD$
2300 ^COO1 00000229 LENGTH 1 & LOCAL O1CUTYRD$,OISFLG$,OMANBO$
2400 ^COO1 00000229 LENGTH 1 & LOCAL ORCFLAG$,OSPLITLN$
2500 ^COO1 00000229 LENGTH 2 & LOCAL OACTCD1$,OACTCD2$,OACTCD3$
2600 ^COO1 00000229 LENGTH 2 & LOCAL OPLO1H$,ORETCD$
2700 ^COO1 00000229 LENGTH 3 & LOCAL OLINE$,OQLINE$
2800 ^COO1 00000229 LENGTH 7 & LOCAL OPATTERN$
2900 ^COO1 00000229 LENGTH 9 & LOCAL OQORNBR$,ORNBR$
3000 ^COO1 00000229 LENGTH 10 & LOCAL OACTDT1$,OACTDT2$,OACTDT3$
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 7
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
3100 ^COO1 00000229 LENGTH 10 & LOCAL OMSHPDTE$,OOSHPDTE$
3200 ^COO1 00000229 LENGTH 14 & LOCAL INBR$
3200 ^COO1 *****229 Variable 'INBR$ ' has been previously declared
3300 ^COO1 00000229 LENGTH 50 & LOCAL OTAG$
3400 ^COO1 00000229 LENGTH 223 & LOCAL O1FILLER$
3500 ^COO1 00000229 !
3600 ^COO1 00000229 !
3700 ^COO1 00000229 ! Description Type
3800 ^COO1 00000229 ! ---------------------------------
3900 ^COO1 00000229 0065 FORMAT _
4000 ^COO1 00000229 ORNBR$;_ ! ORDER # S
4100 ^COO1 0000022E OLINE$;_ ! LIN NUM S
4200 ^COO1 00000233 INBR$;_ ! ITEM NUMBER S
4300 ^COO1 00000238 OTAG$;_ ! TAG COMMENT S
4400 ^COO1 0000023D OQTYORD;_ ! QTY ORDERED N
4500 ^COO1 00000242 OQTYSHP;_ ! QTY SHPD N
4600 ^COO1 00000247 OQTYBIL;_ ! QTY BILLED N
4700 ^COO1 0000024C OPRICE;_ ! PRICE N
4800 ^COO1 00000251 OICOST;_ ! UNIT COST N
4900 ^COO1 00000256 OEXT;_ ! EXTENSION N
5000 ^COO1 0000025B ORETCD$;_ ! RET CDE S
5100 ^COO1 00000260 OCOMPCT1;_ ! COMM PCT REP 1 N
5200 ^COO1 00000265 OCOMPCT2;_ ! COMM PCT REP 2 N
5300 ^COO1 0000026A OQTYBOD;_ ! QTY BACK ORDRD N
5400 ^COO1 0000026F OQORNBR$;_ ! P.O.NUMBER S
5500 ^COO1 00000274 OQLINE$;_ ! PO LINE S
5600 ^COO1 00000279 OISFLG$;_ ! ITEM SERV FLAG S
5700 ^COO1 0000027E ORCFLAG$;_ ! RETURN CREDIT FLAG S
5800 ^COO1 00000283 OPLO1H$;_ ! PROD LINE S
5900 ^COO1 00000288 OQTYREL;_ ! QTY RELEASED N
6000 ^COO1 0000028D OPATTERN$;_ ! PATTERN NUMBER S
6100 ^COO1 00000292 OCAFLGD$;_ ! COMM ADJ FLG DET S
6200 ^COO1 00000297 OMANBO$;_ ! MANUAL B/O S
6300 ^COO1 0000029C OMSHPDTE$;_ ! MILL SHIP DATE S
6400 ^COO1 000002A1 OOSHPDTE$;_ ! OUR SHIP DATE S
6500 ^COO1 000002A6 ODFCST;_ ! DUTY/FRT COSTS N
6600 ^COO1 000002AB O1CUTYRD$;_ ! CUT YARDAGE O1 S
6700 ^COO1 000002B0 OSPLITLN$;_ ! SPLIT LINE FLAG S
6800 ^COO1 000002B5 OACTCD1$;_ ! ACTION CODE 1 S
6900 ^COO1 000002BA OACTCD2$;_ ! ACTION CODE 2 S
7000 ^COO1 000002BF OACTCD3$;_ ! ACTION CODE 3 S
7100 ^COO1 000002C4 OACTDT1$;_ ! ACTION DATE 1 S
7200 ^COO1 000002C9 OACTDT2$;_ ! ACTION DATE 2 S
7300 ^COO1 000002CE OACTDT3$;_ ! ACTION DATE 3 S
7400 ^COO1 000002D3 OCSTOVRD$;_ ! COST OVERRIDE S
7500 ^COO1 000002D8 OORIGQTY;_ ! ORIGINAL ORD QTY N
7600 ^COO1 000002DD OLEADTM;_ ! LEAD TIME N
7700 ^COO1 000002E2 OLDSCPCT;_ ! LINE DISC % N
7800 ^COO1 000002E7 OLDSCAMT;_ ! LINE DISC AMT N
7900 ^COO1 000002EC ONDPRICE;_ ! NON-DISC PRICE N
8000 ^COO1 000002F1 O1FILLER$ ! FILLER S
8100 ^COO1 000002F7 !
8200 ^COO1 000002F7 !===========================================================
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 8
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
5060 %WW-OE3 000002F7 USE '^COO1S' !0068-S
1000 ^COO1S 000002F7 !
1100 ^COO1S 000002F7 !************************* ^COO1S **********************
1200 ^COO1S 000002F7 !
1300 ^COO1S 000002F7 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWO1S TYPE: K
1400 ^COO1S 000002F7 !
1500 ^COO1S 000002F7 ! SHIPPED PIECES LINE ITEMS REC SIZ
1600 ^COO1S 000002F7 ! KEY SIZ
1700 ^COO1S 000002F7 !
1800 ^COO1S 000002F7 ! #FILE NAME: SHIPPED.PIECES DATE:
1900 ^COO1S 000002F7 !
1910 ^COO1S 000002F7 ! BY: CRITERION DESIGN & PROGRAMMING LTD.
1920 ^COO1S 000002F7 !
2000 ^COO1S 000002F7 !***********************************************************
2100 ^COO1S 000002F7 !
2200 ^COO1S 000002F7 ! FILE STATEMENT
2300 ^COO1S 000002F7 !
2400 ^COO1S 000002F7 !!!!FILE 'WWO1S', 54
2500 ^COO1S 000002F7 !
2600 ^COO1S 000002F7 ! VARIABLE DECLARATIONS:
2700 ^COO1S 000002F7 !
2800 ^COO1S 000002F7 LENGTH 6.2 & LOCAL OSHPPCE
2900 ^COO1S 000002F7 LENGTH 1 & LOCAL O1SFILL$,O1SUPDT$
3000 ^COO1S 000002F7 LENGTH 3 & LOCAL OLINE$
3000 ^COO1S *****2F7 Variable 'OLINE$ ' has been previously declared
3100 ^COO1S 000002F7 LENGTH 6 & LOCAL OLOT$,OPCE$
3200 ^COO1S 000002F7 LENGTH 9 & LOCAL ORNBR$
3200 ^COO1S *****2F7 Variable 'ORNBR$ ' has been previously declared
3300 ^COO1S 000002F7 !
3400 ^COO1S 000002F7 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH
3500 ^COO1S 000002F7 !
3600 ^COO1S 000002F7 0068 FORMAT _
3700 ^COO1S 000002F7 ORNBR$;_ ! ORDER # S 9
3800 ^COO1S 000002FC OLINE$;_ ! LIN NUM S 3
3900 ^COO1S 00000301 OLOT$;_ ! LOT NUMBER S 6
4000 ^COO1S 00000306 OPCE$;_ ! PCE NUMBER S 6
4100 ^COO1S 0000030B OSHPPCE;_ ! QTY SHPD FROM PCE N 6.2
4200 ^COO1S 00000310 O1SUPDT$;_ ! UPDATE FLAG S 1
4300 ^COO1S 00000315 O1SFILL$ ! FILLER S 1
4400 ^COO1S 0000031B !
4500 ^COO1S 0000031B !***********************************************************
5080 %WW-OE3 0000031B USE '^COI1CS' !0228-S
100 ^COI1CS 0000031B !
200 ^COI1CS 0000031B !===========================> ^COI1CS <===================
300 ^COI1CS 0000031B !
400 ^COI1CS 0000031B ! File Format & Length Declaratives
500 ^COI1CS 0000031B !
600 ^COI1CS 0000031B ! File Name: WWI1CS SPECIFIED JOBS
700 ^COI1CS 0000031B !
800 ^COI1CS 0000031B ! Type: K Record: 756 Key: 09 Image: N
900 ^COI1CS 0000031B !
1000 ^COI1CS 0000031B ! #FILES File Name: SPECIFIED.JOBS Date: 0
1100 ^COI1CS 0000031B !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 9
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1200 ^COI1CS 0000031B !-----------------------------------------------------------
1300 ^COI1CS 0000031B !
1400 ^COI1CS 0000031B !
1500 ^COI1CS 0000031B LENGTH 4.2 & LOCAL SJCOMPCT
1600 ^COI1CS 0000031B LENGTH 5.0 & LOCAL SJESTQTY,SJFQTY,SJTQTY
1700 ^COI1CS 0000031B LENGTH 5.2 & LOCAL SJDUTY
1800 ^COI1CS 0000031B LENGTH 6.2 & LOCAL SJCOST,SJPRICE
1900 ^COI1CS 0000031B LENGTH 1 & LOCAL SJCPFLAG$
2000 ^COI1CS 0000031B LENGTH 3 & LOCAL SJSNBR$
2100 ^COI1CS 0000031B LENGTH 6 & LOCAL SJCNBR$,SJSPCID$
2200 ^COI1CS 0000031B LENGTH 9 & LOCAL SJORNBR1$,SJORNBR2$
2300 ^COI1CS 0000031B LENGTH 9 & LOCAL SJORNBR3$,SJORNBR4$
2400 ^COI1CS 0000031B LENGTH 9 & LOCAL SJORNBR5$,SJORNBR6$,SJNBR$
2500 ^COI1CS 0000031B LENGTH 10 & LOCAL SJDTDUE$,SJDTENT$,SJDTEXP$
2600 ^COI1CS 0000031B LENGTH 14 & LOCAL SJINBR$
2700 ^COI1CS 0000031B LENGTH 19 & LOCAL SJFREE$
2800 ^COI1CS 0000031B LENGTH 25 & LOCAL SJAPP$,SJLOC$,SJJOBNM$
2900 ^COI1CS 0000031B LENGTH 45 & LOCAL SJREQ1$,SJREQ2$
3000 ^COI1CS 0000031B LENGTH 50 & LOCAL SJNOTES1$,SJNOTES2$
3100 ^COI1CS 0000031B LENGTH 50 & LOCAL SJNOTES3$,SJNOTES4$
3200 ^COI1CS 0000031B LENGTH 50 & LOCAL SJNOTES5$
3300 ^COI1CS 0000031B LENGTH 60 & LOCAL SJEMAIL$
3400 ^COI1CS 0000031B LENGTH 89 & LOCAL SJFILL1$
3500 ^COI1CS 0000031B !
3600 ^COI1CS 0000031B !
3700 ^COI1CS 0000031B ! Description Type
3800 ^COI1CS 0000031B ! ---------------------------------
3900 ^COI1CS 0000031B 0228 FORMAT _
4000 ^COI1CS 0000031B SJNBR$;_ ! SPECIFIED JOB # S
4100 ^COI1CS 00000320 SJINBR$;_ ! ITEM NUMBER S
4200 ^COI1CS 00000325 SJSNBR$;_ ! SLS ID S
4300 ^COI1CS 0000032A SJSPCID$;_ ! SPECIFIER S
4400 ^COI1CS 0000032F SJJOBNM$;_ ! JOB NAME S
4500 ^COI1CS 00000334 SJLOC$;_ ! LOCATION S
4600 ^COI1CS 00000339 SJAPP$;_ ! APPLICATION S
4700 ^COI1CS 0000033E SJCNBR$;_ ! PURCHASER S
4800 ^COI1CS 00000343 SJFREE$;_ ! FREE SPACE S
4900 ^COI1CS 00000348 SJDTENT$;_ ! DATE ENTERED S
5000 ^COI1CS 0000034D SJDTDUE$;_ ! DATE DUE S
5100 ^COI1CS 00000352 SJESTQTY;_ ! ESTIMATED QTY N
5200 ^COI1CS 00000357 SJFQTY;_ ! FROM QTY N
5300 ^COI1CS 0000035C SJTQTY;_ ! TO QTY N
5400 ^COI1CS 00000361 SJCOST;_ ! COST/ UNIT N
5500 ^COI1CS 00000366 SJDUTY;_ ! DUTY/MISC COST N
5600 ^COI1CS 0000036B SJCOMPCT;_ ! COMM % N
5700 ^COI1CS 00000370 SJPRICE;_ ! UNIT PRICE N
5800 ^COI1CS 00000375 SJORNBR1$;_ ! ORDER # S
5900 ^COI1CS 0000037A SJREQ1$;_ ! SPECIAL REQUIREMENTS 1 S
6000 ^COI1CS 0000037F SJREQ2$;_ ! SPECIAL REQUIREMENTS 2 S
6100 ^COI1CS 00000384 SJNOTES1$;_ ! NOTES 1 S
6200 ^COI1CS 00000389 SJNOTES2$;_ ! NOTES 2 S
6300 ^COI1CS 0000038E SJNOTES3$;_ ! NOTES 3 S
6400 ^COI1CS 00000393 SJNOTES4$;_ ! NOTES 4 S
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 10
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
6500 ^COI1CS 00000398 SJNOTES5$;_ ! NOTES 5 S
6600 ^COI1CS 0000039D SJCPFLAG$;_ ! COMPLETE FLAG S
6700 ^COI1CS 000003A2 SJORNBR2$;_ ! ORDER # 2 S
6800 ^COI1CS 000003A7 SJORNBR3$;_ ! ORDER # 3 S
6900 ^COI1CS 000003AC SJORNBR4$;_ ! ORDER # 4 S
7000 ^COI1CS 000003B1 SJORNBR5$;_ ! ORDER # 5 S
7100 ^COI1CS 000003B6 SJORNBR6$;_ ! ORDER # 6 S
7200 ^COI1CS 000003BB SJDTEXP$;_ ! EXPIRATION DATE S
7300 ^COI1CS 000003C0 SJEMAIL$;_ ! REP EMAIL ADDRESS S
7400 ^COI1CS 000003C5 SJFILL1$ ! FILLER1 S
7500 ^COI1CS 000003CB !
7600 ^COI1CS 000003CB !===========================================================
5100 %WW-OE3 000003CB USE '^COI1P' !0215-P
100 ^COI1P 000003CB !
200 ^COI1P 000003CB !===========================> ^COI1P <====================
300 ^COI1P 000003CB !
400 ^COI1P 000003CB ! File Format & Length Declaratives
500 ^COI1P 000003CB !
600 ^COI1P 000003CB ! File Name: WWI1P PATTERN FILE
700 ^COI1P 000003CB !
800 ^COI1P 000003CB ! Type: K Record: 999 Key: 7 Image: N
900 ^COI1P 000003CB !
1000 ^COI1P 000003CB ! #FILES File Name: PATTERN.MASTER Date: 0
1100 ^COI1P 000003CB !
1200 ^COI1P 000003CB !-----------------------------------------------------------
1300 ^COI1P 000003CB !
1400 ^COI1P 000003CB !
1500 ^COI1P 000003CB LENGTH 2.0 & LOCAL IACTWTOZ,IPNMEMOS,IWGHTOZ
1600 ^COI1P 000003CB LENGTH 3.0 & LOCAL IBSIZE,IPLEAD
1700 ^COI1P 000003CB LENGTH 4.0 & LOCAL IACTWTLB,ICBP2,ICBP3
1800 ^COI1P 000003CB LENGTH 4.0 & LOCAL IMMINQTY,IPBP2,IPBP3
1900 ^COI1P 000003CB LENGTH 4.0 & LOCAL IWGHTLB
2000 ^COI1P 000003CB LENGTH 4.2 & LOCAL IDUTYPCT,IROYRTE
2100 ^COI1P 000003CB LENGTH 5.2 & LOCAL IESTFRT,IMPRICE
2200 ^COI1P 000003CB LENGTH 6.2 & LOCAL IPMSCCST
2300 ^COI1P 000003CB LENGTH 7.2 & LOCAL IPRICE1,IPRICE2,IPRICE3
2400 ^COI1P 000003CB LENGTH 7.4 & LOCAL IINVFACT,IPOFACT
2500 ^COI1P 000003CB LENGTH 9.2 & LOCAL IMCOST1,IMCOST2,IMCOST3
2600 ^COI1P 000003CB LENGTH 9.2 & LOCAL ISAMPCST
2700 ^COI1P 000003CB LENGTH 1 & LOCAL IPACTCL$,IPACTCWD$,IPACTFR$
2800 ^COI1P 000003CB LENGTH 1 & LOCAL IPACTGU$,IPACTHU$,IPACTPP$
2900 ^COI1P 000003CB LENGTH 1 & LOCAL IBCP$,IFRTCODE$,IISFLG$
3000 ^COI1P 000003CB LENGTH 1 & LOCAL IROYMETH$,ISMPCDE$,ISTKCFA$
3100 ^COI1P 000003CB LENGTH 2 & LOCAL IPCATCD$,IPCONCD$,IPDESCD$
3200 ^COI1P 000003CB LENGTH 2 & LOCAL IDESICDE$,IPMISCD$,IPL$
3300 ^COI1P 000003CB LENGTH 4 & LOCAL IPPRDFLG$
3400 ^COI1P 000003CB LENGTH 5 & LOCAL IFUNIT$,IMUNIT$,IUNIT$
3500 ^COI1P 000003CB LENGTH 5 & LOCAL IVNBR$
3600 ^COI1P 000003CB LENGTH 6 & LOCAL IPACCTNG$,ICURCDE$
3700 ^COI1P 000003CB LENGTH 7 & LOCAL IPATTERN$
3700 ^COI1P *****3CB Variable 'IPATTERN$ ' has been previously declared
3800 ^COI1P 000003CB LENGTH 10 & LOCAL IPCEDTE$,IPDISDT$,IDTEINT$
3900 ^COI1P 000003CB LENGTH 10 & LOCAL IPEDTE$,IREXPDTE$,IWIDTH$
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 11
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
4000 ^COI1P 000003CB LENGTH 14 & LOCAL IPBOOKID$,IGRINBR$
4100 ^COI1P 000003CB LENGTH 15 & LOCAL ICOUNTRY$,IFINISH$
4200 ^COI1P 000003CB LENGTH 20 & LOCAL IREPEAT$
4300 ^COI1P 000003CB LENGTH 30 & LOCAL IPATTNME$
4400 ^COI1P 000003CB LENGTH 40 & LOCAL ICONTNT1$,ICONTNT2$
4500 ^COI1P 000003CB LENGTH 40 & LOCAL ILABDSC1$,ILABDSC2$,ITEST1$
4600 ^COI1P 000003CB LENGTH 40 & LOCAL ITEST2$
4700 ^COI1P 000003CB LENGTH 50 & LOCAL ICOMNT1$,ICOMNT2$,ICOMNT3$
4800 ^COI1P 000003CB LENGTH 178 & LOCAL IFIL0215$
4900 ^COI1P 000003CB !
5000 ^COI1P 000003CB !
5100 ^COI1P 000003CB ! Description Type
5200 ^COI1P 000003CB ! ---------------------------------
5300 ^COI1P 000003CB 0215 FORMAT _
5400 ^COI1P 000003CB IPATTERN$;_ ! PATTERN NUMBER S
5500 ^COI1P 000003D0 IPATTNME$;_ ! PATTERN NAME S
5600 ^COI1P 000003D5 IWIDTH$;_ ! WIDTH S
5700 ^COI1P 000003DA IREPEAT$;_ ! REPEAT S
5800 ^COI1P 000003DF ICONTNT1$;_ ! CONTENT 1 S
5900 ^COI1P 000003E4 ICONTNT2$;_ ! CONTENT 2 S
6000 ^COI1P 000003E9 IFINISH$;_ ! FINISH S
6100 ^COI1P 000003EE ICOUNTRY$;_ ! COUNTRY OF ORIGIN S
6200 ^COI1P 000003F3 IVNBR$;_ ! VENDOR CODE S
6300 ^COI1P 000003F8 IPLEAD;_ ! LEAD TIME N
6400 ^COI1P 000003FD IWGHTLB;_ ! WEIGHT POUNDS N
6500 ^COI1P 00000402 IWGHTOZ;_ ! WEIGHT OUNCES N
6600 ^COI1P 00000407 ILABDSC1$;_ ! LABEL DESCRIPTION 1 S
6700 ^COI1P 0000040C ILABDSC2$;_ ! LABEL DESCRIPTION 2 S
6800 ^COI1P 00000411 ITEST1$;_ ! TEST 1 S
6900 ^COI1P 00000416 ITEST2$;_ ! TEST 2 S
7000 ^COI1P 0000041B IPL$;_ ! PRODUCT LINE S
7100 ^COI1P 00000420 IDTEINT$;_ ! INTRODUCTION DATE S
7200 ^COI1P 00000425 ICOMNT1$;_ ! COMMENT 1 S
7300 ^COI1P 0000042A ICOMNT2$;_ ! COMMENT 2 S
7400 ^COI1P 0000042F ICOMNT3$;_ ! COMMENT 3 S
7500 ^COI1P 00000434 IUNIT$;_ ! UNIT OF MEASURE S
7600 ^COI1P 00000439 IPRICE1;_ ! PRICE 1 N
7700 ^COI1P 0000043E IPRICE2;_ ! PRICE 2 N
7800 ^COI1P 00000443 IPRICE3;_ ! PRICE 3 N
7900 ^COI1P 00000448 IPEDTE$;_ ! PRICE EFFECTIVE DTE S
8000 ^COI1P 0000044D IPBP2;_ ! PRICE BREAK POINT 2 N
8100 ^COI1P 00000452 IPBP3;_ ! PRICE BREAK POINT 3 N
8200 ^COI1P 00000457 IBSIZE;_ ! STANDARD BOLT SIZE N
8300 ^COI1P 0000045C ISMPCDE$;_ ! SAMPLE CODE S
8400 ^COI1P 00000461 IROYRTE;_ ! ROYALTY RATE N
8500 ^COI1P 00000466 IREXPDTE$;_ ! ROY ALTY EXP DATE S
8600 ^COI1P 0000046B IROYMETH$;_ ! ROYALTY METHOD S
8700 ^COI1P 00000470 IMUNIT$;_ ! MILLS UNIT OF MEAS S
8800 ^COI1P 00000475 IPOFACT;_ ! PO FACTOR N
8900 ^COI1P 0000047A IMMINQTY;_ ! MILLS MINIMUM ORDER N
9000 ^COI1P 0000047F IMCOST1;_ ! MILLS COST 1 N
9100 ^COI1P 00000484 IMCOST2;_ ! MILLS COST 2 N
9200 ^COI1P 00000489 IMCOST3;_ ! MILLS COST 3 N
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 12
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
9300 ^COI1P 0000048E IPCEDTE$;_ ! COST EFFECTIVE DATE S
9400 ^COI1P 00000493 ICBP2;_ ! COST BREAK POINT 2 N
9500 ^COI1P 00000498 ICBP3;_ ! COST BREAK POINT 3 N
9600 ^COI1P 0000049D IBCP$;_ ! BASE COST POINT S
9700 ^COI1P 000004A2 IPDISDT$;_ ! DISCONTINUE DATE S
9800 ^COI1P 000004A7 ICURCDE$;_ ! CURRENCY CODE S
9900 ^COI1P 000004AC IMPRICE;_ ! MEMO SAMPLE PRICE N
10000 ^COI1P 000004B1 IDUTYPCT;_ ! DUTY PERCENT N
10100 ^COI1P 000004B6 IESTFRT;_ ! ESTIMATED FRT N
10200 ^COI1P 000004BB IISFLG$;_ ! SER VICE FLAG S
10300 ^COI1P 000004C0 IPMSCCST;_ ! MISC COST N
10400 ^COI1P 000004C5 IACTWTLB;_ ! ACTUAL WT POUNDS N
10500 ^COI1P 000004CA IACTWTOZ;_ ! ACTUAL WT OUNCES N
10600 ^COI1P 000004CF IINVFACT;_ ! INV FACTOR N
10700 ^COI1P 000004D4 IFUNIT$;_ ! FOREIGN UNITS S
10800 ^COI1P 000004D9 ISTKCFA$;_ ! STOCK CUTTINGS FLAG S
10900 ^COI1P 000004DE IDESICDE$;_ ! DESIGNER CODE S
11000 ^COI1P 000004E3 IPNMEMOS;_ ! NUM MEM SAMP N
11100 ^COI1P 000004E8 IFRTCODE$;_ ! FREIGHT CODE S
11200 ^COI1P 000004ED ISAMPCST;_ ! SAMPLE COST N
11300 ^COI1P 000004F2 IPACCTNG$;_ ! ACCOUNTING CODE S
11400 ^COI1P 000004F7 IPBOOKID$;_ ! BOOK ID S
11500 ^COI1P 000004FC IPCATCD$;_ ! CATEGORY CODE S
11600 ^COI1P 00000501 IPDESCD$;_ ! DESIGN CODE S
11700 ^COI1P 00000506 IPCONCD$;_ ! CONTENT CODE S
11800 ^COI1P 0000050B IPMISCD$;_ ! MISC CODE S
11900 ^COI1P 00000510 IPPRDFLG$;_ ! PRODUCT FLAG S
12000 ^COI1P 00000515 IPACTFR$;_ ! ACT CODE FR S
12100 ^COI1P 0000051A IPACTCWD$;_ ! ACT CODE CWD S
12200 ^COI1P 0000051F IPACTCL$;_ ! ACT CODE CL S
12300 ^COI1P 00000524 IPACTPP$;_ ! ACT CODE PP S
12400 ^COI1P 00000529 IPACTGU$;_ ! ACT CODE GU S
12500 ^COI1P 0000052E IPACTHU$;_ ! ACT CODE HU S
12600 ^COI1P 00000533 IGRINBR$;_ ! GROUND ITEM NO S
12700 ^COI1P 00000538 IFIL0215$ ! FILLER S
12800 ^COI1P 0000053E !
12900 ^COI1P 0000053E !===========================================================
5120 %WW-OE3 0000053E USE '^COPM' !0089-P
1000 ^COPM 0000053E !
1100 ^COPM 0000053E !************************* [WWPM **********************
1200 ^COPM 0000053E !
1300 ^COPM 0000053E ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWPM TYPE: K
1400 ^COPM 0000053E !
1500 ^COPM 0000053E ! PASSWORD MASTER REC SIZ
1600 ^COPM 0000053E ! KEY SIZ
1700 ^COPM 0000053E !
1800 ^COPM 0000053E ! #FILE NAME: PASSWORD.MASTER DATE:
1900 ^COPM 0000053E !
1910 ^COPM 0000053E ! BY: CRITERION DESIGN & PROGRAMMING LTD.
1920 ^COPM 0000053E !
2000 ^COPM 0000053E !***********************************************************
2100 ^COPM 0000053E !
2200 ^COPM 0000053E ! FILE STATEMENT
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 13
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2300 ^COPM 0000053E !
2400 ^COPM 0000053E !!!!FILE 'WWPM', 16
2500 ^COPM 0000053E !
2600 ^COPM 0000053E ! VARIABLE DECLARATIONS:
2700 ^COPM 0000053E !
2800 ^COPM 0000053E LENGTH 6 & LOCAL PASSWD$
2900 ^COPM 0000053E LENGTH 8 & LOCAL PROG$
3000 ^COPM 0000053E !
3100 ^COPM 0000053E ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH
3200 ^COPM 0000053E !
3300 ^COPM 0000053E 0089 FORMAT _
3400 ^COPM 0000053E PROG$;_ ! PROGRAM NAME S 8
3500 ^COPM 00000543 PASSWD$ ! PASSWORD S 6
3600 ^COPM 00000549 !
3700 ^COPM 00000549 !***********************************************************
5140 %WW-OE3 00000549 USE '^COO1A' !0060-O
100 ^COO1A 00000549 !
200 ^COO1A 00000549 !===========================> ^COO1A <====================
300 ^COO1A 00000549 !
400 ^COO1A 00000549 ! File Format & Length Declaratives
500 ^COO1A 00000549 !
600 ^COO1A 00000549 ! File Name: WWO1A OPEN ORDER HEADER
700 ^COO1A 00000549 !
800 ^COO1A 00000549 ! Type: K Record: 999 Key: 9 Image: N
900 ^COO1A 00000549 !
1000 ^COO1A 00000549 ! #FILES File Name: ORDER.OPEN.H Date: 0
1100 ^COO1A 00000549 !
1200 ^COO1A 00000549 !-----------------------------------------------------------
1300 ^COO1A 00000549 !
1400 ^COO1A 00000549 !
1500 ^COO1A 00000549 LENGTH 2.0 & LOCAL OHNDPCT
1600 ^COO1A 00000549 LENGTH 3.0 & LOCAL OPKGS,OPCT,OWGHT
1700 ^COO1A 00000549 LENGTH 4.2 & LOCAL ODISCPCT,OPCKCHG,OTAXPCT
1800 ^COO1A 00000549 LENGTH 6.2 & LOCAL OFRT,OHANDAMT
1900 ^COO1A 00000549 LENGTH 6.4 & LOCAL OTAXPCL
2000 ^COO1A 00000549 LENGTH 7.2 & LOCAL ODEPOSIT,ODISCAMT,OMISC1
2100 ^COO1A 00000549 LENGTH 7.2 & LOCAL OUNITS,OTAXAMT
2200 ^COO1A 00000549 LENGTH 8.2 & LOCAL OCOMMRME,OCOMMPD1,OCOMMPD2
2300 ^COO1A 00000549 LENGTH 8.2 & LOCAL OCOMPAID
2400 ^COO1A 00000549 LENGTH 9.2 & LOCAL OCOST,OCRPAYREQ,ODEPOSIL
2500 ^COO1A 00000549 LENGTH 9.2 & LOCAL ODISCAML,OHOLDAMT,OGROSS
2600 ^COO1A 00000549 LENGTH 9.2 & LOCAL OMISC,ONET,OTXBASIS
2700 ^COO1A 00000549 LENGTH 1 & LOCAL OCFAFLG$,OCFASTK$,OCLRCD1$
2800 ^COO1A 00000549 LENGTH 1 & LOCAL OCLRCD2$,OCAFLGH$,OCOMMRES$
2900 ^COO1A 00000549 LENGTH 1 & LOCAL OCRDSC$,OCRLIM$,OCRMSC$
3000 ^COO1A 00000549 LENGTH 1 & LOCAL OCRPST$,OCRPAY$,OCRSLE$
3100 ^COO1A 00000549 LENGTH 1 & LOCAL OCUTYRD$,OCUTARVD$,ODSCFLG$
3200 ^COO1A 00000549 LENGTH 1 & LOCAL OEMLFI$,OEMLOPA$,OEMLSA$
3300 ^COO1A 00000549 LENGTH 1 & LOCAL OFRFLAG$,OFOFLG$,OFRTCODE$
3400 ^COO1A 00000549 LENGTH 1 & LOCAL OFURNOP$,OFURNOPA$
3500 ^COO1A 00000549 LENGTH 1 & LOCAL OIBMFLAG$,OLATE$,OMILLSTK$
3600 ^COO1A 00000549 LENGTH 1 & LOCAL ONEWORD$,OORIGCFA$,OPUFLG$
3700 ^COO1A 00000549 LENGTH 1 & LOCAL OPROFLG$,OREPRNT$,ORESFLG$
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:51 Page 14
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
3800 ^COO1A 00000549 LENGTH 1 & LOCAL ORETURN$,ORUSHOMO$,ORUSHOP$
3900 ^COO1A 00000549 LENGTH 1 & LOCAL OSAMPFLG$,OPKGSAMP$
4000 ^COO1A 00000549 LENGTH 1 & LOCAL OSTATUS$,OXMLFLAG$
4100 ^COO1A 00000549 LENGTH 2 & LOCAL OBTCNTRY$,OCANCEL$
4200 ^COO1A 00000549 LENGTH 2 & LOCAL OINNOFLG$,OSLSTYP$,OSTATE$
4300 ^COO1A 00000549 LENGTH 2 & LOCAL OSTCNTRY$,OTERMCDE$,CUPS$
4400 ^COO1A 00000549 LENGTH 3 & LOCAL OBOFLAG$,OEMLSEQ1$
4500 ^COO1A 00000549 LENGTH 3 & LOCAL OEMLSEQ2$,OEMLSEQ3$,OHOLD1$
4600 ^COO1A 00000549 LENGTH 3 & LOCAL OHOLD2$,OLRFROM$,OMSGCD1$
4700 ^COO1A 00000549 LENGTH 3 & LOCAL OMSGCD2$,OINIT$,OINITL$
4800 ^COO1A 00000549 LENGTH 3 & LOCAL OINITR$,OEMLREP$,OSNBR1$
4900 ^COO1A 00000549 LENGTH 3 & LOCAL OSNBR2$
5000 ^COO1A 00000549 LENGTH 4 & LOCAL OEOFLAG$,OPTDATE$
5100 ^COO1A 00000549 LENGTH 5 & LOCAL OCYVEND$
5200 ^COO1A 00000549 LENGTH 6 & LOCAL OBILLPER$,OCOMMPER$,CNBR$
5300 ^COO1A 00000549 LENGTH 6 & LOCAL OAPCP1$,OAPCP2$,OFAPCR$
5400 ^COO1A 00000549 LENGTH 6 & LOCAL OFINNBR$,OOMORFLG$,OSPNBR$
5500 ^COO1A 00000549 LENGTH 8 & LOCAL OOCSRTDT$,OOCSRTTM$
5600 ^COO1A 00000549 LENGTH 9 & LOCAL INVCNBR$,ORNBR$
5600 ^COO1A *****549 Variable 'ORNBR$ ' has been previously declared
5700 ^COO1A 00000549 LENGTH 10 & LOCAL OBORELDT$,OCOMPDTE$,ODEPDT$
5800 ^COO1A 00000549 LENGTH 10 & LOCAL OFREE10$,OINVDTE$,OLRELDT$
5900 ^COO1A 00000549 LENGTH 10 & LOCAL ORDATE$,ORESCDTE$,OSHIPDTE$
6000 ^COO1A 00000549 LENGTH 10 & LOCAL OZIP$
6100 ^COO1A 00000549 LENGTH 15 & LOCAL OCORNBR$,OFOB$,OFRTTRM$
6200 ^COO1A 00000549 LENGTH 15 & LOCAL OGUARBY$,ORORNBR$,OSHIPVIA$
6300 ^COO1A 00000549 LENGTH 18 & LOCAL OCLIENT$
6400 ^COO1A 00000549 LENGTH 21 & LOCAL OCITY$
6500 ^COO1A 00000549 LENGTH 35 & LOCAL OBATTN$,OATTN$,OADR1$
6600 ^COO1A 00000549 LENGTH 35 & LOCAL OADR2$,ONAME$,OSM1$,OSM2$
6700 ^COO1A 00000549 LENGTH 79 & LOCAL OFIL0060$
6800 ^COO1A 00000549 !
6900 ^COO1A 00000549 !
7000 ^COO1A 00000549 ! Description Type
7100 ^COO1A 00000549 ! ---------------------------------
7200 ^COO1A 00000549 0060 FORMAT _
7300 ^COO1A 00000549 ORNBR$;_ ! ORDER # S
7400 ^COO1A 0000054E CNBR$;_ ! CUST # S
7500 ^COO1A 00000553 OBATTN$;_ ! BILL TO ATTENTION S
7600 ^COO1A 00000558 ONAME$;_ ! SHIP TO NAME S
7700 ^COO1A 0000055D OADR1$;_ ! SHIP TO ADDRESS 1 S
7800 ^COO1A 00000562 OADR2$;_ ! SHIP TO ADDRESS 2 S
7900 ^COO1A 00000567 OCITY$;_ ! SHIP TO CITY S
8000 ^COO1A 0000056C OSTATE$;_ ! SHIP ST S
8100 ^COO1A 00000571 OZIP$;_ ! SHIP TO ZIP CODE S
8200 ^COO1A 00000576 OATTN$;_ ! SHIP ATTENTION S
8300 ^COO1A 0000057B OSM1$;_ ! SIDE MARK S
8400 ^COO1A 00000580 OSM2$;_ ! SIDE MARK S
8500 ^COO1A 00000585 OCFAFLG$;_ ! CFA FLG S
8600 ^COO1A 0000058A ORESFLG$;_ ! RES FLG S
8700 ^COO1A 0000058F OSHIPVIA$;_ ! SHIP VIA S
8800 ^COO1A 00000594 OCORNBR$;_ ! CUSTOMER ORDER NUMBER S
8900 ^COO1A 00000599 ORORNBR$;_ ! REP ORDER NUMBER S
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 15
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
9000 ^COO1A 0000059E OHOLD1$;_ ! HLD FLG1 S
9100 ^COO1A 000005A3 OHOLDAMT;_ ! HOLD FOR AMOUNT N
9200 ^COO1A 000005A8 OHOLD2$;_ ! HLD FLG2 S
9300 ^COO1A 000005AD OFRTTRM$;_ ! FREIGHT TERMS S
9400 ^COO1A 000005B2 OFREE10$;_ ! FREE 10 S
9500 ^COO1A 000005B7 OCLIENT$;_ ! CLIENT S
9600 ^COO1A 000005BC ODEPOSIT;_ ! DEPOSIT N
9700 ^COO1A 000005C1 ODISCPCT;_ ! DISC PCT N
9800 ^COO1A 000005C6 ODSCFLG$;_ ! D F S
9900 ^COO1A 000005CB OPROFLG$;_ ! PRO FLG S
10000 ^COO1A 000005D0 OTERMCDE$;_ ! TRMS CDE S
10100 ^COO1A 000005D5 OGUARBY$;_ ! GUARANTEED BY S
10200 ^COO1A 000005DA ORDATE$;_ ! ORDER DATE S
10300 ^COO1A 000005DF OSPNBR$;_ ! SPECIFIER NUMBER S
10400 ^COO1A 000005E4 OFINNBR$;_ ! FINISHER S
10500 ^COO1A 000005E9 OBORELDT$;_ ! BACK ORDER REL DATE S
10600 ^COO1A 000005EE OLRELDT$;_ ! LAST RELEASE DATE S
10700 ^COO1A 000005F3 OLRFROM$;_ ! LAST REL FROM S
10800 ^COO1A 000005F8 OINIT$;_ ! OPERATOR ENTER ORDR S
10900 ^COO1A 000005FD OINITR$;_ ! OPER LAST RELEASE S
11000 ^COO1A 00000602 OINITL$;_ ! OPER LAST MAINTAIN S
11100 ^COO1A 00000607 OBOFLAG$;_ ! BACK ORDER FLAG S
11200 ^COO1A 0000060C OGROSS;_ ! MATERIAL AMOUNT N
11300 ^COO1A 00000611 ODISCAMT;_ ! DISCOUNT AMOUNT N
11400 ^COO1A 00000616 OMISC;_ ! MISCEL- LANEOUS N
11500 ^COO1A 0000061B OMISC1;_ ! MISCEL- LANEOUS1 N
11600 ^COO1A 00000620 OPKGS;_ ! # OF PCK N
11700 ^COO1A 00000625 OWGHT;_ ! WGHT N
11800 ^COO1A 0000062A OFRT;_ ! FREIGHT N
11900 ^COO1A 0000062F OTAXPCT;_ ! TAX PCT N
12000 ^COO1A 00000634 OTAXAMT;_ ! TAX AMOUNT N
12100 ^COO1A 00000639 ONET;_ ! NET N
12200 ^COO1A 0000063E INVCNBR$;_ ! INVOICE NUMBER S
12300 ^COO1A 00000643 OINVDTE$;_ ! INVOICE DATE S
12400 ^COO1A 00000648 OSHIPDTE$;_ ! SHIP DATE S
12500 ^COO1A 0000064D CUPS$;_ ! ZONE S
12600 ^COO1A 00000652 OCOST;_ ! COST OF ORDER N
12700 ^COO1A 00000657 OUNITS;_ ! ORDER UNITS N
12800 ^COO1A 0000065C OPCKCHG;_ ! PACK CHG N
12900 ^COO1A 00000661 OHNDPCT;_ ! HAND PCT N
13000 ^COO1A 00000666 OHANDAMT;_ ! HANDLING AMOUNT N
13100 ^COO1A 0000066B OSNBR1$;_ ! SALES REP 1 S
13200 ^COO1A 00000670 OSNBR2$;_ ! SALES REP 2 S
13300 ^COO1A 00000675 OPCT;_ ! PCT OF SALE TO REP1 N
13400 ^COO1A 0000067A OCRPAYREQ;_ ! PAY FOR CREDIT REAL N
13500 ^COO1A 0000067F OCRSLE$;_ ! CREDIT SALE S
13600 ^COO1A 00000684 OCRPST$;_ ! CREDIT PAST S
13700 ^COO1A 00000689 OCRLIM$;_ ! CREDIT LIMIT S
13800 ^COO1A 0000068E OCRDSC$;_ ! CREDIT DISCOUNT S
13900 ^COO1A 00000693 OCRPAY$;_ ! CREDIT PAYMENT S
14000 ^COO1A 00000698 OCRMSC$;_ ! CREDIT MISC S
14100 ^COO1A 0000069D OSTATUS$;_ ! DELETE CONFIRMED S
14200 ^COO1A 000006A2 ONEWORD$;_ ! NEW ORDER FLAG S
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 16
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
14300 ^COO1A 000006A7 OREPRNT$;_ ! REPRINT FLAG S
14400 ^COO1A 000006AC OLATE$;_ ! LATE CODE S
14500 ^COO1A 000006B1 OFRFLAG$;_ ! FAX RPT FLG S
14600 ^COO1A 000006B6 OMILLSTK$;_ ! MILL STK FLG S
14700 ^COO1A 000006BB OCUTYRD$;_ ! CUT YARDAGE ORDER S
14800 ^COO1A 000006C0 OPUFLG$;_ ! PER USE FLG S
14900 ^COO1A 000006C5 OFOFLG$;_ ! 1ST ORD FLG S
15000 ^COO1A 000006CA ORETURN$;_ ! RETURN CODE S
15100 ^COO1A 000006CF OSAMPFLG$;_ ! SAMPLE FLAG S
15200 ^COO1A 000006D4 OCANCEL$;_ ! ORDER CANCEL REASON S
15300 ^COO1A 000006D9 OBILLPER$;_ ! BILL PER. S
15400 ^COO1A 000006DE OCOMMPER$;_ ! COMM PERIOD S
15500 ^COO1A 000006E3 OPTDATE$;_ ! PICK TICK DATE S
15600 ^COO1A 000006E8 OEOFLAG$;_ ! ELIG ORD FLAG S
15700 ^COO1A 000006ED ORESCDTE$;_ ! RESERVE CANCEL DATE S
15800 ^COO1A 000006F2 OFOB$;_ ! FOB S
15900 ^COO1A 000006F7 OCAFLGH$;_ ! COMM ADJ FLG HDR S
16000 ^COO1A 000006FC OPKGSAMP$;_ ! SAMPLE PKG FLG S
16100 ^COO1A 00000701 OTXBASIS;_ ! TAXABLE BASIS N
16200 ^COO1A 00000706 OORIGCFA$;_ ! ORIGINAL CFA FLAG S
16300 ^COO1A 0000070B OSLSTYP$;_ ! SALES TYPE S
16400 ^COO1A 00000710 ODEPDT$;_ ! DEPOSIT DATE S
16500 ^COO1A 00000715 OCYVEND$;_ ! CUT YARDAGE VENDOR # S
16600 ^COO1A 0000071A OCUTARVD$;_ ! CUTTING ARRIVED FLAG S
16700 ^COO1A 0000071F OCFASTK$;_ ! CFA FROM STOCK S
16800 ^COO1A 00000724 OOCSRTDT$;_ ! OC SORT DATE S
16900 ^COO1A 00000729 OOCSRTTM$;_ ! OC SORT TIME S
17000 ^COO1A 0000072E OOMORFLG$;_ ! OMOR FLAG S
17100 ^COO1A 00000733 OCOMPDTE$;_ ! COMM PAID DATE S
17200 ^COO1A 00000738 OCOMPAID;_ ! COMM PAID AMT N
17300 ^COO1A 0000073D OFAPCR$;_ ! FAP COMM RECORDED S
17400 ^COO1A 00000742 OAPCP1$;_ ! FAP COMM PAID 1 S
17500 ^COO1A 00000747 OCOMMPD1;_ ! AMT COMM PAID 1 N
17600 ^COO1A 0000074C OAPCP2$;_ ! FAP COMM PAID 2 S
17700 ^COO1A 00000751 OCOMMPD2;_ ! AMT COMM PAID 2 N
17800 ^COO1A 00000756 OCOMMRME;_ ! AMT COMM MONTH END N
17900 ^COO1A 0000075B OFRTCODE$;_ ! FREIGHT CODE S
18000 ^COO1A 00000760 OFURNOP$;_ ! FURN OP FLAG S
18100 ^COO1A 00000765 OXMLFLAG$;_ ! XML FLAG S
18200 ^COO1A 0000076A OMSGCD1$;_ ! MSG CD 1 S
18300 ^COO1A 0000076F OMSGCD2$;_ ! MSG CD 2 S
18400 ^COO1A 00000774 OCLRCD1$;_ ! CLEAR CD 1 S
18500 ^COO1A 00000779 OCLRCD2$;_ ! CLEAR CD 2 S
18600 ^COO1A 0000077E OFURNOPA$;_ ! FURN OPA FLAG S
18700 ^COO1A 00000783 OIBMFLAG$;_ ! INVOICED BY MILL FLAG S
18800 ^COO1A 00000788 OBTCNTRY$;_ ! BILL-TO COUNTRY CD S
18900 ^COO1A 0000078D OSTCNTRY$;_ ! SHIP-TO COUNTRY CD S
19000 ^COO1A 00000792 OCOMMRES$;_ ! COMMERCIAL/RESIDENTIAL S
19100 ^COO1A 00000797 ORUSHOMO$;_ ! RUSH ORDER OMOX FLAG S
19200 ^COO1A 0000079C ORUSHOP$;_ ! RUSH ORDER OP FLAG S
19300 ^COO1A 000007A1 OEMLSEQ1$;_ ! EMAIL SEQ # 1 S
19400 ^COO1A 000007A6 OEMLSEQ2$;_ ! EMAIL SEQ # 2 S
19500 ^COO1A 000007AB OEMLSEQ3$;_ ! EMAIL SEQ # 3 S
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 17
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
19600 ^COO1A 000007B0 OEMLOPA$;_ ! EMAIL OPA FLAG S
19700 ^COO1A 000007B5 OEMLSA$;_ ! EMAIL SHIP ACK FLAG S
19800 ^COO1A 000007BA OEMLFI$;_ ! EMAIL FINAL INVC FLAG S
19900 ^COO1A 000007BF OINNOFLG$;_ ! INNOVATIONS ORDER FLAG S
20000 ^COO1A 000007C4 OEMLREP$;_ ! REP EMAIL SEQ # S
20100 ^COO1A 000007C9 ODEPOSIL;_ ! DEPOSIT AMT (LONG) N
20200 ^COO1A 000007CE ODISCAML;_ ! DISCOUNT AMT (LONG) N
20300 ^COO1A 000007D3 OTAXPCL;_ ! TAX PCT (LONG) N
20400 ^COO1A 000007D8 OFIL0060$ ! FILLER 0060 S
20500 ^COO1A 000007DE !
20600 ^COO1A 000007DE !===========================================================
5160 %WW-OE3 000007DE USE '^COQ1' !0095-P
100 ^COQ1 000007DE !
200 ^COQ1 000007DE !===========================> ^COQ1 <=====================
300 ^COQ1 000007DE !
400 ^COQ1 000007DE ! File Format & Length Declaratives
500 ^COQ1 000007DE !
600 ^COQ1 000007DE ! File Name: WWQ1 MILL PURCHASE ORDER DETAIL (L
700 ^COQ1 000007DE !
800 ^COQ1 000007DE ! Type: K Record: 378 Key: 12 Image: N
900 ^COQ1 000007DE !
1000 ^COQ1 000007DE ! #FILES File Name: P.O.MILL.D Date: 0
1100 ^COQ1 000007DE !
1200 ^COQ1 000007DE !-----------------------------------------------------------
1300 ^COQ1 000007DE !
1400 ^COQ1 000007DE !
1500 ^COQ1 000007DE LENGTH 6.2 & LOCAL QDUTYCST,QESTFRT,QQTYMRCV
1600 ^COQ1 000007DE LENGTH 6.2 & LOCAL QMSCCST,QORIGQTY,QQTYORD
1700 ^COQ1 000007DE LENGTH 6.2 & LOCAL QPOQTY,QQTYAL,QQTYBOD
1800 ^COQ1 000007DE LENGTH 6.2 & LOCAL QQTYINV,QQTYRCV
1900 ^COQ1 000007DE LENGTH 7.2 & LOCAL QCOST
2000 ^COQ1 000007DE LENGTH 9.2 & LOCAL QEXT,QPCOST
2100 ^COQ1 000007DE LENGTH 11.2 & LOCAL QPEXT
2200 ^COQ1 000007DE LENGTH 1 & LOCAL QAPBILLD$,QINVCE$,XSTATUS$
2300 ^COQ1 000007DE LENGTH 3 & LOCAL QLINE$,QWHSEQ1$
2400 ^COQ1 000007DE LENGTH 5 & LOCAL QPOUNIT$
2500 ^COQ1 000007DE LENGTH 6 & LOCAL QLOTNBR$,QSEQ$
2600 ^COQ1 000007DE LENGTH 8 & LOCAL QSTATUS$
2700 ^COQ1 000007DE LENGTH 9 & LOCAL QORNBR$
2800 ^COQ1 000007DE LENGTH 10 & LOCAL QDTERCVD$,QINVDTE$,QMOSDTE$
2900 ^COQ1 000007DE LENGTH 10 & LOCAL QMSHPDTE$,QOSHPDTE$
3000 ^COQ1 000007DE LENGTH 10 & LOCAL QORDATE$
3100 ^COQ1 000007DE LENGTH 14 & LOCAL QINBR$
3200 ^COQ1 000007DE LENGTH 50 & LOCAL QCMNT$
3300 ^COQ1 000007DE LENGTH 79 & LOCAL QFIL0095$
3400 ^COQ1 000007DE !
3500 ^COQ1 000007DE !
3600 ^COQ1 000007DE ! Description Type
3700 ^COQ1 000007DE ! ---------------------------------
3800 ^COQ1 000007DE 0095 FORMAT _
3900 ^COQ1 000007DE QORNBR$;_ ! P.O. # S
4000 ^COQ1 000007E3 QLINE$;_ ! LINE # S
4100 ^COQ1 000007E8 QINBR$;_ ! ITEM # S
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 18
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
4200 ^COQ1 000007ED QORDATE$;_ ! ORDER DATE S
4300 ^COQ1 000007F2 QPOQTY;_ ! P.O. QTY ORDERED N
4400 ^COQ1 000007F7 QPOUNIT$;_ ! P.O. UNIT MEASURE S
4500 ^COQ1 000007FC QPCOST;_ ! P.O COST N
4600 ^COQ1 00000801 QPEXT;_ ! P.O. EXTENSION N 1
4700 ^COQ1 00000806 QMOSDTE$;_ ! MILLS ORIG SHIP DATE S
4800 ^COQ1 0000080B QMSHPDTE$;_ ! MILL SHIP DATE S
4900 ^COQ1 00000810 QOSHPDTE$;_ ! OUR SHIP DATE S
5000 ^COQ1 00000815 QDTERCVD$;_ ! DATE RECEIVED S
5100 ^COQ1 0000081A XSTATUS$;_ ! STATUS S
5200 ^COQ1 0000081F QCMNT$;_ ! COMMENT S
5300 ^COQ1 00000824 QINVCE$;_ ! INV FLG S
5400 ^COQ1 00000829 QQTYORD;_ ! QTY ORDERED N
5500 ^COQ1 0000082E QQTYAL;_ ! QTY ALLOCATED TO SALES N
5600 ^COQ1 00000833 QQTYRCV;_ ! QTY RCVD N
5700 ^COQ1 00000838 QQTYBOD;_ ! QTY BCKORD N
5800 ^COQ1 0000083D QQTYINV;_ ! QTY INVOICED FROM MILL N
5900 ^COQ1 00000842 QORIGQTY;_ ! ORIGINAL QTY ORDERE N
6000 ^COQ1 00000847 QCOST;_ ! UNIT COST DOLLARS N
6100 ^COQ1 0000084C QEXT;_ ! EXTENSION DOLLARS N
6200 ^COQ1 00000851 QDUTYCST;_ ! DUTY COST N
6300 ^COQ1 00000856 QESTFRT;_ ! ESTIMATED FREIGHT N
6400 ^COQ1 0000085B QMSCCST;_ ! MSC COST N
6500 ^COQ1 00000860 QINVDTE$;_ ! INVOICE DATE S
6600 ^COQ1 00000865 QAPBILLD$;_ ! A.P. BILL FLAG S
6700 ^COQ1 0000086A QSEQ$;_ ! SEQUENCE S
6800 ^COQ1 0000086F QWHSEQ1$;_ ! WHSE S
6900 ^COQ1 00000874 QQTYMRCV;_ ! QTY RECVD MILL UNITS N
7000 ^COQ1 00000879 QSTATUS$;_ ! CONF # S
7100 ^COQ1 0000087E QLOTNBR$;_ ! RUN # S
7200 ^COQ1 00000883 QFIL0095$ ! FILLER S
7300 ^COQ1 00000889 !
7400 ^COQ1 00000889 !===========================================================
5180 %WW-OE3 00000889 USE '^COS1P' !0408-R
1000 ^COS1P 00000889 !
1100 ^COS1P 00000889 !************************* [WWS1P **********************
1200 ^COS1P 00000889 !
1300 ^COS1P 00000889 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWS1P TYPE: K
1400 ^COS1P 00000889 !
1500 ^COS1P 00000889 ! REP PRODUCT LINE REC SIZ
1600 ^COS1P 00000889 ! KEY SIZ
1700 ^COS1P 00000889 !
1800 ^COS1P 00000889 ! #FILE NAME: REP.PRODUCT.LIN DATE:
1900 ^COS1P 00000889 !
1910 ^COS1P 00000889 ! BY: CRITERION DESIGN & PROGRAMMING LTD.
1920 ^COS1P 00000889 !
2000 ^COS1P 00000889 !***********************************************************
2100 ^COS1P 00000889 !
2200 ^COS1P 00000889 ! FILE STATEMENT
2300 ^COS1P 00000889 !
2400 ^COS1P 00000889 !!!!FILE 'WWS1P', 94
2500 ^COS1P 00000889 !
2600 ^COS1P 00000889 ! VARIABLE DECLARATIONS:
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 19
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2700 ^COS1P 00000889 !
2800 ^COS1P 00000889 LENGTH 4.2 & LOCAL SPRCOMM
2900 ^COS1P 00000889 LENGTH 7.0 & LOCAL SPROJSLS
3000 ^COS1P 00000889 LENGTH 9.2 & LOCAL SSMTDSPL,SSPR1SPL,SSPR2SPL
3100 ^COS1P 00000889 LENGTH 9.2 & LOCAL SSPR3SPL,SSYTDSPL
3200 ^COS1P 00000889 LENGTH 1 & LOCAL SCOMMFLG$
3300 ^COS1P 00000889 LENGTH 2 & LOCAL SPRLINE$
3400 ^COS1P 00000889 LENGTH 3 & LOCAL SNBR$
3500 ^COS1P 00000889 !
3600 ^COS1P 00000889 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH
3700 ^COS1P 00000889 !
3800 ^COS1P 00000889 0402 FORMAT _
3900 ^COS1P 00000889 SNBR$;_ ! REP ID S 3
4000 ^COS1P 0000088E SPRLINE$;_ ! PROD LINE S 2
4100 ^COS1P 00000893 SPRCOMM;_ ! COMM PROD LINE N 4.2
4200 ^COS1P 00000898 SCOMMFLG$;_ ! ZERO COMM FLAG S 1
4300 ^COS1P 0000089D SPROJSLS;_ ! PROJECTED SALES N 7.0
4400 ^COS1P 000008A2 SSMTDSPL;_ ! SALES MTD N 9.2
4500 ^COS1P 000008A7 SSYTDSPL;_ ! SALES YTD N 9.2
4600 ^COS1P 000008AC SSPR1SPL;_ ! SALES PRV1 N 9.2
4700 ^COS1P 000008B1 SSPR2SPL;_ ! SALES PRV2 N 9.2
4800 ^COS1P 000008B6 SSPR3SPL ! SALES PRV3 N 9.2
4900 ^COS1P 000008BC !
5000 ^COS1P 000008BC !***********************************************************
5200 %WW-OE3 000008BC USE '^COM1C' !0650-M
100 ^COM1C 000008BC !
200 ^COM1C 000008BC !===========================> ^COM1C <====================
300 ^COM1C 000008BC !
400 ^COM1C 000008BC ! File Format & Length Declaratives
500 ^COM1C 000008BC !
600 ^COM1C 000008BC ! File Name: WWM1C MISCELANEOUS CODE FILE
700 ^COM1C 000008BC !
800 ^COM1C 000008BC ! Type: K Record: 126 Key: 3 Image: N
900 ^COM1C 000008BC !
1000 ^COM1C 000008BC ! #FILES File Name: MISC.CODE.FILE Date: 0
1100 ^COM1C 000008BC !
1200 ^COM1C 000008BC !-----------------------------------------------------------
1300 ^COM1C 000008BC !
1400 ^COM1C 000008BC !
1500 ^COM1C 000008BC LENGTH 2.0 & LOCAL MDENRTR1,MDENRTR2,MDENRTR3
1600 ^COM1C 000008BC LENGTH 2.0 & LOCAL MNUMRTR1,MNUMRTR2,MNUMRTR3
1700 ^COM1C 000008BC LENGTH 3.0 & LOCAL MEXTDAY1,MEXTDAY2,MEXTDAY3
1800 ^COM1C 000008BC LENGTH 4.2 & LOCAL MAPDISC
1900 ^COM1C 000008BC LENGTH 12.8 & LOCAL MEXCRATE
2000 ^COM1C 000008BC LENGTH 1 & LOCAL MARKEADJ$,MASGNLP$
2100 ^COM1C 000008BC LENGTH 1 & LOCAL MINVFLAG$,MLEFLAG$,MCTYPE$
2200 ^COM1C 000008BC LENGTH 1 & LOCAL MPGFLAG$,MPROFORA$,MSAMPLE$
2300 ^COM1C 000008BC LENGTH 2 & LOCAL MCODE$
2400 ^COM1C 000008BC LENGTH 3 & LOCAL MUNUSED$
2500 ^COM1C 000008BC LENGTH 6 & LOCAL MWHSPASS$
2600 ^COM1C 000008BC LENGTH 8 & LOCAL MGLCODE$
2700 ^COM1C 000008BC LENGTH 40 & LOCAL MCDESC$
2800 ^COM1C 000008BC !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 20
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2900 ^COM1C 000008BC !
3000 ^COM1C 000008BC ! Description Type
3100 ^COM1C 000008BC ! ---------------------------------
3200 ^COM1C 000008BC 0650 FORMAT _
3300 ^COM1C 000008BC MCTYPE$;_ ! TYPE S
3400 ^COM1C 000008C1 MCODE$;_ ! CODE S
3500 ^COM1C 000008C6 MUNUSED$;_ ! UNUSED S
3600 ^COM1C 000008CB MCDESC$;_ ! DESCRIPTION S
3700 ^COM1C 000008D0 MSAMPLE$;_ ! SAMPLE LINE S
3800 ^COM1C 000008D5 MLEFLAG$;_ ! LEATHER FLAG S
3900 ^COM1C 000008DA MPGFLAG$;_ ! PCE GOOD FLG S
4000 ^COM1C 000008DF MGLCODE$;_ ! G.L. CODE S
4100 ^COM1C 000008E4 MPROFORA$;_ ! PROFORMA FLAG S
4200 ^COM1C 000008E9 MEXTDAY1;_ ! EXTRA DAYS 1 N
4300 ^COM1C 000008EE MEXTDAY2;_ ! EXTRA DAYS 2 N
4400 ^COM1C 000008F3 MEXTDAY3;_ ! EXTRA DAYS 3 N
4500 ^COM1C 000008F8 MNUMRTR1;_ ! NUMERATOR 1 N
4600 ^COM1C 000008FD MNUMRTR2;_ ! NUMERATOR 2 N
4700 ^COM1C 00000902 MNUMRTR3;_ ! NUMERATOR 3 N
4800 ^COM1C 00000907 MDENRTR1;_ ! DENOMINATOR 1 N
4900 ^COM1C 0000090C MDENRTR2;_ ! DENOMINATOR 2 N
5000 ^COM1C 00000911 MDENRTR3;_ ! DENOMINATOR 3 N
5100 ^COM1C 00000916 MEXCRATE;_ ! EXCHANGE RATE N 1
5200 ^COM1C 0000091B MAPDISC;_ ! A/P DISC PCT N
5300 ^COM1C 00000920 MINVFLAG$;_ ! INVENTORY FLAG S
5400 ^COM1C 00000925 MARKEADJ$;_ ! AR CASH ADJUST S
5500 ^COM1C 0000092A MWHSPASS$;_ ! WHSE OP PASSWORD S
5600 ^COM1C 0000092F MASGNLP$ ! ASSIGN LOT/PIECE FLAG S
5700 ^COM1C 00000935 !
5800 ^COM1C 00000935 !===========================================================
5220 %WW-OE3 00000935 USE '^COC1X' !0180-S
1000 ^COC1X 00000935 !
1100 ^COC1X 00000935 !************************* ^COC1X **********************
1200 ^COC1X 00000935 !
1300 ^COC1X 00000935 ! DECLARATIVE & FORMAT STATEMENTS FOR FILE: WWC1X TYPE: K
1400 ^COC1X 00000935 !
1500 ^COC1X 00000935 ! SPECIAL CUSTOMER PRICING REC SIZ
1600 ^COC1X 00000935 ! KEY SIZ
1700 ^COC1X 00000935 !
1800 ^COC1X 00000935 ! #FILE NAME: SPECIAL.PRICES DATE:
1900 ^COC1X 00000935 !
1910 ^COC1X 00000935 ! BY: CRITERION DESIGN & PROGRAMMING LTD.
1920 ^COC1X 00000935 !
2000 ^COC1X 00000935 !***********************************************************
2100 ^COC1X 00000935 !
2200 ^COC1X 00000935 ! FILE STATEMENT
2300 ^COC1X 00000935 !
2400 ^COC1X 00000935 !!!!FILE 'WWC1X',151
2500 ^COC1X 00000935 !
2600 ^COC1X 00000935 ! VARIABLE DECLARATIONS:
2700 ^COC1X 00000935 !
2800 ^COC1X 00000935 LENGTH 4.0 & LOCAL SPQTY
2900 ^COC1X 00000935 LENGTH 4.2 & LOCAL SPCOMM,SPDISC
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 21
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
3000 ^COC1X 00000935 LENGTH 7.2 & LOCAL SPPRICE
3100 ^COC1X 00000935 LENGTH 1 & LOCAL SPCODE$
3200 ^COC1X 00000935 LENGTH 6 & LOCAL SPCNBR$
3300 ^COC1X 00000935 LENGTH 10 & LOCAL SPEXDTE$,SPSTDTE$
3400 ^COC1X 00000935 LENGTH 14 & LOCAL SPID$
3500 ^COC1X 00000935 LENGTH 50 & LOCAL SPCOMM$
3600 ^COC1X 00000935 !
3700 ^COC1X 00000935 ! RECORD FORMAT FIELD DESCRIPTIONS TYPE LENGTH
3800 ^COC1X 00000935 !
3900 ^COC1X 00000935 0180 FORMAT _
4000 ^COC1X 00000935 SPCNBR$;_ ! CUST NUMB S 6
4100 ^COC1X 0000093A SPID$;_ ! ITEM OR PATTERN S 14
4200 ^COC1X 0000093F SPEXDTE$;_ ! EXPIRE DATE S 10
4300 ^COC1X 00000944 SPQTY;_ ! MINIMUM QTY N 4.0
4400 ^COC1X 00000949 SPPRICE;_ ! SPECIAL PRICE N 7.2
4500 ^COC1X 0000094E SPDISC;_ ! DISC PCT N 4.2
4600 ^COC1X 00000953 SPCOMM;_ ! COMMISSION PCT N 4.2
4700 ^COC1X 00000958 SPCOMM$;_ ! COMMENT S 50
4800 ^COC1X 0000095D SPCODE$;_ ! I P L S 1
4900 ^COC1X 00000962 SPSTDTE$ ! START DATE S 10
5000 ^COC1X 00000968 !
5100 ^COC1X 00000968 !***********************************************************
5240 %WW-OE3 00000968 !!!! USE '^COZ1-*'
5260 %WW-OE3 00000968 USE '^UPSRATE'
100 ^UPSRATE 00000968 !=============== UPS RATE TABLE ================
200 ^UPSRATE 00000968 !
300 ^UPSRATE 00000968 ! FILENAME = UPSRATE
400 ^UPSRATE 00000968 ! KEY = UPS ZONE
500 ^UPSRATE 00000968 !
520 ^UPSRATE 00000968 !!!! FILE 'UPSRATE',756
540 ^UPSRATE 00000968 !
600 ^UPSRATE 00000968 !
700 ^UPSRATE 00000968 LENGTH 3 & LOCAL ZONE$
720 ^UPSRATE 00000968 LENGTH 20 & LOCAL ZONECOMM$
800 ^UPSRATE 00000968 LENGTH 5.2 & LOCAL UR(150)
900 ^UPSRATE 00000968 !
1000 ^UPSRATE 00000968 0011 FORMAT_
1100 ^UPSRATE 00000968 ZONE$;_
1300 ^UPSRATE 0000096D ZONECOMM$;_ !COMMENT
1400 ^UPSRATE 00000972 UR(1),150*7 !RATES FOR UP TO 150 POUNDS
1660 ^UPSRATE 00000985 !
1700 ^UPSRATE 00000985 LENGTH 4.2 & LOCAL ZUPSCOD, ZFUELGND, ZFUELEXP
1800 ^UPSRATE 00000985 LENGTH 3.2 & LOCAL ZUPSINS
1810 ^UPSRATE 00000985 LENGTH 3.0 & LOCAL ZUPSOVR, ZUPSEVR
1900 ^UPSRATE 00000985 !
2000 ^UPSRATE 00000985 0012 FORMAT_
2100 ^UPSRATE 00000985 ZUPSCOD;_ !COD CHARGE
2200 ^UPSRATE 0000098A ZUPSINS;_ !INSURANCE
2300 ^UPSRATE 0000098F ZUPSOVR;_ !INSURANCE KICKS IN OVER THIS N
2400 ^UPSRATE 00000994 ZUPSEVR;_ !FREE FIELD
2410 ^UPSRATE 00000999 ZFUELGND;_ !FUEL SURCHARGE %, GROUND SHIPM
2420 ^UPSRATE 0000099E ZFUELEXP !FUEL SURCHARGE %, EXPRESS SHIP
5280 %WW-OE3 000009A4 USE '^UPSZONE' !0010 - UPS ZONES, MULTI-W
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 22
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
100 ^UPSZONE 000009A4 !
200 ^UPSZONE 000009A4 !===========================> ^UPSZONE <==================
300 ^UPSZONE 000009A4 !
400 ^UPSZONE 000009A4 ! File Format & Length Declaratives
500 ^UPSZONE 000009A4 !
600 ^UPSZONE 000009A4 ! File Name: UPSZONE UPS ZONES BY SHIPPING POINT ORI
700 ^UPSZONE 000009A4 !
800 ^UPSZONE 000009A4 ! Type: K Record: 6 Key: 4 Image: N
900 ^UPSZONE 000009A4 !
1000 ^UPSZONE 000009A4 ! #FILES File Name: UPS.ZONES Date: 0
1100 ^UPSZONE 000009A4 !
1200 ^UPSZONE 000009A4 !-----------------------------------------------------------
1300 ^UPSZONE 000009A4 !
1400 ^UPSZONE 000009A4 !
1500 ^UPSZONE 000009A4 LENGTH 1 & LOCAL ZONESC$
1600 ^UPSZONE 000009A4 LENGTH 1 & LOCAL ZONE1$,ZONUNUSD$
1700 ^UPSZONE 000009A4 LENGTH 3 & LOCAL ZIP$
1800 ^UPSZONE 000009A4 !
1900 ^UPSZONE 000009A4 !
2000 ^UPSZONE 000009A4 ! Description Type
2100 ^UPSZONE 000009A4 ! ---------------------------------
2200 ^UPSZONE 000009A4 0010 FORMAT _
2300 ^UPSZONE 000009A4 ZIP$;_ ! ZIP CODE PREFIX S
2400 ^UPSZONE 000009A9 ZONE1$;ZONUNUSD$;_ ! ZONE S
2500 ^UPSZONE 000009B3 ZONESC$ ! SHIPPING CODE S
2600 ^UPSZONE 000009B9 !
2700 ^UPSZONE 000009B9 !===========================================================
5300 %WW-OE3 000009B9 !!!! USE '^COC1R' !0105-R
5320 %WW-OE3 000009B9 !!!! USE '^COT1'
5340 %WW-OE3 000009B9 !!!! USE '^COT2'
5360 %WW-OE3 000009B9 !!!! USE '^COZ1-T'
5380 %WW-OE3 000009B9 !!!! USE '^COZ1-*'
5400 %WW-OE3 000009B9 !
5500 %WW-OE3 000009B9 LENGTH 1 & LOCAL XRFTP$
5520 %WW-OE3 000009B9 0217 FORMAT XRFTP$;IPATTERN$;INBR$
5540 %WW-OE3 000009C9 !
5560 %WW-OE3 000009C9 LENGTH 1 & LOCAL RESV$
5570 %WW-OE3 000009C9 LENGTH 9 & LOCAL INVC$
5580 %WW-OE3 000009C9 LENGTH 10 & LOCAL DISPDT$,SHPDT$
5585 %WW-OE3 000009C9 LENGTH 15 & LOCAL CPONBR$,RPONBR$
5600 %WW-OE3 000009C9 0031 FORMAT _ ! ORDER H
5620 %WW-OE3 000009C9 RESV$,@(294);CPONBR$,@(310);RPONBR$;_
5630 %WW-OE3 000009E0 DISPDT$,@(434);INVC$,@(575);SHPDT$,@(594)
5640 %WW-OE3 000009FC !
5660 %WW-OE3 000009FC LENGTH 6.2 & LOCAL QTY
5680 %WW-OE3 000009FC 0033 FORMAT _
5700 %WW-OE3 000009FC QTY,@(76)
5720 %WW-OE3 00000A06 !
5740 %WW-OE3 00000A06 LENGTH 14 & LOCAL ALTITEM$
5760 %WW-OE3 00000A06 0201 FORMAT _
5780 %WW-OE3 00000A06 ALTITEM$;_
5800 %WW-OE3 00000A0B IQOORD,@(239);IQOBO;IQOHND;IQOHNDBN;IQOCMTD
5820 %WW-OE3 00000A29 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 23
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
5840 %WW-OE3 00000A29 LENGTH 1 & LOCAL VDRPSHP$
5860 %WW-OE3 00000A29 LENGTH 3.0 & LOCAL VSHPDAYS
5880 %WW-OE3 00000A29 0085 FORMAT _
5900 %WW-OE3 00000A29 VDRPSHP$,@(496);VSHPDAYS
5920 %WW-OE3 00000A38 !
5930 %WW-OE3 00000A38 LENGTH 6.2 & LOCAL TMPPCE
5940 %WW-OE3 00000A38 0071 FORMAT _
5950 %WW-OE3 00000A38 TMPPCE,@(24)
5960 %WW-OE3 00000A42 !
5970 %WW-OE3 00000A42 LENGTH 1 & LOCAL STERRBE$
5980 %WW-OE3 00000A42 0401 FORMAT _
5990 %WW-OE3 00000A42 STERRBE$,@(604)
6000 %WW-OE3 00000A4C !
6010 %WW-OE3 00000A4C LENGTH 14 & LOCAL OLDSAHCO$,NEWSAHCO$
6020 %WW-OE3 00000A4C 0016 FORMAT _
6030 %WW-OE3 00000A4C NEWSAHCO$;OLDSAHCO$
6040 %WW-OE3 00000A57 !
6050 %WW-OE3 00000A57 LENGTH 2 & LOCAL CCONSWHS$
6060 %WW-OE3 00000A57 0101 FORMAT _
6070 %WW-OE3 00000A57 CCONSWHS$,@(855)
6080 %WW-OE3 00000A61 !
6090 %WW-OE3 00000A61 LENGTH 3 & LOCAL V6REP$
6100 %WW-OE3 00000A61 LENGTH 5 & LOCAL V6VEND$
6110 %WW-OE3 00000A61 0002 FORMAT _
6120 %WW-OE3 00000A61 V6VEND$;V6REP$
6130 %WW-OE3 00000A6C !
6140 %WW-OE3 00000A6C LENGTH 3 & LOCAL SNBR$
6140 %WW-OE3 *****A6C Variable 'SNBR$ ' has been previously declared
6150 %WW-OE3 00000A6C LENGTH 15 & LOCAL SNAME$
6160 %WW-OE3 00000A6C LENGTH 15 & LOCAL SCITY$
6170 %WW-OE3 00000A6C 0412 FORMAT _
6180 %WW-OE3 00000A6C SNBR$;SNAME$;SCITY$,@(108)
6190 %WW-OE3 00000A80 !
6200 %WW-OE3 00000A80 LENGTH 6.0 & LOCAL ZLEVEL1, ZLEVEL2
6210 %WW-OE3 00000A80 LENGTH 1 & LOCAL ZINCPREV$
6220 %WW-OE3 00000A80 !
6230 %WW-OE3 00000A80 0995 FORMAT ZLEVEL1;ZLEVEL2;ZINCPREV$
6240 %WW-OE3 00000A90 !
9000 %WW-OE3 00000A90 ! ========== WORKING STORAGE ==========
9100 %WW-OE3 00000A90 LENGTH 1 & LOCAL SMPL$,SLCTLN$,READFLG$,MORE$,AD
9110 %WW-OE3 00000A90 LENGTH 1 & LOCAL EOF$,ZOISFLG$,INVUPDT$,LOTARRAY
9114 %WW-OE3 00000A90 LENGTH 1 & LOCAL ZINVUPDT$,ZZINVUPD$,LPDISP$,LPL
9116 %WW-OE3 00000A90 LENGTH 1 & LOCAL FROMSC$,FIRST$,STERRBE$,ZCUTYRD
9116 %WW-OE3 *****A90 Variable 'STERRBE$ ' has been previously declared
9120 %WW-OE3 00000A90 LENGTH 2 & LOCAL ZZCO$,LN$,SUFFIX$,TRCODE$
9122 %WW-OE3 00000A90 LENGTH 2 & LOCAL ACTCD1$,ACTCD2$,ACTCD3$,ACD$
9130 %WW-OE3 00000A90 LENGTH 3 & LOCAL ZN1$,ZN2$,ZN3$,ZN4$
9140 %WW-OE3 00000A90 LENGTH 3 & LOCAL XQLINE$,QLN$,ZLINE$,O1BLN$,HOLD
9144 %WW-OE3 00000A90 LENGTH 5 & LOCAL VIA$
9150 %WW-OE3 00000A90 LENGTH 6 & LOCAL POINPUT$,PODISP$,XLOT$,XPCE$
9200 %WW-OE3 00000A90 LENGTH 6 & LOCAL CUST$,WGTYDS$
9210 %WW-OE3 00000A90 LENGTH 7 & LOCAL PTRN$(10),SHPRET$
9220 %WW-OE3 00000A90 LENGTH 8 & LOCAL ORDRSRV$,OQTYORD$,ZCALCDT8$,CAL
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 24
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
9224 %WW-OE3 00000A90 LENGTH 8 & LOCAL STRTDT8$,PCDT8$,ZPCDT8$
9230 %WW-OE3 00000A90 LENGTH 9 & LOCAL XQORNBR$,QOR$,ORDNUM$,NUMBER$
9240 %WW-OE3 00000A90 LENGTH 10 & LOCAL ZDATE$,CALCDT$,PODT$
9242 %WW-OE3 00000A90 LENGTH 10 & LOCAL ACTDT1$,ACTDT2$,ACTDT3$
9250 %WW-OE3 00000A90 LENGTH 12 & LOCAL KEYO1$,LOTPCE$(8),FLNM12$
9300 %WW-OE3 00000A90 LENGTH 14 & LOCAL ZZINBR$,ITEM$(10),UPDTITEM$
9320 %WW-OE3 00000A90 LENGTH 14 & LOCAL ZINBR$,ZIINBR$,ZZIINBR$
9330 %WW-OE3 00000A90 LENGTH 20 & LOCAL PRTKY20$
9340 %WW-OE3 00000A90 LENGTH 23 & LOCAL ZNAME$
9360 %WW-OE3 00000A90 LENGTH 25 & LOCAL DESC$
9390 %WW-OE3 00000A90 LENGTH 31 & LOCAL PRTKYI1X$
9400 %WW-OE3 00000A90 LENGTH 32 & LOCAL ZKEYO1S$,TRMDSC$
9410 %WW-OE3 00000A90 LENGTH 32 & LOCAL KEY$,DUPKEY$
9412 %WW-OE3 00000A90 LENGTH 38 & LOCAL ACTDESC1$,ACTDESC2$,ACTDESC3$
9420 %WW-OE3 00000A90 LENGTH 55 & LOCAL DISPI1R$
9430 %WW-OE3 00000A90 LENGTH 57 & LOCAL CMNT$(5)
9440 %WW-OE3 00000A90 LENGTH 100 & LOCAL ExtCommentPath$
9500 %WW-OE3 00000A90 !
9600 %WW-OE3 00000A90 LENGTH 1.0 & LOCAL PLSORMIN,LOTARRAY,DUPCHK,DISPLY
9610 %WW-OE3 00000A90 LENGTH 1.0 & LOCAL DIDV6CHK,CostOverride
9700 %WW-OE3 00000A90 LENGTH 2.0 & LOCAL ERR,LINE1,LINE2,LINE3
9710 %WW-OE3 00000A90 LENGTH 2.0 & LOCAL TYPE,ZLINE,BADINPUT,BADDATE
9720 %WW-OE3 00000A90 LENGTH 12.8 & LOCAL YDGFACT
9730 %WW-OE3 00000A90 LENGTH 3.0 & LOCAL WORK,COUNT,O1SCNT
9740 %WW-OE3 00000A90 LENGTH 2.2 & LOCAL ORDFPT
9750 %WW-OE3 00000A90 LENGTH 5.0 & LOCAL NUMZIP
9752 %WW-OE3 00000A90 LENGTH 5.2 & LOCAL CNPKGS
9754 %WW-OE3 00000A90 LENGTH 6.0 & LOCAL SALES
9760 %WW-OE3 00000A90 LENGTH 6.2 & LOCAL ZQTYORD,ZQTYBOD,QTY,CHKQTY,DISP
9760 %WW-OE3 *****A90 Variable 'QTY ' has been previously declared
9770 %WW-OE3 00000A90 LENGTH 6.2 & LOCAL QTYORD,QTYBOD,FRT1,FRT2,FRT3,FR
9774 %WW-OE3 00000A90 LENGTH 6.2 & LOCAL RQAVAIL,LPBAL,ZLPBAL,XSHPPCE,TO
9780 %WW-OE3 00000A90 LENGTH 6.2 & LOCAL ALCTDBAL,FRT4,POCHKQTY,A
9782 %WW-OE3 00000A90 LENGTH 7.0 & LOCAL TOTWGHT
9790 %WW-OE3 00000A90 LENGTH 7.2 & LOCAL QTYAVL,ZPRICE,POQTYAVL,UPSQTYCN
9792 %WW-OE3 00000A90 LENGTH 7.2 & LOCAL WORK72
9794 %WW-OE3 00000A90 LENGTH 8.2 & LOCAL WORK82
9796 %WW-OE3 00000A90 LENGTH 8.4 & LOCAL WORK84
9920 %WW-OE3 00000A90 LENGTH 9.2 & LOCAL ZGROSS,ZDISCAMT,ZMISC
9950 %WW-OE3 00000A90 USE '^COUTIL8'
100 ^COUTIL8 00000A90 !===========================================================
200 ^COUTIL8 00000A90 LENGTH 68 & LOCAL MESS$
300 ^COUTIL8 00000A90 LENGTH 3 & LOCAL ZPRTCODE$
302 ^COUTIL8 00000A90 LENGTH 10 & LOCAL AN$
310 ^COUTIL8 00000A90 LENGTH 20 & LOCAL ZPRTDESC$ , ZPRTLOC$
400 ^COUTIL8 00000A90 LENGTH 40 & LOCAL STITLE$
500 ^COUTIL8 00000A90 LENGTH 8 & LOCAL FLNM$,DT$ , ZLJPROG$
510 ^COUTIL8 00000A90 LENGTH 12 & LOCAL FLNM12$ !ADED 5/20/04 SEH
510 ^COUTIL8 *****A90 Variable 'FLNM12$ ' has been previously declared
600 ^COUTIL8 00000A90 LENGTH 1.0 & LOCAL LJCONFLG , ZLJPFLAG
605 ^COUTIL8 00000A90 LENGTH 3.0 & LOCAL AN,POS,LINE,PAGE,LM,PM,TTLPOS,MAXLI
620 ^COUTIL8 00000A90 LENGTH 20 & LOCAL CHAR$
640 ^COUTIL8 00000A90 LENGTH 1 & LOCAL BLIND$,PORL$
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 25
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
700 ^COUTIL8 00000A90 SET BUSY=33,EOF=2,KEYERR=32
800 ^COUTIL8 00000A90 !===========================================================
900 ^COUTIL8 00000A90 ! FORMAT STATEMENTS
1000 ^COUTIL8 00000A90 !===========================================================
1100 ^COUTIL8 00000A90 90 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM)
1200 ^COUTIL8 00000AAD 91 FORMAT (BF),@(0,23)
1300 ^COUTIL8 00000AB6 92 FORMAT (RB),@(0,23)
1500 ^COUTIL8 00000ABF 95 FORMAT @(POS,LINE)
1520 ^COUTIL8 00000AC9 96 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM);(BM)
1600 ^COUTIL8 00000AEA 100 FORMAT(CS)
1700 ^COUTIL8 00000AEF 110 FORMAT(SB);(BF),@(0,0);ZDATE$,@(0,0);_
1710 ^COUTIL8 00000B05 STITLE$,@(TTLPOS,0);'-';@(70);ZNAME$,10
1720 ^COUTIL8 00000B23 120 FORMAT (CPL80) ! SET FOR 80 CH
1740 ^COUTIL8 00000B28 130 FORMAT (CPL64) ! SET FOR 64 CH
1800 ^COUTIL8 00000B2D !
1810 ^COUTIL8 00000B2D CURSPOSREM: FORMAT (MC) !REMEMBER CURSOR POSITION
1820 ^COUTIL8 00000B32 CURSPOSRES: FORMAT (RC) !RESTORE CURSOR POSITION
1830 ^COUTIL8 00000B37 !
1900 ^COUTIL8 00000B37 SET Z1 = 10
2000 ^COUTIL8 00000B37 !
2010 ^COUTIL8 00000B37 CKPRNTR: FORMAT ZPRTCODE$;_ !PRINTER ID
2011 ^COUTIL8 00000B3C ZLJPFLAG;_ !LASER JET PRINTER FLAG '1'=Y
2012 ^COUTIL8 00000B41 ZPRTDESC$;_ !PRINTER DESCRIPTION
2014 ^COUTIL8 00000B46 ZPRTLOC$ !PRINTER LOCATION
2020 ^COUTIL8 00000B4C !
2022 ^COUTIL8 00000B4C CKLJCOND: FORMAT ZLJPROG$
2122 ^COUTIL8 00000B52 !
2132 ^COUTIL8 00000B52 ! THE FOLLOWING FORMAT IS USED BY FORMS PROGRAMS TO DETERMIN
2142 ^COUTIL8 00000B52 ! NUMBER OF LINE FEEDS THE PROGRAM NEEDS TO GET TO THE
2152 ^COUTIL8 00000B52 ! FIRST PRINT LINE ON THE FORM.
2162 ^COUTIL8 00000B52 !
2222 ^COUTIL8 00000B52 LENGTH 32 & LOCAL KEYLF$
2232 ^COUTIL8 00000B52 LENGTH 2.0 & LOCAL ZLFINIT,ZHPOS
2322 ^COUTIL8 00000B52 !
2422 ^COUTIL8 00000B52 FRMLFFMT: FORMAT KEYLF$;_
2522 ^COUTIL8 00000B57 ZLFINIT;_ !INITIAL LINE FEEDS
2622 ^COUTIL8 00000B5C ZHPOS !HORIZONTAL POSITION FOR LABE
2722 ^COUTIL8 00000B62 !
2822 ^COUTIL8 00000B62 CLEARFOREGROUND: FORMAT _ !ADDED 11/11/2005
2922 ^COUTIL8 00000B62 (CF)
9980 %WW-OE3 00000B67 USE '^UPSVAR'
9080 ^UPSVAR 00000B67 !
9100 ^UPSVAR 00000B67 !!!! LENGTH 1 & LOCAL ZONE$ !LENGTH 2 IN USE FILE ^
9110 ^UPSVAR 00000B67 LENGTH 3 & LOCAL STATE$
9120 ^UPSVAR 00000B67 LENGTH 5 & LOCAL ZIP5$
9130 ^UPSVAR 00000B67 LENGTH 15 & LOCAL SHIPVIA$,XTERMS$
9140 ^UPSVAR 00000B67 LENGTH 3.0 & LOCAL PKGS,WGHT,OVERWT
9150 ^UPSVAR 00000B67 LENGTH 4.2 & LOCAL CONVKILO
9160 ^UPSVAR 00000B67 LENGTH 7.2 & LOCAL FRT,HNDL
9170 ^UPSVAR 00000B67 LENGTH 9.2 & LOCAL VALUE,WGHT92
9180 ^UPSVAR 00000B67 !
9990 %WW-OE3 00000B67 USE '^CODTVAR'
100 ^CODTVAR 00000B67 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 26
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
200 ^CODTVAR 00000B67 ! ========== DATE CHECK VARIABLES ==========
300 ^CODTVAR 00000B67 LENGTH 10 & LOCAL XDATE$
400 ^CODTVAR 00000B67 LENGTH 2 & LOCAL XMO$,XDA$,XYR$,XCT$
500 ^CODTVAR 00000B67 LENGTH 4 & LOCAL XCTYR$
600 ^CODTVAR 00000B67 LENGTH 1.0 & LOCAL ZDYWK
700 ^CODTVAR 00000B67 LENGTH 2.0 & LOCAL XDA,XMO,XYR,XCT,DATEOK,XPOS,YP
800 ^CODTVAR 00000B67 LENGTH 3.0 & LOCAL MONTH,DAY,YEAR,LEAPYR,ZDYYR
900 ^CODTVAR 00000B67 LENGTH 4.0 & LOCAL XCTYR
1000 ^CODTVAR 00000B67 LENGTH 5.0 & LOCAL XTEMPNO
1100 ^CODTVAR 00000B67 LENGTH 6.0 & LOCAL ZDYCT
9991 %WW-OE3 00000B67 USE '^COSQFTV'
9000 ^COSQFTV 00000B67 !============ VARIABLES & FORMATS FOR ^COSQFT ============
9050 ^COSQFTV 00000B67 !
9100 ^COSQFTV 00000B67 !
9500 ^COSQFTV 00000B67 !======== VARIABLES AND FORMATS FOR SQUARE FOOT CALCULATIONS
9600 ^COSQFTV 00000B67 !
9700 ^COSQFTV 00000B67 LENGTH 3.0 & LOCAL SQLENFT , SQWIDFT
9800 ^COSQFTV 00000B67 LENGTH 2.0 & LOCAL SQLENIN , SQWIDIN
9900 ^COSQFTV 00000B67 LENGTH 2.0 & LOCAL SQLENNUM, SQWIDNUM
10000 ^COSQFTV 00000B67 LENGTH 2.0 & LOCAL SQLENDEN, SQWIDDEN
10100 ^COSQFTV 00000B67 LENGTH 2.0 & LOCAL SQL1 , SQL2 , SQL3 , SQL4, SQL5
10110 ^COSQFTV 00000B67 LENGTH 1.0 & LOCAL SQFLAG
10200 ^COSQFTV 00000B67 LENGTH 5.2 & LOCAL SQMSC1 , SQMSC2
10300 ^COSQFTV 00000B67 LENGTH 8.2 & LOCAL SQFTEXT , SQPRICE !IPRICE1
10400 ^COSQFTV 00000B67 LENGTH 8.2 & LOCAL SQFT
10500 ^COSQFTV 00000B67 LENGTH 50 & LOCAL SQDESC$
10600 ^COSQFTV 00000B67 !
10700 ^COSQFTV 00000B67 SQFTMASK: FORMAT _
10800 ^COSQFTV 00000B67 @(0,SQL1);(BF);(BF);(BF);(BF);(BF);(BF);_
10900 ^COSQFTV 00000B88 @(0,SQL1);(SF);@(20,SQL1);_
11000 ^COSQFTV 00000B9C 'S Q U A R E F O O T C A L C U L A T O R';(SB
11100 ^COSQFTV 00000BA5 @(4,SQL2);'------- LENGTH -------';_
11200 ^COSQFTV 00000BB2 @(31,SQL2);'------- WIDTH -------';_
11300 ^COSQFTV 00000BBF @(56,SQL2);'ADDITIONAL SQ FT COSTS';(SB);_
11500 ^COSQFTV 00000BD0 @(0,SQL3);(TM);(RJ);(SF);SQLENFT,(BZ);(SB);"'";_
11600 ^COSQFTV 00000BF3 (RJ);(SF);SQLENIN,(BZ);(SB);"-";_
11700 ^COSQFTV 00000C0A (RJ);(SF);SQLENNUM,(BZ);(SB);"/";_
11800 ^COSQFTV 00000C21 (RJ);(SF);SQLENDEN,(BZ);(SB);'"';_
11900 ^COSQFTV 00000C38 (SSB);'',2;(SB);_
12000 ^COSQFTV 00000C48 (RJ);(SF);SQWIDFT,(BZ);(SB);"'";_
12100 ^COSQFTV 00000C5F (RJ);(SF);SQWIDIN,(BZ);(SB);"-";_
12200 ^COSQFTV 00000C76 (RJ);(SF);SQWIDNUM,(BZ);(SB);"/";_
12300 ^COSQFTV 00000C8D (RJ);(SF);SQWIDDEN,(BZ);(SB);'"';_
12400 ^COSQFTV 00000CA4 (SSB);'',2;(SB);_
12500 ^COSQFTV 00000CB4 (RJ);(SF);SQMSC1,(BZ);(SSB);'',5;(
12600 ^COSQFTV 00000CD2 (RJ);(SF);SQMSC2,(BZ);(SB);(TM);(S
12700 ^COSQFTV 00000CEC @(18,SQL4);'Square Feet ';SQFT;_
12800 ^COSQFTV 00000CFE ' Total Price ';SQFTEXT;_
12900 ^COSQFTV 00000D08 @(18,SQL5);SQDESC$
13000 ^COSQFTV 00000D16 !
13100 ^COSQFTV 00000D16 SQFTINP: FORMAT _
13200 ^COSQFTV 00000D16 SQLENFT;_
13300 ^COSQFTV 00000D1B SQLENIN;_
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 27
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
13400 ^COSQFTV 00000D20 SQLENNUM;_
13500 ^COSQFTV 00000D25 SQLENDEN;_
13600 ^COSQFTV 00000D2A SQWIDFT;_
13700 ^COSQFTV 00000D2F SQWIDIN;_
13800 ^COSQFTV 00000D34 SQWIDNUM;_
13900 ^COSQFTV 00000D39 SQWIDDEN;_
14000 ^COSQFTV 00000D3E SQMSC1;_
14100 ^COSQFTV 00000D43 SQMSC2
14200 ^COSQFTV 00000D49 !
14300 ^COSQFTV 00000D49 SQFTPOS: FORMAT _
14400 ^COSQFTV 00000D49 @(POS,SQL3)
14500 ^COSQFTV 00000D53 !
14600 ^COSQFTV 00000D53 SQFTBF: FORMAT _
14700 ^COSQFTV 00000D53 @(0,SQL1);(BF);(BF);(BF);(BF);(BF)
9992 %WW-OE3 00000D71 !
9994 %WW-OE3 00000D71 ROUND WGHT
9996 %WW-OE3 00000D71 !
9998 %WW-OE3 00000D71 USE '^COEXCOV' ! EXTENDED COM
300 ^COEXCOV 00000D71 USE '^COO1E' ! 0567 - E
100 ^COO1E 00000D71 !
200 ^COO1E 00000D71 !===========================> ^COO1E <====================
300 ^COO1E 00000D71 !
400 ^COO1E 00000D71 ! File Format & Length Declaratives
500 ^COO1E 00000D71 !
600 ^COO1E 00000D71 ! File Name: WWO1E ORDER DETAIL EXTENDED COMMENTS
700 ^COO1E 00000D71 !
800 ^COO1E 00000D71 ! Type: K Record: 999 Key: 12 Image: N
900 ^COO1E 00000D71 !
1000 ^COO1E 00000D71 ! #FILES File Name: EXTENDED.COMNTS Date: 0
1100 ^COO1E 00000D71 !
1200 ^COO1E 00000D71 !-----------------------------------------------------------
1300 ^COO1E 00000D71 !
1400 ^COO1E 00000D71 !
1500 ^COO1E 00000D71 LENGTH 3 & LOCAL O1ELINE$
1600 ^COO1E 00000D71 LENGTH 9 & LOCAL O1EORNBR$
1700 ^COO1E 00000D71 LENGTH 50 & LOCAL O1ECMT$(12)
2300 ^COO1E 00000D71 LENGTH 187 & LOCAL O1EFLR02$
2400 ^COO1E 00000D71 LENGTH 200 & LOCAL O1EFLR01$
2500 ^COO1E 00000D71 !
2600 ^COO1E 00000D71 !
2700 ^COO1E 00000D71 ! Description Type
2800 ^COO1E 00000D71 ! ---------------------------------
2900 ^COO1E 00000D71 0567 FORMAT _
3000 ^COO1E 00000D71 O1EORNBR$;_ ! ORDER NUMBER S
3100 ^COO1E 00000D76 O1ELINE$;_ ! LINE NUMBER S
3200 ^COO1E 00000D7B O1ECMT$(1),12*50;_ ! COMMENT01 - 12 S
4400 ^COO1E 00000D8D O1EFLR01$;_ ! FILLER01 S
4500 ^COO1E 00000D92 O1EFLR02$ ! FILLER02 S
4600 ^COO1E 00000D98 !
4700 ^COO1E 00000D98 !===========================================================
360 ^COEXCOV 00000D98 !!!! LENGTH 50 & LOCAL A$(12)
520 ^COEXCOV 00000D98 !!!! 0004 FORMAT ORNBR$;OLINE$;A$(1),12*50
540 ^COEXCOV 00000D98 LENGTH 64 & LOCAL BIGKEY$ !!!! KEY$ is alrea
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 28
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
560 ^COEXCOV 00000D98 ROUND IPLEAD
580 ^COEXCOV 00000D98 !
600 ^COEXCOV 00000D98 !!!! 3000 FORMAT _
620 ^COEXCOV 00000D98 !!!! (SB);'ORDER NUMBER',@(0,10);(TP);(SF);'',9;(TM);(S
640 ^COEXCOV 00000D98 !!!! (SB);'LINE NUMBER ',@(0,11);(TP);(SF);'',3;(TM);_
660 ^COEXCOV 00000D98 !!!! @(0,10)
680 ^COEXCOV 00000D98 !
700 ^COEXCOV 00000D98 3200 FORMAT _
720 ^COEXCOV 00000D98 (TP),@(0,0);(SSB);@(51,0);' ';_
740 ^COEXCOV 00000DAF @(51,1);' ';@(51,2);' ';@(51,3);' ';@(51,4);'
760 ^COEXCOV 00000DDB @(51,5);' ';@(51,6);' ';@(51,7);' ';@(51,8);'
780 ^COEXCOV 00000E07 @(51,9);' ';@(51,10);' ';@(51,11);(TM);(BF);(BF)
800 ^COEXCOV 00000E36 !
820 ^COEXCOV 00000E36 3220 FORMAT _
840 ^COEXCOV 00000E36 'IS THE ABOVE CORRECT? (Yes/No/Ignore)',@(0,14);_
860 ^COEXCOV 00000E43 (TP),@(45,14);(TM),@(49,14);@(46,14)
880 ^COEXCOV 00000E5A !
890 ^COEXCOV 00000E5A 3240 FORMAT _
900 ^COEXCOV 00000E5A O1ECMT$( 1);O1ECMT$( 2);O1ECMT$( 3);O1ECMT$( 4);O1ECM
910 ^COEXCOV 00000E96 O1ECMT$( 7);O1ECMT$( 8);O1ECMT$( 9);O1ECMT$(10);O1ECM
920 ^COEXCOV 00000ED3 !
950 ^COEXCOV 00000ED3 3260 FORMAT _
955 ^COEXCOV 00000ED3 (TP),@(00,00);(SSB);_
960 ^COEXCOV 00000EDF (BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(
965 ^COEXCOV 00000F17 (SF);O1ECMT$( 1),@(01,01);O1ECMT$( 2),@(01,02);O1ECMT$
970 ^COEXCOV 00000F45 O1ECMT$( 4),@(01,04);O1ECMT$( 5),@(01,05);O1ECMT$
975 ^COEXCOV 00000F6F O1ECMT$( 7),@(01,07);O1ECMT$( 8),@(01,08);O1ECMT$
980 ^COEXCOV 00000F99 O1ECMT$(10),@(01,10);O1ECMT$(11),@(01,11);O1ECMT$
985 ^COEXCOV 00000FC3 (TM);@(00,00)
990 ^COEXCOV 00000FCE !
1000 ^COEXCOV 00000FCE SET COS.WS.POPUP = 1
1020 ^COEXCOV 00000FCE SET COS.WS.CHILD = 2
1040 ^COEXCOV 00000FCE SET COS.WS.CAPTION = 4
1060 ^COEXCOV 00000FCE SET COS.WS.BORDER = 8
1080 ^COEXCOV 00000FCE SET COS.WS.SYSMENU = 16
1100 ^COEXCOV 00000FCE SET COS.WS.THICKFRAME = 32
1120 ^COEXCOV 00000FCE SET COS.WS.VISIBLE = 64
1140 ^COEXCOV 00000FCE SET COS.WS.POPUPWINDOW = 25
1160 ^COEXCOV 00000FCE SET COS.WF.MODELESS = 0
1180 ^COEXCOV 00000FCE SET COS.WF.MODAL = 1
1200 ^COEXCOV 00000FCE SET COS.WF.NOFRAME = 2
1220 ^COEXCOV 00000FCE SET COS.WF.MSGLINE = 4
1240 ^COEXCOV 00000FCE SET COS.WF.SCNPIXELPOS = 8
1260 ^COEXCOV 00000FCE SET COS.WF.CLIPIXELPOS = 16
1280 ^COEXCOV 00000FCE SET COS.WF.FRMPIXELPOS = 32
1300 ^COEXCOV 00000FCE SET SW.NOACTIVATE = 0
1320 ^COEXCOV 00000FCE SET XW.ACTIVATE = 1
1340 ^COEXCOV 00000FCE SET GDI.PS.SOLID = 0
1360 ^COEXCOV 00000FCE SET GDI.PS.DASH = 1
1380 ^COEXCOV 00000FCE SET GDI.PS.DOT = 2
1400 ^COEXCOV 00000FCE SET GDI.PS.DASHDOT = 3
1420 ^COEXCOV 00000FCE SET GDI.PS.DASHDOTDOT = 4
1440 ^COEXCOV 00000FCE SET GDI.PS.NULL = 5
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 29
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1460 ^COEXCOV 00000FCE SET GDI.PS.INSIDEFRAME = 6
1480 ^COEXCOV 00000FCE SET MM.PIXEL = 0
1500 ^COEXCOV 00000FCE SET MM.PIXEL.MARG = 1
1520 ^COEXCOV 00000FCE SET MM.COSWUNIT = 2
1540 ^COEXCOV 00000FCE SET MM.COSWUNIT.MARG = 3
1560 ^COEXCOV 00000FCE SET MM.QCRTROWCOL = 4
1580 ^COEXCOV 00000FCE SET GDI.BK.TRANSPARENT = 1
1600 ^COEXCOV 00000FCE SET GDI.BK.OPAQUE = 2
1620 ^COEXCOV 00000FCE !
1640 ^COEXCOV 00000FCE LENGTH 2 & LOCAL OPTION$
1660 ^COEXCOV 00000FCE LENGTH 4 & LOCAL WINDOWHANDLE$,HANDLE1$,HANDLE2$
1680 ^COEXCOV 00000FCE LENGTH 3.0 & LOCAL COL,ROW,WIDTH,HEIGHT
1700 ^COEXCOV 00000FCE LENGTH 3.0 & LOCAL RED,GREEN,BLUE
1720 ^COEXCOV 00000FCE LENGTH 3.0 & LOCAL STYLE,FLAGS
1740 ^COEXCOV 00000FCE LENGTH 3.0 & LOCAL I,J
1760 ^COEXCOV 00000FCE LENGTH 52 & LOCAL CAPTION$,COMMENT1$,COMMENT2$,COMMENT3$
1780 ^COEXCOV 00000FCE LENGTH 30 & LOCAL DATA$
1800 ^COEXCOV 00000FCE LENGTH 10 & LOCAL UNITS$
1820 ^COEXCOV 00000FCE LENGTH 1 & LOCAL DUMMY$
1840 ^COEXCOV 00000FCE !!!!! LENGTH 2.0 & LOCAL VALUE This variable is
1860 ^COEXCOV 00000FCE !
1880 ^COEXCOV 00000FCE !!!! SET O1E = 48
10000 %WW-OE3 00000FCE ! ========== CRT FORMATS ==========
10100 %WW-OE3 00000FCE USE '^COOELIN' !3180
100 ^COOELIN 00000FCE 3180 FORMAT (SF);_ !LINE
200 ^COOELIN 00000FD2 (TP),@(0,LINE1);(TP),@(15,LINE1);_
300 ^COOELIN 00000FE6 (RJ);(TP),@(25,LINE1);_
320 ^COOELIN 00000FF4 (TP),@(32,LINE1);_ !!!! (SSB);'
400 ^COOELIN 00000FFE (TP),@(36,LINE1);(RJ);(TP),@(47,LINE1);_
500 ^COOELIN 00001016 (TP),@(59,LINE1);(TP),@(70,LINE1);_ !(RJ)
600 ^COOELIN 0000102A (TP),@(0,LINE2);(SB);'TAG',@(26,LINE2);(TP),@(29,L
700 ^COOELIN 0000104E (TP),@(0,LINE3);_
800 ^COOELIN 00001058 (SSB);(BF);@(POS,LINE)
900 ^COOELIN 0000106A !
1000 ^COOELIN 0000106A 3190 FORMAT _
1100 ^COOELIN 0000106A OLINE$,@(0,10);(SF)
1200 ^COOELIN 0000107C !
1700 ^COOELIN 0000107C !
2000 ^COOELIN 0000107C 3300 FORMAT _
2300 ^COOELIN 0000107C INBR$,@(1,LINE1);_
2400 ^COOELIN 00001089 OQTYORD,@(17,LINE1),(BZ);_
2500 ^COOELIN 00001097 PODISP$,@(26,LINE1);OQLINE$,@(33,LINE1);_
2600 ^COOELIN 000010B1 OPRICE,@(38,LINE1),(BZ);OEXT,@(48,LINE1);_
2700 ^COOELIN 000010CC PODT$,@(60,LINE1);IUNIT$,@(72,LINE1);_
2800 ^COOELIN 000010E6 DESC$,@(1,LINE2);OTAG$,@(30,LINE2);_
2900 ^COOELIN 00001100 ____ ODESC$,@(1,LINE2);_
3200 ^COOELIN 00001100 @(POS,LINE)
3300 ^COOELIN 0000110A !
4000 ^COOELIN 0000110A 3330 FORMAT _
4100 ^COOELIN 0000110A @(0,11);(LD);@(0,11);(LD);(SF)
4200 ^COOELIN 00001126 !
5300 ^COOELIN 00001126 3360 FORMAT _
5400 ^COOELIN 00001126 @(0,10);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);_
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 30
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
5420 ^COOELIN 0000114F (BF);(BF);(BF);(BF);(BF);(SF)
5500 ^COOELIN 00001168 !
6400 ^COOELIN 00001168 3440 FORMAT _
6500 ^COOELIN 00001168 (BF),@(0,11);(BF);(BF);(BF);(BF);(BF);_
6520 ^COOELIN 00001184 (BF);(BF);(BF);(BF);(BF);(BF);(SF)
6600 ^COOELIN 000011A1 !
6700 ^COOELIN 000011A1 !!!!3500 FORMAT @(0,13);_
6800 ^COOELIN 000011A1 !!!! (SB);'LOT # PCE AVAIL PACK CASES LOT # PCE AVAI
6900 ^COOELIN 000011A1 !
7700 ^COOELIN 000011A1 !
10300 %WW-OE3 000011A1 !
13000 %WW-OE3 000011A1 3600 FORMAT _
13010 %WW-OE3 000011A1 @(0,18);(SB);(BF);(BF);(BF);_
13020 %WW-OE3 000011BA 'ACTION CODE 1/?',@(0,18);(TP);(SF);ACTCD1$;(SSB);
13030 %WW-OE3 000011DA (SB);' DATE ';(SSB);' ';(SF);ACTDT1$;(SSB);' ';(SB
13040 %WW-OE3 00001202 'ACTION CODE 2/?',@(0,19);(SSB);' ';(SF);ACTCD2$;(
13050 %WW-OE3 00001227 (SB);' DATE ';(SSB);' ';(SF);ACTDT2$;(SSB);' ';(SB
13060 %WW-OE3 0000124F 'ACTION CODE 3/?',@(0,20);(SSB);' ';(SF);ACTCD3$;(
13070 %WW-OE3 00001274 (SB);' DATE ';(SSB);' ';(SF);ACTDT3$;(TM);@(0,18)
13080 %WW-OE3 0000129A !
13090 %WW-OE3 0000129A 3610 FORMAT _
13100 %WW-OE3 0000129A (SB);ACTDESC1$,@(40,18);ACTDESC2$,@(40,19);_
13110 %WW-OE3 000012B2 ACTDESC3$,@(40,20);(SF)
13120 %WW-OE3 000012C1 !
13130 %WW-OE3 000012C1 3620 FORMAT _
13140 %WW-OE3 000012C1 ACTCD1$;ACTDT1$;ACTCD2$;ACTDT2$;ACTCD3$;ACTDT3$
13150 %WW-OE3 000012E0 !
13900 %WW-OE3 000012E0 3690 FORMAT _
13910 %WW-OE3 000012E0 (TP),@(16,LINE1) ! ELIMINATES (RJ) FOR 999ME EN
13920 %WW-OE3 000012EB !
13980 %WW-OE3 000012EB 3700 FORMAT _
14000 %WW-OE3 000012EB (SB);' ITEM CODE/? ORDERED PO# LN# ',@(3,
14020 %WW-OE3 000012F9 'PRICE EXTENSION OUR SHP DT UNITS ';(SF)
14060 %WW-OE3 00001303 !
14080 %WW-OE3 00001303 3710 FORMAT _
14100 %WW-OE3 00001303 @(0,18);(BF);(BF);(BF);(BF);(BF);(BF);(SF)
14120 %WW-OE3 00001329 !
14124 %WW-OE3 00001329 3718 FORMAT _
14128 %WW-OE3 00001329 (SB);'COMMENTS ',@(0,18);(TM);(SF);_
14132 %WW-OE3 0000133F CMNT$(1),@(18,18);_
14136 %WW-OE3 0000134D (SB);' ',@(0,19);(SF);CMNT$(2),@(1
14140 %WW-OE3 0000136D (SB);' ',@(0,20);(SF);CMNT$(3),@(1
14144 %WW-OE3 00001392 !
14148 %WW-OE3 00001392 3720 FORMAT _
14152 %WW-OE3 00001392 (SB);'COMMENTS ',@(0,18);(TM);(SF);_
14156 %WW-OE3 000013A8 CMNT$(4),@(18,18);_
14160 %WW-OE3 000013B6 (SB);' ',@(0,19);(SF);CMNT$(5),@(1
14164 %WW-OE3 000013D6 (SB);' ',@(0,20);(SF);(BF);(SF)
14174 %WW-OE3 000013F1 !
14176 %WW-OE3 000013F1 3722 FORMAT _
14180 %WW-OE3 000013F1 (SB);'AVAILABLE TO SELL',@(0,21);(SF);QTYAVL;_
14200 %WW-OE3 00001408 (SB);'PHYSICAL INVENTORY',@(28,21);(SF);IQOHND;_
14220 %WW-OE3 0000141F (SB);'IN BOND ',@(56,21);(SF);IQOHNDBN;_
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 31
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
14240 %WW-OE3 00001436 (SB);'BACK-ORDERED ',@(0,22);(SF);IQOBO;_
14260 %WW-OE3 0000144D (SB);'ON ORDER AT MILL ',@(28,22);(SF);IQOORD;_
14280 %WW-OE3 00001464 (SB);'LEAD TIME',@(56,22);(SF);IPLEAD,4;' ';CALCDT
14300 %WW-OE3 0000148D !
14320 %WW-OE3 0000148D !740 FORMAT _
14340 %WW-OE3 0000148D !!!! POINPUT$;OQLINE$
14360 %WW-OE3 0000148D !
14380 %WW-OE3 0000148D 3750 FORMAT _
14400 %WW-OE3 0000148D 'ENTER PATTERN NAME ',@(15,23);(TP);_
14420 %WW-OE3 0000149E (TM),@(59,23);@(35,23)
14440 %WW-OE3 000014AD !
14460 %WW-OE3 000014AD 3760 FORMAT _
14470 %WW-OE3 000014AD (SB);LN$,@(POS,LINE);(SF);' ';IPATTERN$;' ';_
14480 %WW-OE3 000014D1 IPATTNME$,28;(SF)
14490 %WW-OE3 000014DE !
14500 %WW-OE3 000014DE 3764 FORMAT _
14510 %WW-OE3 000014DE (SB);LN$,@(POS,LINE);(SF);' ';INBR$;' ';ICOLOR$,21
14514 %WW-OE3 0000150F !
14520 %WW-OE3 0000150F 3770 FORMAT _
14530 %WW-OE3 0000150F (SB);' WHS LOT PIECE ON HAND AVAIL ',@(0,1
14540 %WW-OE3 0000151D 'PROBLEM/COMMENT';(BF);(SF)
14550 %WW-OE3 0000152B !
14560 %WW-OE3 0000152B 3774 FORMAT _
14570 %WW-OE3 0000152B (SB);' LOT PCE ON HAND AVAIL PROBLEM ',@(
14572 %WW-OE3 00001539 ' LOT PCE ON HAND AVAIL PROBLEM';(BF);(SF
14580 %WW-OE3 00001547 !
14586 %WW-OE3 00001547 3776 FORMAT _
14590 %WW-OE3 00001547 (SB);' WHS LOT PCE ON HAND AVAIL ',@(
14594 %WW-OE3 00001555 ' WHS LOT PCE ON HAND AVAIL ';(BF);(SF
14598 %WW-OE3 00001563 !
14600 %WW-OE3 00001563 3780 FORMAT _
14620 %WW-OE3 00001563 (SB);' ETA AVAILABLE ORDERED RESERVE ',@(0
14640 %WW-OE3 00001571 'PO NUMBER LN# CONF # COMMENT';(BF);(SF)
14660 %WW-OE3 0000157F !
14670 %WW-OE3 0000157F 3790 FORMAT _
14674 %WW-OE3 0000157F (SB);LOTARRAY$,@(0,LINE);(SF);' ';_
14680 %WW-OE3 00001598 IWHSE$;' ';IRUN$;' ';IPCE$;' ';RQOHND;_
14690 %WW-OE3 000015BB RQAVAIL;' ';RCMNT$;(SF) !!!! RRCVDWHS$;' ';
14700 %WW-OE3 000015CF !
14710 %WW-OE3 000015CF 3794 FORMAT _
14714 %WW-OE3 000015CF (SB);LOTARRAY$,@(POS,LINE);(SF);' ';_
14720 %WW-OE3 000015E9 IRUN$;' ';IPCE$;RQOHND;RQAVAIL;RCMNT$,7;(SF)
14732 %WW-OE3 0000160F !
14737 %WW-OE3 0000160F 3796 FORMAT _
14742 %WW-OE3 0000160F (SB);LOTARRAY$,@(POS,LINE);(SF);' ';_
14747 %WW-OE3 00001629 IWHSE$;' ';IRUN$;' ';IPCE$;RQOHND;RQAVAIL;(SF)
14752 %WW-OE3 00001651 !
14760 %WW-OE3 00001651 3800 FORMAT _
14780 %WW-OE3 00001651 QOSHPDTE$,@(0,LINE);' ';POQTYAVL;' ';QQTYORD;' ';_
14800 %WW-OE3 00001677 QQTYAL;' ';QORNBR$;' ';QLINE$;' ';QSTATUS$;' ';_
14820 %WW-OE3 0000169F QCMNT$,18;(SF)
14840 %WW-OE3 000016AD !
14860 %WW-OE3 000016AD 3810 FORMAT _
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 32
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
14880 %WW-OE3 000016AD @(0,19);(BF);(BF);(BF);(BF);(SF)
14900 %WW-OE3 000016CB !
15300 %WW-OE3 000016CB 3850 FORMAT _ ! USED FOR "ITEM ALREADY ON ORDER #..."
15310 %WW-OE3 000016CB (SB);'QUANTITY ',@(0,19);ORDRSRV$;(SF);' ';QTY;_
15320 %WW-OE3 000016EC (SB);'DATE ',@(0,20);ORDRSRV$;' ';(SF);' ';DISP
15330 %WW-OE3 00001712 (SB);'CUST P/O #',@(33,20);(SF);' ';CPONBR$;_
15340 %WW-OE3 0000172E (SB);'ORDER NUMBER ',@(0,21);(SF);' ';ORDNUM$;
15360 %WW-OE3 00001754 (SB);'REP P/O #',@(33,21);(SF);' ';RPONBR$;_
15380 %WW-OE3 00001770 (SF)
15390 %WW-OE3 00001775 !
15400 %WW-OE3 00001775 3860 FORMAT _
15410 %WW-OE3 00001775 (SB);'RESERVE/CANCEL DT',@(0,22);(SF);' ';ZZRESDT$
15420 %WW-OE3 00001796 !
15430 %WW-OE3 00001796 3862 FORMAT _
15440 %WW-OE3 00001796 (SB);'DATE SHIPPED',@(0,22);(SF);' ';SHPDT$;' ';_
15450 %WW-OE3 000017B7 (SB);'INVOICE # ';(SF);' ';INVC$
15460 %WW-OE3 000017CF !
15480 %WW-OE3 000017CF 3870 FORMAT _
15500 %WW-OE3 000017CF (SB);'GRND/SAVER ',@(0,19);(SF);' ';FRT1;' ';_
15510 %WW-OE3 000017F0 (SB);'ZONE';(SF);' ';ZN1$;' ';_
15512 %WW-OE3 0000180C (SB);WGTYDS$;(SF);' ';WGHT;_
15514 %WW-OE3 00001823 (SB);' # PKGS ';(SF);' ';PKGS;_
15520 %WW-OE3 0000183A (SB);'3RD DAY UPS',@(0,20);(SF);' ';FRT3;' ';_
15530 %WW-OE3 0000185B (SB);'ZONE';(SF);' ';ZN3$;_
15540 %WW-OE3 00001872 (SB);'2ND DAY ',@(0,21);(SF);' ';FRT2;' ';_
15550 %WW-OE3 00001893 (SB);'ZONE';(SF);' ';ZN2$;_
15560 %WW-OE3 000018AA (SB);'NEXT DAY ',@(0,22);(SF);' ';FRT4;' ';_
15580 %WW-OE3 000018CB (SB);'ZONE';(SF);' ';ZN4$;(SF)
15600 %WW-OE3 000018E7 !!!! (SB);' ZONE ',@(40,22);(SF);' ';ZONE$;(SF)
15620 %WW-OE3 000018E7 !
15630 %WW-OE3 000018E7 3880 FORMAT _
15730 %WW-OE3 000018E7 (TM),@(0,15);(BF);(BF);(BF);(SF)
15830 %WW-OE3 00001900 !
15930 %WW-OE3 00001900 3890 FORMAT _
16030 %WW-OE3 00001900 @(0,16);(LD)
16130 %WW-OE3 0000190E !
16230 %WW-OE3 0000190E 3900 FORMAT _
16330 %WW-OE3 0000190E (SB);'LOT PIECE QTY ',@(1,15);_
16340 %WW-OE3 0000191C 'ON HAND AVAIL WHS CMNT ';(BF);(SF)
16430 %WW-OE3 0000192A !
16530 %WW-OE3 0000192A 3910 FORMAT _
16580 %WW-OE3 0000192A (TP),@(0,LINE);(TP),@(7,LINE);(TP),@(14,LINE);(TP)
16630 %WW-OE3 0000194C (TM),@(24,LINE);@(0,LINE)
16680 %WW-OE3 0000195F !
16730 %WW-OE3 0000195F 3920 FORMAT _
16740 %WW-OE3 0000195F OLOT$,@(1,LINE);OPCE$,@(8,LINE);OSHPPCE,@(16,LINE)
16750 %WW-OE3 00001987 DISPI1R$,@(25,LINE);@(0,LINE)
16760 %WW-OE3 0000199E !
17000 %WW-OE3 0000199E 3980 FORMAT _
17020 %WW-OE3 0000199E OLINE$,@(0,LINE1);INBR$,@(4,LINE1);_
17040 %WW-OE3 000019B8 OQTYORD,@(18,LINE1),(BZ);PODISP$,@(26,LINE1);_
17060 %WW-OE3 000019D3 OQLINE$,@(33,LINE1);OPRICE,@(38,LINE1);OEXT,@(48,L
17080 %WW-OE3 000019FA PODT$,@(60,LINE1);IUNIT$,@(72,LINE1);_
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 33
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
17100 %WW-OE3 00001A14 DESC$,@(1,LINE2);OTAG$,@(30,LINE2);(SF)
17120 %WW-OE3 00001A33 !
17140 %WW-OE3 00001A33 3984 FORMAT _
17160 %WW-OE3 00001A33 OSHIPVIA$,@(44,8);(SF)
17180 %WW-OE3 00001A45 !
17190 %WW-OE3 00001A45 3986 FORMAT _
17200 %WW-OE3 00001A45 (SB);'TOTAL ',@(53,15);TOTALCTD;'BAL ';ALCTDBAL;(S
17210 %WW-OE3 00001A67 !
19900 %WW-OE3 00001A67 USE '^COOESET'
19900 ^COOESET 00001A67 SET C1A = 1 , M1C = 3 , S1
19904 ^COOESET 00001A67 SET O1A = 6 , O1 = 7 , I1A = 8 , I1P = 9 , Q6
19908 ^COOESET 00001A67 SET O0 = 12 , O2 = 13 , ZONE = 14 , RATE = 15 , T1
19912 ^COOESET 00001A67 SET O1E = 17 , O1B = 18 , Q1 = 20 , CS
19916 ^COOESET 00001A67 SET O1BOR= 22 , C1X = 23 , O6N = 24 , I1R = 25 , V1
19920 ^COOESET 00001A67 SET R1 = 27 , O1H = 30 , O2
19924 ^COOESET 00001A67 SET O1P = 32 , I1X = 33 , O1S = 34 , O1
19928 ^COOESET 00001A67 SET SRTSAV = 37 , SRTCAN = 38
19932 ^COOESET 00001A67 SET O1RD = 39 , O1AWT = 40 , O1WT = 41 , O6NWT=42
19936 ^COOESET 00001A67 SET O1BWT = 43 , O1BRD = 44 , O1SWT = 45 , C1N = 46
19940 ^COOESET 00001A67 SET O1EWT = 47 , R9M = 48 , O1C2 = 49
19944 ^COOESET 00001A67 !
19948 ^COOESET 00001A67 ! THE FOLLOWING FILES ARE OPENED AND CLOSED ON LUN 29 WH
19952 ^COOESET 00001A67 !
19956 ^COOESET 00001A67 SET LP = 29 , C1C = 29 , C1R = 29 , I1CS = 29 , C1AC =
19960 ^COOESET 00001A67 SET O1RA = 29 , S1P = 29 , PW = 29 , O19 = 29
19964 ^COOESET 00001A67 !
19910 %WW-OE3 00001A67 SET SAHCOXRF = 29, V6 = 29
19920 %WW-OE3 00001A67 !
20000 %WW-OE3 00001A67 ! ========== OPEN FILES ==========
20100 %WW-OE3 00001A67 CLEAR LOCAL
20110 %WW-OE3 00000001 MESS$='OE3 '+STR(ZZFRTMIN) + STR(ZZHNDPCT) & GOSUB 900
20120 %WW-OE3 00000032 MESS$=ZSHIPVIA$ + ' * '+ ZZFOB$ & GOSUB 9000
20200 %WW-OE3 00000052 ESCAPETO 5800
20210 %WW-OE3 00000057 WGTYDS$ = 'WEIGHT'
20220 %WW-OE3 00000060 IF ZZFRTYL$ EQ 'Y' _
20230 %WW-OE3 00000060 WGTYDS$ = 'YARDS'
20300 %WW-OE3 00000077 PRINT (0,3360) & PRINT (0,3700)
20320 %WW-OE3 00000085 GOSUB 7880
20600 %WW-OE3 0000008A ZDATE$ = ZZDATE$ & LPDISP$ = ZZLPDISP$
20604 %WW-OE3 0000009C IF LPDISP$ NE 'D' _
20608 %WW-OE3 0000009C LPDISP$ = 'S'
20620 %WW-OE3 000000B3 ZCALCDT8$ = SUB(ZDATE$,7,4)
20640 %WW-OE3 000000CA ZCALCDT8$ = ZCALCDT8$ + SUB(ZDATE$,1,2)
20660 %WW-OE3 000000EA ZCALCDT8$ = ZCALCDT8$ + SUB(ZDATE$,4,2)
21800 %WW-OE3 0000010A ORNBR$ = ZORNBR$ & ZZCO$ = ZCO$ & OSAMPFLG$ = ' '
21820 %WW-OE3 00000125 IF ZMNTTYP$ EQ 'INQ' THEN
21840 %WW-OE3 00000133 READ (O1A,0060)KEY=ORNBR$,EXCP=6540
21860 %WW-OE3 00000142 ELSE
21880 %WW-OE3 00000147 EXTRACT (O1A,0060)KEY=ORNBR$,EXCP=6000
21900 %WW-OE3 00000156 ENDIF
21920 %WW-OE3 00000156 4890 SHIPVIA$ = OSHIPVIA$ ! FOR FREIGHT CALC
21940 %WW-OE3 0000015F STATE$ = OSTATE$ ! FOR FREIGHT CALC
22000 %WW-OE3 00000168 ZGROSS = OGROSS & ZDISCAMT = ODISCAML
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 34
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
22100 %WW-OE3 0000017C ZMISC = OMISC & TRCODE$ = SUB(ORNBR$,1,2)
22200 %WW-OE3 0000019D MCDESC$ = ''
22300 %WW-OE3 000001A6 READ (M1C,0650)KEY='T'+OTERMCDE$,EXCP=4900
22400 %WW-OE3 000001BF 4900 TRMDSC$ = MCDESC$
22500 %WW-OE3 000001C8 XTERMS$ = TRMDSC$
22510 %WW-OE3 000001D1 STERRBE$ = 'W'
22520 %WW-OE3 000001DA READ (S1,0401)KEY=OSNBR1$,EXCP=4910
22530 %WW-OE3 000001E9 4910 CCONSWHS$ = ''
22540 %WW-OE3 000001F2 READ (C1A,0101)KEY=CNBR$,EXCP=4920
22550 %WW-OE3 00000201 4920 !
22560 %WW-OE3 00000201 IF ZZCOID$ EQ 'BE' _ ! 12/18/
22570 %WW-OE3 00000201 READ (Z1,0995)KEY='*SRGDEFAULTS',EXCP=4930
22580 %WW-OE3 0000021E 4930 !
22600 %WW-OE3 0000021E !
50000 %WW-OE3 0000021E ! ========== MAIN LINE CODE ==========
50020 %WW-OE3 0000021E IF SUB(ZMNTTYP$,1,2) EQ 'IT' AND ZMNTTYP$ NE 'ITL' _
50030 %WW-OE3 0000023A GOTO 5800
50040 %WW-OE3 0000024D 5000 PRINT (0,3710) !(BF) L
50044 %WW-OE3 00000254 GOSUB 7812 ! PRINT (0,3180) !LINE I
50060 %WW-OE3 00000259 IF POS(ZOETYPE$,'EB') NE 0 PRINT (0,3190) !DISPLA
50080 %WW-OE3 00000274 5010 IF SLCTLN$ EQ 'Y' _
50084 %WW-OE3 00000274 SLCTLN$ = '' & PRINT (0,3300) & GOTO 5030
50090 %WW-OE3 00000297 GOSUB 7680 ! INITIALIZE
50260 %WW-OE3 0000029C 5026 IF POS(ZOETYPE$,'MOQ') NE 0 OR ZMNTTYP$ EQ 'ITL' _
50270 %WW-OE3 000002B0 GOSUB 7600 !ENTER
50310 %WW-OE3 000002C3 !
50320 %WW-OE3 000002C3 5030 KEYO1$ = ORNBR$ + OLINE$
50324 %WW-OE3 000002D5 GOSUB 7100 !INPUT IT
50330 %WW-OE3 000002DA IF SUB(INBR$,1,1) EQ 'Z' THEN
50332 %WW-OE3 000002F6 IF ZMNTTYP$ NE 'INQ' THEN
50334 %WW-OE3 00000304 GOTO 5068
50336 %WW-OE3 00000309 ELSE
50338 %WW-OE3 0000030E MESS$ = 'NO COMMENT LINES DURING STOCK INQUIRY -
50340 %WW-OE3 00000317 GOSUB 9050
50342 %WW-OE3 0000031C GOTO 5000
50344 %WW-OE3 00000321 ENDIF
50346 %WW-OE3 00000321 ENDIF
50352 %WW-OE3 00000321 IF ZMNTTYP$ EQ 'INQ' _ !IF STOCK
50354 %WW-OE3 00000321 FRTLINE = 0 & PRINT (0,3300) &_ ! DISPLAY
50356 %WW-OE3 00000340 GOSUB 7670 & GOSUB 7174 &_ ! ASK FOR
50358 %WW-OE3 0000034A GOTO 5000 ! & FINIS
50360 %WW-OE3 0000034F !
50362 %WW-OE3 0000034F IF ZZCOID$ EQ 'QU' AND OISFLG$ NE 'S' AND OSLSTYP$ NE
50364 %WW-OE3 0000036B MESS$ = 'ITEM DOES NOT MATCH SALES TYPE CODE - ENTE
50366 %WW-OE3 00000387 GOSUB 7680 & _ ! TLF 03/26/2008 ENFORCE CORRE
50368 %WW-OE3 0000038C GOTO 5030
50370 %WW-OE3 00000391 !
50376 %WW-OE3 00000391 IF ZZCOID$ EQ 'CN' AND OISFLG$ NE 'S' _ ! FOR CHR
50380 %WW-OE3 0000039F GOSUB 7300 ! GO CHEC
50385 %WW-OE3 000003B2 !
50400 %WW-OE3 000003B2 IF OISFLG$ NE 'S' AND (ZOETYPE$ EQ 'E' OR INBR$ NE ZZI
50402 %WW-OE3 000003DC ZZCOID$ NE 'WA' AND ZREPAPRV$ NE 'Q' _ ! TLF 09/
50410 %WW-OE3 000003EA GOSUB 7780 ! ANY DUP
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 35
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
50420 %WW-OE3 000003FD !
50430 %WW-OE3 000003FD IF SQFLAG EQ 1 SQFLAG = 0 &_
50440 %WW-OE3 00000416 SQL1 = 17 & SQL2 = 18 & SQL3 = 19 & _
50450 %WW-OE3 00000434 SQL4 = 20 & SQL5 = 21 & GOSUB SQFTCALC
50460 %WW-OE3 0000044D OQTYORD=SQFT &_
50470 %WW-OE3 00000457 OTAG$=SQDESC$
50480 %WW-OE3 00000460 !
50490 %WW-OE3 00000460 GOSUB 7160 !INPUT QT
50500 %WW-OE3 00000465 GOSUB 7380 !CALC EXT
50510 %WW-OE3 0000046A IF O1CUTYRD$ EQ '' OR O1CUTYRD$ EQ ' ' OR _ ! 02/26/
50520 %WW-OE3 00000486 (POS(ZOETYPE$,'B*E*Q') NE 0 AND O1CUTYRD$ EQ 'Y' AN
50530 %WW-OE3 000004A8 QTYAVL GT 0 AND CHKQTY LE QTYAVL) _
50540 %WW-OE3 000004C6 GOSUB 7900
50550 %WW-OE3 000004CB IF POS(ZOETYPE$,'EB') NE 0 OR INBR$ NE ZZINBR$ _
50560 %WW-OE3 000004DF CUST$ = CNBR$ & GOSUB 7764 !SPECIAL
50562 %WW-OE3 000004FB CALCPRC = OPRICE !SAVE CAL
50570 %WW-OE3 00000505 !
50580 %WW-OE3 00000505 IF OISFLG$ NE 'S' _
50590 %WW-OE3 00000505 GOSUB 7260 !INPUT MI
50600 %WW-OE3 00000518 !
50610 %WW-OE3 00000518 !!!! GOSUB 7340 !INPUT PR
50620 %WW-OE3 00000518 GOSUB 7380 !CALCULAT
50660 %WW-OE3 0000051D !
50680 %WW-OE3 0000051D 5068 GOSUB 7360 !INPUT TA
50700 %WW-OE3 00000522 !
50710 %WW-OE3 00000522 IF ZZCOID$ EQ 'IN' AND IPRICE2 NE 0 AND IPBP2 NE 0 THE
50720 %WW-OE3 0000054E MESS$ = 'Discount available for Qty '
50730 %WW-OE3 00000557 MESS$ = MESS$ + STRIP(STR(IPBP2))
50740 %WW-OE3 00000575 MESS$ = MESS$ + ' $' + STRIP(STR(IPRICE2))
50750 %WW-OE3 000005A1 MESS$ = MESS$ + ', Qty ' + STRIP(STR(IPBP3))
50760 %WW-OE3 000005CD MESS$ = MESS$ + ' $' + STRIP(STR(IPRICE3))
50770 %WW-OE3 000005F9 MESS$ = MESS$ + ' - ENTER'
50780 %WW-OE3 0000060B GOSUB 9000
50790 %WW-OE3 00000610 ENDIF
50800 %WW-OE3 00000610 !
50900 %WW-OE3 00000610 5100 MESS$ = 'CORRECT? (Y/N/Price/'
50902 %WW-OE3 00000619 IF OQTYBOD EQ 0 THEN
50904 %WW-OE3 00000628 IF ORETURN$ NE 'N' AND INVUPDT$ NE 'N' THEN
50906 %WW-OE3 00000644 IF O1CUTYRD$ NE 'Y' THEN
50908 %WW-OE3 00000652 MESS$ = MESS$ + 'Asgn pcs/'
50910 %WW-OE3 00000664 IF ZOETYPE$ EQ 'M' MESS$ = MESS$ + 'Modify pc
50912 %WW-OE3 00000684 ENDIF
50914 %WW-OE3 00000684 MESS$ = MESS$ + 'Dsply pcs/'
50916 %WW-OE3 00000696 IF ZOETYPE$ EQ 'E' _
50918 %WW-OE3 00000696 MESS$ = MESS$ + 'B-O/'
50920 %WW-OE3 000006B6 ENDIF
50922 %WW-OE3 000006B6 ENDIF
50924 %WW-OE3 000006B6 MESS$ = MESS$ + 'exTcmnts/' ! TLF 09/08/2006, WAS
50926 %WW-OE3 000006C8 IF ZZFURNAC$ EQ 'Y' MESS$ = MESS$ + 'aCtn cds/'
50928 %WW-OE3 000006E8 !
50930 %WW-OE3 000006E8 CostOverride = 0
50932 %WW-OE3 000006F2 IF (ZOETYPE$ EQ 'E' AND POS(ZZCOID$,'BE*JA') NE 0 AND
50934 %WW-OE3 00000714 O1CUTYRD$ EQ 'Y' AND _
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 36
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
50936 %WW-OE3 00000722 (ODISCPCT NE 0 OR OPRICE NE CALCPRC OR _
50938 %WW-OE3 00000740 SUB(OCORNBR$,1,7) EQ 'CONSIGN')) OR OCSTOVRD$ EQ '
50940 %WW-OE3 00000761 CostOverride = 1
50942 %WW-OE3 00000779 !
50952 %WW-OE3 00000779 IF CostOverride EQ 1 _
50964 %WW-OE3 00000779 MESS$ = MESS$ + 'Unitcost/'
50968 %WW-OE3 0000079A IF POS(ZOETYPE$,'EM') NE 0 AND OSLSTYP$ EQ 'OL' AND OQ
50972 %WW-OE3 000007CB ZZCOID$ EQ 'IN' AND STRIP(OQORNBR$) EQ '' _
50976 %WW-OE3 000007DF MESS$ = MESS$ + 'Lead time/' ! TLF 05/30/2008
51000 %WW-OE3 000007FF MESS$ = MESS$ + 'End)'
51002 %WW-OE3 00000811 GOSUB 9000
51004 %WW-OE3 00000816 IF AN$ EQ 'E' OR AN$ EQ 'END' THEN
51006 %WW-OE3 00000832 IF ZOETYPE$ EQ 'E' OR ZOETYPE$ EQ 'B' _
51008 %WW-OE3 00000840 GOSUB 7820
51010 %WW-OE3 00000853 GOTO 5000
51012 %WW-OE3 00000858 ENDIF
51014 %WW-OE3 00000858 IF AN$ EQ 'T' _ ! IF ZZFURNAC$ EQ 'Y' AND... T
51016 %WW-OE3 00000858 GOSUB EXTCOMMENTRY & ESCAPETO 5800
51018 %WW-OE3 00000870 IF ZZFURNAC$ EQ 'Y' AND AN$ EQ 'C' _
51020 %WW-OE3 0000087E GOSUB ACTIONCDENTRY
51032 %WW-OE3 00000891 IF CostOverride EQ 1 AND AN$ EQ 'U' _
51040 %WW-OE3 000008A0 GOSUB 8160 & GOTO 5100
51042 %WW-OE3 000008B8 IF ZOETYPE$ EQ 'M' AND POS(ZZCOID$,'BE*JA') NE 0 AND _
51044 %WW-OE3 000008DA O1CUTYRD$ EQ 'Y' AND AN$ EQ 'U' GOSUB 8160 & GOTO 5
51046 %WW-OE3 00000900 !
51048 %WW-OE3 00000900 IF AN$ EQ 'P' OR AN$ EQ 'PRICE' _
51050 %WW-OE3 0000090E GOSUB 7340 & GOSUB 7380 & GOTO 5100
51052 %WW-OE3 0000092B IF AN$ EQ 'N' OR AN$ EQ 'NO' THEN
51054 %WW-OE3 00000947 IF ZOETYPE$ NE 'M' AND SLCTLN$ NE 'Y' GOSUB 7820 &
51056 %WW-OE3 0000096D GOTO 5026 ! ABOVE AND... ADDED 01/15/2004
51058 %WW-OE3 00000972 ENDIF
51060 %WW-OE3 00000972 !
51062 %WW-OE3 00000972 IF AN$ EQ 'M' AND ZOETYPE$ EQ 'M' AND OQTYBOD EQ 0 AND
51064 %WW-OE3 0000099D OLOT$ = '' & OPCE$ = '' & OSHPPCE = 0 & DISPI1R$ =
51066 %WW-OE3 000009D0 TOTALCTD = OQTYORD & PRINT (0,3900) & LINE = 16 & H
51068 %WW-OE3 000009F4 GOSUB 7890 & GOSUB 7923 & GOTO 5100 ! 51062-51
51070 %WW-OE3 00000A03 IF AN$ EQ 'A' AND O1CUTYRD$ NE 'Y' _
51072 %WW-OE3 00000A11 GOSUB 7820 & GOSUB 7904 & GOTO 5100
51074 %WW-OE3 00000A2E IF AN$ EQ 'D' GOSUB 8000 & _
51076 %WW-OE3 00000A41 PRINT (0,3880) & PRINT (0,3710) & GOTO 5100
51080 %WW-OE3 00000A54 IF ZOETYPE$ EQ 'E' AND OQTYBOD EQ 0 AND _
51084 %WW-OE3 00000A71 (AN$ EQ 'B' OR AN$ EQ 'B-O') THEN
51088 %WW-OE3 00000A8D 5110 MESS$ = 'BACKORDER THIS LINE? (Yes/No)'
51090 %WW-OE3 00000A96 GOSUB 9000
51092 %WW-OE3 00000A9B IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 5100
51094 %WW-OE3 00000ABC IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 5110
51096 %WW-OE3 00000ADD GOSUB 7820 & OQTYBOD = OQTYORD & OMANBO$ = 'Y'
51098 %WW-OE3 00000AF5 PODISP$ = 'BCKORD' & PRINT (0,3300)
51100 %WW-OE3 00000B05 ENDIF
51102 %WW-OE3 00000B05 IF (AN$ EQ 'L' OR AN$ EQ 'LEAD') AND POS(ZOETYPE$,'EM'
51104 %WW-OE3 00000B35 ZZCOID$ EQ 'IN' AND OSLSTYP$ EQ 'OL' AND OQTYBOD GT
51106 %WW-OE3 00000B60 STRIP(OQORNBR$) EQ '' THEN
51108 %WW-OE3 00000B74 5112 MESS$ = 'ENTER LEAD TIME IN WEEKS'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 37
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
51110 %WW-OE3 00000B7D IF OLEADTM NE 0 _
51112 %WW-OE3 00000B7D MESS$ = MESS$ + ' (' + STRIP(STR(OLEADTM)) +
51114 %WW-OE3 00000BC1 GOSUB 9000
51116 %WW-OE3 00000BC6 OLEADTM = NUM(AN$,ERR)
51118 %WW-OE3 00000BD5 IF OLEADTM LT 0 OLEADTM = 0
51120 %WW-OE3 00000BEE IF OLEADTM GT 99 OLEADTM = 99
51122 %WW-OE3 00000C07 GOTO 5100
51124 %WW-OE3 00000C0C ENDIF
51128 %WW-OE3 00000C0C !
51130 %WW-OE3 00000C0C IF AN$ NE 'Y' AND AN$ NE 'YES' AND AN$ NE '' GOTO 5100
51134 %WW-OE3 00000C3B PRINT (0,3710) ! (BF) DISPLAY AREA
51140 %WW-OE3 00000C42 IF SUB(INBR$,1,1) EQ 'Z' THEN
51160 %WW-OE3 00000C5E OQTYORD = 0 & OQTYSHP = 0 & OQTYREL = 0
51180 %WW-OE3 00000C7C OQTYBIL = 0 & OEXT = 0
51184 %WW-OE3 00000C90 OPRICE = 0 & IPATTERN$ = ''
51188 %WW-OE3 00000CA3 OCOMPCT1 = 0 & OCOMPCT2 = 0
51192 %WW-OE3 00000CB7 ENDIF
51196 %WW-OE3 00000CB7 IF OISFLG$ NE 'S' THEN
51200 %WW-OE3 00000CC5 IF OQTYORD GE SPQTY OCOMPCT1 = SPCOMM
51202 %WW-OE3 00000CDF IF OCOMPCT1 EQ 0 THEN
51204 %WW-OE3 00000CEE FLNM$ = ZZCO$ + 'S1P' & CLOSE (S1P) !TLF
51206 %WW-OE3 00000D03 OPEN (S1P) FLNM$ ! ""
51208 %WW-OE3 00000D0A READ (S1P,0402)KEY=OSNBR1$+IPL$,EXCP=5120
51212 %WW-OE3 00000D23 IF SCOMMFLG$ EQ 'Y' GOTO 5123
51216 %WW-OE3 00000D36 OCOMPCT1 = SPRCOMM
51220 %WW-OE3 00000D40 5120 CLOSE (S1P) !TLF
51222 %WW-OE3 00000D43 ENDIF
51224 %WW-OE3 00000D43 IF OCOMPCT1 EQ 0 _
51228 %WW-OE3 00000D43 OCOMPCT1 = ZCOMPCT
51232 %WW-OE3 00000D5C 5123 ENDIF
51236 %WW-OE3 00000D5C !
51240 %WW-OE3 00000D5C IF ZOETYPE$ EQ 'E' AND OQTYBOD NE 0 _ ! TLF 03/21/20
51250 %WW-OE3 00000D6A GOSUB 7820 ! INSURE B/O HAS NO PIE
51260 %WW-OE3 00000D7E !
51270 %WW-OE3 00000D7E IF ZOETYPE$ EQ 'M' AND OCSTOVRD$ EQ 'Y' THEN
51280 %WW-OE3 00000D9A IF ZQTYORD NE OQTYORD THEN
51290 %WW-OE3 00000DA9 WORK72 = OICOST / ZQTYORD
51300 %WW-OE3 00000DB7 OICOST = OQTYORD * WORK72
51310 %WW-OE3 00000DC5 ENDIF
51320 %WW-OE3 00000DC5 ENDIF
51330 %WW-OE3 00000DC5 !
51370 %WW-OE3 00000DC5 IF ZZINBR$ NE '' AND SUB(ZZINBR$,1,1) NE 'Z' AND _
51374 %WW-OE3 00000DEF ZOISFLG$ NE 'S' THEN
51380 %WW-OE3 00000DFD UPDTITEM$ = ZZINBR$
51382 %WW-OE3 00000E06 IF ZIINBR$ NE '' AND ZIINBR$ NE ' '
51386 %WW-OE3 00000E14 UPDTITEM$ = ZIINBR$
51388 %WW-OE3 00000E2B QTYORD = ZQTYORD & QTYBOD = ZQTYBOD
51390 %WW-OE3 00000E3F QOR$ = XQORNBR$ & QLN$ = XQLINE$
51392 %WW-OE3 00000E51 ZZINVUPD$ = INVUPDT$ & INVUPDT$ = ZINVUPDT$
51394 %WW-OE3 00000E63 PLSORMIN = -1 & GOSUB 7200
51396 %WW-OE3 00000E73 INVUPDT$ = ZZINVUPD$
51398 %WW-OE3 00000E7C IF SUB(INBR$,1,1) EQ 'Z' _
51400 %WW-OE3 00000E8A GOSUB 7820 ! IF ITEM # CHANGE TO CMNT BACK O
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 38
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
51410 %WW-OE3 00000E9D ENDIF
51414 %WW-OE3 00000E9D IF SUB(INBR$,1,1) NE 'Z' AND _ !!!! ZREPAPRV$ NE 'N'
51420 %WW-OE3 00000EB9 OISFLG$ NE 'S' THEN
51440 %WW-OE3 00000EC7 UPDTITEM$ = INBR$
51460 %WW-OE3 00000ED0 IF ALTITEM$ NE '' AND ALTITEM$ NE '
51480 %WW-OE3 00000EDE UPDTITEM$ = ALTITEM$
51500 %WW-OE3 00000EF5 !!!! IF ZMNTTYP$ EQ 'BOR' OQTYORD = OQTYREL &_
51520 %WW-OE3 00000EF5 !!!! OEXT = OQTYORD * OPRICE
51540 %WW-OE3 00000EF5 QTYORD = OQTYORD & QTYBOD = OQTYBOD
51560 %WW-OE3 00000F09 QOR$ = OQORNBR$ & QLN$ = OQLINE$
51580 %WW-OE3 00000F1B PLSORMIN = 1 & GOSUB 7200
51584 %WW-OE3 00000F2A IF ZOETYPE$ EQ 'M' AND _
51588 %WW-OE3 00000F38 (ZZINBR$ NE INBR$ OR ZQTYORD NE OQTYORD) THEN
51592 %WW-OE3 00000F55 READ (SRTSAV,0000)KEY=ORNBR$+OLINE$,EXCP=5
51596 %WW-OE3 00000F6E WRITE (SRTCAN,0000)KEY=ORNBR$+OLINE$
51600 %WW-OE3 00000F83 DELETE (SRTSAV)KEY=ORNBR$+OLINE$,EXCP=5160
51604 %WW-OE3 00000F98 5160 ENDIF
51608 %WW-OE3 00000F98 ENDIF
51620 %WW-OE3 00000F98 INBR$ = INBR$ + ' '
51640 %WW-OE3 00000FAA !!!! IF POS(ZOETYPE$,'B*O') NE 0 AND _
51644 %WW-OE3 00000FAA !!!! (INBR$ NE ZZINBR$ OR OQTYORD NE ZQTYORD) _
51648 %WW-OE3 00000FAA !!!! GOSUB 7820 & OQTYSHP = 0
51660 %WW-OE3 00000FAA IF TRCODE$ EQ 'CM' AND SUB(INBR$,1,1) NE 'Z' THEN
51680 %WW-OE3 00000FD4 5168 MESS$ = 'enter return code or ?'
51700 %WW-OE3 00000FDD GOSUB 9000
51720 %WW-OE3 00000FE2 ORETCD$ = AN$
51723 %WW-OE3 00000FEB IF SUB(ORETCD$,1,1) EQ '?' AN$='E' &_
51726 %WW-OE3 00001010 PRINT(#) AN$ &_
51729 %WW-OE3 0000101B ENTER 'DLG4M1C' &_
51732 %WW-OE3 00001021 INPUT(#) ORETCD$
51735 %WW-OE3 0000102C !
51740 %WW-OE3 0000102C READ (M1C,0650)KEY='E'+ORETCD$,EXCP=6560
51760 %WW-OE3 00001045 5176 MESS$ = 'RETURN CODE ' + MCDESC$ + ' - OK? (Y/N)'
51780 %WW-OE3 00001060 GOSUB 9000
51800 %WW-OE3 00001065 IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 5168
51820 %WW-OE3 00001086 IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 5176
51840 %WW-OE3 000010A7 ENDIF
51860 %WW-OE3 000010A7 !!!! IF INVUPDT$ EQ 'N' _
51862 %WW-OE3 000010A7 !!!! OQTYSHP = OQTYORD & OQTYBIL = OQTYORD
51864 %WW-OE3 000010A7 UPDTITEM$ = INBR$ + ' '
51868 %WW-OE3 000010B9 IF ZZINBR$ NE '' UPDTITEM$ = ZZINBR$
51880 %WW-OE3 000010D0 IF ZOETYPE$ NE 'E' _
51884 %WW-OE3 000010D0 DELETE (O1B)KEY=ZZINBR$+CNBR$+ORNBR$+OLINE$,EXCP=51
51900 %WW-OE3 00001105 5190 !!!! IF TRCODE$ EQ 'CM' AND ORETURN$ NE 'Y' _
51920 %WW-OE3 00001105 !!!! OQTYBIL = OQTYORD
51924 %WW-OE3 00001105 IF POS(ZOETYPE$,'EMB') NE 0 AND OQTYBOD EQ 0 _
51928 %WW-OE3 00001119 OQTYSHP = OQTYORD & OQTYBIL = OQTYORD
51930 %WW-OE3 0000113C IF POS(ZOETYPE$,'EMB') NE 0 AND OFRTCODE$ EQ ' ' AND _
51932 %WW-OE3 0000115E STRIP(IFRTCODE$) NE '' OFRTCODE$ = IFRTCODE$
51934 %WW-OE3 0000117B IF ZZCOID$ EQ 'IN' AND OISFLG$ NE 'S' AND OPRICE NE 0
51936 %WW-OE3 000011A6 IF ODSCFLG$ EQ 'L' THEN
51940 %WW-OE3 000011B4 GOSUB 8360
51942 %WW-OE3 000011B9 ELSE
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 39
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
51944 %WW-OE3 000011BE IF OPRICE NE ZPRICE THEN
51946 %WW-OE3 000011CD ODSCFLG$ = 'L'
51948 %WW-OE3 000011D6 GOSUB 8360
51950 %WW-OE3 000011DB ENDIF
51952 %WW-OE3 000011DB ENDIF
51954 %WW-OE3 000011DB ENDIF
51956 %WW-OE3 000011DB !
51970 %WW-OE3 000011DB WRITE (O1,0065)KEY=ORNBR$+OLINE$
51976 %WW-OE3 000011F0 IF ZOETYPE$ NE 'E' _
51978 %WW-OE3 000011F0 WRITE (O1B,0000)KEY=INBR$+CNBR$+ORNBR$+OLINE$
51980 %WW-OE3 00001225 !!!! IF ZOETYPE$ EQ 'B' AND _
51984 %WW-OE3 00001225 !!!! (TRCODE$ EQ 'DI' OR (TRCODE$ EQ 'CM' AND ORETURN$ E
51988 %WW-OE3 00001225 !!!! GOSUB 7820
51989 %WW-OE3 00001225 !RINT (0) '@011000@';O1CUTYRD$;'*';ZOETYPE$;'*';INBR$;'*';OC
51990 %WW-OE3 00001225 !STKCFA$;'*' & INPUT (0) ''
51992 %WW-OE3 00001225 IF O1CUTYRD$ EQ 'Y' AND POS(ZOETYPE$,'EB') NE 0 AND _
51996 %WW-OE3 00001247 SUB(INBR$,1,1) NE 'Z' AND STRIP(OCFASTK$) EQ '' AND
52000 %WW-OE3 00001277 ISTKCFA$ EQ 'Y' _
52004 %WW-OE3 00001277 OCFASTK$ = 'Y' ! 01/16/2004 TO FIX C/Y C
52040 %WW-OE3 0000128E IF SLCTLN$ EQ '' _
52060 %WW-OE3 0000128E ZLINE$ = SUB(STR(NUM(ZLINE$,ERR)+1001),6,3)
52080 %WW-OE3 000012C8 OLINE$ = ZLINE$
52100 %WW-OE3 000012D1 SLCTLN$ = ''
52120 %WW-OE3 000012DA !!!! IF POS(ZOETYPE$,'BO') EQ 0 THEN
52140 %WW-OE3 000012DA IF LINE1 EQ 13 THEN
52160 %WW-OE3 000012E9 PRINT (0,3710) !(BF)
52180 %WW-OE3 000012F0 PRINT (0,3330) !(LD)
52200 %WW-OE3 000012F7 ELSE
52220 %WW-OE3 000012FC LINE1 = LINE1 + 2
52240 %WW-OE3 0000130B LINE2 = LINE1 + 1
52260 %WW-OE3 0000131A LINE3 = LINE2 + 1
52280 %WW-OE3 00001329 ENDIF
52300 %WW-OE3 00001329 !!!! ELSE
52320 %WW-OE3 00001329 !!!! PRINT (0,3440)
52340 %WW-OE3 00001329 !!!! ENDIF
52360 %WW-OE3 00001329 GOTO 5000
52380 %WW-OE3 0000132E !
54500 %WW-OE3 0000132E !
58000 %WW-OE3 0000132E ! ========== END OF LINE INPUT. CALC TOTALS & DISPLAY =====
58004 %WW-OE3 0000132E 5800 IF ZMNTTYP$ EQ 'INQ' GOTO 5990
58008 %WW-OE3 00001341 !!!! IF OSAMPFLG$ EQ ' ' AND _
58010 %WW-OE3 00001341 !!!! (ZOETYPE$ EQ 'E' OR ZOETYPE$ EQ 'B') OSAMPFLG$ = SM
58012 %WW-OE3 00001341 !!!! WRITE (O1A,0060) ! TLF, BANGED OUT 11/13/2008 SE
58016 %WW-OE3 00001341 !!!! IF ZOETYPE$ EQ 'O' OR _ !!!! AND OSAMPFLG$ NE 'Y'
58020 %WW-OE3 00001341 !!!! (ZOETYPE$ EQ 'B' AND _ !!!! OSAMPFLG$ NE 'Y' AND
58024 %WW-OE3 00001341 !!!! (TRCODE$ EQ 'DI' OR (TRCODE$ EQ 'CM' AND ORETURN$ E
58028 %WW-OE3 00001341 !!!! MESS$ = 'PRESS ENTER TO CONTINUE WITH LOT/PIECE ENT
58032 %WW-OE3 00001341 !!!! GOSUB 9000 & RUN 'WWOE7'
58090 %WW-OE3 00001341 !
58100 %WW-OE3 00001341 IF ZZCOID$ EQ 'IN' AND ODSCFLG$ EQ 'L' THEN ! TLF 11
58110 %WW-OE3 0000135D READ (O1,0065)KEY=ORNBR$,EXCP=5812
58120 %WW-OE3 0000136C 5812 KEYO1$ = KEY(O1,EXCP=5820)
58130 %WW-OE3 0000137C IF SUB(KEYO1$,1,9) NE ORNBR$ GOTO 5820
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 40
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
58140 %WW-OE3 0000139D INQUIRE (O1,0065)
58150 %WW-OE3 000013A4 IF SUB(INBR$,1,1) EQ 'Z' GOTO 5812
58160 %WW-OE3 000013C5 IF OISFLG$ EQ 'S' GOTO 5812
58170 %WW-OE3 000013D8 IF OPRICE NE 0 AND OLDSCAMT NE 0 _
58180 %WW-OE3 000013E7 GOTO 5824 ! AT LEAST ONE DISCOUNTED LINE W
58190 %WW-OE3 000013FB GOTO 5812
58200 %WW-OE3 00001400 5820 !
58210 %WW-OE3 00001400 ODSCFLG$ = '' ! CLEAR LINE DISCOUNT FLAG AS NO
58220 %WW-OE3 00001409 ! WERE FOUND
58230 %WW-OE3 00001409 ENDIF
58240 %WW-OE3 00001409 5824 !
58290 %WW-OE3 00001409 !
58300 %WW-OE3 00001409 IF ZZCOID$ EQ 'IN' AND OSLSTYP$ EQ 'OL' AND OFURNOPA$
58310 %WW-OE3 00001433 READ (O1,0065)KEY=ORNBR$,EXCP=5832 ! TLF 04/0
58320 %WW-OE3 00001442 5832 KEYO1$ = KEY(O1,EXCP=5844)
58330 %WW-OE3 00001452 IF SUB(KEYO1$,1,9) NE ORNBR$ GOTO 5844
58340 %WW-OE3 00001473 INQUIRE (O1,0065)
58350 %WW-OE3 0000147A IF SUB(INBR$,1,1) EQ 'Z' GOTO 5832
58360 %WW-OE3 0000149B IF OISFLG$ EQ 'S' GOTO 5832
58370 %WW-OE3 000014AE IF STRIP(OQORNBR$) NE '' _
58380 %WW-OE3 000014B4 GOTO 5840 ! AT LEAST ONE LINE HAS P/O ASSI
58390 %WW-OE3 000014C7 GOTO 5832
58400 %WW-OE3 000014CC 5840 !
58410 %WW-OE3 000014CC OFURNOPA$ = 'M' ! SET OPEN LINE RELEASE FLAG TO
58420 %WW-OE3 000014D5 ! FLAG INDICATES P/O ASSIGNED IN
58430 %WW-OE3 000014D5 ENDIF
58440 %WW-OE3 000014D5 5844 !
58450 %WW-OE3 000014D5 !
58500 %WW-OE3 000014D5 5850 !
58510 %WW-OE3 000014D5 WRITE (O1A,0060)KEY=ORNBR$
58520 %WW-OE3 000014E0 !
59000 %WW-OE3 000014E0 5900 !
59010 %WW-OE3 000014E0 RUN 'WWIT'
59020 %WW-OE3 000014E6 !
59900 %WW-OE3 000014E6 5990 PRINT (0,3360)
59920 %WW-OE3 000014ED ZMNTTYP$ = ''
59940 %WW-OE3 000014F6 RUN 'WWOE2'
59960 %WW-OE3 000014FC !
59998 %WW-OE3 000014FC ! =============== EXCEPTION CODING GOES HERE ==========
59999 %WW-OE3 000014FC !
60000 %WW-OE3 000014FC 6000 MESS$ = 'ORDER HEADER RECORD LOCKED ELSEWHERE - ENTER'
60020 %WW-OE3 00001505 IF EXCP NE 33 _
60040 %WW-OE3 00001505 MESS$ = 'EXCP = ' + STR(EXCP) &_
60060 %WW-OE3 0000152C MESS$ = MESS$ + ' ON ORDER HEADER FILE - ENTER'
60080 %WW-OE3 0000153E GOSUB 9000
60100 %WW-OE3 00001543 GOTO 5990
60120 %WW-OE3 00001548 !
60800 %WW-OE3 00001548 6080 IF SUB(ZINBR$,1,1) EQ 'Z' INBR$ = ZINBR$ & GOTO 7154
60810 %WW-OE3 00001572 MESS$ = 'ITEM RECORD IS LOCKED ELSEWHERE - ENTER'
60820 %WW-OE3 0000157B IF EXCP EQ 32 AND ZZCOID$ EQ 'BE' GOTO 6400
60821 %WW-OE3 0000159D !
60823 %WW-OE3 0000159D IF EXCP EQ 32 AND ZZCOID$ EQ 'RL' AND STRIP(ZINBR$) NE
60824 %WW-OE3 000015CE PRINT(#) ZINBR$
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 41
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
60825 %WW-OE3 000015D9 ENTER "DLG4I1A"
60826 %WW-OE3 000015DF INPUT(#) ZINBR$
60827 %WW-OE3 000015EA IF STRIP(ZINBR$) NE '' GOTO 7123
60828 %WW-OE3 00001603 GOTO 7100
60829 %WW-OE3 00001608 ENDIF
60830 %WW-OE3 00001608 !
60835 %WW-OE3 00001608 IF EXCP EQ 32 _
60840 %WW-OE3 00001608 MESS$ = 'item # ' + ZINBR$ + ' not on file - (L)ist
60860 %WW-OE3 00001632 IF EXCP NE 32 AND EXCP NE 33 _
60880 %WW-OE3 00001641 MESS$ = 'EXCP =' + STR(EXCP) &_
60900 %WW-OE3 00001668 MESS$ = MESS$ + ' ON ITEM FILE - ENTER'
60920 %WW-OE3 0000167A GOSUB 9050
60922 %WW-OE3 0000167F !
60924 %WW-OE3 0000167F IF AN$ EQ 'L' AND STRIP(ZINBR$) NE '' THEN
60926 %WW-OE3 000016A1 PRINT(#) ZINBR$
60928 %WW-OE3 000016AC ENTER "DLG4I1A"
60930 %WW-OE3 000016B2 INPUT(#) ZINBR$
60932 %WW-OE3 000016BD IF STRIP(ZINBR$) NE '' GOTO 7123
60936 %WW-OE3 000016D6 ENDIF
60938 %WW-OE3 000016D6 !
60940 %WW-OE3 000016D6 GOTO 7100
60960 %WW-OE3 000016DB !
61000 %WW-OE3 000016DB 6100 MESS$ = 'PATTERN RECORD IS LOCKED ELSEWHERE - ENTER'
61020 %WW-OE3 000016E4 IF EXCP EQ 32 _
61040 %WW-OE3 000016E4 MESS$ = 'PATTERN # NOT ON FILE - ENTER'
61060 %WW-OE3 000016FC IF EXCP NE 32 AND EXCP NE 33 _
61080 %WW-OE3 0000170B MESS$ = 'EXCP =' + STR(EXCP) &_
61100 %WW-OE3 00001732 MESS$ = MESS$ + ' ON PATTERN FILE - ENTER'
61120 %WW-OE3 00001744 GOSUB 9050
61140 %WW-OE3 00001749 GOTO 7100
61160 %WW-OE3 0000174E !
61200 %WW-OE3 0000174E 6120 MESS$ = 'SPECIFIED JOB RECORD LOCKED IN ISJ - ENTER'
61220 %WW-OE3 00001757 IF EXCP NE 33 _
61240 %WW-OE3 00001757 MESS$ = 'EXCP = ' + STR(EXCP) &_
61260 %WW-OE3 0000177E MESS$ = MESS$ + ' ON SPECIFIED JOB FILE - ENTER'
61280 %WW-OE3 00001790 GOSUB 9050
61300 %WW-OE3 00001795 GOTO 7170
61320 %WW-OE3 0000179A !
61400 %WW-OE3 0000179A 6140 IF EXCP EQ 33 AGAIN
61410 %WW-OE3 000017AA GOTO 7420
61420 %WW-OE3 000017AF !
61430 %WW-OE3 000017AF 6143 IF EXCP EQ 33 AGAIN
61440 %WW-OE3 000017BF GOTO 7470
61450 %WW-OE3 000017C4 !
61600 %WW-OE3 000017C4 6160 IF EXCP EQ 33 _
61620 %WW-OE3 000017C4 MESS$ = 'STOCK RECORD LOCKED ELSEWHERE - ENTER' &_
61640 %WW-OE3 000017DC GOSUB 9050 & AGAIN
61660 %WW-OE3 000017E2 GOTO 7520
61680 %WW-OE3 000017E7 !
61800 %WW-OE3 000017E7 6180 IF EXCP EQ 33 _
61820 %WW-OE3 000017E7 MESS$ = 'P/O BY ITEM RECORD LOCKED ELSEWHERE - ENTE
61840 %WW-OE3 000017FF GOSUB 9050 & AGAIN
61860 %WW-OE3 00001805 GOTO 7570
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 42
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
61880 %WW-OE3 0000180A !
62000 %WW-OE3 0000180A 6200 IF EXCP EQ 33 _
62020 %WW-OE3 0000180A MESS$ = 'P/O DETAIL LINE LOCKED ELSEWHERE - ENTER'
62040 %WW-OE3 00001822 GOSUB 9050 & AGAIN
62060 %WW-OE3 00001828 MESS$ = 'EXCP = ' + STR(EXCP)
62080 %WW-OE3 00001840 MESS$ = MESS$ + ' ON KEY ' + KEY$ + ' FILE Q1 - ENTER'
62100 %WW-OE3 00001864 GOSUB 9050
62120 %WW-OE3 00001869 GOTO 7570
62140 %WW-OE3 0000186E !
62200 %WW-OE3 0000186E 6220 IF EXCP EQ 33 _
62220 %WW-OE3 0000186E MESS$ = 'ITEM RECORD LOCKED ELSEWHERE - ENTER' &_
62240 %WW-OE3 00001886 GOSUB 9050 & AGAIN
62244 %WW-OE3 0000188C IF UPDTITEM$ NE 'Z' AND UPDTITEM$ EQ ' '
62260 %WW-OE3 000018A8 MESS$ = 'EXCP = ' + STR(EXCP)
62280 %WW-OE3 000018C0 MESS$ = MESS$ + ' ON ITEM ' + UPDTITEM$
62290 %WW-OE3 000018DB MESS$ = MESS$ + ' FILE I1A - ENTER'
62300 %WW-OE3 000018ED GOSUB 9050
62310 %WW-OE3 000018F2 ENDIF
62320 %WW-OE3 000018F2 GOTO 7230
62340 %WW-OE3 000018F7 !
62400 %WW-OE3 000018F7 6240 IF EXCP EQ 32 GOTO 7217
62410 %WW-OE3 0000190B IF EXCP EQ 33 _
62420 %WW-OE3 0000190B MESS$ = 'P/O DETAIL LINE LOCKED ELSEWHERE - ENTER'
62440 %WW-OE3 00001923 GOSUB 9050 & AGAIN
62460 %WW-OE3 00001929 MESS$ = 'EXCP = ' + STR(EXCP)
62480 %WW-OE3 00001941 MESS$ = MESS$ + ' ON P/O DETAIL LINE FILE Q1 - ENTER'
62500 %WW-OE3 00001953 GOSUB 9050
62520 %WW-OE3 00001958 GOTO 7217
62540 %WW-OE3 0000195D !
62800 %WW-OE3 0000195D 6280 IF EXCP EQ 33 _
62820 %WW-OE3 0000195D MESS$ = 'VENDOR FILE RECORD LOCKED ELSEWHERE - ENTE
62840 %WW-OE3 00001975 GOSUB 9050 & AGAIN
62860 %WW-OE3 0000197B MESS$ = 'EXCP = ' + STR(EXCP)
62880 %WW-OE3 00001993 MESS$ = MESS$ + ' ON VENDOR RECORD FILE V1 - ENTER'
62920 %WW-OE3 000019A5 IF EXCP NE 32 GOSUB 9050
62940 %WW-OE3 000019B9 GOTO 7150
62960 %WW-OE3 000019BE !
63000 %WW-OE3 000019BE 6300 IF EXCP EQ 33 _
63020 %WW-OE3 000019BE MESS$ = 'LINE DETAIL RECORD LOCKED ELSEWHERE - ENTE
63040 %WW-OE3 000019D6 GOSUB 9050 & AGAIN
63060 %WW-OE3 000019DC MESS$ = 'EXCP = ' + STR(EXCP)
63080 %WW-OE3 000019F4 MESS$ = MESS$ + ' ON LINE DETAIL RECORD FILE O1 - ENTE
63100 %WW-OE3 00001A06 GOSUB 9050
63120 %WW-OE3 00001A0B GOTO 7720
63140 %WW-OE3 00001A10 !
63200 %WW-OE3 00001A10 6320 IF EXCP EQ 33 _
63210 %WW-OE3 00001A10 MESS$ = 'LOT RECORD LOCKED ELSEWHERE - ENTER' &_
63220 %WW-OE3 00001A28 GOSUB 9050 & GOTO 7923
63230 %WW-OE3 00001A32 IF EXCP NE 32 _
63240 %WW-OE3 00001A32 MESS$ = 'EXCP = ' + STR(EXCP) &_
63250 %WW-OE3 00001A59 MESS$ = MESS$ + ' ON LOT-PIECE RECORD - ENTER' &_
63260 %WW-OE3 00001A6B GOSUB 9050 & GOTO 7923
63270 %WW-OE3 00001A75 IF TRCODE$ NE 'CM' THEN
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 43
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
63280 %WW-OE3 00001A83 MESS$ = UPDTITEM$ + OLOT$ + OPCE$ + ' NOT FOUND - E
63290 %WW-OE3 00001AA7 GOSUB 9050
63300 %WW-OE3 00001AAC GOTO 7923
63310 %WW-OE3 00001AB1 ELSE
63320 %WW-OE3 00001AB6 PRTKY20$ = UPDTITEM$ + OLOT$
63330 %WW-OE3 00001AC8 READ (I1R,0210)KEY=PRTKY20$,EXCP=6334
63340 %WW-OE3 00001AD7 6334 KEY$ = KEY(I1R,EXCP=6354)
63350 %WW-OE3 00001AE7 IF SUB(KEY$,1,20) NE PRTKY20$ GOTO 6354
63360 %WW-OE3 00001B08 READ (I1R,0210),EXCP=6520
63364 %WW-OE3 00001B13 6336 INBR$ = UPDTITEM$
63370 %WW-OE3 00001B1C IRUN$ = OLOT$ & IPCE$ = OPCE$
63372 %WW-OE3 00001B2E IF ZZMULTIW$ NE 'Y' THEN
63374 %WW-OE3 00001B3C IWHSE$ = 'WHS'
63376 %WW-OE3 00001B45 ELSE
63378 %WW-OE3 00001B4A 6338 MESS$ = 'RETURN TO WARHOUSE ' + IWHSE$
63380 %WW-OE3 00001B5C MESS$ = MESS$ + ' - CORRECT? (Yes/No)'
63382 %WW-OE3 00001B6E GOSUB 9000
63384 %WW-OE3 00001B73 IF AN$ EQ 'Y' OR AN$ EQ 'YES' GOTO 6344
63386 %WW-OE3 00001B94 IF AN$ NE 'N' AND AN$ NE 'NO' GOTO 6338
63400 %WW-OE3 00001BB5 6340 MESS$ = 'RETURN TO WHICH WAREHOUSE?'
63402 %WW-OE3 00001BBE GOSUB 9000 & IWHSE$ = AN$
63404 %WW-OE3 00001BCC READ (M1C,0650)KEY='W'+AN$,EXCP=6376
63406 %WW-OE3 00001BE5 6342 MESS$ = SUB(MCDESC$,1,20) + ' - CORRECT? (Yes/No
63408 %WW-OE3 00001C05 GOSUB 9000
63410 %WW-OE3 00001C0A IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 6340
63412 %WW-OE3 00001C2B IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 6342
63414 %WW-OE3 00001C4C ENDIF
63440 %WW-OE3 00001C4C 6344 IQORNBR$ = '*RETURN*' & IINVCNBR$ = ORNBR$
63442 %WW-OE3 00001C5E RRCVDBND$ = '' & RRCVDWHS$ = ORDATE$ & RMILLPCE$ =
63444 %WW-OE3 00001C79 RENTRY$ = '' & RCASE$ = '' & RLOC$ = '' & RCMNT$ =
63446 %WW-OE3 00001C9D RQOHND = 0 & RQRCVD = 0 & RQRETURN = 0 & RSHPPCE =
63448 %WW-OE3 00001CC5 RADJPCE = 0 & RFRTEST$ = '' & RSHPMTD = 0 & RSHPQTD
63450 %WW-OE3 00001CEC RBOHMTD = 0 & RBOHQTR = 0 & RADJMTD = 0 & RADJQTD =
63452 %WW-OE3 00001D14 RPDATE$ = '' & RFIL0210$ = '' & RQALCTD = 0 & RAVAI
63454 %WW-OE3 00001D39 WRITE (I1R,0210)KEY=UPDTITEM$+IRUN$+IPCE$
63456 %WW-OE3 00001D57 GOTO 7937
63470 %WW-OE3 00001D5C 6347 MESS$ = 'NO PIECE EXISTS FOR THIS LOT - ENTER'
63480 %WW-OE3 00001D65 GOSUB 9050
63490 %WW-OE3 00001D6A MESS$ = 'ENTER ZERO QTY PIECE WITH COSTS IN
63500 %WW-OE3 00001D73 GOSUB 9000
63510 %WW-OE3 00001D78 GOTO 7923
63520 %WW-OE3 00001D7D ENDIF
63530 %WW-OE3 00001D7D !
63540 %WW-OE3 00001D7D 6354 CLOSE (I1R)
63550 %WW-OE3 00001D80 FLNM$ = ZZCO$ + 'I1RD'
63560 %WW-OE3 00001D92 OPEN (I1R) FLNM$
63570 %WW-OE3 00001D99 READ (I1R,0210)KEY=UPDTITEM$+OLOT$+OPCE$,EXCP=6359
63580 %WW-OE3 00001DBB GOTO 6365
63590 %WW-OE3 00001DC0 6359 PRTKY20$ = UPDTITEM$ + OLOT$
63600 %WW-OE3 00001DD2 READ (I1R,0210)KEY=PRTKY20$,EXCP=6361
63610 %WW-OE3 00001DE1 6361 KEY$ = KEY(I1R,EXCP=6368)
63620 %WW-OE3 00001DF1 IF SUB(KEY$,1,20) NE PRTKY20$ GOTO 6368
63630 %WW-OE3 00001E12 READ (I1R,0210),EXCP=6520
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 44
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
63640 %WW-OE3 00001E1D !
63650 %WW-OE3 00001E1D 6365 GOSUB 6371
63660 %WW-OE3 00001E22 GOTO 6336
63670 %WW-OE3 00001E27 !
63680 %WW-OE3 00001E27 6368 GOSUB 6371
63690 %WW-OE3 00001E2C GOTO 6347
63700 %WW-OE3 00001E31 !
63710 %WW-OE3 00001E31 6371 CLOSE (I1R)
63720 %WW-OE3 00001E34 FLNM$ = ZZCO$ + 'I1R'
63730 %WW-OE3 00001E46 OPEN (I1R) FLNM$
63740 %WW-OE3 00001E4D RETURN
63750 %WW-OE3 00001E4E !
63760 %WW-OE3 00001E4E 6376 IF EXCP EQ 32 _
63770 %WW-OE3 00001E4E MESS$ = 'INVALID WAREHOUSE CODE - ENTER' & _
63780 %WW-OE3 00001E66 GOSUB 9000 & GOTO 6340
63790 %WW-OE3 00001E70 MCDESC$ = 'WHSE RECORD LOCKED'
63800 %WW-OE3 00001E79 IF EXCP NE 33 _
63810 %WW-OE3 00001E79 MCDESC$ = 'EXCP=' + STR(EXCP) & _
63820 %WW-OE3 00001EA0 MCDESC$ = MCDESC$ + ' ON M1C'
63830 %WW-OE3 00001EB2 GOTO 6342
63840 %WW-OE3 00001EB7 !
64000 %WW-OE3 00001EB7 6400 CLOSE (SAHCOXRF) & OPEN (SAHCOXRF) 'SAHCOXRF'
64010 %WW-OE3 00001EC1 ZINBR$ = ZINBR$ + ' '
64020 %WW-OE3 00001ED3 READ (SAHCOXRF,0016)KEY=ZINBR$,EXCP=6407
64030 %WW-OE3 00001EE2 !403 KEY$ = KEY(SAHCOXRF,EXCP=6407)
64032 %WW-OE3 00001EE2 !RINT (0) '@011000@';KEY$;'*';ZINBR$;'*' & INPUT (0) ''
64040 %WW-OE3 00001EE2 !!!! IF SUB(KEY$,1,14) NE ZINBR$ GOTO 6407
64050 %WW-OE3 00001EE2 ZINBR$ = OLDSAHCO$
64060 %WW-OE3 00001EEB CLOSE (SAHCOXRF) & GOTO 7123
64070 %WW-OE3 00001EF3 6407 CLOSE (SAHCOXRF)
64080 %WW-OE3 00001EF6 MESS$ = ZINBR$ + ' NOT FOUND - ENTER'
64090 %WW-OE3 00001F08 GOSUB 9000
64100 %WW-OE3 00001F0D GOTO 7100
64110 %WW-OE3 00001F12 !
64600 %WW-OE3 00001F12 6460 MESS$ = 'ORDER BY ITEM RECORD LOCKED ELSEWHERE - ENTER
64620 %WW-OE3 00001F1B IF EXCP NE 33 _
64640 %WW-OE3 00001F1B MESS$ = 'EXCP =' + STR(EXCP) &_
64660 %WW-OE3 00001F42 MESS$ = MESS$ + ' ON ORDER BY ITEM FILE - ENTER'
64680 %WW-OE3 00001F54 GOSUB 9050
64700 %WW-OE3 00001F59 IF EXCP EQ 33 AGAIN
64720 %WW-OE3 00001F69 GOTO 7782
64740 %WW-OE3 00001F6E !
64800 %WW-OE3 00001F6E 6480 MESS$ = 'P/O # & LINE NOT FOUND ON DETAIL FILE - ENTER
64820 %WW-OE3 00001F77 IF EXCP EQ 33 _
64840 %WW-OE3 00001F77 MESS$ = 'P/O # & LINE RECORD LOCKED ELSEWHERE - ENT
64860 %WW-OE3 00001F8F IF EXCP NE 32 AND EXCP NE 33 _
64880 %WW-OE3 00001F9E MESS$ = 'EXCP = ' + STR(EXCP) &_
64900 %WW-OE3 00001FC5 MESS$ = MESS$ + ' ON P/O DETAIL LINE FILE - ENTER'
64920 %WW-OE3 00001FD7 GOSUB 9050
64940 %WW-OE3 00001FDC GOTO 7260
64960 %WW-OE3 00001FE1 !
65000 %WW-OE3 00001FE1 6500 IF EXCP EQ 32 GOTO 7124
65020 %WW-OE3 00001FF5 MESS$ = 'ALTERNATE ITEM RECORD LOCKED ELSEWHERE - ENTE
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 45
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
65040 %WW-OE3 00001FFE IF EXCP NE 32 AND EXCP NE 33 _
65060 %WW-OE3 0000200D MESS$ = 'EXCP = ' + STR(EXCP) &_
65080 %WW-OE3 00002034 MESS$ = MESS$ + ' ON ALTERNATE ITEM RECORD - ENTER'
65100 %WW-OE3 00002046 GOSUB 9050
65120 %WW-OE3 0000204B IF EXCP EQ 33 AGAIN
65140 %WW-OE3 0000205B GOTO 7124
65160 %WW-OE3 00002060 !
65200 %WW-OE3 00002060 6520 IF EXCP EQ 33 AGAIN
65220 %WW-OE3 00002070 ERROR
65240 %WW-OE3 00002071 !
65400 %WW-OE3 00002071 6540 IF EXCP EQ 33 AGAIN
65420 %WW-OE3 00002081 GOTO 4890
65440 %WW-OE3 00002086 !
65600 %WW-OE3 00002086 6560 MESS$ = 'RETURN CODE ' + AN$ + ' NOT FOUND - ENTER'
65620 %WW-OE3 000020A1 GOSUB 9000
65640 %WW-OE3 000020A6 GOTO 5168
65660 %WW-OE3 000020AB !
65800 %WW-OE3 000020AB 6580 IF EXCP EQ 33 _
65820 %WW-OE3 000020AB MESS$ = 'PRODUCT LINE RECORD LOCKED ELSEWHERE - ENT
65840 %WW-OE3 000020C3 IF EXCP EQ 32 _
65860 %WW-OE3 000020C3 MESS$ = 'PRODUCT LINE NOT FOUND IN - ENTER'
65880 %WW-OE3 000020DB IF EXCP NE 32 AND EXCP NE 33 _
65900 %WW-OE3 000020EA MESS$ = 'EXCP = ' + STR(EXCP) &_
65920 %WW-OE3 00002111 MESS$ = MESS$ + ' ON PRODUCT LINE FILE - ENTER'
65940 %WW-OE3 00002123 GOSUB 9000
65960 %WW-OE3 00002128 GOTO 7100
65980 %WW-OE3 0000212D !
66000 %WW-OE3 0000212D 6600 MESS$ = 'LOT/PIECE RECORD LOCKED ELSEWHERE - ENTER'
66020 %WW-OE3 00002136 IF EXCP NE 33 _
66040 %WW-OE3 00002136 MESS$ = 'EXCP = ' + STR(EXCP) & _
66060 %WW-OE3 0000215D MESS$ = MESS$ + ' ON LOT/PIECE FILE - ENTER'
66080 %WW-OE3 0000216F GOSUB 9000
66100 %WW-OE3 00002174 GOTO 7243
66120 %WW-OE3 00002179 !
66200 %WW-OE3 00002179 6620 MESS$ = 'LOT/PIECE RECORD EXTRACTED ELSEWHERE - ENTER'
66210 %WW-OE3 00002182 IF EXCP NE 33 _
66220 %WW-OE3 00002182 MESS$ = 'EXCP = ' + STR(EXCP) &_
66230 %WW-OE3 000021A9 MESS$ = MESS$ + ' ON LOT/PIECE FILE - ENTER'
66240 %WW-OE3 000021BB GOSUB 9000
66250 %WW-OE3 000021C0 GOTO 7923
66260 %WW-OE3 000021C5 !
66400 %WW-OE3 000021C5 6640 MESS$ = 'LOT/PIECE RECORD EXTRACTED ELSEWHERE - ENTER'
66410 %WW-OE3 000021CE IF EXCP NE 33 _
66420 %WW-OE3 000021CE MESS$ = 'EXCP = ' + STR(EXCP) &_
66430 %WW-OE3 000021F5 MESS$ = MESS$ + ' ON LOT/PIECE FILE - ENTER'
66440 %WW-OE3 00002207 IF O1CUTYRD$ NE 'Y' GOSUB 9000
66450 %WW-OE3 0000221A GOTO 7824
66460 %WW-OE3 0000221F !
66600 %WW-OE3 0000221F 6660 MESS$ = 'LOT/PIECE RECORD EXTRACTED ELSEWHERE - ENTER'
66610 %WW-OE3 00002228 IF EXCP EQ 32 _
66620 %WW-OE3 00002228 MESS$ = 'LOT/PIECE RECORD NOT ON FILE - ENTER'
66630 %WW-OE3 00002240 IF EXCP NE 32 AND EXCP NE 33 _
66640 %WW-OE3 0000224F MESS$ = 'EXCP = ' + STR(EXCP) &_
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 46
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
66650 %WW-OE3 00002276 MESS$ = MESS$ + ' ON LOT/PIECE RECORD - ENTER'
66660 %WW-OE3 00002288 GOSUB 9000
66670 %WW-OE3 0000228D GOTO 7923
66680 %WW-OE3 00002292 !
66800 %WW-OE3 00002292 6680 MESS$ = 'LOT/PIECE RECORD LOCKED ELSEWHERE - ENTER'
66810 %WW-OE3 0000229B IF EXCP NE 33 _
66820 %WW-OE3 0000229B MESS$ = 'EXCP = ' + STR(EXCP) & _
66830 %WW-OE3 000022C2 MESS$ = MESS$ + ' ON LOT/PIECE FILE - ENTER'
66840 %WW-OE3 000022D4 GOSUB 9000
66850 %WW-OE3 000022D9 GOTO 8088
66860 %WW-OE3 000022DE !
66990 %WW-OE3 000022DE !
67000 %WW-OE3 000022DE 6700 MESS$ = 'LOT/PIECE RECORD LOCKED ELSEWHERE - ENTER'
67010 %WW-OE3 000022E7 IF EXCP NE 33 _
67020 %WW-OE3 000022E7 MESS$ = 'EXCP = ' + STR(EXCP) & _
67030 %WW-OE3 0000230E MESS$ = MESS$ + ' ON LOT/PIECE FILE - ENTER'
67040 %WW-OE3 00002320 GOSUB 9000
67050 %WW-OE3 00002325 GOTO 8133
67060 %WW-OE3 0000232A !
67190 %WW-OE3 0000232A !
67200 %WW-OE3 0000232A 6720 MESS$ = 'WAREHOUSE RECORD LOCKED ELSEWHERE - ENTER'
67210 %WW-OE3 00002333 IF EXCP EQ 32 _
67220 %WW-OE3 00002333 MESS$ = 'INVALID WAREHOUSE CODE - ENTER'
67230 %WW-OE3 0000234B IF EXCP NE 32 AND EXCP NE 33 _
67240 %WW-OE3 0000235A MESS$ = 'EXCP = ' + STR(EXCP) &_
67250 %WW-OE3 00002381 MESS$ = MESS$ + ' ON WAREHOUSE RECORD - ENTER'
67260 %WW-OE3 00002393 GOSUB 9000
67270 %WW-OE3 00002398 GOTO 7280
67280 %WW-OE3 0000239D !
67400 %WW-OE3 0000239D 6740 IF ZZCOID$ EQ 'TR' _
67410 %WW-OE3 0000239D GOTO 7793
67420 %WW-OE3 000023B0 GOTO 7782
67430 %WW-OE3 000023B5 !
71000 %WW-OE3 000023B5 ! ========== INPUT ITEM NUMBER ==========
71010 %WW-OE3 000023B5 7100 POS = 1 & LINE = LINE1 & PRINT (0,3300)
71020 %WW-OE3 000023D0 INPUT (0) ZINBR$
71024 %WW-OE3 000023DB IF ZINBR$ EQ '' GOTO 7100
71026 %WW-OE3 000023EE !PRINT (0) '@011600@';ZINBR$;'*';ZOETYPE$;'*' & INPUT (0) ''
71030 %WW-OE3 000023EE IF ZINBR$ EQ 'END' THEN
71040 %WW-OE3 000023FC POPALL
71050 %WW-OE3 000023FD IF POS(ZOETYPE$,'EB') NE 0 GOTO 5800
71060 %WW-OE3 00002416 GOTO 5000
71070 %WW-OE3 0000241B ENDIF
71080 %WW-OE3 0000241B IF ZINBR$ EQ 'DELETE' THEN
71090 %WW-OE3 00002429 GOSUB 7640
71100 %WW-OE3 0000242E IF POS(ZOETYPE$,'EB') NE 0 _
71104 %WW-OE3 00002438 GOSUB 7680 & OLINE$ = ZLINE$ & _
71106 %WW-OE3 00002450 SLCTLN$ = '' & PRINT (0,3190) & GOTO 7100
71110 %WW-OE3 00002465 POPALL & GOTO 5000
71120 %WW-OE3 0000246B ENDIF
71122 %WW-OE3 0000246B IF ZINBR$ EQ '?' THEN
71124 %WW-OE3 00002479 GOSUB 7400 !GET COR
71126 %WW-OE3 0000247E IF IPATTERN$ EQ '' GOTO 7100
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 47
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
71130 %WW-OE3 00002491 READ (I1P,0215)KEY=IPATTERN$,EXCP=6100
71134 %WW-OE3 000024A0 IF ZZFURNAC$ EQ 'Y' _
71136 %WW-OE3 000024A0 INBR$ = IPATTERN$ & _
71138 %WW-OE3 000024B7 GOTO 7116
71146 %WW-OE3 000024BC GOSUB 7450 !GET ITE
71148 %WW-OE3 000024C1 IF INBR$ EQ '' GOTO 7100
71160 %WW-OE3 000024D4 7116 ZINBR$ = INBR$
71170 %WW-OE3 000024DD ENDIF
71172 %WW-OE3 000024DD !
71180 %WW-OE3 000024DD IF POS(ZOETYPE$,'EB') NE 0 AND SUB(ZINBR$,1,1) EQ '#'
71190 %WW-OE3 0000250D OLINE$ = SUB(ZINBR$,2,3)
71200 %WW-OE3 00002524 PRINT (#) OLINE$ & INPUT (#) OLINE$
71210 %WW-OE3 0000253A OLINE$ = SUB('000',1,3-LEN(OLINE$)) + OLINE$
71220 %WW-OE3 00002566 READ (O1,0000)KEY=ORNBR$+OLINE$,EXCP=7100
71230 %WW-OE3 0000257F GOSUB 7610
71234 %WW-OE3 00002584 SLCTLN$ = 'Y' & PRINT (0,3190) !DISPLAY LI
71240 %WW-OE3 00002594 GOTO 7100
71241 %WW-OE3 00002599 ENDIF
71242 %WW-OE3 00002599 !
71243 %WW-OE3 00002599 IF SUB(ZINBR$,1,1) EQ '=' ZINBR$=SUB(ZINBR$,2,13) &_
71244 %WW-OE3 000025CC SQFLAG = 1
71245 %WW-OE3 000025D6 !
71247 %WW-OE3 000025D6 ALTITEM$ = '' & YDGFACT = 1.00 & MEXCRATE = 0
71248 %WW-OE3 000025F3 7123 READ (I1A,0200)KEY=ZINBR$,EXCP=6080
71250 %WW-OE3 00002602 READ (I1A,0201)KEY=IINBR$,EXCP=6500
71252 %WW-OE3 00002611 7124 READ (I1P,0215)KEY=IPATTERN$,EXCP=6100
71254 %WW-OE3 00002620 MSAMPLE$ = ' ' & MPGFLAG$ = 'Y' & MINVFLAG$ = ''
71256 %WW-OE3 0000263B READ (M1C,0650)KEY='P'+IPL$,EXCP=6580
71258 %WW-OE3 00002654 IF MEXCRATE NE 0 YDGFACT = MEXCRATE
71260 %WW-OE3 0000266D INVUPDT$ = MINVFLAG$
71262 %WW-OE3 00002676 IF ZREPAPRV$ EQ 'Q' OR ZOETYPE$ EQ 'Q' _ ! TLF 09
71264 %WW-OE3 00002684 INVUPDT$ = 'N' ! QUOTE ENTRY/MAINT IS NON-
71266 %WW-OE3 0000269B IF MSAMPLE$ NE 'Y' MSAMPLE$ = 'N'
71268 %WW-OE3 000026B2 IF OSAMPFLG$ EQ ' ' THEN
71270 %WW-OE3 000026C0 OSAMPFLG$ = MSAMPLE$
71272 %WW-OE3 000026C9 ELSE
71274 %WW-OE3 000026CE IF MSAMPLE$ NE OSAMPFLG$ AND ZMNTTYP$ NE 'INQ' THEN
71276 %WW-OE3 000026EA MESS$ = 'CANNOT MIX SAMPLE AND STOCK LINES'
71278 %WW-OE3 000026F3 MESS$ = MESS$ + ' ON THE SAME ORDER - ENTER'
71280 %WW-OE3 00002705 GOSUB 9050 & GOTO 7100
71282 %WW-OE3 0000270F ENDIF
71284 %WW-OE3 0000270F ENDIF
71286 %WW-OE3 0000270F GOSUB 7660 !DESC DISPL
71288 %WW-OE3 00002714 IF (POS(ZOETYPE$,'EB') NE 0 AND ZMNTTYP$ NE 'ITL') OR
71290 %WW-OE3 0000273B ZZINBR$ NE INBR$ _
71292 %WW-OE3 0000273B GOSUB 7760
71300 %WW-OE3 0000274E GOSUB 7750 ! CHECK FOR DISCONTINUED DATE
71306 %WW-OE3 00002753 IF ZZCY$ EQ 'Y' AND ZZCFA$ EQ 'Y' GOSUB 7830
71360 %WW-OE3 00002774 XDATE$ = ZDATE$ & GOSUB JULDY !GET JULI
71370 %WW-OE3 00002782 VSHPDAYS = 0 & VDRPSHP$ = ' '
71380 %WW-OE3 00002795 READ (V1,0085)KEY=IVNBR$,EXCP=6280
71390 %WW-OE3 000027A4 7150 ZDYCT = ZDYCT + (IPLEAD * 7) + VSHPDAYS
71400 %WW-OE3 000027BC GOSUB DTCNV !GET NEW
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 48
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
71410 %WW-OE3 000027C1 CALCDT$ = XDATE$
71411 %WW-OE3 000027CA !PRINT (0) '@011000@';ZDYCT;IPLEAD;VSHPDAYS;XDATE$ & INPUT (
71420 %WW-OE3 000027CA !!!! SPNO$ = 'BOOKS SAMPLE*CHARIT*ADVERT*PCHSE DEFECT*'
71430 %WW-OE3 000027CA !!!! SPNO$ = SPNO$ + 'OFFPRM*REPLAC*LAFURN*PRODEV*CUTPGM*CU
71440 %WW-OE3 000027CA IF ZCSACAT$ NE '' AND ZCSACAT$ NE ' ' OPRICE = 0
71442 %WW-OE3 000027F0 IF POS('CONSIGNMENT',OCLIENT$) NE 0 OR _
71443 %WW-OE3 00002804 POS('CONSIGNMENT',OCORNBR$) NE 0 _
71444 %WW-OE3 0000280E OPRICE = 0 & ZPRICE = 0
71450 %WW-OE3 0000282C IF O1CUTYRD$ EQ '' AND ZCUTYRD$ EQ '' AND VDRPSHP$ EQ
71452 %WW-OE3 00002856 ZZCY$ EQ 'Y' AND TRCODE$ NE 'CM' _ ! ADDED ZZCY$
71460 %WW-OE3 00002864 O1CUTYRD$ = 'Y'
71470 %WW-OE3 0000287B IF ZOETYPE$ EQ 'M' AND TRCODE$ NE 'CM' AND OISFLG$ NE
71480 %WW-OE3 000028A5 IF OCUTYRD$ EQ 'C' THEN
71484 %WW-OE3 000028B3 IF OCYVEND$ NE IVNBR$ THEN
71488 %WW-OE3 000028C1 MESS$ = 'CUT YARDAGE ORDER TO ' + OCYVEND$
71492 %WW-OE3 000028D3 MESS$ = MESS$ + ', ITEM VENDOR IS ' + IVNBR$
71496 %WW-OE3 000028EE MESS$ = MESS$ + ' - ENTER'
71500 %WW-OE3 00002900 GOSUB 9000
71504 %WW-OE3 00002905 POPALL & GOTO 5000
71508 %WW-OE3 0000290B ENDIF
71512 %WW-OE3 0000290B ELSE
71516 %WW-OE3 00002910 IF VDRPSHP$ EQ 'Y' THEN ! WAS NE ' ', 03/03/20
71520 %WW-OE3 0000291E MESS$ = 'THIS ORDER IS NOT CUT YARDAGE - ENTE
71524 %WW-OE3 00002927 GOSUB 9000
71528 %WW-OE3 0000292C 7152 MESS$ = 'SHIP FROM STOCK? (Yes/No)'
71532 %WW-OE3 00002935 GOSUB 9000
71536 %WW-OE3 0000293A IF AN$ EQ 'N' OR AN$ EQ 'NO' _
71540 %WW-OE3 00002948 POPALL & GOTO 5000
71544 %WW-OE3 0000295C IF AN$ NE 'Y' AND AN$ NE 'YES' _
71548 %WW-OE3 0000296A GOTO 7152
71552 %WW-OE3 0000297D O1CUTYRD$ = ''
71556 %WW-OE3 00002986 ENDIF
71560 %WW-OE3 00002986 ENDIF
71564 %WW-OE3 00002986 ENDIF
71568 %WW-OE3 00002986 !
71572 %WW-OE3 00002986 7154 RETURN
71576 %WW-OE3 00002987 !
71600 %WW-OE3 00002987 ! ========== INPUT QUANTITY ORDERED ==========
71602 %WW-OE3 00002987 7160 GOSUB 7670 !SHOW ADDIT
71604 %WW-OE3 0000298C 7162 POS = 17 & LINE = LINE1 & PRINT (0,3300)
71606 %WW-OE3 000029A7 INPUT (0) OQTYORD$
71608 %WW-OE3 000029B2 IF ZCSACAT$ NE '' AND ZCSACAT$ NE ' ' AND _
71610 %WW-OE3 000029CE POS('ME',OQTYORD$) NE 0 THEN
71612 %WW-OE3 000029E2 IF IPNMEMOS LE 0 _
71614 %WW-OE3 000029E2 MESS$ = '# OF SMPLS/YD NOT RECORDED - ENTER'
71616 %WW-OE3 000029FA GOSUB 9000 & POPALL & GOTO 5000
71622 %WW-OE3 00002A05 AN = POS('ME',OQTYORD$)
71624 %WW-OE3 00002A14 OQTYORD$ = SUB(OQTYORD$,1,AN-1)
71626 %WW-OE3 00002A35 OQTYORD = NUM(OQTYORD$,ERR)
71628 %WW-OE3 00002A44 IF IPNMEMOS NE 0 OQTYORD = OQTYORD / (IPNMEMOS *
71630 %WW-OE3 00002A6F ORDFPT = FPT(OQTYORD) & OQTYORD = INT(OQTYORD)
71632 %WW-OE3 00002A85 IF ORDFPT GE .01 AND ORDFPT LE .50 OQTYORD = OQT
71634 %WW-OE3 00002AB2 IF ORDFPT GE .51 AND ORDFPT LE .99 OQTYORD = OQT
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 49
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
71636 %WW-OE3 00002ADF ELSE
71638 %WW-OE3 00002AE4 GOSUB 8280 ! OQTYORD = NUM(OQTYORD$,ERR
71640 %WW-OE3 00002AE9 ENDIF
71642 %WW-OE3 00002AE9 !
71644 %WW-OE3 00002AE9 IF ZMNTTYP$ EQ 'INQ' GOTO 7174
71646 %WW-OE3 00002AFC IF OQTYORD EQ 0 _
71648 %WW-OE3 00002AFC POPALL & GOTO 5000
71650 %WW-OE3 00002B11 IF OQTYORD LE 0 AND TRCODE$ NE 'CM' POPALL & GOTO 5000
71652 %WW-OE3 00002B34 IF ILENRPT GT 0 THEN ! ADDED 05/08/2002 TLF
71654 %WW-OE3 00002B43 WORK84 = (OQTYORD * 1.0000) / (ILENRPT * 1.0000)
71656 %WW-OE3 00002B6D IF FPT(WORK84) NE 0 THEN
71658 %WW-OE3 00002B7D A = (INT(WORK84) + 1) * ILENRPT
71660 %WW-OE3 00002B9B MESS$ = 'CAUTION, ' + STR(OQTYORD)+ 'IS NOT A MU
71662 %WW-OE3 00002BBC MESS$ = MESS$ + 'LENGTH - ENTER' & GOSUB 9000
71664 %WW-OE3 00002BD3 7164 MESS$ = 'USE ' + STR(A) + ' INSTEAD? (Yes/No/Re-
71666 %WW-OE3 00002BF9 IF AN$ EQ 'R' OR AN$ EQ 'REINPUT' GOTO 7162
71668 %WW-OE3 00002C1A IF AN$ EQ 'Y' OR AN$ EQ 'YES' OQTYORD = A & AN$
71669 %WW-OE3 00002C49 IF AN$ NE 'N' AND AN$ NE 'NO' GOTO 7164
71670 %WW-OE3 00002C6A ENDIF
71671 %WW-OE3 00002C6A ENDIF
71674 %WW-OE3 00002C6A IF TRCODE$ EQ 'CM' _
71676 %WW-OE3 00002C6A OQTYORD = -ABS(OQTYORD)
71678 %WW-OE3 00002C84 IF OISFLG$ EQ 'S' GOTO 7192
71679 %WW-OE3 00002C97 IF ZZCOID$ EQ 'BE' AND (CNBR$ EQ '0MEMOR' OR CNBR$ EQ
71680 %WW-OE3 00002CC1 GOSUB 8260 ! 12/18/2003 T
71681 %WW-OE3 00002CC6 CHKQTY = OQTYORD & POCHKQTY = OQTYORD ! 12/16/98 TLF
71682 %WW-OE3 00002CDA IF (POS(ZOETYPE$,'MQ') NE 0 AND INBR$ EQ ZZINBR$) OR _
71684 %WW-OE3 00002D01 SLCTLN$ EQ 'Y' OR ZMNTTYP$ EQ 'ITL' _
71686 %WW-OE3 00002D0F CHKQTY = OQTYORD - ZQTYORD
71688 %WW-OE3 00002D2C IF XQORNBR$ NE ' ' _ ! 12/16/98 TLF
71690 %WW-OE3 00002D2C POCHKQTY = OQTYORD - ZQTYORD ! "" "" ""
71694 %WW-OE3 00002D49 INBR$ = INBR$ + ' '
71695 %WW-OE3 00002D5B !
71696 %WW-OE3 00002D5B FLNM$ = ZZCO$ + 'I1CS' & CLOSE (I1CS) ! TLF
71698 %WW-OE3 00002D70 OPEN (I1CS) FLNM$ ! ""
71702 %WW-OE3 00002D77 READ (CS2I,0000)KEY=INBR$,EXCP=7170
71708 %WW-OE3 00002D86 7170 KEY$ = KEY(CS2I,EXCP=7174)
71714 %WW-OE3 00002D96 IF SUB(KEY$,1,14) NE INBR$ GOTO 7174
71720 %WW-OE3 00002DB7 READ (CS2I,0000)
71726 %WW-OE3 00002DBE READ (I1CS,0228)KEY=SUB(KEY$,15,9),EXCP=6120
71732 %WW-OE3 00002DDC IF SJCPFLAG$ NE ' ' GOTO 7170
71738 %WW-OE3 00002DEF IF OQTYORD GE SJFQTY AND OQTYORD LE SJTQTY THEN
71744 %WW-OE3 00002E0E MESS$ = 'ITEM MAY BE SPECIFIED - SEE SUPERVISOR - E
71746 %WW-OE3 00002E17 IF ZZCOID$ EQ 'IN' _
71748 %WW-OE3 00002E17 MESS$ = 'ITEM MAY BE REGISTERED - CHECK -
71750 %WW-OE3 00002E2E GOSUB 9050 & GOTO 7174
71752 %WW-OE3 00002E38 ENDIF
71756 %WW-OE3 00002E38 GOTO 7170
71758 %WW-OE3 00002E3D !
71762 %WW-OE3 00002E3D 7174 CLOSE (I1CS) ! TLF
71764 %WW-OE3 00002E40 IF ORETURN$ EQ 'N' OR INVUPDT$ EQ 'N' GOTO 7192 !SKIP
71765 %WW-OE3 00002E61 !PREVIOUS LINE WAS .. IF TRCODE$ EQ 'CM' OR... 10/19/2001
71767 %WW-OE3 00002E61 IF POS(ZOETYPE$,'E*Q') NE 0 AND VDRPSHP$ EQ 'Y' _
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 50
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
71768 %WW-OE3 00002E75 GOSUB 8300 & GOTO 7192
71770 %WW-OE3 00002E8D IF ZOETYPE$ EQ 'M' AND VDRPSHP$ EQ 'Y' AND OCUTYRD$ EQ
71776 %WW-OE3 00002EA9 GOSUB 8300 & GOTO 7192
71777 %WW-OE3 00002EC1 !
71779 %WW-OE3 00002EC1 QTYAVL = IQOHND + IQOHNDBN - IQOCMTD - IQICMTD
71780 %WW-OE3 00002EDA 7176 IF CHKQTY GT QTYAVL OR ZMNTTYP$ EQ 'INQ' OR _
71782 %WW-OE3 00002EF7 POINPUT$ EQ 'I' THEN
71788 %WW-OE3 00002F05 7178 MESS$ = ''
71790 %WW-OE3 00002F0E IF CHKQTY GT QTYAVL _
71792 %WW-OE3 00002F0E MESS$ = '< INSUFFICIENT STOCK > - '
71794 %WW-OE3 00002F26 7179 MESS$ = MESS$ + 'Stock display/PO display/'
71795 %WW-OE3 00002F38 !
71797 %WW-OE3 00002F38 IF ZMNTTYP$ EQ 'INQ' OR POINPUT$ EQ 'I' THEN
71798 %WW-OE3 00002F54 MESS$ = MESS$ + 'Freight calc/'
71799 %WW-OE3 00002F66 ELSE
71801 %WW-OE3 00002F6B IF ZZCOID$ EQ 'AS' MESS$=MESS$+'Warp/'
71802 %WW-OE3 00002F8B ENDIF
71803 %WW-OE3 00002F8B !
71808 %WW-OE3 00002F8B MESS$ = MESS$ + 'ENTER'
71816 %WW-OE3 00002F9D GOSUB 9000
71818 %WW-OE3 00002FA2 IF AN$ EQ '' OR AN$ EQ 'E' OR AN$ EQ 'END' AND _
71820 %WW-OE3 00002FCC (ZMNTTYP$ EQ 'INQ' OR POINPUT$ EQ 'I') GOTO 7
71822 %WW-OE3 00002FED IF AN$ EQ '' GOTO 7190
71823 %WW-OE3 00003000 IF AN$ EQ 'W' MESS$=IMINBR$ + '' & GOSUB
71824 %WW-OE3 00003025 GOTO 7178
71828 %WW-OE3 0000302A IF AN$ EQ 'E' OR AN$ EQ 'END' POPALL & GOTO 5000
71834 %WW-OE3 0000304C IF AN$ EQ 'S' OR AN$ EQ 'STOCK' _
71840 %WW-OE3 0000305A GOSUB 7500 & PRINT (0,3710) & MESS$ = '' & GO
71846 %WW-OE3 00003082 IF AN$ EQ 'P' OR AN$ EQ 'PO' _
71852 %WW-OE3 00003090 GOSUB 7550 & MESS$ = '' & GOTO 7179
71856 %WW-OE3 000030B1 IF (AN$ EQ 'F' OR AN$ EQ 'FREIGHT') THEN
71858 %WW-OE3 000030CD IF ZMNTTYP$ EQ 'INQ' THEN
71860 %WW-OE3 000030DB POS = 17 & LINE = LINE1 & PRINT (0, 95)
71862 %WW-OE3 000030F6 INPUT (0) OQTYORD$ & OQTYORD = NUM(OQTYORD
71864 %WW-OE3 00003110 GOSUB 7380 !GET E
71866 %WW-OE3 00003115 ENDIF
71868 %WW-OE3 00003115 PRINT (0,3710) !(BF)
71870 %WW-OE3 0000311C GOSUB 7280 & GOTO 7190 !DO FR
71872 %WW-OE3 00003126 ENDIF
71880 %WW-OE3 00003126 GOTO 7178
71898 %WW-OE3 0000312B 7190 !
71900 %WW-OE3 0000312B IF ZMNTTYP$ EQ 'INQ' OR POINPUT$ EQ 'I' GOTO 719
71902 %WW-OE3 0000314C IF ZOETYPE$ EQ 'B' _ ! MUST BE IN
71904 %WW-OE3 0000314C POP & GOTO 5000
71906 %WW-OE3 00003160 IF ZOETYPE$ EQ 'E' OR _
71908 %WW-OE3 0000316E (POS(ZOETYPE$,'MQ') NE 0 AND INBR$ EQ ZZINBR$
71910 %WW-OE3 00003190 ZQTYBOD NE 0) OR _
71912 %WW-OE3 000031A4 (POS(ZOETYPE$,'MQ') NE 0 AND INBR$ NE ZZINBR$
71914 %WW-OE3 000031C6 OQTYBOD = OQTYORD
71916 %WW-OE3 000031D0 ENDIF
71918 %WW-OE3 000031D0 IF OBOFLAG$ EQ 'B/O' OR OQTYBOD NE 0 _
71920 %WW-OE3 000031DE OQTYBOD = OQTYORD
71922 %WW-OE3 000031F7 IF ZOETYPE$ EQ 'M' AND OBOFLAG$ NE 'B/O' AND CHKQTY GT
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 51
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
71924 %WW-OE3 00003213 GOTO 7162
71926 %WW-OE3 00003227 7192 RETURN
71928 %WW-OE3 00003228 !
72000 %WW-OE3 00003228 ! ========== INVENTORY UPDATE HERE ==========
72010 %WW-OE3 00003228 7200 IF ZOETYPE$ EQ 'Q' OR O1CUTYRD$ EQ 'Y' GOTO 7238
72020 %WW-OE3 00003249 EXTRACT (I1A,0200)KEY=UPDTITEM$,EXCP=6220
72024 %WW-OE3 00003258 IF ZOETYPE$ EQ 'E' THEN
72026 %WW-OE3 00003266 IF INVUPDT$ NE 'N' AND QTYBOD EQ 0 _
72028 %WW-OE3 00003274 IQICMTD = IQICMTD + (QTYORD * PLSORMIN)
72030 %WW-OE3 00003296 ELSE
72040 %WW-OE3 0000329B IF QTYBOD EQ 0 THEN
72044 %WW-OE3 000032AA IF INVUPDT$ NE 'N' THEN
72050 %WW-OE3 000032B8 !!!! IF ORESFLG$ EQ ' ' THEN
72060 %WW-OE3 000032B8 IQOCMTD = IQOCMTD + (QTYORD * PLSORMIN)
72070 %WW-OE3 000032CB !!!! ELSE
72080 %WW-OE3 000032CB !!!! IQRCMTD = IQRCMTD + (QTYORD * PLSORMIN)
72090 %WW-OE3 000032CB !!!! ENDIF
72094 %WW-OE3 000032CB ENDIF
72100 %WW-OE3 000032CB ELSE
72110 %WW-OE3 000032D0 IQOBO = IQOBO + (QTYBOD * PLSORMIN)
72120 %WW-OE3 000032E3 IF QOR$ NE ' ' AND QOR$ NE '' THEN
72130 %WW-OE3 000032FF EXTRACT (Q1,0095)KEY=QOR$+QLN$,EXCP=6240
72140 %WW-OE3 00003318 QQTYAL = QQTYAL + (QTYBOD * PLSORMIN)
72150 %WW-OE3 0000332B WRITE (Q1,0095)
72160 %WW-OE3 00003332 ENDIF
72164 %WW-OE3 00003332 ENDIF
72170 %WW-OE3 00003332 ENDIF
72350 %WW-OE3 00003332 !
72360 %WW-OE3 00003332 7217 WRITE (I1A,0200)
72370 %WW-OE3 00003339 7230 INBR$ = ZINBR$ + ' '
72380 %WW-OE3 0000334B 7238 RETURN
72390 %WW-OE3 0000334C !
72400 %WW-OE3 0000334C ! ========== RETRIEVE A LOT/PIECE FOR ORDERED LINE =========
72402 %WW-OE3 0000334C !
72404 %WW-OE3 0000334C 7240 XLOT$ = '' & XPCE$ = '' & XSHPPCE = 0
72406 %WW-OE3 00003368 ZLPBAL = 9999.99 & ZPCDT8$ = '99999999'
72408 %WW-OE3 0000337B UPDTITEM$ = INBR$ & DISPI1R$ = ''
72410 %WW-OE3 0000338D IF ALTITEM$ NE '' AND ALTITEM$ NE ' ' _
72412 %WW-OE3 0000339B UPDTITEM$ = ALTITEM$
72414 %WW-OE3 000033B2 IF TRCODE$ EQ 'CM' OR POS(ZZCOID$,'HC*PO') NE 0 OR MAS
72415 %WW-OE3 000033D4 GOTO 7248 ! NO AUTO SELECTION OF LOTS/PIECES
72417 %WW-OE3 000033E7 READ (I1R,0210)KEY=UPDTITEM$,EXCP=7243
72418 %WW-OE3 000033F6 7243 KEY$ = KEY(I1R,EXCP=7248)
72420 %WW-OE3 00003406 IF SUB(KEY$,1,14) NE UPDTITEM$ GOTO 7248
72422 %WW-OE3 00003427 READ (I1R,0210),EXCP=6600
72424 %WW-OE3 00003432 !RINT (0) '@011100@';ZZCOID$;'*';IPCE$;'*';RAVAILPO$;'*';_
72426 %WW-OE3 00003432 !ZMULTIW$;'*';IWHSE$;'*';RLOC$;'*';RQOHND;RQALCTD;OQTYORD
72428 %WW-OE3 00003432 !NPUT (0) ''
72436 %WW-OE3 00003432 IF ZZCOID$ EQ 'IN' AND IPCE$ EQ 'MILLST' _
72438 %WW-OE3 00003440 GOTO 7243
72440 %WW-OE3 00003453 IF RAVAILPO$ NE ' ' GOTO 7243 ! IF IWHSE$ NE 'WHS'
72442 %WW-OE3 00003466 IF ZZMULTIW$ NE 'Y' AND ZZCOID$ NE 'BE' AND IWHSE$ NE
72444 %WW-OE3 00003482 GOTO 7243
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 52
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
72446 %WW-OE3 00003495 IF (ZZCOID$ EQ 'TR' AND RLOC$ EQ ' ') OR RLOC$
72448 %WW-OE3 000034B6 GOTO 7243
72460 %WW-OE3 000034C9 RQAVAIL = RQOHND - RQALCTD
72464 %WW-OE3 000034D8 IF RQAVAIL LT OQTYORD GOTO 7243
72468 %WW-OE3 000034EC IF ZZCOID$ NE 'IN' THEN ! FOR EVERYONE EXCEPT
72470 %WW-OE3 000034FA LPBAL = RQAVAIL - OQTYORD ! TAKE FROM THE SMALLE
72472 %WW-OE3 00003509 IF LPBAL LT ZLPBAL THEN ! 06/25/2002
72476 %WW-OE3 00003518 ZLPBAL = LPBAL
72480 %WW-OE3 00003522 XLOT$ = IRUN$ & XPCE$ = IPCE$
72484 %WW-OE3 00003534 XSHPPCE = OQTYORD & GOSUB 8060
72488 %WW-OE3 00003543 ENDIF
72492 %WW-OE3 00003543 ELSE
72494 %WW-OE3 00003548 GOSUB 7850 ! VERIFY MM/
72496 %WW-OE3 0000354D PCDT8$ = SUB(RRCVDWHS$,7,4) ! FOR INNOVA
72500 %WW-OE3 00003564 PCDT8$ = PCDT8$ + SUB(RRCVDWHS$,1,2) ! THE OLDEST
72504 %WW-OE3 00003584 PCDT8$ = PCDT8$ + SUB(RRCVDWHS$,4,2) ! 06/25/2002
72508 %WW-OE3 000035A4 IF PCDT8$ LT ZPCDT8$ THEN
72512 %WW-OE3 000035B2 ZPCDT8$ = PCDT8$
72516 %WW-OE3 000035BB XLOT$ = IRUN$ & XPCE$ = IPCE$
72520 %WW-OE3 000035CD XSHPPCE = OQTYORD & GOSUB 8060
72524 %WW-OE3 000035DC ENDIF
72528 %WW-OE3 000035DC ENDIF
72580 %WW-OE3 000035DC GOTO 7243
72584 %WW-OE3 000035E1 7248 INBR$ = ZINBR$ + ' '
72588 %WW-OE3 000035F3 OLOT$ = '' & OPCE$ = '' & OSHPPCE = 0
72592 %WW-OE3 0000360F RETURN
72596 %WW-OE3 00003610 !
72600 %WW-OE3 00003610 ! ========== INPUT MILL P/O # & LINE # ==========
72602 %WW-OE3 00003610 7260 POS = 26 & LINE = LINE1 & PRINT (0,3300)
72604 %WW-OE3 0000362B INPUT (0) POINPUT$
72607 %WW-OE3 00003636 PODISP$ = '' & PODT$ = ''
72608 %WW-OE3 00003648 IF POINPUT$ EQ 'BCKORD' POINPUT$ = '' & OQLINE$ = ''
72610 %WW-OE3 00003668 IF POINPUT$ EQ 'F' OR POINPUT$ EQ 'F ' _
72612 %WW-OE3 00003676 PRINT (0,3710) & GOSUB 7280 & _
72614 %WW-OE3 00003690 POINPUT$ = '' & GOTO 7260
72616 %WW-OE3 0000369E IF POINPUT$ EQ 'I' OR POINPUT$ EQ 'I ' _
72618 %WW-OE3 000036AC POINPUT$ = 'I' & GOSUB 7174 &_
72620 %WW-OE3 000036C8 GOTO 7260 ! PRINT (0,3710) & GOTO 7260
72622 %WW-OE3 000036CD IF POINPUT$ EQ 'END' OR POINPUT$ EQ 'END ' _
72624 %WW-OE3 000036DB POPALL & GOTO 5000
72630 %WW-OE3 000036EF IF POINPUT$ NE '' AND POINPUT$ NE ' ' THEN
72632 %WW-OE3 0000370B IF ZOETYPE$ EQ 'M' THEN
72634 %WW-OE3 00003719 IF OBOFLAG$ NE 'B/O' GOTO 7260
72636 %WW-OE3 0000372C ELSE
72638 %WW-OE3 00003731 IF OQTYBOD EQ 0 AND O1CUTYRD$ NE 'Y' GOTO 7260
72640 %WW-OE3 00003753 ENDIF
72642 %WW-OE3 00003753 ENDIF
72644 %WW-OE3 00003753 !
72648 %WW-OE3 00003753 PRINT (#) POINPUT$ & INPUT (#) POINPUT$
72650 %WW-OE3 00003769 IF POINPUT$ NE '' THEN
72652 %WW-OE3 00003777 POINPUT$ = SUB('000000',1,6-LEN(POINPUT$)) + POINPU
72654 %WW-OE3 000037A3 OQORNBR$ = 'PO ' + POINPUT$
72656 %WW-OE3 000037B5 ELSE
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 53
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
72658 %WW-OE3 000037BA OQORNBR$ = '' & OQLINE$ = '' & GOTO 7278
72660 %WW-OE3 000037D1 ENDIF
72662 %WW-OE3 000037D1 POS = 33 & LINE = LINE1 & PRINT (0, 95)
72664 %WW-OE3 000037EC INPUT (0) OQLINE$
72666 %WW-OE3 000037F7 INBR$ = INBR$ + ' '
72668 %WW-OE3 00003809 IF OQLINE$ NE '' AND OQLINE$ NE ' ' _
72672 %WW-OE3 00003817 OQLINE$ = SUB('000',1,3-LEN(OQLINE$)) + OQLINE$
72676 %WW-OE3 00003851 IF OQORNBR$ NE '' THEN
72680 %WW-OE3 0000385F READ (Q1,0095)KEY=OQORNBR$+OQLINE$,EXCP=6480
72684 %WW-OE3 00003878 IF QINBR$ NE INBR$ AND QINBR$ NE IINBR$ THEN
72688 %WW-OE3 00003894 MESS$ = 'P/O ITEM # DOES NOT MATCH THIS ITEM # -
72692 %WW-OE3 0000389D GOSUB 9050
72696 %WW-OE3 000038A2 GOTO 7260
72700 %WW-OE3 000038A7 ENDIF
72704 %WW-OE3 000038A7 QTYAVL = QQTYORD - QQTYAL
72708 %WW-OE3 000038B6 IF POCHKQTY GT QTYAVL THEN ! 12/16/98 TLF
72712 %WW-OE3 000038C5 MESS$ = 'P/O AVAILABLE QTY DOES NOT COVER ORDER
72716 %WW-OE3 000038CE GOSUB 9050
72720 %WW-OE3 000038D3 GOTO 7260
72724 %WW-OE3 000038D8 ENDIF
72728 %WW-OE3 000038D8 PODT$ = QOSHPDTE$
72730 %WW-OE3 000038E1 OQTYBOD = OQTYORD & OMANBO$ = 'Y'
72732 %WW-OE3 000038F4 ENDIF
72780 %WW-OE3 000038F4 7278 PODISP$ = SUB(OQORNBR$,4,6)
72784 %WW-OE3 0000390B IF (PODISP$ EQ '' OR PODISP$ EQ ' ') AND OQTYBOD
72788 %WW-OE3 00003927 PODISP$ = 'BCKORD'
72792 %WW-OE3 0000393F RETURN
72796 %WW-OE3 00003940 !
72800 %WW-OE3 00003940 !========== PROCESS FREIGHT INQUIRY ==========
72802 %WW-OE3 00003940 7280 !
72804 %WW-OE3 00003940 IF ZZMULTIW$ EQ 'Y' THEN
72806 %WW-OE3 0000394E IF ZZCOID$ EQ 'TR' AN$ = 'NY' & GOTO 7282
72809 %WW-OE3 0000396A MESS$ = 'ENTER WAREHOUSE TO SHIP FROM' & GOSUB 9000
72814 %WW-OE3 00003978 7282 READ (M1C,0650)KEY='W'+AN$,EXCP=6720
72816 %WW-OE3 00003991 FROMSC$ = MUNUSED$
72818 %WW-OE3 0000399A ENDIF
72820 %WW-OE3 0000399A IF STRIP(OFRTCODE$) EQ '' OFRTCODE$ = IFRTCODE$
72822 %WW-OE3 000039B7 VIA$ = 'UPS'
72824 %WW-OE3 000039C0 IF POS('FEDEX',OSHIPVIA$) NE 0 _
72826 %WW-OE3 000039CA VIA$ = 'FEDEX'
72830 %WW-OE3 000039DD SHIPVIA$ = VIA$ + ' NEXT' & ZONESC$ = FROMSC$ & GOSUB
72832 %WW-OE3 000039FD FRT4 = FRT & ZN4$ = ZONE$
72834 %WW-OE3 00003A10 SHIPVIA$ = VIA$ + ' 3RD' & ZONESC$ = FROMSC$ & GOSUB
72836 %WW-OE3 00003A30 FRT3 = FRT & ZN3$ = ZONE$
72838 %WW-OE3 00003A43 SHIPVIA$ = VIA$ + ' 2ND' & ZONESC$ = FROMSC$ & GOSUB 7
72840 %WW-OE3 00003A63 FRT2 = FRT & ZN2$ = ZONE$
72842 %WW-OE3 00003A76 SHIPVIA$ = 'UPS'
72844 %WW-OE3 00003A7F IF VIA$ EQ 'FEDEX' _
72846 %WW-OE3 00003A7F SHIPVIA$ = 'FEDEX SAVER'
72848 %WW-OE3 00003A96 ZONESC$ = FROMSC$ & GOSUB 7860 & _
72850 %WW-OE3 00003AA4 FRT1 = FRT & ZN1$ = ZONE$
72852 %WW-OE3 00003AB7 PRINT (0,3710)
72854 %WW-OE3 00003ABE PRINT (0,3870)
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 54
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
72856 %WW-OE3 00003AC5 7286 MESS$ = 'ENTER/Grnd-saver/3rd/2nd/Next'
72858 %WW-OE3 00003ACE IF VIA$ EQ 'UPS' MESS$ = MESS$ + '/Fedex'
72860 %WW-OE3 00003AEE IF VIA$ EQ 'FEDEX' MESS$ = MESS$ + '/UPS'
72862 %WW-OE3 00003B0E GOSUB 9000
72864 %WW-OE3 00003B13 IF VIA$ EQ 'UPS' AND (AN$ EQ 'F' OR AN$ EQ 'FEDEX') _
72866 %WW-OE3 00003B3D OSHIPVIA$ = 'FEDEX SAVER' & VIA$ = 'FEDEX' & _
72868 %WW-OE3 00003B4F PRINT (0,3984) & GOTO 7286
72870 %WW-OE3 00003B5B IF VIA$ EQ 'FEDEX' AND (AN$ EQ 'U' OR AN$ EQ 'UPS') _
72872 %WW-OE3 00003B85 OSHIPVIA$ = 'UPS' & VIA$ = 'UPS' & _
72874 %WW-OE3 00003B97 PRINT (0,3984) & GOTO 7286
72880 %WW-OE3 00003BA3 IF AN$ EQ 'G' OR AN$ EQ 'GROUND' OR _
72882 %WW-OE3 00003BBF AN$ EQ 'S' OR AN$ EQ 'SAVER' THEN
72884 %WW-OE3 00003BDB OSHIPVIA$ = 'UPS'
72888 %WW-OE3 00003BE4 IF VIA$ EQ 'FEDEX' OR AN$ EQ 'S' OR AN$ EQ 'SAVE
72892 %WW-OE3 00003C00 OSHIPVIA$ = 'FEDEX SAVER'
72896 %WW-OE3 00003C17 PRINT (0,3984) & GOTO 7288
72900 %WW-OE3 00003C23 ENDIF
72904 %WW-OE3 00003C23 IF AN$ EQ '3' OR AN$ EQ '3RD' _
72908 %WW-OE3 00003C31 OSHIPVIA$ = 'UPS 3RD' & PRINT (0,3984) & GOTO 7288
72912 %WW-OE3 00003C54 IF AN$ EQ '2' OR AN$ EQ '2ND' _
72916 %WW-OE3 00003C62 OSHIPVIA$ = VIA$ + ' 2ND' & PRINT (0,3984) & GOTO
72920 %WW-OE3 00003C8E IF AN$ EQ 'N' OR AN$ EQ 'NEXT' _
72924 %WW-OE3 00003C9C OSHIPVIA$ = VIA$ + ' NEXT' & PRINT (0,3984) & GOTO
72928 %WW-OE3 00003CC8 IF AN$ NE '' GOTO 7286
72932 %WW-OE3 00003CDB 7288 PRINT (0,3710)
72936 %WW-OE3 00003CE2 RETURN
72940 %WW-OE3 00003CE3 !
72996 %WW-OE3 00003CE3 !
73000 %WW-OE3 00003CE3 ! ========== CHECK REP-EXCEPTION FILE ==========
73004 %WW-OE3 00003CE3 !
73008 %WW-OE3 00003CE3 7300 IF DIDV6CHK EQ 0 AND POS(ZOETYPE$,'E*B') EQ 0 _ ! ON
73012 %WW-OE3 00003CFC DIDV6CHK = 1 ! IN
73014 %WW-OE3 00003D10 FLNM$ = ZZCO$ + 'V6' & CLOSE (V6) & OPEN (V6) FLNM$
73016 %WW-OE3 00003D2C V6REP$ = OSNBR1$
73020 %WW-OE3 00003D35 7303 READ (V6,0002)KEY=IVNBR$+V6REP$,EXCP=7324
73024 %WW-OE3 00003D4E PRINT (0,3300) ! DISPLAY ITEM DESCRIPTION
73028 %WW-OE3 00003D55 7304 MESS$ = 'Rep ' + V6REP$ + ' cannot sell vendor ' + IVN
73032 %WW-OE3 00003D79 MESS$ = MESS$ + ' product - ENTER'
73036 %WW-OE3 00003D8B GOSUB 9000
73040 %WW-OE3 00003D90 7307 MESS$ = 'Input new rep or to re-input item #'
73044 %WW-OE3 00003D99 IF DIDV6CHK EQ 1 _
73048 %WW-OE3 00003D99 MESS$ = ' to re-input item #'
73052 %WW-OE3 00003DB1 GOSUB 9000
73056 %WW-OE3 00003DB6 IF AN$ EQ '' OR DIDV6CHK EQ 1 THEN
73060 %WW-OE3 00003DD3 IF POS(ZOETYPE$,'MOR') NE 0 PLSORMIN = 1 & GOSUB 72
73064 %WW-OE3 00003DF6 POP & GOTO 5000
73068 %WW-OE3 00003DFC ENDIF
73072 %WW-OE3 00003DFC V6REP$ = AN$ + ' '
73076 %WW-OE3 00003E0E READ (S1,0412)KEY=AN$,EXCP=7330
73080 %WW-OE3 00003E1D 7313 MESS$ = STRIP(SNAME$)
73084 %WW-OE3 00003E2C MESS$ = MESS$ + ' ' + SCITY$
73088 %WW-OE3 00003E47 MESS$ = STRIP(MESS$)
73092 %WW-OE3 00003E56 MESS$ = MESS$ + ' - CORRECT? (Y/N)'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 55
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
73096 %WW-OE3 00003E68 7317 GOSUB 9000
73100 %WW-OE3 00003E6D IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7307
73104 %WW-OE3 00003E8E IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7317
73108 %WW-OE3 00003EAF READ (V6,0012)KEY=IVNBR$+V6REP$,EXCP=7334
73112 %WW-OE3 00003EC8 7322 !
73116 %WW-OE3 00003EC8 DIDV6CHK = 1
73118 %WW-OE3 00003ED2 CLOSE (V6)
73120 %WW-OE3 00003ED5 RETURN
73124 %WW-OE3 00003ED6 !
73128 %WW-OE3 00003ED6 7324 IF EXCP EQ 32 GOTO 7322
73132 %WW-OE3 00003EEA GOTO 7304
73136 %WW-OE3 00003EEF !
73140 %WW-OE3 00003EEF 7330 IF EXCP EQ 32 _
73144 %WW-OE3 00003EEF MESS$ = 'REP ' + V6REP$ + ' NOT ON FILE - ENTER' &
73148 %WW-OE3 00003F19 GOSUB 9000 & GOTO 7307
73152 %WW-OE3 00003F23 IF EXCP EQ 33 _
73156 %WW-OE3 00003F23 SNAME$ = '** LOCKED **' & SCITY$ = '' & _
73160 %WW-OE3 00003F44 GOTO 7313
73164 %WW-OE3 00003F49 SNAME$ = 'EXCP = ' + STR(EXCP) & SCITY$ = '' & _
73168 %WW-OE3 00003F6A GOTO 7313
73172 %WW-OE3 00003F6F !
73176 %WW-OE3 00003F6F 7334 IF EXCP EQ 32 THEN
73180 %WW-OE3 00003F7E OSNBR1$ = V6REP$
73184 %WW-OE3 00003F87 !!!! OCOMM = SCOMM
73188 %WW-OE3 00003F87 GOTO 7322
73192 %WW-OE3 00003F8C ENDIF
73196 %WW-OE3 00003F8C GOTO 7304
73200 %WW-OE3 00003F91 !
73400 %WW-OE3 00003F91 ! ========== INPUT PRICE ==========
73420 %WW-OE3 00003F91 7340 POS = 38 & LINE = LINE1 & PRINT (0,3300)
73424 %WW-OE3 00003FAC INPUT (0) OPRICE
73444 %WW-OE3 00003FB7 !!!! IF (ZOETYPE$ EQ 'E' OR _
73448 %WW-OE3 00003FB7 !!!! (ZOETYPE$ EQ 'M' AND OPROFLG$ EQ 'Y')) AND _
73450 %WW-OE3 00003FB7 IF ZOETYPE$ NE 'B' AND SUB(ZINBR$,1,1) NE 'Z' AND _
73452 %WW-OE3 00003FE1 OISFLG$ NE 'S' AND OPRICE NE ZPRICE AND _
73454 %WW-OE3 00003FFE POS(ZZCOID$,'TR*WA*JA') EQ 0 THEN
73456 %WW-OE3 00004012 OCRMSC$ = '$'
73458 %WW-OE3 0000401B IF POS(ZOETYPE$,'QE') EQ 0 WRITE (O0,0000)KEY=OR
73460 %WW-OE3 0000403A ENDIF
73464 %WW-OE3 0000403A RETURN
73480 %WW-OE3 0000403B !
73600 %WW-OE3 0000403B ! ========== INPUT TAG LINE ==========
73610 %WW-OE3 0000403B 7360 POS = 30 & LINE = LINE2 & PRINT (0,3300)
73620 %WW-OE3 00004056 INPUT (0) OTAG$
73630 %WW-OE3 00004061 RETURN
73640 %WW-OE3 00004062 !
73800 %WW-OE3 00004062 ! ========== CALCULATE EXTENSION ==========
73810 %WW-OE3 00004062 7380 OEXT = OQTYORD * OPRICE
73820 %WW-OE3 00004070 IF ZMNTTYP$ EQ 'INQ' OR POINPUT$ EQ 'I' OR OEXT EQ 0 _
73830 %WW-OE3 0000408C FRTLINE = 0
73840 %WW-OE3 000040A5 !
73850 %WW-OE3 000040A5 PRINT (0,3300)
73860 %WW-OE3 000040AC RETURN
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 56
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
73870 %WW-OE3 000040AD !
74000 %WW-OE3 000040AD ! ========== PATTERN LOOKUP ROUTINE IS HERE ==========
74006 %WW-OE3 000040AD 7400 PRINT (0,3710) !(BF) DI
74012 %WW-OE3 000040B4 7402 PRINT (0,3750) !ASK FOR
74018 %WW-OE3 000040BB INPUT (0) DESC$
74024 %WW-OE3 000040C6 PRINT (0, 91) !CLEAR Q
74030 %WW-OE3 000040CD 7406 GOSUB 7440 !CLEAR A
74036 %WW-OE3 000040D2 POS = 0 & LINE = 18 & COUNT = 0 & IPATTERN$ = ''
74042 %WW-OE3 000040F9 READ (I1X,0217)KEY='P'+DESC$,EXCP=7410
74048 %WW-OE3 00004112 7410 KEY$ = KEY(I1X,EXCP=7430)
74054 %WW-OE3 00004122 IF SUB(KEY$,1,1) NE 'P' GOTO 7430
74060 %WW-OE3 00004143 READ (I1X,0217),EXCP=6140
74066 %WW-OE3 0000414E IPATTNME$ = SUB(KEY$,2,28)
74072 %WW-OE3 00004165 IF LINE EQ 23 AND POS EQ 0 LINE = 18 & POS = 40
74078 %WW-OE3 00004197 !!!! IF LINE EQ 23 AND POS EQ 27 LINE = 18 & POS = 54
74084 %WW-OE3 00004197 IF LINE EQ 23 AND POS EQ 40 GOTO 7420
74090 %WW-OE3 000041BA 7416 COUNT = COUNT + 1
74096 %WW-OE3 000041C9 WORK = 100 + COUNT
74102 %WW-OE3 000041D8 LN$ = SUB(STR(WORK),2,2)
74108 %WW-OE3 000041F5 PTRN$(COUNT) = IPATTERN$
74114 %WW-OE3 0000420B PRINT (0,3760)
74120 %WW-OE3 00004212 LINE = LINE + 1
74126 %WW-OE3 00004221 GOTO 7410
74132 %WW-OE3 00004226 !
74138 %WW-OE3 00004226 7420 MESS$ = ' FOR NEXT PAGE/New pattern name/# to s
74140 %WW-OE3 0000422F MESS$ = MESS$ + 'Restart/End'
74144 %WW-OE3 00004241 GOSUB 9000
74150 %WW-OE3 00004246 IF AN$ EQ '' _
74156 %WW-OE3 00004246 POS = 0 & LINE = 18 & GOSUB 7440 & COUNT = 0 &_
74162 %WW-OE3 00004277 PRINT (0,3710) & GOTO 7416
74168 %WW-OE3 00004283 IF AN$ EQ 'E' OR AN$ EQ 'END' _
74174 %WW-OE3 00004291 IPATTERN$ = '' & GOTO 7448
74180 %WW-OE3 000042AD IF AN$ EQ 'N' OR AN$ EQ 'NEW' GOTO 7400
74182 %WW-OE3 000042CE IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' _
74184 %WW-OE3 000042DC PRINT (0,3710) & GOTO 7406
74186 %WW-OE3 000042F6 AN = NUM(AN$,ERR)
74192 %WW-OE3 00004305 IF AN LT 1 OR AN GT 10 OR PTRN$(AN) EQ '' _
74198 %WW-OE3 00004330 MESS$ = 'INVALID RESPONSE - ENTER' &_
74204 %WW-OE3 00004347 GOSUB 9050 & GOTO 7420
74210 %WW-OE3 00004351 IPATTERN$ = PTRN$(AN)
74216 %WW-OE3 00004367 GOTO 7448
74222 %WW-OE3 0000436C !
74228 %WW-OE3 0000436C 7430 MESS$ = 'END OF FILE. New pattern name/# to select/'
74230 %WW-OE3 00004375 MESS$ = MESS$ + 'Restart/End'
74234 %WW-OE3 00004387 GOSUB 9000
74240 %WW-OE3 0000438C IF AN$ EQ 'E' OR AN$ EQ 'END' _
74246 %WW-OE3 0000439A IPATTERN$ = '' & GOTO 7448
74252 %WW-OE3 000043B6 IF AN$ EQ 'N' OR AN$ EQ 'NEW' GOTO 7400
74254 %WW-OE3 000043D7 IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' _
74256 %WW-OE3 000043E5 PRINT (0,3710) & GOTO 7406
74258 %WW-OE3 000043FF AN = NUM(AN$,ERR)
74264 %WW-OE3 0000440E IF AN LT 1 OR AN GT 10 OR PTRN$(AN) EQ '' _
74270 %WW-OE3 00004439 MESS$ = 'INVALID RESPONSE - ENTER' &_
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 57
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
74276 %WW-OE3 00004450 GOSUB 9050 & GOTO 7430
74282 %WW-OE3 0000445A IPATTERN$ = PTRN$(AN)
74288 %WW-OE3 00004470 GOTO 7448
74294 %WW-OE3 00004475 !
74300 %WW-OE3 00004475 7440 FOR I = 1 TO 10
74306 %WW-OE3 0000448E PTRN$(I) = ''
74312 %WW-OE3 000044A4 NEXT I
74318 %WW-OE3 000044B8 RETURN
74324 %WW-OE3 000044B9 !
74330 %WW-OE3 000044B9 7448 PRINT (0,3710) !(BF) DI
74336 %WW-OE3 000044C0 RETURN
74342 %WW-OE3 000044C1 !
74500 %WW-OE3 000044C1 ! ========== ITEM LOOKUP ROUTINE IS HERE ==========
74506 %WW-OE3 000044C1 7450 PRINT (0,3710) !(BF) DI
74512 %WW-OE3 000044C8 PRTKYI1X$ = 'I' + IPATTNME$
74518 %WW-OE3 000044DA !!!! INPUT (0) MESS$
74524 %WW-OE3 000044DA !!!! PRINT (0, 91) !CLEAR Q
74530 %WW-OE3 000044DA GOSUB 7490 !CLEAR A
74536 %WW-OE3 000044DF POS = 0 & LINE = 18 & COUNT = 0
74542 %WW-OE3 000044FD READ (I1X,0217)KEY=PRTKYI1X$,EXCP=7460
74548 %WW-OE3 0000450C 7460 KEY$ = KEY(I1X,EXCP=7480)
74554 %WW-OE3 0000451C IF SUB(KEY$,1,31) NE PRTKYI1X$ GOTO 7480
74560 %WW-OE3 0000453D READ (I1X,0217),EXCP=6143
74562 %WW-OE3 00004548 ICOLOR$ = '?????'
74566 %WW-OE3 00004551 READ (I1A,0200)KEY=INBR$,EXCP=7462
74572 %WW-OE3 00004560 7462 IF LINE EQ 23 AND POS EQ 0 LINE = 18 & POS = 40
74578 %WW-OE3 00004592 !!!! IF LINE EQ 23 AND POS EQ 27 LINE = 18 & POS = 54
74584 %WW-OE3 00004592 IF LINE EQ 23 AND POS EQ 40 GOTO 7470
74590 %WW-OE3 000045B5 7466 COUNT = COUNT + 1
74596 %WW-OE3 000045C4 WORK = 100 + COUNT
74602 %WW-OE3 000045D3 LN$ = SUB(STR(WORK),2,2)
74608 %WW-OE3 000045F0 ITEM$(COUNT) = INBR$
74614 %WW-OE3 00004606 PRINT (0,3764)
74620 %WW-OE3 0000460D LINE = LINE + 1
74626 %WW-OE3 0000461C GOTO 7460
74632 %WW-OE3 00004621 !
74638 %WW-OE3 00004621 7470 MESS$ = ' FOR NEXT PAGE/# to select/Restart/End
74644 %WW-OE3 0000462A GOSUB 9000
74650 %WW-OE3 0000462F IF AN$ EQ '' _
74656 %WW-OE3 0000462F POS = 0 & LINE = 18 & GOSUB 7490 & COUNT = 0 &_
74662 %WW-OE3 00004660 PRINT (0,3710) & GOTO 7466
74668 %WW-OE3 0000466C IF AN$ EQ 'E' OR AN$ EQ 'END' _
74674 %WW-OE3 0000467A INBR$ = '' & GOTO 7498
74680 %WW-OE3 00004696 IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' GOTO 7450
74686 %WW-OE3 000046B7 AN = NUM(AN$,ERR)
74692 %WW-OE3 000046C6 IF AN LT 1 OR AN GT 10 OR ITEM$(AN) EQ '' _
74698 %WW-OE3 000046F1 MESS$ = 'INVALID RESPONSE - ENTER' &_
74704 %WW-OE3 00004708 GOSUB 9050 & GOTO 7470
74710 %WW-OE3 00004712 INBR$ = ITEM$(AN)
74716 %WW-OE3 00004728 GOTO 7498
74722 %WW-OE3 0000472D !
74728 %WW-OE3 0000472D 7480 MESS$ = 'END OF FILE. # to select/Restart/End'
74734 %WW-OE3 00004736 GOSUB 9000
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 58
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
74740 %WW-OE3 0000473B IF AN$ EQ 'E' OR AN$ EQ 'END' _
74746 %WW-OE3 00004749 INBR$ = '' & GOTO 7498
74752 %WW-OE3 00004765 IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' GOTO 7450
74758 %WW-OE3 00004786 AN = NUM(AN$,ERR)
74764 %WW-OE3 00004795 IF AN LT 1 OR AN GT 10 OR ITEM$(AN) EQ '' _
74770 %WW-OE3 000047C0 MESS$ = 'INVALID RESPONSE - ENTER' &_
74776 %WW-OE3 000047D7 GOSUB 9050 & GOTO 7480
74782 %WW-OE3 000047E1 INBR$ = ITEM$(AN)
74788 %WW-OE3 000047F7 GOTO 7498
74794 %WW-OE3 000047FC !
74800 %WW-OE3 000047FC 7490 FOR I = 1 TO 10
74806 %WW-OE3 00004815 ITEM$(I) = ''
74812 %WW-OE3 0000482B NEXT I
74818 %WW-OE3 0000483F RETURN
74824 %WW-OE3 00004840 !
74830 %WW-OE3 00004840 7498 PRINT (0,3710) !(BF) DI
74836 %WW-OE3 00004847 RETURN
74842 %WW-OE3 00004848 !
75000 %WW-OE3 00004848 ! ========== STOCK DISPLAY ROUTINE IS HERE ==========
75002 %WW-OE3 00004848 7500 PRINT (0,3710) !(BF) DI
75004 %WW-OE3 0000484F IF LPDISP$ EQ 'D' THEN !COLUMN
75006 %WW-OE3 0000485D PRINT (0,3770)
75008 %WW-OE3 00004864 ELSE
75010 %WW-OE3 00004869 IF ZZMULTIW$ EQ 'Y' THEN
75012 %WW-OE3 00004877 PRINT (0,3776)
75014 %WW-OE3 0000487E ELSE
75016 %WW-OE3 00004883 PRINT (0,3774)
75018 %WW-OE3 0000488A ENDIF
75024 %WW-OE3 0000488A ENDIF
75028 %WW-OE3 0000488A 7510 !
75030 %WW-OE3 0000488A POS = 0 & LINE = 19 & QTY = 0 & PRTKY20$ = '' & EOF$ =
75032 %WW-OE3 000048BA UPDTITEM$ = INBR$ & SEQLOT$ = ''
75034 %WW-OE3 000048CC IF ALTITEM$ NE '' AND ALTITEM$ NE ' ' _
75036 %WW-OE3 000048DA UPDTITEM$ = ALTITEM$
75038 %WW-OE3 000048F1 GOSUB 7546 !INITIALIZE ARRAY
75040 %WW-OE3 000048F6 READ (I1R,0210)KEY=UPDTITEM$,EXCP=7520
75050 %WW-OE3 00004905 7520 KEY$ = KEY(I1R,EXCP=7542)
75052 %WW-OE3 00004915 IF SUB(KEY$,1,14) NE UPDTITEM$ GOTO 7542
75054 %WW-OE3 00004936 !!!* IF MPGFLAG$ NE 'Y' AND SUB(KEY$,1,20) NE PRTKY20$ _
75056 %WW-OE3 00004936 !!!* GOTO 7546
75058 %WW-OE3 00004936 7524 READ (I1R,0210),EXCP=6160
75060 %WW-OE3 00004941 IF ZOETYPE$ NE 'B' AND RQOHND EQ 0 AND RQALCTD EQ 0 _
75062 %WW-OE3 0000495E GOTO 7520
75064 %WW-OE3 00004972 IF (ZZCOID$ EQ 'TR' AND RLOC$ EQ ' ') OR RLOC$
75066 %WW-OE3 00004993 GOTO 7520
75068 %WW-OE3 000049A6 IF ZZCOID$ EQ 'IN' AND IPCE$ EQ 'MILLST' _ ! TLF 02
75070 %WW-OE3 000049B4 GOTO 7520
75072 %WW-OE3 000049C7 RQAVAIL = RQOHND - RQALCTD
75074 %WW-OE3 000049D6 IF RAVAILPO$ NE ' ' _ !!!* IF MPGFLAG
75076 %WW-OE3 000049D6 RCMNT$ = 'UNAVAILABLE - ASSIGNED TO SALES ORDERS AS
75078 %WW-OE3 000049ED ! !!!* QTY = QTY + RQOHND &
75080 %WW-OE3 000049ED IF LINE EQ 23 THEN
75082 %WW-OE3 000049FC IF LPDISP$ EQ 'D' GOTO 7540
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 59
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
75086 %WW-OE3 00004A0F IF POS EQ 40 GOTO 7540
75088 %WW-OE3 00004A23 POS = 40 & LINE = 19
75090 %WW-OE3 00004A37 ENDIF
75092 %WW-OE3 00004A37 7530 LOTARRAY$ = STR(LOTARRAY)
75094 %WW-OE3 00004A46 IF LPDISP$ EQ 'D' THEN
75096 %WW-OE3 00004A54 PRINT (0,3790)
75098 %WW-OE3 00004A5B ELSE
75100 %WW-OE3 00004A60 IF ZZMULTIW$ EQ 'Y' THEN
75102 %WW-OE3 00004A6E PRINT (0,3796)
75104 %WW-OE3 00004A75 ELSE
75106 %WW-OE3 00004A7A PRINT (0,3794)
75108 %WW-OE3 00004A81 ENDIF
75112 %WW-OE3 00004A81 ENDIF
75114 %WW-OE3 00004A81 LINE = LINE + 1
75116 %WW-OE3 00004A90 LOTPCE$(LOTARRAY) = IRUN$ + IPCE$
75118 %WW-OE3 00004AAF LOTARRAY = LOTARRAY + 1
75120 %WW-OE3 00004ABE GOTO 7520
75122 %WW-OE3 00004AC3 !
75124 %WW-OE3 00004AC3 7540 MESS$ = ' FOR MORE/'
75126 %WW-OE3 00004ACC IF LPDISP$ EQ 'D' THEN
75128 %WW-OE3 00004ADA MESS$ = MESS$ + 'Summary/'
75130 %WW-OE3 00004AEC ELSE
75132 %WW-OE3 00004AF1 MESS$ = MESS$ + 'Detail/'
75134 %WW-OE3 00004B03 ENDIF
75136 %WW-OE3 00004B03 MESS$ = MESS$ + 'seq #/End'
75140 %WW-OE3 00004B15 GOSUB 9000
75150 %WW-OE3 00004B1A IF AN$ EQ '' THEN
75154 %WW-OE3 00004B28 GOSUB 7546 ! INITIALIZE ARRAY
75160 %WW-OE3 00004B2D POS = 0 & LINE = 19
75170 %WW-OE3 00004B41 PRINT (0,3810)
75172 %WW-OE3 00004B48 !!!* IF MPGFLAG$ NE 'Y' GOTO 7547
75174 %WW-OE3 00004B48 GOTO 7530
75176 %WW-OE3 00004B4D ENDIF
75178 %WW-OE3 00004B4D IF LPDISP$ EQ 'D' AND AN$ EQ 'S' _
75180 %WW-OE3 00004B5B LPDISP$ = 'S' & GOTO 7500
75182 %WW-OE3 00004B77 IF LPDISP$ EQ 'S' AND AN$ EQ 'D' _
75184 %WW-OE3 00004B85 LPDISP$ = 'D' & GOTO 7500
75186 %WW-OE3 00004BA1 IF AN$ EQ 'E' OR AN$ EQ 'END' _
75188 %WW-OE3 00004BAF GOTO 7544
75190 %WW-OE3 00004BC2 LOTARRAY = NUM(AN$,ERR)
75192 %WW-OE3 00004BD1 IF LOTARRAY LT 1 OR LOTARRAY GT 8 OR LOTPCE$(LOTARRAY)
75194 %WW-OE3 00004BFC MESS$ = 'INVALID SELECTION - ENTER' & _
75196 %WW-OE3 00004C13 GOSUB 9000 & GOTO 7540
75198 %WW-OE3 00004C1D SEQLOT$ = 'Y'
75210 %WW-OE3 00004C26 GOTO 7544
75212 %WW-OE3 00004C2B !
75220 %WW-OE3 00004C2B 7542 !!!* IF MPGFLAG$ NE 'Y' AND QTY NE 0 _
75224 %WW-OE3 00004C2B !!!* EOF$ = 'Y' & GOTO 7546
75228 %WW-OE3 00004C2B 7543 MESS$ = 'END OF STOCK FOR THIS ITEM/Restart/'
75230 %WW-OE3 00004C34 IF LPDISP$ EQ 'D' THEN
75232 %WW-OE3 00004C42 MESS$ = MESS$ + 'Summary/'
75234 %WW-OE3 00004C54 ELSE
75236 %WW-OE3 00004C59 MESS$ = MESS$ + 'Detail/'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 60
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
75238 %WW-OE3 00004C6B ENDIF
75240 %WW-OE3 00004C6B MESS$ = MESS$ + 'seq #/End'
75242 %WW-OE3 00004C7D GOSUB 9000
75244 %WW-OE3 00004C82 IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' _
75246 %WW-OE3 00004C90 PRINT (0,3810) &_
75248 %WW-OE3 00004CA5 GOTO 7510
75250 %WW-OE3 00004CAA IF AN$ EQ 'S' AND LPDISP$ EQ 'D' _
75252 %WW-OE3 00004CB8 LPDISP$ = 'S' & GOTO 7500
75254 %WW-OE3 00004CD4 IF AN$ EQ 'D' AND LPDISP$ EQ 'S' _
75256 %WW-OE3 00004CE2 LPDISP$ = 'D' & GOTO 7500
75260 %WW-OE3 00004CFE IF AN$ EQ '' OR AN$ EQ 'E' OR AN$ EQ 'END' _
75264 %WW-OE3 00004D1A GOTO 7544
75272 %WW-OE3 00004D2D LOTARRAY = NUM(AN$,ERR)
75274 %WW-OE3 00004D3C IF LOTARRAY LT 1 OR LOTARRAY GT 8 OR LOTPCE$(LOTARRAY)
75276 %WW-OE3 00004D67 MESS$ = 'INVALID SELECTION - ENTER' &_
75278 %WW-OE3 00004D7E GOSUB 9000 & GOTO 7542
75280 %WW-OE3 00004D88 SEQLOT$ = 'Y'
75282 %WW-OE3 00004D91 !!!! GOTO 7544
75296 %WW-OE3 00004D91 !
75300 %WW-OE3 00004D91 7544 !!!! PRINT (0,3710) !(BF) DISPLAY
75310 %WW-OE3 00004D91 INBR$ = ZINBR$ + ' '
75320 %WW-OE3 00004DA3 RETURN
75330 %WW-OE3 00004DA4 !
75340 %WW-OE3 00004DA4 7546 FOR I = 1 TO 8
75350 %WW-OE3 00004DBD LOTPCE$(I) = ''
75360 %WW-OE3 00004DD3 NEXT I
75370 %WW-OE3 00004DE7 LOTARRAY = 1
75380 %WW-OE3 00004DF1 RETURN
75390 %WW-OE3 00004DF2 !!!* LINE = LINE + 1
75400 %WW-OE3 00004DF2 !548 PRTKY20$ = SUB(KEY$,1,20)
75410 %WW-OE3 00004DF2 !!!* IF EOF$ EQ 'Y' GOTO 7543
75420 %WW-OE3 00004DF2 !!!* GOTO 7524
75430 %WW-OE3 00004DF2 !
75500 %WW-OE3 00004DF2 ! ========== MILL P/O DISPLAY ROUTINE IS HERE ==========
75510 %WW-OE3 00004DF2 7550 PRINT (0,3710) !(BF) DI
75520 %WW-OE3 00004DF9 PRINT (0,3780) !COLUMN
75530 %WW-OE3 00004E00 7560 POS = 0 & LINE = 19 & MORE$ = ''
75532 %WW-OE3 00004E1D UPDTITEM$ = INBR$
75534 %WW-OE3 00004E26 IF ALTITEM$ NE '' AND ALTITEM$ NE ' ' _
75536 %WW-OE3 00004E34 UPDTITEM$ = ALTITEM$
75540 %WW-OE3 00004E4B READ (Q6,0000)KEY=UPDTITEM$,EXCP=7570
75550 %WW-OE3 00004E5A 7570 KEY$ = KEY(Q6,EXCP=7584)
75560 %WW-OE3 00004E6A IF SUB(KEY$,1,14) NE UPDTITEM$ GOTO 7584
75570 %WW-OE3 00004E8B READ (Q6,0000),EXCP=6180
75574 %WW-OE3 00004E96 KEY$ = SUB(KEY$,15,12)
75578 %WW-OE3 00004EAD READ (Q1,0095)KEY=KEY$,EXCP=6200
75580 %WW-OE3 00004EBC IF LINE EQ 23 GOTO 7580
75584 %WW-OE3 00004ED0 7576 POQTYAVL = QQTYORD - QQTYAL ! CHANGED QTYAVL TO POQT
75590 %WW-OE3 00004EDF PRINT (0,3800) ! QTYAVL IS SET IN 71600
75600 %WW-OE3 00004EE6 LINE = LINE + 1
75610 %WW-OE3 00004EF5 GOTO 7570
75620 %WW-OE3 00004EFA !
75630 %WW-OE3 00004EFA 7580 MESS$ = ' FOR MORE/End'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 61
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
75640 %WW-OE3 00004F03 GOSUB 9000
75644 %WW-OE3 00004F08 MORE$ = 'Y'
75650 %WW-OE3 00004F11 IF AN$ EQ '' _
75660 %WW-OE3 00004F11 POS = 0 & LINE = 19 & _
75670 %WW-OE3 00004F33 PRINT (0,3810) & GOTO 7576
75680 %WW-OE3 00004F3F IF AN$ NE 'E' AND AN$ NE 'END' _
75690 %WW-OE3 00004F4D GOTO 7580
75700 %WW-OE3 00004F60 GOTO 7590
75710 %WW-OE3 00004F65 !
75720 %WW-OE3 00004F65 7584 !!!! IF MORE$ EQ '' GOTO 7590 ! BANGED OUT 01/08/92
75724 %WW-OE3 00004F65 MESS$ = 'END OF PO LIST FOR THIS ITEM/Restart/End'
75730 %WW-OE3 00004F6E GOSUB 9000
75740 %WW-OE3 00004F73 IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' _
75750 %WW-OE3 00004F81 PRINT (0,3810) &_
75760 %WW-OE3 00004F96 GOTO 7560
75770 %WW-OE3 00004F9B IF AN$ NE '' AND AN$ NE 'E' AND AN$ NE 'END' _
75780 %WW-OE3 00004FB7 GOTO 7584
75790 %WW-OE3 00004FCA !
75800 %WW-OE3 00004FCA 7590 !!!! PRINT (0,3710) ! (BF) DISPLAY AREA
75810 %WW-OE3 00004FCA INBR$ = ZINBR$ + ' '
75820 %WW-OE3 00004FDC RETURN
75830 %WW-OE3 00004FDD !
76000 %WW-OE3 00004FDD ! ========== GET LINE # ==========
76002 %WW-OE3 00004FDD !
76004 %WW-OE3 00004FDD 7600 IF ZZCOID$ EQ 'TR' AND DISPLY EQ 0 THEN
76006 %WW-OE3 00004FFA DISPLY = 1
76008 %WW-OE3 00005004 GOSUB 7810
76010 %WW-OE3 00005009 !!!! GOSUB 7880
76012 %WW-OE3 00005009 !!!! PRINT (0,3180)
76014 %WW-OE3 00005009 ENDIF
76020 %WW-OE3 00005009 7602 MESS$ = 'DETAIL LINE ENTRY - LINE #/Display/ENTER'
76040 %WW-OE3 00005012 GOSUB 9000
76060 %WW-OE3 00005017 IF AN$ EQ '' OR AN$ EQ 'E' OR AN$ EQ 'END' _
76070 %WW-OE3 00005033 POP & GOTO 5800
76080 %WW-OE3 00005047 IF AN$ EQ 'D' OR AN$ EQ 'DISPLAY' _
76082 %WW-OE3 00005055 GOSUB 7810 & GOTO 7602
76084 %WW-OE3 0000506D AN = NUM(AN$,ERR)
76088 %WW-OE3 0000507C IF AN EQ 0 GOTO 7602
76110 %WW-OE3 00005090 OLINE$ = SUB('000',1,3-LEN(AN$)) + AN$
76114 %WW-OE3 000050BC GOSUB 7680 ! INITIALIZE
76120 %WW-OE3 000050C1 7610 READ (O1,0065)KEY=ORNBR$+OLINE$,EXCP=7629
76140 %WW-OE3 000050DA ZQTYORD = OQTYORD & PODISP$ = SUB(OQORNBR$,4,6)
76144 %WW-OE3 000050FB IF (PODISP$ EQ '' OR PODISP$ EQ ' ') AND OQTYBOD
76148 %WW-OE3 00005117 PODISP$ = 'BCKORD'
76160 %WW-OE3 0000512F ZINBR$ = INBR$ & ZZINBR$ = INBR$ & ZQTYBOD = OQTYBOD
76164 %WW-OE3 0000514B ZOISFLG$ = OISFLG$ & ZPRICE = OPRICE & ZCUTYRD$ = O1CU
76170 %WW-OE3 00005167 XQORNBR$ = OQORNBR$ & XQLINE$ = OQLINE$
76180 %WW-OE3 00005179 IPATTNME$ = '' & ICOLOR$ = '' & IINBR$ = ''
76184 %WW-OE3 00005194 QOSHPDTE$ = '' & ALTITEM$ = ''
76188 %WW-OE3 000051A6 READ (Q1,0095)KEY=OQORNBR$+OQLINE$,EXCP=7616
76192 %WW-OE3 000051BF 7616 PODT$ = QOSHPDTE$
76196 %WW-OE3 000051C8 IPATTERN$ = '' & IDSCNTDT$ = ''
76200 %WW-OE3 000051DA READ (I1A,0200)KEY=INBR$,EXCP=7627
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 62
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
76210 %WW-OE3 000051E9 ZIINBR$ = IINBR$
76214 %WW-OE3 000051F2 READ (I1A,0201)KEY=IINBR$,EXCP=7620
76220 %WW-OE3 00005201 7620 READ (I1P,0215)KEY=IPATTERN$,EXCP=7628
76240 %WW-OE3 00005210 7624 GOSUB 7660
76242 %WW-OE3 00005215 !!!! ZOISFLG$ = OISFLG$
76244 %WW-OE3 00005215 MINVFLAG$ = ''
76246 %WW-OE3 0000521E READ (M1C,0650)KEY='P'+IPL$,EXCP=7625
76248 %WW-OE3 00005237 7625 ZINVUPDT$ = MINVFLAG$
76250 %WW-OE3 00005240 IF ZREPAPRV$ EQ 'Q' _ ! 09/11/2006 TLF
76252 %WW-OE3 00005240 ZINVUPDT$ = 'N'
76260 %WW-OE3 00005257 7626 !!!! GOSUB 7750 ! CHECK FOR DISCONTINUED DATE
76264 %WW-OE3 00005257 PRINT (0,3190)
76270 %WW-OE3 0000525E RETURN
76280 %WW-OE3 0000525F !
76282 %WW-OE3 0000525F 7627 IF EXCP EQ 33 AGAIN
76284 %WW-OE3 0000526F GOTO 7620
76286 %WW-OE3 00005274 !
76288 %WW-OE3 00005274 7628 IF EXCP EQ 33 AGAIN
76290 %WW-OE3 00005284 GOTO 7624
76292 %WW-OE3 00005289 !
76294 %WW-OE3 00005289 7629 !!!! IF EXCP EQ 32 AND (ZOETYPE$ EQ 'O' OR ZMNTTYP$ EQ
76296 %WW-OE3 00005289 !!!! MESS$ = 'LINE NOT FOUND - ENTER' & GOSUB 9050 & GOT
76298 %WW-OE3 00005289 GOTO 7626
76300 %WW-OE3 0000528E ! ========== CALCULATE LINE WEIGHT ==========
76302 %WW-OE3 0000528E 7630 TOTWGHT = (IWGHTLB * QTY) +_
76304 %WW-OE3 00005297 ((IWGHTOZ * QTY * 1.00) / 16.00)
76306 %WW-OE3 000052CB IF ZZFRTYL$ EQ 'Y' _
76307 %WW-OE3 000052CB TOTWGHT = OQTYORD * YDGFACT
76312 %WW-OE3 000052E7 7632 PKGS = 1
76316 %WW-OE3 000052F1 IF TOTWGHT GT ZZMAXUPS AND ZZFRTYL$ NE 'Y' THEN
76320 %WW-OE3 0000530E PKGS = INT((TOTWGHT * 1.00) / (ZZMAXUPS * 1.00)) +
76324 %WW-OE3 00005343 WGHT = (TOTWGHT * 1.00) / (PKGS * 1.00)
76329 %WW-OE3 0000536D TOTWGHT = WGHT * PKGS
76334 %WW-OE3 0000537B ELSE
76336 %WW-OE3 00005380 WGHT = TOTWGHT
76350 %WW-OE3 0000538A ENDIF
76352 %WW-OE3 0000538A IF WGHT EQ 0 WGHT = 1
76354 %WW-OE3 000053A3 RETURN
76374 %WW-OE3 000053A4 !
76400 %WW-OE3 000053A4 ! ========== DELETE DETAIL LINE ('OM') ==========
76410 %WW-OE3 000053A4 7640 !
76420 %WW-OE3 000053A4 MESS$ = 'DELETE THIS DETAIL LINE? (Yes/No)'
76430 %WW-OE3 000053AD GOSUB 9000
76440 %WW-OE3 000053B2 IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7652
76450 %WW-OE3 000053D3 IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7640
76460 %WW-OE3 000053F4 UPDTITEM$ = INBR$ + ' '
76464 %WW-OE3 00005406 ZINBR$ = ZZINBR$
76470 %WW-OE3 0000540F DELETE (O1)KEY=ORNBR$+OLINE$,EXCP=7648
76480 %WW-OE3 00005424 7648 DELETE (O1B)KEY=ZZINBR$+CNBR$+ORNBR$+OLINE$,EXCP=7650
76484 %WW-OE3 0000544B 7650 IF ZZINBR$ NE '' AND SUB(ZZINBR$,1,1) NE 'Z' AND _
76486 %WW-OE3 00005475 OISFLG$ NE 'S' THEN
76488 %WW-OE3 00005483 UPDTITEM$ = ZZINBR$
76490 %WW-OE3 0000548C IF ZIINBR$ NE '' AND ZIINBR$ NE ' '
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 63
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
76492 %WW-OE3 0000549A UPDTITEM$ = ZIINBR$
76494 %WW-OE3 000054B1 QTYORD = ZQTYORD & QTYBOD = ZQTYBOD
76496 %WW-OE3 000054C5 QOR$ = XQORNBR$ & QLN$ = XQLINE$
76500 %WW-OE3 000054D7 PLSORMIN = -1 & GOSUB 7200
76504 %WW-OE3 000054E7 ENDIF
76508 %WW-OE3 000054E7 GOSUB 7820
76520 %WW-OE3 000054EC 7652 RETURN
76530 %WW-OE3 000054ED !
76600 %WW-OE3 000054ED ! ========== BUILD DESCRIPTION FIELD FOR DISPLAY ==========
76610 %WW-OE3 000054ED 7660 DESC$ = '' & OISFLG$ = IISFLG$
76620 %WW-OE3 000054FF IF IISFLG$ NE 'S' THEN
76630 %WW-OE3 0000550D DESC$ = IPATTNME$
76640 %WW-OE3 00005516 PRINT (#) DESC$ & INPUT (#) DESC$
76650 %WW-OE3 0000552C IF LEN(DESC$) GE 14 DESC$ = SUB(DESC$,1,14)
76660 %WW-OE3 00005553 DESC$ = DESC$ + ' '
76670 %WW-OE3 00005565 ENDIF
76680 %WW-OE3 00005565 DESC$ = DESC$ + ICOLOR$
76690 %WW-OE3 00005577 RETURN
76694 %WW-OE3 00005578 !
76700 %WW-OE3 00005578 !========== INITIALIZE AVAILABLE & DISPLAY INFO ==========
76704 %WW-OE3 00005578 7670 QTYAVL = IQOHND + IQOHNDBN - IQOCMTD - IQICMTD !!!!
76708 %WW-OE3 00005591 PRINT (0,3710)
76712 %WW-OE3 00005598 CMNT$(1) = STRIP(ICOMNT1$) & CMNT$(2) = STRIP(ICOMNT2$
76716 %WW-OE3 000055D0 CMNT$(3) = STRIP(ICOMNT3$) & CMNT$(4) = STRIP(ICCOMM1$
76720 %WW-OE3 00005608 CMNT$(5) = STRIP(ICCOMM2$)
76724 %WW-OE3 00005624 7672 FOR I = 1 TO 4
76728 %WW-OE3 0000563D IF CMNT$(I) EQ '' AND CMNT$(I+1) NE '' _
76732 %WW-OE3 0000566F CMNT$(I) = CMNT$(I+1) & CMNT$(I+1) = ''
76736 %WW-OE3 000056CA NEXT I
76740 %WW-OE3 000056DE FNDBLNK = 0
76744 %WW-OE3 000056E8 FOR I = 1 TO 4
76746 %WW-OE3 00005701 IF CMNT$(I) EQ '' FNDBLNK = 1
76748 %WW-OE3 00005726 IF FNDBLNK EQ 1 AND CMNT$(I+1) NE '' _
76750 %WW-OE3 0000574C GOTO 7672
76754 %WW-OE3 0000575F NEXT I
76760 %WW-OE3 00005773 PRINT (0,3718)
76764 %WW-OE3 0000577A IF OISFLG$ NE 'S' _
76768 %WW-OE3 0000577A PRINT (0,3722)
76772 %WW-OE3 0000578F IF CMNT$(4) NE '' _
76776 %WW-OE3 0000579C MESS$ = 'ENTER FOR ADDITIONAL COMMENTS' & GOSUB 900
76780 %WW-OE3 000057B8 PRINT (0,3720)
76784 %WW-OE3 000057BF RETURN
76786 %WW-OE3 000057C0 !
76800 %WW-OE3 000057C0 ! ========== INITIALIZE DETAIL LINE FIELDS ==========
76810 %WW-OE3 000057C0 !
76820 %WW-OE3 000057C0 7680 INBR$ = ''
76830 %WW-OE3 000057C9 7682 OQTYORD = 0 & OQTYSHP = 0 & OQTYREL = 0 & OEXT = 0
76840 %WW-OE3 000057F1 OICOST = 0 & ICOST = 0 & IUNIT$ = ''
76850 %WW-OE3 0000580E OPRICE = 0 & OQTYBIL = 0 & FRTLINE = 0 & OCOMPCT1 = 0
76860 %WW-OE3 00005836 VDRPSHP$ = ' ' & WGHT = 0 & IINBR$ = '' & ALTITEM$ = '
76870 %WW-OE3 0000585B OCOMPCT2 = 0 & PODT$ = '' & OISFLG$ = ''
76880 %WW-OE3 00005877 OTAG$ = '' & IPATTERN$ = '' & DESC$ = ''
76890 %WW-OE3 00005892 ORETCD$ = '' & OQORNBR$ = '' & OQLINE$ = ''
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 64
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
76900 %WW-OE3 000058AD OQTYBOD = 0 & ICOLOR$ = '' & POINPUT$ = '' & PODISP$ =
76910 %WW-OE3 000058D2 SPCOMM = 0 & SPRCOMM = 0 & KEYO1$ = ORNBR$ + OLINE$
76920 %WW-OE3 000058F8 ZZINBR$ = '' & ZINBR$ = '' & ZQTYORD = 0 & ZIINBR$ = '
76930 %WW-OE3 0000591D ZZIINBR$ = '' & ZOISFLG$ = '' & OMANBO$ = ''
76932 %WW-OE3 00005938 OMSHPDTE$ = '' & OOSHPDTE$ = '' & ODFCST = 0
76934 %WW-OE3 00005954 O1CUTYRD$ = '' & ZCUTYRD$ = ''
76940 %WW-OE3 00005966 XQORNBR$ = '' & XQLINE$ = '' & ZQTYBOD = 0 & PODISP$ =
76944 %WW-OE3 0000598B OSPLITLN$ = '' & OACTCD1$ = '' & OACTCD2$ = '' & OACTC
76948 %WW-OE3 000059AF OACTDT1$ = '' & OACTDT2$ = '' & OACTDT3$ = '' & OCSTOV
76952 %WW-OE3 000059D3 OORIGQTY = 0 & OLEADTM = 0 & OLDSCPCT = 0 & OLDSCAMT =
76954 %WW-OE3 000059FB ONDPRICE = 0 & IPRICE2 = 0 & IPBP2 = 0
76970 %WW-OE3 00005A19 GOSUB 7546 ! INITIALIZE LOT/PCE ARRAY
76974 %WW-OE3 00005A1E RETURN
76978 %WW-OE3 00005A1F !
77000 %WW-OE3 00005A1F ! ========== ORDER DETAIL LINE DISPLAY ROUTINE ==========
77010 %WW-OE3 00005A1F 7700 !
77020 %WW-OE3 00005A1F PRINT (0,3440) !(BF) DI
77030 %WW-OE3 00005A26 OLINE$ = '' & PRINT (0,3190)
77040 %WW-OE3 00005A36 7710 POS = 0 & LINE1 = 11 & LINE2 = 12
77050 %WW-OE3 00005A54 READ (O1,0065)KEY=ORNBR$,EXCP=7720
77060 %WW-OE3 00005A63 7720 KEY$ = KEY(O1,EXCP=7744)
77070 %WW-OE3 00005A73 IF SUB(KEY$,1,9) NE ORNBR$ GOTO 7744
77080 %WW-OE3 00005A94 READ (O1,0065),EXCP=6300
77090 %WW-OE3 00005A9F IPATTNME$ = '' & ICOLOR$ = '' & IPATTERN$ = '' & IUNIT
77092 %WW-OE3 00005AC3 QOSHPDTE$ = ''
77094 %WW-OE3 00005ACC READ (Q1,0095)KEY=OQORNBR$+OQLINE$,EXCP=7722
77096 %WW-OE3 00005AE5 7722 PODT$ = QOSHPDTE$
77100 %WW-OE3 00005AEE READ (I1A,0200)KEY=INBR$,EXCP=7724
77110 %WW-OE3 00005AFD 7724 READ (I1P,0215)KEY=IPATTERN$,EXCP=7726 !BUILD DESCR
77114 %WW-OE3 00005B0C 7726 GOSUB 7660 !BUILD DESCR
77118 %WW-OE3 00005B11 PODISP$ = ''
77122 %WW-OE3 00005B1A IF OQORNBR$ EQ ' ' AND OQTYBOD NE 0 _
77126 %WW-OE3 00005B28 PODISP$ = 'BCKORD'
77130 %WW-OE3 00005B40 IF OQORNBR$ NE ' ' _
77134 %WW-OE3 00005B40 PODISP$ = SUB(OQORNBR$,4,6)
77138 %WW-OE3 00005B65 IF SUB(INBR$,1,1) EQ 'Z' DESC$ = ''
77142 %WW-OE3 00005B8A IF LINE1 EQ 19 GOTO 7740
77146 %WW-OE3 00005B9E 7730 PRINT (0,3980)
77150 %WW-OE3 00005BA5 LINE1 = LINE1 + 2 & LINE2 = LINE1 + 1
77154 %WW-OE3 00005BC3 GOTO 7720
77158 %WW-OE3 00005BC8 !
77180 %WW-OE3 00005BC8 7740 !
77184 %WW-OE3 00005BC8 MESS$ = ' FOR MORE/End'
77190 %WW-OE3 00005BD1 GOSUB 9000
77200 %WW-OE3 00005BD6 IF AN$ EQ '' _
77210 %WW-OE3 00005BD6 POS = 0 & LINE1 = 11 & LINE2 = 12 &_
77220 %WW-OE3 00005C02 PRINT (0,3440) & GOTO 7730
77230 %WW-OE3 00005C0E IF AN$ NE 'E' AND AN$ NE 'END' _
77240 %WW-OE3 00005C1C GOTO 7740
77250 %WW-OE3 00005C2F GOTO 7748
77260 %WW-OE3 00005C34 !
77270 %WW-OE3 00005C34 7744 !
77274 %WW-OE3 00005C34 MESS$ = 'END OF LINES FOR THIS ORDER/Restart/End'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 65
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
77280 %WW-OE3 00005C3D GOSUB 9000
77290 %WW-OE3 00005C42 IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' _
77300 %WW-OE3 00005C50 PRINT (0,3440) &_
77310 %WW-OE3 00005C65 GOTO 7710
77320 %WW-OE3 00005C6A IF AN$ NE '' AND AN$ NE 'E' AND AN$ NE 'END' _
77330 %WW-OE3 00005C86 GOTO 7744
77340 %WW-OE3 00005C99 !
77350 %WW-OE3 00005C99 7748 PRINT (0,3440) !(BF) DI
77360 %WW-OE3 00005CA0 7749 RETURN
77370 %WW-OE3 00005CA1 !
77500 %WW-OE3 00005CA1 ! ========== CHECK FOR DISCONTINUED DATE ==========
77510 %WW-OE3 00005CA1 !
77520 %WW-OE3 00005CA1 7750 !
77530 %WW-OE3 00005CA1 !!!! IF IDSCNTDT$ NE '' AND IDSCNTDT$ NE ' ' _
77540 %WW-OE3 00005CA1 !!!! MESS$ = 'ITEM DISCONTINUED ' + IDSCNTDT$ & _
77550 %WW-OE3 00005CA1 !!!! MESS$ = MESS$ + ' - ENTER' & _
77560 %WW-OE3 00005CA1 !!!! GOSUB 9050
77562 %WW-OE3 00005CA1 IF IDSCNTDT$ NE '' AND IDSCNTDT$ NE ' ' THEN
77564 %WW-OE3 00005CBD MESS$ = 'ITEM DISCONTINUED ' + IDSCNTDT$
77566 %WW-OE3 00005CCF MESS$ = MESS$ + ' - ENTER'
77567 %WW-OE3 00005CE1 IF ZZCOID$ EQ 'HC' AND SUB(IDSCNTDT$,1,1) EQ '*' R
77568 %WW-OE3 00005D0C GOSUB 9050
77569 %WW-OE3 00005D11 ENDIF
77570 %WW-OE3 00005D11 !
77575 %WW-OE3 00005D11 RETURN
77580 %WW-OE3 00005D12 !
77600 %WW-OE3 00005D12 ! ========== LINE PRICING ROUTINE ==========
77602 %WW-OE3 00005D12 7760 !
77604 %WW-OE3 00005D12 IF (ZCLASS$ EQ 'E' AND ZZCOID$ EQ 'JC') OR _ !IF JA
77606 %WW-OE3 00005D33 (ZCLASS$ EQ '4' AND ZZCOID$ EQ 'AS') OR _ !OR AS
77608 %WW-OE3 00005D54 (OSLSTYP$ EQ 'JO' AND ZZCOID$ EQ 'EC') THEN !OR EC
77610 %WW-OE3 00005D70 OPRICE = IPRICE2 !THEN
77612 %WW-OE3 00005D7A ELSE
77614 %WW-OE3 00005D7F OPRICE = IPRICE1 ! DEFA
77616 %WW-OE3 00005D89 ENDIF
77618 %WW-OE3 00005D89 IF ZZCOID$ EQ 'EC' AND OSLSTYP$ EQ 'RE' OPRICE = IPRIC
77620 %WW-OE3 00005DAF !!!! IF ODSCFLG$ EQ 'L' AND (ZZCOID$ NE 'IN' OR OISFLG$ NE
77622 %WW-OE3 00005DAF IF ODSCFLG$ EQ 'L' AND OISFLG$ NE 'S' _ ! TLF 09/13
77624 %WW-OE3 00005DBD OPRICE = OPRICE * ((100.00 - ODISCPCT) * .0100)
77626 %WW-OE3 00005DF6 IF ZZSTRSL$ EQ 'Y' AND OISFLG$ NE 'S' _
77628 %WW-OE3 00005E04 OPRICE = OPRICE * ((100.00 - ZZSTRPCT) * .0100)
77634 %WW-OE3 00005E3D IF STRIP(CCONSWHS$) NE '' OPRICE = 0 ! ZERO PRICE F
77638 %WW-OE3 00005E5B ZPRICE = OPRICE
77640 %WW-OE3 00005E65 RETURN
77642 %WW-OE3 00005E66 !
77644 %WW-OE3 00005E66 7764 SPCOMM = 0 & SPQTY = 0
77646 %WW-OE3 00005E7A READ (C1X,0180)KEY=CUST$+INBR$,EXCP=7766
77648 %WW-OE3 00005E93 GOSUB 7773
77652 %WW-OE3 00005E98 IF ZCALCDT8$ GE STRTDT8$ AND ZCALCDT8$ LE CALCDT8$ _
77656 %WW-OE3 00005EA6 GOSUB 7777 & GOTO 7770
77660 %WW-OE3 00005EBE !
77664 %WW-OE3 00005EBE 7766 READ (C1X,0180)KEY=CUST$+IPATTERN$,EXCP=7768
77668 %WW-OE3 00005ED7 GOSUB 7773
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 66
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
77672 %WW-OE3 00005EDC IF ZCALCDT8$ GE STRTDT8$ AND ZCALCDT8$ LE CALCDT8$ _
77676 %WW-OE3 00005EEA GOSUB 7777 & GOTO 7770
77680 %WW-OE3 00005F02 !
77682 %WW-OE3 00005F02 7768 READ (C1X,0180)KEY=CUST$+IPL$,EXCP=7770
77684 %WW-OE3 00005F1B GOSUB 7773
77686 %WW-OE3 00005F20 IF ZCALCDT8$ GE STRTDT8$ AND ZCALCDT8$ LE CALCDT8$ _
77688 %WW-OE3 00005F2E GOSUB 7777
77690 %WW-OE3 00005F41 !
77700 %WW-OE3 00005F41 7770 IF OPKGSAMP$ EQ 'Y' OPRICE = 0
77704 %WW-OE3 00005F59 ZPRICE = OPRICE
77708 %WW-OE3 00005F63 IF SPCOMM EQ 0 AND CUST$ NE 'ALL ' _
77710 %WW-OE3 00005F72 CUST$ = 'ALL ' & GOTO 7764
77712 %WW-OE3 00005F8E RETURN
77714 %WW-OE3 00005F8F !
77720 %WW-OE3 00005F8F 7773 CALCDT8$ = SUB(SPEXDTE$,7,4)
77722 %WW-OE3 00005FA6 CALCDT8$ = CALCDT8$ + SUB(SPEXDTE$,1,2)
77724 %WW-OE3 00005FC6 CALCDT8$ = CALCDT8$ + SUB(SPEXDTE$,4,2)
77726 %WW-OE3 00005FE6 STRTDT8$ = SUB(SPSTDTE$,7,4)
77728 %WW-OE3 00005FFD STRTDT8$ = STRTDT8$ + SUB(SPSTDTE$,1,2)
77730 %WW-OE3 0000601D STRTDT8$ = STRTDT8$ + SUB(SPSTDTE$,4,2)
77732 %WW-OE3 0000603D RETURN
77736 %WW-OE3 0000603E !
77740 %WW-OE3 0000603E 7777 IF OQTYORD GE SPQTY AND CUST$ NE 'ALL ' THEN
77744 %WW-OE3 0000605C IF SPPRICE NE 0 THEN
77748 %WW-OE3 0000606B OPRICE = SPPRICE
77752 %WW-OE3 00006075 ELSE
77756 %WW-OE3 0000607A OPRICE = OPRICE * ((100.00 - SPDISC) * .0100)
77760 %WW-OE3 000060A5 ENDIF
77764 %WW-OE3 000060A5 GOSUB 7380
77768 %WW-OE3 000060AA ENDIF
77772 %WW-OE3 000060AA RETURN
77776 %WW-OE3 000060AB !
77800 %WW-OE3 000060AB ! ========== CHECK FOR DUPLICATE INPUT ==========
77802 %WW-OE3 000060AB 7780 DUPCHK = 0 & DUPKEY$ = ''
77804 %WW-OE3 000060BE 7781 INBR$ = INBR$ + ' '
77806 %WW-OE3 000060D0 PRTKY20$ = INBR$ + CNBR$
77808 %WW-OE3 000060E2 READ (O1BRD,0000)KEY=PRTKY20$,EXCP=7782
77810 %WW-OE3 000060F1 7782 KEY$ = KEY(O1BRD,EXCP=7792)
77812 %WW-OE3 00006101 IF SUB(KEY$,1,20) NE PRTKY20$ GOTO 7792
77814 %WW-OE3 00006122 READ (O1BRD,0000),EXCP=6460
77816 %WW-OE3 0000612D ORDNUM$ = SUB(KEY$,21,9)
77818 %WW-OE3 00006144 IF ORDNUM$ NE ORNBR$ THEN ! 06/19/2003 TLF. WAS .
77820 %WW-OE3 00006152 IF ZZCOID$ EQ 'TR' THEN
77822 %WW-OE3 00006160 IF POS('-',ORDNUM$) NE 0 _ ! IGNORE ONE-STEPS
77824 %WW-OE3 0000616A DUPKEY$ = KEY$
77826 %WW-OE3 0000617D ELSE
77828 %WW-OE3 00006182 GOTO 7784
77830 %WW-OE3 00006187 ENDIF
77832 %WW-OE3 00006187 ENDIF
77840 %WW-OE3 00006187 GOTO 7782
77844 %WW-OE3 0000618C !
77848 %WW-OE3 0000618C 7784 O1BLN$ = SUB(KEY$,30,3) & QTY = 0
77852 %WW-OE3 000061AD RESV$ = ' ' & DISPDT$ = '??????????'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 67
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
77854 %WW-OE3 000061BF SHPDT$ = '??????????' & INVC$ = '?????????'
77856 %WW-OE3 000061D1 READ (O1ARD,0031)KEY=ORDNUM$,EXCP=6740
77860 %WW-OE3 000061E0 7786 READ (O1RD,0033)KEY=ORDNUM$+O1BLN$,EXCP=6740
77864 %WW-OE3 000061F9 7788 ORDRSRV$ = 'ORDERED '
77868 %WW-OE3 00006202 IF RESV$ NE ' ' ORDRSRV$ = 'RESERVED'
77872 %WW-OE3 00006219 PRINT (0,3710) & PRINT (0,3850)
77876 %WW-OE3 00006227 IF RESV$ NE ' ' PRINT (0,3860)
77878 %WW-OE3 0000623C IF DUPCHK EQ 1 PRINT (0,3862) ! PRINT SHIPPED ORDER
77880 %WW-OE3 00006252 MESS$ = 'CAUTION - POSSIBLE DUPLICATE ORDER - ENTER'
77884 %WW-OE3 0000625B GOSUB 9050
77888 %WW-OE3 00006260 7790 MESS$ = 'CONTINUE WITH THIS LINE ENTRY? (Yes/No)'
77892 %WW-OE3 00006269 GOSUB 9000
77894 %WW-OE3 0000626E IF AN$ EQ 'N' OR AN$ EQ 'NO' THEN
77896 %WW-OE3 0000628A IF DUPCHK EQ 1 GOSUB 7794 ! RE-SET LUNS
77900 %WW-OE3 0000629E POPALL & GOTO 5000
77902 %WW-OE3 000062A4 ENDIF
77904 %WW-OE3 000062A4 IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7790
77906 %WW-OE3 000062C5 IF DUPCHK EQ 1 GOSUB 7794 ! RE-SET LUNS
77908 %WW-OE3 000062D9 GOTO 7798
77910 %WW-OE3 000062DE !
77914 %WW-OE3 000062DE 7792 IF ZZCOID$ EQ 'TR' AND DUPKEY$ NE '' _ ! 06/19/2003
77916 %WW-OE3 000062EC KEY$ = DUPKEY$ & ORDNUM$ = SUB(KEY$,21,9) & GOTO 77
77920 %WW-OE3 0000631F 7793 GOSUB 7794
77925 %WW-OE3 00006324 IF DUPCHK EQ 2 _
77927 %WW-OE3 00006324 GOTO 7798
77929 %WW-OE3 00006338 GOTO 7781
77931 %WW-OE3 0000633D !
77940 %WW-OE3 0000633D 7794 IF DUPCHK EQ 1 THEN
77942 %WW-OE3 0000634C CLOSE (O1ARD) & CLOSE (O1BRD) & CLOSE (O1RD)
77944 %WW-OE3 00006355 FLNM$ = ZZCO$ + 'O1A' & OPEN (O1ARD) FLNM$
77946 %WW-OE3 0000636E FLNM$ = ZZCO$ + 'O1B' & OPEN (O1BRD) FLNM$
77948 %WW-OE3 00006387 FLNM$ = ZZCO$ + 'O1' & OPEN (O1RD) FLNM$
77950 %WW-OE3 000063A0 DUPCHK = 2
77952 %WW-OE3 000063AA ENDIF
77954 %WW-OE3 000063AA IF DUPCHK EQ 0 THEN
77956 %WW-OE3 000063B9 CLOSE (O1ARD) & CLOSE (O1BRD) & CLOSE (O1RD)
77958 %WW-OE3 000063C2 FLNM$ = ZZCO$ + 'BUR9M'
77960 %WW-OE3 000063D4 IF ZZCOID$ EQ 'TR' _
77962 %WW-OE3 000063D4 FLNM$ = ZZCO$ + 'R9M'
77964 %WW-OE3 000063F4 OPEN (O1ARD) FLNM$
77966 %WW-OE3 000063FB FLNM$ = ZZCO$ + 'O1BHC' & OPEN (O1BRD) FLNM$
77968 %WW-OE3 00006414 FLNM$ = ZZCO$ + 'O1H' & OPEN (O1RD) FLNM$
77970 %WW-OE3 0000642D DUPCHK = 1
77972 %WW-OE3 00006437 ENDIF
77974 %WW-OE3 00006437 RETURN
77976 %WW-OE3 00006438 !
77988 %WW-OE3 00006438 7798 PRINT (0,3710)
77992 %WW-OE3 0000643F 7799 RETURN
77996 %WW-OE3 00006440 !
78100 %WW-OE3 00006440 !========== PROCESS "DISPLAY" OPTION ==========
78104 %WW-OE3 00006440 !
78108 %WW-OE3 00006440 7810 !
78112 %WW-OE3 00006440 GOSUB 7700
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 68
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
78116 %WW-OE3 00006445 GOSUB 7880
78120 %WW-OE3 0000644A 7812 PRINT (0,3180)
78124 %WW-OE3 00006451 IF ZCSACAT$ NE '' AND ZCSACAT$ NE ' ' _
78128 %WW-OE3 0000645F PRINT (0,3690)
78132 %WW-OE3 00006474 RETURN
78136 %WW-OE3 00006475 !
78200 %WW-OE3 00006475 ! ========== DELETE SHIPPED LINES ==========
78202 %WW-OE3 00006475 7820 KEYO1$ = ORNBR$ + OLINE$
78204 %WW-OE3 00006487 IF (ZOETYPE$ EQ 'M' OR SLCTLN$ EQ 'Y' OR ZMNTTYP$ EQ '
78206 %WW-OE3 000064B1 AND INBR$ NE ZZINBR$ AND ZZINBR$ NE '' THEN
78210 %WW-OE3 000064CD UPDTITEM$ = ZZINBR$
78212 %WW-OE3 000064D6 IF ZIINBR$ NE '' AND ZIINBR$ NE ' '
78214 %WW-OE3 000064E4 UPDTITEM$ = ZIINBR$
78216 %WW-OE3 000064FB ELSE
78218 %WW-OE3 00006500 UPDTITEM$ = INBR$
78220 %WW-OE3 00006509 IF ALTITEM$ NE '' AND ALTITEM$ NE '
78222 %WW-OE3 00006517 UPDTITEM$ = ALTITEM$
78224 %WW-OE3 0000652E ENDIF
78226 %WW-OE3 0000652E !
78228 %WW-OE3 0000652E READ (O1S,0068)KEY=KEYO1$,EXCP=7822
78230 %WW-OE3 0000653D 7822 KEY$ = KEY(O1S,EXCP=7826)
78240 %WW-OE3 0000654D IF SUB(KEY$,1,12) NE KEYO1$ GOTO 7826
78242 %WW-OE3 0000656E READ (O1S,0068),EXCP=7824
78244 %WW-OE3 00006579 EXTRACT (I1R,0210)KEY=UPDTITEM$+OLOT$+OPCE$,EXCP=6640
78246 %WW-OE3 0000659B RQALCTD = RQALCTD - OSHPPCE
78248 %WW-OE3 000065AA IF RQALCTD LT 0 RQALCTD = 0
78250 %WW-OE3 000065C3 WRITE (I1R,0210)
78252 %WW-OE3 000065CA 7824 DELETE (O1S)KEY=KEY$,EXCP=7822
78260 %WW-OE3 000065D5 GOTO 7822
78270 %WW-OE3 000065DA 7826 INBR$ = ZINBR$ + ' '
78272 %WW-OE3 000065EC O1CUTYRD$ = '' ! 04/12/2002 FOR JIM THOMPSO
78280 %WW-OE3 000065F5 RETURN
78290 %WW-OE3 000065F6 !
78300 %WW-OE3 000065F6 7830 !======= CHECK IF CUTTINGS INVENTORIED IN USA ========
78350 %WW-OE3 000065F6 !
78360 %WW-OE3 000065F6 IF ZZCOID$ EQ 'ZR' RETURN !ADDED 1/25/01 BY STEVE
78400 %WW-OE3 00006605 IF ISTKCFA$ NE 'Y' RETURN
78450 %WW-OE3 00006614 MESS$='cuttings inventoried here ' & GOSUB 9000
78460 %WW-OE3 00006622 MESS$='do not mix with cuttings from the mill '
78470 %WW-OE3 0000662B GOSUB 9000
78480 %WW-OE3 00006630 RETURN
78500 %WW-OE3 00006631 ! ========== VERIFY MM/DD/YYYY OF I1R DATE RCVD WHSE =======
78502 %WW-OE3 00006631 !
78504 %WW-OE3 00006631 7850 XDATE$ = RRCVDWHS$
78506 %WW-OE3 0000663A IF LEN(STRIP(RRCVDWHS$)) EQ 10 GOTO 7858 ! ASSUME
78508 %WW-OE3 00006655 MESS$ = RRCVDWHS$ & XDATE$ = ''
78510 %WW-OE3 00006667 AN = POS('/',MESS$)
78512 %WW-OE3 00006676 AN$ = SUB(MESS$,1,AN-1)
78514 %WW-OE3 00006697 AN$ = STRIP(AN$)
78516 %WW-OE3 000066A6 IF LEN(AN$) NE 2 _
78518 %WW-OE3 000066AC AN$ = SUB('00',1,2-LEN(AN$)) + AN$
78520 %WW-OE3 000066E2 IF AN$ LT '01' OR AN$ GT '12' _
78522 %WW-OE3 000066F0 AN$ = 'ZZ'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 69
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
78524 %WW-OE3 00006707 XDATE$ = AN$ + '/'
78526 %WW-OE3 00006719 MESS$ = SUB(MESS$,AN+1,10)
78528 %WW-OE3 0000673A AN = POS('/',MESS$)
78530 %WW-OE3 00006749 AN$ = SUB(MESS$,1,AN-1)
78532 %WW-OE3 0000676A AN$ = STRIP(AN$)
78534 %WW-OE3 00006779 IF LEN(AN$) NE 2 _
78536 %WW-OE3 0000677F AN$ = SUB('00',1,2-LEN(AN$)) + AN$
78538 %WW-OE3 000067B5 IF AN$ LT '01' OR AN$ GT '31' _
78540 %WW-OE3 000067C3 AN$ = 'ZZ'
78542 %WW-OE3 000067DA XDATE$ = XDATE$ + AN$ + '/'
78544 %WW-OE3 000067F5 MESS$ = SUB(MESS$,AN+1,10)
78546 %WW-OE3 00006816 AN$ = STRIP(MESS$)
78548 %WW-OE3 00006825 IF LEN(AN$) EQ 1 _
78550 %WW-OE3 0000682B AN$ = '0' + AN$
78552 %WW-OE3 00006847 IF LEN(AN$) EQ 2 THEN
78554 %WW-OE3 00006857 IF AN$ LT '75' THEN
78556 %WW-OE3 00006865 AN$ = '20' + AN$
78558 %WW-OE3 00006877 ELSE
78560 %WW-OE3 0000687C AN$ = '19' + AN$
78562 %WW-OE3 0000688E ENDIF
78564 %WW-OE3 0000688E ENDIF
78566 %WW-OE3 0000688E IF LEN(AN$) EQ 4 THEN
78568 %WW-OE3 0000689E XDATE$ = XDATE$ + AN$
78570 %WW-OE3 000068B0 ELSE
78572 %WW-OE3 000068B5 XDATE$ = XDATE$ + 'ZZZZ'
78574 %WW-OE3 000068C7 ENDIF
78576 %WW-OE3 000068C7 !
78578 %WW-OE3 000068C7 7858 RRCVDWHS$ = XDATE$
78580 %WW-OE3 000068D0 RETURN
78582 %WW-OE3 000068D1 !
78600 %WW-OE3 000068D1 ! =========== UPS CALCULATION ===========
78602 %WW-OE3 000068D1 7860 IF OZIP$ EQ '' OR OZIP$ EQ ' ' THEN
78604 %WW-OE3 000068ED OZIP$ = SUB(COMBLK$,1,5)
78606 %WW-OE3 00006904 NUMZIP = NUM(OZIP$,ERR)
78608 %WW-OE3 00006913 IF NUMZIP EQ 0 THEN
78612 %WW-OE3 00006922 MESS$ = 'ENTER DESTINATION ZIP CODE FOR FREIGHT
78618 %WW-OE3 0000692B MESS$ = MESS$ + 'CALCULATION - ENTER'
78624 %WW-OE3 0000693D GOSUB 9000 & NUMZIP = NUM(AN$,ERR)
78630 %WW-OE3 00006951 IF AN$ EQ '' OR NUMZIP EQ 0 THEN
78636 %WW-OE3 0000696E 7862 MESS$ = 'INVALID RESPONSE -TRY AGAIN OR END?
78642 %WW-OE3 00006977 GOSUB 9050
78648 %WW-OE3 0000697C IF AN$ EQ 'Y' OR AN$ EQ 'YES' GOTO 7860
78654 %WW-OE3 0000699D IF AN$ NE 'N' AND AN$ NE 'NO' AND _
78660 %WW-OE3 000069B9 AN$ NE 'E' AND AN$ NE 'END' GOTO 7862
78666 %WW-OE3 000069DA FRT = 0 & FRTLINE = 0 & GOTO 7878
78668 %WW-OE3 000069F3 ENDIF
78672 %WW-OE3 000069F3 OZIP$ = AN$
78674 %WW-OE3 000069FC ENDIF
78678 %WW-OE3 000069FC ENDIF
78680 %WW-OE3 000069FC ZIP5$ = OZIP$
78684 %WW-OE3 00006A05 GOSUB UPSZONE
78690 %WW-OE3 00006A0A QTY = ABS(OQTYORD) & GOSUB 7630
78696 %WW-OE3 00006A1A VALUE = ABS(OEXT)
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 70
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
78708 %WW-OE3 00006A25 FRT = 0
78714 %WW-OE3 00006A2F GOSUB UPSCALC
78756 %WW-OE3 00006A34 7878 RETURN
78762 %WW-OE3 00006A35 !
78768 %WW-OE3 00006A35 USE '^UPSCALC'
74000 ^UPSCALC 00006A35 UPSCALC:
74002 ^UPSCALC 00006A35 !
74010 ^UPSCALC 00006A35 ! THIS CODE IS USED IN THE PROGRAM 'IT' FOR DECORATIVE FA
74020 ^UPSCALC 00006A35 ! ACCOUNTS ON 'KBS' THAT OPEN THE UPS FILES IN 'OE' AND '
74030 ^UPSCALC 00006A35 !
74040 ^UPSCALC 00006A35 ! NOTE: SOURCE FOR =WW-UR IS ON DIRECTORY 'CSS',
74050 ^UPSCALC 00006A35 ! FOR CHINA SEAS.
74054 ^UPSCALC 00006A35 ! UPS CALCULATION:
74058 ^UPSCALC 00006A35 ! 1. GET ZONE FROM SHIP-TO ZIP CODE GROUND - LEAVE AS IS
74062 ^UPSCALC 00006A35 ! EARLY AM - PREFIX '14', NEXT DAY - PREFIX '10'
74066 ^UPSCALC 00006A35 ! SECOND DAY - PREFIX '20', THIRD DAY - PREFIX '30'
74070 ^UPSCALC 00006A35 ! 2. READ RATE CHART WITH ZONE & GET FREIGHT FROM WEIGHT/P
74074 ^UPSCALC 00006A35 ! 3. IF GROUNDTRAC, ADD .75 TO FREIGHT AMOUNT
74078 ^UPSCALC 00006A35 ! 4. MULTIPLY FREIGHT/PKG TIMES # OF PACKAGES
74082 ^UPSCALC 00006A35 ! 5. ADD COD CHARGE IF NECESSARY (FROM '*' ENTRY IN ).
74084 ^UPSCALC 00006A35 ! 6. ADD INSURANCE IN CENTS PER $100 VALUE (ALSO FROM '*'
74086 ^UPSCALC 00006A35 ! 7. CALCULATE HANDLING FROM '*' SECTION
74088 ^UPSCALC 00006A35 ! - IF '%', THEN HANDLING IS X% OF ORDER VALUE
74090 ^UPSCALC 00006A35 ! - IF 'A'mount, THEN HANDLING IS $X PER PACKAGE
74092 ^UPSCALC 00006A35 ! - IF ABOVE CALCULATED HANDLING IS LESS THAN 'MINIMUM
74094 ^UPSCALC 00006A35 ! HANDLING AMOUNT' FROM HANDLING AMOUNT = MINIMU
74095 ^UPSCALC 00006A35 ! 8. FREIGHT = FREIGHT + HANDLING
74096 ^UPSCALC 00006A35 ! 9. IF ZZRNDFRT$ EQ 'Y', ROUND FREIGHT UP TO NEXT WHOLE D
74097 ^UPSCALC 00006A35 !
74100 ^UPSCALC 00006A35 ! Note - For accounts calculating Freight by the Yard, no a
74110 ^UPSCALC 00006A35 ! are added on after the calculation as a RETURN is done ou
74120 ^UPSCALC 00006A35 ! IF conditional. This means that no Handling or Fuel Surc
74130 ^UPSCALC 00006A35 ! added on. COD charge is added on as well as a surcharge
74140 ^UPSCALC 00006A35 ! Early AM.
74150 ^UPSCALC 00006A35 !
74280 ^UPSCALC 00006A35 !========= UPS CALCULATION =========
74290 ^UPSCALC 00006A35 !
74300 ^UPSCALC 00006A35 READ(RATE,0012) KEY='*' ,EXCP= NOCODINS !GET COD & INS
74310 ^UPSCALC 00006A44 NOCODINS:
74320 ^UPSCALC 00006A44 !RINT (0) '@010F00@';ZONE$;'*' & INPUT (0) ''
74400 ^UPSCALC 00006A44 READ (RATE,0011)KEY=ZONE$,EXCP=NOZONE
74450 ^UPSCALC 00006A53 AN = ABS(WGHT)
74460 ^UPSCALC 00006A5E IF AN GE 1 AND AN LE 150 FRT = UR(AN)
74470 ^UPSCALC 00006A93 !RINT (0) '@011000@';'1 ';FRT;'*';ZONE$;'*';AN & INPUT (0) '
74480 ^UPSCALC 00006A93 !RINT (0) '@011000@';'1 ';ZZCOID$;'*';TOTWGHT;ZZMAXUPS & INP
74504 ^UPSCALC 00006A93 IF ZZFRTYL$ EQ 'Y' AND POS(ZZCOID$,'CN*MA*PO*HC*TT') N
74506 ^UPSCALC 00006AB5 !!!! IF PKGS NE 0 _
74508 ^UPSCALC 00006AB5 !!!! FRT = FRT * PKGS
74510 ^UPSCALC 00006AB5 !!!! IF POS(OFRTCODE$,'O*U') NE 0 _
74512 ^UPSCALC 00006AB5 !!!! FRT = FRT + 10.00
74514 ^UPSCALC 00006AB5 CNPKGS = ABS(1.0000 * TOTWGHT / ZZMAXUPS)
74516 ^UPSCALC 00006AD7 UPSQTYCN = TOTWGHT & FRT = 0
74517 ^UPSCALC 00006AEB !RINT (0) '@011100@';CNPKGS;TOTWGHT;ZZMAXUPS & INPUT (0) ''
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 71
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
74520 ^UPSCALC 00006AEB IF CNPKGS GT 1.00 THEN
74522 ^UPSCALC 00006AFA PKGS = INT(CNPKGS)
74530 ^UPSCALC 00006B05 UPSQTYCN = (ZZMAXUPS * PKGS) - ABS(UPSQTYCN)
74532 ^UPSCALC 00006B2D UPSQTYCN = ABS(UPSQTYCN)
74534 ^UPSCALC 00006B38 FRT = UR(ZZMAXUPS) * PKGS
74536 ^UPSCALC 00006B53 ENDIF
74538 ^UPSCALC 00006B53 !
74540 ^UPSCALC 00006B53 AN = INT(UPSQTYCN) & AN=ABS(AN)
74542 ^UPSCALC 00006B69 IF AN NE 0 FRT = FRT + UR(AN)
74544 ^UPSCALC 00006B94 IF ZZCOID$ EQ 'CN' AND POS(OFRTCODE$,'O*U') NE 0 _
74546 ^UPSCALC 00006BAC FRT = FRT + 10.00 ! WALLPAPER
74548 ^UPSCALC 00006BC5 OWGHT = TOTWGHT & OPKGS = PKGS
74550 ^UPSCALC 00006BD9 IF POS('EARLY',SHIPVIA$) NE 0 FRT = FRT + 30.00
74560 ^UPSCALC 00006BFC IF POS('COD',XTERMS$) NE 0 OR POS('C.O.D.',XTERMS$)
74570 ^UPSCALC 00006C1A FRT = FRT + ZUPSCOD
74590 ^UPSCALC 00006C33 RETURN
74600 ^UPSCALC 00006C34 ENDIF
74610 ^UPSCALC 00006C34 IF POS('TRAC',SHIPVIA$) NE 0 FRT = FRT + .75
74620 ^UPSCALC 00006C57 IF POS('EARLY',SHIPVIA$) NE 0 FRT = FRT + 30.00
74630 ^UPSCALC 00006C7A IF PKGS NE 0 FRT = FRT * PKGS
74640 ^UPSCALC 00006C97 !!!! IF POS(ZZCOID$,'IN*TR*??*??*??*') NE 0 _
74650 ^UPSCALC 00006C97 GOSUB FUELSURCHARGE
74700 ^UPSCALC 00006C9C IF POS('COD',XTERMS$) NE 0 FRT = FRT + ZUPSCOD
74800 ^UPSCALC 00006CBF IF POS('C.O.D',XTERMS$) NE 0 FRT = FRT + ZUPSCOD
74900 ^UPSCALC 00006CE2 IF VALUE GT ZUPSOVR AND ZZFRTYL$ NE 'Y' _ !INSURANC
75000 ^UPSCALC 00006CF2 FRT = FRT + (INT((1.0000 * VALUE)/ZUPSOVR) * ZUPSIN
75002 ^UPSCALC 00006D35 PRINT (0) '@011200@';'2 ';FRT;VALUE;ZUPSOVR;ZUPSINS & INPUT
75020 ^UPSCALC 00006D6E HNDL = 0
75100 ^UPSCALC 00006D78 IF ZZPCKFLG$ EQ '%' THEN
75140 ^UPSCALC 00006D86 HNDL = VALUE * (ZZPCKCHG * .0100)
75160 ^UPSCALC 00006DA2 ELSE
75180 ^UPSCALC 00006DA7 HNDL = ZZPCKCHG * PKGS
75200 ^UPSCALC 00006DB5 ENDIF
75220 ^UPSCALC 00006DB5 IF HNDL LT ZZFRTMIN HNDL = ZZFRTMIN
75240 ^UPSCALC 00006DCE IF ZZFRTYL$ NE 'Y' FRT = FRT + HNDL
75242 ^UPSCALC 00006DEB PRINT (0) '@011200@';'3 ';FRT;HNDL;ZZFRTMIN;PKGS & INPUT (0)
75250 ^UPSCALC 00006E24 IF ZZRNDFRT$ EQ 'Y' AND FPT(FRT) NE 0 _
75252 ^UPSCALC 00006E38 FRT = INT(FRT) + 1
75260 ^UPSCALC 00006E52 IF TRCODE$ EQ 'CM' FRT = -ABS(FRT)
75280 ^UPSCALC 00006E6C RETURN
76000 ^UPSCALC 00006E6D !
76100 ^UPSCALC 00006E6D NOZONE:
76200 ^UPSCALC 00006E6D RETURN
76300 ^UPSCALC 00006E6E !
76310 ^UPSCALC 00006E6E FUELSURCHARGE:
76320 ^UPSCALC 00006E6E AN$ = 'G' ! DEFAULT TO GROUND FUEL SURCHARGE
76330 ^UPSCALC 00006E77 IF LEN(STRIP(ZONE$)) GT 1 _
76340 ^UPSCALC 00006E83 AN$ = 'E' ! EXPRESS SERVICE
76342 ^UPSCALC 00006E96 PRINT (0) '@011200@';'4 ';FRT;AN$ & INPUT (0) ''
76350 ^UPSCALC 00006EC1 IF AN$ EQ 'G' THEN
76360 ^UPSCALC 00006ECF FRT = FRT + (FRT * (ZFUELGND * .0100))
76370 ^UPSCALC 00006EFA ELSE
76380 ^UPSCALC 00006EFF FRT = FRT + (FRT * (ZFUELEXP * .0100))
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 72
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
76390 ^UPSCALC 00006F2A ENDIF
76400 ^UPSCALC 00006F2A PRINT (0) '@011300@';'4 ';FRT;AN$ & INPUT (0) ''
76410 ^UPSCALC 00006F55 RETURN
76420 ^UPSCALC 00006F56 !
78000 ^UPSCALC 00006F56 ! ========== GET UPS ZONE ==========
78010 ^UPSCALC 00006F56 UPSZONE:
78100 ^UPSCALC 00006F56 ZONE$ = ''
78110 ^UPSCALC 00006F5F ZIP$ = SUB(ZIP5$,1,3)
78112 ^UPSCALC 00006F76 PRINT (0) '@011100@';ZIP$;'*';ZONESC$;'*';ZZMULTIW$;'*' & IN
78114 ^UPSCALC 00006FB6 IF ZZCOID$ EQ 'IN' AND (ZIP$ EQ '' OR ZIP$ EQ ' ') _
78116 ^UPSCALC 00006FE0 ZONE1$ = '8' & GOTO CONT
78120 ^UPSCALC 00006FEE IF ZZMULTIW$ EQ 'Y' THEN
78130 ^UPSCALC 00006FFC READ (ZONE,0010)KEY=ZONESC$+ZIP$,EXCP=BUMPZONE
78140 ^UPSCALC 00007015 ELSE
78150 ^UPSCALC 0000701A READ (ZONE,0010)KEY=ZIP$,EXCP=BUMPZONE
78152 ^UPSCALC 00007029 ENDIF
78154 ^UPSCALC 00007029 CONT: IF ZZFRTYL$ EQ 'Y' THEN
78156 ^UPSCALC 00007037 IF POS(ZZCOID$,'HH*BE*SK') NE 0 ZONE1$ = '2'
78158 ^UPSCALC 00007054 IF ZZCOID$ EQ 'BE' AND STERRBE$ EQ 'W' ZONE1$ = '3'
78160 ^UPSCALC 00007079 IF POS(ZZCOID$,'CN*MA*PO*HC*TT*PT') NE 0 _
78164 ^UPSCALC 00007083 ZONE1$ = 'G'
78174 ^UPSCALC 00007096 ENDIF
78176 ^UPSCALC 00007096 ZONE$ = ZONE1$
78180 ^UPSCALC 0000709F !!!! IF POS('EARLY',SHIPVIA$) NE 0 _
78190 ^UPSCALC 0000709F !!!! ZONE$ = '14' + ZONE1$
78200 ^UPSCALC 0000709F !
78210 ^UPSCALC 0000709F IF POS('NEXT',SHIPVIA$) NE 0 THEN
78220 ^UPSCALC 000070B3 ZONE$ = '10' + ZONE1$
78230 ^UPSCALC 000070C5 IF STATE$ EQ 'AK' OR STATE$ EQ 'HI' ZONE$ = '124'
78240 ^UPSCALC 000070EA IF STATE$ EQ 'PR' ZONE$ = '125'
78242 ^UPSCALC 00007101 IF ZZFRTYL$ EQ 'Y' AND POS(ZZCOID$,'CN*MA*PO*HC*TT*
78244 ^UPSCALC 00007119 ZONE$ = 'N'
78250 ^UPSCALC 0000712C ENDIF
78260 ^UPSCALC 0000712C !
78270 ^UPSCALC 0000712C IF POS('2ND',SHIPVIA$) NE 0 THEN
78272 ^UPSCALC 00007140 IF POS('AM',SHIPVIA$) NE 0 THEN ! 02/24/2004 TLF
78274 ^UPSCALC 00007154 ZONE$ = '24' + ZONE1$ ! AM TABLES.
78276 ^UPSCALC 00007166 ELSE
78278 ^UPSCALC 0000716B ZONE$ = '20' + ZONE1$
78280 ^UPSCALC 0000717D ENDIF
78290 ^UPSCALC 0000717D IF STATE$ EQ 'AK' OR STATE$ EQ 'HI' ZONE$ = '224'
78300 ^UPSCALC 000071A2 IF STATE$ EQ 'PR' ZONE$ = '225'
78302 ^UPSCALC 000071B9 IF ZZFRTYL$ EQ 'Y' THEN
78304 ^UPSCALC 000071C7 IF POS(ZZCOID$,'CN*MA*PO*PT') NE 0 _
78306 ^UPSCALC 000071D1 ZONE$ = '2'
78308 ^UPSCALC 000071E4 IF POS(ZZCOID$,'HC*TT') NE 0 _
78310 ^UPSCALC 000071EE ZONE$ = 'T'
78312 ^UPSCALC 00007201 ENDIF
78316 ^UPSCALC 00007201 ENDIF
78320 ^UPSCALC 00007201 !
78330 ^UPSCALC 00007201 IF POS('3RD',SHIPVIA$) NE 0 THEN
78340 ^UPSCALC 00007215 ZONE$ = '30' + ZONE1$
78342 ^UPSCALC 00007227 IF ZZFRTYL$ EQ 'Y' THEN
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 73
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
78350 ^UPSCALC 00007235 IF POS(ZZCOID$,'CN*MA*PO*PT') NE 0 _ ! 10/04/
78354 ^UPSCALC 0000723F ZONE$ = '3' ! 10/04/200
78356 ^UPSCALC 00007252 IF POS(ZZCOID$,'HC*TT') NE 0 _
78358 ^UPSCALC 0000725C ZONE$ = 'G'
78360 ^UPSCALC 0000726F ENDIF
78366 ^UPSCALC 0000726F ENDIF
78370 ^UPSCALC 0000726F !
78380 ^UPSCALC 0000726F IF ZZFRTYL$ EQ 'Y' AND POS(ZZCOID$,'HC*TT') NE 0 THEN
78384 ^UPSCALC 00007291 IF ZZCOID$ EQ 'HC' THEN
78388 ^UPSCALC 0000729F IF POS(STATE$,'AK*HI*PR') NE 0 THEN
78392 ^UPSCALC 000072B3 ZONE$ = ZONE$ + 'X'
78396 ^UPSCALC 000072C5 ELSE
78400 ^UPSCALC 000072CA IF ZIP5$ GE '80000' THEN
78404 ^UPSCALC 000072D8 ZONE$ = ZONE$ + 'W'
78408 ^UPSCALC 000072EA ELSE
78412 ^UPSCALC 000072EF ZONE$ = ZONE$ + 'E'
78416 ^UPSCALC 00007301 ENDIF
78418 ^UPSCALC 00007301 ENDIF
78420 ^UPSCALC 00007301 ELSE ! ELSE IT'S TWILL
78424 ^UPSCALC 00007306 IF ZIP5$ GE '40000' AND ZIP5$ LE '69999' THEN
78428 ^UPSCALC 00007322 ZONE$ = ZONE$ + 'C' ! CENTRAL
78432 ^UPSCALC 00007334 ELSE
78436 ^UPSCALC 00007339 !!!! ZONE$ = ZONE$ + 'O' ! OTHER TLF 10/13
78440 ^UPSCALC 00007339 IF ZIP5$ GT 'A0000' THEN ! CANADA ( 'M'ontr
78444 ^UPSCALC 00007347 ZONE$ = ZONE$ + 'M'
78448 ^UPSCALC 00007359 ELSE
78452 ^UPSCALC 0000735E ZONE$ = ZONE$ + 'O' ! OTHER
78456 ^UPSCALC 00007370 ENDIF
78460 ^UPSCALC 00007370 ENDIF
78464 ^UPSCALC 00007370 ENDIF
78480 ^UPSCALC 00007370 ENDIF
78485 ^UPSCALC 00007370 !
78500 ^UPSCALC 00007370 IF ZZFRTYL$ EQ 'Y' AND POS(ZZCOID$,'CN*MA*PO*HC*TT*PT'
78510 ^UPSCALC 00007388 ZONE$ = ZONE$ + OFRTCODE$ ! 10/04/200
78520 ^UPSCALC 000073A4 !
78800 ^UPSCALC 000073A4 RETURN
79100 ^UPSCALC 000073A5 !
79110 ^UPSCALC 000073A5 BUMPZONE:
79200 ^UPSCALC 000073A5 KEY$ = KEY(ZONE,EXCP=NOZONE)
79300 ^UPSCALC 000073B5 READ (ZONE,0010)
79320 ^UPSCALC 000073BC !!!! ZONE$ = ZONE1$
79400 ^UPSCALC 000073BC GOTO CONT
79410 ^UPSCALC 000073C1 !
78774 %WW-OE3 000073C1 !
78800 %WW-OE3 000073C1 ! ========== SET UP FOR LINE MAINT ==========
78810 %WW-OE3 000073C1 !
78820 %WW-OE3 000073C1 7880 !
78830 %WW-OE3 000073C1 OLINE$ = '001'
78840 %WW-OE3 000073CA ZLINE$ = '001'
78850 %WW-OE3 000073D3 LINE1 = 11 & LINE2 = 12 & LINE3 = 13
78860 %WW-OE3 000073F1 PRINT (0,3190)
78870 %WW-OE3 000073F8 RETURN
78880 %WW-OE3 000073F9 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 74
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
78900 %WW-OE3 000073F9 ! ========== UPDTITEM$ ROUTINE ==========
78910 %WW-OE3 000073F9 !
78920 %WW-OE3 000073F9 7890 ! ! 07/07/2006
78930 %WW-OE3 000073F9 UPDTITEM$ = INBR$
78940 %WW-OE3 00007402 IF STRIP(ALTITEM$) NE '' _
78950 %WW-OE3 00007408 UPDTITEM$ = ALTITEM$
78960 %WW-OE3 0000741F RETURN
78970 %WW-OE3 00007420 !
79000 %WW-OE3 00007420 ! ========== INPUT ALLOCATED LOTS ==========
79004 %WW-OE3 00007420 7900 IF ZOETYPE$ EQ 'Q' GOTO 7990
79007 %WW-OE3 00007433 IF O1CUTYRD$ EQ 'Y' AND CHKQTY GT QTYAVL _
79008 %WW-OE3 00007441 GOTO 7990
79020 %WW-OE3 00007455 !!!! IF TRCODE$ EQ 'CM' AND ORETURN$ NE 'Y' GOTO 7990 ! 11/
79022 %WW-OE3 00007455 IF ORETURN$ EQ 'N' GOTO 7990
79024 %WW-OE3 00007468 IF ZOETYPE$ EQ 'M' OR SLCTLN$ EQ 'Y' OR ZMNTTYP$ EQ 'I
79028 %WW-OE3 00007492 IF OISFLG$ EQ 'S' OR INVUPDT$ EQ 'N' GOTO 7990
79032 %WW-OE3 000074B3 IF ZOETYPE$ EQ 'M' AND OBOFLAG$ EQ 'B/O' GOTO 7990
79036 %WW-OE3 000074D4 IF INBR$ NE ZZINBR$ GOSUB 7820 & GOTO 7904
79040 %WW-OE3 000074EC IF OQTYORD NE ZQTYORD AND OQTYBOD EQ 0 _
79044 %WW-OE3 000074FB TOTALCTD = ZQTYORD & GOTO 8210
79048 %WW-OE3 00007519 GOTO 7990
79052 %WW-OE3 0000751E ENDIF
79056 %WW-OE3 0000751E 7904 IF OISFLG$ EQ 'S' OR INVUPDT$ EQ 'N' OR OQTYBOD NE 0 _
79060 %WW-OE3 0000753A GOTO 7990
79062 %WW-OE3 0000754E GOSUB 7240 !CHECK FOR AVAILABLE PCE
79064 %WW-OE3 00007553 IF XLOT$ EQ '' AND TRCODE$ NE 'CM' THEN
79066 %WW-OE3 0000756F 7906 !! MESS$ = '' ! MESS$ = 'NO PIECE BIG ENOUGH. (B-O..
79068 %WW-OE3 0000756F !!!! IF POS(ZZCOID$,'HC*PO') EQ 0 _
79070 %WW-OE3 0000756F !!!! MESS$ = 'NO PIECE BIG ENOUGH. '
79072 %WW-OE3 0000756F MESS$ = 'NO PIECE BIG ENOUGH. (B-O/Re-input/Manuall
79074 %WW-OE3 00007578 IF O1CUTYRD$ EQ 'Y' _
79076 %WW-OE3 00007578 MESS$ = MESS$ + '/Cut yrdg'
79078 %WW-OE3 00007598 MESS$ = MESS$ + ')'
79080 %WW-OE3 000075AA IF POS(ZZCOID$,'HC*PO') EQ 0 AND MASGNLP$ NE 'N' TH
79082 %WW-OE3 000075CC GOSUB 9000 ! 0
79084 %WW-OE3 000075D1 ELSE
79086 %WW-OE3 000075D6 AN$ = 'M' ! FOR POLLACK ALWAYS MANUALLY ASSIG
79088 %WW-OE3 000075DF ENDIF
79090 %WW-OE3 000075DF IF AN$ NE 'B' AND AN$ NE 'B-O' AND AN$ NE 'M' AND _
79092 %WW-OE3 00007609 AN$ NE 'R' AND AN$ NE 'C' AND AN$ NE 'CUT' GOTO
79094 %WW-OE3 00007638 IF AN$ EQ 'B' OR AN$ EQ 'B-O' THEN
79100 %WW-OE3 00007654 IF ZOETYPE$ EQ 'M' AND OBOFLAG$ NE 'B/O' _
79104 %WW-OE3 00007662 MESS$ = 'ORDER IS NOT A BACK-ORDER - ENTER' &
79108 %WW-OE3 00007679 GOSUB 9000 & GOTO 7906
79112 %WW-OE3 00007683 IF ZOETYPE$ EQ 'B' _
79116 %WW-OE3 00007683 MESS$ = 'NO BACK-ORDERS ON A ONE-STEP - ENTER
79120 %WW-OE3 0000769A GOSUB 9000 & GOTO 7906
79124 %WW-OE3 000076A4 OQTYBOD = OQTYORD & OMANBO$ = 'Y'
79128 %WW-OE3 000076B7 GOTO 7990
79132 %WW-OE3 000076BC ENDIF
79160 %WW-OE3 000076BC IF O1CUTYRD$ EQ 'Y' AND (AN$ EQ 'C' OR AN$ EQ 'CUT'
79164 %WW-OE3 000076E6 GOTO 7990 ! GOSUB 8050 & _ TLF 01/04
79166 %WW-OE3 000076EB ! ! DEAL WITH CFA STOCK SNAF
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 75
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
79170 %WW-OE3 000076EB !
79182 %WW-OE3 000076EB IF AN$ EQ 'R' THEN
79184 %WW-OE3 000076F9 IF POS(ZOETYPE$,'EB') NE 0 OR _
79186 %WW-OE3 0000770D ZOETYPE$ EQ 'M' AND ZZINBR$ EQ '' _
79188 %WW-OE3 0000771B POPALL & PRINT (0,3880) & GOTO 5000
79190 %WW-OE3 00007736 TOTALCTD = 0 & GOTO 7970
79192 %WW-OE3 00007745 ENDIF
79196 %WW-OE3 00007745 ELSE
79198 %WW-OE3 0000774A OLOT$ = XLOT$ & OPCE$ = XPCE$ & OSHPPCE = XSHPPCE
79200 %WW-OE3 00007766 ENDIF
79210 %WW-OE3 00007766 PRINT (0,3900) !ALLOCATED PIECES HEADIN
79220 %WW-OE3 0000776D LINE = 16 & TOTALCTD = 0 & HOLDWHS$ = ''
79222 %WW-OE3 0000778A IF POS(ZZCOID$,'HC*PO') NE 0 OR MASGNLP$ EQ 'N' _
79224 %WW-OE3 0000779E OLOT$ = '?' ! 02/24/2004 FOR POLLAC
79230 %WW-OE3 000077B5 7923 PRINT (0,3910)
79240 %WW-OE3 000077BC PRINT (0,3920) & XLOT$ = OLOT$
79244 %WW-OE3 000077CC INPUT (0) OLOT$
79248 %WW-OE3 000077D7 IF OLOT$ EQ '' OR OLOT$ EQ 'END' GOTO 7970
79252 %WW-OE3 000077F8 IF OLOT$ EQ 'ALL' GOTO 8080
79254 %WW-OE3 0000780B IF OLOT$ GE '1' AND OLOT$ LE '8' AND LEN(OLOT$) EQ 1 T
79256 %WW-OE3 00007837 AN = NUM(OLOT$,ERR)
79258 %WW-OE3 00007846 IF LOTPCE$(AN) NE '' _
79260 %WW-OE3 00007853 OLOT$ = LOTPCE$(AN) & OPCE$ = SUB(LOTPCE$(AN),7,
79262 %WW-OE3 0000789B GOTO 7930
79264 %WW-OE3 000078A0 ENDIF
79268 %WW-OE3 000078A0 LPLKUP$ = ''
79270 %WW-OE3 000078A9 IF SUB(OLOT$,1,1) EQ '?' LPLKUP$ = '?'
79272 %WW-OE3 000078CE IF SUB(OLOT$,1,1) EQ '/' LPLKUP$ = '/'
79274 %WW-OE3 000078F3 IF LPLKUP$ NE '' THEN
79280 %WW-OE3 00007901 ZLINE = LINE & XPCE$ = OPCE$ & XSHPPCE = OSHPPCE
79282 %WW-OE3 0000791E IF LPLKUP$ EQ '?' THEN
79284 %WW-OE3 0000792C GOSUB 7500
79286 %WW-OE3 00007931 ELSE
79288 %WW-OE3 00007936 GOSUB 8000
79290 %WW-OE3 0000793B ENDIF
79294 %WW-OE3 0000793B OLOT$ = XLOT$ & OPCE$ = XPCE$ & OSHPPCE = XSHPPCE
79296 %WW-OE3 00007957 IF SEQLOT$ EQ 'Y' THEN ! CHOSE A SEQUENCE #
79298 %WW-OE3 00007965 OLOT$ = LOTPCE$(LOTARRAY)
79300 %WW-OE3 0000797B OPCE$ = SUB(LOTPCE$(LOTARRAY),7,6)
79302 %WW-OE3 0000799F SEQLOT$ = ''
79304 %WW-OE3 000079A8 LINE = ZLINE & GOTO 7930
79306 %WW-OE3 000079B7 ENDIF
79308 %WW-OE3 000079B7 IF LPLKUP$ EQ '/' _
79310 %WW-OE3 000079B7 ZLINE = 16 & PRINT (0,3880) & PRINT (0,3710) &_
79312 %WW-OE3 000079DD PRINT (0,3900) & PRINT (0,3986) & DISPI1R$ = ''
79316 %WW-OE3 000079F4 LINE = ZLINE & GOTO 7923
79318 %WW-OE3 00007A03 ENDIF
79320 %WW-OE3 00007A03 OLOT$ = OLOT$ + ' '
79324 %WW-OE3 00007A15 POS = 8 & PRINT (0, 95)
79328 %WW-OE3 00007A26 INPUT (0) OPCE$
79332 %WW-OE3 00007A31 IF OPCE$ EQ '' GOTO 7923
79336 %WW-OE3 00007A44 IF OPCE$ EQ 'ALL' GOTO 8120
79340 %WW-OE3 00007A57 IF OPCE$ LT 'A' OR OPCE$ GT 'ZZZZZZ' _
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 76
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
79344 %WW-OE3 00007A65 OPCE$ = SUB(' ',1,6-LEN(OPCE$)) + OPCE$
79348 %WW-OE3 00007A9F 7930 READ (I1R,0210)KEY=UPDTITEM$+OLOT$+OPCE$,EXCP=6320
79352 %WW-OE3 00007AC1 IF ZZMULTIW$ EQ 'Y' THEN
79354 %WW-OE3 00007ACF IF HOLDWHS$ NE '' AND IWHSE$ NE HOLDWHS$ THEN
79356 %WW-OE3 00007AEB MESS$ = 'CANNOT SHIP FROM DIFFERENT WAREHOUSES O
79358 %WW-OE3 00007AF4 MESS$ = MESS$ + 'THE SAME LINE - ENTER'
79360 %WW-OE3 00007B06 GOSUB 9000
79362 %WW-OE3 00007B0B IF AN$ NE 'SEH' GOTO 7923
79364 %WW-OE3 00007B1E ENDIF
79366 %WW-OE3 00007B1E ENDIF
79368 %WW-OE3 00007B1E IF ZZCOID$ EQ 'IN' AND IPCE$ EQ 'MILLST' _
79369 %WW-OE3 00007B2C MESS$ = 'MILL STOCK - CONTINUE? (Yes/No)' & GOSUB 9
79370 %WW-OE3 00007B48 IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7923
79374 %WW-OE3 00007B69 IF TRCODE$ EQ 'CM' AND MPGFLAG$ EQ 'Y' AND RQOHND NE 0
79376 %WW-OE3 00007B85 MESS$ = 'CANNOT RETURN PIECE GOODS TO EXISTING ON H
79378 %WW-OE3 00007B9D MESS$ = MESS$ + ' - ENTER' & GOSUB 9000 & GOTO 7923
79380 %WW-OE3 00007BB9 IF RAVAILPO$ NE ' ' _
79382 %WW-OE3 00007BB9 MESS$ = 'PIECE IS UNAVAILABLE - ENTER' & GOSUB 9000
79384 %WW-OE3 00007BD5 IF AN$ NE 'SEH' GOTO 7923
79386 %WW-OE3 00007BE8 IF (ZZCOID$ EQ 'TR' AND ZOETYPE$ NE 'B' AND RLOC$ EQ '
79387 %WW-OE3 00007C17 (ZOETYPE$ NE 'B' AND RLOC$ EQ 'CONSIGND') _
79389 %WW-OE3 00007C33 MESS$ = 'CANNOT USE, BLANK LOCATION - ENTER' & GO
79390 %WW-OE3 00007C41 IF AN$ NE 'SEH' GOTO 7923
79396 %WW-OE3 00007C54 7937 GOSUB 8060
79398 %WW-OE3 00007C59 PRINT (0,3920)
79400 %WW-OE3 00007C60 OPCE$ = OPCE$ + ' '
79402 %WW-OE3 00007C72 TMPPCE = 0
79404 %WW-OE3 00007C7C READ (O1S,0071)KEY=KEYO1$+OLOT$+OPCE$,EXCP=7939
79406 %WW-OE3 00007C9E OSHPPCE = TMPPCE & PRINT (0,3920) ! 07/07/2006
79408 %WW-OE3 00007CAF 7939 POS = 16 & PRINT (0, 95)
79410 %WW-OE3 00007CC0 INPUT (0) OQTYORD$
79412 %WW-OE3 00007CCB IF OQTYORD$ EQ 'DELETE' _ ! 07/07/2006
79414 %WW-OE3 00007CCB OSHPPCE = 0 & DELETE (O1S)KEY=KEYO1$+OLOT$+OPCE$,EX
79416 %WW-OE3 00007D01 GOTO 7954
79420 %WW-OE3 00007D06 IF SUB(OQTYORD$,1,1) EQ 'B' _ ! SET QTY = BALANCE ON
79422 %WW-OE3 00007D14 OSHPPCE = OQTYORD - TOTALCTD & GOTO 7945
79424 %WW-OE3 00007D36 IF SUB(OQTYORD$,1,1) EQ 'P' AND RQAVAIL GT 0 _ ! BAL
79426 %WW-OE3 00007D52 OSHPPCE = RQAVAIL & GOTO 7945
79428 %WW-OE3 00007D70 OSHPPCE = NUM(OQTYORD$,ERR)
79430 %WW-OE3 00007D7F IF OSHPPCE LE 0 AND TRCODE$ NE 'CM' GOTO 7923
79432 %WW-OE3 00007DA1 IF TRCODE$ EQ 'CM' _
79434 %WW-OE3 00007DA1 OSHPPCE = -ABS(OSHPPCE)
79450 %WW-OE3 00007DBB 7945 IF (OSHPPCE - TMPPCE) GT RQAVAIL AND TRCODE$ NE 'CM' _
79460 %WW-OE3 00007DCF MESS$ = 'NOT ENOUGH AVAILABLE ON PIECE - ENTER' &_
79470 %WW-OE3 00007DE6 GOSUB 9000 & GOTO 7923
79480 %WW-OE3 00007DF0 PRINT (0,3920)
79490 %WW-OE3 00007DF7 7949 MESS$ = 'IS THE LOT/PIECE INPUT CORRECT? (Yes/No/End)'
79500 %WW-OE3 00007E00 GOSUB 9000
79510 %WW-OE3 00007E05 IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7923
79520 %WW-OE3 00007E26 IF AN$ EQ 'E' OR AN$ EQ 'END' GOTO 7970
79530 %WW-OE3 00007E47 IF AN$ NE '' AND AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7949
79540 %WW-OE3 00007E76 7954 TOTALCTD = TOTALCTD + (OSHPPCE - TMPPCE)
79542 %WW-OE3 00007E8A ALCTDBAL = OQTYORD - TOTALCTD
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 77
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
79544 %WW-OE3 00007E99 PRINT (0,3986) ! DISPLAY TOTAL ALLOCATED SO
79548 %WW-OE3 00007EA0 IF OQTYORD$ NE 'DELETE' _ ! 07/07
79550 %WW-OE3 00007EA0 WRITE (O1S,0068)KEY=KEYO1$+OLOT$+OPCE$
79560 %WW-OE3 00007ECC EXTRACT (I1R,0210)KEY=UPDTITEM$+OLOT$+OPCE$,EXCP=6620
79570 %WW-OE3 00007EEE RQALCTD = RQALCTD + (OSHPPCE - TMPPCE)
79572 %WW-OE3 00007F02 WRITE (I1R,0210)
79574 %WW-OE3 00007F09 IF TOTALCTD EQ OQTYORD THEN
79576 %WW-OE3 00007F18 MESS$ = 'LINE FULLY ALLOCATED. (ENTER/Continue)'
79578 %WW-OE3 00007F21 GOSUB 9000
79580 %WW-OE3 00007F26 IF AN$ EQ 'C' GOTO 7959
79582 %WW-OE3 00007F39 OQTYSHP = OQTYORD & OQTYBIL = OQTYORD
79586 %WW-OE3 00007F4D GOTO 7970
79588 %WW-OE3 00007F52 ENDIF
79590 %WW-OE3 00007F52 7959 LINE = LINE + 1
79600 %WW-OE3 00007F61 IF LINE EQ 18 _
79610 %WW-OE3 00007F61 LINE = 16 & PRINT (0,3920) & LINE = 17
79612 %WW-OE3 00007F8B OLOT$ = '' & OPCE$ = '' & OSHPPCE = 0 & DISPI1R$ = ''
79614 %WW-OE3 00007FB0 IF HOLDWHS$ EQ '' HOLDWHS$ = IWHSE$
79620 %WW-OE3 00007FC7 GOTO 7923
79630 %WW-OE3 00007FCC !
79700 %WW-OE3 00007FCC 7970 IF TOTALCTD NE OQTYORD THEN
79702 %WW-OE3 00007FDB MESS$ = 'TOTAL ALLOCATIONS DO NOT EQUAL QTY ORDERED
79704 %WW-OE3 00007FE4 GOSUB 9000
79706 %WW-OE3 00007FE9 7973 MESS$ = ''
79708 %WW-OE3 00007FF2 IF ZOETYPE$ EQ 'E' _
79710 %WW-OE3 00007FF2 MESS$ = 'B-O/'
79712 %WW-OE3 00008009 IF O1CUTYRD$ EQ 'Y' _
79714 %WW-OE3 00008009 MESS$ = MESS$ + 'Cut yrdg/'
79730 %WW-OE3 00008029 MESS$ = MESS$ + 'Set qty ord/Display allocations/Re
79732 %WW-OE3 0000803B IF ZOETYPE$ EQ 'E' OR ZOETYPE$ EQ 'B' _
79734 %WW-OE3 00008049 MESS$ = MESS$ + '/End'
79736 %WW-OE3 00008069 IF ZOETYPE$ EQ 'M' _
79738 %WW-OE3 00008069 MESS$ = MESS$ + '/DELETE'
79740 %WW-OE3 00008089 GOSUB 9000
79742 %WW-OE3 0000808E IF O1CUTYRD$ EQ 'Y' AND (AN$ EQ 'C' OR AN$ EQ 'CUT'
79744 %WW-OE3 000080B8 GOTO 7990 ! BANGED OUT 'GOSUB 8050 & ' 01/
79750 %WW-OE3 000080BD IF AN$ EQ 'D' OR AN$ EQ 'DISPLA' GOSUB 8000 & GOTO
79752 %WW-OE3 000080E3 IF AN$ EQ 'R' GOSUB 7820 & _
79754 %WW-OE3 000080F6 PRINT (0,3880) & PRINT (0,3710) & GOTO 7904
79764 %WW-OE3 00008109 IF ZOETYPE$ EQ 'E' AND (AN$ EQ 'B' OR AN$ EQ 'B-O')
79766 %WW-OE3 00008133 OQTYBOD = OQTYORD & OMANBO$ = 'Y' & _
79768 %WW-OE3 00008146 GOSUB 7820 & GOTO 7990
79770 %WW-OE3 00008150 IF AN$ EQ 'E' OR AN$ EQ 'END' AND POS(ZOETYPE$,'EB'
79772 %WW-OE3 00008176 GOSUB 7820 & PRINT (0,3880) & PRINT (0,3710) & _
79774 %WW-OE3 00008193 POPALL & GOTO 5000
79776 %WW-OE3 00008199 IF AN$ EQ 'DELETE' AND ZOETYPE$ EQ 'M' THEN
79786 %WW-OE3 000081B5 GOSUB 7640 ! DELETE LINE ROUTINE
79796 %WW-OE3 000081BA READ (O1,0000)KEY=KEYO1$,EXCP=7980
79806 %WW-OE3 000081C9 GOTO 7973
79816 %WW-OE3 000081CE 7980 PRINT (0,3880) & PRINT (0,3710)
79826 %WW-OE3 000081DC POPALL & GOTO 5000
79828 %WW-OE3 000081E2 ENDIF
79830 %WW-OE3 000081E2 IF AN$ EQ 'S' OR AN$ EQ 'SET' THEN
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 78
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
79834 %WW-OE3 000081FE 7982 MESS$ = 'SET QTY ORDERED = ALLOCATIONS? (Yes/No)
79838 %WW-OE3 00008207 GOSUB 9000
79842 %WW-OE3 0000820C IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7973
79846 %WW-OE3 0000822D IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7982
79848 %WW-OE3 0000824E IF ZZCOID$ EQ 'IN' AND OSLSTYP$ EQ 'LE' _ ! IF
79850 %WW-OE3 0000825C OORIGQTY = OQTYORD ! SAVE THE ORIGINAL
79860 %WW-OE3 00008274 OQTYORD = TOTALCTD & GOSUB 7380
79862 %WW-OE3 00008283 GOTO 7990
79864 %WW-OE3 00008288 ENDIF
79872 %WW-OE3 00008288 GOTO 7973
79874 %WW-OE3 0000828D ENDIF
79876 %WW-OE3 0000828D O1CUTYRD$ = ''
79880 %WW-OE3 00008296 !
79900 %WW-OE3 00008296 7990 IF ZOETYPE$ EQ 'M' AND O1CUTYRD$ EQ 'Y' AND OCUTYRD$ N
79904 %WW-OE3 000082B2 MESS$ = 'ORDER IS NOT CUT YARDAGE - ENTER' & _
79908 %WW-OE3 000082C9 GOSUB 9000 & POPALL & GOTO 5000
79912 %WW-OE3 000082D4 !
79950 %WW-OE3 000082D4 INBR$ = ZINBR$ + ' '
79954 %WW-OE3 000082E6 PRINT (0,3880)
79958 %WW-OE3 000082ED IF OQTYBOD EQ 0 PRINT (0,3710)
79962 %WW-OE3 00008303 RETURN
79966 %WW-OE3 00008304 !
80000 %WW-OE3 00008304 ! ========== DISPLAY ALLOCATED PIECES ==========
80010 %WW-OE3 00008304 !
80020 %WW-OE3 00008304 8000 !
80030 %WW-OE3 00008304 PRINT (0,3880) & PRINT (0,3710) !(BF) DI
80040 %WW-OE3 00008312 PRINT (0,3900) !COLUMN
80042 %WW-OE3 00008319 IF LPLKUP$ EQ '/' _
80044 %WW-OE3 00008319 PRINT (0,3986) ! DISPLAY ALLOCATED & BALANCE
80050 %WW-OE3 0000832E 8005 POS = 0 & LINE = 16 & MORE$ = ''
80060 %WW-OE3 0000834B UPDTITEM$ = INBR$
80070 %WW-OE3 00008354 IF ALTITEM$ NE '' AND ALTITEM$ NE ' ' _
80080 %WW-OE3 00008362 UPDTITEM$ = ALTITEM$
80090 %WW-OE3 00008379 READ (O1S,0068)KEY=KEYO1$,EXCP=8010
80100 %WW-OE3 00008388 8010 KEY$ = KEY(O1S,EXCP=8031)
80110 %WW-OE3 00008398 IF SUB(KEY$,1,12) NE KEYO1$ GOTO 8031
80120 %WW-OE3 000083B9 READ (O1S,0068),EXCP=8010
80130 %WW-OE3 000083C4 DISPI1R$ = ''
80140 %WW-OE3 000083CD READ (I1R,0210)KEY=UPDTITEM$+OLOT$+OPCE$,EXCP=8014
80144 %WW-OE3 000083EF 8014 GOSUB 8060
80150 %WW-OE3 000083F4 IF LINE EQ 23 GOTO 8021
80160 %WW-OE3 00008408 8016 !!!! QTYAVL = QQTYORD - QQTYAL
80170 %WW-OE3 00008408 PRINT (0,3920)
80180 %WW-OE3 0000840F LINE = LINE + 1
80190 %WW-OE3 0000841E GOTO 8010
80200 %WW-OE3 00008423 !
80210 %WW-OE3 00008423 8021 MESS$ = ' FOR MORE/End'
80220 %WW-OE3 0000842C GOSUB 9000
80230 %WW-OE3 00008431 MORE$ = 'Y'
80240 %WW-OE3 0000843A IF AN$ EQ '' _
80250 %WW-OE3 0000843A POS = 0 & LINE = 16 & _
80260 %WW-OE3 0000845C PRINT (0,3880) & PRINT (0,3710) & PRINT (0,3900) &
80270 %WW-OE3 00008476 IF AN$ NE 'E' AND AN$ NE 'END' _
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 79
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
80280 %WW-OE3 00008484 GOTO 8021
80290 %WW-OE3 00008497 GOTO 8040
80300 %WW-OE3 0000849C !
80310 %WW-OE3 0000849C 8031 !!!! IF MORE$ EQ '' GOTO 7590 ! BANGED OUT 01/08/92
80320 %WW-OE3 0000849C MESS$ = 'END OF LOT/PCS FOR THIS LINE/Restart/End'
80330 %WW-OE3 000084A5 GOSUB 9000
80340 %WW-OE3 000084AA IF AN$ EQ 'R' OR AN$ EQ 'RESTAR' _
80350 %WW-OE3 000084B8 PRINT (0,3880) & PRINT (0,3710) & PRINT (0,3900) &
80360 %WW-OE3 000084DB GOTO 8005
80370 %WW-OE3 000084E0 IF AN$ NE '' AND AN$ NE 'E' AND AN$ NE 'END' _
80380 %WW-OE3 000084FC GOTO 8031
80390 %WW-OE3 0000850F !
80400 %WW-OE3 0000850F 8040 !!!! PRINT (0,3710) ! (BF) DISPLAY AREA
80410 %WW-OE3 0000850F !!!! INBR$ = ZINBR$ + ' '
80420 %WW-OE3 0000850F RETURN
80430 %WW-OE3 00008510 !
80500 %WW-OE3 00008510 ! ========== CHECK CUT YARDAGE IF CUTTINGS STOCKED HERE ====
80510 %WW-OE3 00008510 !
80520 %WW-OE3 00008510 !050 !
80530 %WW-OE3 00008510 !!!! IF POS(ZOETYPE$,'EB') NE 0 AND ISTKCFA$ EQ 'Y' _
80540 %WW-OE3 00008510 !!!! OCFASTK$ = 'Y'
80550 %WW-OE3 00008510 ! THIS ROUTINE WAS BANGED OUT 01/16/2004. IT IS REPL
80560 %WW-OE3 00008510 ! CODE ON LINES 51992 - 52004
80570 %WW-OE3 00008510 !
80580 %WW-OE3 00008510 !!!! RETURN
80590 %WW-OE3 00008510 !
80600 %WW-OE3 00008510 ! ========== SET UP I1R DISPLAY INFO ==========
80610 %WW-OE3 00008510 !
80620 %WW-OE3 00008510 8060 DISPI1R$ = STR(RQOHND)
80630 %WW-OE3 0000851F RQAVAIL = RQOHND - RQALCTD
80640 %WW-OE3 0000852E IF RQAVAIL LT 0 _
80650 %WW-OE3 0000852E RQAVAIL = 0
80652 %WW-OE3 00008547 IF RAVAILPO$ NE '' AND RAVAILPO$ NE ' ' _
80654 %WW-OE3 00008555 RCMNT$ = 'UNAVAILABLE - ASSIGNED TO SALES ORDERS AS
80660 %WW-OE3 0000856C DISPI1R$ = DISPI1R$ + STR(RQAVAIL)
80670 %WW-OE3 00008584 DISPI1R$ = DISPI1R$ + ' ' + IWHSE$ + ' ' + RCMNT$
80680 %WW-OE3 000085B1 RETURN
80690 %WW-OE3 000085B2 !
80800 %WW-OE3 000085B2 ! ========== PROCESS 'ALL' PIECES FOR A COLORWAY ==========
80810 %WW-OE3 000085B2 !
80820 %WW-OE3 000085B2 8080 !!!! MESS$ = "PROCESS 'ALL' PIECES FOR THIS COLOR? (Ye
80830 %WW-OE3 000085B2 !!!! GOSUB 9000
80840 %WW-OE3 000085B2 !!!! IF AN$ EQ 'N' OR AN$ EQ 'NO' 7923
80850 %WW-OE3 000085B2 !!!! IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 8080
80852 %WW-OE3 000085B2 IF TRCODE$ EQ 'CM' GOTO 7923
80854 %WW-OE3 000085C5 UPDTITEM$ = INBR$
80856 %WW-OE3 000085CE IF ALTITEM$ NE '' AND ALTITEM$ NE ' ' _
80858 %WW-OE3 000085DC UPDTITEM$ = ALTITEM$
80860 %WW-OE3 000085F3 GOSUB 7820 ! DELETE CURRENT ALLOCATIONS
80864 %WW-OE3 000085F8 TOTALCTD = 0 & HOLDWHS$ = ''
80870 %WW-OE3 0000860B READ (I1R,0210)KEY=UPDTITEM$,EXCP=8088
80880 %WW-OE3 0000861A 8088 KEY$ = KEY(I1R,EXCP=8095)
80884 %WW-OE3 0000862A IF SUB(KEY$,1,14) NE UPDTITEM$ GOTO 8095
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 80
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
80890 %WW-OE3 0000864B READ (I1R,0210),EXCP=6680
80900 %WW-OE3 00008656 GOSUB 8060
80902 %WW-OE3 0000865B IF (ZZCOID$ EQ 'TR' AND RLOC$ EQ ' ') OR RLOC$
80904 %WW-OE3 0000867C GOTO 8088
80910 %WW-OE3 0000868F IF RQOHND LE 0 OR RQAVAIL LE 0 GOTO 8088
80912 %WW-OE3 000086B2 IF ZZCOID$ EQ 'IN' AND IPCE$ EQ 'MILLST' _
80914 %WW-OE3 000086C0 GOTO 8088
80916 %WW-OE3 000086D3 IF ZZMULTIW$ EQ 'Y' THEN
80920 %WW-OE3 000086E1 IF HOLDWHS$ EQ '' THEN
80922 %WW-OE3 000086EF HOLDWHS$ = IWHSE$ + ' '
80924 %WW-OE3 00008701 ELSE
80926 %WW-OE3 00008706 IF HOLDWHS$ NE IWHSE$ _
80928 %WW-OE3 00008706 GOTO 8088
80930 %WW-OE3 00008719 ENDIF
80932 %WW-OE3 00008719 ENDIF
80950 %WW-OE3 00008719 OSHPPCE = RQAVAIL
80960 %WW-OE3 00008723 TOTALCTD = TOTALCTD + OSHPPCE
80970 %WW-OE3 00008732 OLOT$ = IRUN$ & OPCE$ = IPCE$
80980 %WW-OE3 00008744 WRITE (O1S,0068)KEY=KEYO1$+OLOT$+OPCE$
80990 %WW-OE3 00008762 EXTRACT (I1R,0210)KEY=KEY$,EXCP=6680
81000 %WW-OE3 00008771 RQALCTD = RQALCTD + OSHPPCE
81010 %WW-OE3 00008780 WRITE (I1R,0210)
81020 %WW-OE3 00008787 GOTO 8088
81030 %WW-OE3 0000878C !
81040 %WW-OE3 0000878C 8095 OQTYORD = TOTALCTD
81050 %WW-OE3 00008796 GOTO 7990
81060 %WW-OE3 0000879B !
81190 %WW-OE3 0000879B !
81200 %WW-OE3 0000879B ! ========== PROCESS 'ALL' PIECES FOR A DYELOT ==========
81210 %WW-OE3 0000879B !
81220 %WW-OE3 0000879B 8120 !!!! MESS$ = "PROCESS 'ALL' PIECES FOR THIS DYELOT? (Y
81230 %WW-OE3 0000879B !!!! GOSUB 9000
81240 %WW-OE3 0000879B !!!! IF AN$ EQ 'N' OR AN$ EQ 'NO' 7923
81250 %WW-OE3 0000879B !!!! IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 8120
81260 %WW-OE3 0000879B IF TRCODE$ EQ 'CM' GOTO 7923
81270 %WW-OE3 000087AE UPDTITEM$ = INBR$
81280 %WW-OE3 000087B7 IF ALTITEM$ NE '' AND ALTITEM$ NE ' ' _
81290 %WW-OE3 000087C5 UPDTITEM$ = ALTITEM$
81300 %WW-OE3 000087DC GOSUB 7820 ! DELETE CURRENT ALLOCATIONS
81310 %WW-OE3 000087E1 TOTALCTD = 0 & PRTKY20$ = UPDTITEM$ + OLOT$
81320 %WW-OE3 000087FD READ (I1R,0210)KEY=PRTKY20$,EXCP=8133
81330 %WW-OE3 0000880C 8133 KEY$ = KEY(I1R,EXCP=8147)
81340 %WW-OE3 0000881C IF SUB(KEY$,1,20) NE PRTKY20$ GOTO 8147
81350 %WW-OE3 0000883D READ (I1R,0210),EXCP=6700
81352 %WW-OE3 00008848 GOSUB 8060
81354 %WW-OE3 0000884D IF (ZZCOID$ EQ 'TR' AND RLOC$ EQ ' ') OR RLOC$
81356 %WW-OE3 0000886E GOTO 8133
81362 %WW-OE3 00008881 IF ZZCOID$ EQ 'IN' AND IPCE$ EQ 'MILLST' _
81364 %WW-OE3 0000888F GOTO 8133
81370 %WW-OE3 000088A2 IF RQOHND LE 0 OR RQAVAIL LE 0 GOTO 8133
81380 %WW-OE3 000088C5 OSHPPCE = RQAVAIL
81390 %WW-OE3 000088CF TOTALCTD = TOTALCTD + OSHPPCE
81400 %WW-OE3 000088DE OPCE$ = IPCE$
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 81
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
81410 %WW-OE3 000088E7 WRITE (O1S,0068)KEY=KEYO1$+OLOT$+OPCE$
81420 %WW-OE3 00008905 EXTRACT (I1R,0210)KEY=KEY$,EXCP=6700
81430 %WW-OE3 00008914 RQALCTD = RQALCTD + OSHPPCE
81440 %WW-OE3 00008923 WRITE (I1R,0210)
81450 %WW-OE3 0000892A GOTO 8133
81460 %WW-OE3 0000892F !
81470 %WW-OE3 0000892F 8147 OQTYORD = TOTALCTD
81480 %WW-OE3 00008939 GOTO 7990
81490 %WW-OE3 0000893E !
81600 %WW-OE3 0000893E ! ========== BERGAMO SPECIAL COSTING ROUTINE ==========
81610 %WW-OE3 0000893E !
81620 %WW-OE3 0000893E 8160 !
81622 %WW-OE3 0000893E IF SUCPWOK$ NE 'Y' THEN
81630 %WW-OE3 0000894C CLOSE (PW)
81640 %WW-OE3 0000894F FLNM$ = ZZCO$ + 'PM' & OPEN (PW) FLNM$,EXCP=8184
81650 %WW-OE3 0000896C READ (PW,0089)KEY='WWIPM',EXCP=8187
81660 %WW-OE3 0000897B MESS$ = 'ENTER PASSWORD FOR INPUT OF SPECIAL COST'
81670 %WW-OE3 00008984 GOSUB 9060
81680 %WW-OE3 00008989 IF AN$ NE STRIP(PASSWD$) GOTO 8190
81682 %WW-OE3 000089A2 ENDIF
81684 %WW-OE3 000089A2 SUCPWOK$ = 'Y'
81690 %WW-OE3 000089AB !
81692 %WW-OE3 000089AB 8170 MESS$ = 'ENTER SPECIAL UNIT COST'
81694 %WW-OE3 000089B4 IF ZOETYPE$ EQ 'M' THEN
81696 %WW-OE3 000089C2 WORK72 = OICOST / OQTYORD
81698 %WW-OE3 000089D0 MESS$ = 'CURRENT COST = ' + STR(WORK72)
81700 %WW-OE3 000089E8 MESS$ = STRIP(MESS$) + ', ENTER REVISED COST'
81702 %WW-OE3 00008A00 ENDIF
81710 %WW-OE3 00008A00 GOSUB 9000
81712 %WW-OE3 00008A05 IF AN$ EQ '' OR AN$ EQ 'E' OR AN$ EQ 'END' _
81714 %WW-OE3 00008A21 MESS$ = 'NO SPECIAL COST WAS SET - ENTER' & GOSUB 9
81716 %WW-OE3 00008A3D GOTO 8182
81720 %WW-OE3 00008A42 WORK72 = NUM(AN$,ERR)
81730 %WW-OE3 00008A51 IF WORK72 LT 0 OR ERR GT 1 _
81740 %WW-OE3 00008A60 MESS$ = 'INVALID COST - ENTER' & GOSUB 9000 & GOTO
81750 %WW-OE3 00008A82 MESS$ = 'VERIFY ' + STR(WORK72)
81760 %WW-OE3 00008A9A MESS$ = MESS$ + ' IS THE SPECIAL UNIT COST? (Yes/No)'
81770 %WW-OE3 00008AAC 8175 GOSUB 9000
81780 %WW-OE3 00008AB1 IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 8170
81790 %WW-OE3 00008AD2 IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 8175
81800 %WW-OE3 00008AF3 OICOST = OQTYORD * WORK72
81810 %WW-OE3 00008B01 OCSTOVRD$ = 'Y'
81820 %WW-OE3 00008B0A 8182 RETURN
81830 %WW-OE3 00008B0B !
81840 %WW-OE3 00008B0B 8184 MESS$ = 'PASSWORD FILE NOT FOUND - ENTER'
81850 %WW-OE3 00008B14 GOSUB 9000 & GOTO 8182
81860 %WW-OE3 00008B1E !
81870 %WW-OE3 00008B1E 8187 MESS$ = 'WWIPM PASSWORD NOT FOUND - ENTER'
81880 %WW-OE3 00008B27 GOSUB 9000 & GOTO 8182
81890 %WW-OE3 00008B31 !
81900 %WW-OE3 00008B31 8190 MESS$ = 'INCORRECT PASSWORD - ENTER'
81910 %WW-OE3 00008B3A GOSUB 9000 & GOTO 8182
81920 %WW-OE3 00008B44 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 82
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
82000 %WW-OE3 00008B44 ! ========== SINGLE PIECE ADJUSTMENTS ==========
82010 %WW-OE3 00008B44 !
82020 %WW-OE3 00008B44 8210 UPDTITEM$ = INBR$ + ' '
82030 %WW-OE3 00008B56 IF ALTITEM$ NE '' AND ALTITEM$ NE ' ' _
82040 %WW-OE3 00008B64 UPDTITEM$ = ALTITEM$ + ' '
82080 %WW-OE3 00008B84 GOSUB 8240 & GOSUB 8224
82090 %WW-OE3 00008B8E IF ADJSTOK$ EQ '' GOTO 7970
82100 %WW-OE3 00008BA1 GOTO 7990
82110 %WW-OE3 00008BA6 !
82200 %WW-OE3 00008BA6 8224 IF O1SCNT EQ 1 THEN
82210 %WW-OE3 00008BB5 EXTRACT (I1R,0210)KEY=UPDTITEM$+OLOT$+OPCE$,EXCP=65
82220 %WW-OE3 00008BD7 RQAVAIL = RQOHND - RQALCTD
82230 %WW-OE3 00008BE6 QTY = OQTYORD - ZQTYORD
82240 %WW-OE3 00008BF5 !PRINT (0) '@011000@';KEY$;'*';OSHPPCE;QTY;ZQTYORD & INPUT (
82250 %WW-OE3 00008BF5 IF QTY LT 0 OR (QTY LE RQAVAIL AND RQAVAIL GT 0) TH
82260 %WW-OE3 00008C22 RQALCTD = RQALCTD + QTY
82270 %WW-OE3 00008C31 OSHPPCE = OSHPPCE + QTY
82280 %WW-OE3 00008C40 WRITE (O1S,0068)KEY=ZKEYO1S$
82290 %WW-OE3 00008C4B ADJSTOK$ = 'Y'
82300 %WW-OE3 00008C54 ENDIF
82310 %WW-OE3 00008C54 WRITE (I1R,0210)
82320 %WW-OE3 00008C5B ENDIF
82330 %WW-OE3 00008C5B RETURN
82340 %WW-OE3 00008C5C !
82400 %WW-OE3 00008C5C ! ========== SINGLE PIECE ON THIS LINE? ==========
82410 %WW-OE3 00008C5C !
82420 %WW-OE3 00008C5C 8240 !
82440 %WW-OE3 00008C5C ADJSTOK$ = '' & O1SCNT = 0
82441 %WW-OE3 00008C6F !RINT (0) '@011000@';KEYO1$;'*' & INPUT (0) ''
82450 %WW-OE3 00008C6F READ (O1S,0068)KEY=KEYO1$,EXCP=8246
82460 %WW-OE3 00008C7E 8246 KEY$ = KEY(O1S,EXCP=8252)
82470 %WW-OE3 00008C8E IF SUB(KEY$,1,12) NE KEYO1$ GOTO 8252
82480 %WW-OE3 00008CAF READ (O1S,0068),EXCP=6520
82490 %WW-OE3 00008CBA O1SCNT = O1SCNT + 1 & ZKEYO1S$ = KEY$
82500 %WW-OE3 00008CD2 GOTO 8246
82510 %WW-OE3 00008CD7 !
82520 %WW-OE3 00008CD7 8252 RETURN
82530 %WW-OE3 00008CD8 !
82600 %WW-OE3 00008CD8 ! ========== BERGAMO RE-ORDER CHECKING ==========
82610 %WW-OE3 00008CD8 !
82620 %WW-OE3 00008CD8 8260 !
82630 %WW-OE3 00008CD8 SALES = IUNYTD
82640 %WW-OE3 00008CE2 IF ZINCPREV$ EQ 'Y' SALES = IUNYTD + IUNPRV1
82650 %WW-OE3 00008CFF MESS$ = 'order for samples - '
82660 %WW-OE3 00008D08 IF SALES LT ZLEVEL2 _
82662 %WW-OE3 00008D08 MESS$ = 'see supervisor before ordering - (C)onfirm
82670 %WW-OE3 00008D20 IF SALES LT ZLEVEL1 _
82675 %WW-OE3 00008D20 MESS$ = 'do not order for samples (C)onfirm'
82690 %WW-OE3 00008D38 GOSUB 9000
82695 %WW-OE3 00008D3D IF POS('(C)',MESS$) NE 0 AND AN$ NE 'C' GOTO 8260
82710 %WW-OE3 00008D64 RETURN
82730 %WW-OE3 00008D65 !
82790 %WW-OE3 00008D65 !
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 83
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
82800 %WW-OE3 00008D65 8280 ! PROCESS INPUT OF QTY ORDERED
82810 %WW-OE3 00008D65 OQTYORD = NUM(OQTYORD$,ERR)
82820 %WW-OE3 00008D74 WORK82 = NUM(OQTYORD$,ERR)
82830 %WW-OE3 00008D83 IF WORK82 NE OQTYORD THEN
82840 %WW-OE3 00008D92 MESS$ = ', QUANTITY ORDERED PRECISION EXCE
82850 %WW-OE3 00008D9B GOSUB 9000
82860 %WW-OE3 00008DA0 MESS$ = 'MAXIMUM QTY ORDER PER LINE IS 9,999.99 - E
82870 %WW-OE3 00008DA9 GOSUB 9000
82880 %WW-OE3 00008DAE OQTYORD = 0
82890 %WW-OE3 00008DB8 ENDIF
82900 %WW-OE3 00008DB8 OORIGQTY = OQTYORD ! SET NEW FIELD AS DEFAULT. INNO
82910 %WW-OE3 00008DC2 RETURN
82920 %WW-OE3 00008DC3 !
83000 %WW-OE3 00008DC3 ! ========== DEAL WITH QTY ORDERED INPUT FOR CY ==========
83004 %WW-OE3 00008DC3 !
83008 %WW-OE3 00008DC3 8300 IF ZZCY$ NE 'Y' _
83012 %WW-OE3 00008DC3 MESS$ = 'CANNOT PROCESS CUT YARDAGE ITEM - ENTER' &
83016 %WW-OE3 00008DDA GOSUB 9000 & POPALL & GOTO 5000
83020 %WW-OE3 00008DE5 8310 MESS$ = 'CUT YARDAGE ITEM'
83024 %WW-OE3 00008DEE IF ZMNTTYP$ EQ 'INQ' THEN
83028 %WW-OE3 00008DFC MESS$ = MESS$ + '/Stock display/PO display/Freight
83032 %WW-OE3 00008E0E ELSE
83036 %WW-OE3 00008E13 IF QTYAVL GT 0 _
83040 %WW-OE3 00008E13 MESS$ = MESS$ + '/Stock display'
83044 %WW-OE3 00008E34 IF IQOORD GT 0 _
83048 %WW-OE3 00008E34 MESS$ = MESS$ + '/PO display'
83052 %WW-OE3 00008E55 ENDIF
83056 %WW-OE3 00008E55 MESS$ = MESS$ + '/End or ENTER TO CONTINUE'
83058 %WW-OE3 00008E67 IF ZMNTTYP$ NE 'INQ' AND IQOHND EQ 0 GOTO 8312
83060 %WW-OE3 00008E89 GOSUB 9000
83064 %WW-OE3 00008E8E IF AN$ EQ 'E' OR AN$ EQ 'END' _
83068 %WW-OE3 00008E9C POPALL & GOTO 5000
83072 %WW-OE3 00008EB0 IF AN$ EQ 'S' OR AN$ EQ 'STOCK' _
83076 %WW-OE3 00008EBE GOSUB 7500 & PRINT (0,3710) & MESS$ = '' & GOTO 831
83080 %WW-OE3 00008EE6 IF AN$ EQ 'P' OR AN$ EQ 'PO' _
83084 %WW-OE3 00008EF4 GOSUB 7550 & MESS$ = '' & GOTO 8310
83088 %WW-OE3 00008F15 IF AN$ EQ 'F' OR AN$ EQ 'FREIGHT' THEN
83096 %WW-OE3 00008F31 IF ZMNTTYP$ EQ 'INQ' THEN
83100 %WW-OE3 00008F3F POS = 17 & LINE = LINE1 & PRINT (0, 95)
83104 %WW-OE3 00008F5A INPUT (0) OQTYORD$ & OQTYORD = NUM(OQTYORD$,ERR)
83108 %WW-OE3 00008F74 GOSUB 7380 !GET EXTENSI
83112 %WW-OE3 00008F79 ENDIF
83116 %WW-OE3 00008F79 PRINT (0,3710) !(BF) DISPLA
83120 %WW-OE3 00008F80 GOSUB 7280 & GOTO 7190 !DO FRT ROUT
83124 %WW-OE3 00008F8A ENDIF
83128 %WW-OE3 00008F8A IF AN$ NE '' GOTO 8310
83132 %WW-OE3 00008F9D 8312 IF ZOETYPE$ EQ 'B' AND CHKQTY GT QTYAVL _
83134 %WW-OE3 00008FAB MESS$ = 'ONE-STEP INVOICE MUST SHIP FROM STOCK - EN
83136 %WW-OE3 00008FC3 GOSUB 9000 & POPALL & GOTO 5000
83138 %WW-OE3 00008FCE IF ZOETYPE$ EQ 'M' AND OCUTYRD$ NE 'C' AND CHKQTY GT Q
83140 %WW-OE3 00008FEA MESS$ = 'ORDER IS NOT CUT YARDAGE - ENTER' & _
83142 %WW-OE3 00009002 GOSUB 9000 & POPALL & GOTO 5000
83144 %WW-OE3 0000900D GOSUB 8240 ! IN CASE OF 'ITL'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 84
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
83146 %WW-OE3 00009012 IF O1SCNT EQ 0 _
83148 %WW-OE3 00009012 O1CUTYRD$ = 'Y'
83150 %WW-OE3 0000902A IF ZOETYPE$ EQ 'M' AND ZQTYORD NE OQTYORD AND OQTYSHP
83152 %WW-OE3 00009056 IF ZZCOID$ NE 'BE' GOSUB 8240
83154 %WW-OE3 00009069 IF O1SCNT EQ 1 _
83156 %WW-OE3 00009069 OSHPPCE = OQTYORD & WRITE (O1S,0068)KEY=ZKEYO1S$
83158 %WW-OE3 00009092 IF O1SCNT EQ 0 _
83160 %WW-OE3 00009092 GOTO 8320 ! NO LOTS/PIECES ASSIGNED
83170 %WW-OE3 000090A6 MESS$ = ' - LOT/PIECE ASSIGNMENTS EXIST -
83180 %WW-OE3 000090AF GOSUB 9000
83190 %WW-OE3 000090B4 8314 MESS$ = 'Clear assignments or Adjust in OMOS? (C/A)
83200 %WW-OE3 000090BD GOSUB 9000
83210 %WW-OE3 000090C2 IF AN$ NE 'C' AND AN$ NE 'A' AND _
83220 %WW-OE3 000090DE AN$ NE 'CLEAR' AND AN$ NE 'ADJUST' GOTO 8314
83230 %WW-OE3 000090FF IF AN$ EQ 'C' OR AN$ EQ 'CLEAR' THEN
83240 %WW-OE3 0000911B READ (O1S,0068)KEY=KEYO1$,EXCP=8316
83250 %WW-OE3 0000912A 8316 KEY$ = KEY(O1S,EXCP=8318)
83260 %WW-OE3 0000913A IF SUB(KEY$,1,12) NE KEYO1$ GOTO 8318
83270 %WW-OE3 0000915B DELETE (O1S)KEY=KEY$,EXCP=8316
83280 %WW-OE3 00009166 GOTO 8316
83290 %WW-OE3 0000916B 8318 OQTYSHP = 0
83300 %WW-OE3 00009175 ENDIF
83310 %WW-OE3 00009175 ENDIF
83400 %WW-OE3 00009175 8320 RETURN
83410 %WW-OE3 00009176 !
83590 %WW-OE3 00009176 !
83600 %WW-OE3 00009176 ! ========== PROCESS LINE DISCOUNT INFO FOR INNOVATIONS ====
83610 %WW-OE3 00009176 !
83620 %WW-OE3 00009176 8360 OLDSCPCT = ODISCPCT ! SET LINE DISCOUNT PERCE
83630 %WW-OE3 00009180 !!!! IF ZOETYPE$ NE 'M' _
83640 %WW-OE3 00009180 ONDPRICE = IPRICE1 ! SET NON-DISCOUNTED PRIC
83650 %WW-OE3 0000918A OLDSCAMT = ONDPRICE - OPRICE
83660 %WW-OE3 00009199 IF OPRICE NE ZPRICE THEN ! PRICE MANUALLY INPUT, O
83670 %WW-OE3 000091A8 ! PRICE. RECALCULATE DIS
83680 %WW-OE3 000091A8 OLDSCPCT = (100.00 * OLDSCAMT) / ONDPRICE
83690 %WW-OE3 000091C4 ENDIF
83700 %WW-OE3 000091C4 RETURN
83710 %WW-OE3 000091C5 !
89000 %WW-OE3 000091C5 ! ========== DATE CHECK ROUTINE ========
89020 %WW-OE3 000091C5 !
89040 %WW-OE3 000091C5 USE '^CODATE'
89000 ^CODATE 000091C5 DATECHK:
89001 ^CODATE 000091C5 !
89003 ^CODATE 000091C5 ! PROPER USE OF THIS USEFILE IS AS FOLLOWS:
89004 ^CODATE 000091C5 ! INPUT (0) XDATE$ ! INPUT TEMP FIELD, NOT FIELD DESIRE
89005 ^CODATE 000091C5 ! GOSUB DTCHK
89006 ^CODATE 000091C5 ! IF DATEOK EQ 0 GOTO XXXX ! DO THIS IF BAD DATE INPUT
89007 ^CODATE 000091C5 ! ORDATE$ = XDATE$ ! SET FIELD DESIRED TO INPU
89008 ^CODATE 000091C5 !
89010 ^CODATE 000091C5 DTCHK:
89020 ^CODATE 000091C5 ! ========== DATE VALIDATION ROUTINE ==========
89040 ^CODATE 000091C5 DATEOK = 0 !DEFA
89050 ^CODATE 000091CF XCT$ = '19'
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 85
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
89052 ^CODATE 000091D8 XDATE$ = STRIP(XDATE$) ! TLF 07/11/2003, REPL
89054 ^CODATE 000091E7 !!!! PRINT (#) XDATE$
89058 ^CODATE 000091E7 !!!! INPUT (#) XDATE$
89062 ^CODATE 000091E7 IF POS(' ',XDATE$) NE 0 RETURN
89070 ^CODATE 000091FC XPOS = POS('/',XDATE$)
89080 ^CODATE 0000920B IF XPOS NE 0 THEN
89090 ^CODATE 0000921A MESS$ = SUB(XDATE$,XPOS+1,10)
89100 ^CODATE 0000923B YPOS = POS('/',MESS$)
89110 ^CODATE 0000924A IF YPOS EQ 0 RETURN
89120 ^CODATE 0000925A YPOS = YPOS + XPOS
89140 ^CODATE 00009269 XMO$ = SUB(XDATE$,1,XPOS-1)
89150 ^CODATE 0000928A XMO$ = SUB('00',1,2-LEN(XMO$)) + XMO$
89160 ^CODATE 000092B6 XDA$ = SUB(XDATE$,XPOS+1,YPOS-XPOS-1)
89170 ^CODATE 000092EB XDA$ = SUB('00',1,2-LEN(XDA$)) + XDA$
89180 ^CODATE 00009317 MESS$ = SUB(XDATE$,YPOS+1,4)
89190 ^CODATE 00009338 PRINT (#) MESS$
89200 ^CODATE 00009343 INPUT (#) MESS$
89210 ^CODATE 0000934E XYR$ = '??'
89220 ^CODATE 00009357 IF LEN(MESS$) EQ 2 THEN
89230 ^CODATE 00009367 XYR$ = MESS$
89240 ^CODATE 00009370 IF XYR$ LT '50' XCT$ = '20'
89250 ^CODATE 00009387 ELSE
89260 ^CODATE 0000938C XCT$ = MESS$
89270 ^CODATE 00009395 XYR$ = SUB(MESS$,3,2)
89280 ^CODATE 000093AC ENDIF
89290 ^CODATE 000093AC ELSE
89300 ^CODATE 000093B1 XMO$ = SUB(XDATE$,1,2)
89310 ^CODATE 000093C8 XDA$ = SUB(XDATE$,3,2)
89314 ^CODATE 000093DF IF LEN(XDATE$) EQ 6 THEN
89318 ^CODATE 000093EF XYR$ = SUB(XDATE$,5,2)
89320 ^CODATE 00009406 IF XYR$ LT '50' XCT$ = '20'
89322 ^CODATE 0000941D ELSE
89326 ^CODATE 00009422 XCT$ = SUB(XDATE$,5,2)
89330 ^CODATE 00009439 XYR$ = SUB(XDATE$,7,2)
89334 ^CODATE 00009450 ENDIF
89340 ^CODATE 00009450 ENDIF
89350 ^CODATE 00009450 !
89500 ^CODATE 00009450 XMO = NUM(XMO$,ERR)
89520 ^CODATE 0000945F XDA = NUM(XDA$,ERR)
89540 ^CODATE 0000946E XCT = NUM(XCT$,ERR)
89560 ^CODATE 0000947D XYR = NUM(XYR$,ERR)
89562 ^CODATE 0000948C !PRINT (0) '@011300@';XMO;XDA;XCT;XYR & INPUT (0) ''
89580 ^CODATE 0000948C IF POS('.',XDATE$) NE 0 OR _ !!! POS(' ',XDATE$) NE
89600 ^CODATE 000094A0 POS('+',XDATE$) NE 0 OR ERR NE 0 RETURN
89620 ^CODATE 000094C4 !
89640 ^CODATE 000094C4 IF XMO LT 1 OR XMO GT 12 OR XDA LT 1 OR XDA GT 31 OR _
89660 ^CODATE 00009500 XCT EQ 0 RETURN
89680 ^CODATE 00009510 !
89700 ^CODATE 00009510 IF (XMO EQ 4 OR XMO EQ 6 OR XMO EQ 9 OR XMO EQ 11) AND
89720 ^CODATE 0000954C XDA GT 30 RETURN
89740 ^CODATE 0000955C IF XMO EQ 2 AND XDA GT 29 RETURN
89760 ^CODATE 0000957B !
89780 ^CODATE 0000957B IF FPT(XYR * .25) NE 0 AND XMO EQ 2 AND XDA GT 28 RETU
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 86
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
89800 ^CODATE 000095B3 !
89805 ^CODATE 000095B3 IF XCT NE 19 AND XCT NE 20 RETURN
89810 ^CODATE 000095D2 IF (XCT EQ 19 AND XYR LT 50) OR (XCT EQ 20 AND XYR GT
89814 ^CODATE 00009614 !
89820 ^CODATE 00009614 XDATE$ = XMO$ + '/' + XDA$ + '/' + XCT$ + XYR$
89840 ^CODATE 0000964A DATEOK = 1
89860 ^CODATE 00009654 RETURN
89880 ^CODATE 00009655 !
89050 %WW-OE3 00009655 !
89060 %WW-OE3 00009655 USE '^COEXCOE' ! EXTENDED COMM
26000 ^COEXCOE 00009655 EXTCOMMENTRY:
26100 ^COEXCOE 00009655 !!!! CLOSE (O1E) & FLNM$ = ZZCO$ + 'O1E' & OPEN (O1E) FLNM$
26110 ^COEXCOE 00009655 ESCAPETO LEAVEEXT
26120 ^COEXCOE 0000965A ERRORTO LEAVEEXT
27000 ^COEXCOE 0000965F UNITS$ = "characters"
28000 ^COEXCOE 00009668 COL = 0
29000 ^COEXCOE 00009672 ROW = 0
30000 ^COEXCOE 0000967C WIDTH = 52
31000 ^COEXCOE 00009686 HEIGHT = 15
32000 ^COEXCOE 00009690 STYLE = COS.WS.VISIBLE + COS.WS.CAPTION
33000 ^COEXCOE 0000969F FLAGS = COS.WF.MODAL
34000 ^COEXCOE 000096A9 CAPTION$ = 'ENTER EXTENDED COMMENTS FOR ORD# ' + ORNBR
35000 ^COEXCOE 000096CD PRINT (0) (CreateWindowEx=COL,ROW,WIDTH,HEIGHT,STYLE,F
36000 ^COEXCOE 000096F2 INPUT (0) WINDOWHANDLE$
37000 ^COEXCOE 000096FD !
37100 ^COEXCOE 000096FD O1EORNBR$ = ORNBR$ & O1ELINE$ = OLINE$
37200 ^COEXCOE 0000970F READ (O1E,0567)KEY=O1EORNBR$+O1ELINE$,EXCP=NOEXCO
37290 ^COEXCOE 00009728 EXT3800:
37300 ^COEXCOE 00009728 PRINT (0,3260)
39000 ^COEXCOE 0000972F INPUT (0,3240)
39990 ^COEXCOE 00009736 EXT4000:
40000 ^COEXCOE 00009736 PRINT (0,3220)
41000 ^COEXCOE 0000973D INPUT (0) AN$
41100 ^COEXCOE 00009748 IF AN$ EQ 'I' GOTO LEAVEEXT ! IGNORE INPUT
42000 ^COEXCOE 0000975B IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO EXT3800
43000 ^COEXCOE 0000977C IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO EXT4000
44000 ^COEXCOE 0000979D WRITE (O1E,0567)KEY=ORNBR$+OLINE$
44005 ^COEXCOE 000097B2 LEAVEEXT:
44020 ^COEXCOE 000097B2 PRINT (0) (DeleteWindowEx = WINDOWHANDLE$)
44100 ^COEXCOE 000097BF !!!! CLOSE (O1E)
45000 ^COEXCOE 000097BF RETURN
50000 ^COEXCOE 000097C0 !
52000 ^COEXCOE 000097C0 NOEXCO:
52100 ^COEXCOE 000097C0 IF EXCP EQ 33 AGAIN
52200 ^COEXCOE 000097D0 IF EXCP NE 32 ERROR
52220 ^COEXCOE 000097E0 O1ECMT$( 1) = '' & O1ECMT$( 2) = '' & O1ECMT$( 3) = ''
52240 ^COEXCOE 00009838 O1ECMT$( 5) = '' & O1ECMT$( 6) = '' & O1ECMT$( 7) = ''
52260 ^COEXCOE 00009890 O1ECMT$( 9) = '' & O1ECMT$(10) = '' & O1ECMT$(11) = ''
52300 ^COEXCOE 000098E8 GOTO EXT3800
52400 ^COEXCOE 000098ED !
89070 %WW-OE3 000098ED !
89080 %WW-OE3 000098ED USE '^COACCDE' ! ACTION CODE E
54000 ^COACCDE 000098ED ACTIONCDENTRY:
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 87
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
54002 ^COACCDE 000098ED MCTYPE$ = 'K'
54010 ^COACCDE 000098F6 PRINT (0,3710)
54020 ^COACCDE 000098FD ACTCD1$ = OACTCD1$ & ACTDT1$ = OACTDT1$
54030 ^COACCDE 0000990F ACTCD2$ = OACTCD2$ & ACTDT2$ = OACTDT2$
54040 ^COACCDE 00009921 ACTCD3$ = OACTCD3$ & ACTDT3$ = OACTDT3$
54050 ^COACCDE 00009933 !
54060 ^COACCDE 00009933 DISPLAYACTMASK:
54070 ^COACCDE 00009933 ACD$ = ACTCD1$ & GOSUB GETACTCDINFO & ACTDESC1$ = MCDE
54080 ^COACCDE 0000994A ACD$ = ACTCD2$ & GOSUB GETACTCDINFO & ACTDESC2$ = MCDE
54090 ^COACCDE 00009961 ACD$ = ACTCD3$ & GOSUB GETACTCDINFO & ACTDESC3$ = MCDE
54100 ^COACCDE 00009978 PRINT (0,3600) & PRINT (0,3610)
54110 ^COACCDE 00009986 GOTO VERIFYACTCD
54120 ^COACCDE 0000998B !
54130 ^COACCDE 0000998B INPUTACTCDS:
54140 ^COACCDE 0000998B !
54150 ^COACCDE 0000998B POS = 0 & LINE = 18 & PRINT (0, 95)
54160 ^COACCDE 000099A6 INPT1:
54162 ^COACCDE 000099A6 BADDATE = 0 & BADINPUT = 0
54164 ^COACCDE 000099BA INPUT (0,3620)
54170 ^COACCDE 000099C1 IF SUB(ACTCD1$,1,1) EQ '?' _
54180 ^COACCDE 000099CF PRINT (#) MCTYPE$ & ENTER 'DLG4M1C' & _
54190 ^COACCDE 000099EE INPUT (#) ACTCD1$ & PRINT (0,3600) & _
54192 ^COACCDE 00009A00 ACD$ = ACTCD1$ & GOSUB GETACTCDINFO & ACTDESC1$ = M
54194 ^COACCDE 00009A17 PRINT (0,3610) & POS = 26 & LINE = 18 & PRINT (0,
54200 ^COACCDE 00009A3E IF SUB(ACTCD2$,1,1) EQ '?' _
54210 ^COACCDE 00009A4C PRINT (#) MCTYPE$ & ENTER 'DLG4M1C' & _
54220 ^COACCDE 00009A6B INPUT (#) ACTCD2$ & PRINT (0,3600) & _
54222 ^COACCDE 00009A7D ACD$ = ACTCD2$ & GOSUB GETACTCDINFO & ACTDESC2$ = M
54224 ^COACCDE 00009A94 PRINT (0,3610) & POS = 26 & LINE = 19 & PRINT (0,
54230 ^COACCDE 00009ABB IF SUB(ACTCD3$,1,1) EQ '?' _
54240 ^COACCDE 00009AC9 PRINT (#) MCTYPE$ & ENTER 'DLG4M1C' & _
54250 ^COACCDE 00009AE8 INPUT (#) ACTCD3$ & PRINT (0,3600) & _
54252 ^COACCDE 00009AFA ACD$ = ACTCD3$ & GOSUB GETACTCDINFO & ACTDESC3$ = M
54254 ^COACCDE 00009B11 PRINT (0,3610) & POS = 26 & LINE = 20 & PRINT (0,
54260 ^COACCDE 00009B38 IF STRIP(ACTDT1$) NE '' THEN
54270 ^COACCDE 00009B4C XDATE$ = ACTDT1$ & GOSUB DATECHK
54280 ^COACCDE 00009B5A IF DATEOK EQ 0 _
54290 ^COACCDE 00009B5A BADDATE = 18
54292 ^COACCDE 00009B73 ACTDT1$ = XDATE$
54300 ^COACCDE 00009B7C ENDIF
54310 ^COACCDE 00009B7C IF STRIP(ACTDT2$) NE '' THEN
54320 ^COACCDE 00009B90 XDATE$ = ACTDT2$ & GOSUB DATECHK
54330 ^COACCDE 00009B9E IF DATEOK EQ 0 _
54340 ^COACCDE 00009B9E BADDATE = 19
54342 ^COACCDE 00009BB7 ACTDT2$ = XDATE$
54350 ^COACCDE 00009BC0 ENDIF
54360 ^COACCDE 00009BC0 IF STRIP(ACTDT3$) NE '' THEN
54370 ^COACCDE 00009BD4 XDATE$ = ACTDT3$ & GOSUB DATECHK
54380 ^COACCDE 00009BE2 IF DATEOK EQ 0 _
54390 ^COACCDE 00009BE2 BADDATE = 20
54392 ^COACCDE 00009BFB ACTDT3$ = XDATE$
54400 ^COACCDE 00009C04 ENDIF
54410 ^COACCDE 00009C04 IF STRIP(ACTCD1$) EQ '' AND STRIP(ACTDT1$) NE '' BADIN
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 88
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
54420 ^COACCDE 00009C36 IF STRIP(ACTDT1$) EQ '' AND STRIP(ACTCD1$) NE '' BADIN
54430 ^COACCDE 00009C68 IF STRIP(ACTCD2$) EQ '' AND STRIP(ACTDT2$) NE '' BADIN
54440 ^COACCDE 00009C9A IF STRIP(ACTDT2$) EQ '' AND STRIP(ACTCD2$) NE '' BADIN
54450 ^COACCDE 00009CCC IF STRIP(ACTCD3$) EQ '' AND STRIP(ACTDT3$) NE '' BADIN
54460 ^COACCDE 00009CFE IF STRIP(ACTDT3$) EQ '' AND STRIP(ACTCD3$) NE '' BADIN
54470 ^COACCDE 00009D30 IF BADDATE GT 0 _
54480 ^COACCDE 00009D30 MESS$ = 'VALID DATE FORMAT IS MM/DD/YYYY - ENTER' &
54490 ^COACCDE 00009D48 GOSUB 9000 & POS = 26 & LINE = BADDATE & PRINT (0,
54492 ^COACCDE 00009D68 GOTO INPT1
54500 ^COACCDE 00009D6D IF BADINPUT GT 0 THEN
54510 ^COACCDE 00009D7C MESS$ = 'ALL ACTION DATES MUST HAVE CODES - ENTER'
54520 ^COACCDE 00009D85 IF BADINPUT GE 31 _
54530 ^COACCDE 00009D85 MESS$ = 'ALL ACTION CODES MUST HAVE DATES - ENTE
54540 ^COACCDE 00009D9D GOSUB 9000
54550 ^COACCDE 00009DA2 POS = 0 & LINE = BADINPUT - 3
54560 ^COACCDE 00009DBB IF BADINPUT GE 31 _
54562 ^COACCDE 00009DBB POS = 26 & LINE = BADINPUT - 13
54570 ^COACCDE 00009DE3 PRINT (0, 95) & GOTO INPT1
54580 ^COACCDE 00009DEF ENDIF
54590 ^COACCDE 00009DEF GOTO DISPLAYACTMASK
54600 ^COACCDE 00009DF4 !
54700 ^COACCDE 00009DF4 VERIFYACTCD:
54710 ^COACCDE 00009DF4 MESS$ = 'ARE THE ACTION CODES CORRECT? (Yes/Modify/Ign
54720 ^COACCDE 00009DFD GOSUB 9000
54730 ^COACCDE 00009E02 IF AN$ EQ 'M' OR AN$ EQ 'MODIFY' _
54740 ^COACCDE 00009E10 GOTO INPUTACTCDS
54750 ^COACCDE 00009E23 IF AN$ EQ 'I' OR AN$ EQ 'IGNORE' _
54760 ^COACCDE 00009E31 MESS$ = 'ACTION CODES WERE NOT MODIFIED - ENTER' &
54770 ^COACCDE 00009E48 GOSUB 9000 & GOTO EXITACTCD
54780 ^COACCDE 00009E52 IF AN$ NE 'Y' AND AN$ NE 'YES' _
54790 ^COACCDE 00009E60 GOTO VERIFYACTCD
54800 ^COACCDE 00009E73 OACTCD1$ = ACTCD1$ & OACTDT1$ = ACTDT1$
54810 ^COACCDE 00009E85 OACTCD2$ = ACTCD2$ & OACTDT2$ = ACTDT2$
54820 ^COACCDE 00009E97 OACTCD3$ = ACTCD3$ & OACTDT3$ = ACTDT3$
54830 ^COACCDE 00009EA9 !
54840 ^COACCDE 00009EA9 EXITACTCD:
54850 ^COACCDE 00009EA9 PRINT (0,3710) ! CLEAR ACTION CODES
54860 ^COACCDE 00009EB0 !!!! PRINT (0,3718) & PRINT (0,3722) ! RE-DISPLAY ITEM IN
54870 ^COACCDE 00009EB0 RETURN
54880 ^COACCDE 00009EB1 !
54890 ^COACCDE 00009EB1 GETACTCDINFO:
54900 ^COACCDE 00009EB1 MCDESC$ = ''
54910 ^COACCDE 00009EBA READ (M1C,0650)KEY=MCTYPE$+ACD$,EXCP=ACTCDEXCP
54920 ^COACCDE 00009ED3 !
54930 ^COACCDE 00009ED3 ACTCDEXCP:
54940 ^COACCDE 00009ED3 RETURN
54950 ^COACCDE 00009ED4 !
89090 %WW-OE3 00009ED4 !
89220 %WW-OE3 00009ED4 USE '^CO8920' ! DATE MANIPULA
80 ^CO8920 00009ED4 JULDY:
100 ^CO8920 00009ED4 !=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=- ^8920 =-=-=-=-=-=-==-=-
200 ^CO8920 00009ED4 !
300 ^CO8920 00009ED4 ! Date Conversion Subroutine...
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 89
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
400 ^CO8920 00009ED4 !
500 ^CO8920 00009ED4 ! Input : XDATE$ as MM/DD/CCYY
600 ^CO8920 00009ED4 !
700 ^CO8920 00009ED4 !
800 ^CO8920 00009ED4 ! Output: ZDYCT Century Day (relative to 01/01/01)
900 ^CO8920 00009ED4 ! ZDYYR Normal Julian day
1000 ^CO8920 00009ED4 ! ZDYWK Day of the week (MON = 1, Tues = 2
1100 ^CO8920 00009ED4 !
1110 ^CO8920 00009ED4 ! PLEASE NOTE: STARTING WITH 01/01/2000 - IF YOU WAN
1120 ^CO8920 00009ED4 ! TO RETRIEVE THE ACTUAL DAY OF THE CENTURY FOR TH
1130 ^CO8920 00009ED4 ! 21ST CENTURY, SUBTRACT 36,159 FROM ZDYCT. FOR A
1140 ^CO8920 00009ED4 ! PURPOSES, THE REFERENCE POINT IS 1900 AND YEARS
1150 ^CO8920 00009ED4 ! FROM 99 TO 100, 101, .... INSTEAD OF TURNING TO
1160 ^CO8920 00009ED4 !
1200 ^CO8920 00009ED4 !
1300 ^CO8920 00009ED4 MONTH = NUM(SUB(XDATE$,1,2),ERR)
1400 ^CO8920 00009EF1 DAY = NUM(SUB(XDATE$,4,2),ERR)
1500 ^CO8920 00009F0E YEAR = NUM(SUB(XDATE$,9,2),ERR)
1520 ^CO8920 00009F2B IF YEAR LT 50 _
1540 ^CO8920 00009F2B YEAR = YEAR + 100
1600 ^CO8920 00009F49 LEAPYR = 2
1700 ^CO8920 00009F53 IF (INT(YEAR / 4.000) * 4.) = YEAR THEN LEAPYR = 1
1800 ^CO8920 00009F84 ZDYYR = INT(MONTH * 275 / 9.000) + DAY - 30
1900 ^CO8920 00009FB0 IF MONTH > 2 THEN ZDYYR = ZDYYR- LEAPYR
2000 ^CO8920 00009FCE ZDYCT = INT((YEAR - 1) * 1461 /4.000) + ZDYYR
2300 ^CO8920 0000A004 ZDYWK = ZDYCT - INT(ZDYCT / 7.000) * 7 + 1
2400 ^CO8920 0000A031 RETURN
2500 ^CO8920 0000A032 !
2600 ^CO8920 0000A032 !===========================================================
89240 %WW-OE3 0000A032 !
89620 %WW-OE3 0000A032 USE '^CO8960' ! DATE MANIPULA
80 ^CO8960 0000A032 DTCNV:
100 ^CO8960 0000A032 !=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ^8960 =-=-=-=-=-=-=-=-=-=
200 ^CO8960 0000A032 !
300 ^CO8960 0000A032 ! Date Conversion Subroutine...
400 ^CO8960 0000A032 ! Input : ZDYCT Century Day (Julian Day R
500 ^CO8960 0000A032 !
600 ^CO8960 0000A032 ! Output: XDATE$ as MM/DD/YYYY
800 ^CO8960 0000A032 ! ZDYYR Normal Julian Day
1000 ^CO8960 0000A032 ! ZDYWK Day of the Week (Mon = 1,
1100 ^CO8960 0000A032 !
1200 ^CO8960 0000A032 !
1300 ^CO8960 0000A032 YEAR = INT((ZDYCT - INT(ZDYCT / 1461.000) + 364) / 365.
1400 ^CO8960 0000A065 ZDYYR = ZDYCT - INT((YEAR - 1) * 1461 / 4.000)
1500 ^CO8960 0000A09C LEAPYR = 2
1600 ^CO8960 0000A0A6 IF INT(YEAR / 4.000) * 4 = YEAR THEN LEAPYR = 1
1700 ^CO8960 0000A0D7 XTEMPNO = ZDYYR
1800 ^CO8960 0000A0E1 IF XTEMPNO > (61 - LEAPYR) THEN XTEMPNO = XTEMPNO + LEA
1900 ^CO8960 0000A105 XMO = INT((XTEMPNO * 9 + 269) / 275.000)
2000 ^CO8960 0000A12C XDA = XTEMPNO - INT(XMO * 275 / 9.000) + 30
2100 ^CO8960 0000A159 ZDYWK = ZDYCT - INT(ZDYCT / 7.000) * 7 + 1
2200 ^CO8960 0000A186 XMO$ =SUB(STR(XMO+100),15,2)
2210 ^CO8960 0000A1AD XDA$ =SUB(STR(XDA+100),15,2)
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 90
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
2220 ^CO8960 0000A1D4 IF ZDYCT LE 36159 _ ! LAS
2222 ^CO8960 0000A1D4 XDATE$ = XMO$ + '/' + XDA$ + '/19'
2224 ^CO8960 0000A207 IF ZDYCT GT 36159 _
2226 ^CO8960 0000A207 XDATE$ = XMO$ + '/' + XDA$ + '/20'
2230 ^CO8960 0000A23A XDATE$ = XDATE$ + SUB(STR(YEAR),2,2)
2240 ^CO8960 0000A260 RETURN
2400 ^CO8960 0000A261 !
2500 ^CO8960 0000A261 !=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
89640 %WW-OE3 0000A261 !
89690 %WW-OE3 0000A261 USE '^COSQFT' ! CALC SQUARE F
86000 ^COSQFT 0000A261 !========== CALCUALTE SQUARE FOOT ROUTINE ============
86100 ^COSQFT 0000A261 !
86200 ^COSQFT 0000A261 ! VARIABLES ARE IN ^COSQFTV
86300 ^COSQFT 0000A261 !
86400 ^COSQFT 0000A261 !
86500 ^COSQFT 0000A261 !============== SQUARE FOOTAGE CALCULATOR ===============
86600 ^COSQFT 0000A261 !
86700 ^COSQFT 0000A261 SQFTCALC:
86800 ^COSQFT 0000A261 SQLENFT=0
86900 ^COSQFT 0000A26B SQLENIN=0
87000 ^COSQFT 0000A275 SQLENNUM=0
87100 ^COSQFT 0000A27F SQLENDEN=0
87200 ^COSQFT 0000A289 SQWIDFT=0
87300 ^COSQFT 0000A293 SQWIDIN=0
87400 ^COSQFT 0000A29D SQWIDNUM=0
87500 ^COSQFT 0000A2A7 SQWIDDEN=0
87600 ^COSQFT 0000A2B1 SQMSC1=0
87700 ^COSQFT 0000A2BB SQMSC2=0
87800 ^COSQFT 0000A2C5 SQDESC$=''
87900 ^COSQFT 0000A2CE !
88000 ^COSQFT 0000A2CE POS = 0
88100 ^COSQFT 0000A2D8 PRINT(0,SQFTMASK)
88200 ^COSQFT 0000A2DF !
88300 ^COSQFT 0000A2DF SQFTPOS:
88400 ^COSQFT 0000A2DF PRINT(0,SQFTPOS)
88500 ^COSQFT 0000A2E6 INPUT(0,SQFTINP)
88600 ^COSQFT 0000A2ED IF SQLENFT LT 0 POS = 4 & GOTO SQFTPOS
88700 ^COSQFT 0000A30B IF SQLENIN LT 0 POS =11 & GOTO SQFTPOS
88800 ^COSQFT 0000A329 IF SQLENNUM LT 0 POS =17 & GOTO SQFTPOS
88900 ^COSQFT 0000A347 IF SQLENDEN LT 0 POS =23 & GOTO SQFTPOS
89000 ^COSQFT 0000A365 !
89100 ^COSQFT 0000A365 IF SQWIDFT LT 0 POS =32 & GOTO SQFTPOS
89200 ^COSQFT 0000A383 IF SQWIDIN LT 0 POS =38 & GOTO SQFTPOS
89300 ^COSQFT 0000A3A1 IF SQWIDNUM LT 0 POS =44 & GOTO SQFTPOS
89400 ^COSQFT 0000A3BF IF SQWIDDEN LT 0 POS =50 & GOTO SQFTPOS
89500 ^COSQFT 0000A3DD !
89600 ^COSQFT 0000A3DD SQPRICE = IPRICE1 + SQMSC1 + SQMSC2
89700 ^COSQFT 0000A3F1 !
89800 ^COSQFT 0000A3F1 SQFT=(((SQLENFT * 12)+SQLENIN+(1.0000 * SQLENNUM / SQLE
89900 ^COSQFT 0000A42A ((SQWIDFT * 12)+SQWIDIN+(1.0000 * SQWIDNUM / SQWI
90000 ^COSQFT 0000A47B SQFT = SQFT / 144.0000
90100 ^COSQFT 0000A489 !
90200 ^COSQFT 0000A489 SQFTEXT = SQFT * SQPRICE
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 91
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
90300 ^COSQFT 0000A497 SQDESC$='Length: '
90400 ^COSQFT 0000A4A0 IF SQLENFT NE 0 SQDESC$=SQDESC$+STRIP(STR(SQLENFT))+"
90500 ^COSQFT 0000A4D6 IF SQLENFT NE 0 AND (SQLENIN NE 0 OR SQLENNUM NE 0) _
90600 ^COSQFT 0000A503 SQDESC$=SQDESC$+' -'
90700 ^COSQFT 0000A515 IF SQLENIN NE 0 SQDESC$=SQDESC$+' '+STRIP(STR(SQLENIN
90800 ^COSQFT 0000A550 IF SQLENNUM NE 0 _
90900 ^COSQFT 0000A550 SQDESC$=SQDESC$+' '+STRIP(STR(SQLENNUM))+'/' &_
91000 ^COSQFT 0000A594 SQDESC$=SQDESC$+STRIP(STR(SQLENDEN))
91100 ^COSQFT 0000A5B2 IF SQLENIN NE 0 OR SQLENNUM NE 0 SQDESC$=SQDESC$+'"'
91200 ^COSQFT 0000A5E2 !
91300 ^COSQFT 0000A5E2 SQDESC$=SQDESC$+' Width: '
91400 ^COSQFT 0000A5F4 IF SQWIDFT NE 0 SQDESC$=SQDESC$+STRIP(STR(SQWIDFT))+"
91500 ^COSQFT 0000A62A IF SQWIDFT NE 0 AND (SQWIDIN NE 0 OR SQWIDNUM NE 0) _
91600 ^COSQFT 0000A657 SQDESC$=SQDESC$+' -'
91700 ^COSQFT 0000A669 IF SQWIDIN NE 0 SQDESC$=SQDESC$+' '+STRIP(STR(SQWIDIN
91800 ^COSQFT 0000A6A4 IF SQWIDNUM NE 0 _
91900 ^COSQFT 0000A6A4 SQDESC$=SQDESC$+' '+STRIP(STR(SQWIDNUM))+'/' &_
92000 ^COSQFT 0000A6E8 SQDESC$=SQDESC$+STRIP(STR(SQWIDDEN))
92100 ^COSQFT 0000A706 IF SQWIDIN NE 0 OR SQWIDNUM NE 0 SQDESC$=SQDESC$+'"'
92200 ^COSQFT 0000A736 !
92300 ^COSQFT 0000A736 PRINT(0,SQFTMASK)
92400 ^COSQFT 0000A73D !
92500 ^COSQFT 0000A73D MESS$='' & GOSUB 9000
92510 ^COSQFT 0000A74B PRINT(0,SQFTBF)
92600 ^COSQFT 0000A752 RETURN
89740 %WW-OE3 0000A753 !
90000 %WW-OE3 0000A753 USE '^COMSRT8' ! 9000 - MESSAG
100 ^COMSRT8 0000A753 9000 !========= MESSAGE WRITING ROUTINE =========
200 ^COMSRT8 0000A753 LM = LEN(MESS$)
300 ^COMSRT8 0000A75E PM = 36 - (LM/2)
400 ^COMSRT8 0000A772 PRINT (0, 91)
500 ^COMSRT8 0000A779 IF BLIND$ NE 'B' PRINT (0, 90)
600 ^COMSRT8 0000A78E IF BLIND$ EQ 'B' PRINT (0, 96)
700 ^COMSRT8 0000A7A3 INPUT (0) AN$
800 ^COMSRT8 0000A7AE PRINT (0, 91) & BLIND$ = ''
900 ^COMSRT8 0000A7BE RETURN
1000 ^COMSRT8 0000A7BF 9050 PRINT (0, 92)
1100 ^COMSRT8 0000A7C6 GOTO 9000
1200 ^COMSRT8 0000A7CB 9060 BLIND$ = 'B'
1300 ^COMSRT8 0000A7D4 GOTO 9000
90010 %WW-OE3 0000A7D9 !
100000 %WW-OE3 0000A7D9 ! ========== END OF OVERLAY ==========
100100 %WW-OE3 0000A7D9 9900 PROGID$ = 'O'
100200 %WW-OE3 0000A7E2 RUN 'Z'
100300 %WW-OE3 0000A7E8 END
FORMAT 100 defined at 00000AEA cannot be executed
FORMAT 110 defined at 00000AEF cannot be executed
FORMAT 120 defined at 00000B23 cannot be executed
FORMAT 130 defined at 00000B28 cannot be executed
FORMAT 3200 defined at 00000D98 cannot be executed
FORMAT 3890 defined at 00001900 cannot be executed
FORMAT CKLJCOND defined at 00000B4C cannot be executed
FORMAT CKPRNTR defined at 00000B37 cannot be executed
COMET - DDUMP Data File Dump [12.02/2011.457] 03/13/12 12:52 Page 92
File: WWOE3 .LST on S32 Type: TXT Beginning at 1 for 90 Record: 8000 Key: 0 Key Position:
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
FORMAT CLEARFOREGROUND defined at 00000B62 cannot be executed
FORMAT CURSPOSREM defined at 00000B2D cannot be executed
FORMAT CURSPOSRES defined at 00000B32 cannot be executed
FORMAT FRMLFFMT defined at 00000B52 cannot be executed
WARNING: STATEMENT 6660 defined at 0000221F cannot be executed
WARNING: STATEMENT 9900 defined at 0000A7D9 cannot be executed
PROGRAM MEMORY REQUIREMENTS
COMMON 00000507
LOCAL 00012758
CONSTANTS 00009480
FORMATS 00006759
CODE 00042985
--------
TOTAL 00072489
COMPILE COMPLETED
TOTAL ERRORS 0
100400 %WW-OE3 00000000 !
ZZZZZZZ %WW-OE3 00000000 END
TOTAL ERRORS 0
End of listing - 4845 Records