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?body=LEAVE
