This Natural profile parameter can be used to predefine the properties for external
programs. It corresponds to the NTPGP
macro in the Natural parameter
module.
Possible settings | See PGP Parameter Syntax. | |
---|---|---|
Default setting | OFF |
No properties are defined for external programs. |
Dynamic specification | yes | The profile parameter PGP can only be specified dynamically. In
the Natural
parameter module, the macro NTPGP must be used.
|
Specification within session | yes | Temporary SET CONTROL 'P=value' for
each call of the external program.
|
Notes:
CALL
statement, there are already several options available
by means of a preceding SET
CONTROL
statement (for example, SET CONTROL 'P=S'
) to
request certain programming interface properties for the subsequent CALL
.
With NTPGP
or PGP
it is possible to
predefine these program properties in the Natural parameter module or dynamically rather
than in the Natural application program, which could be error prone
PGP
definitions for different programs,
PGP
or NTPGP
must be specified multiple
times.
%P=
applies only to the next call of an external
program, and the call options are reset unconditionally on return from the call, whereas
the profile parameter PGP
sets the call option for an external
program permanently.
PGP
or by a SET CONTROL
'P=value'
statement, these properties will be merged
for this program.
With the dynamic PGP
parameter, you first specify the program name, and then
one or more properties for this program.
PGP=(program-name,property-1,property-2,...) |
Or:
PGP=OFF |
Notes:
OFF
resets all properties for the program previously
defined.
PGP
definitions for different programs, the
profile parameter PGP
must be specified multiple times (separated
by a comma or a blank).
Property | Short | Explanation | SET CONTROL |
---|---|---|---|
STDL |
S |
Standard linkage under CICS | P=S |
STDLC |
SC |
Standard linkage simulates EXEC CICS
LINK .
|
P=SC |
STDLQ |
SQ |
Standard linkage on QR TCB under CICS.
This property only applies if Natural CICS Interface is used and if the Natural CICS Interface version installed at your site supports this property. This property does not apply if an external subprogram is defined to Natural
with the |
P=SQ |
ROLL |
V |
Rollout for call in thread environments. | P=V |
COMA |
C |
Pass values in CICS COMMAREA. | P=C |
CONT
|
CC |
Pass parameter values in CICS container. | P=CC |
LEMAIN
|
L |
The called program is an IBM LE main program. | P=L |
LESUB |
LS |
The called program is an IBM LE subprogram (IBM only) . | P=LS |
IMSPCB |
I |
Pass the IBM IMS TM PCB address. | P=I |
DIGR
|
D |
The called program is a DIGNUS remote subprogram. | P=D |
DIGL |
DL |
The called program is a DIGNUS local subprogram. | P=DL |
SUOW
|
U |
SUOW, separate CICS unit of work. | P=U |
SUOWB
|
UT |
Separate CICS unit of work tolerate backout. | P=UT |
OFF |
Clear all properties previously defined (dynamic parameter specification only). |
With the NTPGP
macro in the Natural parameter
module, you first specify the name of the external program and then one or
more properties for this program.
NTPGP program-name,property-1,property-2,...
Notes:
NTPGP
correspond to that of
profile parameter PGP
, see Syntax Elements and Property Values.
OFF
cannot be set with the macro
NTPGP
.
NTPGP
must be specified multiple times.
PGP=(TESTPGM1,S) PGP=(’ABX*’,L,NOS) PGP=(MYPROG7,OFF,L,STDL)
NTPGP TESTPGM1,S NTPGP ABX*,L NTPGP MYPROG,L,STDL