This Natural profile parameter specifies a non-Natural back-end program which is to receive control after the termination of the Natural session.
Possible settings | 1-8 characters | Non-Natural back-end program. |
---|---|---|
numeric value | Setting a numeric value, for example PROGRAM=0 ,
indicates "no back-end processing". This is particularly relevant
when Natural is invoked by a front-end program, because a default may be taken
if PROGRAM is blank or not specified; see
Front-End
Invoked via XCTL in the TP Monitor
Interfaces documentation.
|
|
Default setting | none | |
Dynamic specification | yes | It can also be set dynamically from within a Natural program by
calling the Natural subprogram CMPGMSET which is provided in the
library SYSEXTP .
|
Specification within session | yes | |
Application Programming Interface | USR4001N (available on mainframes)
|
See SYSEXT - Natural Application Programming Interfaces in the Utilities documentation. |
USR6204N (available on all
platforms)
|
Data for the program specified with the PROGRAM
parameter can be supplied with the TERMINATE
statement.
For the conventions of calling non-Natural back-end programs, see Back-End Program Calling Conventions in the Operations documentation.
In addition to back-end programs, the Natural CICS interface also
supports back-end transactions which may be specified via
RET=XXXX
or
RTI=XXXX
or
STR=XXXX
instead of a program name,
with XXXX
being a valid CICS
transaction ID.
RET=XXXX
or
RTI=XXXX
indicates that control has to
be passed to CICS together with a return transaction ID by a CICS RETURN
TRANSID ('XXXX')
command.
RTI=XXXX
indicates that
control has to be passed to CICS with a return transaction ID by a CICS
RETURN TRANSID ('XXXX' IMMEDIATE)
command.
STR=XXXX
indicates that a new
transaction has to be started by a CICS START TRANSID
('XXXX') TERMID (*INIT-ID)
, before
relinquishing control via a CICS RETURN
command.