*        %GOTO PLSDSI;                  /*                              02000010
         MACRO                                                          04000010
         TDSID                                                          06000010
.*A000000-999999                                               @Y17XAFF 08000010
*        NO ASSEMBLE VERSION OF THIS DSECT                              10000010
         MEND  */                                                       12000010
*%PLSDSI:;                                                              14000010
*/*                                                                  */ 16000010
*/*      COPY/REPLACE DEVICE SESSION INFORMATION                     */ 18000010
*/*                                                                  */ 20000010
* DECLARE                                                               22000010
* 1 IEDDSI1 BASED(RDSI1),               /*FIRST FIELD GROUP          */ 24000010
*  2 DSITOTNM FIXED(8),                 /* TOTAL NUM OF BYTES IN REC */ 26000010
*  2 DSINETAD FIXED(16) BDY(BYTE),      /* NET ADDR OF DEVICE        */ 28000010
*  2 DSIPOLL,                           /* POLLING CHARS FIELD       */ 30000010
*   3 DSIPOLNM FIXED(8),                /*  NUMBER OF POLLING CHARS  */ 32000010
*   3 DSIPOLCH CHAR(0);                 /*  POLLING CHARACTERS       */ 34000010
*                                                                       36000010
*                                                                       38000010
* DECLARE                                                               40000010
* 1 IEDDSI2 BASED(RDSI2),               /*SECOND FIELD GROUP         */ 42000010
*  2 DSIADRNM FIXED(8),                 /* NUMBER OF ADDRESSING CHAR */ 44000010
*  2 DSIADDR  CHAR(0);                  /* ADDRESSING CHARACTERS     */ 46000010
*                                                                       48000010
*                                                                       50000010
* DECLARE                                                               52000010
* 1 IEDDSI3 BASED(RDSI3),               /*THIRD FIELD GROUP          */ 54000010
*  2 DSINPTID BIT(8),                   /* INPUT IDENTIFIER          */ 56000010
*  2 DSISEQNO FIXED(16) BDY(BYTE),      /* BTU SEQ NUM FOR CURRENT      58000010
*                                          INVITE                    */ 60000010
*  2 DSIMODID FIXED(8);                 /* BTU MODIFIER              */ 62000010
*                                                                       64000010
*                                                                       66000010
* DECLARE                                                               68000010
* 1 IEDDSI4 BASED(RDSI4),               /*FOURTH FIELD GROUP         */ 70000010
*  2 DSIDIAL,                           /* DIAL DIGITS FIELD         */ 72000010
*   3 DSIDLCNT FIXED(8),                /*  COUNT OF DIAL DATA       */ 74000010
*   3 DSIDLMAX FIXED(8),                /*  MAX NUM OF DIAL DIGITS   */ 76000010
*   3 DSISLACT FIXED(8),                /*  ACTUAL NUM OF DIAL DIGITS   78000010
*                                                                    */ 80000010
*   3 DSIDLDIG CHAR(0);                 /*  DIAL DIGITS              */ 82000010