Si el sfl no es demasiado grande tienes la opción de cargarlo a través de una
matriz.
Más o menos sería algo similar a esto:
d DS
d DSSfl01 15 Dim(999) Ascend
d DSCampo1 5s 0 Overlay(DSSfl01) Inz(*Hival)
d DSCampo2 4a Overlay(DSSfl01:*Next) Inz(*Blanks)
d DSCampo3 1a Overlay(DSSfl01:*Next) Inz(*Blanks)
d DSCampo4 5s 0 Overlay(DSSfl01:*Next) Inz(*Zeros)
// Primero Lees el fichero y Cargas la matriz:
// Inicio bucle Lectura
NumIdx +=1;
DsCampo1(NumIdx) = CampoFichero1;
DsCampo2(NumIdx) = CampoFichero2;
DsCampo3(NumIdx) = CampoFichero3;
DsCampo4(NumIdx) = CampoFichero4;
...
// Fin Lectura
// Luego Cargas el Sfl:
For Nrr = 1 To NumIdx;
CampoSfl1 = DsCampo1(Nrr);
CampoSfl2 = DsCampo2(Nrr);
CampoSfl3 = DsCampo3(Nrr);
CampoSfl4 = DsCampo4(Nrr);
Write Sfl;
Endfor;
// Y luego lo ordenas por el campo que desees:
Sorta DsCampo_que_Quieres;
Saludos,
Jordi.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
