In Mainframe FOCUS, in a dataset I have, the Master File Definition has several segments that can have multiple rows for the same record (for example, an employee can have a record for each month they have been working).

My question: how, in code, would I go through each occurrence of these rows of data? What I want to do is to process each row, adding info in a particular field to a master area.

Thanks in advance for your replies...looking forward to them!

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

You don't mention the file type, which may or may not be relevant. I may be misunderstanding your questions, but whenever you reference the segment (by referencing a field in that segment), by default you will be processing each row or "occurrence" for that record. It's set up in a pseudo-parent-child relationship. By specifying a "child" field, you process records at that lowest level.

One suggestion that may help you out it to use what is called an "alternate view" of the Master file. This is all described in the documentation. It basically puts your descendant segment at the top of the tree, while keeping all other relationships intact.

Now if you're having to simultaneously access multiple occurrences in multiple segment, that requires some advanced programming.

Maybe you could provide an example to help clarify what you are looking for.

Darin is correct. We need to know the file type of your file.

quote:

What I want to do is to process each row, adding info in a particular field to a master area.

Does this mean that you want to 'update' the data in the file or just show it on the report?

Dara and Ginny,

Thanks for your fast replies! All I want is to show data in a report, but for each repeating line, show that line's values as well as showing, at the end of the lines, a grand total for all values. Somewhat like this:

val1 val2 val3 val4 val5 tot(val1,val2,val3,etc)

I've been away from FOCUS for for 10 years, but prior to that, had worked with FOCUS going way back. My absence from FOCUS is what's causing my amnesia.

Thanks for replying...looking forward to hearing back from you!

Try this:

TABLE FILE filename
PRINT columns-from-repeating-lines ROW-TOTAL
BY column-from-parent 
END

Here is a working example:

 
TABLE FILE CAR
PRINT RCOST DCOST ROW-TOTAL
BY COUNTRY
BY CAR
BY MODEL
BY BODYTYPE
END 

Thanks, Ginny,

I'll give that a shot and see what it looks like.

I do have another question regarding this issue.... how should I table print my repeating line totals so that for each parent record, the totals are printed across? The reason I ask is because my client wants to have a spreadsheet that shows each repeating piece of data going across. Maybe it's my ignorance... is that what a row-total will do?

Thanks!

Webmeister,

You don't give us a lot to go on. Are you saying that you want a subtotal of va11, val2, val3, etc by each parent? But you want it to appear on the parent line?

Could you provide more detail please? Maybe an example with real numbers and values?

Hi, Ginny,

