The following sections contain the examples of the EMPLOYEES Master File, Access File, and FDT.
$$$ CREATED BY AUTOADBS ON 12/10/97 AT 10.09.16 BY PMSMJB$ ADABAS FILE = EMPLOYEES DICTIONARY = 6
SEGNAME=S01 ,SEGTYPE=S,$
FIELD= PERSONNEL_ID ,ALIAS= AA ,A8 ,A8 , INDEX=I,$
GROUP= FULL_NAME ,ALIAS= AB ,A60 ,A60 ,$
FIELD=FIRST_NAME ,ALIAS= AC ,A20 ,A20 ,$
FIELD=NAME ,ALIAS= AE ,A20 ,A20 , INDEX=I,$
FIELD= MIDDLE_NAME ,ALIAS= AD ,A20 ,A20 ,$
FIELD= MAR_STAT ,ALIAS= AF ,A1 ,A1 ,$
FIELD= SEX ,ALIAS= AG ,A1 ,A1 ,$
FIELD= BIRTH ,ALIAS= AH ,P6 ,Z6 , INDEX=I,$
$GRMU = FULL_ADDRESS ,ALIAS= A1 ,A53 ,A53 ,$
FIELD=ADDRESS_LINE_CNT ,ALIAS= AIC ,I4 ,I2 ,$
FIELD=CITY ,ALIAS= AJ ,A20 ,A20 , INDEX=I,$
FIELD=POST_CODE ,ALIAS= AK ,A10 ,A10 ,$
FIELD=COUNTRY ,ALIAS= AL ,A3 ,A3 ,$
GROUP= TELEPHONE ,ALIAS= A2 ,A21 ,A21 ,$
FIELD=AREA_CODE ,ALIAS= AN ,A6 ,A6 ,$
FIELD=PHONE ,ALIAS= AM ,A15 ,A15 ,$
FIELD= DEPT ,ALIAS= AO ,A6 ,A6 , INDEX=I,$
FIELD= JOB_TITLE ,ALIAS= AP ,A25 ,A25 , INDEX=I,$
FIELD= INCOME_CNT ,ALIAS= AQC ,I4 ,I2 ,$
GROUP= LEAVE_DATA ,ALIAS= A3 ,A16 ,A4 ,$
FIELD=LEAVE_DUE ,ALIAS= AU ,P2 ,Z2 ,$
FIELD=LEAVE_TAKEN ,ALIAS= AV ,P2 ,Z2 ,$
FIELD= LEAVE_BOOKED_CNT ,ALIAS= AWC ,I4 ,I2 ,$
FIELD= LANG_CNT ,ALIAS= AZC ,I4 ,I2 ,$
$PH = PHONETIC_NAME ,ALIAS= PH ,A20 ,A20 ,
$ INDEX=I,$
The EMPLOYEES Master File continued:
GROUP= LEAVE_LEFT ,ALIAS= H1 ,A16 ,A4 , INDEX=I,$
FIELD=LEAVE_DUE_S01 ,ALIAS= AU ,P2 ,Z2 ,$
FIELD=LEAVE_TAKEN_S01 ,ALIAS= AV ,P2 ,Z2 ,$
FIELD= DEPARTMENT ,ALIAS= S1 ,A4 ,A4 , INDEX=I,$
GROUP= DEPT_PERSON ,ALIAS= S2 ,A26 ,A26 , INDEX=I,$
FIELD=DEPT_S03 ,ALIAS= AO ,A6 ,A6 , INDEX=I,$
FIELD=NAME_S03 ,ALIAS= AE ,A20 ,A20 , INDEX=I,$
SEGNAME=AI0101 ,SEGTYPE=S,PARENT=S01 ,OCCURS=AIC,$ MAX= 8
FIELD= ADDRESS_LINE ,ALIAS= AI ,A20 ,A20 ,$
FIELD= AI0101_OCC ,ALIAS= ORDER ,I4 ,I2 ,$
SEGNAME=AQ0201 ,SEGTYPE=S,PARENT=S01 ,OCCURS=AQC,$ MAX= 40
$PEMU = INCOME ,ALIAS= AQ ,A19 ,A13 ,$
FIELD=CURR_CODE ,ALIAS= AR ,A3 ,A3 ,$
FIELD=SALARY ,ALIAS= AS ,P9 ,P5 ,$
FIELD=BONUS_CNT ,ALIAS= ATC ,I4 ,I2 ,$
FIELD= AQ0201_OCC ,ALIAS= ORDER ,I4 ,I2 ,$
SEGNAME=AT0301 ,SEGTYPE=S,PARENT=AQ0201,OCCURS=ATC,$ MAX= 12
FIELD= BONUS ,ALIAS= AT ,P9 ,P5 ,$
FIELD= AT0301_OCC ,ALIAS= ORDER ,I4 ,I2 ,$
SEGNAME=AW0401 ,SEGTYPE=S,PARENT=S01 ,OCCURS=AWC,$ MAX= 20
GROUP= LEAVE_BOOKED ,ALIAS= AW ,A16 ,A12 ,$
FIELD=LEAVE_START ,ALIAS= AX ,P6 ,Z6 ,$
FIELD=LEAVE_END ,ALIAS= AY ,P6 ,Z6 ,$
FIELD= AW0401_OCC ,ALIAS= ORDER ,I4 ,I2 ,$
SEGNAME=AZ0501 ,SEGTYPE=S,PARENT=S01 ,OCCURS=AZC,$ MAX= 15
FIELD= LANG ,ALIAS= AZ ,A3 ,A3 , INDEX=I,$
FIELD= AZ0501_OCC ,ALIAS= ORDER ,I4 ,I2 ,$
$$$ CREATED BY AUTOADBS ON 12/10/97 AT 10.09.16 BY PMSMJB$ ADABAS FILE = EMPLOYEES DICTIONARY = 6
SEGNAM=S01 ,ACCESS=ADBS,FILENO=001,
CALLTYPE=RL,SEQFIELD=PERSONNEL_ID,$
FIELD= LEAVE_LEFT ,TYPE=SPR,$
FIELD=LEAVE_DUE_S01 ,TYPE= ,NU=NO,$
FIELD=LEAVE_TAKEN_S01 ,TYPE= ,NU=YES,$
FIELD= DEPARTMENT ,TYPE=NOP,$
FIELD= DEPT_PERSON ,TYPE=SPR,$
FIELD=DEPT_S03 ,TYPE=DSC,NU=NO,$
FIELD=NAME_S03 ,TYPE=DSC,NU=NO,$
SEGNAM=AI0101,ACCESS=MU ,FILENO=001,$ ADDRESS_LINE
SEGNAM=AQ0201,ACCESS=PE ,FILENO=001,$ INCOME
SEGNAM=AT0301,ACCESS=MU ,FILENO=001,$ BONUS
SEGNAM=AW0401,ACCESS=PE ,FILENO=001,$ LEAVE_BOOKED
SEGNAM=AZ0501,ACCESS=MU ,FILENO=001,$ LANG
********************************* SPECIAL DESCRIPTOR TABLE
I I I I I I
TYPE I NAME I LENGTH I FORMAT I OPTIONS I STRUCTURE I
I I I I I I
-------I------I--------I--------I----------------I----------------I
I I I I I I
SUPER I H1 I 4 I B I DE,NU I AU ( 1 - 2) I
I I I I I AV ( 1 - 2) I
SUB I S1 I 4 I A I DE I AO ( 1 - 4) I
SUPER I S2 I 26 I A I DE I AO ( 1 - 6) I
I I I I I AE ( 1 - 20) I
SUPER I S3 I 12 I A I DE,NU,PE I AR ( 1 - 3) I
I I I I I AS ( 1 - 9) I
I I I I I I
PHON I PH I I I I PH = PHON (AE) I
| Information Builders |