HP System Dictionary/XL Cobol Definition Extractor Reference Manual HP 3000 MPE/iX Computer Systems Edition 1 Manufacturing Part Number: 32257-90001 E1287 U.S.A.
Notice The information contained in this document is subject to change without notice. Hewlett-Packard makes no warranty of any kind with regard to this material, including, but not limited to, the implied warranties of merchantability or fitness for a particular purpose. Hewlett-Packard shall not be liable for errors contained herein or for direct, indirect, special, incidental or consequential damages in connection with the furnishing or use of this material.
Preface Manual Organization This manual is the standard reference manual for users of HP System Dictionary/XL COBOL Definition Extractor which runs on the 900 Series HP 3000 computer system. It is a reference document for all persons developing COBOL II/XL source code on the 900 Series HP 3000. As such, it assumes both a working knowledge of the 900 Series HP 3000 and the COBOL II/XL programming language.
HP System Dictionary/XL General Reference Manual, Volume 2 HP System Dictionary/XL COBOL Definition Extractor Reference Manual TurboIMAGE/XL Reference Manual SQL Reference Manual HP SQL Database Administration Guide VPLUS Reference Manual QUERY/V Reference Manual KSAM Reference Manual HP 3000 General Information Manual MPE XL Commands Reference Manual MPE XL Intrinsics Reference Manual Program Design and Optimization Programmer's Utilities and Tools Native Language Support Reference Manual EDIT/V Reference
versions prefixed with "HP" . Conventions NOTATION DESCRIPTION nonitalics Words in syntax statements which are not in italics must be entered exactly as shown. Punctuation characters other than brackets, braces and ellipses must also be entered exactly as shown. For example: EXIT; italics Words in syntax statements which are in italics denote a parameter which must be replaced by a user-supplied variable. For example: CLOSE filename [] An element inside brackets in a syntax statement is optional.
rameter distinguishes input/output from output parameters. For example: CREATE (parm1, parm2, flags, error ) shading [[ ]] Shading represents inverse video on the terminal's screen. In addition, it is used to emphasize key portions of an example. The symbol [[ ]] may be used to indicate a key on the terminal's keyboard. For example, [[RETURN]] indicates the carriage return key. [[CONTROL]]char Control characters are indicated by [[CONTROL]] followed by the character.
1 Running the SDCDE Program Running SDCDE The SDCDE program is located in the file SDCDE.PUB.SYS. You can load and run the SDCDE program by issuing the command: RUN SDCDE.PUB.SYS You do not need to specify any file equations. If the program loads successfully, SDCDE prints out the following banner: HP System Dictionary SDCDE HP32257v.uu.ff - (C)Hewlett-Packard Co. 1985 SDCDE Files The SDCDE program uses an input file and a log file. These two files are discussed below.
Three sets of values are accepted for the run option: | -1 Parse-only option. Only command syntax is checked. No dictionary or copy library is opened. 0 Execute and do not terminate regardless of the number of errors. Program continues until an EXIT command is issued. All errors are reported, but non-fatal errors do not terminate the program. This is the default option. n Terminate when n errors are detected. Syntactical, operational, and illegal response errors are counted.
2 SDCDE Commands Introduction This section includes descriptions of all SDCDE commands, their syntax, parameters, and examples using the commands. These commands are listed alphabetically. A HELP command is provided for a quick reference to SDCDE commands. Using this command, you can either get a list of all available commands, or a detailed description of a particular command. The abbreviation of each command and subcommand is listed in Appendix B.
COBEDIT run terminated. Resuming SDCDE Old copy library opened > COMMENT Command The COMMENT command allows you to enter description text into the command stream. It allows the use of text to document what is happening in the job stream or SDIN file without having any effect on the operation of the utility. You can use the COMMENT command whenever the command prompt (>) is present. The command is a very simple one.
update-option Through this option, you can enter the entity/relationship definitions involving the copy library and the key file into System Dictionary. When UPDATE-DICT = ON, and a new copy library is created, the COPYLIB entity definition and the KSAMFILE entity definition are created from the copy library and key file name, respectively. Then the COPYLIB key KSAMFILE relationship is created with the entity definitions.
{.} Parameters dictionary-filename Specifies the name of the dictionary to be opened. The initial default for the DICTIONARY parameter is SYSDIC. After the dictionary is opened, the default is the currently opened dictionary. scope-name Specifies the name of the scope from which to retrieve definitions. The SCOPE parameter is required when opening the dictionary for the first time. scope-password Gives access to the scope. Any characters are allowed in a password.
READ-ONLY Allows you to read System Dictionary data definitions, but does not allow definitions to be created when the UPDATE-DICT option of the COPYLIB command is ON. Others can also access the dictionary. SHARED-UPDATE Allows you to read definitions and create definitions when the UPDATE-DICT option of the COPYLIB command is ON. Others can also access the dictionary. EXCLUSIVE- UPDATE Allows you to read definitions and create definitions when the UPDATE-DICT option of the COPYLIB command is ON.
Syntax GENERATE {entity-name} {;ENTITY-TYPE = entity-type} {.} Parameters entity-name Name of the entity for which source generation occurs. This is the name that is used in the generated code, unless you specify an alias attribute through the ALIAS parameter of the OPTIONS command. If you specify an alias attribute, SDCDE checks for that alias attribute, and if one exists, uses the alias attribute value in place of the name. entity-type Entity type of the specified entity.
MAIN HELP SCREEN Commands accepted by SDCDE: COBEDIT - Run the COBEDIT subsystem COMMENT - Provide a line of comment text in the command stream COPYLIB - Establish the System Dictionary environment EXIT - Generate COBOL source for a System Dictionary entity HELP - Display commands LIST - List occurrences of a specified entity-type OPTIONS - Set parameters for the source generation process REDO - Edit and execute
OPTIONS Command The OPTIONS command alters values of the options that directly affect the source generation process. The options remain in effect in the current session until you override them with another OPTIONS command or until you reset them with the RESET command.
edit-mask, not the byte-length or display-length attributes. The edit-mask attribute can either be in the COBOL edit mask format or the Dictionary/3000 edit mask format. If the edit-mask contains inconsistent or erroneous data, a warning message is issued and the edit-mask is not used. Instead, the edit mask is generated as if EDITMASK = OFF.
... If you specify COMMON-STORE = OFF, then different records and forms occupy different memory areas. For example, suppose again that you have a database DB that contains data sets DS-1 and DS-2. If COMMON-STORE = OFF, the following COBOL source is generated: 01 DS-1-DATA. ... 01 DS-2-DATA. ... The default is OFF. secondary-rec-option Allows COBOL source generation for secondary records as well as primary records.
SUBCOMMAND DESCRIPTION B Breaks the line into two lines, moving the character that is above the cursor and all following characters to the next line. The second line becomes the current edit line. D Deletes the character above the D. If you repeat D , each character above each D is deleted. You may also use a D below the first and last character to be deleted with spaces in between. E Exits the REDO editing mode without executing the edited command.
>DEFINE DICTIONARY = SYSDIC; >> SCOPEE = MANAGER; >> PASSWORD = MGR*; >> OPEN-MODE = SHARED-UPDATE SCOPEE = MANAGER; ^ Unknown DEFINE parameter (SDERR 4534) Text from the error to the end of command ignored (SDWARN 4521) >REDO DEFINE DICTIONARY = SYSDIC; SCOPEE = MANAGER; D SCOPE = MANAGER; X > RESET Command The RESET command closes the System Dictionary and copy library, and sets all option parameters to the default values. Syntax RESET [.
OPEN-MODE = SHARED-UPDATE NAME-MODE = EXTERNAL COPYLIB COMMAND PARAMETERS NAME = *** KEY-FILE = UPDATE-DICT = OFF OPEN-MODE = APPEND OPTIONS COMMAND PARAMETERS ALIAS = NONE EDIT-MASK = OFF QUALIFY = OFF ELEM-QUALIFY = PREFIX CONSTANTS = ON SELECT-FILE = ON COMMON-STORE = OFF SECONDARY-REC = OFF ECHO = ON COMMENT = OFF SHOW Command The SHOW command displays the values of all SDCDE parameters. Default values are displayed for those values that are not specifically defined.
NAME-MODE = EXTERNAL COPYLIB COMMAND PARAMETERS NAME = LIB1000 KEY-FILE = LIB1000K UPDATE-DICT = OFF OPEN-MODE = APPEND OPTIONS COMMAND PARAMETERS ALIAS = COBOL EDIT-MASK = OFF QUALIFY = OFF ELEM-QUALIFY = PREFIX CONSTANTS = ON SELECT-FILE = ON COMMON-STORE = OFF SECONDARY-REC = OFF ECHO = ON COMMENT = OFF STANDARD-PARMS Command The STANDARD-PARMS command allows generation of certain standard parameters for the IMAGE, KSAM, and VPLUS subsystems.
Module for IMAGE standard parameters > Module for KSAM standard parameters > Module for VPLUS standard parameters > If you issue STANDARD-PARMS without a subsystem name, you are prompted for module names for all three subsystems.
000100 000200 01 COMAREA. 000300 05 COM-STATUS 000400 05 COM-LANGUAGE 000500 05 COM-COMAREALEN 000600 05 FILLER 000700 05 COM-MODE 000800 05 COM-LASTKEY 000900 05 COM-NUMERRS 001000 05 FILLER PIC S9(4) COMP VALUE 0. 001100 05 FILLER PIC S9(4) COMP VALUE 0. 001200 05 FILLER PIC S9(4) COMP VALUE 0.
003500 05 FILLER PIC S9(4) COMP VALUE 0. 003600 05 FILLER PIC S9(4) COMP VALUE 0. 003700 05 COM-TERMFILENUM PIC S9(4) COMP VALUE 0. 003800 05 FILLER PIC S9(4) COMP VALUE 0. 003900 05 FILLER PIC S9(4) COMP VALUE 0. 004000 05 FILLER PIC S9(4) COMP VALUE 0. 004100 05 FILLER PIC S9(4) COMP VALUE 0. 004200 05 FILLER PIC S9(4) COMP VALUE 0. 004300 05 FILLER PIC S9(4) COMP VALUE 0. 004400 05 COM-TERMOPTIONS PIC S9(4) COMP VALUE 0. 004500 05 FILLER PIC S9(4) COMP VALUE 0.
001000 01 STAT. 001100 05 STATUS-KEY-1 PIC X. 001200 05 STATUS-KEY-2 PIC X.
3 Source Generation Overview You can request COBOL source generation by specifying the GENERATE command. When you specify this command, SDCDE verifies that the given entity exists for the given entity type and then prompts you for additional information before starting the source generation process. Each entity type requires different information for the source generation process. The following sections describe the prompts that SDCDE issues for the valid entity types.
Creating COBOL Names SDCDE automatically prefixes or suffixes some COBOL data names. This is in addition to the usercontrolled prefixes, suffixes, and qualifications. SDCDE does this for two reasons: • Prefixes help identify the data item's usage. For example, because the "DB-" prefix is always attached to the constants for database names, you can easily identify constants of this kind. • Sometimes one entity may generate a number of COBOL data names of different usage.
Table 1: COBOL Prefixes and Suffixes Entity Type Prefix/ Suffix COBOL Data Type Prefix/ Suffix Name RECORD Record name Suffix -DATA ELEMENT Record name (If ELEMENT contain another ELEMENT) Suffix -ELEM HP-CONDITION-NAME Condition name constant Prefix CN- Responses to SDCDE Prompts At any SDCDE prompt, you can enter one of the following special responses: ? Displays HELP messages associated with the current prompt. ]] Returns to the command prompt.
COBOL record definitions is generated for the data sets contained in the given database. To determine whether to generate all data sets and constants in one module, or in separate modules, SDCDE issues the following prompt: Define all data sets in one module (Y/N) > If you enter a Y, SDCDE generates all definitions into one module. If you respond with an N, SDCDE generates each data set definition and the constants into different modules.
Define all data sets in one module (Y/N) > Y Module name for IMAGE-DATABASE STORE > MODULE Element prefix > [[RETURN]] 000100 000200 01 CUSTOMER-DATA. 000300 05 ACCOUNT PIC S9(9) COMP. 000400 05 LAST-NAME PIC X(16). 000500 05 FIRST-NAME PIC X(10). 000600 05 MID-INITIAL PIC X(2). 000700 05 STREET-ADDRESS 000800 05 CITY 000900 05 STATE 001000 05 ZIP 001100 05 CREDIT-RATING PIC X(26). PIC X(12). PIC X(2). PIC X(6). PIC S9(9) COMP. 001200 001300 001400 01 DATE-MASTER-DATA.
003200 003300 003400 01 SUP-MASTER-DATA. 003500 05 SUPPLIER PIC X(16). 003600 05 STREET-ADDRESS 003700 05 CITY 003800 05 STATE 003900 05 ZIP PIC X(26). PIC X(12). PIC X(2). PIC X(6). 004000 004100 004200 01 INVENTORY-DATA. 004300 05 STOCK-NO PIC X(8). 004400 05 ONHANDQTY 004500 05 SUPPLIER PIC X(16). 004600 05 UNIT-COST PIC S9(7) COMP-3. 004700 05 LASTSHIPDATE 004800 05 BINNUM PIC S9(9) COMP. PIC X(6). PIC S9(2).
006600 01 DI-SUPPLIER 006700 01 DI-LASTSHIPDATE PIC X(9) VALUE "SUPPLIER ". PIC X(13) VALUE "LASTSHIPDATE ". 006800 Using Multiple Modules When multiple modules are requested, SDCDE prompts for the module name for each data set: Module name for IMAGE-DATASET data-set-name > Specify the module name for the data set definition. If you enter [[RETURN]], SDCDE does not generate any code for this data set and continues to the next data set in the database.
> GENERATE STORE; ENTITY-TYPE=IMAGE-DATABASE. Define all data sets in one module (Y/N) > N Module name for IMAGE-DATASET CUSTOMER > CUSTMOD Element prefix > CUST000100 000200 01 CUSTOMER-DATA. 000300 05 CUST-ACCOUNT PIC S9(9) COMP. 000400 05 CUST-LAST-NAME PIC X(16). 000500 05 CUST-FIRST-NAME PIC X(10). 000600 05 CUST-MID-INITIAL PIC X(2). 000700 05 CUST-STREET-ADDRESS 000800 05 CUST-CITY 000900 05 CUST-STATE 001000 05 CUST-ZIP 001100 05 CUST-CREDIT-RATING PIC X(26). PIC X(12).
000100 000200 01 SALES-DATA. 000300 05 SALES-ACCOUNT PIC S9(9) COMP. 000400 05 SALES-STOCK-NO PIC X(8). 000500 05 SALES-QUANTITY PIC S9(4) COMP. 000600 05 SALES-PRICE 000700 05 SALES-TAX 000800 05 SALES-TOTAL 000900 05 SALES-PURCH-DATE 001000 05 SALES-DELIV-DATE PIC S9(9) COMP. PIC S9(9) COMP. PIC S9(9) COMP. PIC X(6). PIC X(6). 001100 001200 Module name for IMAGE-DATASET SUP-MASTER > SUPMOD Element prefix > SUPPLY000100 000200 01 SUP-MASTER-DATA. 000300 05 SUPPLY-SUPPLIER PIC X(16).
001000 Module name for STORE'S constants > CONSTMOD 000100 000200 01 DB-STORE 000300 01 PWD-STORE PIC X(8) VALUE " STORE ". PIC X(10) VALUE "PASSWORD ". 000400 000500 01 DS-CUSTOMER 000600 01 DS-DATE-MASTER 000700 01 DS-PRODUCT 000800 01 DS-SALES PIC X(9) VALUE "CUSTOMER ". PIC X(12) VALUE "DATE-MASTER ". PIC X(8) VALUE "PRODUCT ". PIC X(6) VALUE "SALES ". 000900 01 DS-SUP-MASTER PIC X(11) VALUE "SUP-MASTER ". 001000 01 DS-INVENTORY PIC X(10) VALUE "INVENTORY ".
Value NONE Prompt No prompt SDCDE attaches the prefix or suffix characters to the elements contained by the data sets. If you enter a [[RETURN]], SDCDE does not a attach prefix or suffix. When you complete the answers to these prompts, SDCDE starts the source generation process. If you set the SECONDARY-REC parameter of the OPTIONS command to ON, then SDCDE looks for all records related to the data set, regardless of whether the record is primary or secondary.
001600 Generating IMAGE-DATASET Definitions If you specify IMAGE-DATASET as the entity type in the GENERATE command, SDCDE generates a COBOL record definition for the data set with the given entity name. SDCDE prompts you for a module name: Module name for IMAGE-DATASET data-set-name > If you enter a [[RETURN]], SDCDE does not generate any code for this data set and the GENERATE command will be complete.
000300 05 ACCOUNT PIC S9(9) COMP. 000400 05 LAST-NAME PIC X(16). 000500 05 FIRST-NAME PIC X(10). 000600 05 MID-INITIAL PIC X(2). 000700 05 STREET-ADDRESS 000800 05 CITY 000900 05 STATE 001000 05 ZIP 001200 05 CREDIT-RATING PIC X(26). PIC X(12). PIC X(2). PIC X(6). PIC S9(9) COMP. 001300 001400 01 DS-CUSTOMER 001500 01 DI-ACCOUNT PIC X(9) VALUE "CUSTOMER ". PIC X(8) VALUE "ACCOUNT ".
Value NONE Prompt No prompt SDCDE attaches the prefix or suffix characters to the elements contained by the forms in the forms file. If you enter a [[RETURN]], SDCDE does not attach a prefix or suffix. If you set the CONSTANTS parameter of the OPTIONS command to ON, SDCDE issues a prompt for generating a field number table for each form in the forms file. This prompt has the following form: Define field number tables (N/Y) > If you enter a [[RETURN]] or an N, SDCDE does not define tables.
000700 01 FORM-CUSTOMER-FORM PIC X(14) VALUE "CUSTOMER-FORM ". 000800 000900 01 ORDER-FORM-DATA. 001000 05 PROD-NO PIC X(15). 001100 05 QUANTITY PIC 9(8). 001200 05 UNIT-PRICE PIC X(12). 001300 05 TOTAL PIC X(12). 001400 001500 01 FORM-ORDER-FORM PIC X(11) VALUE "ORDER-FORM ". 001600 001700 01 FF-ORDERFF PIC X(8) VALUE "ORDERFF ". 001800 01 LWD-ORDERFF 001900 01 HF-ORDERFF PIC X(6) VALUE "lockff". PIC X(11) VALUE "ORDER-FORM ".
If you enter a [[RETURN]] or a 9, SDCDE uses a PIC 9 description. If you enter an X, SDCDE uses a PIC X description. When answers to these prompts are complete, SDCDE generates the code in the specified module for the current form. If the current forms' field table and form name constants are to be generated, they appear at the end of the module. If you set the QUALIFY parameter of the OPTIONS command to ON, SDCDE prefixes the form's name with the forms file name.
001200 01 FORM-CUSTOMER-FORM PIC X(14) VALUE "CUSTOMER-FORM ". 001300 Module name for FORM ORDER-FORM-TWO > ORDERFF2 Element suffix > -F2 Define field number tables (N/Y) > Y Define numeric fields as PIC 9 or PIC X (9/X) > 9 000100 000200 01 ORDER-FORM-DATA. 000300 05 PROD-NO-F2 PIC X(15). 000400 05 QUANTITY-F2 PIC 9(8). 000500 05 UNIT-PRICE-F2 PIC X(12). 000600 05 TOTAL-F2 PIC X(12). 000700 000800 01 ORDER-FORM-FIELDS. 000900 05 FIELDNO-PROD-NO-F2 PIC S9(4) COMP VALUE 1.
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 the elements contained by the form. If you enter a [[RETURN]], SDCDE does not attach prefix or suffix.
000800 05 ORDER-DATE 000900 05 ORDER-STATUS PIC X(8). PIC X. 001000 001100 01 FORM-CUST-ORDER PIC X(11) VALUE "CUST-ORDER ". 001200 001300 01 CUST-ORDER-FIELDS. 001400 05 FIELDNO-CUST-ACCT PIC S9(4) COMP VALUE 1. 001500 05 FIELDNO-PROD-NO 001600 05 FIELDNO-QUANTITY PIC S9(4) COMP VALUE 3. 001700 05 FIELDNO-UNIT-PRICE PIC S9(4) COMP VALUE 4. 001800 05 FIELDNO-TOTAL 001900 05 FIELDNO-ORDER-DATE 002000 05 FIELDNO-ORDER-STATUS PIC S9(4) COMP VALUE 7. PIC S9(4) COMP VALUE 2.
in either the FILE SECTION or the WORKING-STORAGE SECTION, 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 the elements contained by the file. If you enter a [[RETURN]], SDCDE does not attach a prefix or suffix. When you complete the answers to these prompts, SDCDE generates the code in the specified module or modules.
The WORKING-STORAGE SECTION uses the lockword attribute from the FILE entity. Example 1 In the following example, the file name is ORDERF, SELECT-FILE = ON, and ELEM-QUALIFY = PREFIX.
001000 Example 2 In the following example, the file name is ORDERF, SELECT-FILE = ON, and ELEM-QUALIFY = PREFIX. Module name for FILE ORDERF's SELECT statement > ORDERED Module name for FILE ORDERF's FILE SECTION entry > ORDERFS Define the ORDERF in FILE SECTION as FD or SD (F/S) > F Module name for FILE ORDERF's WORKING-STORAGE > [[RETURN]] Element prefix > [[RETURN]] Module name is ORDERED 000100 000200 SELECT ORDERFR 000300 ASSIGN "ORDERF/LOCK, DA, A, DISC(CCTL), 48" 000400 ORGANIZATION SEQUENTIAL.
Module name for KSAMFILE ksam-file-name 's SELECT statement > Module name for KSAMFILE ksam-file-name 's FILE SECTION entry > If you enter a [[RETURN]] for the SELECT statement prompt, SDCDE does not generate any code for the SELECT statement. If you enter a [[RETURN]] for the FILE SECTION prompt, SDCDE does not generate any code for the FILE SECTION.
the KSAMFILE key ELEMENT relationship to generate the KEY clause. The ASSIGN clause uses the primary record name from the KSAMFILE contains RECORD relationship. The FD statement uses the following attributes from the KSAMFILE entity: blocking-min blocking-max blocking-units min-record-size max-record-size record-format Example 1 The following example generates a KSAM definition for COBOL II. In this example, the KSAM file name is ORDERK, SELECT-FILE = ON, CONSTANTS = ON, andELEM-QUALIFY = SUFFIX.
000900 05 CUST-NAME 001000 05 ORDER-NO 001100 05 ORDER-STATUS PIC X(25). PIC X(12). PIC X. 001200 001300 Example 2 The following example generates a KSAM definition for COBOL. In this example, the KSAM file name is ORDERK, SELECT-FILE = ON, CONSTANTS = ON, and ELEM-QUALIFY = SUFFIX.
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.
Module name for ELEMENT element-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 this element and the GENERATE command will be complete.
A SDCDE Error Messages The following is a complete list of SDCDE's errors and warnings. They are listed in order by number, with notes describing the cause and action for each error or warning.
4510 MESSAGE COPYLIB definition already exists in dictionary (SDWARN 4510) CAUSE A COPYLIB entity definition with the same name already exists in the dictionary. ACTION None necessary. A dictionary definition exists for a new copy library. If the old file has been purged and will be replaced by this copy library, there will be no problem, otherwise, notify the Dictionary Administrator that there is a discrepancy between the dictionary and the actual environment.
ACTION Add the semicolon character, ';', to the command using REDO, or by reentering the command. 4525 MESSAGE Your response is too long (SDERR 4525) CAUSE The user entered a response to a prompt that was too long. ACTION Use the HELP facility or manual to determine the correct responses for this prompt, and reenter a valid response. The help facility may be accessed by entering a question mark, '?', at any prompt.
CAUSE The scope name was not supplied in the SCOPE parameter. ACTION Add the scope name to the SCOPE parameter using REDO, or by reentering the command. 4541 MESSAGE Expecting version status value (SDERR 4541) CAUSE The version status is not supplied in the STATUS parameter. ACTION Add the version status to the STATUS parameter using REDO, or by reentering the command. 4542 MESSAGE Illegal dictionary open mode (SDERR 4542) CAUSE The open mode supplied in the OPEN-MODE parameter is not valid.
ACTION Add a valid value to the ALIAS parameter using REDO, or by reentering the command. The valid values are: COBOL, IMAGE, STANDARD, VPLUS, or NONE. 4554 MESSAGE Expecting ON/OFF switch (SDERR 4554) CAUSE The value supplied for the OPTIONS command parameter is invalid. ACTION The value should be changed to ON or OFF using REDO, or by reentering the command. 4555 MESSAGE Illegal ELEM-QUALIF value (SDERR 4555) CAUSE The value supplied in the ELEM-QUALIFY parameter is not valid.
ACTION The commands you enter will not be logged, as the logging is disabled. If command logging is required, exit the program immediately, take care of the file system problem, and reenter SDCDE. Notify the System Manager if a serious error is suspected. 4571 MESSAGE Error while opening a new SDLOG (SDERR 4571) CAUSE A MPE file system error was detected when attempting to open a new SDLOG file. ACTION The command you enter will not be logged, as the logging is disabled.
4582 MESSAGE Copylib definition cannot be added because of invalid open mode(SDERR 4582) CAUSE The dictionary was opened in READ-ONLY mode, therefore, the definition of a new copy library cannot be added to the dictionary through the COPYLIB command. ACTION The dictionary must be opened in SHARED-UPDATE or EXCLUSIVE-UPDATE mode before it can be updated with new copy library definitions from the COPYLIB command.
4593 MESSAGE LIST MODULE fails because no copylib opened (SDERR 4593) CAUSE The copy library must be opened when attempting to list all of the modules contained in it. ACTION The copy library must be successfully opened using the COPYLIB command before a listing of the modules within it may be listed using the LIST command. 4594 MESSAGE Error while running COBEDIT.PUB.SYS (SDERR 4594) CAUSE A MPE error occurred while attempting to run the COBEDIT program in the PUB group of the SYS account.
REDO, or by reentering the command. The valid values are: IMAGE-DATABASE, IMAGE-DATASET, FORMSFILE, FORM, FILE, KSAMFILE, RECORD, and ELEMENT. 4604 MESSAGE Entity of the specified type does not exist (SDERR 4604) CAUSE The given entity name in the GENERATE command does not exist for the entity type given in the ENTITY-TYPE parameter. ACTION The entity name may be misspelled, it may not exist, or the entity type may not be the correct type. Use LIST to get a list of all entities of the given entity type.
ACTION Reenter a element qualifier that has no illegal characters. 4614 MESSAGE Error retrieving description attribute (SDERR 4614) CAUSE A System Dictionary error occurred while retrieving the description variable attribute. ACTION Notify the Dictionary Administrator. 4615 MESSAGE Unable to retrieve IMAGE-DATABASE contains IMAGE-DATASET fordatabase (SDERR 4615) CAUSE A System Dictionary error occurred while retrieving the IMAGE-DATABASE contains IMAGE-DATASET relationship.
ACTION Notify the Dictionary Administrator. 4635 MESSAGE Unable to find RECORDs contained in IMAGE-DATASET data-set(SDERR 4635) CAUSE A System Dictionary error occurred while finding any IMAGE-DATASET contains RECORD relationships for the given IMAGE-DATASET. ACTION Notify the Dictionary Administrator.
CAUSE A System Dictionary error occurred while retrieving attributes for the ELEMENT contained in the FORM to generate the field number table. ACTION Notify the Dictionary Administrator. 4655 MESSAGE Unable to retrieve comment related FILE attr's for file (SDERR4655) CAUSE A System Dictionary error occurred while retrieving attributes required to comment the given FILE entity. ACTION Notify the Dictionary Administrator.
relationships for the given KSAMFILE entity. ACTION Notify the Dictionary Administrator. 4674 MESSAGE Unable to produce KSAM file table (SDERR 4674) CAUSE Unable to retrieve the KSAM file table definition from the message catalog. ACTION Notify the Dictionary Administrator. 4675 MESSAGE Unable to retrieve RECORD contains ELEMENT for record (SDERR4675) CAUSE A System Dictionary error occurred while retrieving any RECORD contains ELEMENT relationships for the given RECORD entity.
4690 MESSAGE Unable to retrieve ELEMENT references ELEMENT for first-element (SDERR 4690) CAUSE A System Dictionary error occurred while retrieving any ELEMENT references ELEMENT relationships for the given ELEMENT entity. ACTION Notify the Dictionary Administrator. 4691 MESSAGE Unable to retrieve comment attr's for ELEMENT element (SDERR4691) CAUSE A System Dictionary error occurred while retrieving attributes required to comment the given ELEMENT entity. ACTION Notify the Dictionary Administrator.
values: B, E, E+, I, I+, J, J+, K, P, P+, R, R+, S, X, U, Z, Z+, 9, 9+, *. 4702 MESSAGE Illegal attribute, decimal is negative (SDERR 4702) CAUSE The decimal attribute retrieved from the dictionary has an invalid value. It must be zero or a positive integer. ACTION The dictionary decimal attribute must be updated to zero or a positive integer.
CAUSE The count attribute has a value greater than one, indicating that an occurs clause should be used. Since this element is already contained in an element which is the third level of an array, COBOL does not allow a forth level. ACTION The dictionary count attribute must be updated to one, or the element removed from the array. 4715 MESSAGE No command to REDO (SDERR 4715) CAUSE No command has been issued in SDCDE prior to entering the REDO command, i.e.
ACTION Some REDO sub-commands must not be accompanied by other characters. Those subcommands are: break, execute, exit, help, and list. Reenter the sub-command by itself. 4730 MESSAGE Move forward/backward command can only have a number following it (SDERR 4730) CAUSE The REDO sub-command is followed by a non-numeric character. ACTION The forward/backward REDO sub-command must be followed by nothing, or by a number. Reenter the modified sub-command.
CAUSE The length of the given COBOL name, after adding the prefix to it exceeds 61 characters. ACTION None necessary. The name is automatically truncated to 61 characters. 4742 MESSAGE Name truncated while adding suffix to long-name (SDWARN 4742) CAUSE The length of the given COBOL name, after adding the suffix to it, exceeds 61 characters. ACTION None necessary. The name is automatically truncated to 61 characters.
(SDWARN 4754) CAUSE No IMAGE-DATASET contains RECORD relationships were found in the dictionary for the given data set. ACTION No source will be generated for the data set until the relationship(s) are added to the dictionary. 4755 MESSAGE IMAGE-DATASET data-set has no search item (SDWARN 4755) CAUSE No IMAGE-DATASET key ELEMENT relationships were found in the dictionary for the given data set if the set is a master set.
CAUSE Multiple FILE uses DEVICE-CLASS relationships were found for the given file. ACTION The ASSIGN clause will not include any device name. If one is desired, all but one FILE uses DEVICE-CLASS relationship must be deleted from the dictionary for the given file. 4770 MESSAGE Relative file cannot produce SD statement. Generating FD(SDWARN 4770) CAUSE The SD option was chosen at the FD/SD prompt, when the file being defined in the file section. Relative files can only be defined using the FD statement.
ACTION The lockword will be transformed to a valid lockword by altering each invalid character to a 'x'. The following are valid lockword characters: a...z, A...Z, 0...9. The lockword attribute of the FILE entity should be altered to contain a valid lockword. 4780 MESSAGE File rec size is zero or negative. Generated dummy record(SDWARN 4780) CAUSE The max-record-size attribute of the FILE entity is zero or negative. ACTION The record description for the FD statement will default to PIC X(2).
ACTION The edit mask will be generated as if no edit-mask attribute exists in the dictionary. If a special edit mask is required, the dictionary edit-mask attribute must be updated. 4792 MESSAGE Edit mask too long. Remaining characters truncated! (SDWARN4792) CAUSE The edit-mask attribute contains more than 30 characters. ACTION All characters following the 30th character are truncated, and the remaining 30 characters are validated.
VALUE variable attribute is created. 2. No level-88 definition will be generated for the relationship until a CONDITION-VALUE variable attribute length is greater than zero. 4800 MESSAGE Unable to get var attribute. No default used! (SDWARN 4800) CAUSE A System Dictionary error occurred while retrieving the default attribute for an ELEMENT. ACTION No VALUE clause is generated for the element. If a serious System Dictionary error is suspected, notify the Dictionary Administrator.
DITION-NAME relationship must be deleted. 4808 MESSAGE Usage is COMP not allowed when parent contains level-88 (SDWARN4808) CAUSE The ELEMENT-TYPE attribute values I, J, or K are not allowed for an ELEMENT that directly or indirectly contained by an ELEMENT that contains a CONDITIONNAME. ACTION Either the ELEMENT-TYPE attribute must be modified, or the ELEMENT contains CONDITION-NAME relationship must be deleted.
4820 MESSAGE Unable to read from input file. Program aborted (SDERR 4820) CAUSE A disc error occurred while reading from the program input file. ACTION Check the file system error message. Notify the System Manager if a serious problem is suspected. 4821 MESSAGE Premature EOF reached on input file. Program aborted (SDERR4821) CAUSE The EOF is found while reading from the input file. ACTION Edit the SDIN file to correct the problem. Be sure to include the EXIT command before EOF.
ACTION Check the file system error message. Notify the System Manager if a serious error is suspected. 4833 MESSAGE Unable to read from temp file SDTMP. Program aborted (SDERR4833) CAUSE A disc error occurred while reading from the temporary file SDTMP. ACTION Check the file system error message. Notify the System Manager if a serious error is suspected. 4834 MESSAGE Unable to write to temp file SDTMP. Program aborted (SDERR 4834) CAUSE A disc error occurred while writing to the temporary file SDTMP.
4850 MESSAGE Unable to write to temp file SDTEXT. Program aborted (SDERR4850) CAUSE A disc error occurred while writing to the temporary file SDTEXT. ACTION Check the file system error message. Notify the System Manager if a serious error is suspected. 4851 MESSAGE Unable to read from temp file SDTEXT. Program aborted (SDERR4851) CAUSE A disc error occurred while reading from the temporary file SDTEXT. ACTION Check the file system error message.
CAUSE A disc error occurred while writing to the temporary file SDRELLST. ACTION Check the file system error message. Notify the System Manager if a serious error is suspected. 4864 MESSAGE Unable to read from temp file SDRELLST. Program aborted (SDERR4864) CAUSE A disc error occurred while reading from the temporary file SDRELLST. ACTION Check the file system error message. Notify the System Manager if a serious error is suspected. 4865 MESSAGE Unable to delete temp file SDRELLST.
suspected. 4883 MESSAGE Unable to read from temp file SDCNST. Program aborted (SDERR4883) CAUSE A disc error occurred while reading from the temporary file SDCNST. ACTION Check the file system error message. Notify the System Manager if a serious error is suspected. 4884 MESSAGE Unable to delete temp file SDCNST. Program aborted (SDERR 4884) CAUSE A disc error occurred while deleting the temporary file SDCNST. ACTION Check the file system error message.
A- 98
B SDCDE Command Abbreviations SDCDE accepts abbreviations for the command and sub-command keywords. The following table lists each SDCDE keyword and its corresponding abbreviation.
Table 2: Command Abbreviations Keyword Abbreviation LIST MODULE L MOD OPTIONS ALIAS NONE COBOL IMAGE STANDARD VPLUS EDIT-MASK ON OFF QUALIFY ELEM-QUALIFY NONE PREFIX SUFFIX CONSTANTS SELECT-FILE COMMON-STORE SECONDARY-REC ECHO COMMENT OP A NO COB IM STD VP EM ON OFF Q EQ NO PRE SUF CON SF CS SR EC COM REDO REDO RESET R SHOW SH STANDARD-PARMS IMAGE VPLUS KSAM SP IM VP KS B- 100
C SDCDE PICTURE Clause Translation C- 101
Generating the Edit Mask from Attributes The generation of the PICTURE clause for each data element depends on whether or not you request the use of the edit-mask. If you do not request that the edit-mask be used, Table C-1 shows how SDCDE generates the PICTURE clause. In Table C-1, "d" designates the display-length attribute value, "b" the byte-length attribute value, and "e" the decimal attribute value.
Table 3: System Dictionary Element Type I,J,K COBOL PICTURE Clause If e = 0, then S9(n) COMP where b d n --- ------- --- 2 d<4 d d>4 4 d<5 5 5 <= d <= 9 d d>9 9 d < 10 10 10 <= d <= 18 d d > 18 18 4 8 If b does not equal 2, 4, or 8 then SDCDE issues a warning message and generates the PICTURE clause as X(d) If e > 0, then S9(n)V9(e) COMP where b d n --- ------- --- 2 d <= 5 d-e-1 d> 5 4-e d< 6 5-e 6 <= d <= 10 d-e-1 d > 10 9-e d < 11 10-e 4 8 11 <= d <= 19 d-e
Generating the PICTURE Clause from the Edit Mask If you request generation of the PICTURE clause from the edit-mask, all other attributes pertaining to the clause are ignored. Only if the element's type cannot be determined from the edit-mask is the elementtype attribute used to determine if the value is alphanumeric or numeric. If no edit-mask attribute exists, the PICTURE is determined using other attribute data as shown in Table C-1.
D Glossary This appendix provides a glossary of System Dictionary terms. Access - The right to read or manipulate a dictionary domain or occurrence. Access Rights - The rights of a scope to read or manipulate a domain or occurrence, as determined by whether that scope is the owner of the item, or is just associated with it. Alias Name - Different names associated with different external subsystem uses of an occurrence, including a difference in programming syntax (e.g.
E-R Model - See Entity-Relationship model. Entity - An entity is a description of an object in the information network, and belongs to a specific Entity Type. Entity List - The ordered list of entities that make up a relationship. Entity Type - An object in the dictionary structure that classifies entity occurrences. Each entity type is further defined by an associated set of attributes.
Relationship). Name mode - A parameter set while opening the dictionary, used to cause intrinsics to reference either internal or external names when accessing dictionary items. Name set - A group of names within the dictionary that includes names for any one of the following types of dictionary definitions: domains, versions in the same domain, entity types, relationship classes, attributes, scopes, and entity occurrences of a specific type that are located in the same domain.
intrinsic call. The status is returned as the final parameter of intrinsic calls. Structure - The part of System Dictionary that includes both core set and extended set entity types, relationship types, relationship classes, and attributes. Subcommand - The SDMAIN-defined name hat specifies the general target of the action. Synonym - An alternate name for an entity in the dictionary. A synonym must uniquely identify a given entity.
