Showing is type of defect as a percentage of the total quantity of defects - as opposed to the total production - dramatizes the impact of the largest causes of defects.

The RC01 array are the reject or defect counts by cause, the description of each cause is in the message area.

R2673 REJCAUSES << Select >> R2674 RC01 02 - BUMPS R2675 RC02 03 - DENTS R2676 RC03 04 - SCRATCHES R2677 RC04 03P - DENTS FROM POLY R2678 RC05 MD - MATERIAL DEFECTS R2679 RC06 B - DAMAGED FROM MOULD R2680 RC07 SS - SHORT SHOTS R2681 RC08 TD - TRIMMING DEFECTS R2682 RC09 MC - SURFACE CONTAMINATION R2683 RC10 33 - STAMPING DEFECT R2684 RC11 AD - ASSEMBLY DEFECT R2685 RC12 SM - PVC SURFACE NON UNIFORMITY R2686 RC13 GS - GREASE CONTAMINATION/EXCESS GLUE R2687 RC14 FL - FLOW LINES R2688 RC15 TS - TIGER STRIPING R2689 RC16 LC - LOOSE GREEN/BLACK CLIP R2690 RC17 BC - GREEN OR BLACK CLIP BROKEN/FILLED R2691 RC18 NG - SEAL NOT GLUED TO METAL R2692 RC19 QDT - QUALITY GAUGE TEST R2693 RC20 TTS - SET UP PARTS R2694 RC21 FH - EXCESSIVE FLASH ALONG SHINY SURF. R0306 C1 R0307 C2 R0308 C3 R0311 LAST_HR TIME OF LAST UPDATE R0312 LAST_MN R0319 NC R R0320 TOTAL_REJ R0337 AR1 R VALUES FOR PARETO R0338 AR2 R R0339 AR3 R R0340 AR4 R R0341 AR5 R R0342 AR6 R R0343 R0353 MPAR1 R GRAPH HEIGHTS FOR PARETO R0354 MPAR2 R R0355 MPAR3 R R0356 MPAR4 R R0357 MPAR5 R R0358 MPAR6 R R0449 I1 R0450 I2 R0451 I3 R0452 I4 R0453 I5 R0454 I6 R0455 I7 R0456 I8 R0457 I9 R0458 I10 R0459 I11 R0460 I12 R0461 I13 R0462 I14 R0463 I15 R0464 I16 R0465 I17 R0466 I18 R0467 I19 R0468 I20 R0469 I21 R0470 I22 R0471 I23 R0472 I24 R0473 I25 R0474 I26 R0475 I27 R0476 I28 R0477 I29 R0478 I30 R0479 I31 R0480 I32 R0481 T1 R0482 T2 R0483 T3 R0484 T4 R0485 T5 R0486 T6 R0487 T7 R0488 T8 R0489 T9 R0490 T10 R0491 T11 R0492 T12 R0493 T13 R0494 T14 R0495 T15 R0496 T16 R0497 T17 R0498 T18 R0499 T19 R0500 T20 R0501 T21 R0502 T22 R0503 T23 R0504 T24 R0505 T25 R0506 T26 R0507 T27 R0508 T28 R0509 T29 R0510 T30 R0511 T31 R0512 T32 R0513 RPC01 R R0514 RPC02 R R0515 RPC03 R R0516 RPC04 R R0517 RPC05 R R0518 RPC06 R R0519 RPC07 R R0520 RPC08 R R0521 RPC09 R R0522 RPC10 R R0523 RPC11 R R0524 RPC12 R R0525 RPC13 R R0526 RPC14 R R0527 RPC15 R R0528 RPC16 R R0529 RPC17 R R0530 RPC18 R R0531 RPC19 R R0532 RPC20 R R0533 RPC21 R R0534 RPC22 R R0535 RPC23 R0536 R0537 R0538 R0539 R0540 R0541 R0542 R0543 R0544 R0545 PI1 R0546 PI2 R0547 PI3 R0548 PI4 R0549 PI5 R0550 PI6 R0551 PAR1 R0552 PAR2 R0553 PAR3 R0554 PAR4 R0555 PAR5 R0556 PAR6 R0557 PLAST_HR R0558 PLAST_MN R0559 PTOT_REJ R0560

TOTAL_REJ is the sum of all the rejects

I1-I6 are copied to PI1-PI6 and AR1-AR6 are copied to PAR1-PAR6 so that LINE can run independently from PARETO

AR1 and MPAR1 are 6-register arrays calcualted as follows

RULE AR1=100*(RC01iI1)/TOTAL_REJ RULE AR2=100*(RC01iI2)/TOTAL_REJ RULE AR3=100*(RC01iI3)/TOTAL_REJ RULE AR4=100*(RC01iI4)/TOTAL_REJ RULE AR5=100*(RC01iI5)/TOTAL_REJ RULE AR6=100*(RC01iI6)/TOTAL_REJ RULE MPAR1=40.00+2.60*PAR1 RULE MPAR2=40.00+2.60*PAR2 RULE MPAR3=40.00+2.60*PAR3 RULE MPAR4=40.00+2.60*PAR4 RULE MPAR5=40.00+2.60*PAR5 RULE MPAR6=40.00+2.60*PAR6

