*        %GOTO PLSSAT;                  /* BILINGUAL HEADER             03000010
         MACRO                                                          06000010
         TSATD                                                          09000010
         SPACE                                                          12000010
.* CHANGE ACTIVITY AS FOLLOWS:                                          15000010
.*A000000-999999                                               @Y17XAXU 18000010
         SPACE                                                          21000010
IEDSATD  DSECT                                                          24000010
*                                                                       27000010
*        DSECT FOR SUBAREA TABLE (SAT)                                  30000010
*                                                                       33000010
SATRNLCB DS    A .                      IMMEDIATE 3705 LCB              36000010
SATRNRVT DS    A .                      ADDRESS OF 3705 RVT             39000010
SATLEN   EQU   *-IEDSATD                LENGTH OF SAT ENTRY             42000010
         SPACE 2                                                        45000010
         MEND                           */                              48000010
*%PLSSAT : ;                                                            51000010
*DECLARE                                                                54000010
*  1 IEDSATD BDY(WORD) BASED(IEDQSATP),                                 57000010
*/*                                                                  */ 60000010
*/*      DSECT FOR SUBAREA TABLE (SAT)                               */ 63000010
*/*                                                                  */ 66000010
*   2 SATRNLCB PTR(31),                 /* IMMEDIATE 3705 LCB        */ 69000010
*   2 SATRNRVT PTR(31);                 /* 3705 RVT ADDRESS          */ 72000010
* %SATLEN='LENGTH(IEDSATD)';            /* LENGTH OF SAT ENTRY       */ 75000010
*                                                                       78000010
*%SATEND: ;                                                             81000010
*                                                                       84000010