Example: Creating the EMPFILE Master and Access Files
ex autoadbs
Main Menu Master File Generation Facility for ADABAS
Master Filename ==========> empfile1
Describe ADABAS Files:
File Name =========> employees-file
PREDICT Dictionary=> ( )
Description will be a member of:
Master Target PDS => PMSBED.ADABAS.MASTER.DATA
Access Target PDS => PMSBED.ADABAS.FOCADBS.DATA
FOCDEF Target PDS => PMSBED.ADABAS.FOCDEF.DATA
Replace Existing Description?=> Y Start with Fieldname Position=> 1 (1-32)
Include Fieldname Comments? ==> Y for a Total Length of => 36 (5-36)
Use NATURAL Column Headings? => N Date Display Format ==========> YYMD
Use COMMENTS for FOCDEF? =====> N Display all Userviews? =======> N
Parm File => PMSBED.AUTO760.ACCESS.DATA
PF1=Help PF2=Restart PF3=Exit PF4=Log PF5=MFD PF6=AFD PF9=Picture PF10=List
Master: Master File Generation Facility for AUTOADBS Show userviews: N
EMPFILE1 ==File Selection==
Select the ROOT file with 'R', children files with 'C'.
When a file exists in several databases, select the one entry that describes
the file/database combination desired.
R/C File A Fnr D
--- -------------------------------- - --- -
r EMPLOYEES-FILE A 316
PF1=Help PF3=End PF4=Add Files PF5=Views PF7=Up PF8=Down
**=============================================================**
** Retrieving FIELD information from dictionary **
** Please wait... **
**=============================================================**
Master: Master File Generation Facility for AUTOADBS
EMPFILE1 ==Access File Attributes==
File: EMPLOYEES-FILE Dictionary:
Enter: CALLTYPE RL PASSWORD DBNR 000
Select SEQFIELD with 'S' (Natural Default: )
S Fieldname Alias Usage Actual D U S Ty L
- -------------------------------- ---------- ------ ------ - - - -- -
s PERSONNEL_ID AA A8 A8 D U 1
NAME AE A20 A20 D 2
BIRTH AH P7 P4 D U 1
CITY AJ A20 A20 D N 2
DEPT AO A6 A6 D 1
JOB_TITLE AP A25 A25 D N 1
LEAVE_LEFT H1 A4 A4 D N SP 1
DEPARTMENT S1 A4 A4 D SB 1
DEPT_PERSON S2 A26 A26 D SP 1
CURRENCY_SALARY S3 A12 A12 D N SP 1
PF1=Help PF2=Restart PF3=End PF7=Up PF8=Down
Main Menu Master File Generation Facility for ADABAS
Master Filename ==========> EMPFILE1
Describe ADABAS Files:
File Name =========> EMPLOYEES-FILE
PREDICT Dictionary=> ( )
Description will be a member of:
Master Target PDS => PMSBED.ADABAS.MASTER.DATA
Access Target PDS => PMSBED.ADABAS.FOCADBS.DATA
FOCDEF Target PDS => PMSBED.ADABAS.FOCDEF.DATA
Replace Existing Description?=> Y Start with Fieldname Position=> 1 (1-32)
Include Fieldname Comments? ==> Y for a Total Length of => 36 (5-36)
Use NATURAL Column Headings? => N Date Display Format ==========> YYMD
Use COMMENTS for FOCDEF? =====> N Display all Userviews? =======> N
Parm File => PMSBED.AUTO760.ACCESS.DATA
DESCRIPTION CREATED
PF1=Help PF2=Restart PF3=Exit PF4=Log PF5=MFD PF6=AFD PF9=Picture PF10=List
PMSBED.ADABAS.MASTER.DATA(EMPFILE1) SIZE=129 LINE=0
....+....1....+....2....+....3....+....4....+....5....+....6....+....7...
00000 * * * TOP OF FILE * * *
00001 $$$ CREATED BY AUTOADBS ON 03/28/13 AT 11.14.13 BY PMSSAE
00002 FILENAME=EMPFILE1,SUFFIX=ADBSINX,$
00003
00004 $ ADABAS FILE = EMPLOYEES-FILE DICTIONARY =
00005 SEGNAME=S01 ,SEGTYPE=S,$
00006 FIELD= PERSONNEL_ID ,ALIAS= AA ,A8 ,A8
00007 INDEX=I,$
00008 $ PERSONNEL_ID A 8
00009 GROUP= FULL_NAME ,ALIAS= AB ,A60 ,A60
00010 $ FULL_NAME
00011 FIELD=FIRST_NAME ,ALIAS= AC ,A20 ,A20
00012 $ FIRST_NAME A 20
00013 FIELD=NAME ,ALIAS= AE ,A20 ,A20
00014 INDEX=I,$
00015 $ NAME A 20
00016 FIELD=MIDDLE_NAME ,ALIAS= AD ,A20 ,A20
00017 $ MIDDLE_NAME A 20
00018 FIELD= MAR_STAT ,ALIAS= AF ,A1 ,A1
00019 $ MAR_STAT A 1
00020 FIELD= SEX ,ALIAS= AG ,A1 ,A1
00021 $ SEX A 1
00022 FIELD= BIRTH ,ALIAS= AH ,P7 ,P4
00023 INDEX=I,$
00024 $ BIRTH D
00025 $GRMU = FULL_ADDRESS ,ALIAS= A1 ,A53 ,A53
00026 $ FULL_ADDRESS
00027 FIELD=ADDRESS_LINE_CNT ,ALIAS= AIC ,I4 ,I2
00028 $ ADDRESS_LINE A 20
00029 FIELD=CITY ,ALIAS= AJ ,A20 ,A20
00030 INDEX=I,$
00031 $ CITY A 20
00032 FIELD=POST_CODE ,ALIAS= AK ,A10 ,A10
00033 $ POST_CODE A 10
00034 FIELD=COUNTRY ,ALIAS= AL ,A3 ,A3
00035 $ COUNTRY A 3
00036 GROUP= TELEPHONE ,ALIAS= A2 ,A21 ,A21
00037 $ TELEPHONE
00038 FIELD=AREA_CODE ,ALIAS= AN ,A6 ,A6
00039 $ AREA_CODE A 6
00040 FIELD=PHONE ,ALIAS= AM ,A15 ,A15
00041 $ PHONE A 15
00042 FIELD= DEPT ,ALIAS= AO ,A6 ,A6
00043 INDEX=I,$
00044 $ DEPT A 6
00045 FIELD= JOB_TITLE ,ALIAS= AP ,A25 ,A25
00046 INDEX=I,$
00047 $ JOB_TITLE A 25
00048 FIELD= INCOME_CNT ,ALIAS= AQC ,I4 ,I2
00049 $ INCOME
00050 FIELD=CURR_CODE ,ALIAS= AR ,A3 ,A3
00051 $ CURR_CODE A 3
00052 FIELD=SALARY ,ALIAS= AS ,P9 ,P5
00053 $ SALARY P 9
00054 FIELD=BONUS_CNT ,ALIAS= ATC ,I4 ,I2
00055 $ BONUS P 9
00056 GROUP= LEAVE_DATA ,ALIAS= A3 ,A16 ,A4
00057 $ LEAVE_DATA
00058 FIELD=LEAVE_DUE ,ALIAS= AU ,P2 ,Z2
00059 $ LEAVE_DUE N 2
00060 FIELD=LEAVE_TAKEN ,ALIAS= AV ,P2 ,Z2
00061 $ LEAVE_TAKEN N 2
00062 FIELD= LEAVE_BOOKED_CNT ,ALIAS= AWC ,I4 ,I2
00063 $ LEAVE_BOOKED
00064 FIELD=LEAVE_START ,ALIAS= AX ,P8 ,Z8
00065 $ LEAVE_START N 8
00066 FIELD=LEAVE_END ,ALIAS= AY ,P8 ,Z8
00067 $ LEAVE_END N 8
00068 FIELD= LANG_CNT ,ALIAS= AZC ,I4 ,I2
00069 $ LANG A 3
00070 $PH = PHONETIC_NAME ,ALIAS= PH ,A20 ,A20
00071 $ INDEX=I,$
00072 $ PHONETIC_NAME A 20
00073 FIELD= LEAVE_LEFT ,ALIAS= H1 ,A4 ,A4
00074 INDEX=I,$
00075 $ LEAVE_LEFT B 4
00076 $FIELD=LEAVE_DUE_S01 ,ALIAS= , ,
00077 $ LEAVE_DUE
00078 $ START= 1 END= 2
00079 $FIELD=LEAVE_TAKEN_S01 ,ALIAS= , ,
00080 $ LEAVE_TAKEN
00081 $ START= 1 END= 2
00082 FIELD= DEPARTMENT ,ALIAS= S1 ,A4 ,A4
00083 INDEX=I,$
00084 $ DEPARTMENT A 4
00085 FIELD= DEPT_PERSON ,ALIAS= S2 ,A26 ,A26
00086 INDEX=I,$
00087 $ DEPT_PERSON A 26
00088 $FIELD=DEPT_S03 ,ALIAS= , ,
00089 $ DEPT
00090 $ START= 1 END= 6
00091 $FIELD=NAME_S03 ,ALIAS= , ,
00092 $ NAME
00093 $ START= 1 END= 20
00094 FIELD= CURRENCY_SALARY ,ALIAS= S3 ,A12 ,A12
00095 INDEX=I,$
00096 $ CURRENCY_SALARY A 12
00097 $FIELD=CURR_CODE_S04 ,ALIAS= , ,
00098 $ CURR_CODE
00099 $ START= 1 END= 3
00100 $FIELD=SALARY_S04 ,ALIAS= , ,
00101 $ SALARY
00102 $ START= 1 END= 9
00103 DEFINE BIRTH_DAT/YYMD=BIRTH - 694324;$
00104
00105 SEGNAME=AI0101 ,SEGTYPE=S,PARENT=S01 ,OCCURS=AIC,$ MAX= 8
00106 FIELD= ADDRESS_LINE ,ALIAS= AI ,A20 ,A20
00107 $ ADDRESS_LINE A 20
00108 FIELD= AI0101_OCC ,ALIAS= ORDER ,I4 ,I2
00109
00110 SEGNAME=AQ0201 ,SEGTYPE=S,PARENT=S01 ,OCCURS=AQC,$ MAX= 40
00111 $PEMU = INCOME ,ALIAS= AQ ,A19 ,A13
00112 $ INCOME
00113 FIELD= AQ0201_OCC ,ALIAS= ORDER ,I4 ,I2
00114
00115 SEGNAME=AT0301 ,SEGTYPE=S,PARENT=S01 ,OCCURS=ATC,$ MAX= 12
00116 FIELD= BONUS ,ALIAS= AT ,P9 ,P5
00117 $ BONUS P 9
00118 FIELD= AT0301_OCC ,ALIAS= ORDER ,I4 ,I2
00119
00120 SEGNAME=AW0401 ,SEGTYPE=S,PARENT=S01 ,OCCURS=AWC,$ MAX= 20
00121 GROUP= LEAVE_BOOKED ,ALIAS= AW ,A16 ,A16
00122 $ LEAVE_BOOKED
00123 FIELD= AW0401_OCC ,ALIAS= ORDER ,I4 ,I2
00124
00125 SEGNAME=AZ0501 ,SEGTYPE=S,PARENT=S01 ,OCCURS=AZC,$ MAX= 15
00126 FIELD= LANG ,ALIAS= AZ ,A3 ,A3
00127 INDEX=I,$
00128 $ LANG A 3
00129 FIELD= AZ0501_OCC ,ALIAS= ORDER ,I4 ,I2
00001 $$$ CREATED BY AUTOADBS ON 03/28/13 AT 11.14.13 BY PMSSAE
00002 $$$ FILENAME=EMPFILE1,SUFFIX=ADBSINX,$
00003 RELEASE=6,OPEN=YES,$
00004
00005 $ ADABAS FILE = EMPLOYEES-FILE DICTIONARY =
00006 SEGNAM=S01 ,ACCESS=ADBS,FILENO=316,
00007 CALLTYPE=RL,SEQFIELD=PERSONNEL_ID,$
00008 FIELD= LEAVE_LEFT ,TYPE=NOP,$
00009 FIELD= DEPARTMENT ,TYPE=NOP,$
00010 FIELD= DEPT_PERSON ,TYPE=NOP,$
00011 FIELD= CURRENCY_SALARY ,TYPE=NOP,$
00012 SEGNAM=AI0101,ACCESS=MU ,FILENO=316,$ ADDRESS_LINE
00013 SEGNAM=AQ0201,ACCESS=PE ,FILENO=316,$ INCOME
00014 SEGNAM=AT0301,ACCESS=MU ,FILENO=316,$ BONUS
00015 SEGNAM=AW0401,ACCESS=PE ,FILENO=316,$ LEAVE_BOOKED
00016 SEGNAM=AZ0501,ACCESS=MU ,FILENO=316,$ LANG