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.
