*COMDECK IDBLOCK
          COMMON IDBLOCK; 
              BEGIN 
              ITEM SAVEA1          I;  # SAVE A1 ADDRESS FOR CID TBLS  #
              END 
