This document describes the print file/work file server
NATPWSV2
for the RPC batch server environment under BS2000 that is
started via the RPC Server
Front-End.
This section covers the following topics:
See also Print File/Work File Server NATPWSV2 Error Messages in the Messages and Codes documentation.
The print file/work file server NATPWSV2
communicates with
the RPC batch server NATFSTB2
by using the forward eventing
method.
To setup the print file/work file server, perform the following steps:
Link the module NATFSTB2
to the Natural nucleus. The
module NATFSTB2
replaces the program
NATWKFB2
.
The module NATPWSV2
must be linked, together with an
ADDON
parameter definition, for the common memory pool
with the new pool type PWK
(print file/work file control pool) in
the program BS2STUB
. This common memory pool must be set up using
a defined fixed address, for example:
PWKSTUB BS2STUB PARMOD=31,PROGMOD=ANY,UNRES=*DBLOPT ADDON NAME=PWK#POOL, NAME OF CONTROL POOL - TYPE=PWK, TYPE OF CONTROL POOL - SIZE=1MB, POOL SIZE IN MB - STAT=LOCAL, POOL STATUS IS LOCAL - SCOP=GLOBAL, SCOPE IS GLOBAL - POSI=ABOVE, POOL POSITION IS ABOVE - ADDR=19, ADDRESS IS X'1300000' - PFIX=YES, POOL ADDRESS IS FIXED - ACCS=WRITE NO POOL PROTECTION ADDEND
The same ADDON
parameter definition (except for
ADDR=
) must be contained in the program BS2STUB
which
is linked to the front-end part of the RPC batch server.
Example of linking the print file/work file server:
/START-PROGRAM $BINDER START-LLM-CREATION INTERNAL-NAME=PWKSRV, - SLICE-DEFINITION=*BY-ATTRIBUTES(RESIDENCY-MODE=*YES) INCLUDE-MODULES NATPWSV,LIB=(NATvrs.MOD) INCLUDE-MODULES PWKSTUB,LIB=(user-lib) MODIFY-SYMBOL-ATTRIBUTES ADD-MODE=*31,RES-MODE=*ANY,READ-ONLY=*NO MODIFY-SYMBOL-VISIBILITY - SYMBOL-NAME = *ALL, - SYMBOL-TYPE = *DEFINITIONS, - VISIBLE = *NO(KEEP-RESOLUTION=*YES) SAVE-LLM LIB=NATURAL.USER.MOD,ELEMENT=E.NATPWSV2,LOAD-ADDR=X'10000000' END
where:
vrs |
is the relevant product version of Natural for Mainframes and |
user-lib |
is the user library. |
Data exchange between the print file/work file server and the RPC batch
server takes place in the print file/work file control pool
(TYPE=PWK
).
The print file/work file server has to be started before the RPC batch server.
The RPC batch server expects the presence of an initialized print file/work file control pool. This initialization occurs when the print file/work file server is started.
A Natural RPC batch server communicates with exactly one print file/work file server and vice versa (TSN1 <=> TSN2).
All print files and work files (link names P01 to P32
and W01 to W32) to be used have to be defined by a
FILE
command in the print file/work file server's
job control.
Example of a start job:
/.PWKSRV LOGON /ER LST.PWKSERVER. /STEP /OPTION DUMP=YES /FILE WORK.W01,LINK=W01 /FILE WORK.W02,LINK=W02 . . /FILE PRINT.P01,LINK=P01 /FILE PRINT.P02,LINK=P02 . . /EXEC (NATPWSV2,NATURAL.NATvrs.MOD) /LOGOFF N
where vrs represents the relevant product version.
The print file/work file server can be terminated by way of
P1
eventing, using the program CMPEND
. The event name
for terminating the print file/work file server is the name of the print
file/work file control pool.
Example of a print file/work file server termination procedure:
/BEGIN-PROCEDURE LOGGING COMMANDS /ASSIGN-SYSDTA TO=*SYSCMD /SET-JOB-STEP /START-PROGRAM FROM-FILE=*MODULE(LIBRARY=NATURAL.NATvrs.MOD,- / ELEMENT=CMPEND) PWK#POOL <== name of the print file/work file control pool /SET-JOB-STEP /ASSIGN-SYSDTA TO=*PRIMARY /EXIT-PROCEDURE
where vrs represents the relevant product version.
All error messages (abnormal termination of the print file/work file
server) are written to SYSLST99
into the file
LST.PWKSERVER.tsnn
.