A                                      UNIQUE
     A          R R001
     A            F1CODI         8S         COLHDG('CODIGO')
     A            F1NOMB        20A         COLHDG('NOMBRE')
     A          K F1CODI