Podr�as modificar el fuente del sort por programa antes de llamarlo, �no? Saludos Jesus Busquets Grespania, S.A.
Please respond to [EMAIL PROTECTED] Sent by: � � � �[EMAIL PROTECTED] To: � � � �"Forum. Help400 (E-mail) (E-mail)" <[EMAIL PROTECTED]> cc: Subject: � � � �Conversi�n a nativo desde ocl del S36 (�GSORT) Hola a todos. A ver si alguien sabe como solucionar un problema. Estoy pasando a CLP diferentes OCL del entorno S36 de una biblioteca y me encuentro con Sorts de ficheros con seleccion y/u omisi�n de registros mediante valores del area loca de datos (LDA). Necesito hacer lo mismo en CL pero lo que he visto en la guia del sort no me permite incluir valores de la LDA o parametros. No puedo usar opnqryfile por el tama�o de los ficheros a tratar y con qmqry da problemas en la seleccion por ser un fichero que no tiene rellenados todos los campos (es decir, un campo n�merico grabado a blancos). En entorno s36 una ocl seria: 0029.00 // LOAD �GSORT 0030.00 // IF ?L'181,1'?=1 FILE NAME-INPUT,LABEL-?63??64?,DISP-SHR 0031.00 // ELSE FILE NAME-INPUT,LABEL-XX?64??WS?,DISP-SHR 0032.00 // IF ?L'181,1'?=1 FILE NAME-OUTPUT,LABEL-XX?64??WS?,RECORDS-?F'A,?63??64?'? 0033.00 // ELSE FILE NAME-OUTPUT,LABEL-YY?64??WS?,RECORDS-?F'A,XX?64??WS?'? 0034.00 // RUN 0035.00 � � �HSORTR � �49A � � � �3X 256 N N 0036.00 � � �I C � 1 �17GEC?L'189,17'? 0037.00 � � �IAD �43 �45GEC?L'206,3'? 0038.00 � � �IAD �46 �48GEC?L'209,3'? 0039.00 � � �IAD �78 �83GEC?L'212,6'? 0040.00 � � �IAC 133 133GEC?L'218,1'? 0041.00 � � �IAC 117 124GEC?L'219,8'? 0042.00 � � �IAP 136 137GEC?L'227,3'? � � � � � SELECCION U OMISION 0043.00 � � �IAC � 1 �17LEC?L'230,17'? 0044.00 � � �IAD �43 �45LEC?L'247,3'? 0045.00 � � �IAD �46 �48LEC?L'250,3'? 0046.00 � � �IAD �78 �83LEC?L'253,6'? 0047.00 � � �IAC 133 133LEC?L'259,1'? 0048.00 � � �IAC 117 124LEC?L'260,8'? 0049.00 � � �IAP 136 137LEC?L'268,3'? 0050.00 � � �FNC ?L'271,7'? 0051.00 � � �FNC ?L'278,7'? 0052.00 � � �FNC ?L'285,7'? � � � � � � ORDENACION 0053.00 � � �FNC ?L'292,7'? 0054.00 � � �FNC ?L'299,7'? 0055.00 � � �FNC ?L'306,7'? 0056.00 � � �FNC ?L'313,7'? 0057.00 � � �FDC � 1 256 0058.00 // END 0059.00 * A ver si alguien tiene algun ejemplo hecho en CL. Gracias. Antonio Conde DAVISA IT Department. phone � � � �(+34) 916 600 398 Fax � � � �(+34) 916 778 360 e-mail � � � �[EMAIL PROTECTED] The information in this email and in any attachments is confidential and may be privileged. �If you are not the intended recipient, please destroy this message, delete any copies held on your systems and notify the sender immediately. �You should not retain, copy or use this email for any purpose, nor disclose all or any part of its content to any other person. _____________________________________________________ Forum.HELP400 es un servicio m�s de NEWS/400. � Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja, env�a el mensaje resultante de pulsar mailto:forum.help400-request@;combios.es?bodyLEAVE _____________________________________________________ Forum.HELP400 es un servicio m�s de NEWS/400. � Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja, env�a el mensaje resultante de pulsar mailto:forum.help400-request@;combios.es?body=LEAVE
