Ojo tiene que estar Journalizado el archivo y yo puse qsqjrn que es el por defecto. Enviado desde Correo para Windows De: Luis Brégoli // 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 para Windows De: Carlos C. Buen dia Foro Alguien me puede guiar como recuperar de un journal registros suprimidos con SQL sentencia DELETE. Muchas gracias desde ya Saludos
|
____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
