*DECK FCMMCSF 
          IDENT  CMMCSF 
 CMMCSF   TITLE  CMMCSF - CHANGE FIXED POSITION BLOCK SPECIFICATIONS. 
          COMMENT  CHANGE FIXED POSITION BLOCK SPECIFICATIONS 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMCSF - CHANGE FIXED POSITION BLOCK SPECIFICATIONS.
* 
*         CALL   CMMCSF(BLKFWA,SIZCDE)
* 
*                BLKFWA - BLOCK FIRST WORD ADDRESS. 
*                SIZCDE - 3 BIT CODE AS FOLLOWS:  
*                         0 - FIXED.
*                         1 - VARYING.
*                         1XX - FWA CAN SHRINK. 
*                         X1X - LWA CAN SHRINK. 
*                         XX1 - LWA CAN GROW. 
* 
 CMMCSF   SPACE  4,4
          SUBRTN CMMCSF 
          SA0    A1 
          SA1    X1          BLKFWA 
          SA2    A0+B1
          SA2    X2          SIZCDE 
+         RJ     =XCMM.CSF
-         VFD    12/0,18/CMMCSF-1 
          RTRN   CMMCSF 
          END 
