HP 3000 Manuals

Generating RECORD Definitions [ HP SYSTEM DICTIONARY XL COBOL DEFINITION EXTRACTOR Reference Manual ] MPE/iX 5.0 Documentation


HP SYSTEM DICTIONARY XL COBOL DEFINITION EXTRACTOR Reference Manual

Generating RECORD Definitions 

If you specify RECORD as the entity type in the GENERATE command, then
SDCDE generates a COBOL record definition for the record with the given
entity name.  SDCDE issues a prompt requesting the copy library module
name to be assigned to all code generated for the record.  The prompt has
the following form:

     Module name for RECORD record-name >

If the given module name already exists in the current copy library, the
copy library's OPEN-MODE parameter determines whether to append all
generated code to the existing module or to replace the existing module.
If you enter a [[RETURN]], SDCDE does not generate any code for the
record and the GENERATE command will be complete.

If you specify the ELEM-QUALIFY parameter of the OPTIONS command, SDCDE
responds with one of the following prompts, depending on the value you
specify:

Value            Prompt 

PREFIX           Element prefix >

SUFFIX           Element suffix >

NONE             No prompt

SDCDE attaches the prefix or suffix characters to all of the elements
contained by the record.  If you enter a [[RETURN]], SDCDE does not
attach a prefix or suffix.

When answers to the prompts are complete, SDCDE generates the code in the
specified module for the record definition.  If any records explicitly
redefine this record, through the RECORD redefines RECORD relationship,
definitions are generated using the REDEFINES clause.

Example 

In the following example, the record name is EMPLOYEE-RECORD and
ELEM-QUALIFY = PREFIX.

     Module name for RECORD EMPLOYEE-RECORD > EMPREC 
     Element prefix > EMP- 

     000100
     000200  01  EMPLOYEE-RECORD-DATA.
     000300      05  EMP-NAME-ELEM.
     000400          10  EMP-FIRST-NAME     PIC X(15).
     000500          10  EMP-LAST-NAME      PIC X(20).
     000600      05  EMP-SS-NUMBER          PIC X(10).
     000700      05  EMP-POSITION-TITLE     PIC X(50).
     000800


MPE/iX 5.0 Documentation