tie( 
  %NCAR::COMMON::ERRMZ0, 
  'NCAR::COMMON',
  -id      => 174,
  -name    => 'ERRMZ0',
  -vars    => {'IERR' => [0,'i',1,[]]},
);