IS301 Term 2/2541 : Control-break algorithm

IS301 Programming Concept Term 2/2541

Control Break Algorithm

What is Control Break?

Control Break 
     Quality Control Report

Group	Item	Lot	Qty.	Samples	Failure	Pass/Fail
A	A-001	#1	3,000	150	50	Fail
	A-001	#2	2,000	200	5	Pass
	A-001	#3	1,000	100	10	Pass
	A-002	#1	1,500	200	21	Fail
	A-002	#2	2,500	250	10	Pass
	Group A Total		10,000	900	96
B	B-001	#1	500	80	5	Pass
	B-001	#2	750	80	3	Pass
	Group B Total		1,250	160	8
......	.........................	........	...............	........	.......	........
	Grand Total		xx,xxx	xx,xxx	xx,xxx

 Group 
  One-level control break report  break  Control field
 break  2   Two-level control break report  Quality Control Report

Group	Item	Lot	Qty.	Samples	Failure	Pass/Fail
A	A-001	#1	3,000	150	50	Fail
		#2	2,000	200	5	Pass
		#3	1,000	100	10	Pass
	Item A-001 Total		6,000	450	65
	A-002	#1	1,500	200	21	Fail
		#2	2,500	250	10	Pass
	Item A-002 Total		4,000	450	31
	Group A Total		10,000	900	96
B	B-001	#1	500	80	5	Pass
		#2	750	80	3	Pass
	Item B-001 Total		1,250	160	8
	Group B Total		1,250	160	8
.......	..............................	............	.............	..............	...........
	Grand Tota		xx,xxx	xx,xxx	xx,xxx

One-level control break algorithm

 Quality control report  Break  Product Group   Input data 

Group	Item	Lot	Qty	Samples	Failure
A	A-001	#1	3000	150	50
A	A-001	#2	2000	200	5
A	A-001	#3	1000	100	10
A	A-002	#1	1500	200	21
A	A-002	#2	2500	250	10
B	B-001	#1	500	80	5
B	B-001	#2	750	80	3

Input data requirement
 one-level control break report 

Data requirement ()
 Quality control report   2  Group total  Grand total  

Group.qty	Grand.qty
Group.sample	Grand.sample
Group.failure	Grand.failure

 Group   Group total   Group  1   Previous.group Program logic
 record   record  break  Control break field 
 Break

 Pass  Fail ( Fail  Failure  10%  Sample)

 Break  End-of-file

 Group total line

Two-level control break algorithm

Input data requirement
 Two-level control break report 

Data requirement ()
 Quality control report   3  Item total, Group total Grand total  Item total  Item  Group total  Group
:  Group  Item   Total 
 

Item.qty	Group.qty	Grand.qty
Item.sample	Group.sample	Grand.sample
Item.failure	Group.failure	Grand.failure

 2  Item  Group  Previous.item Previous.group Program logic
 3 
  Break

 Pass  Fail

 Break by item

 Item total line

 Break by group

 Break by item
 Group total line

BASIC programs of One-level control break  Quality control report 

REM************************************************

REM* M A I N M O D U L E *

REM************************************************

CLS

GOSUB initialize

GOSUB process

GOSUB wrapup

END

DATA "A","A-001","#1",3000,150,50

DATA "A","A-001","#2",2000,200,5

DATA "A","A-001","#3",1000,100,10

DATA "A","A-002","#1", 1500, 200,21

DATA "A","A-002","#2",2500,250,10

DATA "B","B-001","#1",500,80,5

DATA "B","B-001","#2",750,80,3

DATA "eof",,,,,

initialize:
cur.line = 1
GOSUB print.heading
grand.qty = 0: grand.samples = 0: grand.failure = 0
READ group$, Item$, Lot$, qty, samples, failure
RETURN

print.heading:
PRINT TAB(30); "Quality control report"
PRINT TAB(5); "Group"; TAB(15); "Item"; TAB(25); "Lot"; TAB(35); "Qty";
PRINT TAB(45); "Samples"; TAB(55); "Failure"; TAB(65); "Pass/Fail"
RETURN

