*        %GOTO PLSXNSP;                 /*                              00001010
         MACRO                                                          00002010
         TXNSPD                                                         00003010
*        NO ASSEMBLE VERSION FOR THIS DSECT                             00004010
         MEND  */                                                       00005010
*%PLSXNSP:;                                                             00006010
*%IF COMPRE='YES'                                                       00007010
*   %THEN %GOTO PLSXNSP1;                                               00008010
*/*                                                                  */ 00009010
*/*      N. S. PROC ERROR DSECT                                      */ 00010010
*/*                                                                  */ 00011010
*DCL 1 IEDXNSPD BASED(XNSPPTR),          /* N. S. PROC ERROR         */ 00012010
*     2 XNSPCMD,                                                        00013010
*       3 XNSPCODE CHAR(3),              /* COMMAND CODE             */ 00014010
*         4 XNSPNETS CHAR(1),            /* NETWORK SERVICES         */ 00015010
*         4 XNSPSESS CHAR(1),            /* SESSION SERVICES         */ 00016010
*         4 XNSPREQ  CHAR(1),            /* N.S. PROC REQUEST        */ 00017010
*       3 XNSPRSN  CHAR(1),              /* REASON                   */ 00018010
*       3 XNSPPLUN CHAR(10),             /* PRIMARY LU NAME FIELD    */ 00019010
*          4 XNSPPTYP CHAR(1),           /* TYPE                     */ 00020010
*          4 XNSPPLEN FIXED(8),          /* LENGTH OF NAME           */ 00021010
*          4 XNSPPNME CHAR(8),           /* PRIMARY LU NAME          */ 00022010
*       3 XNSPSLUN CHAR(10),             /* SECONDARY LU NAME FIELD  */ 00023010
*          4 XNSPSTYP CHAR(1),           /* TYPE                     */ 00024010
*          4 XNSPSLEN FIXED(8),          /* LENGTH                   */ 00025010
*          4 XNSPSNME CHAR(8);           /* SECONDARY LU NAME        */ 00026010
*%GOTO PLSXNSP2;                                                        00027010
*%PLSXNSP1:;                                                            00028010
*/*                                                                  */ 00029010
*/*      N. S. PROC ERROR DSECT (COMPREHENSIVE VERSION)              */ 00030010
*/*                                                                  */ 00031010
*DCL 1 IEDXNSPD BASED(XNSPPTR),          /* N. S. PROC ERROR         */ 00032010
*     2 XNSPCMD,                                                        00033010
*       3 XNSPCODE CHAR(3),              /* COMMAND CODE             */ 00034010
*         4 XNSPNETS CHAR(1),            /* NETWORK SERVICES         */ 00035010
*         4 XNSPSESS CHAR(1),            /* SESSION SERVICES         */ 00036010
*         4 XNSPREQ  CHAR(1),            /* N.S. PROC REQUEST        */ 00037010
*       3 XNSPRSN  FIXED(8),             /* REASON                   */ 00038010
*       3 XNSPPLUN,                      /* PRIMARY LU NAME FIELD    */ 00039010
*          4 XNSPPTYP CHAR(1),           /* TYPE                     */ 00040010
*       3 XNSPSLUN,                      /* SECONDARY LU NAME FIELD  */ 00041010
*          4 XNSPSTYP CHAR(1),           /* TYPE                     */ 00042010
*       3 XNSPSENS CHAR(4),              /* SENSE                    */ 00043010
*       3 XNSPSKEY CHAR(1),              /* SESSION KEY              */ 00044010
*       3 XNSPSNME CHAR(0);              /* SESSION KEY CONTENT      */ 00045010
* DCL XNSPCVT BIT(8) CONSTANT('21'X);    /* REASON CODE FOR CONVERT     00046010
*                                           ERROR                    */ 00047010
* DCL XNSPLEN FIXED(16) CONSTANT(11);    /* LENGTH OF COMPREHENSIVE     00048010
*                                           FORMAT                   */ 00049010
*%PLSXNSP2:;                                                            00050010