
  VAR
    dpv$scd_block_p: [XREF] ^dpt$scd_communications_block;

?? PUSH (LISTEXT := ON) ??
*copyc dpt$scd_communications_block
?? POP ??
