* Example of current block paste from 'd' spec fields to calcs area
 * The first line is placed in the desired location but subsequent 
 * lines are continued in column 1, not column 10 as requested.

     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     
Name     
Saved    
Menu     
MenuItem 
MenuCmd  
Nbr1     
Nbr2     
Nbr3     
Count    
RRN      
Ar1      
Ar2
Ar3