Print File/Work File Server NATPWSV2

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.


Setup

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.

Operation

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).

Starting the Print File/Work File Server

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.

Terminating the Print File/Work File Server

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.