pillado, el zip asociado lo he puesto en: http://www.cpis.biz/file/v/3814420/wrkjrn2.zip.html
Saludos, Guillermo Andrades. Enhanced Command to Work with Journals - WRKJRN2 by Carsten Flensburg System iNetwork Programming Tips Contributor June 04, 2007 — Inspired by an article written by Dan Riehl<http://www.systeminetwork.com/artarchive/newsletter/w/1001/n/5013/i/5954/a/53120/Managing_Journals_and_Journal_Receivers_.html>that describes a runaway journal receiver directory scenario, as well as by my own disappointment in IBM's Work with Journal (WRKJRN) command's usefulness in the daily journal administration, I've created a Work with Journal 2 (WRKJRN2) command. This command lets you specify the journal name, library, output, and list order directly on the command line without having to first run the command. This improvement also lets you run the command for a specific journal selection from a menu or a program. The display presented by the command shows journal type and state; journal receiver count and aggregate size; currently attached; and the oldest receiver in the receiver directory (along with other information). All this information provides an instant overview of your current journal status. You can create, change, and delete a journal, and issue the Work with Journal Attributes and Work with Object commands against the listed journals from the panel. The function keys include shortcuts to the Create Journal and the native Work with Journal commands, as well as to the Journal Commands Menu. This provides a faster and more convenient interface to the daily monitoring and administration of your system's journals. Please note that depending on the number of journals and journal receivers on your system, as well as the current system workload, the time required for the WRKJRN2 command to collect the requested information will vary. Work with Journal 2 (WRKJRN2) command prompt: ------------------------------ Work with Journal 2 (WRKJRN2) Type choices, press Enter. Journal . . . . . . . . *ALL Name, generic*, *ALL Library . . . . . . . *LIBL Name, *LIBL, *CURLIB... List order . . . . . . . *JRN *JRN, *LIB Output . . . . . . . . . * *, *PRINT ------------------------------ And here's the initial Work with Journal 2 panel: ------------------------------ Work with Journal 2 WYNDHAMW 20-05-07 19:42:31 Journal . . . . . . . . . : *ALL Library . . . . . . . . : *LIBL Type options, press Enter. 2=Change 4=Delete 5=Display 8=Work with journal attributes 9=Work with object -----------Receiver------------ Opt Journal Library Type State Count Directory size (K) QACGJRN QSYS *LCL *ACTIVE 49 207556 QAOSDIAJRN QUSRSYS *LCL *ACTIVE 43 186060 QASOSCFG QUSRSYS *LCL *ACTIVE 94 21256 QAUDJRN QSYS *LCL *ACTIVE 11 2808172 QDSNX QUSRSYS *LCL *ACTIVE 18 1944 QLZALOG QUSRSYS *LCL *ACTIVE 95 10820 QMAJRN QUSRSYS *LCL *ACTIVE 4 432 QO1JRN QUSRSYS *LCL *ACTIVE 2 320 More... Parameters or command ===> F3=Exit F4=Prompt F5=Refresh F6=Create journal F9=Retrieve F11=Display receivers F12=Cancel F20=Journal commands F24=More keys ------------------------------ Pressing F11 displays more journal and journal receiver information. Using the screen options, you can run a number of journal commands directly from the journal list. Also note that the function keys offer shortcuts to various journal-related commands. Comprehensive help text can be found in the panel group included for both Command and Work with panel. The WRKJRN2 command is created from the following source code: CBX970 -- RPGLE -- Work with Journal 2 - CCP CBX970E -- RPGLE -- Work with Journal 2 - UIM Exit Program CBX970H -- PNLGRP -- Work with Journal 2 - Help CBX970P -- PNLGRP -- Work with Journal 2 - Panel Group CBX970V -- RPGLE -- Work with Journal 2 - VCP CBX970X -- CMD -- Work with Journal 2 CBX970M -- CLP -- Work with Journal 2 - Build command Compiling and running CBX970M will create all command objects. Please read the source headers for further instructions. xxxxxxxxxxxxx articulo referido: Managing Journals and Journal Receivers by Dan Riehl System iNetwork Systems Management Editor August 29, 2006 — Journals are used by i5/OS for many purposes, such as - recording before and after images of database record inserts, changes, and deletions - recording security-related events like authority failures, invalid sign-ons, changes to system values, and deletion of objects - recording user-defined events If you are curious about how many journals exist on your system, you can run the command *WRKJRN *ALL/*ALL*. There are a multitude of journals; most are used for recording database changes. IBM supplies many of the journals, and others are user created. One of the issues that you run into with journals is that the associated journal receivers can often require significant disk space. The journal receiver is actually the storage area for the data collected through the journal. How Big Are My Journal Receivers? To display all your current journal receivers and to get a listing of the size of each receiver, you can use the following command: DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*JRNRCV) OUTPUT(*PRINT) Or you can choose the OUTFILE option and place the output in a database file. You can then use a query tool to list the receiver name (ODOBNM), the library name (ODLBNM), and the receiver size in bytes (ODOBSZ). I think if you add up the size of all your journal receivers, you'll be surprised at the amount of disk space used to hold all journaled data. Some of you will be appalled. You will want to delete the journal receivers that are no longer needed. To identify those that are not needed, look at the detach date and whether the receiver has been saved. You determine how many days of receiver data you need by considering your requirements for reporting, freeing disk space, and forensic research on the receiver data. In the ProVIP section of this issue, Carsten Flensburg provides a new command to intelligently "age" the journal receivers so that you can manage the space they use.
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
