This document describes the Write-to-Spool feature for Natural.
The following topics are covered:
See also Installing and Activating the Write-to-Spool Feature in the section Installing Entire System Server Interface on z/OS in the Installation for z/OS documentation.
The Write-to-Spool feature enables Natural users to write reports to
the system spool directly. It can be used in any Natural environment
(Com-plete, TSO, CICS, IMS TM, batch, etc.) and uses the Entire System Server
view WRITE-SPOOL
.
Under z/OS, the SYSOUT
is part of the Entire System
Server job stream within the JES spool, and it may be processed by any software
which expects output in JES Spool, for example, Entire Output Management. The
JES spool may be a JES2 or a JES3 spool.
To use the Write-to-Spool feature, the Entire System Server needs to be installed.
The Write-to-Spool feature is handled by a so called "access
method", which is called ESS
for Entire System Server. You
may define your printer in the Natural
parameter module or dynamically in your session
parameters.
To define your printer
Define the printer in the Natural parameter module.
Use the
NTPRINT
macro to specify the printer number (n
)
and the access method (AM
):
NTPRINT (n),AM=ESS
Example:
NTPRINT (1,3),AM=ESS
In this example, the printers 1 and 3 are defined for use
with access method ESS
(Entire System Server).
Define the printer during session startup by specifying the
profile parameter PRINT
, for
example:
PRINT=((1-6),AM=ESS)
In this example, the printers 1 to 6 are defined for use
with access method ESS
(Entire System Server).
Link the access-method modules to the Natural nucleus.
See the platform-specific Installation documentation.
Load it dynamically by specifying the following profile
parameters RCA
and
RCALIAS
:
RCA=(NATAM11),RCALIAS=(NATAM11,NATPWSAM)
where NATPWSAM
is the delivered write-to-spool
module containing the default parameters.
If you have linked a module with adapted parameters, use the name of this module instead.
Define the JES destination with the
OUTPUT
option of the DEFINE
PRINTER
statement. You can use one of the following examples
depending on whether you want to send the output to a spool file, a local JES
printer, or through a remote JES node to a remote user or device.
Example:
DEFINE PRINTER (n) OUTPUT 'LOCAL' /* For printing on local JES/POWER printers
DEFINE PRINTER (n) OUTPUT 'DAEF' /* For printing to JES spool called DAEF
DEFINE PRINTER (n) OUTPUT 'DEST=node-name,REMOTE-USERID=user-id' /* For printing to remote JES nodes
where:
n
is the number
in the NTPRINT
entry in the
Natural parameter module described
in Step 1.
node-name
is the
name of the remote JES node.
user-id
the ID
of the user or device who receives the output.
Reports can now be written to the system spool using one of the following statements:
DISPLAY (n)
or
PRINT (n)
where n
is the
number in the NTPRINT
entry in the
Natural parameter module in
Step 1.
Users can set the output format and number of copies using
the FORMS
and COPIES
clauses of the DEFINE
PRINTER
statement.
Example:
DEFINE PRINTER (2) OUTPUT 'DEST' FORMS 'FORM'
The defaults for items such as Entire System Server node,
forms and output class can be found in the module
NATWSPDF
.
- Example 1
Assume using the factory settings and executing the Natural program:
DEFINE PRINTER (2) OUTPUT 'WK1' WRITE (2) 'THIS IS A SMART RECORD' CLOSE PRINTER (2)During the execution of this program, you can see the following fields with their values in the Display Active Tasks panel:
DDNAME DSID Owner C Dest Rec-Cnt Forms Wtr PageDef FormDef SYS00001 104 WKK A WK1 2 STDBrowsing this data set, you can see:
Page 1 THIS IS A SMART RECORD- Example 2
Assume using the default member:
Parameter Explanation (Possible Values) WSPDFLT NODE=55526,
Entire System Server target node number (5 characters at maximum) PROGRAM=HUGO,
JES writer (8 characters at maximum) CLASS=Y,
SYSOUT
class (1 character)HOLD=YES,
Hold ( YES
orNO
)CNTL=A,
Carriage control ( A
orM
)FORM=WOFO,
Form (4 characters at maximum) RMT=JESWOLF,
JES remote (8 characters at maximum) FORMDEF=FOWOLF,
Form definition (6 characters at maximum) PAGEDEF=PAWOLF
Page definition (6 characters at maximum) Execute the following Natural program:
DEFINE PRINTER (2) OUTPUT 'WK1' WRITE (2) 'THIS IS A SMART RECORD' CLOSE PRINTER (2)During the execution of this program, you can see the following fields with their values in the Display Active Tasks panel:
DDNAME DSID Owner C Dest Rec-Cnt Forms Wtr PageDef FormDef SYS00002 105 WKK Y WK1 2 WOFO HUGO PAWOLF FOWOLBrowsing this data set, you can see:
Page 1 THIS IS A SMART RECORD- Example 3
Assume using the default member:
Parameter Explanation (Possible Values) WSPDFLT NODE=55526,
Entire System Server (NPR) target node (node number) PROGRAM=*OUTPUT,
JES writer (8 characters at maximum) The other parameters in the default member are not changed.
Run the following example program:
DEFINE PRINTER (2) OUTPUT 'KURT' PRINT (2) ' here comes KURT' CLOSE PRINTER (2)After that, Entire System Server fetches the value from the field
OUTPUT
in theDEFINE PRINTER
statement and inherits it as the JES writer attribute for the specific spool data set.Looking in TSO/SDSF under the job name of Entire System Server, you can see the following:
PREFIX=NPR* DEST=(ALL) OWNER=* SYSNAME= NP DDNAME Time Forms FCB UCS Wtr Flash SYS00005 10:20:48 **** **** KURT ****If in JES an associated JES writer program is defined, it gets control and handles this output as defined in the program.