This TASK sorts the array starting at RC01 of length NC RC01, RC02, etc. contain the number of rejects in categories 1,2, etc.
The order is recorded in the array starting at I1
After the task is run, I1 contains the index of the largest element, I2 the second largest, etc.

LINE 001 REM 002 REM 003 LET C3=0.00 004 LET T1iC3=RC01iC3 005 LET I1iC3=0.00-1.00 006 LET C3=C3+1.00 007 IF [C3<NC] 004 008 LET C2=0.00 009 LET C3=0.00 010 LET C1=0.00 011 IF [T1iC1<=T1iC3] 013 012 LET C3=C1 013 LET C1=C1+1.00 014 IF [C1<NC] 011 015 LET I1iC2=C3 016 LET T1iC3=0.00-1.00 017 LET C2=C2+1.00 018 IF [C2<NC] 009 019 LET LAST_HR=HOUR$ 020 LET LAST_MN=MINUTE$ 021 STOP LINE 022 END

This TASK uses the results of the LINE task to display the Pareto chart.
The Pareto chart shows the 6 most common causes of defects.
The EGA.EXE driver must be loaded.

PARETO 005 MOVE [I1] [PI1] 6 006 MOVE [AR1] [PAR1] 6 007 MOVE [LAST_HR] [PLAST_HR] 2 008 LET PTOT_REJ=TOTAL_REJ 009 REM ***** PARETO BY REJECT REASON LOST OVER LAST PERIOD 010 REM *** DISPLAY M/C PARETO GRAPH 011 GRAPH 012 TEXT 0 13 15 . PARETO ANALYSIS . 013 VAR 1 20 PREVIOUS LIST 0 LEGEND0 35 15 014 LINE 42 40 42 630 2 10 015 LINE 42 40 328 40 2 10 016 LINE 68 40 68 36 2 10 017 LINE 94 40 94 36 2 10 018 LINE 120 40 120 36 2 10 019 LINE 146 40 146 36 2 10 020 LINE 172 40 172 36 2 10 021 LINE 198 40 198 36 2 10 022 LINE 224 40 224 36 2 10 023 LINE 250 40 250 36 2 10 024 LINE 276 40 276 36 2 10 025 LINE 302 40 302 36 2 10 026 TEXT 18 0 14 20% 027 TEXT 14 0 14 40% 028 TEXT 10 0 14 60% 029 TEXT 7 0 14 80% 030 TEXT 3 0 14 100% 031 VAR 22 12 PI1 LIST 1 RC01 4 12 032 VAR 22 24 PI2 LIST 1 RC01 4 10 033 VAR 22 36 PI3 LIST 1 RC01 4 11 034 VAR 22 48 PI4 LIST 1 RC01 4 13 035 VAR 22 60 PI5 LIST 1 RC01 4 13 036 VAR 22 72 PI6 LIST 1 RC01 4 13 037 VAR 23 13 PAR1 NUMBER 2 12 038 VAR 23 25 PAR2 NUMBER 2 10 039 VAR 23 37 PAR3 NUMBER 2 11 040 VAR 23 49 PAR4 NUMBER 2 13 041 VAR 23 61 PAR5 NUMBER 2 13 042 VAR 23 73 PAR6 NUMBER 2 13 043 TEXT 23 15 12 % 044 TEXT 23 27 10 % 045 TEXT 23 39 11 % 046 TEXT 23 51 13 % 053 TEXT 23 63 13 % 054 TEXT 23 75 13 % 062 LINE MPAR1 70 MPAR1 145 3 12 063 LINE MPAR1 70 42 70 3 12 064 LINE MPAR1 145 42 145 3 12 065 LINE MPAR2 165 MPAR2 240 3 10 066 LINE MPAR2 165 42 165 3 10 067 LINE MPAR2 240 42 240 3 10 068 LINE MPAR3 260 MPAR3 335 3 11 069 LINE MPAR3 260 42 260 3 11 070 LINE MPAR3 335 42 335 3 11 071 LINE MPAR4 355 MPAR4 430 3 13 072 LINE MPAR4 355 42 355 3 13 073 LINE MPAR4 430 42 430 3 13 074 LINE MPAR5 450 MPAR5 525 3 13 075 LINE MPAR5 450 42 450 3 13 076 LINE MPAR5 525 42 525 3 13 077 LINE MPAR6 545 MPAR6 620 3 13 078 LINE MPAR6 545 42 545 3 13 079 LINE MPAR6 620 42 620 3 13 080 TEXT 2 26 7 UPDATED AT 081 VAR 2 37 PLAST_HR LZI 2 7 082 TEXT 2 39 7 : 083 VAR 2 40 PLAST_MN LZI 2 7 084 TEXT 3 61 14 TOTAL REJ. = 085 VAR 3 74 PTOT_REJ NUMBER 5 14 086 TEXT 23 1 31 MENU