I am working on a Mainframe FOCUS Rel 7.1.1 FEX that utilizes a database with many segments; what I want to do is to be able to match data from two different segments at the same time against parameters I enter, however, what I get is the following message:

LOCATION_CODE;
PROCESS_DT /I4 = IF (ASGN_BGN_DT IS-FROM 20080101 TO 20081231)
THEN 1 ELSE
IF (ASGN_END_DT IS-FROM 20080101 TO 20081231)
THEN 1 ELSE
IF (ASGN_BGN_DT LT 20080101) AND
(ASGN_END_DT GT 20081231)
THEN 1 ELSE
IF ((ASGN_BGN_DT LT 20080101) AND
(ASGN_END_DT LT 20081231)) AND
(EBEOW GT 0)
THEN 1 ELSE 0;
0 ERROR AT OR NEAR LINE 394 IN PROCEDURE CALF2 FOCEXEC
0(FOC246) COMPUTATIONAL STATEMENT REFERS TO MORE THAN ONE DATA PATH
END


Can someone please tell me the error of my ways?

I thought I could work with various child segments as long as they all related to the parent instance. Here is part of my master. Its large. :

$***

FILE=EBFILE ,SUFFIX=VSAM ,$
$*************************************************************************
SEGNAME=ROOT ,SEGTYPE=S0 ,$
FIELD=DELETE_200 ,EBAAB ,A01 ,A01 ,TITLE='Del,Byte' ,$
GROUP=KEY_200 ,ALIAS=KEY ,A12 ,A12 ,TITLE='Segment Key' ,$
FIELD=CORP_200 ,EBAAC ,A03 ,A03 ,TITLE='Corp' ,$
FIELD=EMP_ID_200 ,EBAAD ,A09 ,A09 ,TITLE='Employee, ID' ,$
GROUP=SEG_NO_200 ,ALIAS=SEG_200 ,A03 ,A03 ,TITLE='Seg,Num' ,$
FIELD=RECTYPE ,SEG200,A03 ,A03 ,TITLE='Seg,Num'
,ACCEPT=200 ,$
FIELD=JOB_CD_200 ,EBAAF ,A01 ,A01 ,TITLE='Job,Cd' ,$
FIELD=OCCR_200_CD ,EBAAG ,A03 ,A03 ,TITLE='Occur' ,$
FIELD=CORP_STAT ,EBAAH ,A01 ,A01 ,TITLE='Corp,Stat' ,$
FIELD=PRIM_DIV ,EBAAI ,A03 ,A03 ,TITLE='Prim,Div' ,$
FIELD=PRIM_DEPT ,EBAAJ ,A05 ,A05 ,TITLE='Prim,Dept' ,$
FIELD=PRIM_UNIT ,EBAAK ,A05 ,A05 ,TITLE='Prim,Unit' ,$
FIELD=SUBJ_TO_FICA,EBAAL ,A01 ,A01 ,TITLE='Subj, To,FICA,Flag' ,$
FIELD=SUBJ_TO_FED ,EBAAM ,A01 ,A01 ,TITLE='Subj, To,Fed,Flag' ,$
FIELD=SUBJ_TO_ST ,EBAAN ,A01 ,A01 ,TITLE='Subj, To,State,Flag' ,$
FIELD=EIC ,EBAAO ,A01 ,A01 ,TITLE='EIC' ,$
FIELD=NPA_CD_200 ,EBAAP ,A01 ,A01 ,TITLE='NPA,Cd' ,$
FIELD=CUR_HIRE_DT ,EBAAR ,I8YYMD ,A08 ,TITLE='Cur,Hire, Date' ,$
FIELD=SERVICE_DT ,EBAAX ,I8YYMD ,A08 ,TITLE='Service,Date' ,$
FIELD=RETIRE_DT ,EBABD ,I8YYMD ,A08 ,TITLE='Retire, Date' ,$
GROUP=TERMIN_CD_EB,ALIAS=EBABI ,A03 ,A03 ,TITLE='Term,Code' ,$
FIELD=TERMIN_RSN ,EBABJ ,A01 ,A01 ,TITLE='Term,Rsn' ,$
FIELD=TERMIN_DESC ,EBABK ,A02 ,A02 ,TITLE='Term,Lvl' ,$
FIELD=TERMIN_DT_EB,EBABM ,I8YYMD ,A08 ,TITLE='Term,Date' ,$
FIELD=LSTACT_DT_EB,EBABS ,I8YYMD ,A08 ,TITLE=' Date, Last,Actvty' ,$
FIELD=PEF_FLG ,EBABX ,A01 ,A01 ,TITLE='PEF,Flg' ,$
FIELD=PASS_FLG ,EBABY ,A01 ,A01 ,TITLE='PASS,Flag' ,$
FIELD=W2_FLG ,EBABZ ,A01 ,A01 ,TITLE='W2,Flg' ,$
FIELD=PENSION_FLG ,EBACB ,A01 ,A01 ,TITLE='Pens,Flag' ,$
FIELD=CHK_DIST_CD ,EBACC ,A03 ,A03 ,TITLE=' Chk,Dist,Code' ,$
FIELD=ORIG_HIRE_DT,EBACE ,I8YYMD ,A08 ,TITLE='Orig,Hire,Date' ,$
FIELD=WRK_COMP_FLG,EBACJ ,A01 ,A01 ,TITLE='Wrk,Comp,Flg' ,$
FIELD=LST_TD1_DT ,EBACL ,I8YYMD ,A08 ,TITLE='Last,TD1,Date' ,$
FIELD=JOB_GROUPS ,EBACQ ,A15 ,A15 ,TITLE='Job Groups' ,$
FIELD=NEXT_ELIG_DT,EBACR ,I8YYMD ,A08 ,TITLE='Next,Eligibility,Date' ,$
FIELD=ELIG_GRDFTHR,EBACS ,A01 ,A01 ,TITLE='Grandfather,Flag' ,$
FIELD=USER_FIL200, ,A20 ,A20 ,$
FIELD=CUR_ELG_GRP ,EBADU ,A02 ,A02 ,TITLE='Current,Elig Group' ,$
FIELD=NEXT_ELG_GRP,EBADV ,A02 ,A02 ,TITLE='Next,Elig Group' ,$
$*************************************************************************
SEGNAME=EB_201 , SEGTYPE=S0, PARENT=ROOT ,$
FIELD=DELETE_201 , ,A01 ,A01 ,TITLE='Del,Byte' ,$
GROUP=KEY_201 ,ALIAS=KEY ,A19 ,A19 ,TITLE='Segment Key' ,$
GROUP=KEY_201B ,ALIAS=KEY2 ,A12 ,A12 ,TITLE='SEGMENT Key' ,$
FIELD=CORP_201 , ,A03 ,A03 ,TITLE='Corp' ,$
FIELD=EMP_ID_201 , ,A09 ,A09 ,TITLE='Employee, ID' ,$
GROUP=SEG_NO_201 ,ALIAS=SEG_201 ,A03 ,A03 ,TITLE='Seg,Num' ,$
FIELD=RECTYPE ,SEG201,A03 ,A03 ,TITLE='Seg,Num'
,ACCEPT=201 ,$
FIELD=JOB_CD_201 , ,A01 ,A01 ,TITLE='Job,Cd' ,$
FIELD=OCCR_201_CD , ,A03 ,A03 ,TITLE='Occur' ,$
FIELD=VAC_FYTD_USE,EBAFA ,P07.2C ,P03 ,TITLE='Vac,Used,FYTD' ,$
FIELD=VAC_ACR_BAL ,EBAFB ,P09.2C ,P04 ,TITLE='Vac,Accr,Bal' ,$
FIELD=PER_FYTD_USE,EBAFC ,P07.2C ,P03 ,TITLE='Per,Used,FYTD' ,$
FIELD=PER_ACR_BAL ,EBAFD ,P09.2C ,P04 ,TITLE='Per,Accr,Bal' ,$
FIELD=FSSL_FYTD_US,EBAFE ,P07.2C ,P03 ,TITLE='FSSL,Used,FYTD' ,$
FIELD=FSSL_ACR_BAL,EBAFF ,P09.2C ,P04 ,TITLE='FSSL,Accr,Bal' ,$
FIELD=HSSL_FYTD_US,EBAFG ,P07.2C ,P03 ,TITLE='HSSL,Used,FYTD' ,$
FIELD=HSSL_ACR_BAL,EBAFH ,P09.2C ,P04 ,TITLE='HSSL,Accr,Bal' ,$
FIELD=VAC_CUR_ACR ,EBAFI ,P07.2C ,P03 ,TITLE='Vac,Accr,Cur' ,$
FIELD=FSSL_CUR_ACR,EBAFJ ,P07.2C ,P03 ,TITLE='FSSL,Accr,Cur' ,$
FIELD=VAC_FYTD_ACR,EBAFK ,P07.2C ,P03 ,TITLE='Vac,Accr,FYTD' ,$
FIELD=VAC_CUR_USE ,EBAFL ,P07.2C ,P03 ,TITLE='Vac,Used,Cur' ,$
FIELD=PERS_CUR_USE,EBAFM ,P07.2C ,P03 ,TITLE='Pers,Used,Cur' ,$
FIELD=FSSL_CUR_USE,EBAFO ,P07.2C ,P03 ,TITLE='FSSL,Used,Cur' ,$
FIELD=HSSL_CUR_USE,EBAFQ ,P07.2C ,P03 ,TITLE='HSSL,Used,Cur' ,$
FIELD=BEN_QHRS ,EBAFS ,P07.2C ,P03 ,TITLE=' Ben,Qual,Hours' ,$
FIELD=TAX_MULT ,EBAFT ,P04.2C ,Z03.2 ,TITLE=' T1,Tax,Mult' ,$
FIELD=TIME_CRT_201,EBAFU ,A01 ,A01 ,TITLE='Time,Cert,Prnt,Flag' ,$
FIELD=WRK_PHONE ,EBAFW ,A10 ,A10 ,TITLE='Work,Phone' ,$
FIELD=WRK_EXT ,EBAGC ,A05 ,A05 ,TITLE='Work,Phone, Ext' ,$
FIELD=PRIM_BLDG ,EBAGD ,A03 ,A03 ,TITLE='Prim,Bldg' ,$
FIELD=PRIM_FLOOR ,EBAGE ,A03 ,A03 ,TITLE='Prim,Flr' ,$
FIELD=PRIM_ROOM ,EBAGF ,A04 ,A04 ,TITLE='Prim,Room' ,$
FIELD=LOW_INC_IND ,EBAGG ,A01 ,A01 ,TITLE='Low,Inc,Ind' ,$
FIELD=CPP_EXMP_OVR,EBAGH ,A01 ,A01 ,TITLE='CPP,Exmp,Ovr' ,$
FIELD=FICA_GRS_YTD,EBAGI ,P11.2C ,P05 ,
TITLE='Fed Gross,Asso with,FICA YTD' ,$
FIELD=FICA_TAX_YTD,EBAGK ,P09.2C ,P04 ,
TITLE=' Fed Tax,Asso with,FICA YTD' ,$
FIELD=FICA_GRS_PRI,EBAGM ,P11.2C ,P05 ,
TITLE='Fed Gross,Asso with,FICA PYTD' ,$
FIELD=FICA_TAX_PRI,EBAGO ,P09.2C ,P04 ,
TITLE=' Fed Tax,Asso with,FICA PYTD' ,$
FIELD=COMPU_FILL09, ,A09 ,A09 ,$
FIELD=USER_FIL201, ,A20 ,A20 ,$
$*************************************************************************
SEGNAME=EB_204 , SEGTYPE=S0, PARENT=ROOT ,$
FIELD=DELETE_204 , ,A01 ,A01 ,TITLE='Del,Byte' ,$
GROUP=KEY_204 ,ALIAS=KEY ,A19 ,A19 ,TITLE='Segment Key' ,$
FIELD=CORP_204 , ,A03 ,A03 ,TITLE='Corp' ,$
FIELD=EMP_ID_204 , ,A09 ,A09 ,TITLE='Employee, ID' ,$
GROUP=SEG_NO_204 ,ALIAS=SEG_204 ,A03 ,A03 ,TITLE='Seg,Num' ,$
FIELD=RECTYPE ,SEG204,A03 ,A03 ,TITLE='Seg,Num'
,ACCEPT=204 ,$
FIELD=JOB_CD_204 , ,A01 ,A01 ,TITLE='Job,Cd' ,$
FIELD=OCCR_204_CD ,EBAVA ,A03 ,A03 ,TITLE='Occur' ,$
FIELD=LST_ROE_NUM ,EBAVB ,A09 ,A09 ,TITLE='Last,ROE,Num' ,$
FIELD=LST_ROE_DT ,EBAVD ,I8YYMD ,A08 ,TITLE='Last,ROE,Date' ,$
FIELD=FST_DAY_WRKD,EBAVJ ,I8YYMD ,A08 ,TITLE='First, Day,Worked' ,$
FIELD=LST_DAY_WRKD,EBAVO ,I8YYMD ,A08 ,TITLE='Last, Day,Worked' ,$
FIELD=UIC_PREM_PAY,EBAVU ,I8YYMD ,A08 ,TITLE='UIC,Prem,Pay' ,$
FIELD=ROE_RSN ,EBAVZ ,A01 ,A01 ,TITLE='ROE,Rsn' ,$
FIELD=EXP_RECAL_DT,EBAWB ,I8YYMD ,A08 ,TITLE='Expect,Recall,Date' ,$
FIELD=RECAL_CD ,EBAWG ,A01 ,A01 ,TITLE='Recal,Code' ,$
FIELD=EMPLR_USE ,EBAWH ,A09 ,A09 ,TITLE='Employer, Use' ,$
FIELD=ROE_ISSUE_DT,EBAWJ ,I8YYMD ,A08 ,TITLE=' ROE,Issue,Date' ,$
FIELD=ROE_RCT_NUM ,EBAWO ,A09 ,A09 ,TITLE=' ROE, RCT,Number' ,$
FIELD=ROE_PRINT_FL,EBAWP ,A01 ,A01 ,TITLE='ROE,Prt,Flg' ,$
FIELD=ROE_CNTC_NM ,EBAWQ ,A18 ,A18 ,TITLE='ROE Contact Name' ,$
FIELD=ROE_CNTC_PHN,EBAWR ,A10 ,A10 ,TITLE='ROE Contact, Phone' ,$
FIELD=USER_FIL204, ,A20 ,A20 ,$
$*************************************************************************
SEGNAME=EB_205 , SEGTYPE=S0, PARENT=ROOT ,$
FIELD=DELETE_205 , ,A01 ,A01 ,TITLE='Del,Byte' ,$
GROUP=KEY_205 ,ALIAS=KEY ,A19 ,A19 ,TITLE='Segment Key' ,$
FIELD=CORP_205 , ,A03 ,A03 ,TITLE='Corp' ,$
FIELD=EMP_ID_205 , ,A09 ,A09 ,TITLE='Employee, ID' ,$
GROUP=SEG_NO_205 ,ALIAS=SEG_205 ,A03 ,A03 ,TITLE='Seg,Num' ,$
FIELD=RECTYPE ,SEG205,A03 ,A03 ,TITLE='Seg,Num'
,ACCEPT=205 ,$
FIELD=JOB_CD_205 ,EBAZA ,A01 ,A01 ,TITLE='Job,Cd' ,$
FIELD=OCCR_205_CD , ,A03 ,A03 ,TITLE='Occur' ,$
GROUP=BRG_CTGRY_EB,ALIAS=EBAZB ,A04 ,A04 ,TITLE='Ctgry,Barg,Unit' ,$
FIELD=EMP_CTGRY_EB,EBAZC ,A01 ,A01 ,TITLE='Ctgry' ,$
FIELD=CTRC_HRLY_EB,EBAZD ,A01 ,A01 ,TITLE='Ctrc,Hrly,Code' ,$
FIELD=BRG_UNT_EB ,EBAZE ,A02 ,A02 ,TITLE='Barg,Unit' ,$
FIELD=LAYOFF_RSN ,EBAZF ,A02 ,A02 ,TITLE='Layoff,Reason' ,$
FIELD=EXP_RET_DT ,EBAZH ,I8YYMD ,A08 ,TITLE='Expect,Return, Date' ,$
FIELD=LAYOFF_STAT ,EBAZM ,A02 ,A02 ,TITLE='Lay,Rec,Stat' ,$
FIELD=PAY_TYP_205 ,EBAZN ,A01 ,A01 ,TITLE='Pay,Typ' ,$
FIELD=POS_EXC_EB ,EBAZO ,A01 ,A01 ,TITLE='Pos,Exc' ,$
FIELD=NPA_CD_205 ,EBAZP ,A01 ,A01 ,TITLE='NPA,Cd' ,$
FIELD=VAC_ACR_DT ,EBAZR ,I8YYMD ,A08 ,TITLE='Vac,Accr,Date' ,$
FIELD=NXT_REVW_DT ,EBAZX ,I8YYMD ,A08 ,TITLE=' Next,Review, Date' ,$
FIELD=NXT_INCR_DT ,EBBAD ,I8YYMD ,A08 ,TITLE='Next,Incr,Date' ,$
FIELD=CUR_JOB_STAT,EBBAI ,A02 ,A02 ,TITLE='Cur,Job,Stat' ,$
FIELD=JOB_EFFCT_DT,EBBAK ,I8YYMD ,A08 ,TITLE=' Job,Effect, Date' ,$
FIELD=LST_PAY_TYP ,EBBAP ,A01 ,A01 ,TITLE='Lst,Pay,Typ' ,$
FIELD=LST_PAY_DT ,EBBAR ,I8YYMD ,A08 ,TITLE='Last,Pay,Date' ,$
FIELD=LST_PAY_FY ,EBBAW ,A02 ,A02 ,TITLE='Lst,Pay,FY' ,$
FIELD=USER_FIL205, ,A20 ,A20 ,$
FIELD=COMPU_FILL22, ,A06 ,A06 ,$
$*************************************************************************
SEGNAME=EB_210 , SEGTYPE=S0, PARENT=ROOT ,$
FIELD=DELETE_210 , ,A01 ,A01 ,TITLE='Del,Byte' ,$
GROUP=KEY_210 ,ALIAS=KEY ,A19 ,A19 ,TITLE='Segment Key' ,$
GROUP=KEY_210B ,ALIAS=KEY3 ,A12 ,A12 ,TITLE='SEGMENT KEy' ,$
FIELD=CORP_210 , ,A03 ,A03 ,TITLE='Corp' ,$
FIELD=EMP_ID_210 , ,A09 ,A09 ,TITLE='Employee, ID' ,$
GROUP=SEG_NO_210 ,ALIAS=SEG_210 ,A03 ,A03 ,TITLE='Seg,Num' ,$
FIELD=RECTYPE ,SEG210,A03 ,A03 ,TITLE='Seg,Num'
,ACCEPT=210 ,$
FIELD=JOB_CD_210 ,EBBWA ,A01 ,A01 ,TITLE='Job,Cd' ,$
FIELD=ASGN_NUM_EB ,EBBWB ,A03 ,A03 ,TITLE='Asgn,Num' ,$
FIELD=ASGN_BGN_DT ,EBBWD ,I8YYMD ,A08 ,TITLE=' Assign,Bgn Date' ,$ <====== One of the fields I am using
FIELD=ASGN_END_DT ,EBBWJ ,I8YYMD ,A08 ,TITLE=' Assign,End Date' ,$ <====== One of the fields I am using
FIELD=START_EVENT ,EBBWO ,A01 ,A01 ,TITLE='Assgn,Start,Event' ,$
FIELD=STOP_EVENT ,EBBWP ,A01 ,A01 ,TITLE='Assgn,Stop,Event' ,$
FIELD=PRIOR_LINK ,EBBWQ ,A03 ,A03 ,TITLE='Prior,Link' ,$
FIELD=LINK_FLAG ,EBBWR ,A01 ,A01 ,TITLE='Lnk,Flg' ,$
FIELD=CALNDR_EB ,EBBWS ,A01 ,A01 ,TITLE='Cal' ,$
GROUP=SALSCHD_210 ,ALIAS=EBBWT ,A05 ,A05 ,TITLE='Slry,Schd' ,$
FIELD=SCHED_ID ,EBBWU ,A01 ,A01 ,TITLE='Schd, ID' ,$
FIELD=CLASS_RANGE ,EBBWV ,A03 ,A03 ,TITLE='Class,Range' ,$
FIELD=STEP ,EBBWW ,A01 ,A01 ,TITLE='Step' ,$
FIELD=REG_HRS_PD ,EBBXB ,P07.2C ,P03 ,TITLE=' Reg,Hours,Paid' ,$
FIELD=FTE_EB ,EBBXC ,P08.5C ,P04 ,TITLE='FTE' ,$
FIELD=PAYRATE_EB ,EBBXD ,P09.2C ,P04 ,TITLE='Pay,Rate' ,$
FIELD=RATE_TYP_EB ,EBBXE ,A01 ,A01 ,TITLE='Rate,Type' ,$
FIELD=PAY_PER_EB ,EBBXF ,A02 ,A02 ,TITLE='Pay,Per' ,$
FIELD=EARN_210_CD ,EBBXG ,A03 ,A03 ,TITLE='Earn,Code' ,$
FIELD=DIFF1_EB ,EBBXH ,A01 ,A01 ,TITLE='Shft,Diff, 1' ,$
FIELD=DIFF2_EB ,EBBXI ,A01 ,A01 ,TITLE='Shft,Diff, 2' ,$
FIELD=SLRY_HLD_FLG,EBBXJ ,A01 ,A01 ,TITLE='Slry,Hold,Flag' ,$
FIELD=RED_CIR_AMT ,EBBXK ,P06C ,P03 ,TITLE='Red,Cir,Amt' ,$
FIELD=OUT_CLS_AMT ,EBBXL ,P06C ,P03 ,TITLE=' Out, Of,Class, Amt' ,$
FIELD=JOB_CLS_EB ,EBBXM ,A04 ,A04 ,TITLE='Job,Cls' ,$
FIELD=POS_NUM_210 ,EBBXR ,A06 ,A06 ,TITLE='Pos,Num' ,$
FIELD=EXT_PAY_DT ,EBBXT ,I8YYMD ,A08 ,TITLE='Extend, Pay, Date' ,$
FIELD=STUDENT_FLG ,EBBXY ,A01 ,A01 ,TITLE='Student, Flag' ,$
FIELD=NPA_CD_210 ,EBBXZ ,A01 ,A01 ,TITLE='NPA,Cd' ,$
FIELD=OBJ_CD_210 ,EBBYA ,A04 ,A04 ,TITLE='Obj,Code' ,$
FIELD=ASGN_DIV ,EBBYB ,A03 ,A03 ,TITLE='Asgn,Div' ,$
FIELD=ASGN_DEPT ,EBBYC ,A05 ,A05 ,TITLE='Asgn,Dept' ,$
FIELD=ASGN_UNIT ,EBBYD ,A05 ,A05 ,TITLE='Asgn,Unit' ,$
FIELD=TIME_LOC_EB ,EBBYE ,A03 ,A03 ,TITLE='Asgn,Time,Loc' ,$
FIELD=PRIM_ASGN_FL,EBBYF ,A01 ,A01 ,TITLE='Prim,Asgn,Flag' ,$
FIELD=POS_CNTL_FLG,EBBYG ,A01 ,A01 ,TITLE='Pos,Cntl,Flag' ,$
FIELD=LOCAL_TAX_CD,EBBYH ,A03 ,A03 ,TITLE='Local, Tax,Code' ,$
FIELD=ANN_SLRY ,EBBYI ,P11.2C ,P05 ,TITLE='Annual,Salary' ,$
FIELD=ANN_SLRY_FLG,EBBYJ ,A01 ,A01 ,TITLE='Ann,Slry,Flag' ,$
FIELD=ASGN_ROLL_FL,EBBYK ,A01 ,A01 ,TITLE='Asgn,Roll,Flag' ,$
FIELD=ASGN_CAMP_CD,EBBYL ,A02 ,A02 ,TITLE='Asgn,Camp,Code' ,$
FIELD=USER_FIL210, ,A50 ,A50 ,$
FIELD=PRI_BEN_FLG ,EBCAK ,A01 ,A01 ,TITLE='Primary,Benefit,Flag' ,$
FIELD=ASN_ELIG_GRP,EBCAL ,A02 ,A02 ,TITLE='Assign,Elig,Group' ,$
FIELD=BEN_EFF_DT ,EBCAM ,I8YYMD ,A08 ,TITLE='Benefits,Effective,Date' ,$
FIELD=TEX_HRIS_NO ,EBUPR ,A03 ,A03 ,TITLE='HRIS,Seq' ,$
$*************************************************************************
SEGNAME=EB_220 , SEGTYPE=S0, PARENT=ROOT ,$
FIELD=DELETE_220 , ,A01 ,A01 ,TITLE='Del,Byte' ,$
GROUP=KEY_220 ,ALIAS=KEY ,A19 ,A19 ,TITLE='Segment Key' ,$
FIELD=CORP_220 , ,A03 ,A03 ,TITLE='Corp' ,$
FIELD=EMP_ID_220 , ,A09 ,A09 ,TITLE='Employee, ID' ,$
GROUP=SEG_NO_220 ,ALIAS=SEG_220 ,A03 ,A03 ,TITLE='Seg,Num' ,$
FIELD=RECTYPE ,SEG220,A03 ,A03 ,TITLE='Seg,Num'
,ACCEPT=220 ,$
FIELD=JOB_CD_220 ,EBCTA ,A01 ,A01 ,TITLE='Job,Cd' ,$
FIELD=OCCR_220_CD ,EBCTB ,A03 ,A03 ,TITLE='Occur' ,$
FIELD=ASGN_CD_220 ,EBCTC ,A03 ,A03 ,TITLE='T2/3,Asgn,Code' ,$
FIELD=EARN_220_CD ,EBCTD ,A03 ,A03 ,TITLE='T2/3,Earn,Code' ,$
FIELD=HOURS_220 ,EBCTE ,P07.2C ,P03 ,TITLE='T2/3,Hours' ,$
FIELD=RATE_220 ,EBCTF ,P07.2C ,P03 ,TITLE='T2/3,Rate' ,$
FIELD=SALSCHD_220 ,EBCTG ,A05 ,A05 ,TITLE='T2/3,Slry,Schd' ,$
FIELD=AMOUNT_220 ,EBCTM ,P09.2C ,P04 ,TITLE=' T2/3,Amount' ,$
FIELD=SIGN_220 ,EBCTN ,A01 ,A01 ,TITLE='T2/3,Sign' ,$
FIELD=PAY_TYP_220 ,EBCTO ,A01 ,A01 ,TITLE='T2/3,Pay,Typ' ,$
FIELD=PAY_ID_220 ,EBCTP ,A01 ,A01 ,TITLE='T2/3,Pay, ID' ,$
FIELD=PER_NUM_220 ,EBCTQ ,A02 ,A02 ,TITLE='T2/3,Per,Num' ,$
FIELD=PER_BGN_220 ,EBCTR ,I8YYMD ,A08 ,TITLE=' T2/3,Period,Begin, Date' ,$
FIELD=PER_END_220 ,EBCTX ,I8YYMD ,A08 ,TITLE=' T2/3,Period, End, Date' ,$
FIELD=COMPU_FILL27, ,A02 ,A02 ,$
FIELD=LBR_FY_220 ,EBCUD ,A02 ,A02 ,TITLE='T2/3,Lbr,Acct, FY' ,$
FIELD=LBR_CAMP_220,EBCUE ,A02 ,A02 ,TITLE='T2/3,Lbr,Acct,Camp' ,$
FIELD=LBR_ACCT_220,EBCUF ,A10 ,A10 ,TITLE=' T2/3, Labor,Account,Num' ,$
FIELD=LBR_EFF_220 ,EBCUI ,A02 ,A02 ,TITLE='T2/3,Lbr,Eff,Code' ,$
FIELD=BEN_FY_220 ,EBCUJ ,A02 ,A02 ,TITLE='T2/3,Ben,Acct, FY' ,$
FIELD=BEN_CAMP_220,EBCUK ,A02 ,A02 ,TITLE='T2/3,Ben,Acct,Camp' ,$
FIELD=BEN_ACCT_220,EBCUL ,A10 ,A10 ,TITLE=' T2/3,Benefit,Account,Num' ,$
FIELD=OVRD_T2_EB ,EBCUO ,A01 ,A01 ,TITLE='T2/3,Sys,Calc,Ovrd' ,$
FIELD=ADJ_T3_HRS ,EBCUP ,P07.2C ,P03 ,TITLE='Adj,T3,Hrs' ,$
FIELD=ADJ_T3_AMT ,EBCUQ ,P09.2C ,P04 ,TITLE='Adjust, T3,Amount' ,$
FIELD=ADJ_T3_SIGN ,EBCUR ,A01 ,A01 ,TITLE='Adj,T3,Sign' ,$
FIELD=LV_ACCR_EB ,EBCUS ,A01 ,A01 ,TITLE=' Lv,Accr,Flg' ,$
FIELD=T2_T3_FLG ,EBCUT ,A01 ,A01 ,TITLE='T2,T3,Flg' ,$
FIELD=EARN_TP_220 ,EBCUU ,A01 ,A01 ,TITLE='T2/3,Earn,Type' ,$
FIELD=DT_WRK_FR_EB,EBCUW ,I8YYMD ,A08 ,TITLE='T2/3 Dt,Work Fr' ,$
FIELD=DT_WRK_TO_EB,EBCVC ,I8YYMD ,A08 ,TITLE='T2 Date,Work To' ,$
FIELD=PROC_FY_220 ,EBCVH ,A02 ,A02 ,TITLE=' T2,Proc, FY' ,$
FIELD=UIC_FY_220 ,EBCVI ,A02 ,A02 ,TITLE='T3,UIC,FY' ,$
FIELD=PAY_TYPE_220,EBCVJ ,A01 ,A01 ,TITLE=' T3,UIC,Pay,Type' ,$
FIELD=PAY_NUM_220 ,EBCVK ,A02 ,A02 ,TITLE='T3,UIC,Pay,Num' ,$
FIELD=ADJ_WEEK_220,EBCVL ,P05.2C ,P02 ,TITLE='T3,UIC,Adj,Wk' ,$
FIELD=ADJ_FUNC_220,EBCVM ,A01 ,A01 ,TITLE=' T3,UIC,Adj,Func' ,$
FIELD=USER_FILL220, ,A20 ,A20 ,$
$*************************************************************************
SEGNAME=EB_240 , SEGTYPE=S0, PARENT=ROOT ,$
FIELD=DELETE_240 , ,A01 ,A01 ,TITLE='Del,Byte' ,$
GROUP=KEY_240 ,ALIAS=KEY ,A19 ,A19 ,TITLE='Segment Key' ,$
FIELD=CORP_240 , ,A03 ,A03 ,TITLE='Corp' ,$
FIELD=EMP_ID_240 , ,A09 ,A09 ,TITLE='Employee, ID' ,$
GROUP=SEG_NO_240 ,ALIAS=SEG_240 ,A03 ,A03 ,TITLE='Seg,Num' ,$
FIELD=RECTYPE ,SEG240,A03 ,A03 ,TITLE='Seg,Num'
,ACCEPT=240 ,$
FIELD=JOB_CD_240 ,EBDRA ,A01 ,A01 ,TITLE='Job,Cd' ,$
FIELD=OCCR_240_CD ,EBDRB ,A03 ,A03 ,TITLE='Occur' ,$
FIELD=TDB_LVL ,EBDRC ,A01 ,A01 ,TITLE='T4,TDB,Lvl' ,$
FIELD=TDB_CD ,EBDRD ,A03 ,A03 ,TITLE=' T4,TDB,Code' ,$
FIELD=TDB_PLN_CD ,EBDSH ,A03 ,A03 ,TITLE=' T4,Plan,Code' ,$
FIELD=TDB_CVR_CD ,EBDSI ,A03 ,A03 ,TITLE=' T4,Covr,Code' ,$
FIELD=ACTN_PCT_OVR,EBDRE ,A03 ,A03 ,TITLE='T4,Act,Pct,Ovr' ,$
FIELD=OVRD_AMT ,EBDRF ,P09.2C ,P04 ,TITLE=' T4, Ovrd,Amount' ,$
FIELD=OVRD_SIGN ,EBDRG ,A01 ,A01 ,TITLE=' T4,Ovrd,Sign' ,$
FIELD=OVRD_FUNC ,EBDRH ,A01 ,A01 ,TITLE=' T4,Ovrd,Func' ,$
FIELD=OVRD_ASGN_JB,EBDRI ,A01 ,A01 ,TITLE=' T4,Ovrd,Asgn,Job' ,$
FIELD=OVRD_ASGN_CD,EBDRJ ,A03 ,A03 ,TITLE=' T4,Ovrd,Asgn,Code' ,$
FIELD=OVRD_TX_AMT ,EBDRK ,P09.2C ,P04 ,TITLE=' T4, Tax,Gross' ,$
FIELD=OVRD_TX_SIGN,EBDRL ,A01 ,A01 ,TITLE=' T4, Tax,Gross,Sign' ,$
FIELD=OVRD_TX_FUNC,EBDRM ,A01 ,A01 ,TITLE=' T4, Tax,Gross,Func' ,$
$*************************************************************************
$*
$* CHANGE BEGINS THVSM037 02/10/00 BM
$*
$*************************************************************************
FIELD=USER_FIL240, ,A20 ,A20 ,$
FIELD=PAY_TYPE_240,EBDSJ ,A01 ,A01 ,TITLE='T4,Pay,Type' ,$
FIELD=PAY_R_X_240 ,EBDSK ,A01 ,A01 ,TITLE='T4,R/X' ,$
FIELD=PAY_PER_240 ,EBDSL ,A02 ,A02 ,TITLE='T4, Pay,Period' ,$
FIELD=FSCL_YR_240 ,EBDSM ,A02 ,A02 ,TITLE='T4,Fscl,Year' ,$
FIELD=COMMENT_240 ,EBDSN ,A30 ,A30 ,TITLE=' T4 ,Comment' ,$
$*************************************************************************
$*
$* CHANGE ENDS THVSM037 02/10/00 BM
$*
$*************************************************************************
SEGNAME=EB_300 , SEGTYPE=S0, PARENT=ROOT ,$
FIELD=DELETE_300 , ,A01 ,A01 ,TITLE='Del,Byte' ,$
GROUP=KEY_300 ,ALIAS=KEY ,A19 ,A19 ,TITLE='Segment Key' ,$
GROUP=KEY_300B ,ALIAS=KEY8 ,A12 ,A12 ,TITLE='SEGMENT KEy' ,$
FIELD=CORP_300 , ,A03 ,A03 ,TITLE='Corp' ,$
FIELD=EMP_ID_300 , ,A09 ,A09 ,TITLE='Employee, ID' ,$
GROUP=SEG_NO_300 ,ALIAS=SEG_300 ,A03 ,A03 ,TITLE='Seg,Num' ,$
FIELD=RECTYPE ,SEG300,A03 ,A03 ,TITLE='Seg,Num'
,ACCEPT=300 ,$
FIELD=JOB_CD_300 ,EBEOA ,A01 ,A01 ,TITLE='Job,Cd' ,$
FIELD=EARN_300_CD ,EBEOB ,A03 ,A03 ,TITLE='Earn,Code' ,$
FIELD=EARN_TP_300 ,EBEOC ,A01 ,A01 ,TITLE='Earn,Type' ,$
FIELD=CWSP_LIMIT ,EBEOD ,P06C ,P03 ,TITLE='CWSP,Earn,Limit' ,$
FIELD=CURR_HRS ,EBEOE ,P09.2C ,P04 ,TITLE=' Earn,Current, Hours' ,$
FIELD=MTD_300_HRS ,EBEOF ,P09.2C ,P04 ,TITLE='Earn, MTD,Hours' ,$
FIELD=QTD_300_HRS ,EBEOG ,P09.2C ,P04 ,TITLE='Earn, QTD,Hours' ,$
FIELD=FYTD_300_HRS,EBEOH ,P09.2C ,P04 ,TITLE='Earn,FYTD,Hours' ,$
FIELD=CYTD_300_HRS,EBEOI ,P09.2C ,P04 ,TITLE='Earn,CYTD,Hours' ,$
FIELD=RTD_300_HRS ,EBEOJ ,P09.2C ,P04 ,TITLE='Earn, RTD,Hours' ,$
FIELD=CUR_300_AMT ,EBEOK ,P11.2C ,P05 ,TITLE=' Earn,Current,Amount' ,$
FIELD=MTD_300_AMT ,EBEOL ,P11.2C ,P05 ,TITLE=' Earn, MTD,Amount' ,$
FIELD=QTD_300_AMT ,EBEOM ,P11.2C ,P05 ,TITLE=' Earn, QTD,Amount' ,$
FIELD=FYTD_300_AMT,EBEON ,P11.2C ,P05 ,TITLE=' Earn, FYTD,Amount' ,$
FIELD=CYTD_300_AMT,EBEOO ,P11.2C ,P05 ,TITLE=' Earn, CYTD,Amount' ,$
FIELD=RTD_300_AMT ,EBEOP ,P11.2C ,P05 ,TITLE=' Earn, RTD,Amount' ,$
FIELD=PMTD_300_HRS,EBEOQ ,P07.2C ,P03 ,TITLE='Earn,PMTD,Hours' ,$
FIELD=PRI_MO1_HRS ,EBEOR ,P07.2C ,P03 ,TITLE='Earn,Prior,Month1,Hours' ,$
FIELD=PRI_MO2_HRS ,EBEOS ,P07.2C ,P03 ,TITLE=' Earn,Prior,Month2,Hours' ,$
FIELD=PQTD_300_HRS,EBEOT ,P09.2C ,P04 ,TITLE='Earn,PQTD,Hours' ,$
FIELD=PQTD_300_AMT,EBEOU ,P11.2C ,P05 ,TITLE=' Earn,PQTD Amt' ,$
FIELD=PYTD_300_HRS,EBEOV ,P09.2C ,P04 ,TITLE='Earn,PYTD,Hours' ,$
FIELD=PYTD_300_AMT,EBEOW ,P11.2C ,P05 ,TITLE=' Earn,PYTD Amt' ,$ <======== one of the fields I am using
FIELD=USER_FIL300, ,A20 ,A20 ,$
FIELD=NR_TAX_CURR ,EBEPR ,P09.2C ,P05 ,TITLE='NRA Curr,Tax Amt' ,$
FIELD=NR_NTAX_CURR,EBEPS ,P09.2C ,P05 ,TITLE='NRA Curr,NTax Amt' ,$
FIELD=INC_CAT_300 ,EBEPT ,A02 ,A02 ,TITLE='Income,Category' ,$
$**CC
$**CC change begins THVSM047
$**CC
FIELD=PMO_300_AMT ,EBEPU ,P11.2C ,P05 ,TITLE=' Earn,PMth Amt' ,$
FIELD=PFY_300_HRS ,EBEPV ,P09.2C ,P04 ,TITLE='Earn,PFYr,Hours' ,$
FIELD=PFY_300_AMT ,EBEPW ,P11.2C ,P05 ,TITLE=' Earn,PFYr Amt' ,$
$**CC
$**CC change ends THVSM047
$**CC
$*************************************************************************




Thank you in advance. This forum has helped me greatly!

This message has been edited. Last edited by: Kerry,

the car file is multisegment
recreate your problem on the car file.

Do a CHECK FILE PICT for your reporting structure. That should make things a bit more clear. The problem you are facing is that your defined field uses fields that are in different segments and these different segments do not have a parent child relation, but more like sibling relation. This is not allowed.
Once you know exactly what the structure is you could try to select a different starting point for your request so that the relation of the segments you need become a parent-child relation. You can do that by specifying your entry point like: TABLE FILE vsam.FIELD and of course DEFINE FILE vsam.FIELD.

Hope this helps...

Try running CHECK FILE [filename] PICTURE to see the structure of your file and then understand why there are different data paths.

T

Gamp and Tony,

Thanks for your replies. I'll give that a shot and check out the results. I had thought about that sibling-to-sibling relationship, but couldn't think of the correct way of saying it. Thanks again!