*DECK FCMMGLF 
          IDENT  CMMGLF 
 CMMGLF   TITLE  CMMGLF - LENGTHEN FIXED POSITION BLOCK.
          COMMENT  LENGTHEN FIXED POSITION BLOCK
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMGLF - LENGTHEN FIXED POSITION BLOCK. 
* 
*         CALL CMMGLF(BLKFWA,NUM) 
*                BLKFWA - BLOCK FIRST WORD ADDRESS. 
*                NUM    - NUMBER OF WORDS TO ADD TO BLOCK.
* 
 CMMGLW   SPACE  4,4
          SUBRTN CMMGLF 
          SA0    A1 
          SA1    X1          BLKFWA 
          SA2    A0+B1
          SA2    X2          NUM
+         RJ     =XCMM.GLF
-         VFD    12/0,18/CMMGLF-1 
          RTRN   CMMGLF 
          END 
