TS/MP 2.5 Management Programming Manual

==ZPWY-DDL-PROGNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-PROGTERMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-PROGTERMNAME BY
==ZPWY-DDL-PROGTERMNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCNAME BY
==ZPWY-DDL-SCNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCASSIGNNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCASSIGNNAME BY
==ZPWY-DDL-SCASSIGNNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCLMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCLMNAME BY
==ZPWY-DDL-SCLMNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCPARAMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCPARAMNAME BY
==ZPWY-DDL-SCPARAMNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCPROCESSNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCPROCESSNAME BY
==ZPWY-DDL-SCPROCESSNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCSTARTUPNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCSTARTUPNAME BY
==ZPWY-DDL-SCSTARTUPNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCTCPNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCTCPNAME BY
==ZPWY-DDL-SCTCPNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCTERMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCTERMNAME BY
==ZPWY-DDL-SCTERMNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TCPLINKNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TCPLINKNAME BY
==ZPWY-DDL-TCPLINKNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TCPNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TCPNAME BY
==ZPWY-DDL-TCPNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TCPSCNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TCPSCNAME BY
==ZPWY-DDL-TCPSCNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TCPTERMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TCPTERMNAME BY
==ZPWY-DDL-TCPTERMNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TELLNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TELLNAME BY
==ZPWY-DDL-TELLNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TERMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TERMNAME BY
==ZPWY-DDL-TERMNAME REDEFINES OBJECT-NAME-AREA==.
/
LINKAGE SECTION.
COPY ZPWY-DDL-MSG-BUFFER IN "$SYSTEM.ZSPIDEF.ZPWYCOB".
/
PROCEDURE DIVISION USING ZPWY-DDL-MSG-BUFFER.
PATHWAY-ERROR.
PERFORM 100-INITIALIZATION
* Get the standard error (RETCODE) token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZSPI-TKN-RETCODE,
WS-SPI-RESULT,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
PERFORM 1300-CHECK-SUBSYSTEM-ERROR
* Open the error list by requesting the ERRLIST token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZSPI-TKN-ERRLIST,
OMITTED,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
PERFORM 1300-CHECK-SUBSYSTEM-ERROR
364 Error Handling Example Program