Hola, Tengo un pequeño problema con un subfichero y no se muy bien como solucionarlo. Es la primera vez que utilizo mensajes tipo SFLMSGID y no consigo mostrarlos en la linea 24 de mi pantalla. He aqui el codigo que estoy utilizando. Tendria que añadir el keep en el subfichero de control? En principio, el indicador de mostrar subfichero lo tengo activado, asi que no veo que ese sea el problema.
Alguien me podria orientar? WRITE FOOTF3F5 EXFMT CTL1 . . CUSTOM CHAIN CLIENTES IF *IN99 EVAL *in32 = *ON ENDIF .y vuelvo al principio y muestro el subfichero. He aqui las DDS A R CTL1 SFLCTL(S1) A CF04(04 'Lista') A CF08(08 'Ejecutar') A ROLLUP(85 'Rollup') A CSRLOC(LC CC) A OVERLAY A 81 SFLDSP A 82 SFLDSPCTL A 85 SFLEND A SFLSIZ(0006) A SFLPAG(0001) A 32 SFLMSGID(A00001 *LIBL/ERROR1 3- A 2) A 41 SFLMSGID(A00030 *LIBL/ERROR1 4- A 1) A 42 SFLMSGID(A00030 *LIBL/ERROR1 4- A 2) A 43 SFLMSGID(A00030 *LIBL/ERROR1 4- A 3) A 11 SFLMSGID(A00030 *LIBL/ERROR1 1- A 1) A 12 SFLMSGID(A00030 *LIBL/ERROR1) A 33 SFLMSGID(A00038 *LIBL/ERROR1) A 35 SFLMSGID(A00038 *LIBL/ERROR1) A 37 SFLMSGID(A00038 *LIBL/ERROR1) A 23 SFLMSGID(A00038 *LIBL/ERROR1) A 21 SFLMSGID(A00038 *LIBL/ERROR1) A 16 SFLMSGID(A00039 *LIBL/ERROR1) A 17 SFLMSGID(A00040 *LIBL/ERROR1) A 53 SFLMSGID(A00065 *LIBL/ERROR1) A RRN1 4S 0H SFLRCDNBR A LC 3S 0H A CC 3S 0H A 1 2'GESTION' A COLOR(BLU) A ZZMIL 14A O 1 12DSPATR(RI) A DSPATR(HI) A*N60 DSPATR(ND) A LIBVENSTK 20A O 1 32COLOR(WHT) A DSPATR(UL) A 1 73DATE A EDTCDE(Y) A COLOR(BLU) A 2 2'GESTION' A COLOR(BLU) A 2 73TIME A COLOR(BLU) A LIBCLIEN 12A O 4 2COLOR(WHT) A WCODCLI 6Y 0B 4 15EDTCDE(4) A N81 DSPATR(UL) A 30 AO 51 AO 40 DSPATR(RI) A 30 AO 40 AO 51 AO 50 DSPATR(PC) A 81 DSPATR(PR) A 30 ERRMSGID(A00002 *LIBL/ERROR1 3- A 0) A 40 ERRMSGID(A00024 *LIBL/ERROR1 4- A 0) A 50 ERRMSGID(A00006 *LIBL/ERROR1 5- A 0) A 51 ERRMSGID(A00007 *LIBL/ERROR1 5- A 1) A CODCOM 6Y 0B 4 22EDTCDE(4) A N81 DSPATR(UL) A 30 AO 40 DSPATR(RI) A 81 DSPATR(PR) A WCLINOM 30A O 4 29 A LIBQTESTK 10A O 4 60COLOR(WHT) A QTESTOK 8Y 0O 4 71EDTCDE(2) A WRSCLI 30A O 5 22 A LIBQTEDEM 10A O 5 60COLOR(WHT) A QTEDEM 8Y 0O 5 71EDTCDE(2) A 59 DSPATR(RI) A 59 ERRMSGID(A017 *LIBL/CASS) A 59 COLOR(RED) A 59 DSPATR(PC) A WFACAD1 30A O 6 22 A LIN8 55A O 8 1DSPATR(HI) A CDTVA 1Y 0O 8 66DSPATR(UL) A EDTCDE(4) A 39 DSPATR(RI) A 39 ERRMSGID(A00003 *LIBL/ERROR1 3- A 9) A XTAUX 4Y 2O 8 68EDTCDE(2) A DSPATR(UL) A LIBADRES 15A O 5 2COLOR(WHT) A N81 DSPATR(ND) A LIBRAISON 15A O 6 2COLOR(WHT) A N81 DSPATR(ND) A WFACVIL 20A O 7 22 A LIBTVASTK 8A O 8 57COLOR(WHT) A R FOOTF3F5 A OVERLAY A LIBF3 12A O 23 4COLOR(WHT) A LIBF5 15A O 23 25COLOR(WHT) --------------------------------------------------------- Juega y llévate una PS2 two: http://juegos.ya.com/consolas_y_pc/2005/09/concurso-ps2.html Ya.com ADSL 24h + Llamadas Nacionales y Locales 24h + Llamadas a MÓVILES. Desde 19,95 /mes+IVA. http://acceso.ya.com/ADSLllamadas/1mbvoz/ __________________________________________________ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
