Conference ilbbak::ibi_focus

268.0. "Path errors" by NRPUR::SKERRY () Wed Sep 27 1989 13:25

I have a CONT.FOC file with the below master file description.
When I try to sum CURFYVOL and FURFYVOL fields (see attached FEX),
and then sort on the SUP_CODE field from the SUPPLIER segment, I
am getting an error method regarding the path.

If anyone has any suggestions on how to access this information
it would be greatly appreciated.  You can reply here, or via
vaxmail to NRPUR::SKERRY.

Thank you.
*******************************************************************
MASTER FILE DESCRIPTION 

FILENAME=CONT, SUFFIX=FOC, $

SEGNAME=PART, SEGTYPE=S1
FIELDNAME=PARTNO          ,ALIAS=PN     ,FORMAT=A9     , FIELDTYPE=I,$
FIELDNAME=PART_DESCR      ,ALIAS=DESC   ,FORMAT=A62    ,$
FIELDNAME=FCD_CODE        ,ALIAS=FCD    ,FORMAT=A4     ,$
FIELDNAME=CURFYSTD        ,ALIAS=PPS    ,FORMAT=D12.4  ,$
FIELDNAME=POAVG           ,ALIAS=OPO    ,FORMAT=D12.4  ,$
FIELDNAME=CONAVG          ,ALIAS=CON    ,FORMAT=D12.4  ,$
FIELDNAME=COST_ANAL       ,ALIAS=CA     ,FORMAT=D12.4  ,$

SEGNAME=PLANT, SEGTYPE=S1, PARENT=PART
FIELDNAME=PLANT_ID        ,ALIAS=PID    ,FORMAT=A3     , FIELDTYPE=I,$
FIELDNAME=AREA            ,             ,FORMAT=A3     ,$
FIELDNAME=CURFYVOL        ,ALIAS=CUR    ,FORMAT=I10C   ,$
FIELDNAME=FUTFYVOL        ,ALIAS=FUT    ,FORMAT=I10C   ,$

SEGNAME=SUPPLIER, SEGTYPE=S1, PARENT=PART
FIELDNAME=SUP_CODE        ,ALIAS=SC     ,FORMAT=A10    , FIELDTYPE=I,$
FIELDNAME=SUP_PARTNO      ,ALIAS=SPN    ,FORMAT=A30    ,$
FIELDNAME=SNAME           ,             ,FORMAT=A12    ,$
FIELDNAME=QER_CODE        ,ALIAS=QER    ,FORMAT=A1     ,$
FIELDNAME=RQ7             ,ALIAS=AVL    ,FORMAT=A1     ,$
FIELDNAME=SUPQUOTE        ,ALIAS=QUOTE  ,FORMAT=D12.4  ,$
FIELDNAME=TARGET          ,             ,FORMAT=A1     ,$
FIELDNAME=CON_PRICE       ,ALIAS=PRICE  ,FORMAT=D12.4  ,$
FIELDNAME=CON_QTY         ,ALIAS=QTY    ,FORMAT=I10C   ,$
FIELDNAME=CON_LT          ,ALIAS=LT     ,FORMAT=I2     ,$
*************************************************************************
-* RPT16.FEX 

VMS DELETE RPT16.DOC;*/NOLOG/NOCONFIRM

SET LINES=57
SET PAGE=60


DEFINE FILE CONT
PN/A11 = EDIT(PARTNO,'99-99999-99');
COST_ANAL/D6.2=COST_ANAL;
POAVG/D6.2=POAVG;
CONAVG/D6.2=CONAVG;
CURFYSTD/D6.2=CURFYSTD;
TOT_VOL/I10C = (CUR + FUT);

END

TF CONT
HEADING
"REPORT: RPT16  <38 FY90 & FY91 TOTAL REQUIREMENTS BY PLT <110 PAGE <TABPAGENO"
" <50 DUPONT - AWARDED VOLUMES BY PLANT <111 &DATE "
"AREA: <PID"
" "
" "
SUM CUR AS 'FY90 VOL' FUT AS 'FY91 VOL' TOT_VOL AS 'TOTAL'
BY PID
BY PN AS 'PART NUMBER' IN 1
IF TOT_VOL GT 0
IF CON_QTY GT 0
*(This IF statement is the one that does not work, it is just ignoring it.)
*IF SUP_CODE EQ 0000142010 OR 0000142000 OR 0000142015
ON TABLE HOLD AS RPT16 FORMAT DOC
ON PID PAGE-BREAK
END

    In a multisegmented file FOCUS will follow retrieval paths from top
    to bottom.  In your application one path is PART to PLANT to whatever
    is below; another path is PART to SUPPLIER to whatever is below.
    You can only report from one retrieval path at a time. Do a CHECK FILE 
    RETRIEVAL to see all the paths.
    
    FOCUS provides a way to create new retrieval paths by creating an
    alternate file view.  You can view the file from the PLANT seg and 
    PART and SUPPLIER will be in the retrieval path allowing you to 
    sum the PART fields by SUPPLIER fields.  Check the manual for more
    details and syntax.   Its simply TABLE FILE filename.fieldname   

    Thank you, I will give that a try.