*DECK FCMMSDA 
          IDENT  CMMSDA 
 CMMSDA   TITLE  CMMSDA - RESPECIFY THE DYNAMIC AREA. 
          COMMENT  RESPECIFY THE DYNAMIC AREA 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMSDA - RESPECIFY THE DYNAMIC AREA.
* 
*         CALL CMMSDA(NEWDABA)
* 
*                NEWDABA - NEW DYNAMIC AREA BASE ADDRESS. 
* 
 CMMSDA   SPACE  4,4
          SUBRTN CMMSDA 
          SA1    X1          NEWDABA
+         RJ     =XCMM.SDA
-         VFD    12/0,18/CMMSDA-1 
          RTRN   CMMSDA 
          END 
