tag:blogger.com,1999:blog-57065772399597497132024-03-13T23:49:10.519+01:00Howto and Tools for AS/400 iSeries IBMiDocumentos y utilidades para AS/400 que he ido creando y recopilando a lo largo de los años trabajando con este gratificante sistema operativo.
www.as400howto.commrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.comBlogger159125tag:blogger.com,1999:blog-5706577239959749713.post-7344453542107527792021-03-12T13:10:00.005+01:002021-03-12T13:10:51.390+01:00Videos promocionales del IBM AS400<p><span style="font-family: verdana;"></span></p><div class="separator" style="clear: both; text-align: center;"><span style="font-family: verdana;"><a href="https://1.bp.blogspot.com/-bAaUGos6kfw/XGccrcyJ3-I/AAAAAAAC3n8/BsdMXoEKvHo1E6mB8MJW7mviMNiroLSiACPcBGAYYCw/s533/old_as400_1.png" imageanchor="1" style="clear: left; display: inline !important; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="405" data-original-width="533" height="152" src="https://1.bp.blogspot.com/-bAaUGos6kfw/XGccrcyJ3-I/AAAAAAAC3n8/BsdMXoEKvHo1E6mB8MJW7mviMNiroLSiACPcBGAYYCw/w200-h152/old_as400_1.png" width="200" /></a></span></div><span style="font-family: verdana;"><br />IBM publico varios videos promocionales sobre el sistema AS400 (iSeries), todos ellos bastante divertidos.</span><p></p><p><span style="font-family: verdana;"><br /></span></p><p><span style="font-family: verdana;"><br /></span></p><p><span style="font-family: verdana;"><br /></span></p><p><span style="font-family: verdana;">Uno de ellos referido a la robustez del sistema:</span></p><p><span style="font-family: verdana;"><a data-ved="2ahUKEwiu9qil2arvAhUPMuwKHS-3DPIQtwIwAHoECAQQAw" href="https://www.youtube.com/watch?v=p5zv5wFAADk" ping="/url?sa=t&source=web&rct=j&url=https://www.youtube.com/watch%3Fv%3Dp5zv5wFAADk&ved=2ahUKEwiu9qil2arvAhUPMuwKHS-3DPIQtwIwAHoECAQQAw" style="-webkit-tap-highlight-color: rgba(0, 0, 0, 0.1); background-color: white; color: #1a0dab; font-size: small; text-decoration-line: none;"></a></span></p><span style="font-family: verdana;"><a href="https://www.youtube.com/watch?v=p5zv5wFAADk" target="_blank">The "Lost" IBM AS/400 (iseries, powersystem i)</a></span><div><p><span style="font-family: verdana;">Enlaces a una serie de tres videos referidos a la sencillez de administración del sistema: </span></p><span style="font-family: verdana;"><a href="https://www.youtube.com/watch?v=StuQy13q128" target="_blank">IBM: Laughing Boardroom 1 Covered</a><br /><br /><a href="https://www.youtube.com/watch?v=INY-_gApt3g" target="_blank">IBM: Laughing Boardroom 2 Automatic</a><br /><a href="https://www.youtube.com/watch?v=UW9gmLeqNZU"></a><br /><a href="https://www.youtube.com/watch?v=UW9gmLeqNZU" target="_blank">IBM: Laughing Boardroom 3 People</a><br /><br /><b>¡ Que los disfrutéis !</b></span></div>mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-15249291002765029372020-12-29T13:36:00.005+01:002020-12-29T13:36:59.333+01:00Actualizados enlaces códigos de utilidades<p></p><div class="separator" style="clear: both; text-align: center;"><a href="https://1.bp.blogspot.com/-krGaPBcWQRY/SWsJRymkaaI/AAAAAAAAGJw/BZSGwUBcOHESnfuCuMYHFRxu_c5ZdExtQCPcBGAYYCw/s73/engranaje2.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="55" data-original-width="73" src="https://1.bp.blogspot.com/-krGaPBcWQRY/SWsJRymkaaI/AAAAAAAAGJw/BZSGwUBcOHESnfuCuMYHFRxu_c5ZdExtQCPcBGAYYCw/s16000/engranaje2.jpg" /></a></div><span style="font-family: verdana;">A finales de enero del 2020 se perdieron todos los enlaces al código de las utilidades que tenia publicadas en <b>DevelopersWork </b>de <b>IBM, </b>ver <a href="https://as400howto.blogspot.com/2020/01/ibm-elimino-el-web-developerswork-el.html" target="_blank">DevelopersWork desaparecida</a>. </span><p></p><p><span style="font-family: verdana;">He tardado casi un año en recuperar todos los fuentes, algunos bastante antiguos y volverlos a publicar, ahora a través de enlaces de Google Drive.</span></p><p><span style="font-family: verdana;">Espero que os sirva.</span></p><p><span style="font-family: verdana;"><br /></span></p><p><br /></p>mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com1tag:blogger.com,1999:blog-5706577239959749713.post-49399521038726663102020-06-25T15:50:00.004+02:002020-12-29T11:39:55.573+01:00Como crear ventana con una línea de mandatos<div class="separator" style="clear: both; text-align: center;"><div class="separator" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" data-original-height="480" data-original-width="948" src="https://1.bp.blogspot.com/-07WSzwW7FVY/XvSrPe9B-_I/AAAAAAADFcs/HkQP05PhDLc6fEsePhpZFEeIy2fD61PPgCK4BGAsYHg/s320/QUSCMDLN.png" width="320" /></div></div><div dir="ltr" trbidi="on">
<font face="verdana">Cuando en un menú, o pantalla, programa queramos mostrar una ventana con la línea de mandatos, solo hemos de llamar a la </font><span style="font-family: verdana;">API </span><span style="font-family: verdana;">QUSCMDLN, y ya la tendremos integrada en nuestros menús y/o programas.</span></div><div dir="ltr" style="text-align: left;" trbidi="on"><font face="verdana"><br /></font></div><div dir="ltr" style="text-align: left;" trbidi="on">
<font face="verdana">Más información: <a href="https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/apis/quscmdln.htm" target="_blank"><font size="2">https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/apis/quscmdln.htm</font></a><br />
<br /></font>
<br /></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-20130509458724704562020-06-06T13:03:00.001+02:002020-06-07T11:51:46.967+02:00La comunidad de AS/400 está de luto...<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://1.bp.blogspot.com/-eFuoFaAFXWM/Xtt3vEbz4BI/AAAAAAADE1Q/UrmZdtgFDoEIRkoXm4hCy6UPq7QRtTCoQCLcBGAsYHQ/s1600/Help400.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="52" data-original-width="168" height="99" src="https://1.bp.blogspot.com/-eFuoFaAFXWM/Xtt3vEbz4BI/AAAAAAADE1Q/UrmZdtgFDoEIRkoXm4hCy6UPq7QRtTCoQCLcBGAsYHQ/s320/Help400.png" width="320" /></a></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Nos ha dejado <b>Albert Blanch, </b> fundador de <a href="http://help400.com/" target="_blank">Help400</a> y del <a href="http://help400.com/forum.htm" target="_blank">Foro Help400</a>, los <a href="https://www.ibm.com/developerworks/community/blogs/81e67f1a-3698-4109-b043-06fd5bbb8acb/date/201102" target="_blank">iSaruis</a> nos hemos quedado un poco más huérfanos.</span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Como nos d</span><span style="font-family: "verdana" , sans-serif;">ice el titulo de esta entrada "<a href="http://www.sidra400.com/sidra400.nsf/dx/06062020002410MORUA6.htm" target="_blank">La comunidad de AS/400 está de luto, Albert Blanch nos ha dejado</a>", </span><span style="font-family: "verdana" , sans-serif;">creada por <b>Martín Ortega</b> en su blog </span><a href="http://www.sidra400.com/" style="font-family: Verdana, sans-serif;" target="_blank">SIDRA400</a><span style="font-family: "verdana" , sans-serif;">, le rinde un emotivo homenaje, que comparto plenamente.</span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Desde estas lineas un fuerte abrazo a su familia, amigos, y los compañeros de esta comunidad universal.</span></div>
<div style="text-align: center;">
<span style="font-family: "verdana" , sans-serif;"><b>¡ Descanse En Paz !</b></span><br />
<span style="font-family: "verdana" , sans-serif;"><b><br /></b></span>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://1.bp.blogspot.com/-a0Wc0SxTWiY/Xty4SOyb1xI/AAAAAAADE3A/lnA2xjOf_A0kd73sq1rbwPo4rz96tNamACLcBGAsYHQ/s1600/Papa%2BHelp400-%2B20120331.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Albert Blanch tribute" border="0" data-original-height="450" data-original-width="600" height="240" src="https://1.bp.blogspot.com/-a0Wc0SxTWiY/Xty4SOyb1xI/AAAAAAADE3A/lnA2xjOf_A0kd73sq1rbwPo4rz96tNamACLcBGAsYHQ/s320/Papa%2BHelp400-%2B20120331.jpg" title="En la redacción de Help400" width="320" /></a></div>
<span style="font-family: "verdana" , sans-serif;"><b><br /></b></span></div>
</div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com2tag:blogger.com,1999:blog-5706577239959749713.post-82035267537159439052020-05-04T08:00:00.000+02:002020-05-04T08:00:01.975+02:00JobD que usan una Cola de Trabajo (FNDJOBDQ)<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-family: Verdana, sans-serif;">Esta utilidad esta basada en la <a href="http://as400howto.blogspot.com/2013/02/jobd-que-usan-una-biblioteca-fndjobdl.html" target="_blank">FNDJOBDL</a>, publicada ya hace unos años, en la <a href="https://as400howto.blogspot.com/2020/04/jobd-que-usan-una-cola-de-salida.html" target="_blank">FNDJOBDO</a>. Rea</span><span style="font-family: Verdana, sans-serif;">lizando unas modificaciones nos ayudara a descubrir que Colas de Trabajo se utilizan en las descripciones de trabajo, que tenemos en nuestro sistema.</span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://1.bp.blogspot.com/-pvNqkzDqgx8/Xp3SUWVgikI/AAAAAAADD9s/m753WBQotEYwMWqO80h_rXjGBILFJIu6gCLcBGAsYHQ/s1600/FNDJOBDQ.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><span style="font-family: Verdana, sans-serif;"><img border="0" data-original-height="176" data-original-width="819" height="85" src="https://1.bp.blogspot.com/-pvNqkzDqgx8/Xp3SUWVgikI/AAAAAAADD9s/m753WBQotEYwMWqO80h_rXjGBILFJIu6gCLcBGAsYHQ/s400/FNDJOBDQ.png" width="400" /></span></a></div>
<span style="font-family: Verdana, sans-serif;">Introduciendo el nombre de la cola de trabajos y su biblioteca, nos mostrara por pantalla o en un archivo de spool, los nombres de la descripciones de trabajo que contienen dicha cola de trabajo.</span><br />
<br />
<span style="font-family: Verdana, sans-serif;">El código lo podéis bajar de este <a href="https://drive.google.com/file/d/1euvcBAnnoy6goGPUhHPZ22Fkag2-8AHK/view?usp=sharing" target="_blank">enlace</a>.</span></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-76876350275719884382020-04-20T18:34:00.001+02:002020-04-20T18:47:41.837+02:00JobD que usan una Cola de Salida (FNDJOBDO)<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Esta utilidad esta basada en la </span><a href="http://as400howto.blogspot.com/2013/02/jobd-que-usan-una-biblioteca-fndjobdl.html" style="font-family: Verdana, sans-serif;" target="_blank">FNDJOBDL</a><span style="font-family: "verdana" , sans-serif;">, publicada ya hace unos años.</span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">He realizado unas modificaciones para que nos </span><span style="font-family: "verdana" , sans-serif;">ayude a descubrir que colas de salida se utilizan en las descripciones de trabajo que tenemos en nuestro sistema.</span></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://1.bp.blogspot.com/-1tiJBjqJm04/Xp3R35MzJnI/AAAAAAADD9k/xzbiaxUerZUuc4rX-NQX4sMgmYgr56a8wCLcBGAsYHQ/s1600/FNDJOBDO.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="220" data-original-width="832" height="105" src="https://1.bp.blogspot.com/-1tiJBjqJm04/Xp3R35MzJnI/AAAAAAADD9k/xzbiaxUerZUuc4rX-NQX4sMgmYgr56a8wCLcBGAsYHQ/s400/FNDJOBDO.png" width="400" /></a></div>
<span style="font-family: "verdana" , sans-serif;"></span><br />
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Introduciendo el nombre de la cola de salida y su biblioteca, nos mostrara por pantalla o en un archivo de spool, los nombres de la descripciones de trabajo que contienen dicha cola de salida.</span></div>
<span style="font-family: "verdana" , sans-serif;">
</span><br />
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">El código lo podéis bajar de este <a href="https://drive.google.com/file/d/1t-KNa0wTns7qbvvW2sLb9tQ3PQ7CWws4/view?usp=sharing" target="_blank">enlace</a>.</span></div>
</div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-91276539096730995432020-03-24T10:05:00.000+01:002020-03-24T10:05:40.486+01:00Como funcionan los subsistemas<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;"><b><a href="https://www.mcpressonline.com/" target="_blank">MCPress</a></b> publicó, hace unos años (1994), un artículo explicando cómo se definen y funcionan los subsistemas en los AS400. </span><span style="font-family: verdana, sans-serif;">No ha perdido nada de actualidad y puede servir de guía para entenderlos y aprovechar lo aprendido para nuestro sistema.</span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://1.bp.blogspot.com/-krGaPBcWQRY/SWsJRymkaaI/AAAAAAAAGJw/BZSGwUBcOHESnfuCuMYHFRxu_c5ZdExtQCPcBGAYYCw/s1600/engranaje2.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><span style="font-family: "verdana" , sans-serif;"><img border="0" data-original-height="55" data-original-width="73" height="150" src="https://1.bp.blogspot.com/-krGaPBcWQRY/SWsJRymkaaI/AAAAAAAAGJw/BZSGwUBcOHESnfuCuMYHFRxu_c5ZdExtQCPcBGAYYCw/s200/engranaje2.jpg" width="200" /></span></a></div>
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<br />
<br />
<span style="font-size: large;"><a href="https://www.mcpressonline.com/it-infrastructure/system-administration/solving-the-mystery-of-subsystems" target="_blank"><b><span style="font-family: "verdana" , sans-serif;">So</span>lving the Mystery of Subsystems</b></a></span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<br />
<br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">En mi blog podéis encontrar más entradas y utilidades relacionadas con la configuración de los subsistemas:</span><br />
<br />
<ul style="text-align: left;">
<li><span style="font-family: "verdana" , sans-serif;"><a href="http://as400howto.blogspot.com/2008/12/subsistema-de-control.html" target="_blank">Subsistema de Control</a>.</span></li>
<li><span style="font-family: "verdana" , sans-serif;"><a href="http://as400howto.blogspot.com/2011/03/gestionar-mejor-la-configuracion-de.html" target="_blank">Gestionar mejor la configuración de subsistemas</a>.</span></li>
<li><span style="font-family: "verdana" , sans-serif;"><a href="http://as400howto.blogspot.com/2008/10/memoria-para-subsistema-dedicado.html" target="_blank">Memoria para subsistema</a>.</span></li>
<li><span style="font-family: "verdana" , sans-serif;"><a href="http://as400howto.blogspot.com/2008/12/memoria-para-trabajos-batch.html" target="_blank">Memoria para trabajos batch</a>.</span></li>
<li><span style="font-family: "verdana" , sans-serif;"><a href="http://as400howto.blogspot.com/2009/05/cola-de-trabajos-independiente.html" target="_blank">Cola de trabajos independiente</a>.</span></li>
<li><span style="font-family: "verdana" , sans-serif;"><a href="http://as400howto.blogspot.com/2012/04/recuperar-estado-subsistema.html" target="_blank">Recuperar estado subsistema</a>.</span></li>
<li><span style="font-family: "verdana" , sans-serif;"><a href="http://as400howto.blogspot.com/2010/04/recuperar-numero-trabajos-activos.html" target="_blank">Recuperar número trabajos activos subsistema</a>.</span></li>
<li><span style="font-family: "verdana" , sans-serif;"><a href="http://as400howto.blogspot.com/2010/06/recuperar-subsistema-de-un-trabajo.html" target="_blank">Recuperar subsistema de un trabajo</a>.</span></li>
</ul>
<br />
<br /></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-70608995481149308162020-01-21T18:27:00.001+01:002020-12-29T13:30:31.766+01:00DevelopersWork desaparecida<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://1.bp.blogspot.com/-4WcP-llYjII/XiczY3cgXyI/AAAAAAADBXQ/dOtMVefIGYQBuEMwPAHOaM9B6toaNiXvQCLcBGAsYHQ/s1600/ibm_developers_work.png" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="84" data-original-width="151" height="110" src="https://1.bp.blogspot.com/-4WcP-llYjII/XiczY3cgXyI/AAAAAAADBXQ/dOtMVefIGYQBuEMwPAHOaM9B6toaNiXvQCLcBGAsYHQ/s200/ibm_developers_work.png" width="200" /></a></div>
<span style="font-family: verdana;"><span face=""verdana" , sans-serif">IBM elimino el web DevelopersWork, el pasado el 31-ene-2020, perdiéndose todo su contenido.</span><br />
<span face=""verdana" , sans-serif">Estoy intentando recuperar todo el código perdido y analizando donde podemos colgarlo para que este de nuevo disponible.</span><br />
<span face=""verdana" , sans-serif">Cuando estén recuperados los enlaces publicare la noticia en el blog.</span></span></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com1tag:blogger.com,1999:blog-5706577239959749713.post-45072043204404620652019-02-15T21:11:00.001+01:002019-02-15T21:11:23.680+01:00¿Está muerto el AS/400?<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://4.bp.blogspot.com/-bAaUGos6kfw/XGccrcyJ3-I/AAAAAAAC3n4/lf8chmdOp_I0UOQcmXoTm9VeGFxwV9QRACLcBGAs/s1600/old_as400_1.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="405" data-original-width="533" height="151" src="https://4.bp.blogspot.com/-bAaUGos6kfw/XGccrcyJ3-I/AAAAAAAC3n4/lf8chmdOp_I0UOQcmXoTm9VeGFxwV9QRACLcBGAs/s200/old_as400_1.png" width="200" /></a></div>
<div style="text-align: left;">
<span style="font-family: Verdana, sans-serif;">Interesante articulo de <b>Tom Huntington</b>,</span><span style="font-family: Verdana, sans-serif;"> publicado por <b>HelpSystems, </b>sobre el futuro del AS400. De recomendada lectura.</span></div>
<div style="text-align: justify;">
<span style="font-family: Verdana, sans-serif;"><br /></span></div>
<div style="text-align: center;">
<span style="font-family: Verdana, sans-serif;"><b><a href="https://www.helpsystems.com/es/blog/esta-muerto-el-as400" target="_blank">¿Está muerto el AS/400?</a></b></span></div>
<br /></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-13808317665837622192019-02-13T15:17:00.002+01:002019-02-13T15:17:23.934+01:00Los misteriosos trabajos QP0ZSPWP<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-family: Verdana, sans-serif;"><br /></span>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://3.bp.blogspot.com/-krGaPBcWQRY/SWsJRymkaaI/AAAAAAAAGJw/BZSGwUBcOHESnfuCuMYHFRxu_c5ZdExtQCPcBGAYYCw/s1600/engranaje2.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><span style="font-family: Verdana, sans-serif;"><img border="0" data-original-height="55" data-original-width="73" src="https://3.bp.blogspot.com/-krGaPBcWQRY/SWsJRymkaaI/AAAAAAAAGJw/BZSGwUBcOHESnfuCuMYHFRxu_c5ZdExtQCPcBGAYYCw/s1600/engranaje2.jpg" /></span></a></div>
<span style="font-family: Verdana, sans-serif;">Articulo muy interesante de Dawn May, como todos los que escribe, en el <b>IBM System Magazine</b>, sobre los trabajos QP0ZSPWP.</span><br />
<span style="font-family: Verdana, sans-serif;">Podeis leerlo en este enlace </span><span style="font-family: Verdana, sans-serif;"><a href="http://ibmsystemsmag.com/blogs/i-can/february-2019/the-mysterious-qp0zspwp-jobs/" target="_blank"><b>The Mysterious QP0ZSPWP Jobs</b></a>.</span><br />
<span style="font-family: Verdana, sans-serif;"><br /></span>
</div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-16807064031768697902018-08-31T08:35:00.000+02:002018-08-31T08:35:29.774+02:00Automate Extra IPL for PTF Install<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://3.bp.blogspot.com/-krGaPBcWQRY/SWsJRymkaaI/AAAAAAAAGJw/BZSGwUBcOHESnfuCuMYHFRxu_c5ZdExtQCPcBGAYYCw/s1600/engranaje2.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="55" data-original-width="73" src="https://3.bp.blogspot.com/-krGaPBcWQRY/SWsJRymkaaI/AAAAAAAAGJw/BZSGwUBcOHESnfuCuMYHFRxu_c5ZdExtQCPcBGAYYCw/s1600/engranaje2.jpg" /></a></div>
<span style="font-family: "verdana" , sans-serif;">Interesante articulo, de <a href="https://www.ibm.com/developerworks/community/wikis/home?lang=en#!/wiki/IBM%20i%20Technology%20Updates/page/IBM%20i%20Technology%20Updates" target="_blank">IBM DevelopersWork</a>, donde se explican las ptf's necesarias, para que el sistema pueda realizar los IPL automáticos necesarios para aplicarse las ptf's de TR (Technology Refresh), normalmente MF99nnnn, para V6R1 y V7R1, ver el enlace: </span><a href="https://www.ibm.com/developerworks/community/wikis/home?lang=en#!/wiki/IBM%20i%20Technology%20Updates/page/Automate%20Extra%20IPL%20for%20PTF%20Install" style="font-family: verdana, sans-serif; font-size: small;">https://www.ibm.com/developerworks/community/wikis/home?lang=en#!/wiki/IBM%20i%20Technology%20Updates/page/Automate%20Extra%20IPL%20for%20PTF%20Install</a><br />
<div>
<span style="font-family: "verdana" , sans-serif;"><br /></span></div>
<div>
<span style="font-family: "verdana" , sans-serif;">De todas maneras si estáis todavía en estas versiones, planificar una actualización a V7R2 o superior, ya que están fuera de <a href="https://www-01.ibm.com/support/docview.wss?uid=nas8N1022027" target="_blank">soporte</a>, o al menos actualizarlas al <a href="https://www-945.ibm.com/support/fixcentral/" target="_blank">ultimo nivel de ptf's</a>.</span></div>
</div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com1tag:blogger.com,1999:blog-5706577239959749713.post-44396654698366618902018-07-06T09:16:00.001+02:002018-07-06T09:16:33.892+02:00IBM i 30 años<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://2.bp.blogspot.com/-jwgkAzxYSxs/Wz8Pwyrdy7I/AAAAAAACyGo/H0GbnHGpIcEMgw69p9ELM61knIZUqM5fwCLcBGAs/s1600/You-and-i-2.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" data-original-height="208" data-original-width="400" height="103" src="https://2.bp.blogspot.com/-jwgkAzxYSxs/Wz8Pwyrdy7I/AAAAAAACyGo/H0GbnHGpIcEMgw69p9ELM61knIZUqM5fwCLcBGAs/s200/You-and-i-2.jpg" width="200" /></a></div>
<div style="text-align: center;">
<span style="font-family: "verdana" , sans-serif;"><b> IBM i 30 años</b></span></div>
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">Pues si, ya hace <b>30 años</b> que salio al mercado el sistema <b>AS/400</b> de <b>IBM</b>.</span><br />
<span style="font-family: "verdana" , sans-serif;">Aunque hace tiempo que no actualizaba este blog, el evento al que nos convoco IBM ayer, para celebrar este cumpleaños</span><span style="font-family: "verdana" , sans-serif;">, ha provocado esta entrada. </span><br />
<span style="font-family: "verdana" , sans-serif;"><b>¡¡ Brindemos por ello !!</b></span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://4.bp.blogspot.com/-d9i-GczClUo/Wz8RlZaLCiI/AAAAAAACyHE/Ku5Xfo7IZbsB6e2sswqz_2Z4NOv1Tf-mgCKgBGAs/s1600/IMG_20180705_193158_510.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="900" data-original-width="1600" height="225" src="https://4.bp.blogspot.com/-d9i-GczClUo/Wz8RlZaLCiI/AAAAAAACyHE/Ku5Xfo7IZbsB6e2sswqz_2Z4NOv1Tf-mgCKgBGAs/s400/IMG_20180705_193158_510.jpg" width="400" /></a></div>
<br />
<div style="text-align: left;">
<span style="font-family: "verdana" , sans-serif;">Y yo sigo trabajando con este sistema operativo, a pesar de las sentencias de muerte por obsolescencia, que se han ido difundiendo a los largo de los años, supongo que por personas mal informadas. </span><span style="font-family: verdana, sans-serif;">Estoy convencido del futuro de esta plataforma, y esperemos que IBM tome las decisiones correctas para asegurar su futuro. </span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span></div>
<div style="text-align: left;">
<span style="font-family: "verdana" , sans-serif;">Muestra de este futuro brillante fue el anuncio de los <a href="https://www-03.ibm.com/press/us/en/pressrelease/53452.wss" target="_blank">nuevos sistemas <b>IBM POWER9</b></a></span><span style="font-family: verdana, sans-serif;"> (dic-2017),</span><span style="font-family: verdana, sans-serif;"> diseñados para IA, y que Google esta empezando ha utilizarlos, en sus centros de datos, para mejorar el rendimiento. </span></div>
<div style="text-align: left;">
<div style="text-align: center;">
<span style="font-family: "verdana" , sans-serif;"><br /></span></div>
</div>
<div style="text-align: center;">
<iframe allow="autoplay; encrypted-media" allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/zMnMst3QM1Y" width="560"></iframe></div>
<div style="text-align: center;">
<br /></div>
<span style="font-family: Verdana, sans-serif;">En el siguiente enlace tenéis un buen articulo sobre este aniversario, de la gente de HelpSystems: <a href="https://www.helpsystems.com/es/blog/feliz-30-aniversario-ibm-i">https://www.helpsystems.com/es/blog/feliz-30-aniversario-ibm-i</a>.</span><div>
<span style="font-family: Verdana, sans-serif;"><br /></span></div>
<div>
<span style="font-family: Verdana, sans-serif;">Para terminar un recuerdo de mi "desktop", de 1995:</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://3.bp.blogspot.com/-m1-_OFmvnFI/Wz8W-dv-wfI/AAAAAAACyHY/1L5NUg_szF4Io7sOgHImPdGS4AwUnX6OwCKgBGAs/s1600/Sala%2Bordenadores%2BPiara%2B1995a.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="797" data-original-width="1218" height="261" src="https://3.bp.blogspot.com/-m1-_OFmvnFI/Wz8W-dv-wfI/AAAAAAACyHY/1L5NUg_szF4Io7sOgHImPdGS4AwUnX6OwCKgBGAs/s400/Sala%2Bordenadores%2BPiara%2B1995a.jpg" width="400" /></a></div>
<div>
<span style="font-family: Verdana, sans-serif;"><br /></span><span style="font-family: "verdana" , sans-serif;"><br /></span></div>
</div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-75026259865088688312017-02-07T16:45:00.001+01:002017-02-07T16:47:03.821+01:00Utilidad ViewSAVF<div dir="ltr" style="text-align: left;" trbidi="on">
<a href="https://1.bp.blogspot.com/-1paD-EGQUCI/WJnpwiW3GAI/AAAAAAACftM/BBnYDuN1t_QwMV7Cvy7h0jYxzo-VF2LhACLcB/s1600/ViewSAVF.PNG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://1.bp.blogspot.com/-1paD-EGQUCI/WJnpwiW3GAI/AAAAAAACftM/BBnYDuN1t_QwMV7Cvy7h0jYxzo-VF2LhACLcB/s1600/ViewSAVF.PNG" /></a><span style="font-family: "verdana" , sans-serif;"></span><br />
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Hace un tiempo encontré la utilidad ViewSAVF, que una vez instalada en nuestro pc, permite mostrarnos el contenido de un archivo SAVF, que hayamos bajado a nuestro pc, o tengamos acceso por NetServer.</span></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://4.bp.blogspot.com/-1VMULPE6jDs/WJnrPYc_OLI/AAAAAAACftU/xy76LUt91dcd4-vOoQFrOl2NUpSZfAXlgCLcB/s1600/ViewSAVF-Display.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="213" src="https://4.bp.blogspot.com/-1VMULPE6jDs/WJnrPYc_OLI/AAAAAAACftU/xy76LUt91dcd4-vOoQFrOl2NUpSZfAXlgCLcB/s320/ViewSAVF-Display.PNG" width="320" /></a></div>
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">También nos visualiza el contenido de los archivos, solo las 20 primeras lineas en la versión de prueba.</span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">La pagina web del creador <a href="http://www.juliansoft.com/" target="_blank">www.juliansoft.com</a> ya no esta "online", pero aun podemos bajarnos el programa desde el siguiente enlace: <a href="http://download.cnet.com/ViewSavF/3000-2242_4-75762716.html" target="_blank">http://download.cnet.com/ViewSavF/3000-2242_4-75762716.html</a></span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span><span style="font-family: "verdana" , sans-serif;">Espero os sea de utilidad :o)</span><br />
<br /></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-23542893445731806372016-12-22T17:11:00.001+01:002016-12-22T17:12:19.288+01:00Felices Fiestas y prospero 2017<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://2.bp.blogspot.com/-UZnHqbN_ao4/WFv7CRYxg-I/AAAAAAACfCE/jMpCUQg2k-8P3doQAW3udmRKp3__zUGAQCLcB/s1600/img-navidad-cata-2017.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="224" src="https://2.bp.blogspot.com/-UZnHqbN_ao4/WFv7CRYxg-I/AAAAAAACfCE/jMpCUQg2k-8P3doQAW3udmRKp3__zUGAQCLcB/s320/img-navidad-cata-2017.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
</div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-41481432094620154772016-10-24T15:58:00.001+02:002016-10-24T16:02:54.817+02:00Modificada utilidad CHGSTSJRN (2)<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-family: "verdana" , sans-serif;">Se han realizado los siguientes cambios en la utilidad <b>CHGSTSJRN</b> para:</span><br />
<span style="font-family: "verdana" , sans-serif;">- Añadir la opción de eliminar los receptores de diario automáticamente, al crear el diario.</span><br />
<span style="font-family: "verdana" , sans-serif;">- Añadir la opción de registrar por diario, automáticamente, los archivos creados en la biblioteca con STRJRNLIB (a partir de V6R1)</span><br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "verdana" , sans-serif; margin-left: 1em; margin-right: 1em; text-align: center;"><a href="https://4.bp.blogspot.com/-TsdevZCkjq4/WA4SmTuTaCI/AAAAAAACd-Q/zlNyTHgwqhQZqeIpHlsHxPfkj4UFnY5eQCLcB/s1600/CHGSTSJRN%25282%2529.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" height="87" src="https://4.bp.blogspot.com/-TsdevZCkjq4/WA4SmTuTaCI/AAAAAAACd-Q/zlNyTHgwqhQZqeIpHlsHxPfkj4UFnY5eQCLcB/s320/CHGSTSJRN%25282%2529.PNG" width="320" /></a></span></div>
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">Pulsando <b>F1</b> podemos acceder a la ayuda del mandato.</span><br />
<span style="font-family: "verdana" , sans-serif;"><br /><a href="https://www.ibm.com/developerworks/mydeveloperworks/groups/service/html/communityview?communityUuid=81e67f1a-3698-4109-b043-06fd5bbb8acb#fullpageWidgetId=Wfb71c05c1300_4fa6_b95c_cd1c744f38d7&file=5eb2f246-f3da-4084-99f9-2cffbe30bf1e">Podemos bajar la nueva versión desde IBMdevelopersWorks en este enlace.</a></span><br />
<br />
<span style="font-size: x-small;"><span style="font-family: Verdana, sans-serif;">Entradas anteriores:<br />- <a href="http://as400howto.blogspot.com.es/2010/05/modificada-utilidad-chgstsjrn.html" target="_blank">Modificada utilidad CHGSTSJRN</a><a href="http://as400howto.blogspot.com.es/2010/05/modificada-utilidad-chgstsjrn.html"></a><br />- </span><a href="http://as400howto.blogspot.com.es/2009/07/arrancar-registro-por-diario.html" target="_blank"><span style="font-family: Verdana, sans-serif;">Arrancar registro por diario automaticamente</span></a></span></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-30078997229760425392016-09-30T11:48:00.002+02:002016-09-30T14:26:00.242+02:00Expirar automaticamente los archivos de spool<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://3.bp.blogspot.com/-Axh9384C9Pk/V-40pdUSLZI/AAAAAAACdzE/pA8N9omHi1QlHNDzL7FrFodOUekWeKpAACLcB/s1600/Hardware-Laser-Printer-icon.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="200" src="https://3.bp.blogspot.com/-Axh9384C9Pk/V-40pdUSLZI/AAAAAAACdzE/pA8N9omHi1QlHNDzL7FrFodOUekWeKpAACLcB/s200/Hardware-Laser-Printer-icon.png" width="200" /></a></div>
<span style="font-family: "verdana" , sans-serif;">Para que los archivos de spool antiguos se supriman automáticamente del sistema, podemos utilizar el mandato DLTEXPSPLF (desde V5R4), que inspecciona los spools de las colas de salida y elimina los que cumplan las condiciones de expiración.</span><br />
<span style="font-family: "verdana" , sans-serif;">Normalmente los archivos de spool se crean según los atributos de los archivos de impresora (*PRTF); para la caducidad del spool existen 4 parámetros, que se definen cuando se crea el archivo:</span><br />
<br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"><b>Campo Texto Long Dec</b> </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">SPEXDT 0 = *NONE, 1 = Fecha, 2 = Días 1 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">SPXDCT Siglo de la fecha de caducidad 1 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">SPXDAT Fecha de caducidad de archivo: AAMMDD 6 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">SPXDAY Días desde fecha creación hasta caducidad archivo 3 0 </span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">Para un archivo de spool, generado desde un archivo de impresora, sin caducidad, veremos:</span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Trabajar con atributos de archivo en spool </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Trabajo . . . . . . : QP0ZSPWP Archivo . . . . . . : QPJOBLOG </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Usuario . . . . . : QPGMR Número . . . . . . : 000001 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Número . . . . . . : 049334 Fecha de creación . : 26/09/15 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Nombre sist trabajo : MYAS400 Hora de creación . . : 09:17:04 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">..... </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">Fecha de caducidad de archivo . . . . : </span><span style="font-family: "courier new" , "courier" , monospace; font-size: x-small;"> </span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">Para el mismo archivo de spool, generado desde un archivo de impresora, con caducidad 30 días, veremos:</span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Trabajar con atributos de archivo en spool </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Trabajo . . . . . . : QP0ZSPWP Archivo . . . . . . : QPJOBLOG </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Usuario . . . . . : QPGMR Número . . . . . . : 000001 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Número . . . . . . : 049334 Fecha de creación . : 26/09/15 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Nombre sist trabajo : MYAS400 Hora de creación . . : 09:17:04 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">..... </span><br />
<span style="font-family: "courier new" , "courier" , monospace;"><span style="font-size: xx-small;">Fecha de caducidad de archivo . . . . : 26/10/15 </span></span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">Si queremos caducar un archivo de spool, solo hemos de cambiar los parámetros del archivo de spool:</span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: x-small;"> CHGSPLFA FILE(QPJOBLOG) EXPDATE(*DAYS) DAYS(30)</span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">Para automatizar la gestión de spools por fecha de caducidad deberemos:</span><br />
<br />
<ol style="text-align: left;">
<li><span style="font-family: "verdana" , sans-serif;">Para modificar los archivos de impresora para que expiren a los 30 días de haberse creado, crearemos y ejecutaremos un programa CL, el codigo lo podeis bajar </span><span style="font-family: Verdana, sans-serif;">el código de esta utilidad del grupo <a href="https://www.ibm.com/developerworks/community/groups/service/html/communityview?communityUuid=81e67f1a-3698-4109-b043-06fd5bbb8acb#fullpageWidgetId=Wfb71c05c1300_4fa6_b95c_cd1c744f38d7&file=59cdc248-995d-4ede-95c9-b3418a1d2c9b" target="_blank">Recursos AS400 en IBM developersWorks</a>.</span></li>
<li><span style="font-family: "verdana" , sans-serif;">Modificar, manualmente, los atributos de todos los archivos de spool, que ya existen en todas las colas de salida, con los parametros EXPDATE(*DAYS) y DAYS(30). Podemos omitir las colas QEZDEBUG y QEZJOBLOG, que se limpian automáticamente con las opciones de limpieza del sistema (GO CLEANUP), si las tenemos activadas.</span></li>
<li><span style="font-family: "verdana" , sans-serif;">Planificar el trabajo (en ejemplo es semanal) que ejecuta la eliminación de los archivos de spool caducados:</span></li>
</ol>
<br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: x-small;"> ADDJOBSCDE JOB(DLTEXPSPLF) CMD(DLTEXPSPLF) FRQ(*WEEKLY) </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: x-small;"> SCDDATE(*NONE) SCDDAY(*MON) SCDTIME(060000) </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: x-small;"> TEXT('Suprimir archivos de spool caducados') </span><span style="font-family: "verdana" , sans-serif;"> </span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;"><b>Nota1:</b> Este procedimiento puede sustituir a la utilidad DLTOLDSPLF (<a href="http://www-01.ibm.com/support/docview.wss?uid=nas8N1019285">http://www-01.ibm.com/support/docview.wss?uid=nas8N1019285</a>).</span><br />
<b style="font-family: Verdana, sans-serif;">Nota2:</b><span style="font-family: "verdana" , sans-serif;"> </span><span style="font-family: "verdana" , sans-serif;">En los ejemplos se utiliza una expiración de 30 días, pero podría ser mas o menos días, según las necesidades</span><span style="font-family: "verdana" , sans-serif;"> </span><br />
<span style="font-family: "verdana" , sans-serif;"><b>Nota3: </b>En el programa de ejemplo se modifican TODOS los archivos de impresora del sistema, que no tengan definida fecha de caducidad, si la tienen la respetan, ya que pueden existir archivos de impresora, y por tanto de spool, con otras necesidades de conservación en las colas.</span></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-76416102959486579212016-09-30T11:48:00.001+02:002016-09-30T13:38:04.264+02:00Expirar automaticamente los archivos de spool<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://3.bp.blogspot.com/-Axh9384C9Pk/V-40pdUSLZI/AAAAAAACdzE/pA8N9omHi1QlHNDzL7FrFodOUekWeKpAACLcB/s1600/Hardware-Laser-Printer-icon.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="200" src="https://3.bp.blogspot.com/-Axh9384C9Pk/V-40pdUSLZI/AAAAAAACdzE/pA8N9omHi1QlHNDzL7FrFodOUekWeKpAACLcB/s200/Hardware-Laser-Printer-icon.png" width="200" /></a></div>
<span style="font-family: "verdana" , sans-serif;">Para que los archivos de spool antiguos se supriman automáticamente del sistema, podemos utilizar el mandato DLTEXPSPLF (desde V5R4), que inspecciona los spools de las colas de salida y elimina los que cumplan las condiciones de expiración.</span><br />
<span style="font-family: "verdana" , sans-serif;">Normalmente los archivos de spool se crean según los atributos de los archivos de impresora (*PRTF); para la caducidad del spool existen 4 parámetros, que se definen cuando se crea el archivo:</span><br />
<br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"><b>Campo Texto Long Dec</b> </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">SPEXDT 0 = *NONE, 1 = Fecha, 2 = Días 1 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">SPXDCT Siglo de la fecha de caducidad 1 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">SPXDAT Fecha de caducidad de archivo: AAMMDD 6 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">SPXDAY Días desde fecha creación hasta caducidad archivo 3 0 </span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">Para un archivo de spool, generado desde un archivo de impresora, sin caducidad, veremos:</span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Trabajar con atributos de archivo en spool </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Trabajo . . . . . . : QP0ZSPWP Archivo . . . . . . : QPJOBLOG </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Usuario . . . . . : QPGMR Número . . . . . . : 000001 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Número . . . . . . : 049334 Fecha de creación . : 26/09/15 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Nombre sist trabajo : MYAS400 Hora de creación . . : 09:17:04 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">..... </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">Fecha de caducidad de archivo . . . . : </span><span style="font-family: "courier new" , "courier" , monospace; font-size: x-small;"> </span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">Para el mismo archivo de spool, generado desde un archivo de impresora, con caducidad 30 días, veremos:</span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Trabajar con atributos de archivo en spool </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Trabajo . . . . . . : QP0ZSPWP Archivo . . . . . . : QPJOBLOG </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Usuario . . . . . : QPGMR Número . . . . . . : 000001 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Número . . . . . . : 049334 Fecha de creación . : 26/09/15 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;"> Nombre sist trabajo : MYAS400 Hora de creación . . : 09:17:04 </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: xx-small;">..... </span><br />
<span style="font-family: "courier new" , "courier" , monospace;"><span style="font-size: xx-small;">Fecha de caducidad de archivo . . . . : 26/10/15 </span></span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">Si queremos caducar un archivo de spool, solo hemos de cambiar los parámetros del archivo de spool:</span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: x-small;"> CHGSPLFA FILE(QPJOBLOG) EXPDATE(*DAYS) DAYS(30)</span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;">Para automatizar la gestión de spools por fecha de expirarción deberemos:</span><br />
<br />
<ol style="text-align: left;">
<li><span style="font-family: "verdana" , sans-serif;">Para modificar los archivos de impresora para que expiren a los 30 días de haberse creado, crearemos y ejecutaremos un programa CL, el codigo lo podeis bajar de este enlace: <span style="font-size: xx-small;">(enlace en breve) </span></span></li>
<li><span style="font-family: "verdana" , sans-serif;">Modificar, manualmente, los atributos de todos los archivos de spool, que ya existen en todas las colas de salida, con los parametros EXPDATE(*DAYS) y DAYS(30). Podemos omitir las colas QEZDEBUG y QEZJOBLOG, que se limpian automáticamente con las opciones de limpieza del sistema (GO CLEANUP), si las tenemos activadas.</span></li>
<li><span style="font-family: "verdana" , sans-serif;">Planificar el trabajo (en ejemplo es semanal) que ejecuta la eliminación de los archivos de spool caducados:</span></li>
</ol>
<br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: x-small;"> ADDJOBSCDE JOB(DLTEXPSPLF) CMD(DLTEXPSPLF) FRQ(*WEEKLY) </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: x-small;"> SCDDATE(*NONE) SCDDAY(*MON) SCDTIME(060000) </span><br />
<span style="font-family: "courier new" , "courier" , monospace; font-size: x-small;"> TEXT('Suprimir archivos de spool caducados') </span><span style="font-family: "verdana" , sans-serif;"> </span><br />
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<span style="font-family: "verdana" , sans-serif;"><b>Nota1:</b> Este procedimiento puede sustituir a la utilidad DLTOLDSPLF (<a href="http://www-01.ibm.com/support/docview.wss?uid=nas8N1019285">http://www-01.ibm.com/support/docview.wss?uid=nas8N1019285</a>).</span><br />
<b style="font-family: Verdana, sans-serif;">Nota2:</b><span style="font-family: "verdana" , sans-serif;"> </span><span style="font-family: "verdana" , sans-serif;">En los ejemplos se utiliza una expiración de 30 días, pero podría ser mas o menos días, según las necesidades</span><span style="font-family: "verdana" , sans-serif;"> </span><br />
<span style="font-family: "verdana" , sans-serif;"><b>Nota3: </b>En el programa de ejemplo se modifican TODOS los archivos de impresora del sistema, que no tengan definida fecha de caducidad, si la tienen la respetan, ya que pueden existir archivos de impresora, y por tanto de spool, con otras necesidades de conservación en las colas.</span></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-84960702969495369582016-01-16T13:46:00.004+01:002017-01-26T11:29:30.975+01:00Buenas practicas para la administración del sistema<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://4.bp.blogspot.com/-n2rxNM9rMks/WInPdxqISNI/AAAAAAACfa8/R0a8WtUjTIkgQ1Icd2iPhGweG5BWXHlAACLcB/s1600/as400.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="200" src="https://4.bp.blogspot.com/-n2rxNM9rMks/WInPdxqISNI/AAAAAAACfa8/R0a8WtUjTIkgQ1Icd2iPhGweG5BWXHlAACLcB/s200/as400.jpg" width="158" /></a></div>
<br />
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">En este articulo iré relacionando todos los consejos de practicas, que, creo deben usarse, y que, </span><span style="font-family: "verdana" , sans-serif;"> </span><span style="font-family: "verdana" , sans-serif;">a lo largo de los años,</span><span style="font-family: "verdana" , sans-serif;"> facilitarán la gestión de un sistema AS400.</span></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<b><span style="font-family: "verdana" , sans-serif;">No crear librerías que empiecen por Q</span></b></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;"><b>IBM </b>denomina las bibliotecas, del sistema operativo y de sus productos (con alguna excepción), con la letra Q como caràcter inicial del nombre de biblioteca.</span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Si nosotros creamos bibliotecas que empiecen con esa letra, al realizar una copia de seguridad con el parámetro LIB(*ALLUSR), no se incluirán las bibliotecas Q*, excepto las bibliotecas QGPL, QUSRSYS, QPFRDATA y otras excepciones (<a href="https://www-01.ibm.com/support/knowledgecenter/api/content/nl/es/ssw_i5_54/cl/savlib.htm#SAVLIB.LIB" target="_blank">ver ayuda mandato SAVLIB</a>) . </span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Por tanto no es una buena practica utilizar la letra Q como inicial de nuestras bibliotecas ya que si no las salvamos posteriormente no tendremos copia de las mismas.</span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;"><br /></span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;"><b>No crear objetos en la biblioteca QSYS</b></span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">No es una buena practica crear nuestros programas, ficheros, u otros objetos, en la biblioteca del sistema operativo, ni, en general, en otra biblioteca Q*, ya que afectaran a todas las aplicaciones que se ejecuten en el sistema y pueden provocarnos problemas en el futuro.</span></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;"><b>Crear la cola de mensajes QSYS/QSYSMSG</b></span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Esto es una <a href="http://as400howto.blogspot.com.es/2009/05/crear-cola-de-mensajes-qsysmsg.html" target="_blank">función poco conocida del sistema operativo</a>, al crear esta cola especial de mensajes se registraran en ella mensajes de gravedad que seguramente pasarían desapercibidos en la QSYSOPR, si hay muchos mensajes.</span></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;"><b>Activar la limpieza automàtica del sistema</b></span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Para mantener el espacio en disco a raya, una de las tareas que deben realizarse es la de limpiar logs y spools, periódicamente, para ello v</span><span style="font-family: "verdana" , sans-serif;">er la entrada publicada: </span><span style="text-align: left;"><span style="font-family: "verdana" , sans-serif;"><a href="http://as400howto.blogspot.com.es/2010/09/limpiar-automaticamente-mensajes.html" target="_blank">Limpiar automaticamente mensajes, joblogs, dumps, ...</a></span></span></div>
<div style="text-align: justify;">
<span style="text-align: left;"><span style="font-family: "verdana" , sans-serif;">También</span></span><span style="font-family: "verdana" , sans-serif;"> puede ser interesante borrar los archivos de spool de usuario antiguos, para ello podemos activar la fecha de expiración del archivo de spool (a partir V5R4) o planificar un trabajo con la utilidad DLTOLDSPLF, que podemos obtener en </span><span style="text-align: left;"><span style="font-family: "verdana" , sans-serif;"><a href="http://www-01.ibm.com/support/docview.wss?uid=nas8N1019285">http://www-01.ibm.com/support/docview.wss?uid=nas8N1019285</a></span></span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;"><br /></span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;"><b>Activar las estadísticas de espacio en disco</b></span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Para controlar el espacio en disco utilizado en el sistema podemos activar y planificar la tarea de recogida de uso del disco, el procedimiento esta explicado en la entrada <a href="http://as400howto.blogspot.com.es/2009/11/estadisticas-espacio-en-disco.html" target="_blank">Estadísticas de espacio en disco</a>.</span><br />
<span style="font-family: "verdana" , sans-serif;">Es recomendable imprimir periodicamente la información de estas estadisticas, lo podemos, o tamien podemos utilizar la utilidad que publique para llevar un control más exhaustivo, ver la <a href="http://as400howto.blogspot.com.es/2013/05/utilidad-estadisticas-espacio-en-disco.html" target="_blank">utilidad DSKINF</a>.</span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;"><br /></span>
<br />
<div style="text-align: left;">
<b style="font-family: verdana, sans-serif; text-align: justify;">Activar la seguridad del sistema</b></div>
<div style="text-align: left;">
<span style="font-family: "verdana" , sans-serif; text-align: justify;">Para tener más control de lo que pasa en nuestro sistema, y seguramente poder cumplir con las auditorias de seguridad, es más que recomendable activar el diario de auditoria del sistema. El procedimento para hacerlo ya esta publicado en esta entrada: </span><span style="font-family: "verdana" , sans-serif;"><a href="http://as400howto.blogspot.com.es/2010/03/configurar-seguridad-del-sistema.html" target="_blank">Configurar seguridad del sistema</a>.</span></div>
<div style="text-align: left;">
<span style="font-family: "verdana" , sans-serif;">Lo unico que habra que tener en cuenta es que necesitaremos más espacio en disco para los receptores del diario de auditoria; además debemos crear un procedimento para gestionarlos (habitualmente guardarlos a cinta y eliminarlos)</span></div>
<div style="text-align: left;">
<span style="font-family: "verdana" , sans-serif;">Tambien deberíamos <a href="http://as400howto.blogspot.com.es/2010/05/desactivar-usuarios-con-contrasena-por.html" target="_blank">desactivar los usuarios con contraseña por omisión</a>.</span></div>
<div style="text-align: left;">
<span style="font-family: "verdana" , sans-serif;">Asi como debemos <a href="http://as400howto.blogspot.com.es/2010/02/desactivar-usuarios-sin-uso.html" target="_blank">desactivar a los usuarios sin uso</a>.</span></div>
<span style="font-family: "verdana" , sans-serif;"><br /></span></div>
<div style="text-align: justify;">
<b><span style="font-family: "verdana" , sans-serif;">Tareas a r</span><span style="font-family: "verdana" , sans-serif;">evisar y/o ejecutar periódicamente</span><span style="font-family: "verdana" , sans-serif;">:</span></b></div>
<div style="text-align: justify;">
</div>
<div style="text-align: left;">
<ul style="text-align: left;">
<li style="text-align: left;"><span style="font-family: "verdana" , sans-serif;">Copia de seguridad de nuestros datos diariamente (GO BACKUP)</span></li>
<li style="text-align: left;"><span style="font-family: "verdana" , sans-serif;">Una copia completa del sistema (semanal o mensual o trimestral), y aprovechar para realizar un IPL (GO SAVE, opción 21)</span></li>
<li style="text-align: left;"><span style="font-family: "verdana" , sans-serif;">Problemas detectados por el sistemas (WRKPRB)</span></li>
<li style="text-align: left;"><span style="font-family: "verdana" , sans-serif;">Actualizar el nivel del acumulativo y grupos de ptf (WRKPTFGRP)</span></li>
<li style="text-align: left;"><span style="font-family: "verdana" , sans-serif;">Ejecutar una reclamación de espacio en disco, después</span><span style="font-family: "verdana" , sans-serif;"> de una caída</span><span style="font-family: "verdana" , sans-serif;"> no planificada del sistema (RCLSTG)</span></li>
<li style="text-align: left;"><span style="font-family: "verdana" , sans-serif;">Actualizar el sistema operativo antes de quedar </span><a href="http://www-947.ibm.com/systems/support/i/planning/migrationupgrade.html" style="font-family: Verdana, sans-serif;" target="_blank">sin soporte por parte de IBM</a><span style="font-family: "verdana" , sans-serif;">.</span></li>
<li style="text-align: left;"><span style="font-family: "verdana" , sans-serif;">...</span></li>
</ul>
</div>
<br />
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;"><b>Documentar todos los cambios realizados en el sistema</b></span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Cuando cambiamos:</span></div>
<div style="text-align: justify;">
</div>
<ul>
<li><span style="font-family: "verdana" , sans-serif;">El valor de un variable del sistema.</span></li>
<li><span style="font-family: "verdana" , sans-serif;">La configuración de un subsistema suministrado por IBM.</span></li>
<li><span style="font-family: "verdana" , sans-serif;">Las clases con los parámetros de ejecución.</span></li>
<li><span style="font-family: "verdana" , sans-serif;">La configuración de los pools de memoria.</span></li>
<li><span style="font-family: "verdana" , sans-serif;">Descripción de los mensajes, en los archivos de mensajes </span><span style="font-family: "verdana" , sans-serif;">suministrados por IBM.</span></li>
<li><span style="font-family: "verdana" , sans-serif;">ect...</span></li>
</ul>
<span style="font-family: "verdana" , sans-serif;">Es una buena practica documentar dichos cambios en algun documento.</span><br />
<div>
<span style="font-family: "verdana" , sans-serif;">Suelo utilizar un miembro fuente en la QGPL/QCLSRC, por ejemplo SYSCUST, donde voy insertando los cambios realizados con un comentario de la razón. De esta forma en caso de migrar el sistema a un nuevo hardware, tendremos todos estos cambios documentados y podremos reproducirlos más fácilmente.</span><br />
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;"><br /></span></div>
<br /></div>
</div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-73063614986300253022015-12-22T16:16:00.001+01:002015-12-22T16:16:29.842+01:00Felices Fiestas y Prospero 2016<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<iframe width="320" height="266" class="YOUTUBE-iframe-video" data-thumbnail-src="https://i.ytimg.com/vi/NEhic8bW61o/0.jpg" src="https://www.youtube.com/embed/NEhic8bW61o?feature=player_embedded" frameborder="0" allowfullscreen></iframe></div>
<br /></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-7689651029363127302015-03-20T10:55:00.001+01:002015-03-20T11:11:57.428+01:00Auditoría de IBM Power Systems (AS/400)<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
<a href="http://1.bp.blogspot.com/-JyMI6BilGZw/SN1i7SYobQI/AAAAAAAAVH8/slrrlZZ5L4o/s1600/key.gif" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="http://1.bp.blogspot.com/-JyMI6BilGZw/SN1i7SYobQI/AAAAAAAAVH8/slrrlZZ5L4o/s1600/key.gif" height="125" width="200" /></a><span style="font-family: Verdana, sans-serif;">Buscando por la red temas de seguridad he encontrado una serie de artículos, escritos por <a href="https://www.linkedin.com/in/sergiohernando" rel="nofollow" target="_blank">Sergio Hernando</a>, sobre que puntos es necesario recabar para realizar una auditoría de seguridad del AS/400, y por tanto como podemos mejorar la seguridad en nuestros sistemas.</span></div>
<div style="text-align: justify;">
<span style="font-family: Verdana, sans-serif;"><br /></span></div>
<div style="text-align: justify;">
<span style="font-family: Verdana, sans-serif; text-align: left;">Dejo aquí los enlaces para su consulta, ya que son muy interesantes:</span></div>
<div>
<span style="font-family: Verdana, sans-serif; font-size: x-small;">
<a href="http://www.sahw.com/wp/archivos/2009/07/15/auditoria-de-ibm-power-systems-as400-parte-1-introduccion/" rel="nofollow" target="_blank">Auditoría de IBM Power Systems (AS/400). Parte 1. Introducción</a><br />
<a href="http://www.sahw.com/wp/archivos/2009/07/16/auditoria-de-ibm-power-systems-as400-parte-2-valores-del-sistema/" rel="nofollow" target="_blank">Auditoría de IBM Power Systems (AS/400). Parte 2. Valores del sistema</a><br />
<a href="http://www.sahw.com/wp/archivos/2009/08/02/auditoria-de-ibm-power-systems-as400-parte-3-perfiles-de-usuario-generalidades/" rel="nofollow" target="_blank">Auditoría de IBM Power Systems (AS/400). Parte 3. Perfiles de usuario (generalidades)</a><br />
<a href="http://www.sahw.com/wp/archivos/2009/09/09/auditoria-de-ibm-power-systems-as400-parte-4-perfiles-de-usuario-contrasenas-genericas/" rel="nofollow" target="_blank">Auditoría de IBM Power Systems (AS/400). Parte 4. Perfiles usuario (contraseñas por defecto)</a></span></div>
</div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-69538993549150622682014-12-24T13:58:00.000+01:002014-12-24T13:58:19.968+01:00Feliz Navidad i Prospero 2015<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-NPCFAycemzY/VJq30lTV56I/AAAAAAACQGY/4916AsJ0kWg/s1600/arbrenadal.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/-NPCFAycemzY/VJq30lTV56I/AAAAAAACQGY/4916AsJ0kWg/s1600/arbrenadal.png" height="400" width="245" /></a></div>
<br /></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0Korvatunturi, 98830 Savukoski, Finlandia68.073611 29.31527800000003568.0658085 29.305193000000035 68.0814135 29.325363000000035tag:blogger.com,1999:blog-5706577239959749713.post-63562758964248232242014-11-04T12:54:00.000+01:002020-04-20T17:54:49.629+02:00Nueva versión utilidad FNDJOBDL<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Hace tiempo publique la utilidad <a href="http://as400howto.blogspot.com/2013/02/jobd-que-usan-una-biblioteca-fndjobdl.html" target="_blank">FNDJOBDL</a>, basada en la utilidad JCRLJOBD), para buscar fácilmente en que </span><span style="font-family: "verdana" , sans-serif;">Descripciones de Trabajo estaba, en la lista de bibliotecas, una biblioteca en concreto.</span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">A partir de la versión V5R1 se modificaron las JobD para permitir listas de bibliotecas de más de 25, hasta un limite de 250 bibliotecas. La versión publicada fallaba cuando habían más de 100 bibliotecas en la INLIBL, por esta razón publico una nueva versión, aunque supongo que son pocos los afectados por este "bug".</span></div>
<div style="text-align: justify;">
<span style="font-family: "verdana" , sans-serif;">Aprovechando el cambio he añadido una columna que informa del ultimo uso de la JobD, que contiene la biblioteca buscada, esto debería ayudarnos a saber si realmente se esta usando la descripción de trabajo y por consecuencia la biblioteca. </span><span style="font-family: "verdana" , sans-serif;">El funcionamiento es el mismo y obtendremos un informe similar al siguiente:</span></div>
<div style="text-align: center;">
<span style="font-family: "courier new" , "courier" , monospace;"><b>FNDJOBDL LIBLE(QGPL) </b> </span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-5_iHq2gRos0/VFi8m92U9nI/AAAAAAABfY8/lv1QLuIV0KI/s1600/FNDJOBDLv2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="" border="0" height="135" src="https://2.bp.blogspot.com/-5_iHq2gRos0/VFi8m92U9nI/AAAAAAABfY8/lv1QLuIV0KI/s1600/FNDJOBDLv2.jpg" title="FNDJOBDL" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "courier new" , "courier" , monospace; font-size: x-small;">(la fecha esta en formato saammdd)</span></div>
<span style="font-family: "verdana" , sans-serif;"><a href="https://drive.google.com/file/d/1-x9zqCWOA2cB69e2awRqb6rXzIxIrEaL/view?usp=sharing" target="_blank">Podéis bajar esta nueva versión del código de este enlace FNDJOBDL</a></span>.</div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-61225006977378556902014-02-27T18:21:00.000+01:002017-03-15T08:55:03.212+01:00Mover una biblioteca a otra ASP<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-family: "verdana" , sans-serif;">Hace unos días, en este blog, publique un comentario sobre una actualización de la utilidad <a href="http://as400howto.blogspot.ch/2013/01/copiar-miembros-fuente-al-pc-cpysrctopc.html" target="_blank">CPYSRCTOPC</a>, realizada por Javier Mora, en la que se mejoraba la posibilidad de usarla con diferentes ASP.</span><br />
<div>
<span style="font-family: "verdana" , sans-serif;">Rebuscando en mi baúl de utilidades, rescate la utilidad <b>MOVTOASP</b>, creada en 2001, y que nos permite mover una biblioteca de ASP, aunque hace años que no la uso porque actualmente trabajo con sistemas que solo tienen la ASP de sistema.</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://2.bp.blogspot.com/-Sqx9cmucPps/WMjzI9q3i3I/AAAAAAACgKk/wSFAm96GPFQc2o1PMiVlWcmLu_LqySe4QCLcB/s1600/MOVTOASP.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="49" src="https://2.bp.blogspot.com/-Sqx9cmucPps/WMjzI9q3i3I/AAAAAAACgKk/wSFAm96GPFQc2o1PMiVlWcmLu_LqySe4QCLcB/s320/MOVTOASP.PNG" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div>
<span style="font-family: "verdana" , sans-serif;">Esta utilidad esta basada en la API <a href="http://pic.dhe.ibm.com/infocenter/iseries/v7r1m0/index.jsp?topic=%2Fapis%2Fqhsmmovl.htm" target="_blank">QHSMMOVL</a> y es muy fácil de utilizar.</span><br />
<span style="font-family: "verdana" , sans-serif;">El parámetro CHK tiene el valor *VALIDATE por omisión, y junto con el valor *YES, lo que hace es verificar que realmente se pueda mover la biblioteca de ASP ya que existen dependencias de algunos objetos para poderlo realizar (relaciones de base de datos externas a la biblioteca, diarios, etc..)</span><br />
<span style="font-family: "verdana" , sans-serif;">Podéis bajaros el código en el enlace, de Recursos/400, en la web de IBM developersWork: <a href="https://www.ibm.com/developerworks/community/groups/service/html/communityview?communityUuid=81e67f1a-3698-4109-b043-06fd5bbb8acb#fullpageWidgetId=Wfb71c05c1300_4fa6_b95c_cd1c744f38d7&file=cc6aa36c-3932-48f7-8d37-52d45c4e4e66" target="_blank">Mover una biblioteca a otra ASP</a>.</span></div>
</div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-15967647695004130992013-07-31T13:26:00.005+02:002020-12-29T12:04:41.773+01:00Copiar archivo a CSV y ejecutar Excel<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
<span style="font-family: verdana;"><span face="Verdana, sans-serif">Actualización de la utilidad <b>CPYTOXLS</b>, que uso para copiar un archivo a formato CSV y, si estoy ejecutando desde una sesión pantalla, ejecutar el programa de hoja de calculo que este instalado en el ordenador, habitualmente <a href="http://office.microsoft.com/es-mx/excel" target="_blank">MS-Excel</a>.</span><br />
</span><div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-QSbdUOEpwxQ/UfjrXA0egJI/AAAAAAAAS8Q/ixWF-T0Nn-c/s1600/COPYTOXLS.jpg" style="margin-left: 1em; margin-right: 1em;"><span style="font-family: verdana;"><img border="0" height="107" src="http://3.bp.blogspot.com/-QSbdUOEpwxQ/UfjrXA0egJI/AAAAAAAAS8Q/ixWF-T0Nn-c/s320/COPYTOXLS.jpg" width="320" /></span></a></div>
<span style="font-family: verdana;"><span face="Verdana, sans-serif">Precisamente esta es la actualización, ya que podemos configurar la hoja de calculo que vamos a ejecutar actualizando una área</span><span face="Verdana, sans-serif"> de datos, sin tener que recompilar, en cada nueva versión de la hoja de calculo, el programa que lo procesa. </span><span face="Verdana, sans-serif">También</span><span face="Verdana, sans-serif"> incorpora la nueva opción de eliminar el archivo del IFS generado, parámetro DLT, su valor por omisión es *NO.</span><br />
</span><a href="http://2.bp.blogspot.com/-43RuUQ-ya3s/Ufj0UAIEi6I/AAAAAAAAS8w/4uvxWHcVBF8/s1600/spreadsheet.jpg" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><span style="font-family: verdana;"><img border="0" height="130" src="http://2.bp.blogspot.com/-43RuUQ-ya3s/Ufj0UAIEi6I/AAAAAAAAS8w/4uvxWHcVBF8/s200/spreadsheet.jpg" width="200" /></span></a><span style="font-family: verdana;"><span face="Verdana, sans-serif">Si el mandato se lanza en un trabajo batch, no se ejecutara el programa de hoja de calculo ni eliminara el archivo IFS generado, aunque lo hayamos indicado que ejecute y lo elimine (parámetros EXC y</span><span face="Verdana, sans-serif"> DLT). </span><br />
<span face="Verdana, sans-serif">En el mandato CPYTOXLS podemos pulsar </span><b>F1, </b><span face="Verdana, sans-serif">para acceder al panel de ayuda, y donde se explica, con más detalle, la conversión a CSV.</span><br />
<span face="Verdana, sans-serif">Debemos tener instalado el iSeries Access (STRPCO) y habilitado el servicio <a href="http://as400howto.blogspot.ch/2009/03/intercambio-archivos-entre-as-y-pc.html" target="_blank">Netserver</a> para que la hoja de calculo pueda ejecutarse con el mandato STRPCCMD y acceder al fichero .CSV generado, en el directorio IFS del sistema que indiquemos.</span><br />
<span face="Verdana, sans-serif"><a href="https://drive.google.com/file/d/16R_9qn3c1MBqND9LJPbXDwZJwHcUxZah/view?usp=sharing" target="_blank">Podemos bajarnos el código de esta utilidad desde este enlace</a>.</span></span></div>
</div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0tag:blogger.com,1999:blog-5706577239959749713.post-31102851802657144912013-07-31T11:24:00.002+02:002013-07-31T11:24:57.421+02:00PowerCL: CL for Files (CLF)<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-dsxk89_DLZE/UfjXCOIld7I/AAAAAAAAS78/fKXHAsaf1_Y/s1600/PowerCL.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="88" src="http://2.bp.blogspot.com/-dsxk89_DLZE/UfjXCOIld7I/AAAAAAAAS78/fKXHAsaf1_Y/s200/PowerCL.png" width="200" /></a></div>
<span style="font-family: Verdana, sans-serif;">Si tenéis la necesidad, o ganas, de poder insertar, actualizar o borrar registros de una tabla desde programas CL, existe una tool (shareware con periodo de prueba de 30 días) para hacerlo posible:</span><br />
<span style="font-family: Verdana, sans-serif;"><a href="http://www.powercl.com/">www.powercl.com</a> de <a href="http://www.ibmsystemsmag.com/ibmi/developer/modernization/The-State-of-Modernization/" target="_blank">Bruce Vining</a>.</span></div>
mrierabhttp://www.blogger.com/profile/13392295098886110735noreply@blogger.com0