Alfabetizar un campo correctamente

Si un campo posee espacios o signos de puntuación al inicio (como por ejemplo los títulos) estos caracteres causan que la lista de términos se presente clasificada de manera inapropiada. Para una correcta alfabetización es necesario eliminar los caracteres no deseados que se encuentran al inicio del campo.

Se presenta entonces el siguiente algoritmo, basado en el lenguaje de formatos, el cual suprime aquellos caracteres que se encuentran al inicio del campo y pueden afectar la alfabetización:

     (e1:=1,/
      e2:=size(v12),/  
      while e1<=e2 (/
           if 'ABCDEFDGHJKLMNOPQRSTUVWXYZ0123456789':mid(s(mpu,v12),e1,1)   
                 then 
                     'TT_',mid(v12,e1,e2),/ , 
                      e1:=e2+1, 
                 else
                      e1:=e1+1 
          fi)/
      )

Explicación:

Partiendo del inicio del campo

    e1:=1 

y conociendo la longitud del mismo

    e2:=size(v12) 

se recorre todos los caracteres del campo

    while e1<=e2 (/  

y se van extrayendo de uno en uno

    mid(s(mpu,v12),e1,1) 

se compara entonces cada caracter extraído contra la lista de caracteres que consideramos válidos para el inicio del campo

    if 'ABCDEFDGHJKLMNOPQRSTUVWXYZ0123456789':mid(s(mpu,v12),e1,1) 

Si el caracter extraído está en la lista, entonces obtenemos la subcadena que comienza con el primer caracter considerado válido y le agregamos el prefijo correspondiente

    then 
           'TT_',mid(v12,e1,e2),/ ,

Y terminamos el ciclo

            e1:=e2+1, 

Si el caracter extraído no está en la lista vamos a la siguiente posición y continuamos con el ciclo

     else
            e1:=e1+1 

     Note que todo el algoritmo está encerrado entre paréntesis 
      para procesar correctamente cada ocurrencia del campo repetible

Como al editar la fst no se deben generar varias líneas lo correcto sería colocar al algoritmo de la siguiente manera:

(e1:=1,/e2:=size(v12),/ while e1<=e2 (/if 'ABCDEFDGHJKLMNOPQRSTUVWXYZ0123456789':mid(s(mpu,v12),e1,1) then 'TT_',mid(v12,e1,e2),/ , e1:=e2+1, else e1:=e1+1 fi)/)

Es decir, eliminando los saltos de línea.

Si queremos eliminar las comillas que puedan quedar en el campo y evitar posibles errores de sintaxis, en lugar de

      'TT_',mid(v12,e1,e2)

podemos colocar

      'TT_',replace(mid(v12,e1,e2),'"',)

Texto de encabezado

Texto de encabezado

1A.PARTE : LA EPOCA BATLLISTA, 1903-1929 / CAPITULO 1.LAS 2500 PROBLEMAS PARA APRENDER A RAZONAR PARA 6º Y 7º GRADO 2A. PARTE : CRISIS Y RECUPERACION, 1930-1958 / CAPITULO 4 3A. PARTE : FIN DEL URUGUAY LIBERAL, 1959-1973 / CAPITULO 4A. PARTE : LA DICTADURA, 1973-1984 / CAPITULO 9. LA DICT 5A. PARTE : RESTAURACION DE LA DEMOCRACIA, 1985-2000 / CA A LANZA Y MAUSER ABRIENDO ESPACIOS ACIDOS Y BASES ACTIVATE! B1+ WORKBOOK AGOTAMIENTO Y RECUPERACION DE LOS RECURSOS NATURALES AGUIRRE: LA IRA DE DIOS ALGUNAS CONFERENCIAS SOBRE TEMAS CIENTIFICOS, ARTISTICOS ANALISIS DE LA OBRA AQUI SE RESPIRA BIEN ARGELIA. EL DESIERTO. LOS ARGELINOS. LA ECONOMIA DE ARGEL ARTE DE NOVELAR. ATOMOS, MOLECULAS, E IONES AUSTRALIA: EL MAR DE CORTES BANG BANG HOMBRE MUERTO [VIDEO] BIBLIOGRAFIA BICICLETAS: FABRICA DE PAPEL: GRITO EN LAS PROFUNDADIDES BODAS DE SANGRE BRAVEHEART CAE RESULT. STUDENTIS BOOK CAE RESULT. WORKBOOK RESOURCE PACK WITH KEY CALOR: PLASTICOS Y PRODUCTOS QUIMICOS: ENERGIA CALORIMETRIA CARLOS III: SIGLO XVIII CHALLENGES STUDENT'S BOOK 2 CHALLENGES WORKBOOK 2 CHERNOBYL: LA ULTIMA ADVERTENCIA CIELO E INFIERNO: BLUES PARA UN PLANETA ROJO: HISTORIAS D CIENCIAS FISICAS 2 CINETICA QUIMICA COMO SON LAS CELULAS? EL CEREBRO: EL CALOR Y LA TEMPERATU CONOCIMIENTO Y ACCION CONTAMINACION EN EL URUGUAY: LAMINADO DEL ACERO EN EL URU CONTINENTES, MONTANA Y MINERALES: MEDICION Y SENTIDO DEL CONTINUIDAD DE LOS PARQUES COOKIES'S NURSERY RHYME VIDEO CORRESPONDENCIA ENTRE UNAMUNO Y VAZ FERREIRA CORRIENTE ELECTRICA CROMATOGRAFIA CROMWELL: LA REVOLUCION GLORIOSA SIGLO XVIII CUENTOS HISPANOAMERICANOS : DE LA COLONIA AL IRREALISMO DE DONDE VENIMOS DEBER DE CARACTERIZACION DEBIDO CUIDADO DEL MITO AL CUENTO: LA IMPORTANCIA DE LO SIMBOLICO DEPARTURES IN READING A DEPARTURES IN READING B DERECHO A INFORMACION DERECHOS DEL NINO : POLITICAS PARA LA INFANCIA DEVELOPING WRITING SKILLS IN ENGLISH: STUDENTIS BOOK DIALOGO CON SAGAN: EL HOMBRE EN LA LUNA DICCIONARIO DE LA LENGUA ESPANOLA DIFRACCION DE RAYOS X DOSMILUNO, ODISEA DEL ESPACIO EDUCACION CIUDADANA : UNIDAD I / UNIDAD II EFECTOS DEL CALOR EGIPTO EGIPTO. MARCO FISICO. LOS EGIPCIOS. LOS ESPACIOS AGRICOLA EGIPTO: CONSTRUYENDO UN IMPERIO EL ARTE DE AMAR : UNA INVESTIGACION SOBRE LA NATURALEZA D EL AUTOR Y SU CONTEXTO EL BARBERO DE SEVILLA EL DESARROLLO HUMANO EN FUNCION DE LOS AVANCES TECNOLOGIC EL ESPACIO MEDITERRANEO. EL MAR MEDITERRANEO. UN RELIEVE EL HOMBRE MUERTO EL IMPERIO INCA: QUE SON LOS VOLCANES? EL MAGHREB. EL MARCO FISICO EL MATADERO EL OIDO HUMANO. LA PIEL: QUE SON LAS ESTRELLAS? EL SOL: F EL PENSAMIENTO ESTRATEGICO Y LOS NINOS DEL NIVEL INICIAL EL SIGLO XIX. EL SIGLO DE LAS REACCIONES EL SIGLO XV. RENACIMIENTO HUMANISTA EL SIGLO XVI. RENACIMIENTO Y MANIERISMO EL SIGLO XVII. BARROCO Y CLASICISMO EL SIGLO XVIII. EL SIGLO DE LAS LUCES EL SIGLO XX [1901-1939]. LA INVENCION DE LA MODERNIDAD EL SIGLO XX [1940-INICIOS S.XXI]. EL CUESTIONAMIENTO DEL EL TIEMPO LIBRE DE LOS MONTEVIDEANOS: EL MODELO BATLLISTA EL TRANSPORTE DE NUTRIENTES: LA CIRCULACION. CLASE DE PRO EL VASO DE LECHE ELECTROQUIMICA ELECTROQUIMICA! ELEMENTOS NO METALICOS Y SUS COMPUESTOS EN LAS ORILLAS DEL OCEANO COSMICO: UNA VOZ EN LA FUGA COS EN LOS SURCOS VIVIENTES ENCICLOPEDIA AUTODIDACTICA INTERACTIVA OCEANO . VOL. 1 ENCICLOPEDIA BARSA TOMO 5 CINIC - DIENTE ENERGIA, CALOR Y TRABAJO ENGLISH ADVENTURE 1 : VIDEO ENGLISH ADVENTURE 1 VIDEO ENLACE QUIMICO I : CONCEPTOS BASICOS ENLACE QUIMICO II : GEOMETRIA MOLECULAR E HIBRIDACION DE ENLACES QUIMICOS ENTROPIA, ENERGIA LIBRE Y EQUILIBRIO EQUILIBRIO ACUOSO EQUILIBRIO QUIMICO EQUILIBRIOS ACIDO-BASE Y EQUILIBRIOS DE SOLUBILIDAD EQUILIBRIOS FISICOS EQUILIBRIOS QUIMICOS ESPANA. LOS ESPANOLES. UNA ECONOMIA EN EXPANSION ESPECTROMETRIA DE MASAS ESPECTROSCOPIA INFRARROJA ESPECTROSCOPIA VISIBLE Y ULTRAVIOLETA ESPIGAS DE MI HEREDAD ESTRATEGIAS DE LECTURA ESTUDIAR Y CONSTRUIR 4 EXALTACION DE LA SERENIDAD : ENSAYO SOBRE LA PSICOLOGIA D EXCUSA DE TESTIMONIO E INCAUTACION FAMILIA FICCION Y SUCESO DE UN PASTOR, ACOYTAPIA, CON CHUQUILLANT FIN DE SIGLO ELECTORAL FORMA Y ESTRUCTURA MOLECULARES FRIO, LUZ Y ENERGIA: AERONAUTICA Y SATELITES FUERZAS INTERMOLECULARES, LIQUIDOS Y SOLIDOS GABRIEL GARCIA MARQUEZ, HORACIO QUIROGA, PIRANDELLO Y GAR GASES GENETICA Y ADN: LA ENERGIA NUCLEAR GEOLOGIA GRECIA. EL MARCO FISICO. LOS GRIEGOS. ACTIVIDAD ECONOMICA