*DECK FCMMGBI 
          IDENT  CMMGBI 
 CMMGBI   TITLE  CMMGBI - GET BLOCK INFORMATION.
          COMMENT  GET BLOCK INFORMATION
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMGBI - GET BLOCK INFORMATION. 
* 
*         CALL CMMGBI(BLKFWA,SIZCDE,GRPTYP,GRPID,BLKSIZ)
* 
*                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. 
*                GRPTYP - GROUP TYPE. 
*                         0 - UNRESTRICTED LIFETIME.
*                         1 - LIFETIME LIMITED TILL NEXT
*                             INCREASE IN DABA. 
*                GRPID  - SEE CMM REFEREANCE MANUAL PAGE 2-8. 
*                BLKSIZ - NUMBER OF WORDS OCCUPIED BY BLOCK.
* 
 CMMGBI   SPACE  4,4
          SUBRTN CMMGBI 
          SA0    A1+B1
          SA1    X1          BLKFWA 
+         RJ     =XCMM.GBI
-         VFD    12/0,18/CMMGBI-1 
          MX0    6
          LX0    12 
          BX6    X0*X3
          LX6    54 
          SA5    A0 
          SA6    X5          SIZCDE 
          MX0    1
          LX0    30 
          BX6    X0*X3
          LX6    31 
          SA5    A5+B1
          SA6    X5          GRPTYP 
          MX0    17 
          LX0    17+6+6 
          BX6    X0*X3
          LX6    48 
          SA5    A5+B1
          SA6    X5          GRPID
          SA5    A5+B1
          BX6    X2 
          SA6    X5          BLKSIZ 
          RTRN   CMMGBI 
          END 