What I want to accomplish is this:
Read a group of records for an employee that contain his/her earning data. For each employee, there can be up to 50 different earning codes (employee can get a different job, or title, or location, so earnings codes will be different for up to 50 possibilities). As the program goes through this employee's earning codes and earning amounts, I want to fill each of up to 50 fields with this different information. So...when I'm finished processing one employee, I then want to print out a line that has their name, and then each of these up to 50 codes and amounts (if there is nothing for a certain code, I want to place a zero in that field.

For each employee, I want to see a record that looks like this:

Name earn1 earn2 earn3 .... earn50

If you wish, I can send my code...if you'll explain how I could do that).

Thank you again for replying!

Can you post the master for your file? I'm starting to get the idea but I need to see the structure of the data.

Hi, Ginny,

Is there a proper way to post a master or to post source code, so that the alignment of lines doesn't get messed up?

Hi again, Ginny,

I think I figured how to post my master. My questions revolve around the portion of the master called SEGNAME_300. Thanks for your help!

 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'          ,$
  FIELD=ASGN_END_DT ,EBBWJ ,I8YYMD ,A08    ,TITLE=' Assign,End Date'          ,$
  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'           ,$
  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
$*************************************************************************
SEGNAME=EB_310  , SEGTYPE=S0, PARENT=ROOT                                     ,$
  FIELD=DELETE_310  ,      ,A01    ,A01    ,TITLE='Del,Byte'                  ,$
GROUP=KEY_310     ,ALIAS=KEY         ,A19  ,A19     ,TITLE='Segment Key'      ,$
  FIELD=CORP_310    ,      ,A03    ,A03    ,TITLE='Corp'                      ,$
  FIELD=EMP_ID_310  ,      ,A09    ,A09    ,TITLE='Employee,   ID'            ,$
GROUP=SEG_NO_310    ,ALIAS=SEG_310   ,A03  ,A03     ,TITLE='Seg,Num'          ,$
  FIELD=RECTYPE     ,SEG310,A03    ,A03    ,TITLE='Seg,Num'
                    ,ACCEPT=310                                               ,$
  FIELD=JOB_CD_310  ,      ,A01    ,A01    ,TITLE='Job,Cd'                    ,$
  FIELD=TAX_CD_310  ,EBERA ,A03    ,A03    ,TITLE='Tax,Cd'                    ,$
  FIELD=PCT_TIME    ,EBERB ,P04C   ,P02    ,TITLE='Pct, Of,Time'              ,$
  FIELD=TAX_MAR_STAT,EBERC ,A01    ,A01    ,TITLE='Tax,Mar,Stat'              ,$
  FIELD=RESID_CD    ,EBERE ,A01    ,A01    ,TITLE='Resid, Cd'                 ,$
  FIELD=EXEMPT_NUM  ,EBERG ,P06C   ,P03    ,TITLE=' Num,  Of,Exempt'          ,$
$**CC
$**CC   change begins  THVSM047
$**CC
$**DD  FIELD=ADDN_TAX_AMT,EBERH ,P06C   ,P03    ,TITLE='Addnl, Tax, Amt'      ,$
  FIELD=ADDN_TAX_AMT,EBERH ,P09.2C ,P04    ,TITLE='Addnl, Tax, Amt'           ,$
$**CC
$**CC   change ends    THVSM047
$**CC
  FIELD=TX_CURR_AMT ,EBERI ,P11.2C ,P05    ,TITLE='  Tax,Current, Amount'     ,$
  FIELD=TX_MTD_AMT  ,EBERJ ,P11.2C ,P05    ,TITLE=' Tax, MTD,Amount'          ,$
  FIELD=TX_QTD_AMT  ,EBERK ,P11.2C ,P05    ,TITLE=' Tax, QTD,Amount'          ,$
  FIELD=TX_FYTD_AMT ,EBERL ,P11.2C ,P05    ,TITLE=' Tax, FYTD,Amount'         ,$
  FIELD=TX_CYTD_AMT ,EBERM ,P11.2C ,P05    ,TITLE=' Tax, CYTD,Amount'         ,$
  FIELD=TX_RTD_AMT  ,EBERN ,P11.2C ,P05    ,TITLE=' Tax, RTD,Amount'          ,$
  FIELD=TX_CURR_GROS,EBERO ,P11.2C ,P05    ,TITLE='  Tax,Current, Gross'      ,$
  FIELD=TX_MTD_GROS ,EBERP ,P11.2C ,P05    ,TITLE=' Tax, MTD,Gross'           ,$
  FIELD=TX_QTD_GROS ,EBERQ ,P11.2C ,P05    ,TITLE='  Tax, QTD,Gross'          ,$
  FIELD=TX_FYTD_GROS,EBERR ,P11.2C ,P05    ,TITLE=' Tax,FYTD,Gross'           ,$
  FIELD=TX_CYTD_GROS,EBERS ,P11.2C ,P05    ,TITLE=' Tax,CYTD,Gross'           ,$
  FIELD=TX_RTD_GROS ,EBERT ,P11.2C ,P05    ,TITLE='  Tax, RTD,Gross'          ,$
  FIELD=TX_PQTD_AMT ,EBERU ,P11.2C ,P05    ,TITLE=' Tax, PQTD,Amount'         ,$
  FIELD=TX_PQTD_GROS,EBERV ,P11.2C ,P05    ,TITLE=' Tax,PQTD,Gross'           ,$
  FIELD=TX_PYTD_AMT ,EBERW ,P11.2C ,P05    ,TITLE=' Tax, PYTD,Amount'         ,$
  FIELD=TX_PYTD_GROS,EBERX ,P11.2C ,P05    ,TITLE=' Tax,PYTD,Gross'           ,$
  FIELD=USER_FIL310,       ,A20    ,A20                                       ,$
$**CC
$**CC   change begins  THVSM047
$**CC
  FIELD=TX_PMO_AMT  ,EBESS ,P11.2C ,P05    ,TITLE=' Tax,PMth,Amount'          ,$
  FIELD=TX_PMO_GROS ,EBEST ,P11.2C ,P05    ,TITLE=' Tax,PMth,Gross'           ,$
  FIELD=TX_PFY_AMT  ,EBESU ,P11.2C ,P05    ,TITLE=' Tax,PFYr,Amount'          ,$
  FIELD=TX_PFY_GROS ,EBESV ,P11.2C ,P05    ,TITLE=' Tax,PFYr,Gross'           ,$
$**CC
$**CC   change ends    THVSM047
$**CC
$*************************************************************************
SEGNAME=EB_320  , SEGTYPE=S0, PARENT=ROOT                                     ,$
  FIELD=DELETE_320  ,      ,A01    ,A01    ,TITLE='Del,Byte'                  ,$
GROUP=KEY_320     ,ALIAS=KEY       ,A19    ,A19     ,TITLE='Segment Key'      ,$
GROUP=KEY_320B    ,ALIAS=KEY10     ,A12    ,A12     ,TITLE='SEGMENT KEy'      ,$
  FIELD=CORP_320    ,      ,A03    ,A03    ,TITLE='Corp'                      ,$
  FIELD=EMP_ID_320  ,      ,A09    ,A09    ,TITLE='Employee,   ID'            ,$
GROUP=SEG_NO_320    ,ALIAS=SEG_320   ,A03  ,A03     ,TITLE='Seg,Num'          ,$
  FIELD=RECTYPE     ,SEG320,A03    ,A03    ,TITLE='Seg,Num'
                    ,ACCEPT=320                                               ,$
  FIELD=JOB_CD_320  ,EBEUA ,A01    ,A01    ,TITLE='Job,Cd'                    ,$
  FIELD=DED_CD_320  ,EBEUB ,A03    ,A03    ,TITLE='Ded,Cd'                    ,$
  FIELD=DED_ID      ,EBEUC ,A10    ,A10    ,TITLE='Deduction,   ID'           ,$
  FIELD=DED_AMT_ACT ,EBEUD ,A01    ,A01    ,TITLE='Ded,Act,Amt,Cd'            ,$
  FIELD=DED_ACT_GOAL,EBEUE ,A01    ,A01    ,TITLE='Ded,Act,Goal,Cd'           ,$
  FIELD=DED_ARR_ACT ,EBEUF ,A01    ,A01    ,TITLE='Ded,Act,Arr,Cd'            ,$
  FIELD=DED_NOT_TAK ,EBEUG ,P09.2C ,P04    ,TITLE='Deduction,Not Taken'       ,$
  FIELD=DED_AMT_PCT ,EBEUH ,P09.3C ,P04    ,TITLE='Deduction, Amt Pct'        ,$
  FIELD=DED_AMT_GOAL,EBEUI ,P09.2C ,P04    ,TITLE='Deduction,Goal Amt'        ,$
  FIELD=DED_GOAL_PD ,EBEUJ ,P09.2C ,P04    ,TITLE='Deduction,Goal Paid'       ,$
  FIELD=DED_ARR_AMT ,EBEUK ,P09.2C ,P04    ,TITLE='Deduction,Arr Amt'         ,$
  FIELD=DED_BGN_DT  ,EBEUM ,I8YYMD ,A08    ,TITLE=' Deduct , Begin,  Date'    ,$
  FIELD=DED_END_DT  ,EBEUS ,I8YYMD ,A08    ,TITLE=' Deduct ,End Date'         ,$
  FIELD=DED_CURR_AMT,EBEUX ,P11.2C ,P05    ,TITLE='Deduction, Cur Amt'        ,$
  FIELD=DED_MTD_AMT ,EBEUY ,P11.2C ,P05    ,TITLE='Deduction, MTD Amt'        ,$
  FIELD=DED_QTD_AMT ,EBEUZ ,P11.2C ,P05    ,TITLE='Deduction, QTD Amt'        ,$
  FIELD=DED_FYTD_AMT,EBEVA ,P11.2C ,P05    ,TITLE='Deduction,FYTD Amt'        ,$
  FIELD=DED_CYTD_AMT,EBEVB ,P11.2C ,P05    ,TITLE='Deduction,CYTD Amt'        ,$
  FIELD=DED_RTD_AMT ,EBEVC ,P11.2C ,P05    ,TITLE='Deduction, RTD Amt'        ,$
  FIELD=DED_SHLT_FLG,EBEVD ,A01    ,A01    ,TITLE='Ded,Shlt,Flag'             ,$
  FIELD=DED_PQTD_AMT,EBEVE ,P11.2C ,P05    ,TITLE= 'Deduction,PQTD Amt'       ,$
  FIELD=DED_PYTD_AMT,EBEVF ,P11.2C ,P05    ,TITLE=' Deduction,PYTD Amt'       ,$
  FIELD=USER_FIL320,       ,A20    ,A20                                       ,$
  FIELD=DED_PLAN    ,EBEXA ,A03    ,A03    ,TITLE=' Deduction,Plan Code'      ,$
  FIELD=DED_COVERAGE,EBEXB ,A03    ,A03    ,TITLE=' Deduction,Coverage'       ,$
  FIELD=DED_COV_BGN ,EBEXC ,I8YYMD ,A08    ,TITLE=' Deduct Cover,Begin Date'  ,$
  FIELD=DED_COV_END ,EBEXH ,I8YYMD ,A08    ,TITLE=' Deduct Cover,End Date'    ,$
  FIELD=DED_CURRENT ,EBEXN ,A01    ,A01    ,TITLE=' Deduct,Current,  Ind'     ,$
  FIELD=DED_APPROVAL EBEXO ,A01    ,A01    ,TITLE=' Deduct,ApprovaL,  Ind'    ,$
$*************************************************************************
SEGNAME=EB_330  , SEGTYPE=S0, PARENT=ROOT                                     ,$
  FIELD=DELETE_330  ,      ,A01    ,A01    ,TITLE='Del,Byte'                  ,$
GROUP=KEY_330     ,ALIAS=KEY         ,A19  ,A19     ,TITLE='Segment Key'      ,$
GROUP=KEY_330B    ,ALIAS=KEY330B     ,A12  ,A12     ,TITLE='SEGMENT KEy'      ,$
  FIELD=CORP_330    ,      ,A03    ,A03    ,TITLE='Corp'                      ,$
  FIELD=EMP_ID_330  ,      ,A09    ,A09    ,TITLE='Employee,   ID'            ,$
GROUP=SEG_NO_330    ,ALIAS=SEG_330   ,A03  ,A03     ,TITLE='Seg,Num'          ,$
  FIELD=RECTYPE     ,SEG330,A03    ,A03    ,TITLE='Seg,Num'
                    ,ACCEPT=330                                               ,$
  FIELD=JOB_CD_330  ,EBEXA ,A01    ,A01    ,TITLE='Job,Cd'                    ,$
  FIELD=BEN_CD_330  ,EBEXB ,A03    ,A03    ,TITLE='Ben,Cd'                    ,$
  FIELD=BEN_ID      ,EBEXC ,A10    ,A10    ,TITLE='Benefit,  ID'              ,$
  FIELD=BEN_ACT_AMT ,EBEXD ,A01    ,A01    ,TITLE='Ben,Act,Amt,Cd'            ,$
  FIELD=BEN_ACT_GOAL,EBEXE ,A01    ,A01    ,TITLE='Ben,Act,Goal,Cd'           ,$
  FIELD=BEN_ARR_CD  ,EBEXF ,A01    ,A01    ,TITLE='Ben,Act,Arr,Cd'            ,$
  FIELD=BEN_NOT_TAK ,EBEXG ,P09.2C ,P04    ,TITLE=' Benefit,Not Taken'        ,$
  FIELD=BEN_PCT_AMT ,EBEXH ,P09.3C ,P04    ,TITLE='Benefit,Amt Pct'           ,$
  FIELD=BEN_GOAL_AMT,EBEXI ,P09.2C ,P04    ,TITLE='Benefit,Goal Amt'          ,$
  FIELD=BEN_GOAL_PD ,EBEXJ ,P09.2C ,P04    ,TITLE=' Benefit,Goal Paid'        ,$
  FIELD=BEN_ARR_AMT ,EBEXK ,P09.2C ,P04    ,TITLE='Benefit,Arr Amt'           ,$
  FIELD=BEN_BGN_DT  ,EBEXM ,I8YYMD ,A08    ,TITLE='Benefit, Begin,  Date'     ,$
  FIELD=BEN_END_DT  ,EBEXS ,I8YYMD ,A08    ,TITLE='Benefit,End Date'          ,$
  FIELD=BEN_CURR_AMT,EBEXX ,P11.2C ,P05    ,TITLE='Benefit,Cur Amt'           ,$
  FIELD=BEN_MTD_AMT ,EBEXY ,P11.2C ,P05    ,TITLE='Benefit,MTD Amt'           ,$
  FIELD=BEN_QTD_AMT ,EBEXZ ,P11.2C ,P05    ,TITLE='Benefit,QTD Amt'           ,$
  FIELD=BEN_FYTD_AMT,EBEYA ,P11.2C ,P05    ,TITLE=' Benefit,FYTD Amt'         ,$
  FIELD=BEN_CYTD_AMT,EBEYB ,P11.2C ,P05    ,TITLE=' Benefit,CYTD Amt'         ,$
  FIELD=BEN_RTD_AMT ,EBEYC ,P11.2C ,P05    ,TITLE='Benefit,RTD Amt'           ,$
  FIELD=BEN_SHLT_FLG,EBEYD ,A01    ,A01    ,TITLE='Ben,Shlt,Flag'             ,$
  FIELD=BEN_PQTD_AMT,EBEYE ,P11.2C ,P05    ,TITLE=' Benefit,PQTD Amt'         ,$
  FIELD=BEN_PYTD_AMT,EBEYF ,P11.2C ,P05    ,TITLE=' Benefit,PYTD Amt'         ,$
  FIELD=USER_FIL330,       ,A20    ,A20                                       ,$
  FIELD=BEN_PLAN    ,EBFAA ,A03    ,A03    ,TITLE=' Benefit,Plan Code'        ,$
  FIELD=BEN_COVERAGE,EBFAB ,A03    ,A03    ,TITLE=' Benefit,Coverage'         ,$
  FIELD=BEN_COV_BGN ,EBFAC ,I8YYMD ,A08    ,TITLE='Benefit,Cover,Begin Date'  ,$
  FIELD=BEN_COV_END ,EBFAH ,I8YYMD ,A08    ,TITLE='Benefit Cover,End Date'    ,$
  FIELD=BEN_CURRENT ,EBFAN ,A01    ,A01    ,TITLE='Benefit,Current, Ind'      ,$
  FIELD=BEN_APPROVAL EBFAO ,A01    ,A01    ,TITLE='Benefit,ApprovaL, Ind'     ,$
$*************************************************************************
SEGNAME=EB_400  , SEGTYPE=S0, PARENT=ROOT                                     ,$
  FIELD=DELETE_400  ,      ,A01    ,A01    ,TITLE='Del,Byte'                  ,$
GROUP=KEY_400     ,ALIAS=KEY       ,A19    ,A19     ,TITLE='Segment Key'      ,$
  FIELD=CORP_400    ,      ,A03    ,A03    ,TITLE='Corp'                      ,$
  FIELD=EMP_ID_400  ,      ,A09    ,A09    ,TITLE='Employee,   ID'            ,$
GROUP=SEG_NO_400    ,ALIAS=SEG_400 ,A03    ,A03     ,TITLE='Seg,Num'          ,$
  FIELD=RECTYPE     ,SEG400,A03    ,A03    ,TITLE='Seg,Num'
                    ,ACCEPT=400                                               ,$
  FIELD=JOB_CD_400  ,EBFTA ,A01    ,A01    ,TITLE='Job,Cd'                    ,$
  FIELD=OCCR_400_CD ,EBFTB ,A03    ,A03    ,TITLE='Occur'                     ,$
  FIELD=LBR_FY_400  ,EBFTC ,A02    ,A02    ,TITLE='Lbr,Acct, FY'              ,$
  FIELD=LBR_CAMP_400,EBFTD ,A02    ,A02    ,TITLE='Lbr,Acct,Camp'             ,$
  FIELD=LBR_ACCT_400,EBFTE ,A06    ,A06    ,TITLE=' Labor,Account,Number'     ,$
  FIELD=OBJ_CD_400  ,EBFTF ,A04    ,A04    ,TITLE='Obj,Code'                  ,$
  FIELD=LBR_EFF_400 ,EBFTG ,A02    ,A02    ,TITLE='Lbr,Eff,Cd'                ,$
  FIELD=AMTPCT_CD_EB,EBFTH ,A01    ,A01    ,TITLE='Lbr,Amt,Pct,Cd'            ,$
  FIELD=AMT_PCT_EB  ,EBFTI ,P12.5C ,P06    ,TITLE='Lbr,Amt,Pct'               ,$
  FIELD=EARN_400_CD ,EBFTJ ,A03    ,A03    ,TITLE='Earn,Code'                 ,$
  FIELD=BGN_DT_400  ,EBFTL ,I8YYMD ,A08    ,TITLE='  Earn,Bgn Date'           ,$
  FIELD=END_DT_400  ,EBFTR ,I8YYMD ,A08    ,TITLE='  Earn,End Date'           ,$
  FIELD=BEN_FY_400  ,EBFTW ,A02    ,A02    ,TITLE='Ben,Acct, FY'              ,$
  FIELD=BEN_CAMP_400,EBFTX ,A02    ,A02    ,TITLE='Ben,Acct,Camp'             ,$
  FIELD=BEN_ACCT_400,EBFTY ,A10    ,A10    ,TITLE='Benefit,Account,Number'    ,$
  FIELD=POS_NUM_400 ,EBFUB ,A06    ,A06    ,TITLE='Pos,Num'                   ,$
  FIELD=USER_FIL400,       ,A20    ,A20                                       ,$
  FIELD=COMPU_FILL37,      ,A08    ,A08                                       ,$
$*************************************************************************
SEGNAME=EB_500  , SEGTYPE=S0, PARENT=ROOT                                     ,$
  FIELD=DELETE_500  ,      ,A01    ,A01    ,TITLE='Del,Byte'                  ,$
GROUP=KEY_500     ,ALIAS=KEY         ,A19  ,A19     ,TITLE='Segment Key'      ,$
GROUP=KEY_500B    ,ALIAS=KEY500B     ,A12  ,A12     ,TITLE='SEGMENT KEy'      ,$
  FIELD=CORP_500    ,      ,A03    ,A03    ,TITLE='Corp'                      ,$
  FIELD=EMP_ID_500  ,      ,A09    ,A09    ,TITLE='Employee,   ID'            ,$
GROUP=SEG_NO_500    ,ALIAS=SEG_500   ,A03  ,A03     ,TITLE='Seg,Num'          ,$
  FIELD=RECTYPE     ,SEG500,A03    ,A03    ,TITLE='Seg,Num'
                    ,ACCEPT=500                                               ,$
  FIELD=JOB_CD_500  ,      ,A01    ,A01    ,TITLE='Job,Cd'                    ,$
  FIELD=OCCR_500_CD ,      ,A03    ,A03    ,TITLE='Occur'                     ,$
  FIELD=DED_CD1_500 ,EBGQB ,A03    ,A03    ,TITLE='Dir,Dep,Ded,Cd'            ,$
  FIELD=ACCT1_TYP   ,EBGQC ,A01    ,A01    ,TITLE='Dir,Dep,Acct,Type'         ,$
  FIELD=PRENOTE1_FLG,EBGQD ,A01    ,A01    ,TITLE='Prenote, Flag'             ,$
  FIELD=BNK1_RTE_NUM,EBGQE ,A09    ,A09    ,TITLE=' Bank,Routing,Number'      ,$
  FIELD=BANK1_ACCT  ,EBGQF ,A17    ,A17    ,TITLE=' Bank,Account,Number'      ,$
  FIELD=DED_CD2_500 ,EBGQG ,A03    ,A03    ,TITLE='Dir,Dep,Ded,Cd'            ,$
  FIELD=ACCT2_TYP   ,EBGQH ,A01    ,A01    ,TITLE='Dir,Dep,Acct,Type'         ,$
  FIELD=PRENOTE2_FLG,EBGQI ,A01    ,A01    ,TITLE='Prenote, Flag'             ,$
  FIELD=BNK2_RTE_NUM,EBGQJ ,A09    ,A09    ,TITLE=' Bank,Routing,Number'      ,$
  FIELD=BANK2_ACCT  ,EBGQK ,A17    ,A17    ,TITLE=' Bank,Account,Number'      ,$
  FIELD=DED_CD3_500 ,EBUPG ,A03    ,A03    ,TITLE='Dir,Dep,Ded,Cd'            ,$
  FIELD=ACCT3_TYP   ,EBUPH ,A01    ,A01    ,TITLE='Dir,Dep,Acct,Type'         ,$
  FIELD=PRENOTE3_FLG,EBUPI ,A01    ,A01    ,TITLE='Prenote, Flag'             ,$
  FIELD=BNK3_RTE_NUM,EBUPJ ,A09    ,A09    ,TITLE=' Bank,Routing,Number'      ,$
  FIELD=BANK3_ACCT  ,EBUPK ,A17    ,A17    ,TITLE=' Bank,Account,Number'      ,$
  FIELD=DED_CD4_500 ,EBUPL ,A03    ,A03    ,TITLE='Dir,Dep,Ded,Cd'            ,$
  FIELD=ACCT4_TYP   ,EBUPM ,A01    ,A01    ,TITLE='Dir,Dep,Acct,Type'         ,$
  FIELD=PRENOTE4_FLG,EBUPN ,A01    ,A01    ,TITLE='Prenote, Flag'             ,$
  FIELD=BNK4_RTE_NUM,EBUPO ,A09    ,A09    ,TITLE=' Bank,Routing,Number'      ,$
  FIELD=BANK4_ACCT  ,EBUPP ,A17    ,A17    ,TITLE=' Bank,Account,Number'      ,$
  FIELD=DD_UPDATE   ,EBGQV ,A01    ,A01    ,TITLE=' Bank,Update, Flag'        ,$
  FIELD=USER_FIL500,       ,A20    ,A20                                       ,$
  FIELD=COMPU_FILL38,      ,A08    ,A08                                       ,$
$*************************************************************************
SEGNAME=EB_510  , SEGTYPE=S0, PARENT=ROOT                                     ,$
  FIELD=DELETE_510  ,      ,A01    ,A01    ,TITLE='Del,Byte'                  ,$
GROUP=KEY_510     ,ALIAS=KEY         ,A19  ,A19     ,TITLE='Segment Key'      ,$
  FIELD=CORP_510    ,      ,A03    ,A03    ,TITLE='Corp'                      ,$
  FIELD=EMP_ID_510  ,      ,A09    ,A09    ,TITLE='Employee,   ID'            ,$
GROUP=SEG_NO_510    ,ALIAS=SEG_510   ,A03  ,A03     ,TITLE='Seg,Num'          ,$
  FIELD=RECTYPE     ,SEG510,A03    ,A03    ,TITLE='Seg,Num'
                    ,ACCEPT=510                                               ,$
  FIELD=JOB_CD_510  ,      ,A01    ,A01    ,TITLE='Job,Cd'                    ,$
  FIELD=OCCR_510_CD ,      ,A03    ,A03    ,TITLE='Occur'                     ,$
  FIELD=QTD1_AMTFICA,EBHLA ,P09.2C ,P04    ,TITLE='QTD 1, FICA,Amount'        ,$
  FIELD=QTD1_GRSFICA,EBHLB ,P11.2C ,P05    ,TITLE='QTD 1,FICA,Gross'          ,$
  FIELD=QTD2_AMTFICA,EBHLC ,P09.2C ,P04    ,TITLE='QTD 2, FICA,Amount'        ,$
  FIELD=QTD2_GRSFICA,EBHLD ,P11.2C ,P05    ,TITLE='QTD 2,FICA,Gross'          ,$
  FIELD=QTD3_AMTFICA,EBHLE ,P09.2C ,P04    ,TITLE='QTD 3, FICA,Amount'        ,$
  FIELD=QTD3_GRSFICA,EBHLF ,P11.2C ,P05    ,TITLE='QTD 3,FICA,Gross'          ,$
  FIELD=QTD4_AMTFICA,EBHLG ,P09.2C ,P04    ,TITLE='QTD 4, FICA,Amount'        ,$
  FIELD=QTD4_GRSFICA,EBHLH ,P11.2C ,P05    ,TITLE='QTD 4,FICA,Gross'          ,$
  FIELD=USER_FIL510,       ,A20    ,A20                                       ,$
  FIELD=COMPU_FILL39,      ,A34    ,A34                                       ,$
$*************************************************************************
SEGNAME=EB_520  , SEGTYPE=S0, PARENT=ROOT                                     ,$
  FIELD=DELETE_520  ,      ,A01    ,A01    ,TITLE='Del,Byte'                  ,$
GROUP=KEY_520     ,ALIAS=KEY       ,A19    ,A19     ,TITLE='Segment Key'      ,$
  FIELD=CORP_520    ,      ,A03    ,A03    ,TITLE='Corp'                      ,$
  FIELD=EMP_ID_520  ,      ,A09    ,A09    ,TITLE='Employee,   ID'            ,$
GROUP=SEG_NO_520    ,ALIAS=SEG_520   ,A03  ,A03     ,TITLE='Seg,Num'          ,$
  FIELD=RECTYPE     ,SEG520,A03    ,A03    ,TITLE='Seg,Num'
                    ,ACCEPT=520                                               ,$
  FIELD=JOB_CD_520  ,      ,A01    ,A01    ,TITLE='Job,Cd'                    ,$
  FIELD=OCCR_520_CD ,      ,A03    ,A03    ,TITLE='Occur'                     ,$
  FIELD=CYTD_RCT_1  ,EBIIA ,P11.2C ,P05    ,TITLE='CYTD RCT 1'                ,$
  FIELD=PYTD_RCT_1  ,EBIIB ,P11.2C ,P05    ,TITLE='PYTD RCT 1'                ,$
  FIELD=CYTD_RCT_2  ,EBIIC ,P11.2C ,P05    ,TITLE='CYTD RCT 2'                ,$
  FIELD=PYTD_RCT_2  ,EBIID ,P11.2C ,P05    ,TITLE='PYTD RCT 2'                ,$
  FIELD=CYTD_RCT_3  ,EBIIE ,P11.2C ,P05    ,TITLE='CYTD RCT 3'                ,$
  FIELD=PYTD_RCT_3  ,EBIIF ,P11.2C ,P05    ,TITLE='PYTD RCT 3'                ,$
  FIELD=CYTD_RCT_4  ,EBIIG ,P11.2C ,P05    ,TITLE='CYTD RCT 4'                ,$
  FIELD=PYTD_RCT_4  ,EBIIH ,P11.2C ,P05    ,TITLE='PYTD RCT 4'                ,$
  FIELD=CYTD_RCT_5  ,EBIII ,P11.2C ,P05    ,TITLE='CYTD RCT 5'                ,$
  FIELD=PYTD_RCT_5  ,EBIIJ ,P11.2C ,P05    ,TITLE='PYTD RCT 5'                ,$
  FIELD=CYTD_RCT_6  ,EBIIK ,P11.2C ,P05    ,TITLE='CYTD RCT 6'                ,$
  FIELD=PYTD_RCT_6  ,EBIIL ,P11.2C ,P05    ,TITLE='PYTD RCT 6'                ,$
  FIELD=CYTD_RCT_7  ,EBIIM ,P11.2C ,P05    ,TITLE='CYTD RCT 7'                ,$
  FIELD=PYTD_RCT_7  ,EBIIN ,P11.2C ,P05    ,TITLE='PYTD RCT 7'                ,$
  FIELD=CYTD_RCT_8  ,EBIIO ,P11.2C ,P05    ,TITLE='CYTD RCT 8'                ,$
  FIELD=PYTD_RCT_8  ,EBIIP ,P11.2C ,P05    ,TITLE='PYTD RCT 8'                ,$
  FIELD=CYTD_RCT_9  ,EBIIQ ,P11.2C ,P05    ,TITLE='CYTD RCT 9'                ,$
  FIELD=PYTD_RCT_9  ,EBIIR ,P11.2C ,P05    ,TITLE='PYTD RCT 9'                ,$
  FIELD=USER_FIL520,       ,A20    ,A20                                       ,$
$*************************************************************************
SEGNAME=EB_610  , SEGTYPE=S0, PARENT=ROOT                                     ,$
  FIELD=DELETE_610  ,      ,A01    ,A01    ,TITLE='Del,Byte'                  ,$
GROUP=KEY_610     ,ALIAS=KEY       ,A19    ,A19     ,TITLE='Segment Key'      ,$
GROUP=KEY_610B    ,ALIAS=KEY16     ,A12    ,A12     ,TITLE='SEGMENT KEy'      ,$
  FIELD=CORP_610    ,      ,A03    ,A03    ,TITLE='Corp'                      ,$
  FIELD=EMP_ID_610  ,      ,A09    ,A09    ,TITLE='Employee,   ID'            ,$
GROUP=SEG_NO_610    ,ALIAS=SEG_610 ,A03    ,A03     ,TITLE='Seg,Num'          ,$
  FIELD=RECTYPE     ,SEG610,A03    ,A03    ,TITLE='Seg,Num'
                    ,ACCEPT=610                                               ,$
  FIELD=JOB_CD_610  ,      ,A01    ,A01    ,TITLE='Job,Cd'                    ,$
  FIELD=OCCR_610_CD ,      ,A03    ,A03    ,TITLE='Occur'                     ,$
  FIELD=FAC_RANK    ,EBJDA ,A02    ,A02    ,TITLE='Fac,Rank'                  ,$
  FIELD=SAB_ELIG    ,EBJDB ,A01    ,A01    ,TITLE='Sab,Elig'                  ,$
  FIELD=SAB_SERV_DT ,EBJDD ,I8YYMD ,A08    ,TITLE='Sab,Serv,Date'             ,$
  FIELD=EEO_RANK    ,EBJDI ,A02    ,A02    ,TITLE='EEO,Rank'                  ,$
  FIELD=EEO_RANK_DT ,EBJDK ,I8YYMD ,A08    ,TITLE='EEO Rank,  Date'           ,$
  FIELD=EEO_TEN_STAT,EBJDP ,A01    ,A01    ,TITLE='EEO,Ten,Stat'              ,$
  FIELD=EEO_TEN_DT  ,EBJDR ,I8YYMD ,A08    ,TITLE='  EEO,Tenure,  Date'       ,$
  FIELD=EEO_HIRE_RNK,EBJDW ,A02    ,A02    ,TITLE='EEO,Hire,Rank'             ,$
  FIELD=HEGIS_RPT_FL,EBJDX ,A01    ,A01    ,TITLE='HEGIS, Rpt,Flag'           ,$
  FIELD=HEGIS_MIL   ,EBJDY ,A01    ,A01    ,TITLE='HEGIS, Mil'                ,$
  FIELD=EEO_OCC_EB  ,EBJDZ ,A03    ,A03    ,TITLE='EEO,Occ'                   ,$
  FIELD=EEO_ESTB    ,EBJEA ,A03    ,A03    ,TITLE='EEO,Estb'                  ,$
  FIELD=OFFCL_EXMPT ,EBJEB ,A01    ,A01    ,TITLE='Offcl,Exmpt'               ,$
  FIELD=SOFT_MONEY  ,EBJEC ,A01    ,A01    ,TITLE='Soft,Money'                ,$
  FIELD=CNTRCT_EB   ,EBJED ,A02    ,A02    ,TITLE='Cntrct,Class'              ,$
  FIELD=UNION_ENTRY ,EBJEG ,I8YYMD ,A08    ,TITLE='Union,Entry,Date'          ,$
  FIELD=SPCL_SEN_RTS,EBJEL ,A02    ,A02    ,TITLE='Spcl,Sen,Rts'              ,$
  FIELD=SEN_DT_A    ,EBJEN ,I8YYMD ,A08    ,TITLE='Sen,Date, A'               ,$
  FIELD=SEN_DT_B    ,EBJET ,I8YYMD ,A08    ,TITLE='Sen,Date, B'               ,$
  FIELD=SEN_CHG_DT  ,EBJEZ ,I8YYMD ,A08    ,TITLE='Sen,Chg,Date'              ,$
  FIELD=OFFICER     ,EBJFE ,A01    ,A01    ,TITLE='Offcr'                     ,$
  FIELD=EEO_EXMPSTAT,EBJFF ,A01    ,A01    ,TITLE='EEO,Exmp,Stat'             ,$
  FIELD=EEO_FUNC    ,EBJFG ,A03    ,A03    ,TITLE='EEO,Func'                  ,$
  FIELD=USER_FIL610,       ,A20    ,A20                                       ,$
$*************************************************************************
SEGNAME=EB_611  , SEGTYPE=S0, PARENT=ROOT                                     ,$
  FIELD=DELETE_611  ,      ,A01    ,A01    ,TITLE='Del,Byte'                  ,$
GROUP=KEY_611     ,ALIAS=KEY       ,A19    ,A19     ,TITLE='Segment Key'      ,$
  FIELD=CORP_611    ,      ,A03    ,A03    ,TITLE='Corp'                      ,$
  FIELD=EMP_ID_611  ,      ,A09    ,A09    ,TITLE='Employee,   ID'            ,$
GROUP=SEG_NO_611    ,ALIAS=SEG_611 ,A03    ,A03     ,TITLE='Seg,Num'          ,$
  FIELD=RECTYPE     ,SEG611,A03    ,A03    ,TITLE='Seg,Num'
                    ,ACCEPT=611                                               ,$
  FIELD=JOB_CD_611  ,      ,A01    ,A01    ,TITLE='Job,Cd'                    ,$
  FIELD=OCCR_611_CD ,      ,A03    ,A03    ,TITLE='Occur'                     ,$
  FIELD=PREV_EMP_TYP,EBJKA ,A02    ,A02    ,TITLE='Prev,Emp,Type'             ,$
  FIELD=PREV_CNTRY  ,EBJKB ,A05    ,A05    ,TITLE='Prev,Cntry'                ,$
GROUP=STCN_RANK   ,ALIAS=EBJKC     ,A02  ,A02       ,TITLE='Stat,Can,Rank'    ,$
  FIELD=STCN_RANK1  ,EBJKD ,A01    ,A01    ,TITLE='Stat,Can,Rank,  1'         ,$
  FIELD=STCN_RANK2  ,EBJKE ,A01    ,A01    ,TITLE='Stat,Can,Rank,  2'         ,$
  FIELD=STCN_RANK_DT,EBJKG ,I04YY  ,A04    ,TITLE='Stat,Can,Date'             ,$
  FIELD=MED_APPT_CD ,EBJKJ ,A01    ,A01    ,TITLE='Med,Appt,Code'             ,$
  FIELD=STCN_SUBJ   ,EBJKK ,A05    ,A05    ,TITLE='Princ,Subj'                ,$
  FIELD=STCN_FAC_MOS,EBJKL ,A02    ,A02    ,TITLE='Fac,Mos'                   ,$
  FIELD=STCN_APPT   ,EBJKM ,A01    ,A01    ,TITLE='Appt,Type'                 ,$
  FIELD=STCN_NEWSLRY,EBJKN ,A01    ,A01    ,TITLE='New,Slry,Scle'             ,$
  FIELD=STCN_LV


Mainframe FOCUS 7.0
VM/CMS and MVS/TSO 

How about this:

TABLE FILE EBFILE
SUM FYTD_300_AMT
BY EMP_ID_200
ACROSS EARN_300_CD COLUMNS ecd1 and ecd2 etc.
ON TABLE ROW-TOTAL
END  

Since I don't know what your earned amount is, I can't be more specific but if you need to do more arithmetic, you can do it in a define.

Remember, all of the children (seg 300s) are processed one at a time for each employee.

Check out the language manual for more detail on what I have coded above. What you are asking to do isn't very hard if I understand you correctly and it is fairly basic. Sounds like some training might be in order for you.

Ginny,

Thanks for you help! I've got the FOCEXEC running finally.....

Yeah! Does it look anything like what I suggested?

Webmeister

do you remember the "CHECK FILE XXX PICTURE"
If you post the result it makes it a bit better understandable....

Ginny,

Yes, it looks like what you suggested, to answer your question. Of course as asson as I presented it to my client, they now want two more reports on the same data, but using a date range that is contained in another segment of the same MFD!! Oh well....job security, I guess. Thanks for your help.

Frank,

I haven't used the "CHECK FILE XXX PICTURE" in a long, long time, not since at least 1997 - that's how long it's been since I last used FOCUS. I'll dig into it and see what I can come up with.

Thanks to you all !

Watch out for the "Testing in independent sets of data" error. You didn't give specifics for your reports,but selecting records from one segment based on values in another segment frequently presents the problem. If this happens you might read up on alternate file views.