Conference ilbbak::ibi_focus

331.0. "Column multiplication" by KLOV05::LOGAN (DECkchair Attendant) Wed Apr 11 1990 09:36

                <<< SHIRE::BEORN:[NOTES$LIBRARY]FOCUS.NOTE;1 >>>
                      -< European FOCUS Notes Conference >-
================================================================================
Note 216.0 How do I produce a report with certain columns multiplied together ?
 No replies
KLOV05::LOGAN "DECkchair Attendant"                 109 lines  11-APR-1990 13:37
--------------------------------------------------------------------------------
SET PRINT=OFFLINE
SET LINES=56
-*
-* This FOCEXEC calculates the Yield for COMMs products DAL 12-MAR-1989
-*
DEFINE FILE QUALDB
FC/A4 = EDIT(FAILURE_CODE,'9999');
FAIL/I3 = QUANTITY_FAI / 1;
PROD/A5 = DECODE PART_ID (PRODINFO);
OP_CODE/A8 = DECODE OPERATION_CO (OPERCODE);
BUILD/I4   = IF ((OPERATION_CO EQ '0700' OR '0800') AND
                 TDR_LOOP_COU EQ 1)
                 THEN QUANTITY_TES ELSE 0;
WEIGH/D5.3 = DECODE PROD (WEIGHT);
END


TABLE FILE QUALDB
HEADING CENTER
"</1"Yield Report for COMM's Products"
"</1"
SUM BUILD AS 'Build'
AND AVE.WEIGH AS 'Weight'
BY PROD
SUM QUANTITY_TES NOPRINT
AND QUANTITY_FAI NOPRINT
AND
COMPUTE YIELD/D6.2 = ((BUILD - QUANTITY_FAI)/BUILD) * 100;
AS 'Yield'
BY PROD AS 'Products'
ACROSS OP_CODE AS 'Operation'
IF DATE_TIME IS-FROM &START_DATE TO &END_DATE
ON TABLE HOLD AS 'COMM' FORMAT DOC
FOOTING
"</1"
"<22 DIGITAL Internal Use Only"
END"


PAGE     1

                          Operation
                          DIP      ICT      S/W
 Products  Build  Weight   Yield    Yield    Yield
 -------------------------------------------------
               0    .000     .00        .      .00
 CX            0    .079       .        .      .00
 DELNI       822    .045   98.78    93.92    96.47
 DEMPR         0    .040     .00        .      .00
 DEMSA         0    .016     .00        .      .00
 DEMSB         0    .071     .00        .        .
 DESQA         0    .016       .        .      .00
 DHQ11         0    .079       .        .      .00
 DMB32         0    .034       .        .        .
 DSRVB         0    .010       .        .        .
 DSRVF         0    .034     .00        .      .00
 DSV11         0    .012     .00        .      .00
 DZQ11         0    .016       .        .      .00
                                                   


               DIGITAL Internal Use Only



The FEX file above was used to produce the report shown above. However I need to
produce another column and I'm not sure now to go about it. 

The report shown below shows the report as it should be.

The functional yield is calculated as follows

   Functional Yield = (DIP Yield/100 * ICT Yield/100 * S/W Yield/100) * 100

I need a method whereby I can substitute a 1 if a Yield is .00 or MISSING.

The report also has to be generic as there are sometimes Yields from other 
operations. Thus the number of columns may change.

Any help would be very much appreciated.

Regards,
	Andy.


                         

PAGE     1

                          Operation
                          DIP      ICT      S/W     Functional
 Products  Build  Weight   Yield    Yield    Yield   Yield
 --------------------------------------------------------------
               0    .000     .00        .      .00
 CX            0    .079       .        .      .00
 DELNI       822    .045   98.78    93.92    96.47   89.50
 DEMPR         0    .040     .00        .      .00
 DEMSA         0    .016  100.00        .   100.00  100.00
 DEMSB         0    .071     .00        .        .
 DESQA         0    .016  100.00    91.12   100.00   91.12
 DHQ11         0    .079       .        .      .00
 DMB32         0    .034       .        .        .
 DSRVB         0    .010       .        .        .
 DSRVF         0    .034     .00        .      .00
 DSV11         0    .012     .00        .      .00
 DZQ11         0    .016       .        .      .00
                                                   

              DIGITAL Internal Use Only