process:
DO UNTIL group$ = "eof"
   group.qty = 0: group.samples = 0: group.failure = 0
   previous.group$ = group$
   DO UNTIL (group$ <> previous.group$) OR (group$ = "eof")
      status$ = "Pass"
      IF (failure / samples * 100) > 10 THEN
         status$ = "Fail"
      END IF
      IF cur.line > 20 THEN
         PRINT "Press any key to continue ..."
         char$ = INPUT$(1)
         CLS
         GOSUB print.heading
         cur.line = 1
      END IF
      cur.line = cur.line + 2
      PRINT TAB(5); group$; TAB(15); Item$; TAB(25); Lot$;
      PRINT TAB(35); USING "##,###    ##,###    ##,###"; qty; samples; failure;
      PRINT TAB(65); status$
      group.qty = group.qty + qty
      group.samples = group.samples + samples
      group.failure = group.failure + failure
      READ group$, Item$, Lot$, qty, samples, failure
   LOOP
   PRINT
   PRINT TAB(5); "****"; TAB(10); "Group "; previous.group$; " Total";
   PRINT TAB(35); USING "##,###    ##,###    ##,###"; group.qty; group.samples; group.failure
   PRINT
   grand.qty = grand.qty + group.qty
   grand.samples = grand.samples + group.samples
   grand.failure = grand.failure + group.failure
LOOP
RETURN
wrapup:
PRINT TAB(5); STRING$(61, "*")
PRINT TAB(5); "####"; TAB(10); "Grand total";
PRINT TAB(35); USING "##,###    ##,###    ##,###"; grand.qty; grand.samples; grand.failure;
PRINT " ####"
PRINT TAB(5); STRING$(61, "*")
RETURN

BASIC programs of Two-level control break  Quality control report 

REM************************************************

REM* M A I N M O D U L E *

REM************************************************

CLS

GOSUB initialize

GOSUB process

GOSUB wrapup

END

DATA "A","A-001","#1",3000,150,50

DATA "A","A-001","#2",2000,200,5

DATA "A","A-001","#3",1000,100,10

DATA "A","A-002","#1", 1500, 200,21

DATA "A","A-002","#2",2500,250,10

DATA "B","B-001","#1",500,80,5

DATA "B","B-001","#2",750,80,3

DATA "eof",,,,,

initialize:
cur.line = 1
GOSUB print.heading
grand.qty = 0: grand.samples = 0: grand.failure = 0
READ group$, item$, Lot$, qty, samples, failure
RETURN

process:
DO UNTIL group$ = "eof"
group.qty = 0: group.samples = 0: group.failure = 0
previous.group$ = group$
DO UNTIL (group$ <> previous.group$) OR (group$ = "eof")
   item.qty = 0: item.samples = 0: item.failure = 0
   previous.item$ = item$
   DO UNTIL (item$ <> previous.item$) OR (group$ <> previous.group$) OR (group$ = "eof")
      status$ = "Pass"
      IF (failure / samples * 100) > 10 THEN
         status$ = "Fail"
      END IF
      IF cur.line > 10 THEN
         PRINT "Press any key to continue ..."
         char$ = INPUT$(1)
         CLS
         GOSUB print.heading
         cur.line = 1
      END IF
      cur.line = cur.line + 2
      PRINT TAB(5); group$; TAB(15); item$; TAB(25); Lot$;
      PRINT TAB(35); USING "##,###    ##,###    ##,###"; qty; samples; failure;
      PRINT TAB(65); status$
      item.qty = item.qty + qty
      item.samples = item.samples + samples
      item.failure = item.failure + failure
      READ group$, item$, Lot$, qty, samples, failure
   LOOP
   PRINT
   PRINT TAB(5); "****"; TAB(10); "Item "; previous.item$; " Total";
   PRINT TAB(35); USING "##,###    ##,###    ##,###"; item.qty; item.samples; item.failure
   PRINT
   group.qty = group.qty + item.qty
   group.samples = group.samples + item.samples
   group.failure = group.failure + item.failure
LOOP
PRINT
PRINT TAB(5); "****"; TAB(10); "Group "; previous.group$; " Total";
PRINT TAB(35); USING "##,###    ##,###    ##,###"; group.qty; group.samples; group.failure
PRINT
grand.qty = grand.qty + group.qty
grand.samples = grand.samples + group.samples
grand.failure = grand.failure + group.failure
LOOP
RETURN
wrapup:
PRINT TAB(5); STRING$(61, "*")
PRINT TAB(5); "####"; TAB(10); "Grand total";
PRINT TAB(35); USING "##,###    ##,###    ##,###"; grand.qty; grand.samples; grand.failure;
PRINT TAB(5); STRING$(61, "*")
RETURN

Last update: February 18, 1999
By Angsana Achakulwisut