| Title: | FOCUS, from INFORMATION BUILDERS |
| Moderator: | ZAYIUS::BROUILLETTE |
| Created: | Thu Feb 19 1987 |
| Last Modified: | Mon May 05 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 615 |
| Total number of notes: | 1779 |
Does anyone know how to make focus compute a running total?
What I need is a away to determine which of the parts I am
tracking fall in the 'A' class (top 80% of dollar value),
which in the 'B' class (between 80 to 95% of the dollar
value) and in the 'C' class - those parts that together
total only 5% of all the dollar value.
What I have done on lotus is to total the dollar value for
all the parts, compute what 80% and 95% of the total is,
then add parts to each other one after another until the
total equals aprox 80% and then continue to add until the
total equals aprox 95%. The first group of parts would
be A class the second B class and the remainder C class.
I then determine the average accuracy of the forecast for
each group.
Can Focus do this for me? I had some code written by an
IBI instructor, but it doesn't work. I will send it
to whomever is interested.
Bonnie
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 258.1 | not trivial, but do-able | MILPND::MADDEN | Wed Sep 06 1989 09:24 | 15 | |
First create a hold file of PART DOLLARS TOTAL_DOLLARS
Now the report
DEFINE FILE ......
80%TOTAL = .8 * TOTAL_DOLLARS;
RUNNING_TOT = LAST RUNNING_TOT + DOLLARS;
CLASS_A_FLAG/A1= IF RUNNING_TOT LE 80%TOTAL THEN '1' ELSE '0';
create flags for the other classes
END
If you want to sort on a general flag you could create that from the
other flags, but I'm sure you see where this is heading and the only
other trick is the hold file which is do-able.
| |||||
| 258.2 | did it | WMOIS::B_REINKE | if you are a dreamer, come in.. | Thu Sep 21 1989 15:53 | 59 |
in re -.1 Thankyou that did work. The fex that sorts parts by dollars
and ranks them in abc categories follows if anyone is interested.
The only thing that it does not do is to predetermine the total
value of the parts. That I'm still working on, so at this point the
fex has to be edited each month to enter the new total dollar value.
Bonnie
OFFLINE CLOSE
VMS DELETE ABC.RPT.*
FILEDEF OFFLINE DISK ABC.RPT
-*
-* TO DETERMINE ABC RANKING BY DOLLARS SHIPPED
-*
-*
- PROMPT &CUR_MTH.A9.Enter current reporting month:.
-*
DEFINE FILE CUR_8912
ACC/D3 = EDIT(PLANNER_ACCY);
END
TABLE FILE CUR_8912
PRINT PN PC ACC
BY PN
IF PLANNER_CODE EQ 23 OR 25 OR 29
ON TABLE HOLD AS PC
END
JOIN PART_NUMBER IN PC TO PART_ID IN JUNVMAYF
TABLE FILE PC
PRINT PART_NUMBER PLANNER_CODE ACC
BY HIGHEST RAW_MLP
IF PART_NUMBER NE ' '
IF RAW_MLP NE ' '
ON TABLE HOLD AS JT
END
DEFINE FILE JT
95%TOTAL = .95 * 18669992;
80%TOTAL = .8 * 18669992;
RUNNING_TOT = LAST RUNNING_TOT + RAW_MLP;
CLASS_A_FLAG/A1=IF RUNNING_TOT GE 95%TOTAL THEN 'C' ELSE
IF RUNNING_TOT GE 80%TOTAL THEN 'B' ELSE 'A';
END
TABLE FILE JT
SUM AVE.ACC BY CLASS_A_FLAG
PRINT PART_NUMBER AS 'PART,NUMBER' PLANNER_CODE AS 'PC'
RAW_MLP AS 'MLP' RUNNING_TOT CLASS_A_FLAG AS 'RANK' ACC
AS 'ACCURACY'
BY HIGHEST RAW_MLP NOPRINT
BY CLASS_A_FLAG NOPRINT
HEADING CENTER
"ABC DOLLAR RANKING FOR &CUR_MTH"
FOOTING
"TOTAL =<TOT.RAW_MLP"
END
| |||||