IB Compile of %WW-ZM, HCS to WWZM, HCO Version: 0 on 09/14/11 at 16:52:41
1 %WW-ZM 0000 ! S %WW-ZM,HCS !!
2 %WW-ZM 0000 ! O WWZM,HCO !!
3 %WW-ZM 0000 ! L LPH,S !!
4 %WW-ZM 0000 ! R CED !!
10 %WW-ZM 0000 ! !!
3000 %WW-ZM 0000 LENGTH 8 & COMMON RUNCD$ !!
5000 %WW-ZM 0000 USE '^COZ1' !0990 - SYSTEM DATA !!
100 ^COZ1 0000 ! ! !!
200 ^COZ1 0000 !===========================> ^COZ1 <==============================! !!
300 ^COZ1 0000 ! ! !!
400 ^COZ1 0000 ! File Format & Length Declaratives ! !!
500 ^COZ1 0000 ! ! !!
600 ^COZ1 0000 ! File Name: Z1 SYSTEM FILE ! !!
700 ^COZ1 0000 ! ! !!
800 ^COZ1 0000 ! Type: K Record: 512 Key: 32 Image: N ! !!
900 ^COZ1 0000 ! ! !!
1000 ^COZ1 0000 ! #FILES File Name: SYSTEM.FILE Date: 11/01/06 ! !!
1100 ^COZ1 0000 ! ! !!
1200 ^COZ1 0000 !--------------------------------------------------------------------! !!
1300 ^COZ1 0000 ! ! !!
1400 ^COZ1 0000 ! ! !!
1500 ^COZ1 0000 LENGTH 1.0 & LOCAL ZREPFLG ! !!
1600 ^COZ1 0000 LENGTH 2.0 & LOCAL ZFMM,ZMOCRED,ZREMOTE ! !!
1700 ^COZ1 0000 LENGTH 2.0 & LOCAL ZHNDPCT,ZDELDYO ! !!
1800 ^COZ1 0000 LENGTH 3.0 & LOCAL ZMAXUPS,ZPASTDUE,ZPDDYS ! !!
1900 ^COZ1 0000 LENGTH 4.0 & LOCAL ZCLAMT ! !!
2000 ^COZ1 0000 LENGTH 4.2 & LOCAL ZFRTMIN,ZPCKCHG ! !!
2100 ^COZ1 0000 LENGTH 5.0 & LOCAL ZPAYLIM ! !!
2200 ^COZ1 0000 LENGTH 1 & LOCAL ZACKFLG$,ZARAUDT$,ZINVAUDT$ ! !!
2300 ^COZ1 0000 LENGTH 1 & LOCAL ZBRKFLG$,ZCNLDISP$,ZCNL7$ ! !!
2400 ^COZ1 0000 LENGTH 1 & LOCAL ZCUTYRD$,ZDIBC$,ZDIEML$ ! !!
2500 ^COZ1 0000 LENGTH 1 & LOCAL ZDISCAN$,ZEDRFLG$,ZFRTYDLB$ ! !!
2600 ^COZ1 0000 LENGTH 1 & LOCAL ZFURNACT$,ZFEVENT$,ZKEBAT$ ! !!
2700 ^COZ1 0000 LENGTH 1 & LOCAL ZLPDSPLY$,ZMENU$,ZMULTIWH$ ! !!
2800 ^COZ1 0000 LENGTH 1 & LOCAL ZCFAFLOE$,ZORDLIM$ ! !!
2900 ^COZ1 0000 LENGTH 1 & LOCAL ZOTBCFLG$,ZPCKFLG$,ZPTRDLG$ ! !!
3000 ^COZ1 0000 LENGTH 1 & LOCAL ZPT$,ZQCLOT$,ZRNDFRT$ ! !!
3100 ^COZ1 0000 LENGTH 1 & LOCAL ZUPDC1A$ ! !!
3200 ^COZ1 0000 LENGTH 2 & LOCAL ZCENT$,ZZCO$,ZCOID$ ! !!
3300 ^COZ1 0000 LENGTH 2 & LOCAL ZSTATE$,ZCURRCD$,ZUNUSED2$ ! !!
3400 ^COZ1 0000 LENGTH 3 & LOCAL ZPART1$,ZDICTDIR$,ZDIBCLPT$ ! !!
3500 ^COZ1 0000 LENGTH 3 & LOCAL ZFXD$,ZPARTMEM$,ZMLP$ ! !!
3600 ^COZ1 0000 LENGTH 3 & LOCAL ZLOC$,ZINIT$,ZLP$,ZRMD$ ! !!
3700 ^COZ1 0000 LENGTH 3 & LOCAL ZREPDEF$ ! !!
3800 ^COZ1 0000 LENGTH 5 & LOCAL ZJULIAN$ ! !!
3900 ^COZ1 0000 LENGTH 6 & LOCAL ZAGED6$ ! !!
4000 ^COZ1 0000 LENGTH 8 & LOCAL ZAGED$,ZRESDTE8$,ZCFADTE8$ ! !!
4100 ^COZ1 0000 LENGTH 8 & LOCAL ZDATE8$ ! !!
4200 ^COZ1 0000 LENGTH 9 & LOCAL ZFILLER$ ! !!
4300 ^COZ1 0000 LENGTH 10 & LOCAL ZZIP$,ZORDDTE$,ZRESDTE$ ! !!
4400 ^COZ1 0000 LENGTH 10 & LOCAL ZCFADTE$,ZDATE$ ! !!
4500 ^COZ1 0000 LENGTH 11 & LOCAL ZSHPVIA$ ! !!
4600 ^COZ1 0000 LENGTH 12 & LOCAL ZPHONE$,ZFAXNO$ ! !!
4700 ^COZ1 0000 LENGTH 15 & LOCAL ZADR3$,ZFOBOE$ ! !!
4800 ^COZ1 0000 LENGTH 20 & LOCAL ZFRTTRM$ ! !!
4900 ^COZ1 0000 LENGTH 21 & LOCAL ZCITY$ ! !!
5000 ^COZ1 0000 LENGTH 25 & LOCAL ZADR1$,ZADR2$,ZNAME25$ ! !!
5100 ^COZ1 0000 LENGTH 27 & LOCAL ZDOWEXP$ ! !!
5200 ^COZ1 0000 LENGTH 32 & LOCAL ZZKEYZ1$ ! !!
5300 ^COZ1 0000 LENGTH 35 & LOCAL ZNAME$ ! !!
5400 ^COZ1 0000 ! ! !!
5500 ^COZ1 0000 ! ! !!
5600 ^COZ1 0000 ! Description Type Len Pos ! !!
5700 ^COZ1 0000 ! ------------------------------------------! !!
5800 ^COZ1 0000 0990 FORMAT _ ! !!
5900 ^COZ1 0000 ZDATE8$;_ ! TODAYS DATE 8 S 8 0 ! !!
6000 ^COZ1 0004 ZDOWEXP$;_ ! DATE EXPANDED S 27 8 ! !!
6100 ^COZ1 0008 ZLP$;_ ! PRINTER S 3 35 ! !!
6200 ^COZ1 000C ZPT$;_ ! PRINTER TYPE S 1 38 ! !!
6300 ^COZ1 0010 ZNAME25$;_ ! NAME S 25 39 ! !!
6400 ^COZ1 0014 ZADR1$;_ ! ADDRESS 1 S 25 64 ! !!
6500 ^COZ1 0018 ZADR2$;_ ! ADDRESS 2 S 25 89 ! !!
6600 ^COZ1 001C ZCITY$;_ ! CITY S 21 114 ! !!
6700 ^COZ1 0020 ZSTATE$;_ ! STATE S 2 135 ! !!
6800 ^COZ1 0024 ZZIP$;_ ! ZIP S 10 137 ! !!
6900 ^COZ1 0028 ZADR3$;_ ! ADDRESS 3 S 15 147 ! !!
7000 ^COZ1 002C ZPHONE$;_ ! PHONE S 12 162 ! !!
7100 ^COZ1 0030 ZAGED6$;_ ! AGING NUMERIC DATE6 S 6 174 ! !!
7200 ^COZ1 0034 ZJULIAN$;_ ! JULIAN DATE S 5 180 ! !!
7300 ^COZ1 0038 ZCOID$;_ ! COMPANY ID S 2 185 ! !!
7400 ^COZ1 003C ZREMOTE;_ ! REMOTE FLAG, 0=NONE N 2.0 187 ! !!
7500 ^COZ1 0041 ZUNUSED2$;_ ! 2 UNUSED BYTES S 2 191 ! !!
7600 ^COZ1 0045 ZLOC$;_ ! MEMO SAMPLE LOC S 3 193 ! !!
7700 ^COZ1 0049 ZZCO$;_ ! COMPANY CODE S 2 196 ! !!
7800 ^COZ1 004D ZFXD$;_ ! FIXED DISC S 3 198 ! !!
7900 ^COZ1 0051 ZRMD$;_ ! REMOVABLE DISC S 3 201 ! !!
8000 ^COZ1 0055 ZPART1$;_ ! BACKROUND PARTITION S 3 204 ! !!
8100 ^COZ1 0059 ZRESDTE8$;_ ! RESERVE CANCEL DATE S 8 207 ! !!
8200 ^COZ1 005D ZCFADTE8$;_ ! RESERVE CFA CANCEL S 8 215 ! !!
8300 ^COZ1 0061 ZHNDPCT;_ ! RESTOCKING PCT N 2.0 223 ! !!
8400 ^COZ1 0066 ZPCKCHG;_ ! PACKAGING CHARGE N 4.2 227 ! !!
8500 ^COZ1 006B ZPCKFLG$;_ ! PACKAGING CHARGE S 1 233 ! !!
8600 ^COZ1 006F ZDELDYO;_ ! ADDITIONAL SHIP DAY N 2.0 234 ! !!
8700 ^COZ1 0074 ZPASTDUE;_ ! PAST DUE DAYS N 3.0 238 ! !!
8800 ^COZ1 0079 ZFMM;_ ! FISCAL MONTH N 2.0 243 ! !!
8900 ^COZ1 007E ZMOCRED;_ ! MONTHS WITH NO SALE N 2.0 247 ! !!
9000 ^COZ1 0083 ZREPFLG;_ ! RESTRICT REP FLAG N 1.0 251 ! !!
9100 ^COZ1 0088 ZDICTDIR$;_ ! DICT DIRECTORY S 3 254 ! !!
9200 ^COZ1 008C ZREPDEF$;_ ! RESTRICTED REP ID S 3 257 ! !!
9300 ^COZ1 0090 ZDATE$;_ ! TODAYS DATE 10 S 10 260 ! !!
9400 ^COZ1 0094 ZAGED$;_ ! AGING NUMERIC DATE8 S 8 270 ! !!
9500 ^COZ1 0098 ZCENT$;_ ! CENTURY S 2 278 ! !!
9600 ^COZ1 009C ZINIT$;_ ! INITIALS S 3 280 ! !!
9700 ^COZ1 00A0 ZNAME$;_ ! COMPANY NAME S 35 283 ! !!
9800 ^COZ1 00A4 ZFRTMIN;_ ! MINIMUM FRT PER ORD N 4.2 318 ! !!
9900 ^COZ1 00A9 ZPARTMEM$;_ ! MEMO PRINT PART S 3 324 ! !!
10000 ^COZ1 00AD ZRESDTE$;_ ! RESERVE CANCEL DATE S 10 327 ! !!
10100 ^COZ1 00B1 ZCFADTE$;_ ! RESERVE CFA CANCEL S 10 337 ! !!
10200 ^COZ1 00B5 ZLPDSPLY$;_ ! LOT PIECE DSPLY S 1 347 ! !!
10300 ^COZ1 00B9 ZPAYLIM;_ ! CR CHK PAYMENT LIMIT N 5.0 348 ! !!
10400 ^COZ1 00BE ZORDDTE$;_ ! ORDER CANCEL DATE S 10 355 ! !!
10500 ^COZ1 00C2 ZORDLIM$;_ ! ORDER CR LIM CHK S 1 365 ! !!
10600 ^COZ1 00C6 ZMULTIWH$;_ ! MULTI WRHSE S 1 366 ! !!
10700 ^COZ1 00CA ZCFAFLOE$;_ ! OE CFA FLG S 1 367 ! !!
10800 ^COZ1 00CE ZCNLDISP$;_ ! CNL LOOKUP S 1 368 ! !!
10900 ^COZ1 00D2 ZQCLOT$;_ ! LOT NUMBER DEFAULT S 1 369 ! !!
11000 ^COZ1 00D6 ZFOBOE$;_ ! OE FOB DEFAULT S 15 370 ! !!
11100 ^COZ1 00DA ZMAXUPS;_ ! MAX UPS WGHT PKG N 3.0 385 ! !!
11200 ^COZ1 00DF ZFAXNO$;_ ! FAX NUMBER S 12 390 ! !!
11300 ^COZ1 00E3 ZFRTTRM$;_ ! QE FRT TERM DEFAULT S 20 402 ! !!
11400 ^COZ1 00E7 ZKEBAT$;_ ! KE BATCH OPTION S 1 422 ! !!
11500 ^COZ1 00EB ZFRTYDLB$;_ ! FRT CALC S 1 423 ! !!
11600 ^COZ1 00EF ZEDRFLG$;_ ! EDR FLG S 1 424 ! !!
11700 ^COZ1 00F3 ZMENU$;_ ! MENU CODE S 1 425 ! !!
11800 ^COZ1 00F7 ZACKFLG$;_ ! ACK FLG S 1 426 ! !!
11900 ^COZ1 00FB ZMLP$;_ ! MEMO PRNTR S 3 427 ! !!
12000 ^COZ1 00FF ZCUTYRD$;_ ! CUT YARDAGE USER S 1 430 ! !!
12100 ^COZ1 0103 ZSHPVIA$;_ ! SHIP VIA S 11 431 ! !!
12200 ^COZ1 0107 ZCLAMT;_ ! CRED LIM CHK AMT N 4.0 442 ! !!
12300 ^COZ1 010C ZPDDYS;_ ! PAST DUE ORDER DAYS N 3.0 448 ! !!
12400 ^COZ1 0111 ZFEVENT$;_ ! FURNITURE EVENT S 1 453 ! !!
12500 ^COZ1 0115 ZCURRCD$;_ ! CURRENCY CODE S 2 454 ! !!
12600 ^COZ1 0119 ZARAUDT$;_ ! A/R AUDIT FLAG S 1 456 ! !!
12700 ^COZ1 011D ZRNDFRT$;_ ! ROUND FREIGHT? S 1 457 ! !!
12800 ^COZ1 0121 ZUPDC1A$;_ ! UPDATE C1A? S 1 458 ! !!
12900 ^COZ1 0125 ZFURNACT$;_ ! FURN ACCT S 1 459 ! !!
13000 ^COZ1 0129 ZOTBCFLG$;_ ! OTBC FLAG S 1 460 ! !!
13100 ^COZ1 012D ZDISCAN$;_ ! DOC IMAGING SCAN FLAG S 1 461 ! !!
13200 ^COZ1 0131 ZDIEML$;_ ! DOC IMAGING EMAIL FLAG S 1 462 ! !!
13300 ^COZ1 0135 ZDIBC$;_ ! DOC IMAGING BARCODE FLAG S 1 463 ! !!
13400 ^COZ1 0139 ZDIBCLPT$;_ ! DOC IMAGING B/C PRINTER S 3 464 ! !!
13500 ^COZ1 013D ZCNL7$;_ ! CNL PHONE FLAG S 1 467 ! !!
13600 ^COZ1 0141 ZBRKFLG$;_ ! BROKER COST FLAG S 1 468 ! !!
13700 ^COZ1 0145 ZPTRDLG$;_ ! USE PRINTER DIALOG BOX S 1 469 ! !!
13800 ^COZ1 0149 ZINVAUDT$;_ ! AUDIT INV FLAG S 1 470 ! !!
13900 ^COZ1 014D ZFILLER$;_ ! FILLER S 9 471 ! !!
14000 ^COZ1 0151 ZZKEYZ1$ ! KEY Z1 S 32 480 ! !!
14100 ^COZ1 0156 ! ! !!
14200 ^COZ1 0156 !====================================================================! !!
5100 %WW-ZM 0156 ! !!
5200 %WW-ZM 0156 LENGTH 240 & LOCAL UNIQUE$ !!
5300 %WW-ZM 0156 ! !!
5400 %WW-ZM 0156 0991 FORMAT_ !!
5500 %WW-ZM 0156 UNIQUE$ !PROGRAMS UNIQUE TO THIS COMPANY !!
5600 %WW-ZM 015B ! !!
5610 %WW-ZM 015B LENGTH 3 & LOCAL DefaultFileExt$ !!
5620 %WW-ZM 015B LENGTH 100 & LOCAL GraphicsFolder$ !!
5630 %WW-ZM 015B 0004 FORMAT _ !!
5640 %WW-ZM 015B GraphicSFolder$;DefaultFileExt$ !!
5650 %WW-ZM 0164 ! !!
5660 %WW-ZM 0164 LENGTH 12 & LOCAL ZEMLPARM$ !!
5670 %WW-ZM 0164 LENGTH 30 & LOCAL ZEMLNAME$,ZPOEMLNM$ !!
5680 %WW-ZM 0164 LENGTH 50 & LOCAL ZEMLADDR$,ZPOEMLAD$ !!
5690 %WW-ZM 0164 0006 FORMAT _ !!
5700 %WW-ZM 0164 ZEMLPARM$;ZEMLNAME$;ZEMLADDR$;ZPOEMLNM$;ZPOEMLAD$ !!
5710 %WW-ZM 0179 ! !!
5720 %WW-ZM 0179 LENGTH 100 & LOCAL DocImageURL$ !!
5730 %WW-ZM 0179 0008 FORMAT _ !!
5740 %WW-ZM 0179 DocImageURL$ !!
5750 %WW-ZM 017E ! !!
5850 %WW-ZM 017E LENGTH 3 & LOCAL ZLPPDFPRINTER$, ZDIRPDFO$, ZDIRPDFR$, ZDIRPDFS$,ZDIRPDFP$!!
5860 %WW-ZM 017E LENGTH 3 & LOCAL ZLPPDFEMAIL$,ZDIRPDFMR$,ZLPPDFDISPLAY$ !!
5950 %WW-ZM 017E ! !!
6050 %WW-ZM 017E Z1PDF: FORMAT_ !!
6150 %WW-ZM 017E ZLPPDFPRINTER$;_ !PDF PRINTER !!
6250 %WW-ZM 0182 ZDIRPDFO$;_ !PDF FACTORY ORDER FILES KEPT HERE !!
6350 %WW-ZM 0186 ZDIRPDFP$;_ !PDF FACTORY P.O. FILES KEPT HERE !!
6450 %WW-ZM 018A ZDIRPDFS$;_ !PDF FACTORY SAMPLE FILES KEPT HERE !!
6550 %WW-ZM 018E ZDIRPDFR$;_ !PDF FACTORY STATEMENT FILES KEPT HERE !!
6560 %WW-ZM 0192 ZLPPDFEMAIL$;_ !PDF-EMAIL PRINTER !!
6570 %WW-ZM 0196 ZDIRPDFMR$;_ !PDF FACTORY MANAGEMENT REPORTS KEPT HERE !!
6580 %WW-ZM 019A ZLPPDFDISPLAY$ !PDF FACTORY PRINTER IN DISPLAY MODE !!
6650 %WW-ZM 019F ! !!
9000 %WW-ZM 019F ! ========== WORK STORAGE ========== !!
9100 %WW-ZM 019F LENGTH 12 & LOCAL BL$ !!
9110 %WW-ZM 019F LENGTH 1 & LOCAL SCREEN$ !!
9200 %WW-ZM 019F ! !!
9300 %WW-ZM 019F LENGTH 2.0 & LOCAL ERR,FLDNBR,MONTH,DAY,YEAR !!
9400 %WW-ZM 019F LENGTH 5.0 & LOCAL ZIP !!
9950 %WW-ZM 019F USE '^COUTIL8' !!
100 ^COUTIL8 019F !===============================================================================!!
200 ^COUTIL8 019F LENGTH 68 & LOCAL MESS$ !!
300 ^COUTIL8 019F LENGTH 3 & LOCAL ZPRTCODE$ !!
302 ^COUTIL8 019F LENGTH 10 & LOCAL AN$ !!
310 ^COUTIL8 019F LENGTH 20 & LOCAL ZPRTDESC$ , ZPRTLOC$ !!
400 ^COUTIL8 019F LENGTH 40 & LOCAL STITLE$ !!
500 ^COUTIL8 019F LENGTH 8 & LOCAL FLNM$,DT$ , ZLJPROG$ !!
510 ^COUTIL8 019F LENGTH 12 & LOCAL FLNM12$ !ADED 5/20/04 SEH !!
600 ^COUTIL8 019F LENGTH 1.0 & LOCAL LJCONFLG , ZLJPFLAG !!
605 ^COUTIL8 019F LENGTH 3.0 & LOCAL AN,POS,LINE,PAGE,LM,PM,TTLPOS,MAXLINE !!
620 ^COUTIL8 019F LENGTH 20 & LOCAL CHAR$ !!
640 ^COUTIL8 019F LENGTH 1 & LOCAL BLIND$,PORL$ !!
700 ^COUTIL8 019F SET BUSY=33,EOF=2,KEYERR=32 !!
800 ^COUTIL8 019F !===============================================================================!!
900 ^COUTIL8 019F ! FORMAT STATEMENTS =====!!
1000 ^COUTIL8 019F !===============================================================================!!
1100 ^COUTIL8 019F 90 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM) !!
1200 ^COUTIL8 01B6 91 FORMAT (BF),@(0,23) !!
1300 ^COUTIL8 01BE 92 FORMAT (RB),@(0,23) !!
1500 ^COUTIL8 01C6 95 FORMAT @(POS,LINE) !!
1520 ^COUTIL8 01CE 96 FORMAT (TM),@(79,23);MESS$,LM,@(PM,23);(TM);(BM) !!
1600 ^COUTIL8 01E8 100 FORMAT(CS) !!
1700 ^COUTIL8 01EC 110 FORMAT(SB);(BF),@(0,0);ZDATE$,@(0,0);_ !!
1710 ^COUTIL8 01FE STITLE$,@(TTLPOS,0);'-';@(70);ZNAME$,10 !!
1720 ^COUTIL8 0215 120 FORMAT (CPL80) ! SET FOR 80 CHAR SCREEN !!
1740 ^COUTIL8 0219 130 FORMAT (CPL64) ! SET FOR 64 CHAR SCREEN !!
1800 ^COUTIL8 021D ! !!
1810 ^COUTIL8 021D CURSPOSREM: FORMAT (MC) !REMEMBER CURSOR POSITION !!
1820 ^COUTIL8 0221 CURSPOSRES: FORMAT (RC) !RESTORE CURSOR POSITION !!
1830 ^COUTIL8 0225 ! !!
1900 ^COUTIL8 0225 SET Z1 = 10 !!
2000 ^COUTIL8 0225 ! !!
2010 ^COUTIL8 0225 CKPRNTR: FORMAT ZPRTCODE$;_ !PRINTER ID !!
2011 ^COUTIL8 0229 ZLJPFLAG;_ !LASER JET PRINTER FLAG '1'=YES !!
2012 ^COUTIL8 022E ZPRTDESC$;_ !PRINTER DESCRIPTION !!
2014 ^COUTIL8 0232 ZPRTLOC$ !PRINTER LOCATION !!
2020 ^COUTIL8 0237 ! !!
2022 ^COUTIL8 0237 CKLJCOND: FORMAT ZLJPROG$ !!
2122 ^COUTIL8 023C ! !!
2132 ^COUTIL8 023C ! THE FOLLOWING FORMAT IS USED BY FORMS PROGRAMS TO DETERMINE THE !!
2142 ^COUTIL8 023C ! NUMBER OF LINE FEEDS THE PROGRAM NEEDS TO GET TO THE !!
2152 ^COUTIL8 023C ! FIRST PRINT LINE ON THE FORM. !!
2162 ^COUTIL8 023C ! !!
2222 ^COUTIL8 023C LENGTH 32 & LOCAL KEYLF$ !!
2232 ^COUTIL8 023C LENGTH 2.0 & LOCAL ZLFINIT,ZHPOS !!
2322 ^COUTIL8 023C ! !!
2422 ^COUTIL8 023C FRMLFFMT: FORMAT KEYLF$;_ !!
2522 ^COUTIL8 0240 ZLFINIT;_ !INITIAL LINE FEEDS !!
2622 ^COUTIL8 0245 ZHPOS !HORIZONTAL POSITION FOR LABELS !!
2722 ^COUTIL8 024B ! !!
2822 ^COUTIL8 024B CLEARFOREGROUND: FORMAT _ !ADDED 11/11/2005 !!
2922 ^COUTIL8 024B (CF) !!
10000 %WW-ZM 024F ! ========== CRT FORMATS ========== !!
10100 %WW-ZM 024F 3000 FORMAT _ !!
10200 %WW-ZM 024F (SSB);(BF),@(0,1);'',3;(SB);_ !!
10300 %WW-ZM 0262 'COMPANY CODE',@(3,2);(TM);(TM),@(18,2);(SSB);(BF);(SB);_ !!
10400 %WW-ZM 027D '01 NAME ',@(0,3);(TM);(TM),@(49,3);(SSB);(BF);(SB);_ !!
10500 %WW-ZM 0298 '02 ADDRESS 1 ',@(0,4);(TM);(TM),@(39,4);(SSB);(BF);(SB);_ !!
10600 %WW-ZM 02B3 '03 ADDRESS 2 ',@(0,5);(TM);(TM),@(39,5);(SSB);(BF);(SB);_ !!
10700 %WW-ZM 02CE '04 CITY ',@(0,6);(TM);(TM),@(35,6);(SSB);(BF);(SB);_ !!
10800 %WW-ZM 02E9 '05 STATE ',@(0,7);(TM);(TM),@(16,7);(SSB);(BF);(SB);_ !!
10900 %WW-ZM 0304 '06 ZIP ',@(0,8);(TM);(TM),@(24,8);(SSB);(BF);(SB);_ !!
11000 %WW-ZM 031F '07 PHONE # ',@(0,9);(TM);(TM),@(26,9);(SB);_ !!
11100 %WW-ZM 0334 'FAX #';(TM);(TM),@(45,9);(SSB);(BF);(SF) !!
11200 %WW-ZM 034C !!!!! '09 SALES YTD ',@(0,11);(TM);(RJ);(TM),@(27,11);(SSB);(BF);(SB);_ !!
11300 %WW-ZM 034C !!!!! '10 SLS PRV YR',@(0,12);(TM);(RJ);(TM),@(27,12);(SSB);(BF);(SB);_ !!
11350 %WW-ZM 034C !!!!! '11 COMM MTD ',@(0,13);(TM);(RJ);(TM),@(27,13);(SSB);(BF);(SB);_ !!
11400 %WW-ZM 034C !!!!! '12 COMM YTD ',@(0,14);(TM);(RJ);(TM),@(27,14);(SSB);(BF);(SB);_ !!
11500 %WW-ZM 034C !!!!! '13 COMM PR YR',@(0,15);(TM);(RJ);(TM),@(27,15);(SSB);(BF) !!
11600 %WW-ZM 034C ! !!
12000 %WW-ZM 034C 3100 FORMAT _ !!
12100 %WW-ZM 034C ZZCO$,@(16,2);_ !!
12200 %WW-ZM 0354 ZNAME$,@(14,3);_ !!
12300 %WW-ZM 035C ZADR1$,@(14,4);_ !!
12400 %WW-ZM 0364 ZADR2$,@(14,5);_ !!
12500 %WW-ZM 036C ZCITY$,@(14,6);_ !!
12600 %WW-ZM 0374 ZSTATE$,@(14,7);_ !!
12700 %WW-ZM 037C ZZIP$,@(14,8);_ !!
12800 %WW-ZM 0384 ZPHONE$,@(14,9);_ !!
12900 %WW-ZM 038C ZFAXNO$,@(33,9);(SF) !!
13000 %WW-ZM 0398 !!!!! SSLSYTD,@(15,11);_ !!
13100 %WW-ZM 0398 !!!!! SSLSPRV,@(15,12);_ !!
13200 %WW-ZM 0398 !!!!! SCOMMMTD,@(15,13);_ !!
13300 %WW-ZM 0398 !!!!! SCOMMYTD,@(15,14);_ !!
13400 %WW-ZM 0398 !!!!! SCOMMPRV,@(15,15);(SF) !!
13500 %WW-ZM 0398 ! !!
13600 %WW-ZM 0398 3200 FORMAT _ !!
13700 %WW-ZM 0398 (CF);@(16,2) !!
13800 %WW-ZM 03A1 ! !!
13900 %WW-ZM 03A1 3280 FORMAT _ !!
14000 %WW-ZM 03A1 @(0,2);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);_ !!
14100 %WW-ZM 03C1 (BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);_ !!
14200 %WW-ZM 03DC (BF);(BF);(BF);(SF) !!
14300 %WW-ZM 03E9 ! !!
15000 %WW-ZM 03E9 3300 FORMAT _ !!
15020 %WW-ZM 03E9 (SSB);(BF),@(0,1);(SB);@(79,1);(TP);_ !!
15100 %WW-ZM 03FE @(0,02);'ENTER PRINTER NAME (LPX) ';_ !!
15120 %WW-ZM 0407 (SSB);' ';(SF);ZLP$;(SSB);' ';(SB);_ !!
15130 %WW-ZM 041F 'REMOTE SITES ( /1)';(RJ);(SF);ZREMOTE;(SSB);(BF);(SB);_ !!
15200 %WW-ZM 0437 @(0,03);'CNL DEFAULT (D/S) ';_ !!
15220 %WW-ZM 0440 (SSB);' ';(SF);ZCNLDISP$;(SSB);' ';(SB);_ !!
15230 %WW-ZM 0458 'DIR FOR 2ND #FILES';(SSB);' ';(SF);ZDICTDIR$;(SSB);_ !!
15240 %WW-ZM 046D (BF);(SB);_ !!
15300 %WW-ZM 0473 @(0,04);'ENTER DISC NAME ';_ !!
15320 %WW-ZM 047C (SSB);' ';(SF);ZFXD$;(SSB);' ';(SB);_ !!
15330 %WW-ZM 0494 'MAX UPS WGHT/PKG';(RJ);(SF);ZMAXUPS;(SSB);(BF);(SB);_ !!
15400 %WW-ZM 04AC @(0,05);'ENTER COMPANY ID ';_ !!
15420 %WW-ZM 04B5 (SSB);' ';(SF);ZCOID$;(SSB);' ';(SB);_ !!
15430 %WW-ZM 04CD 'PO FRT TRM';(SSB);' ';(SF);ZFRTTRM$;(SB);(SSB);(BF);(SB);_ !!
15520 %WW-ZM 04EB @(0,06);'KE BATCH ( /N) ';_ !!
15530 %WW-ZM 04F4 (SSB);' ';(SF);ZKEBAT$;(SSB);(BF);(SB);_ !!
15600 %WW-ZM 050B @(0,07);'ENTER OE CFA DEFAULT (Y/ ) ';_ !!
15620 %WW-ZM 0514 (SSB);' ';(SF);ZCFAFLOE$;(SSB);' ';(SB);_ !!
15630 %WW-ZM 052C 'FRT CALC (Y=YD, L=LB)';(SSB);' ';(SF);ZFRTYDLB$;_ !!
15640 %WW-ZM 053E (SSB);(BF);(SB);_ !!
15700 %WW-ZM 0547 @(0,08);'ENTER WAREHOUSE LOCATION CODE ';_ !!
15720 %WW-ZM 0550 (SSB);' ';(SF);ZLOC$;(SSB);' ';(SB);_ !!
15739 %WW-ZM 0568 'EDR PROCESSING? (Y/ )';(SSB);' ';(SF);ZEDRFLG$;_ !!
15749 %WW-ZM 057A (SSB);(BF);(SB);_ !!
15800 %WW-ZM 0583 @(0,09);'BACKGROUND PARTITION FOR MEMO PRINT ';_ !!
15820 %WW-ZM 058C (SSB);' ';(SF);ZPARTMEM$;(SSB);' ';(SB);_ !!
15830 %WW-ZM 05A4 'CUT YARDAGE PROGRAM?';(SSB);' ';(SF);ZCUTYRD$;_ !!
15834 %WW-ZM 05B6 (SSB);(BF);(SB);_ !!
15840 %WW-ZM 05BF @(0,10);'ENTER QC LOT FLAG ( /P/L/N) ';_ !!
15860 %WW-ZM 05C8 (SSB);' ';(SF);ZQCLOT$;(SSB);' ';(SB);_ !!
15870 %WW-ZM 05E0 'DEFAULT SHIP VIA ';(SSB);' ';(SF);ZSHPVIA$;_ !!
15872 %WW-ZM 05F2 (SSB);(BF);(SF) !!
15874 %WW-ZM 05FC ! !!
15880 %WW-ZM 05FC ! !!
15900 %WW-ZM 05FC 3320 FORMAT @(0,11);(SB);_ !!
16000 %WW-ZM 0604 @(0,11);'ENTER ADDITIONAL PACKING CHARGE ';_ !!
16100 %WW-ZM 060D (SSB);' ';(SF);(RJ);ZPCKCHG;(SSB);' ';(SB);_ !!
16110 %WW-ZM 0629 'FURNITURE EVENT';(SSB);' ';(SF);ZFEVENT$;(SSB);(BF);(SB);_ !!
16200 %WW-ZM 0644 @(0,12);'ENTER "%" FOR PERCENT OR "A" FOR AMOUNT ';_ !!
16300 %WW-ZM 064D (SSB);' ';(SF);ZPCKFLG$;(SSB);' ';(SB);_ !!
16320 %WW-ZM 0665 'AUDIT A/R FILE?';(SSB);' ';(SF);ZARAUDT$;(SSB);' ';(SB);_ !!
16330 %WW-ZM 0681 'INV FILE?';(SSB);' ';(SF);ZINVAUDT$;(SSB);(BF);(SB);_ !!
16400 %WW-ZM 069C @(0,13);'ENTER MINIMUM PACKING CHARGE PER ORDER ';_ !!
16500 %WW-ZM 06A5 (SSB);' ';(SF);(RJ);ZFRTMIN;(SSB);' ';(SB);_ !!
16510 %WW-ZM 06C1 'ROUND FREIGHT? ';(SSB);' ';(SF);ZRNDFRT$;(SSB);(BF);(SB);_ !!
16600 %WW-ZM 06DC @(0,14);'ENTER ADDITIONAL LEAD TIME DAYS ';_ !!
16700 %WW-ZM 06E5 (SSB);' ';(SF);(RJ);ZDELDYO;(SSB);' ';(SB);_ !!
16710 %WW-ZM 0701 'UPDATE CUST FL?';(SSB);' ';(SF);ZUPDC1A$;(SSB);(BF);(SB);_ !!
16800 %WW-ZM 071C @(0,15);'ENTER MONTH THAT STARTS YOUR FISCAL YEAR';_ !!
16900 %WW-ZM 0725 (SSB);' ';(SF);(RJ);ZFMM;(SSB);' ';(SB);_ !!
16910 %WW-ZM 0741 'FURNITURE ACCT?';(SSB);' ';(SF);ZFURNACT$;(SSB);(BF);(SB);_ !!
17000 %WW-ZM 075C @(0,16);'FAIL CREDIT IF LAST SALE > XXX MONTHS ';_ !!
17100 %WW-ZM 0765 (SSB);' ';(SF);(RJ);ZMOCRED;(SSB);' ';(SB);_ !!
17110 %WW-ZM 0781 'OTBC CK 5 HLDS?';(SSB);' ';(SF);ZOTBCFLG$;(SSB);(BF);(SF) !!
17160 %WW-ZM 079D ! !!
17170 %WW-ZM 079D 3340 FORMAT (SB);_ !!
17200 %WW-ZM 07A0 @(0,17);'FAIL CREDIT IF A/R BAL XXX DAYS PAST DUE';_ !!
17220 %WW-ZM 07A9 (SSB);' ';(SF);(RJ);ZPASTDUE;(SSB);' ';(SB);_ !!
17225 %WW-ZM 07C5 'DOC IMG SCAN? ';(SSB);' ';(SF);ZDISCAN$;(SSB);(BF);(SB);_ !!
17240 %WW-ZM 07E0 @(0,18);'ENTER OE FOB SITE ';_ !!
17260 %WW-ZM 07E9 (SSB);' ';(SF);ZFOBOE$;(SSB);' ';(SB);_ !!
17265 %WW-ZM 0801 'DOC IMG EMAIL?';(SSB);' ';(SF);ZDIEML$;(SSB);(BF);(SB);_ !!
17280 %WW-ZM 081C @(0,19);'LOT/PIECE DISPLAY PREFERENCE (Detl/Smry)';_ !!
17300 %WW-ZM 0825 (SSB);' ';(SF);ZLPDSPLY$;(SSB);' ';(SB);_ !!
17305 %WW-ZM 083D 'DOC IMG B/C? ';(SSB);' ';(SF);ZDIBC$;(SSB);(BF);(SB);_ !!
17320 %WW-ZM 0858 @(0,20);'CREDIT CHECK LIMIT ON PAYMENTS ';_ !!
17340 %WW-ZM 0861 (SSB);' ';(SF);(RJ);ZPAYLIM,6;(SSB);' ';(SB);_ !!
17345 %WW-ZM 087F 'B/C PRINTER ';(SSB);' ';(SF);ZDIBCLPT$;(SSB);(BF);(SB);_ !!
17360 %WW-ZM 089A @(0,21);'INCLUDE OPEN ORDER AMT IN CR LIM CHECK? ';_ !!
17380 %WW-ZM 08A3 (SSB);' ';(SF);ZORDLIM$;(SSB);' ';(SB);_ !!
17384 %WW-ZM 08BB 'CNL PHONE 7? ';(SSB);' ';(SF);ZCNL7$;(SSB);(BF);(SB);_ !!
17400 %WW-ZM 08D6 @(0,22);'INVENTORY AT MULTIPLE WAREHOUSES? ';_ !!
17420 %WW-ZM 08DF (SSB);' ';(SF);ZMULTIWH$;(SSB);' ';(SB);_ !!
17440 %WW-ZM 08F7 'BRKR FLAG P/U?';(SSB);' ';(SF);ZBRKFLG$;(TP);@(0,2) !!
17600 %WW-ZM 0912 ! !!
17700 %WW-ZM 0912 ! !!
17800 %WW-ZM 0912 3400 FORMAT (SF);_ !INPUT DATA !!
17900 %WW-ZM 0915 ZLP$;ZREMOTE;ZCNLDISP$;ZDICTDIR$;ZFXD$;ZMAXUPS;_ !!
17910 %WW-ZM 092F ZCOID$;ZFRTTRM$;ZKEBAT$;_ !!
18000 %WW-ZM 093B ZCFAFLOE$;ZFRTYDLB$;ZLOC$;ZEDRFLG$;_ !!
18020 %WW-ZM 094B ZPARTMEM$;ZCUTYRD$;ZQCLOT$;ZSHPVIA$;_ !!
18100 %WW-ZM 095B ZPCKCHG;ZFEVENT$;ZPCKFLG$;ZARAUDT$;ZINVAUDT$;ZFRTMIN;_ !!
18110 %WW-ZM 0975 ZRNDFRT$;ZDELDYO;ZUPDC1A$;_ !!
18200 %WW-ZM 0982 ZFMM;ZFURNACT$;ZMOCRED;ZOTBCFLG$;ZPASTDUE;ZDISCAN$;_ !!
18205 %WW-ZM 099D ZFOBOE$;ZDIEML$;ZLPDSPLY$;ZDIBC$;_ !!
18220 %WW-ZM 09AD ZPAYLIM,6;ZDIBCLPT$;ZORDLIM$;ZCNL7$;ZMULTIWH$;ZBRKFLG$ !!
18300 %WW-ZM 09C9 ! !!
18400 %WW-ZM 09C9 3500 FORMAT_ !!
18500 %WW-ZM 09C9 @(0,10);(BF);(BF);(BF);(BF);_ !!
18600 %WW-ZM 09DA @(0,11);UNIQUE$;_ !!
18700 %WW-ZM 09E3 @(79,10);(SB);(TM);@(0,14);(TM);(BF);_ !!
18800 %WW-ZM 09F9 @(0,10);'ENTER UNIQUE PROGRAMS, USE "]" AS A SEPARATOR';@(0,11) !!
18810 %WW-ZM 0A08 ! !!
18820 %WW-ZM 0A08 3510 FORMAT _ !!
18830 %WW-ZM 0A08 (SB);'OM - SKIP CHECK ON CREDIT LIMIT IF CHANGE ',@(0,2);_ !!
18840 %WW-ZM 0A13 'IN ORDER VALUE IS LESS THAN',@(42,2);(TP);(RJ);(SF);_ !!
18850 %WW-ZM 0A24 ZCLAMT,5;(SSB);(BF);_ !!
18860 %WW-ZM 0A31 (SB);'OM - SKIP CHECK ON PAST DUE A/R IF ORDER ',@(0,3);_ !!
18870 %WW-ZM 0A3C 'WAS ENTERED IN PAST XXX DAYS',@(41,3);(RJ);(SF);_ !!
18880 %WW-ZM 0A4A ZPDDYS,4;(TM);(SSB);(BF);@(0,2) !!
18890 %WW-ZM 0A60 ! !!
18900 %WW-ZM 0A60 3520 FORMAT _ !!
18910 %WW-ZM 0A60 ZCLAMT,5;ZPDDYS,4 !!
18920 %WW-ZM 0A6F ! !!
18930 %WW-ZM 0A6F 3530 FORMAT _ !!
18940 %WW-ZM 0A6F (SB);'ENTER FULL PATH TO GRAPHICS FILE DIRECTORY',@(0,16);(BF);_ !!
18950 %WW-ZM 0A7D (TP),@(79,16);(SF);GraphicsFolder$,80,@(0,17);_ !!
18960 %WW-ZM 0A91 (SB);'ENTER DEFAULT GRAPHICS EXTENSION',@(0,18);(SSB);' ';_ !!
18970 %WW-ZM 0AA3 (SF);DefaultFileExt$;(TP);@(0,17) !!
18980 %WW-ZM 0AB3 ! !!
18990 %WW-ZM 0AB3 3540 FORMAT _ !!
19000 %WW-ZM 0AB3 @(0,15);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(SF) !!
19010 %WW-ZM 0AD4 ! !!
19020 %WW-ZM 0AD4 3550 FORMAT _ !!
19030 %WW-ZM 0AD4 GraphicsFolder$,80;DefaultFileExt$ !!
19040 %WW-ZM 0ADF ! !!
19090 %WW-ZM 0ADF 3560 FORMAT _ !!
19100 %WW-ZM 0ADF (SB);'EMAIL PARAMETER FILE NAME',@(0,16);(TP);(SF);_ !!
19102 %WW-ZM 0AF0 ZEMLPARM$;(TM);_ !!
19104 %WW-ZM 0AF7 (SB);"SALES EMAIL NAME ",@(0,17);(TP);(SF);_ !!
19108 %WW-ZM 0B08 ZEMLNAME$;(TM);_ !!
19112 %WW-ZM 0B0F (SB);'SALES EMAIL ADDRESS ',@(0,18);(TP);(SF);_ !!
19116 %WW-ZM 0B20 ZEMLADDR$;(TM);_ !!
19120 %WW-ZM 0B27 (SB);"P/O EMAIL NAME ",@(0,19);(TP);(SF);_ !!
19124 %WW-ZM 0B38 ZPOEMLNM$;(TM);_ !!
19128 %WW-ZM 0B3F (SB);'P/O EMAIL ADDRESS ',@(0,20);(TP);(SF);_ !!
19132 %WW-ZM 0B50 ZPOEMLAD$;(TM);@(0,16) !!
19144 %WW-ZM 0B5D ! !!
19150 %WW-ZM 0B5D 3570 FORMAT _ !!
19160 %WW-ZM 0B5D ZEMLPARM$,@(26,16);ZEMLNAME$,@(26,17);_ !!
19170 %WW-ZM 0B6D ZEMLADDR$,@(26,18);ZPOEMLNM$,@(26,19);ZPOEMLAD$,@(26,20);(SF) !!
19180 %WW-ZM 0B89 ! !!
19190 %WW-ZM 0B89 3580 FORMAT _ !!
19200 %WW-ZM 0B89 (SB);'ENTER URL TO DOCUMENT IMAGING FOLDER',@(0,16);(BF);_ !!
19210 %WW-ZM 0B97 (TP),@(79,16);(SF);DocImageURL$,80,@(0,17);_ !!
19230 %WW-ZM 0BAB (TP);@(0,17) !!
19240 %WW-ZM 0BB4 ! !!
19280 %WW-ZM 0BB4 3590 FORMAT _ !!
19290 %WW-ZM 0BB4 DocImageURL$,80 !!
19300 %WW-ZM 0BBB ! !!
19310 %WW-ZM 0BBB 3600 FORMAT _ !!
19320 %WW-ZM 0BBB (SB);'ENTER PDF PRINTER FOR DOC IMAGING',@(0,15);(TP);_ !!
19330 %WW-ZM 0BC9 (SF);ZLPPDFPRINTER$;(SSB);(BF);_ !!
19340 %WW-ZM 0BD6 (SB);'ENTER PDF PRINTER FOR EMAILING ',@(0,16);(SSB);' ';_ !!
19350 %WW-ZM 0BE8 (SF);ZLPPDFEMAIL$;(SSB);(BF);_ !!
19354 %WW-ZM 0BF5 (SB);'ENTER PDF PRINTER IN DISPLAY MODE',@(0,17);(SSB);' ';_ !!
19358 %WW-ZM 0C07 (SF);ZLPPDFDISPLAY$;(SSB);(BF);_ !!
19360 %WW-ZM 0C14 (SB);'ENTER PDF IMAGE ORDER DIRECTORY ',@(0,18);(SSB);' ';_ !!
19370 %WW-ZM 0C26 (SF);ZDIRPDFO$;(SSB);(BF);_ !!
19380 %WW-ZM 0C33 (SB);'ENTER PDF IMAGE P.O. DIRECTORY ',@(0,19);(SSB);' ';_ !!
19390 %WW-ZM 0C45 (SF);ZDIRPDFP$;(SSB);(BF);_ !!
19400 %WW-ZM 0C52 (SB);'ENTER PDF IMAGE SAMPLE DIRECTORY ',@(0,20);(SSB);' ';_ !!
19410 %WW-ZM 0C64 (SF);ZDIRPDFS$;(SSB);(BF);_ !!
19420 %WW-ZM 0C71 (SB);'ENTER PDF IMAGE STMNT DIRECTORY ',@(0,21);(SSB);' ';_ !!
19430 %WW-ZM 0C83 (SF);ZDIRPDFR$;(SSB);(BF);_ !!
19440 %WW-ZM 0C90 (SB);'ENTER PDF MGMT REPORT DIRECTORY ',@(0,22);(SSB);' ';_ !!
19450 %WW-ZM 0CA2 (SF);ZDIRPDFMR$;(TP);(SSB);(BF);@(0,15) !!
19460 %WW-ZM 0CB8 ! !!
19600 %WW-ZM 0CB8 3610 FORMAT _ !!
19610 %WW-ZM 0CB8 ZLPPDFPRINTER$;ZLPPDFEMAIL$;ZLPPDFDISPLAY$;_ !!
19620 %WW-ZM 0CC4 ZDIRPDFO$;_ !!
19630 %WW-ZM 0CC8 ZDIRPDFP$;_ !!
19640 %WW-ZM 0CCC ZDIRPDFS$;_ !!
19650 %WW-ZM 0CD0 ZDIRPDFR$;_ !!
19660 %WW-ZM 0CD4 ZDIRPDFMR$ !!
19900 %WW-ZM 0CD9 ! !!
20000 %WW-ZM 0CD9 ! ========== OPEN FILES ========== !!
20100 %WW-ZM 0CD9 CLEAR !!
20120 %WW-ZM 000A CLOSE & OPEN (0) TERM$ !!
20200 %WW-ZM 0010 OPEN (Z1) 'Z1' !!
20300 %WW-ZM 0015 ! !!
20400 %WW-ZM 0015 SCREEN$ = '1' !!
20410 %WW-ZM 001B ! !!
50000 %WW-ZM 001B ! ========== BEGIN PROCESSING ========== !!
50100 %WW-ZM 001B STITLE$ = 'COMPANY MAINTENANCE' !!
50120 %WW-ZM 0021 TTLPOS = 40 - LEN(STITLE$) / 2 !!
50140 %WW-ZM 003A PRINT(0,120) & PRINT (0,100) & PRINT (0,110) !!
50160 %WW-ZM 0049 PRINT (0,3000) !!
50200 %WW-ZM 004E 5000 PRINT (0,3200) !!
50300 %WW-ZM 0053 INPUT (0) ZZCO$ !!
50310 %WW-ZM 005B ZZCO$ = UCASE(ZZCO$) !!
50400 %WW-ZM 0064 IF ZZCO$ = '' OR ZZCO$ = 'EN' GOTO 9900 !!
50500 %WW-ZM 0077 EXTRACT (Z1,0990)KEY='*'+ZZCO$,EXCP=5200 !!
50600 %WW-ZM 0087 5020 PRINT (0,3100) !FOREGROUND !!
50700 %WW-ZM 008C ! !!
50800 %WW-ZM 008C 5100 MESS$ = 'MODIFY LINE #, Graphics, eMail, Doc-img, Pdfs or END:' !!
50900 %WW-ZM 0092 GOSUB 9000 !!
50910 %WW-ZM 0095 AN$ = UCASE(AN$) !!
51000 %WW-ZM 009E IF AN$ EQ '' OR AN$ EQ 'E' OR AN$ EQ 'END' _ !!
51005 %WW-ZM 00AE GOSUB 8000 & GOTO 5000 !!
51020 %WW-ZM 00BC IF AN$ EQ '*' _ !!
51100 %WW-ZM 00BC GOSUB 8400 & GOTO 5100 !!
51120 %WW-ZM 00CA IF AN$ EQ 'G' OR AN$ EQ 'GRAPHICS' _ !!
51140 %WW-ZM 00D2 GOSUB 7000 & GOTO 5100 !!
51150 %WW-ZM 00E0 IF AN$ EQ 'M' OR AN$ EQ 'EMAIL' _ !!
51160 %WW-ZM 00E8 GOSUB 7100 & GOTO 5100 !!
51170 %WW-ZM 00F6 IF AN$ EQ 'D' OR AN$ EQ 'DOC-IMG' _ !!
51180 %WW-ZM 00FE GOSUB 7040 & GOTO 5100 !!
51185 %WW-ZM 010C IF AN$ EQ 'P' OR AN$ EQ 'PDFS' _ !!
51190 %WW-ZM 0114 GOSUB 7080 & GOTO 5100 !!
51200 %WW-ZM 0122 FLDNBR = NUM(AN$,ERR) !!
51300 %WW-ZM 012F IF FLDNBR < 1 OR FLDNBR > 7 GOTO 5100 !!
51400 %WW-ZM 0148 GOSUB 6000 !!
51500 %WW-ZM 014B PRINT (0,3100) !ECHO INPUT !!
51600 %WW-ZM 0150 GOTO 5100 !!
51620 %WW-ZM 0153 5120 IF EXCP = 33 AGAIN !!
51640 %WW-ZM 015F GOTO 5100 !!
51700 %WW-ZM 0162 ! !!
51800 %WW-ZM 0162 5200 FOR FLDNBR = 1 TO 7 !!
51900 %WW-ZM 0175 GOSUB 6000 !!
52000 %WW-ZM 0178 IF FLDNBR = 1 AND ZNAME$ = '' GOTO 5000 !!
52100 %WW-ZM 018E NEXT FLDNBR !!
52200 %WW-ZM 019D PRINT (0,3100) !ECHO INPUT !!
52300 %WW-ZM 01A2 GOTO 5100 !!
52400 %WW-ZM 01A5 ! !!
60000 %WW-ZM 01A5 ! ========== INPUT SUBROUTINE ========== !!
60100 %WW-ZM 01A5 6000 POS = 0 !!
60200 %WW-ZM 01AD LINE = FLDNBR + 2 !!
60300 %WW-ZM 01B9 !!!! IF FLDNBR > 21 POS = 51 & LINE = FLDNBR - 19 !!
60400 %WW-ZM 01B9 PRINT (0, 95) !!
60500 %WW-ZM 01BE ON FLDNBR GOTO 6980,6980,_ !!
60600 %WW-ZM 01C9 6020,6040,6060,6080,6100,_ !!
60700 %WW-ZM 01D3 6120,6140, _ 6160,6180,6200,_ !!
60800 %WW-ZM 01D7 6980 ! 6220,6240,6260,6280,6300,_ !!
61400 %WW-ZM 01D9 ! !!
61500 %WW-ZM 01D9 6020 INPUT (0) ZNAME$ !!
61520 %WW-ZM 01E1 ZNAME25$ = ZNAME$ !!
61600 %WW-ZM 01E7 RETURN !!
61700 %WW-ZM 01E8 ! !!
61800 %WW-ZM 01E8 6040 INPUT (0) ZADR1$ !!
61900 %WW-ZM 01F0 RETURN !!
62000 %WW-ZM 01F1 ! !!
62100 %WW-ZM 01F1 6060 INPUT (0) ZADR2$ !!
62200 %WW-ZM 01F9 RETURN !!
62300 %WW-ZM 01FA ! !!
62400 %WW-ZM 01FA 6080 INPUT (0) ZCITY$ !!
62500 %WW-ZM 0202 RETURN !!
62600 %WW-ZM 0203 ! !!
62700 %WW-ZM 0203 6100 INPUT (0) ZSTATE$ !!
62800 %WW-ZM 020B RETURN !!
62900 %WW-ZM 020C ! !!
63000 %WW-ZM 020C 6120 INPUT (0) ZZIP$ !!
63020 %WW-ZM 0214 !!!! ZIP = NUM(ZZIP$,ERR) !!
63040 %WW-ZM 0214 !!!! IF ERR = 1 OR LEN(ZZIP$) NE 5 PRINT (0, 95) & GOTO 6120 !!
63060 %WW-ZM 0214 !!!! IF LEN(ZZIP$) NE 10 PRINT (0, 95) & GOTO 6120 !!
63100 %WW-ZM 0214 RETURN !!
63200 %WW-ZM 0215 ! !!
63300 %WW-ZM 0215 6140 INPUT (0) ZPHONE$ !!
63320 %WW-ZM 021D INPUT (0) ZFAXNO$ !!
63400 %WW-ZM 0225 RETURN !!
63500 %WW-ZM 0226 ! !!
69800 %WW-ZM 0226 6980 RETURN !!
70000 %WW-ZM 0227 ! ========== MAINTAIN GRAPHICS FILE PATH ========== !!
70010 %WW-ZM 0227 ! !!
70020 %WW-ZM 0227 7000 ! !!
70030 %WW-ZM 0227 GraphicsFolder$ = '' !!
70040 %WW-ZM 022D DefaultFileExt$ = '' !!
70050 %WW-ZM 0233 READ (Z1,0004)KEY='*GraphicsFolder',EXCP=7006 !!
70060 %WW-ZM 023D 7006 ! !!
70070 %WW-ZM 023D PRINT (0,3530) !!
70080 %WW-ZM 0242 INPUT (0,3550) !!
70090 %WW-ZM 0247 GraphicsFolder$ = STRIP(GraphicsFolder$) !!
70110 %WW-ZM 0250 AN = LEN(GraphicsFolder$) !!
70120 %WW-ZM 0257 AN$ = SUB(GraphicsFolder$,AN,1) !!
70130 %WW-ZM 0268 IF AN$ NE '\' _ !!
70140 %WW-ZM 0268 GraphicsFolder$ = STRIP(GraphicsFolder$) + '\' !!
70160 %WW-ZM 027E ! !!
70200 %WW-ZM 027E 7020 MESS$ = 'IS THE GRAPHICS FILE INFO CORRECT? (Yes/No/End)' !!
70210 %WW-ZM 0284 GOSUB 9000 & AN$ = UCASE(AN$) !!
70220 %WW-ZM 0290 IF AN$ EQ 'E' OR AN$ EQ 'END' GOTO 7026 !!
70230 %WW-ZM 02A3 IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7006 !!
70240 %WW-ZM 02B6 IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7020 !!
70250 %WW-ZM 02C9 WRITE (Z1,0004)KEY='*GraphicsFolder' !!
70260 %WW-ZM 02D1 ! !!
70270 %WW-ZM 02D1 7026 PRINT (0,3540) !!
70280 %WW-ZM 02D6 RETURN !!
70290 %WW-ZM 02D7 ! !!
70390 %WW-ZM 02D7 ! !!
70400 %WW-ZM 02D7 ! ========== MAINTAIN DOC IMAGE FILE PATH ========== !!
70410 %WW-ZM 02D7 ! !!
70420 %WW-ZM 02D7 7040 ! !!
70430 %WW-ZM 02D7 DocImageURL$ = '' !!
70440 %WW-ZM 02DD !!!! DefaultFileExt$ = '' !!
70450 %WW-ZM 02DD READ (Z1,0008)KEY='*DocImageURL',EXCP=7046 !!
70460 %WW-ZM 02E7 7046 ! !!
70470 %WW-ZM 02E7 PRINT (0,3580) !!
70480 %WW-ZM 02EC INPUT (0,3590) !!
70490 %WW-ZM 02F1 DocImageURL$ = STRIP(DocImageURL$) !!
70500 %WW-ZM 02FA AN = LEN(DocImageURL$) !!
70510 %WW-ZM 0301 AN$ = SUB(DocImageURL$,AN,1) !!
70520 %WW-ZM 0312 IF AN$ NE '/' _ !!
70530 %WW-ZM 0312 DocImageURL$ = STRIP(DocImageURL$) + '/' !!
70540 %WW-ZM 0328 ! !!
70550 %WW-ZM 0328 7060 MESS$ = 'IS THE DOC-IMAGE URL INFO CORRECT? (Yes/No/End)' !!
70560 %WW-ZM 032E GOSUB 9000 & AN$ = UCASE(AN$) !!
70570 %WW-ZM 033A IF AN$ EQ 'E' OR AN$ EQ 'END' GOTO 7066 !!
70580 %WW-ZM 034D IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7046 !!
70590 %WW-ZM 0360 IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7040 !!
70600 %WW-ZM 0373 WRITE (Z1,0008)KEY='*DocImageURL' !!
70610 %WW-ZM 037B ! !!
70620 %WW-ZM 037B 7066 PRINT (0,3540) !!
70630 %WW-ZM 0380 RETURN !!
70640 %WW-ZM 0381 ! !!
70800 %WW-ZM 0381 7080 ! ========== MAINTAIN PDF PRINTER AND DIRECTORY FOR DOC IMAGING ==========!!
70810 %WW-ZM 0381 ! !!
70820 %WW-ZM 0381 ZDIRPDFO$='' & ZLPPDFPRINTER$='' !!
70822 %WW-ZM 038D ZDIRPDFP$ = '' & ZDIRPDFS$ = '' & ZDIRPDFR$ = '' & ZDIRPDFMR$ = '' !!
70830 %WW-ZM 03A5 READ (Z1,Z1PDF)KEY='*PDFIMAGE',EXCP=7086 !!
70835 %WW-ZM 03AF 7086 ! !!
70840 %WW-ZM 03AF PRINT (0,3600) !!
70845 %WW-ZM 03B4 INPUT (0,3610) !!
70875 %WW-ZM 03B9 ! !!
70880 %WW-ZM 03B9 7087 MESS$ = 'IS PDF IMAGE INFO CORRECT? (Yes/No/End)' !!
70885 %WW-ZM 03BF GOSUB 9000 & AN$ = UCASE(AN$) !!
70890 %WW-ZM 03CB IF AN$ EQ 'E' OR AN$ EQ 'END' GOTO 7090 !!
70895 %WW-ZM 03DE IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7086 !!
70900 %WW-ZM 03F1 IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7087 !!
70905 %WW-ZM 0404 WRITE (Z1,Z1PDF)KEY='*PDFIMAGE' !!
70910 %WW-ZM 040C ! !!
70915 %WW-ZM 040C 7090 PRINT (0,3540) !!
70920 %WW-ZM 0411 RETURN !!
70925 %WW-ZM 0412 ! !!
71000 %WW-ZM 0412 ! ========== MAINTAIN COMPANY EMAIL INFO ========== !!
71020 %WW-ZM 0412 7100 ! !!
71030 %WW-ZM 0412 ZEMLPARM$ = '' & ZEMLNAME$ = '' !!
71040 %WW-ZM 041E ZEMLADDR$ = '' !!
71050 %WW-ZM 0424 READ (Z1,0006)KEY='*CompanyEmail',EXCP=7106 !!
71060 %WW-ZM 042E 7106 ! !!
71064 %WW-ZM 042E PRINT (0,3560) !!
71066 %WW-ZM 0433 INPUT (0) ZEMLPARM$ !!
71068 %WW-ZM 043B POS = 0 & LINE = 17 & PRINT (0, 95) !!
71070 %WW-ZM 0450 INPUT (0) ZEMLNAME$ !!
71072 %WW-ZM 0458 LINE = 18 & PRINT (0, 95) !!
71074 %WW-ZM 0465 INPUT (0) ZEMLADDR$ !!
71078 %WW-ZM 046D LINE = 19 & PRINT (0, 95) !!
71082 %WW-ZM 047A INPUT (0) ZPOEMLNM$ !!
71086 %WW-ZM 0482 LINE = 20 & PRINT (0, 95) !!
71090 %WW-ZM 048F INPUT (0) ZPOEMLAD$ !!
71096 %WW-ZM 0497 ! !!
71100 %WW-ZM 0497 7110 MESS$ = 'IS THE COMPANY EMAIL INFO CORRECT? (Yes/No/End)' !!
71110 %WW-ZM 049D GOSUB 9000 & AN$ = UCASE(AN$) !!
71120 %WW-ZM 04A9 IF AN$ EQ 'E' OR AN$ EQ 'END' GOTO 7116 !!
71130 %WW-ZM 04BC IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7106 !!
71140 %WW-ZM 04CF IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7110 !!
71150 %WW-ZM 04E2 WRITE (Z1,0006)KEY='*CompanyEmail' !!
71160 %WW-ZM 04EA ! !!
71170 %WW-ZM 04EA 7116 PRINT (0,3540) !!
71180 %WW-ZM 04EF RETURN !!
71190 %WW-ZM 04F0 ! !!
80000 %WW-ZM 04F0 ! ========== WRITE MASTER RECORD ========== !!
80100 %WW-ZM 04F0 8000 WRITE (Z1,0990)KEY='*'+ZZCO$ !WRITE MASTER !!
80200 %WW-ZM 04FE RETURN !!
80300 %WW-ZM 04FF ! !!
84000 %WW-ZM 04FF ! ========== INPUT PRINTER NAME, PRINTER TYPE & DISC NAME ========== !!
84100 %WW-ZM 04FF 8400 PRINT (0,3280) & SCREEN$ = '1' !!
84200 %WW-ZM 050A PRINT (0,3300) & PRINT (0,3320) & PRINT (0,3340) !!
84300 %WW-ZM 0519 ! !!
84400 %WW-ZM 0519 8410 INPUT (0,3400) !!
84500 %WW-ZM 051E IF SUB(ZLP$,1,2) NE 'LP'_ !!
84600 %WW-ZM 0529 MESS$ = 'PRINTER NAME MUST BE LPnn' & GOSUB 9050 &_ !!
84700 %WW-ZM 053A POS = 41 & LINE = 02 & PRINT (0,95) & GOTO 8410 !!
84800 %WW-ZM 0552 IF ZCNLDISP$ NE 'D' AND ZCNLDISP$ NE 'S' _ !!
84900 %WW-ZM 055A MESS$ = 'D or S are the options ' & GOSUB 9050 &_ !!
85000 %WW-ZM 056B POS = 41 & LINE = 03 & PRINT (0,95) & GOTO 8410 !!
85100 %WW-ZM 0583 IF LEN(ZFXD$) NE 3 OR ZFXD$ EQ ' '_ !!
85200 %WW-ZM 058D MESS$ = 'DISC NAME CANNOT BE BLANK' & GOSUB 9050 &_ !!
85300 %WW-ZM 059E POS = 41 & LINE = 04 & PRINT (0,95) & GOTO 8410 !!
85400 %WW-ZM 05B6 IF LEN(ZLOC$) NE 3 OR ZLOC$ EQ ' '_ !!
85500 %WW-ZM 05C0 MESS$ = 'WAREHOUSE LOCATION MUST BE ENTERED' & GOSUB 9050 &_ !!
85600 %WW-ZM 05D1 POS = 41 & LINE = 08 & PRINT (0,95) & GOTO 8410 !!
85700 %WW-ZM 05E9 IF ZPARTMEM$ EQ '' OR ZPARTMEM$ EQ ' ' ZPARTMEM$ = 'P99' !!
85800 %WW-ZM 05FF IF ZPARTMEM$ LT 'P01' OR ZPARTMEM$ GT 'P99' _ !!
85900 %WW-ZM 0607 MESS$ = 'BACKGROUND PARTITION (P01 - P99)' & GOSUB 9050 &_ !!
86000 %WW-ZM 0618 POS = 41 & LINE = 09 & PRINT (0,95) & GOTO 8410 !!
86010 %WW-ZM 0630 IF ZFEVENT$ NE 'Y' AND ZFEVENT$ NE ' ' _ !!
86020 %WW-ZM 0638 MESS$='MUST BE "Y" OR BLANK' & GOSUB 9050 &_ !!
86030 %WW-ZM 0649 POS = 65 & LINE = 11 & PRINT(0,95) & GOTO 8410 !!
86100 %WW-ZM 0661 IF ZPCKFLG$ NE 'A' AND ZPCKFLG$ NE '%'_ !!
86200 %WW-ZM 0669 MESS$ = 'MUST BE "%" SIGN OR "A"' & GOSUB 9050 &_ !!
86300 %WW-ZM 067A POS = 41 & LINE = 12 & PRINT (0,95) & GOTO 8410 !!
86310 %WW-ZM 0692 IF ZLPDSPLY$ NE 'D' AND ZLPDSPLY$ NE 'S' _ !!
86320 %WW-ZM 069A MESS$ = "LOT/PIECE PREFERENCE MUST BE 'S' OR 'D'" & _ !!
86330 %WW-ZM 06A8 GOSUB 9050 & POS = 41 & LINE = 19 & PRINT (0, 95) & _ !!
86340 %WW-ZM 06C0 GOTO 8410 !!
86350 %WW-ZM 06C3 IF ZFURNACT$ EQ 'N' ZFURNACT$ = '' !!
86360 %WW-ZM 06D1 IF STRIP(ZFURNACT$) NE '' _ ! FORCE 'Y' OR BLANK !!
86370 %WW-ZM 06D4 ZFURNACT$ = 'Y' !!
86380 %WW-ZM 06E2 IF ZOTBCFLG$ EQ 'N' ZOTBCFLG$ = '' !!
86390 %WW-ZM 06F0 IF STRIP(ZOTBCFLG$) NE '' _ ! FORCE 'Y' OR BLANK !!
86400 %WW-ZM 06F3 ZOTBCFLG$ = 'Y' !!
86490 %WW-ZM 0701 ! !!
86500 %WW-ZM 0701 READ (Z1,0991) KEY=ZCOID$,EXCP=8540 !!
86600 %WW-ZM 070B 8540 MESS$ = 'Modify or ENTER' !!
86610 %WW-ZM 0711 IF ZCOID$ EQ 'IN' THEN !!
86620 %WW-ZM 0719 IF SCREEN$ EQ '1' THEN !!
86630 %WW-ZM 0721 MESS$ = 'Modify/Screen 2/ENTER' !!
86640 %WW-ZM 0727 ELSE !!
86650 %WW-ZM 072A MESS$ = 'Modify/Screen 1/ENTER' !!
86660 %WW-ZM 0730 ENDIF !!
86670 %WW-ZM 0730 ENDIF !!
86700 %WW-ZM 0730 GOSUB 9000 !!
86704 %WW-ZM 0733 IF ZCOID$ EQ 'IN' AND (AN$ EQ 'S' OR AN$ EQ 'SCREEN' OR _ !!
86708 %WW-ZM 074B AN$ EQ '1' OR AN$ EQ '2') THEN !!
86712 %WW-ZM 075B IF SCREEN$ EQ '1' THEN !!
86716 %WW-ZM 0763 SCREEN$ = '2' !!
86720 %WW-ZM 0769 PRINT (0,3280) !!
86724 %WW-ZM 076E PRINT (0,3510) !!
86728 %WW-ZM 0773 INPUT (0,3520) !!
86732 %WW-ZM 0778 GOTO 8540 !!
86736 %WW-ZM 077B ELSE !!
86740 %WW-ZM 077E GOTO 8400 !!
86744 %WW-ZM 0781 ENDIF !!
86752 %WW-ZM 0781 ENDIF !!
86800 %WW-ZM 0781 IF AN$ EQ 'M' THEN !!
86900 %WW-ZM 0789 POS = 41 & LINE = 2 & PRINT (0, 95) !!
86910 %WW-ZM 079E IF ZCOID$ NE 'IN' OR SCREEN$ EQ '1' GOTO 8410 !!
86920 %WW-ZM 07B1 INPUT (0,3520) !!
86930 %WW-ZM 07B6 GOTO 8540 !!
86940 %WW-ZM 07B9 ENDIF !!
87000 %WW-ZM 07B9 IF AN$ NE '' AND AN$ NE 'M' GOTO 8540 !!
87100 %WW-ZM 07CC ! !!
87200 %WW-ZM 07CC PRINT (0,3280) !!
87300 %WW-ZM 07D1 PRINT (0,3000) & PRINT (0,3100) !!
87400 %WW-ZM 07DB PRINT (0,3500) !!
87500 %WW-ZM 07E0 INPUT(0) UNIQUE$ !!
87600 %WW-ZM 07E8 WRITE(Z1,0991) KEY=ZCOID$ !!
87700 %WW-ZM 07F0 ! ========== STRIP LEADING BLANKS ========== !!
87800 %WW-ZM 07F0 8620!!IF ASC(ZNAME$) = 32 ZNAME$ = SUB(ZNAME$,2,LEN(ZNAME$)-1) & GOTO 8620 !!
87900 %WW-ZM 07F0 ! ========== STRIP TRAILING BLANKS ========== !!
88000 %WW-ZM 07F0 8640!!IF SUB(ZNAME$,LEN(ZNAME$),1) = ' ' ZNAME$=SUB(ZNAME$,1,LEN(ZNAME$)-1) & _ !!
88100 %WW-ZM 07F0 !!!! GOTO 8640 !!
88200 %WW-ZM 07F0 !!!! BL$ = SUB(' ',1,12-INT(LEN(ZNAME$)/2.0)) !!
88300 %WW-ZM 07F0 !!!! ZNAME$ = BL$ + ZNAME$ !!
88400 %WW-ZM 07F0 RETURN !!
88500 %WW-ZM 07F1 ! !!
90000 %WW-ZM 07F1 USE '^COMSRT8' !9000 - MESSAGE WRITER !!
100 ^COMSRT8 07F1 9000 !========= MESSAGE WRITING ROUTINE ========= !!
200 ^COMSRT8 07F1 LM = LEN(MESS$) !!
300 ^COMSRT8 07F8 PM = 36 - (LM/2) !!
400 ^COMSRT8 080A PRINT (0, 91) !!
500 ^COMSRT8 080F IF BLIND$ NE 'B' PRINT (0, 90) !!
600 ^COMSRT8 081C IF BLIND$ EQ 'B' PRINT (0, 96) !!
700 ^COMSRT8 0829 INPUT (0) AN$ !!
800 ^COMSRT8 0831 PRINT (0, 91) & BLIND$ = '' !!
900 ^COMSRT8 083C RETURN !!
1000 ^COMSRT8 083D 9050 PRINT (0, 92) !!
1100 ^COMSRT8 0842 GOTO 9000 !!
1200 ^COMSRT8 0845 9060 BLIND$ = 'B' !!
1300 ^COMSRT8 084B GOTO 9000 !!
100000 %WW-ZM 084E 9900 PRINT(0,130) !64 CHAR MODE !!
100010 %WW-ZM 0853 RUNCD$='U' !!
100100 %WW-ZM 0859 RUN 'Z' !!
100200 %WW-ZM 085D END !!
WARNING: Format 3570 Defined At 0B5D, Has no Reference
WARNING: Format CKPRNTR Defined At 0225, Has no Reference
WARNING: Format CKLJCOND Defined At 0237, Has no Reference
WARNING: Format FRMLFFMT Defined At 023C, Has no Reference
WARNING: Format CURSPOSREM Defined At 021D, Has no Reference
WARNING: Format CURSPOSRES Defined At 0221, Has no Reference
WARNING: Format CLEARFOREGROUND Defined At 024B, Has no Reference
WARNING: Statement 5120 Defined At 0153, Has no Reference
WARNING: Statement 9060 Defined At 0845, Has no Reference
Program Memory Requirements
Common 00000009
Local 00001591
Constants 00003158
Formats 00003290
--------
Total 00008048
Code 00002142
Compilation Memory Usage
Available 00065057
Symbol Table 00008519
TOTAL ERRORS 00000
Compile Completed