*DECK COPYD4
USETEXT DNTEXT
         PROC COPYD4  (P1,P2);
         BEGIN
         ITEM P1; 
         ITEM P2; 
         ITEM T;
*CALL TABLNAMES 
*CALL GETSET
         T = GETFIELD(DN$WORD0,DNAT$,P1); 
         SETFIELD(DN$WORD0,DNAT$,P2,T); 
         T = GETFIELD(DN$WORD1,DNAT$,P1); 
         SETFIELD(DN$WORD1,DNAT$,P2,T); 
         T = GETFIELD(DN$WORD2,DNAT$,P1); 
         SETFIELD(DN$WORD2,DNAT$,P2,T); 
         T = GETFIELD(DN$WORD3,DNAT$,P1); 
         SETFIELD(DN$WORD3,DNAT$,P2,T); 
         END
         TERM 
