tie( 
  %NCAR::COMMON::DPCMCH, 
  'NCAR::COMMON',
  -id      => 203,
  -name    => 'DPCMCH',
  -vars    => {'CHRG' => ['1028','c','1',[]],'CHRB' => ['1024','c','1',[]],'CHRS' => ['1032','c','1',[]],'CHDP' => [0,'c','256',[]]},
);