*        %GOTO PLSPLRQ;                 /* BILINGUAL HEADER             02000010
         MACRO                                                          04000010
         TPLRQD                                                         06000010
         SPACE                                                          08000010
.* CHANGE ACTIVITY AS FOLLOWS:                                          10000010
.*A-000000-999999                                              @Y17XAXU 12000010
IEDPLRQ  DSECT                                                          14000010
*                                                                       16000010
*        DSECT FOR REQUEST PARAMETER LIST                               18000010
*                                                                       20000010
PLRQBFR  DS    A .                      BUFFER ADDRESS                  22000010
PLRQOAF  DS    H .                      ORIGIN TNT OFFSET               24000010
PLRQDAF  DS    H .                      DESTINATION TNT OFFSET          26000010
PLRQLNTH DS    XL1 .                    LENGTH OF COMMAND CODE          28000010
PLRQCMD  DS    0CL3 .                   COMMAND CODE                    30000010
PLRQCMD1 DS    CL1 .                    COMMAND CODE - BYTE 1           32000010
PLRQCMD2 DS    CL1 .                    COMMAND CODE - BYTE 2           34000010
PLRQCMD3 DS    CL1 .                    COMMAND CODE - BYTE 3           36000010
PLRQLEN  EQU   *-IEDPLRQ .              LENGTH OF P-LIST                38000010
         MEND                                                           40000010
*        */                                                             42000010
*%PLSPLRQ: ;                                                            44000010
*DECLARE 1 IEDPLRQ BDY(WORD) BASED(IEDPLRQP),                           46000010
*/*                                                                  */ 48000010
*/*      DSECT FOR REQUEST PARAMETER LIST                            */ 50000010
*/*                                                                  */ 52000010
*   2 PLRQBFR    PTR(31),               /* BUFFER ADDRESS            */ 54000010
*   2 PLRQOAF    FIXED(15),             /* ORIGIN TNT OFFSET         */ 56000010
*   2 PLRQDAF    FIXED(15),             /* DESTINATON TNT OFFSET     */ 58000010
*   2 PLRQLNTH   FIXED(8),              /* LENGTH OF COMMAND CODE    */ 60000010
*   2 PLRQCMD    CHAR(3),               /* COMMAND CODE              */ 62000010
*    3 PLRQCMD1  CHAR(1),               /* COMMAND CODE - BYTE 1     */ 64000010
*    3 PLRQCMD2  CHAR(1),               /* COMMAND CODE - BYTE 2     */ 66000010
*    3 PLRQCMD3  CHAR(1);               /* COMMAND CODE - BYTE 3     */ 68000010
*                                                                       70000010
* %PLRQLEN='LENGTH(IEDPLRQ)';           /* LENGTH OF PLIST           */ 72000010