LPD server cataloged procedure (LPSPROC)

The following sample shows the Remote print server (LPD) server cataloged procedure (LPSPROC).

Figure 1. LPD Server cataloged procedure (LPSPROC)
//LPSERVE  PROC MODULE=LPD,
//         LPDDATA=TCPIP.SEZAINST(LPDDATA),
//         LPDPRFX='PREFIX TCPIP',
//         DIAG=''
//*
//*        z/OS Communications Server
//*        SMP/E Name: EZAEB019 alias LPSPROC in library SEZAINST
//*
//* Copyright:    Licensed Materials - Property of IBM
//*               "Restricted Materials of IBM"
//*               5694-A01
//*               Copyright IBM Corp. 1996, 2008
//*               US Government Users Restricted Rights -
//*               Use, duplication or disclosure restricted by
//*               GSA ADP Schedule Contract with IBM Corp.
//*
//* Status:       CSV1R10
//LPD   EXEC PGM=MVPMAIN,
//  PARM=('&MODULE,ERRFILE(SYSERR),HEAP(512)',
//       'NOSPIE/ ''&LPDDATA'' &LPDPRFX &DIAG'),
//       REGION=6M,TIME=1440
//SPOOL OUTPUT CHARS=GT12
//STEPLIB DD DSN=TCPIP.SEZATCP,DISP=SHR
//LPD1 OUTPUT CHARS=GT12
//*
//*        SYSPRINT contains runtime diagnostics from LPD. It
//*        can be a data set or SYSOUT.
//*
//SYSPRINT DD SYSOUT=*
//*
//*        SYSERR contains runtime diagnostics from Pascal. It can be
//*        a data set or SYSOUT.
//*
//SYSERR   DD SYSOUT=*
//*
//*        SYSDEBUG receives output that is generated when the TRACE
//*        parameter is specified in the PARM on the EXEC card.
//*        It can be a data set or SYSOUT.
//*
//SYSDEBUG DD SYSOUT=*
//OUTPUT   DD SYSOUT=*
//SYSIN    DD DUMMY
//*
//*        The SYSMDUMP DD statement will cause MVS to provide
//*        an IPCS readable dump for ABENDs.
//*SYSMDUMP DD DISP=SHR,DSN=your.dump.data.set
//*
//*        SYSTCPD explicitly identifies which data set is to be
//*        used to obtain the parameters defined by TCPIP.DATA
//*        when no GLOBALTCPIPDATA statement is configured.
//*        See the IP Configuration Guide for information on
//*        the TCPIP.DATA search order.
//*        The data set can be any sequential data set or a member of
//*        a partitioned data set (PDS).
//SYSTCPD  DD DISP=SHR,DSN=TCPIP.SEZAINST(TCPDATA)