Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] How to find how many repeating values a record may have

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[SOLVED] How to find how many repeating values a record may have
 Login/Join
 
Guru
posted
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,


Mainframe FOCUS 7.0
VM/CMS and MVS/TSO
 
Posts: 250 | Registered: January 14, 2008Report This Post
Virtuoso
posted Hide Post
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.


Regards,

Darin



In FOCUS since 1991
WF Server: 7.7.04 on Linux and Z/OS, ReportCaster, Self-Service, MRE, Java, Flex
Data: DB2/UDB, Adabas, SQL Server Output: HTML,PDF,EXL2K/07, PS, AHTML, Flex
WF Client: 77 on Linux w/Tomcat
 
Posts: 2298 | Location: Salt Lake City, Utah | Registered: February 02, 2007Report This Post
Expert
posted Hide Post
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?


Ginny
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google
 
Posts: 2723 | Location: Ann Arbor, MI | Registered: April 05, 2006Report This Post
Guru
posted Hide Post
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!


Mainframe FOCUS 7.0
VM/CMS and MVS/TSO
 
Posts: 250 | Registered: January 14, 2008Report This Post
Expert
posted Hide Post
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 


Ginny
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google
 
Posts: 2723 | Location: Ann Arbor, MI | Registered: April 05, 2006Report This Post
Guru
posted Hide Post
Thanks, Ginny,

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


Mainframe FOCUS 7.0
VM/CMS and MVS/TSO
 
Posts: 250 | Registered: January 14, 2008Report This Post
Guru
posted Hide Post
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!


Mainframe FOCUS 7.0
VM/CMS and MVS/TSO
 
Posts: 250 | Registered: January 14, 2008Report This Post
Expert
posted Hide Post
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?


Ginny
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google
 
Posts: 2723 | Location: Ann Arbor, MI | Registered: April 05, 2006Report This Post
Guru
posted Hide Post
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!


Mainframe FOCUS 7.0
VM/CMS and MVS/TSO
 
Posts: 250 | Registered: January 14, 2008Report This Post
Expert
posted Hide Post
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.


Ginny
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google
 
Posts: 2723 | Location: Ann Arbor, MI | Registered: April 05, 2006Report This Post
Guru
posted Hide Post
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?


Mainframe FOCUS 7.0
VM/CMS and MVS/TSO
 
Posts: 250 | Registered: January 14, 2008Report This Post
Guru
posted Hide Post
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
 
Posts: 250 | Registered: January 14, 2008Report This Post
Expert
posted Hide Post
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
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google
 
Posts: 2723 | Location: Ann Arbor, MI | Registered: April 05, 2006Report This Post
Guru
posted Hide Post
Ginny,

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


Mainframe FOCUS 7.0
VM/CMS and MVS/TSO
 
Posts: 250 | Registered: January 14, 2008Report This Post
Expert
posted Hide Post
Yeah! Does it look anything like what I suggested?


Ginny
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google
 
Posts: 2723 | Location: Ann Arbor, MI | Registered: April 05, 2006Report This Post
Virtuoso
posted Hide Post
Webmeister

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




Frank

prod: WF 7.6.10 platform Windows,
databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7
test: WF 7.6.10 on the same platform and databases,IE7

 
Posts: 2387 | Location: Amsterdam, the Netherlands | Registered: December 03, 2006Report This Post
Guru
posted Hide Post
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 !


Mainframe FOCUS 7.0
VM/CMS and MVS/TSO
 
Posts: 250 | Registered: January 14, 2008Report This Post
Virtuoso
posted Hide Post
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.


Regards,

Darin



In FOCUS since 1991
WF Server: 7.7.04 on Linux and Z/OS, ReportCaster, Self-Service, MRE, Java, Flex
Data: DB2/UDB, Adabas, SQL Server Output: HTML,PDF,EXL2K/07, PS, AHTML, Flex
WF Client: 77 on Linux w/Tomcat
 
Posts: 2298 | Location: Salt Lake City, Utah | Registered: February 02, 2007Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] How to find how many repeating values a record may have

Copyright © 1996-2020 Information Builders