create dictionary PHD

ELEMENT ADDRESS1 C  30
                 
ELEMENT ADDRESS2 C 30
                 
ELEMENT ADDRESS3 C 30
                 
ELEMENT ANNUAL-BUDGET N 2 datatype zoned
                 
ELEMENT COBOL-IND C 2
                 
ELEMENT COGNOS-IND C 2
                 
ELEMENT COMPANY C 30
                 
ELEMENT COUNTRY C 30
                 
ELEMENT DUMMY-KEY C 2
                 
ELEMENT FORENAME C 30
                 
ELEMENT FURTHER-INFO C 2
ELEMENT HP3000-MODEL1 C 10
                  
ELEMENT HP3000-MODEL2 C 10
                  
ELEMENT HP3000-MODEL3 C 10
                  
ELEMENT HP3000-MODEL4 C 10
                  
ELEMENT HP3000-MODEL5 C 10
                  
ELEMENT HP3000-SYSTEM1 N 3 datatype packed signed size 2
                  
ELEMENT HP3000-SYSTEM2 N 3 datatype packed signed size 2
                  
ELEMENT HP3000-SYSTEM3 N 3 datatype packed signed size 2
                  
ELEMENT HP3000-SYSTEM4 N 3 datatype packed signed size 2
                  
ELEMENT HP3000-SYSTEM5 N 3 datatype packed signed size 2
                  
ELEMENT JOB-TITLE C 30
                  
ELEMENT NETWORK-USERS N 3 datatype packed signed size 2
ELEMENT NUMBER-USERS N 3 datatype packed signed size 2
                  
ELEMENT NUM-IT-STAFF N 3 datatype packed signed size 2
                  
ELEMENT POST-CODE C 8
                  
ELEMENT RAPID-IND C 2
                  
ELEMENT REGISTER-KEY C 60
                  
ELEMENT SALUTATION C 4
                  
ELEMENT SCREENJET-TE C 2
                  
ELEMENT SURNAME C 30
                  
ELEMENT TERMINAL-USERS  N 3 datatype packed signed size 2
                  
ELEMENT VPLUS-IND C 2
                  
ELEMENT WRQ-TE C 2

FILE REGDB &
ORGANIZATION DATABASE &
TYPE ELOQUENCE &
OPEN REGDB &
PASSWORD "" &
CRITICAL ITEM UPDATE

RECORD COBOL-INDEX &
organization AUTOMATIC
ITEM COBOL-IND  
INDEX COBOL-IND
SEGMENT COBOL-IND

RECORD VPLUS-INDEX &
organization AUTOMATIC
ITEM VPLUS-IND  
INDEX VPLUS-IND
SEGMENT VPLUS-IND


RECORD DUMMY-INDEX &
organization AUTOMATIC
ITEM DUMMY-KEY
INDEX DUMMY-KEY
SEGMENT DUMMY-KEY

RECORD REGISTER-INDEX &
organization AUTOMATIC
ITEM REGISTER-KEY
INDEX REGISTER-KEY
SEGMENT REGISTER-KEY

RECORD SALUTATION-MAST &
organization AUTOMATIC
ITEM SALUTATION
INDEX SALUTATION
SEGMENT SALUTATION

RECORD COUNTRY-INDEX &
organization AUTOMATIC
ITEM COUNTRY
INDEX COUNTRY
SEGMENT COUNTRY

RECORD BUDGET-MAST &
organization AUTOMATIC
ITEM ANNUAL-BUDGET
INDEX ANNUAL-BUDGET
SEGMENT ANNUAL-BUDGET



RECORD REGISTER-DTL &
Organization DETAIL

                                              
                                                                                
ITEM          DUMMY-KEY
ITEM          REGISTER-KEY
ITEM          SALUTATION
ITEM          FORENAME                                                             
ITEM          SURNAME                                                              
ITEM          COMPANY                                                              
ITEM          JOB-TITLE                                                            
ITEM          ADDRESS1                                                             
ITEM          ADDRESS2                                                             
ITEM          ADDRESS3                                                             
ITEM          POST-CODE                                                            
ITEM          COUNTRY
ITEM          ANNUAL-BUDGET
ITEM          HP3000-MODEL1                                                   
ITEM          HP3000-SYSTEM1                                                       
ITEM          HP3000-MODEL2                                                  
ITEM          HP3000-SYSTEM2                                                       
ITEM          HP3000-MODEL3                                                  
ITEM          HP3000-SYSTEM3                                                       
ITEM          HP3000-MODEL4                                                  
ITEM          HP3000-SYSTEM4                                                       
ITEM          HP3000-MODEL5                                                      
ITEM          HP3000-SYSTEM5                                                       
ITEM          COBOL-IND                                             
ITEM          VPLUS-IND                                           
ITEM          COGNOS-IND                                                           
ITEM          RAPID-IND                                                            
ITEM          WRQ-TE                                                               
ITEM          SCREENJET-TE                                                         
ITEM          FURTHER-INFO                                                         
ITEM          NUMBER-USERS                                                    
ITEM          NETWORK-USERS                                                   
ITEM          TERMINAL-USERS                                               
ITEM          NUM-IT-STAFF           

Index DUMMY-KEY &
links to DUMMY-INDEX
Segment DUMMY-KEY

Index REGISTER-KEY &
links to REGISTER-INDEX
Segment REGISTER-KEY

Index SALUTATION &
links to SALUTATION-MAST
Segment SALUTATION

Index COUNTRY &
links to COUNTRY-INDEX
Segment COUNTRY


Index COBOL-IND &
links to COBOL-INDEX
Segment COBOL-IND

Index VPLUS-IND &
links to VPLUS-INDEX
Segment VPLUS-IND

Index ANNUAL-BUDGET &
links to BUDGET-MAST
Segment ANNUAL-BUDGET
Load