* Example of Block paste from 'D' specs to calculations area
 * with fields still aligned at the selected paste location - column 10  
 
     d Flag            s               n   inz(*on)
     d Name            s             50
     d Saved           s             20    
     d Menu            s             20
     d MenuItem        s              2
     d MenuCmd         s           1024
     d Nbr1            s              3s 0
     d Nbr2            s              3s 0
     d Nbr3            s              3s 0
     d Count           s              3s 0
     d RRN             s              4s 0
     d Ar1             s             20s 0  dim(16)
     d Ar2             s           1024     dim(16)
     d Ar3             s              2s 0  dim(16)

                *inlr = *on;
                return;
                
         Flag     = OtherFlag;    
         Name     = OtherName;    
         Saved    = OtherSave;    
         Menu     = OtherMenu;   
         MenuItem = OtherMenuItem; 
         MenuCmd  = OtherMenuCmd;
         Nbr1     = OtherNbr1;
         Nbr2     = OtherNbr2;
         Nbr3     = OtherNbr3;
         Count    = OtherCount;
         RRN      = OtherRRn;
         Ar1      = OtherAr1;
         Ar2      = OtherAr2;
         Ar3      = OtherAr3