NET/MASTER Network Control Language (NCL) Programmer's Guide

Working With Server Classes
Working With Pathway Server Classes
15–26 106160 Tandem Computers Incorporated
The values of the &SYS.PSEND.RC, &SYS.PSEND.ERROR, and
&SYS.PSEND.PSERROR system variables indicate the success or failure of an
operation performed by a PSEND verb.
You can exit from the panel by pressing the F3 or F4 function key.
3. Type the following DDL source schema file in a convenient subvolume on your
Tandem system, calling it ZEX15011:
DEF ENTRY-MSG.
02 PW-HEADER.
04 REPLY-CODE PIC S9(4) COMP.
04 FUNCTION-CODE PIC XX.
02 MESSAGE-NUMBER PIC 9.
END
DEF ENTRY-REPLY.
02 PW-HEADER.
04 REPLY-CODE PIC S9(4) COMP.
04 FILLER PIC XX.
02 SERVER-RECORD PIC X(64).
END
Request and reply messages are mapped. The DDL source schema file contains
the definition for the structure of the request message (ENTRY-MSG) and the
reply message (ENTRY-REPLY).
4. Create a user-defined map from each of the ENTRY-MSG and ENTRY-REPLY
definitions, calling them ENTRY_MSG and ENTRY_REPLY, respectively.
Section 11, “Standard and User-Defined Maps,” describes how to create a
user-defined map from a DDL source schema file in detail. In summary, you
perform the following tasks:
Assume ZEX15011 is located in $DATA2.UDDL on your Tandem system. The
following DDL command creates a DDL data dictionary with definitions for
ENTRY-MSG and ENTRY-REPLY:
DDL /IN ZEX15011/ DICT
Assume NonStop NET/MASTER MS was installed with a process character of Z
on $DATA2.ZNNM on your Tandem system. The following TACL RUN
commands invoke the MDMAINT program to create a map definition for the
ENTRY-MSG and ENTRY-REPLY records and add each to the NonStop
NET/MASTER MS map file:
RUN $DATA2.ZNNM.MDMAINT /PRI 140, NAME $ZMDM/
$DATA2.ZNNMDATA.MAPFILE
ADD $DATA2.UDDL ENTRY-MSG D
RUN $DATA2.ZNNM.MDMAINT /PRI 140, NAME $ZMDM/
$DATA2.ZNNMDATA.MAPFILE
ADD $DATA2.UDDL ENTRY-REPLY D