Conference ilbbak::ibi_focus

	Does anyone ever read this conference?  After existing for two years
	it only has 183 entries.  Why is this?  Is FOCUS so good that no one
	has problems with it?  Thus no one monitors this conference? Or is
	it that nobody is using FOCUS out there?

	Anyway, if anyone can reply to .0 I appreciate it.

	Waiting patiently,
	Rob

	Though I never formally tried it I suppose FOCUS can handle variable
	records. I never received any messages saying "RECORD TOO LONG" or 
	something like.
	In chapter 3.5 DESCRIBING SEQUENTIAL FILES WITH SEVERAL TYPE
	OF RECORDS it is not explicitly mentioned but it let me suppose that 
	if you use SUFFIX = FIX (!) and describe your longer record it's going
	to work. Try it, it won't take you long.
	
	I don't know if someone continues to monitor this conference. I don't
	understand why there are 2 conferences FOCUS and IBI_FOCUS but I'd be
	please to know.

	Jo�l

    Hi Joel,
    
    No doubt you've solved the problem. The Focus User Manuals arn't very
    helpful are they. Anyway I had a number of problems converting a 
    RMS indexed variable record file. But I think I've succeeded(??)
    The file I converted is Indexed Sequential Hence the need for the ISAM
    suffix and the SEGMENT=ROOT.
    The GROUP clause designates the Primary key as DATE_REC, I think you
    can use the GROUP clause even if the primary key is not in sequence
    (i.e the primary key comes after some other fields)as long as the
    field sequence mirrors that of the RMS file. The size of the GROUP
    field matches that of the field/s to be used as a key, hence if your
    key is made up of other fields then ACTUAL = sizes of other fields
    added up. 
    
    The MAPFIELD clause designates that the EVENT field be used to select
    the various remaing segments to make up the whole record, in this case
    the actual is I1 which can be 0,3,5 etc But I think alphabetics can be
    used.   
    
    It's necessary to use SEGMENT=ROOT in the header segment and it's also
    neccessary to use OCCURS=1 in the Various segments, I don't know why
    but only that it works :-)
    
    Anyway I hope this helps:
    
FILE=AUDIT, SUFFIX=ISAM,$
SEGMENT=ROOT ,SEGTYPE=S0 ,$
GROUP=PRIM_KEY ,ALIAS=KEY ,USAGE=A8 ,A8 ,$
   FIELD=DATE_REC ,ALIAS= ,USAGE=A8 ,A8 ,FIELDTYPE=I ,$
  FIELD=PART     ,ALIAS=KEY1     ,USAGE=A9  ,A9  ,FIELDTYPE=I ,$
  FIELD=USERNAME ,ALIAS=         ,USAGE=A12 ,A12 ,$
  FIELD=EVENT    ,ALIAS=MAPFIELD ,USAGE=I1  ,I1  ,$
  DEFINE PRNT_DT_REC/A20=CVTSTIME(20,DATE_REC,PRNT_DT_REC);$

SEGMENT=PART_CRT ,PARENT=ROOT ,OCCURS=1 ,$
  FIELD=CREATE_PRICE ,ALIAS=  ,USAGE=D8.2,D8,$
  FIELD=MAPVALUE     ,ALIAS=0 ,USAGE=I1   ,I1 ,$
  
SEGMENT=BOM_CRT ,PARENT=ROOT ,OCCURS=1 ,$
  FIELD=BCR_CHILD    ,ALIAS=  ,USAGE=A9 ,A9 ,$
  FIELD=BCR_QUANTITY ,ALIAS=  ,USAGE=I4 ,I4 ,$
  FIELD=MAPVALUE     ,ALIAS=3 ,USAGE=I1 ,I1 ,$

SEGMENT=BOM_CHNG ,PARENT=ROOT ,OCCURS=1 ,$
  FIELD=BCH_CHILD   ,ALIAS=  ,USAGE=A9 ,A9 ,$
  FIELD=BCH_OLD_QTY ,ALIAS=  ,USAGE=I4 ,I4 ,$
  FIELD=BCH_NEW_QTY ,ALIAS=  ,USAGE=I4 ,I4 ,$
  FIELD=MAPVALUE    ,ALIAS=5 ,USAGE=I1 ,I1 ,$

SEGMENT=BOM_DEL ,PARENT=ROOT ,OCCURS=1 ,$
  FIELD=BDE_CHILD ,ALIAS=  ,USAGE=A9 ,A9 ,$
  FIELD=MAPVALUE  ,ALIAS=4 ,USAGE=I1 ,I1 ,$

SEGMENT=P_C_CHLD ,PARENT=ROOT ,OCCURS=1 ,$
  FIELD=PCC_CHILD ,ALIAS=  ,USAGE=A9 ,A9 ,$
  FIELD=CCH_OLD   ,ALIAS= ,USAGE=D8.2,D8.2 ,$
  FIELD=CCH_NEW   ,ALIAS= ,USAGE=D8.2,D8.2 ,$
  FIELD=MAPVALUE  ,ALIAS=6 ,USAGE=I1 ,I1 ,$
  
SEGMENT=P_C_BOM ,PARENT=ROOT,OCCURS=1 ,$
  FIELD=PCB_CHILD ,ALIAS=  ,USAGE=A9 ,A9 ,$
  FIELD=MAPVALUE  ,ALIAS=7 ,USAGE=I1 ,I1 ,$

SEGMENT=P_CHANGE, PARENT=P_C_BOM ,OCCURS=PCB_CHILD ,$
  FIELD=PCH_OLD ,ALIAS= ,USAGE=D8.2 ,D8 ,$
  FIELD=PCH_NEW ,ALIAS= ,USAGE=D8.2 ,D8 ,$
  
SEGMENT=P_C_PART ,PARENT=ROOT ,OCCURS=1 ,$
  FIELD=PCP_PRICE ,ALIAS=  ,USAGE=I1 ,I1 ,$
  FIELD=MAPVALUE  ,ALIAS=8 ,USAGE=I1 ,I1 ,$

SEGMENT=PRCE_ONE,PARENT=P_C_PART,OCCURS=PCP_PRICE ,$
  FIELD=PRCE_ONE_OLD ,ALIAS= ,USAGE=D8.2 ,D8 ,$
  FIELD=PRCE_ONE_NEW ,ALIAS= ,USAGE=D8.2 ,D8 ,$

SEGMENT=PRCE_TWO ,PARENT=P_C_PART ,OCCURS=PCP_PRICE ,$
  FIELD=PRCE_TWO_OLD ,ALIAS= ,USAGE=D8.2 ,D8 ,$
  FIELD=PRCE_TWO_NEW ,ALIAS= ,USAGE=D8.2 ,D8 ,$  
    
    All the best.
    Dave.