*.  Proc:  SETUP-FIELDS
*.  This code creates global numeric variable for each RELATION SGS.
*.  This provides a symbolic field name so that skeleton writers can
*.  avoid coding numeric field references.
*.
*INCREMENT R_X TO [RELATION]
*SET [RELATION,R_X,3,1]  =  [RELATION,R_X,2,1]
*LOOP . R_X