When you invoke "DL/I Services" from the SYSDDM
main menu, the DL/I Services Main Menu is displayed which
offers you the following functions:
NDB
Maintenance
An NDB is a DL/I DBD (database description) which is defined to
Natural.
NSB
Maintenance
An NSB is a DL/I PSB (program specification block) which is
defined to Natural.
This section covers the following topics:
When you select NDB Maintenance on the DL/I Services Main Menu, the NDB Maintenance menu is displayed:
14:37:12 **** DL/I Services **** 2006-05-25
- NDB Maintenance -
Code Functions
---- -------------------------------------
S Select an NDB from a List
P Purge an NDB
L Select an NDB Segment from a List
E Edit an NDB Segment Description
G Generate DDM from Segment Description
? Help
. Back
M End
---- -------------------------------------
Enter Code: ?
NDB Name:
Segment Name:
ENTER PF1 PF2 PF3 PF4 PF5 PF6 PF7 PF8 PF9 PF10 PF11 PF12
Help Back End |
The individual NDB maintenance functions are listed below:
| Function | Explanation | ||||
|---|---|---|---|---|---|
| Select an NDB from a List | List the NDBs which are defined on the Natural system file.
You can then select NDBs from this list by entering the following function
codes:
For details, see Select an NDB from a List. |
||||
| Purge an NDB | Purge an NDB and its related segment descriptions from the
Natural system file. The name of the NDB to be purged must be specified.
Before this function is executed you are prompted to confirm the purge request. For details, see Select an NDB from a List. |
||||
| Select an NDB Segment from a List | List the segments of the specified NDB. You can then select
segments from this list for further processing.
For details, see Select an NDB from a List. |
||||
| Edit an NDB Segment Description | Edit a segment description. The segment name and its
corresponding NDB name are required when invoking this function. A database ID
(DBID) and file number (FNR) must have been assigned to the segment description
(function code A on the Segment List display)
before it can be edited.
For details, see Edit an NDB Segment Description. |
||||
| Generate DDM from Segment Description | Generate a DDM from a segment description. The DDM definition
is a Natural DDM of the segment. Prior to execution of this function, a DBID
and FNR must have been assigned to the segment (function code A on
the Segment List display).
For details, see Generate DDM from Segment Description. |
When you select an NDB from a list, a list containing all NDBs defined on the Natural system file is displayed. In addition to the NDB name the following is displayed:
| L/P | Indicates if ACCESS=LOGICAL or not.
|
| length | Length of the NDB. |
| NoSGMS | Number of the segment types in the NDB. |
| ACCESS | The access specification taken from the DBD. |
From the list, you can select NDBs for further processing by entering the following function codes in the Func column next to the NDB names:
| Code | Function |
|---|---|
P |
Purge NDB This function is identical to the Purge NDB function available on the NDB Maintenance menu. It deletes an NDB and its related segment descriptions from the Natural system file. Before the function is executed you are prompted to confirm the purge request. |
L |
List NDB Segments This function is identical to the "Select NDB Segment from a List" function available on the NDB Maintenance menu. It lists the segments of the selected NDB. For details, see Select an NDB Segment from a List. |
When you select an NDB segment from a list, a list containing all segments of the specified NDB is displayed. If you do not know the NDB name, use the Select an NDB from a List function.
10:50:48 **** DL/I SERVICES **** 2006-05-25
- Segment List -
DBD Name = ED00DBD
Func Level Segment DBID FNR Seg-Lgh UDF-Lgh Response
--------------------------- Top of Data --------------------------------
_ 1 COURSE 246 _10 75-80 100
_ 2 PREREQ 246 _11 36-36 40
_ 2 OFFERING 246 _12 41-41 40
_ 3 TEACHER 246 _13 24-24 60
_ 3 STUDENT 246 _14 40-40 40
_ ___ ___
_ ___ ___
_ ___ ___
_ ___ ___
_ ___ ___
----------------------------- Bottom -----------------------------------
Code .. _ ( ? Help . Back M End )
Func = E Edit Segment Description A Assign DBID and FNR
F Free DBID and FNR ' ' Change DBID and FNR
G Generate DDM N Take New Copy of UDF
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Exec Help Exit Canc |
Next to each segment you can enter one of the function codes listed below. You can mark several segments at the same time with a function code. If you do not enter any code, the list is scrolled forward until the bottom of the list is reached.
You can enter one of the following codes next to a segment on the segment list to perform one of the following functions:
| Code | Function |
|---|---|
A |
Assign a DBID and a FNR to the selected segment. The DBID is a number in the range from 1 to 254. It must be
contained in the database ID list ( The FNR is a number in the range from 1 to 254. The FNR must be specified; no default value is assumed by Natural. The segments of a logical NDB must have file numbers different from those assigned to the segments of the physical NDB. The DBID/FNR combination must be unique on the Natural system file. It is used by Natural to uniquely determine the NDB and the segment within the NDB. |
E |
Edit Segment Description
Edit the description of a segment within a given NDB. The function is the same as the Edit an NDB Segment Description function which you can invoke from the NDB Maintenance menu. Before you can edit a segment description, a DBID and FNR must have been assigned to the segment (see above). For details, see Edit an NDB Segment Description. |
F |
Free DBID/FNR
Release the DBID and FNR which have previously been assigned to the segment. Once a DBID and FNR have been released, they are available for assignment to another segment. |
G |
Generate
DDM
Generate a DDM definition from a segment description. The function is the same as the Generate DDM from Segment Description function which you can invoke from the NDB Maintenance menu. Before you can generate a DDM from a segment description, a DBID and FNR must have been assigned to the segment (see above). The generated DDM is a Natural view of the segment. Once it has been generated, the DDM can be modified and cataloged. For details, see Generate DDM from Segment Description. |
N |
Take New Copy of UDF
Refresh the user-defined fields (UDFs) of a segment when the UDFs of the source segment have been changed. This applies to UDFs of segments belonging to a logical NDB and to UDFs of logical virtual children. Before you can execute this function, a DBID and FNR must have been assigned to the segment (see above). |
| blank |
Change DBID/FNR
Change a previously assigned DBID and/or FNR. For changing a DBID or FNR, the same rules concerning DBID and FNR specification apply as for assigning a DBID/FNR (see above). |
Additional segment fields, so-called user-defined fields (UDFs), can be defined.
This function is invoked either by entering
function code E, an NDB name and a segment name on the
NDB
Maintenance menu, or by selecting the segment from the
Segment List (by marking it with function code
E). A DBID and a FNR must have been assigned to a segment
description (function code A on the Segment
List display) before it can be edited.
EDIT command: DBD ED00DBD SEGMENT STUDENT SEGLGH 40-40
ALL LEV SN FIELD NAME START DLI MAXOCC FOR LGH V
---------------------------------------------------------
1 PM EMPNO 00001 SQU A 6
1 PN NAME 00007 SRC A 33
1 PO GRADE 00040 SRC A 1
1 AA BIRTHDATE 00025 A
2 AB DATE-DD N 2
2 AC DATE-MM N 2
2 AD DATE-YY N 2
1 AE BIRTHPLACE A 10
1 AF STUDENT-NAME PN A 18 |
The following information is displayed on the status line at the top of the screen:
DBD |
Name of the DBD which contains the edited segment. |
SEGMENT |
Name of the edited segment. |
SEGLGH |
Minimum and maximum length of the edited segment, separated by a hyphen. |
DL/I fields and user-defined fields are displayed as shown above. You
can add, delete or modify UDFs. DL/I fields, however, can neither be added nor
deleted. If the specification TYPE=P is included in the
FIELD statement of the DL/I DBD, the format of the field can be
changed from P (decimal packed unsigned) to S
(decimal packed signed) on the edit segment description screen.
FOR (format) is the only attribute of a DL/I field you can modify.
In particular, it is not possible to change the name of a DL/I field, because
it is used by Natural to build the segment search arguments (SSA). If the name
of a DL/I field is to be changed, the field can be redefined as an UDF.
Edit commands are available to copy or delete single lines or to insert a group of empty lines. In addition, commands for scrolling forward or backward are provided. For details you can enter a question mark in the "command" field to display the corresponding help information.
After modification of segment field attributes you can save the
description by entering SAVE in the command field.
The following field definition attributes are displayed and can be modified for user-defined fields:
| Attribute | Description | ||||||||
|---|---|---|---|---|---|---|---|---|---|
LEV |
Level number used to define a group of fields. | ||||||||
SN |
Short name of the field as used internally by Natural. | ||||||||
FIELD NAME |
Name of the field as used in the application programs. | ||||||||
| START | Start position of the field in the segment. | ||||||||
DLI |
Type of the DL/I field, as follows:
|
||||||||
MAXOCC |
Maximum number of occurrences of a multiple field or periodic group. | ||||||||
FOR |
Format of the field. | ||||||||
LGH |
Length of the field. | ||||||||
V |
Variable field length indicator. |
Each user-defined field can be defined as follows:
| Field Type | Description | ||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Elementary Field |
A field that contains only one value in a single
segment. |
||||||||||||||||
| Multiple Field |
A field that can contain more than one value in a single
segment. Reference to a particular value of a multiple field can be made by
appending a one to three-digit subscript (value |
||||||||||||||||
| Group |
A series of one or more adjacent fields that can be referenced with a single name (the group name). You can also refer to a single field of a group by specifying its name. Example:
|
||||||||||||||||
| Periodic Group |
A group which is repeated in multiple adjacent occurrences in
a single segment. For a periodic group it is possible to refer to a range of
occurrences (or a field within a periodic group) by specifying the first and
the last occurrence number to be referenced (connected by a hyphen (-)) after
the name and in ascending order. Multiple-value fields or periodic groups are
not allowed within a periodic group. |
Since DL/I fields cannot be modified as described above (with the
exception of FORMAT), they cannot be directly defined as a group.
To define a DL/I field as a group, it is necessary to redefine it as a
user-defined field which then can be redefined as a group. In a DDM, these
user-defined fields must not be specified as descriptor fields. When a DDM is
generated, the UDFs are marked as non-descriptor fields.
The description of the segment STUDENT within the DBD
named ED00DBD is used as shown in the
Segment List screen above:
LEV SN FIELD NAME START DLI NOCC FOR LGH V
----------------------------------------------------------
1 PM EMPNO 00001 SQU A 6
.
.
.
|
If the DL/I sequence field PM is to be
"structured", it must be redefined as a user-defined field
(AAAAA in the figure below). This UDF can then be structured as
required.
LEV SN FIELD NAME START DLI NOCC FOR LGH V
----------------------------------------------------------
1 PM EMPNO 00001 SQU A 6
.
.
.
1 AA AAAAA PM
2 AB BBBBB A 3
2 AC CCCCC A 3
.
.
. |
The group field AAAAA has no format/lenght
(FOR/LGH) specified. The length of a group is set
equal to the sum of all fields belonging to the group.
For each user-defined field on the above screen, parameters can be specified as listed and described in the following table. The total length of all DL/I fields and user-defined fields must not exceed the segment length.
When attributes of a UDF are modified and an old copy of this UDF is
contained in the shared UDF buffer pool, the old copy is marked
"invalid". If the UDF is referred to again by a Natural program,
the modified UDF is read from the Natural system file. Therefore, it is not
necessary to restart the Natural session if a UDF has been modified. However,
this applies only to physical UDFs; that is, to UDFs of a physical NDB. If a
physical UDF is modified and a logical NDB refers to the appropriate segment
type, the logical UDF is not marked "invalid" in the buffer pool.
To invalidate a logical UDF it is necessary to restart the TP monitor or to
execute function N (Take New Copy of UDF) of
the Segment List screen on the appropriate segments in the
logical NDB.
| Field | Description | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
LEV (level number)
|
A one-byte value used to define a group. A field is a group only if the subsequent field has a higher level number. The field immediately after the last group element must have a lower level number. A group can be defined within another group. The level number of the first user-defined field must be 1. | ||||||||||||
SN (short name)
|
The name used internally by Natural to identify the field. It must be two bytes in length, the first character must be alphabetic in the range from A to G (E is not permitted). The second character can be alphanumeric (that is, up to 216 UDF fields can be defined). If the segment is a logical child, the first character must be alphabetic in the range from H to M. Short names must be unique among a segment type. | ||||||||||||
FIELD NAME |
External field name, up to 19 bytes long. | ||||||||||||
START |
The start position of the field in the segment. The position can be specified as absolute by giving a three-digit number or it can be specified as relative, by giving the short name of a previously defined field which is being redefined. It is important to specify the start position for the first user-defined field; otherwise, a default of 1 is used, which may cause overlapping with previous DL/I fields. The default for all other user-defined fields is the position immediately after the previous field. The redefinition of fields is possible only for fields which have the same level number. When the level is higher than 1 (that is, for a field inside a group), only the last field can be redefined with the same level number. An absolute position must not be specified for a field within a group. |
||||||||||||
MAXOCC |
The maximum number of occurrences of a multiple -value field or periodic group in a segment. | ||||||||||||
FOR (format)
|
Standard field formats are:
|
||||||||||||
LGH (length)
|
Field length is a three-digit number; it must not exceed the maximum length permitted. These are as follows:
In addition, the length specified must not exceed the segment length. Length must not be specified for a group. The length of packed fields is the field length in bytes. |
||||||||||||
V (variable)
|
Depending on its value, Only one field can be defined as variable within a given segment description. An elementary field can be specified as variable in length only if it is the last field in the segment. A multiple field or a periodic group can be specified as variable in length regardless of its position in the segment. When applied to a multiple field or a periodic group, a setting
of |
This function is invoked either by using the G function
code of the NDB
Maintenance menu - then an NDB name and a segment name
must be specified -, or by selecting the segment from the
Segment
List, by marking it with function code
G.
A DBID and a FNR must have been assigned to a segment description
(function code A on the Segment List display)
before a DDM can be generated.
The DDM is generated from a segment description and represents a Natural view of the segment. It must be generated and cataloged before the corresponding segment can be referenced by a Natural program. After generation, default options for field headers or edit masks (decimal positions) can be modified in the DDM. See Catalog DDM and Edit DDM in the Natural Utilities documentation for corresponding information.
It should be noted, however, that default options for field headers or edit masks (decimal positions) are stored with the DDM and not with the NDB or UDF. The data in the NDB or UDF reflects what is allowed by the DL/I FIELD macro in which the length can be specified only in bytes (decimals are not allowed). Consequently, when regenerating the DDM, prior modifications in the DDM must be applied again by the user.
In DL/I a program must be able to reference search fields, sequence fields and secondary index fields of ancestor segments in order to build a certain search criterion; therefore, DDMs for DL/I segments can also include fields which are not part of the actual physical segment.
To satisfy the requirements for DL/I processing, a DDM must contain all the fields which can be referenced. Therefore, the generated DDM can contain the following fields:
DL/I sequence fields, search fields and secondary index fields of the
current (physical) segment. These fields have been defined in the
DBDGEN source for this segment. When the DDM is generated,
information on these fields is obtained from the NDB control block for this
segment. DL/I sequence fields and secondary index fields are marked as
descriptor (D), search fields are marked as non-descriptor
(N). All of these fields can be used to qualify search
requests.
DL/I sequence fields and secondary index fields of all the ancestor
segments. These fields have been defined in the DBDGEN source for
the ancestor segments. When the DDM is generated, information on these fields
is obtained from the NDB control blocks for the ancestor segments. These fields
are marked as descriptor (D). They can be used to qualify search
requests.
DL/I search fields of all the ancestor segments. These fields have
also been defined in the DBDGEN source for the ancestor segments.
When the DDM is generated, information on these fields is also obtained from
the NDB control blocks for the ancestor segments. However, these fields are
marked as superdescriptor (S). They can be used to qualify search
requests.
Fields of the current segment defined by the user (UDFs). When the DDM is generated, information on these fields is obtained from the UDF control blocks. These fields cannot be used to qualify search requests.
Fields of format S in the segment description (see
UDF
Parameters) generate format P in the DDM.
The following tables summarize how the various types of fields can be
processed using Natural I/O statements. They illustrate which fields can be
used to qualify search requests, and which fields can be used with the Natural
statements DISPLAY, UPDATE or STORE. In
addition, the tables indicate whether the field in the generated DDM is marked
as descriptor, superdescriptor or non-descriptor.
| Type of field | FIND/READ | DISPLAY | UPDATE | STORE | Marked |
|---|---|---|---|---|---|
| DL/I sequence | yes | yes | no | yes | D |
| DL/I search | yes | yes | yes | yes | D |
| DL/I SIX | yes | yes | no | no | D |
| UDF | no | yes | yes | yes | blank |
| Type of field | FIND/READ | DISPLAY | UPDATE | STORE | Marked |
|---|---|---|---|---|---|
| DL/I sequence | yes | yes | no | yes | D |
| DL/I search | yes | no | no | no | S |
| DL/I SIX | yes | yes | no | no | D |
| UDF | no | no | no | no | blank |
Anmerkungen:
PROCSEQ parameter. If not, an error message is returned
by Natural at runtime.
UPDATE
or STORE statement. SIX fields, however, can be updated/stored by
referring to the source fields which comprise the SIX.
READ statement returns records in ascending
sequence. The possible sequences for DL/I segments are root sequence or the
sequence of any secondary index.
As mentioned above, the generated DDM contains all fields of the
current segment and all DL/I fields of the ancestor segment(s), marked either
as D or S. The UDFs of the ancestor segments are not
included in the generated DDM because a DDM refers only to one segment.
The generated external name of the DDM is equal to the segment name prefixed by the DBD name.
Example:
| Name of DBD: | ED00DBD |
| Name of segment: | STUDENT |
| Name of generated DDM: | ED00DBD-STUDENT |
The generated external name of DL/I fields is equal to the name specified in the DL/I FIELD macro during the DL/I DBDGEN procedure.
The generated external name of DL/I fields of ancestor segments is equal to the field name suffixed by the segment name.
Example:
| Name of DL/I field: | LOCATION |
| Name of ancestor segment: | OFFERING |
| Name of generated field: | LOCATION-OFFERING |
The generated external name of the UDFs is equal to the name specified by the user at definition time.
When you select NSB Maintenance on the DL/I Services Main Menu, the NSB Maintenance menu is displayed.
From this menu, you can select the following NSB maintenance functions:
| Function | Explanation | ||||
|---|---|---|---|---|---|
| Select an NSB from a List |
List the DL/I PSBs defined on the Natural system file. You can select NSBs from this list by entering the function code
|
||||
| Purge an NSB | Delete an NSB and its related PCB descriptions from the Natural system file. The name of the NSB to be deleted must be specified. Before this function is executed, you are prompted to confirm the deletion. | ||||
List PCBs and SENSEGs of an NSB |
For any NSB specified, this function lists the PCBs and their sensitive segments. If an indexed database exists, its name is displayed under the header "PROCSEQ". |
10:44:50 **** DL/I SERVICES **** 2006-05-25
- NSB List -
Func NSB Name CMPAT Length NoPCBs Response
------------------ Top of Data -------------------
_ DFSIVP6 YES 140 3
_ PBNDL01 NO 160 3
_ PBNDL02 YES 160 1
_ PBNDL03 YES 160 3
_ PBNDL04 YES 160 1
_ PBNDL05 NO 80 1
_ PBNDL97 YES 160 3
_ PBNDL98 YES 200 5
_ PBNDL99 NO 200 5
_ PBPQA01 YES 60 5
_ PBSUP06 NO 440 5
-------------------- - More - ---------------------
Code .. _ ( ? Help, . Back, M End )
Func .. P (Purge NSB) L (List PCBs and SENSEGs)
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Exec Help Exit Canc
|
10:46:57 **** DL/I SERVICES **** 2006-05-25
- PCB List -
NSB Name: PBNDL01 (CMPAT=NO ,Length=00160)
Number of PCB's NDB Name Level SENSEG PROCSEQ
-------------------------- Top of Data --------------------------
3 ED00DBD
1 COURSE
2 PREREQ
2 OFFERING
3 TEACHER
3 STUDENT
-------------------------- Bottom -----------------------------
Code .. _ ( ? Help . Back M End )
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Exec Help Exit Canc
|
10:49:10 **** DL/I SERVICES **** 2006-05-25
- NDB List -
Func NDB Name L/P Length NoSGMs Access Response
---------------------- Top of Data ---------------------
_ CCCBTD00 P 460 6
_ DNDL01 P 540 5
_ DNDL02 P 620 10
_ DNDL03 L 820 10
_ DNDL04 P 60 1 GSAM
_ DPQA04 P 480 5
_ DSUP02 L 1720 15
_ DSUP05 P 380 5
_ DSUP09 P 340 2
_ DSUP10 L 880 10
_ DUSA01 P 320 5 HDAM
------------------------ - More - -----------------------
Code .. _ ( ? Help, . Back, M End )
Func: P (Purge NDB) L (List NDB Segments)
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Exec Help Exit Canc
|