*DECK FCMMSHA 
          IDENT  CMMSHA 
 CMMSHA   TITLE  CMMSHA - RESPECIFY HIGHEST HIGH ADDRESS. 
          COMMENT  RESPECIFY THE HIGHEST HIGH ADDRESS 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMSHA - RESPECIFY HIGHEST HIGH ADDRESS.
* 
*         CALL CMMSHA(NEWHHA) 
* 
*                NEWHHA - NEW HIGHEST HIGH ADDRESS. 
* 
 CMMSHA   SPACE  4,4
          SUBRTN CMMSHA 
          SA1    X1 
+         RJ     =XCMM.SHA
-         VFD    12/0,18/CMMSHA-1 
          RTRN   CMMSHA 
          END 
