This Natural profile parameter controls the use of database open/close commands during a Natural session that accesses an Adabas or a VSAM database.
The NTOPRB
macro can be used as an alternative to the profile parameter
OPRB
in the NTPRM
macro. The
maximum length of an OPRB
parameter specification is 256
bytes. If you require a longer specification, use the
NTOPRB
macro instead of the OPRB
parameter.
Possible settings | See OPRB Parameter Syntax. | |
---|---|---|
Default setting | none | |
Dynamic specification | yes | |
Specification within session | no |
Notes:
OPRB
and the
corresponding macro NTOPRB
only apply to Adabas and VSAM
databases.
OPRB
parameter uses one of
the above syntaxes (the possible contents of the
strings
depend on the database
system).
OPRB
parameter, you can
also use the macro NTOPRB
in
the Natural
parameter module.
OPRB
specifications that
are to apply to all databases, it is strongly recommended that you use the
OPRB
parameter in the
NTPRM
macro (and not an
NTOPRB
macro).
The following topics are covered below:
The OPRB
parameter is specified as follows:
OPRB=(string) |
With this syntax you specify an open request for all databases.
OPRB=(DBID=nn1,string,DBID=nn2,string,...) |
With this syntax you specify an open request for specific individual
databases. As defined in the macro NTDB
, the
specified DBID identifies the type of database.
OPRB=(string1,DBID=nn1,string2,DBID=nn2,string3,...) |
With this syntax you specify an open request for specific individual
databases (string2
and
string3
) and also a default open
request - the initial string1
- which
applies to all databases for which you do not specify an individual string.
OPRB=(DBID=nn1,NR=value,string,...) |
With the subparameter NR=value
you specify whether the Adabas open command OP
is to
be executed as a restricted or non-restricted call. This controls the value set
in the Command Option 1 (COPT1
) of the open command
OP
.
Where:
Value | Explanation |
---|---|
NR=OFF
|
Causes a restricted open, with
COPT1=R .
This is the default value. |
NR=ON
|
Causes a non-restricted open, when
COPT1 is left empty.
|
A dynamically specified OPRB
parameter applies
for all logons to libraries in whose security profiles no
OPRB
parameter is specified. For a logon to a library in
whose security profile the OPRB
parameter is specified,
any dynamically specified OPRB
parameter is ignored, and
the one from the security profile applies.
The strings
which can be
specified for VSAM databases are described under
OPRB Parameter for VSAM Databases
in the Natural for VSAM documentation.
For Adabas databases, the OPRB
parameter is
required if either of the following conditions are true for the Natural
session:
An explicit list of Adabas files to be accessed/updated is to be provided. This is necessary, for example, if Adabas cluster updating or exclusive file control is to be requested.
A single logical transaction is to span two or more Natural programs
and, therefore, it is not desired to have Natural issue an END
TRANSACTION
and CL
(close) command at
the termination of any given Natural program.
Possible Content of Parameter String | Explanation |
---|---|
ACC=(file-list) |
Specifies access permission (read) for the files in the file list. |
UPD=(file-list) |
Specifies access/update permission (read/write) for the files in the file list. |
EXF=(file-list) |
Specifies exclusive file control: no other users may access/update the file. |
EXU=(file-list) |
Specifies exclusive update permission (exclusive read/write) for the files in the file list. |
ACODE |
Specifies the option to enforce a user encoding for A fields.
Note: |
WCODE |
Specifies the option to enforce a user encoding for W fields.
Note: |
ARC |
Defines a special data architecture for fields in the record and value buffers. This definition overrides the architecture key defined for remote calls in Entire Net-work. |
Notes:
OP
command in the Adabas Command
Reference documentation.
OPRB
parameter is omitted in the
Natural
parameter module or OPRB=OFF
is specified as a dynamic
parameter, a Natural session commences with an Adabas open command requesting
UPD
(access/update) to the Natural system file. Natural also
issues RELEASE CID
(Adabas RC
) commands
to release all ISN lists (ISN lists specified in a RETAIN
clause
of a Natural FIND
statement are not released).
The Adabas record buffer to be used with the initial Adabas
OP
command can be explicitly provided. The format is
similar to that used in an Adabas record buffer for the
OP
command with the exception that no blanks can be
embedded, and the complete setting must be enclosed in parentheses (not
apostrophes).
Example 1:
OPRB=(ACC=2,4,6,UPD=8.) This specifies that Adabas Files 2,4 and 6 are to be made available for access only and that Adabas File 8 is to be made available for update (which also implies access). |
Example 2:
OPRB=(EXU=1,2,3.) This specifies that Adabas Files 1,2 and 3 are to be placed under exclusive control for this Natural session. |
Combinations of the keywords ACC
, UPD
and
EXU
must follow the rules as defined in the relevant Adabas
documentation. When these keywords are coded, Natural issues an
OP
command at the start of a Natural session and a
CL
at the end of the Natural session. At the end of
a Natural program, only the required RC
commands are
issued to release held ISN lists.
In all of the above situations, the OP
command, which is always issued at the start of a Natural session, contains the
user ID for the Natural session in the Additions 1 field of the Adabas control
block. In batch mode, this is the job name. In TP mode, this is the setting
supplied at system initialization by the Natural interface module. In both
cases, the setting used is available in the Natural system variable
*INIT-USER
.
The syntax of the NTOPRB
macro is as follows:
NTOPRB dbid,'string'
Notes:
OPRB
parameter; if you use
Natural with VSAM, see also the
Natural for
VSAM documentation.
string
is very long, it
can be divided in up to five strings separated by commas (see examples below),
as the Assembler allows single strings up to 256 bytes only.
NTOPRB 12,'ACC=40,UPD=20' NTOPRB 15,'EXU=1,','2,3'