*        %GOTO PLSPLMV;                                                 03000010
         MACRO                                                          06000010
         TPLMVD                                                         09000010
         SPACE                                                          12000010
.* CHANGE ACTIVITY AS FOLLOWS:                                          15000010
.*A-000000-999999                                              @Y17XANU 18000010
IEDPLMV  DSECT                                                          21000010
*                                                                       24000010
*        DSECT FOR DATA MOVE PARAMETER LIST                             27000010
*                                                                       30000010
PLMVTU   DS    A .                      TARGET UNIT ADDRESS             33000010
PLMVTD   DS    A .                      TARGET DATA ADDRESS             36000010
PLMVSU   DS    A .                      SOURCE UNIT ADDRESS             39000010
PLMVSD   DS    A .                      SOURCE DATA ADDRESS             42000010
PLMVLNTH DS    H .                      LENGTH OF DATA TO BE MOVED      45000010
PLMVFLG1 DS    XL1 .                    FLAG BYTE 1            @Y17XAXF 45400010
PLMVUNCF EQU   X'80' .                    UNCHAIN FLAG         @Y17XAXF 45800010
PLMVSCTG EQU   X'40' .                    SOURCE = CONTIGUOUS AREA      46200010
PLMVTCTG EQU   X'20' .                    TARGET = CONTIQUOUS AREA      46300010
*        EQU   X'10'-X'01'                RESERVED             @Y17XAXF 46400010
PLMVFLG2 DS    XL1 .                    FLAG BYTE 2            @Y17XAXF 46600010
PLMVUNCA DS    A .                      ADDR OF UNUSED TARGET UNIT      47000010
*                                         UNCHNED BY IEDMVBFR  @Y17XAXF 47400010
PLMVLEN  EQU   *-IEDPLMV .              LENGTH OF P-LIST                48000010
         MEND                                                           51000010
*        */                                                             54000010
*%PLSPLMV: ;                                                            57000010
*DECLARE 1 IEDPLMV BDY(WORD) BASED(IEDPLMVP),                           60000010
*/*                                                                  */ 63000010
*/*                                                                  */ 66000010
*/*                                                                  */ 69000010
*   2 PLMVTU   PTR(31),                 /* TARGET UNIT ADDRESS       */ 72000010
*   2 PLMVTD   PTR(31),                 /* TARGET DATA ADDRESS       */ 75000010
*   2 PLMVSU   PTR(31),                 /* SOURCE UNIT ADDRESS       */ 78000010
*   2 PLMVSD   PTR(31),                 /* SOURCE DATA ADDRESS       */ 81000010
*   2 PLMVLNTH FIXED(16),               /* LENGTH OF DATA TO BE MOVED*/ 84000010
*   2 PLMVFLG1 BIT(8),                  /* FLAG BYTE 1       @Y17XAXF*/ 84300010
*     3 PLMVUNCF BIT(1),                /*  UNCHAIN FLAG     @Y17XAFX*/ 84600010
*     3 PLMVSCTG BIT(1),                /*  SOURCE = CONTIGUOUS AREA */ 84900010
*     3 PLMVTCTG BIT(1),                /*  TARGET = CONTIGUOUS AREA */ 85000010
*     3 *        BIT(5),                /*  RESERVED         @Y17XAFX*/ 85100010
*   2 PLMVFLG2 BIT(8),                  /* FLAG BYTE 2       @Y17XAXF*/ 85200010
*   2 PLMVUNCA PTR(31);                 /* ADDRESS OF UNUSED TARGET  */ 85500010
*                                       /*  UNT UNCHNED BY IEDMVBFR  */ 85800010
*                                       /*                   @Y17XAXF*/ 86100010
*                                                                       87000010
* %PLMVLEN='LENGTH(IEDPLMV)';           /* LENGTH OF P-LIST          */ 90000010