Muchas gracias Luis Me sirvio muchisimo el documento
abrazos ________________________________ From: Forum.help400 <[email protected]> on behalf of Luis Brégoli <[email protected]> Sent: Tuesday, June 21, 2022 10:01 AM To: forum.help400 <[email protected]>; forum.help400 <[email protected]> Subject: RE: Recuperar Registros de Journal Ojo tiene que estar Journalizado el archivo y yo puse qsqjrn que es el por defecto. Enviado desde Correo<https://go.microsoft.com/fwlink/?LinkId=550986> para Windows De: Luis Brégoli<mailto:[email protected]> Enviado: martes, 21 de junio de 2022 10:25 Para: forum.help400<mailto:[email protected]>; forum.help400<mailto:[email protected]> Asunto: RE: Recuperar Registros de Journal // Bajar del Jrn Registros suprimidos de Un Archivo // DSPJRN JRN(LibJrn/QSQJRN) FILE((MYFILE)) RCVRNG(*CURCHAIN) FROMTIME(030118 090000) OUTPUT(*OUTFILE) OUTFILFMT(*TYPE4) OUTFILE(LibSalida/WMyFile/WJRNEVO) ENTDTALEN(*CALC) // bajo la parte del Jrn, que tiene el formato del registro // // Sql con Salida a Archivo SELECT JOESD FROM LibSalida/WMyFilea WHERE JOENTT = 'DL' // Se ha creado el archivo SqlFile en XXXXXXX. // Duplico el formato de dds, del archivo bajado.- CRTDUPOBJ OBJ(MYFILE) FROMLIB(MYLIB) OBJTYPE(*FILE) TOLIB(LIBWORK) NEWOBJ(NEWMYFILE) // Copio la parte del JRN, a mi formato para explotar con SQl.- CPYF FROMFILE(XXXXXXX/sqlFile) TOFILE(LIBWORK/NEWMYFILE) MBROPT(*REPLACE) FMTOPT(*NOCHK) // Ahora con el Archivo LIBWORK/NEWMYFILE , tenes los registros suprimidos para recargar el origuinal o lo que quieras. // Lo importante es encontrar la fecha correcta de borrado. que en el ejemplo es 03/01/18 a partir de las 090000 Hola Carlos , Espero que te sea Útil Enviado desde Correo<https://go.microsoft.com/fwlink/?LinkId=550986> para Windows De: Carlos C.<mailto:[email protected]> Enviado: martes, 21 de junio de 2022 09:16 Para: forum.help400<mailto:[email protected]> Asunto: Recuperar Registros de Journal Buen dia Foro Alguien me puede guiar como recuperar de un journal registros suprimidos con SQL sentencia DELETE. Muchas gracias desde ya Saludos [Avast logo]<https://www.avast.com/antivirus> El software de antivirus Avast ha analizado este correo electrónico en busca de virus. www.avast.com<https://www.avast.com/antivirus>
____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
