tag:blogger.com,1999:blog-30318253869433564382024-03-09T18:46:00.813-08:00Iseries PeruIseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.comBlogger29125tag:blogger.com,1999:blog-3031825386943356438.post-86384340861062199642013-03-28T20:41:00.002-07:002013-03-28T20:41:44.640-07:00FUNCION TRIM en COBOL 400<br />
<div class="MsoNormal">
<b><span style="font-size: 12.0pt; line-height: 115%; mso-bidi-font-size: 11.0pt;">FUNCTION
TRIM EN COBOL 400<o:p></o:p></span></b></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="color: #073763; font-family: Verdana, sans-serif;">Dependiendo de la versión del sistema operativo del Iseries que
tengamos actualmente, podremos hacer uso de muchas funciones en el Lenguaje de
nuestros ancestros (Cobol) como la conocida y muy usada función TRIM, TRIMR o
TRIML.</span></div>
<div class="MsoNormal">
<span style="color: #073763; font-family: Verdana, sans-serif;"><br /></span></div>
<div class="MsoNormal">
<span style="color: #073763; font-family: Verdana, sans-serif;">Esta función es muy usada en RPG, pero no lo es en Cobol. </span></div>
<div class="MsoNormal">
<span style="color: #073763; font-family: Verdana, sans-serif;">Aquí les dejo un ejemplo básico de cómo hacer uso de esta función
que está disponible a partir de la versión 7 del Iseries (si es que no me
equivoco)</span></div>
<div class="MsoNormal">
<span style="color: #073763; font-family: Verdana, sans-serif; text-align: center;"><br /></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<br /></div>
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;">
<tbody>
<tr>
<td style="border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-border-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 381.05pt;" valign="top" width="508">
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> DATA DIVISION.
<o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> WORKING-STORAGE SECTION. <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> </span><span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;">77 DIRECCION PIC X(120) VALUE 'AV. NO
DISPONIBLE HUAYLAS 1737'. <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;"> </span><span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;">77 DIR-1 PIC X(60) VALUE SPACES. <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> 77
DIR-2 PIC X(60) VALUE
SPACES. <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> </span><span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;">*
<o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;"> PROCEDURE
DIVISION. <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;">
<o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;">
CORREGIR-DIRECCIONES. <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;">
********************* <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;"> <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;"> * DIRECCION DE
DOMICILIO <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;"> </span><span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;">INSPECT
DIRECCION REPLACING ALL "NO DISPONIBLE" BY SPACES. <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> UNSTRING DIRECCION DELIMITED
BY " " <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> INTO DIR-1
DIR-2 <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> END-UNSTRING
<o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> MOVE SPACES TO DIRECCION <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> STRING <span style="background-color: lime;">FUNCTION TRIM(DIR-1) </span> <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> F<span style="color: lime;">UNCTION TRIM(DIR-2) </span> DELIMITED BY SIZE <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 8.0pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt;"> </span><span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;">INTO DIRECCION <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;">
END-STRING <o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: "Courier New"; font-size: 8.0pt; mso-bidi-font-size: 11.0pt;">****************** Fin de datos
****************************************<o:p></o:p></span></div>
</td>
</tr>
</tbody></table>
<br />
<div class="MsoNormal">
<span style="color: #073763; font-family: Verdana, sans-serif; text-align: center;"><br /></span></div>
<div class="MsoNormal">
<span style="color: #073763; font-family: Verdana, sans-serif; text-align: center;">El resultado del ejemplo anterior :</span></div>
<div class="MsoNormal">
<span style="color: #073763; font-family: Verdana, sans-serif; text-align: center;"><br /></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="background: yellow; color: red; font-family: "Courier New"; mso-ansi-language: EN-US; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: ES;">INPUT= "AV. </span><span lang="EN-US" style="background: aqua; color: red; font-family: "Courier New"; mso-ansi-language: EN-US; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: ES;">NO
DISPONIBLE </span><span lang="EN-US" style="background: yellow; color: red; font-family: "Courier New"; mso-ansi-language: EN-US; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: ES;">HUAYLAS 1737 ". </span><span lang="EN-US"><o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="EN-US" style="background: yellow; color: red; font-family: "Courier New"; mso-ansi-language: EN-US; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: ES;">OUTPUT= "AV.HUAYLAS 1737
".</span><span lang="EN-US" style="color: red; font-family: "Courier New"; mso-ansi-language: EN-US; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: ES;"> </span><span lang="EN-US"><o:p></o:p></span></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="color: #073763; font-family: Verdana, sans-serif;">Así mismo, recordar que también podremos hacer uso de las
funciones TRIMR y TRIML. </span></div>
Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-35792406077161565722011-04-04T09:12:00.001-07:002011-04-04T10:36:05.583-07:00Codigos File Status Cobol/400 (FILE STATUS VALUES)<div class="MsoNormal" style="margin: 0cm 0cm 0pt; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span style="color: #000066; font-family: Verdana; font-size: 10pt;">El codigo File Status nos indica lo que pasa cada vez que operamos con un archivo. Ya sea a la hora de leer, grabar, eliminar o actualizar un registro. </span><br />
<span style="color: #000066; font-family: Verdana; font-size: 10pt;">Te recomiendo que si detectas errores al hacer cualquiera de las 4 operaciones anteriores primero verifiques el file status en el momento de hacer el OPEN.</span><br />
<br />
<span style="color: #000066; font-family: Verdana; font-size: 10pt;">El valor de cada codigo File Status lo conforman 2 caracteres que tiene un significado propio.</span><br />
<br />
<span style="color: #000066; font-family: Verdana; font-size: 10pt;">Aquí les dejo los valores de código File Status que maneja el Cobol400. Esto lo encontramos en los manuales on-line de IBM. Está en ingles pero como buenos programadores ya estamos familiarizados con este idioma. </span><br />
<br />
<span style="color: #000066; font-family: Verdana; font-size: 10pt;">COBOL/400 Reference</span><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><br />
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; width: 465px;" x:str=""><colgroup><col style="mso-width-alt: 2157; mso-width-source: userset; width: 44pt;" width="59"><col style="mso-width-alt: 2486; mso-width-source: userset; width: 51pt;" width="68"><col style="mso-width-alt: 2157; mso-width-source: userset; width: 44pt;" width="59"><col style="mso-width-alt: 10203; mso-width-source: userset; width: 209pt;" width="279"></colgroup><tbody>
<tr height="17" style="height: 12.75pt; mso-yfti-firstrow: yes; mso-yfti-irow: 0;"><td class="xl24" height="17" style="background-color: transparent; border-bottom: #d4d0c8; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366 1pt solid; height: 12.75pt; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59"><strong><span style="color: navy; font-family: Verdana; font-size: xx-small;">Left-</span></strong></td><td class="xl25" rowspan="2" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366 1pt solid; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 51pt;" width="68"><strong><span style="color: navy; font-family: Verdana; font-size: xx-small;">Meaning</span></strong></td><td class="xl24" style="background-color: transparent; border-bottom: #d4d0c8; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366 1pt solid; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59"><strong><span style="color: navy; font-family: Verdana; font-size: xx-small;">Right-</span></strong></td><td class="xl25" rowspan="2" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366 1pt solid; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><strong><span style="color: navy; font-family: Verdana; font-size: xx-small;">Meaning</span></strong></td></tr>
<tr height="26" style="height: 19.5pt;"><td class="xl26" height="26" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #d4d0c8; height: 19.5pt; width: 44pt;" width="59"><strong><span style="color: navy; font-family: Verdana; font-size: xx-small;">most Character</span></strong></td><td class="xl26" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #d4d0c8; width: 44pt;" width="59"><strong><span style="color: navy; font-family: Verdana; font-size: xx-small;">most Character</span></strong></td></tr>
<tr height="18" style="height: 13.5pt; mso-yfti-irow: 1;"><td class="xl28" height="191" rowspan="8" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; height: 143.25pt; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">0</span></td><td class="xl29" rowspan="8" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 51pt;" width="68"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Successful Completion</span></td><td class="xl30" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">0</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span style="color: navy; font-family: Verdana; font-size: xx-small;">No further information</span></td></tr>
<tr height="37" style="height: 27.75pt;"><td class="xl30" height="37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 27.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">2</span></td><td class="xl34" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><a href="http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/qbkaqr00/8.29.6?SHELF=QB3AYC02&DT=19940328115510#TBLRDINDX"><span style="font-size: 7pt;"><span style="font-family: Arial;">The READ statement was successfully executed, but a duplicate key was detected. That is, the key value for the current key of reference was equal to the value of the key in the next record. For information about enabling file status 02 see Table 44 in topic 8.29.6 and the accompanying notes under the READ statement.</span></span></a></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">4</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">A READ statement was successfully executed, but the length of the record being processed did not conform to the fixed file attributes for that file.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">5</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">An OPEN statement is successfully executed, but the referenced optional file is not present at the time the OPEN statement is executed. If the open mode is I-O or EXTEND, the file has been created.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">7</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">For a CLOSE statement with the NO REWIND, REEL/UNIT, or FOR REMOVAL phrase or for an OPEN statement with the NO REWIND phrase, the referenced file was on a non-reel/unit medium.</span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">M</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Last record written to a subfile.CPF5003</span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">P</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">The file has been opened successfully, but it contains null-capable fields.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Q</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">A CLOSE statement for a sequentially-processed relative file was successfully executed. The file was created with the*INZDLT and *NOMAX options, so its boundary has been set to the number of records written. </span></span></td></tr>
<tr height="25" style="height: 18.75pt; mso-yfti-irow: 9;"><td class="xl28" height="68" rowspan="3" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; height: 51pt; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">1</span></td><td class="xl29" rowspan="3" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 51pt;" width="68"><span style="color: navy; font-family: Verdana; font-size: xx-small;">At end conditions</span></td><td class="xl30" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">0</span></td><td class="xl37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy;"><span style="font-size: xx-small;"><span style="font-family: Verdana;"><strong>END OF FILE.</strong><span class="font6"> A sequential READ statement was attempted and no next logical record existed in the file because the end of the file has been reached (no invites outstanding) CPF4740, CPF5001, CPF5025. </span></span></span></span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">2</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">No modified subfile record found. CPF5037</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">4</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">A sequential READ statement was attempted for a relative file and the number of significant digits in the relative record number was larger than the size of the relative key data item described for the file. </span></span></td></tr>
<tr height="61" style="height: 45.75pt; mso-yfti-irow: 12;"><td class="xl28" height="172" rowspan="4" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; height: 129pt; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;"> 2</span></span></td><td class="xl29" rowspan="4" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 51pt;" width="68"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Invalid Key</span></td><td class="xl30" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">1</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">A sequence error exists for a sequentially accessed indexed file. The prime record key value has been changed by the program between the successful execution of a READ statement and the execution of the next REWRITE statement for that file, or the ascending requirements for successive record key values were violated. Alternatively, the program has changed the record key value between a successful READ and subsequent REWRITE or DELETE operation on a randomly or dynamically-accessed file with duplicate keys.</span></span></td></tr>
<tr height="37" style="height: 27.75pt;"><td class="xl30" height="37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 27.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">2</span></td><td class="xl37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy;"><span style="font-size: xx-small;"><span style="font-family: Verdana;"><strong>DUPLICATE KEY. </strong><span class="font6"> An attempt was made to write a record that would create a duplicate key in a relative file; or an attempt was made to write or rewrite a record that would create a duplicate prime record key in an indexed file. CPF4759, CPF5008, CPF5026, CPF5034, CPF5084, CPF5085.</span></span></span></span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">3</span></td><td class="xl37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy;"><span style="font-size: xx-small;"><span style="font-family: Verdana;"><strong>RECORD NOT FOUND.</strong><span class="font6"> An attempt was made to randomly access a record that does not exist in the file. CPF5001, CPF5006, CPF5013, CPF5020, CPF5025. </span></span></span></span></span></td></tr>
<tr height="49" style="height: 36.75pt;"><td class="xl30" height="49" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 36.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">4</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">An attempt was made to write beyond the externally defined boundaries of a relative or indexed file. Or, a sequential WRITE statement was attempted for a relative file and the number of significant digits in the relative record number was larger than the size of the relative record key data item described for the file. CPF5006, CPF5018, CPF5021, CPF5043, CPF5272.</span></span></td></tr>
<tr height="18" style="height: 13.5pt; mso-yfti-irow: 16;"><td class="xl28" height="160" rowspan="6" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; height: 120pt; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">3</span></td><td class="xl29" rowspan="6" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 51pt;" width="68"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Permanent error condition</span></td><td class="xl30" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">0</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">No further information CPF4192, CPF5101, CPF5102, CPF5129, CPF5030, CPF5143.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">4</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">A permanent error exists because of a boundary violation; an attempt was made to write beyond the externally-defined boundaries of a sequential file. CPF5116, CPF5018, CPF5272 if organization is sequential.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">5 </span></td><td class="xl37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy;"><span style="font-size: xx-small;"><span style="font-family: Verdana;"><strong>FILE NOT FOUND. </strong><span class="font6"> An OPEN statement with the INPUT, I-O, or EXTEND phrase was attempted on a non-optional file that was not present. CPF4101, CPF4102, CPF4103, CPF4207, CPF9812. </span></span></span></span></span></td></tr>
<tr height="49" style="height: 36.75pt;"><td class="xl30" height="49" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 36.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">7</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">An OPEN statement was attempted on a file that would not support the open mode specified in the OPEN statement. Possible violations are: 1. The EXTEND or OUTPUT phrase was specified but the file would not support writeoperations.2. The I-O phrase was specified but the file would not support the input and output operations permitted.3. The INPUT phrase was specified but the file would not support read operations. CPF4194.</span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">8</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">An OPEN statement was attempted on a file previously closed with lock.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">9</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;"> The OPEN statement was unsuccessful because a conflict was detected between the fixed file attributes and the attributes specified for that file in the program. Level check error. CPF4131. </span></span></td></tr>
<tr height="18" style="height: 13.5pt; mso-yfti-irow: 22;"><td class="xl28" height="220" rowspan="8" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; height: 165pt; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">4</span></td><td class="xl29" rowspan="8" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 51pt;" width="68"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Logic error condition </span></td><td class="xl30" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">1</span></td><td class="xl37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy;"><span style="font-size: xx-small;"><span style="font-family: Verdana;"><strong>FILE ALREADY OPEN. </strong><span class="font6">An OPEN statement was attempted for a file in the open mode.</span></span></span></span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">2 </span></td><td class="xl37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy;"><span style="font-size: xx-small;"><span style="font-family: Verdana;"><strong>FILE ALREADY CLOSED. </strong><span class="font6"> A CLOSE statement was attempted for a file not in the open mode. </span></span></span></span></span></td></tr>
<tr height="49" style="height: 36.75pt;"><td class="xl30" height="49" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 36.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">3</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">For a sequential file in the sequential access mode, the last input-output statement executed for the associated file prior to the execution of a REWRITE statement was not a successfully executed READ statement. For relative and indexed files in the sequential access mode, the last input-output statement executed for the file prior to the execution of a DELETE or REWRITE statement was not a successfully executed READ statement.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">4</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">A boundary violation exists because an attempt was made to rewrite a record to a file and the record was not the same size as the record being replaced.</span></span></td></tr>
<tr height="37" style="height: 27.75pt;"><td class="xl30" height="37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 27.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">6</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">A sequential READ statement was attempted on a file open in the input or I-O mode and no valid next record had been established because the preceding START statement was unsuccessful, or the preceding READ statement was unsuccessful or caused an at endcondition.CPF5001, CPF5025, CPF5183.</span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">7</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">The execution of a READ or START statement was attempted on a file not open in the input or I-O mode. </span></span></td></tr>
<tr height="37" style="height: 27.75pt;"><td class="xl30" height="37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 27.75pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">8 </span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">The execution of a WRITE statement was attempted on a sequential file not open in the output, or extend mode. The execution of a WRITE statement was attempted on an indexed or relative file not open in the I-O, output, or extend mode. </span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">9</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">The execution of a DELETE or REWRITE statement was attempted on a file not open in the I-O mode.</span></span></td></tr>
<tr height="121" style="height: 90.75pt; mso-yfti-irow: 30; page-break-before: always;"><td class="xl28" height="594" rowspan="19" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; height: 445.5pt; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">9</span></td><td class="xl29" rowspan="19" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366 1pt solid; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 51pt;" width="68"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Other Errors </span></td><td class="xl30" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">0</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="font-size: xx-small;"><span style="font-family: Verdana;"><span style="color: navy;">° File not found° Member not found° Unexpected I-O exceptions CPF4101, CPF4102, CPF4103 if a USE is applicable for the file (on OPEN OUTPUT, non-optional file). The following exceptions are monitored generically: CPF4101 through CPF4399 CPF4501 through CPF4699 CPF4701 through CPF4899 CPF4901 through CPF4999 CPF5001 through CPF5099 CPF5101 through CPF5399 CPF5501 through CPF5699 These exceptions are caught, and </span><span class="font7" style="color: red;"><strong><em><u>FILE</u></em></strong></span><span class="font6" style="color: navy;"> </span><span class="font7" style="color: red;"><strong><em><u>STATUS</u></em></strong></span><span style="color: navy;"><span class="font6"> is set to 90. </span><span class="font5"><strong>With</strong></span><span class="font6"> </span><span class="font5"><strong>Standard</strong></span><span class="font6"> </span><span class="font5"><strong>Error</strong></span><span class="font6"> </span><span class="font5"><strong>Handling</strong></span><span class="font6">: If there is an applicable </span></span><em><u><span style="color: red;"><span class="font7"><strong>file</strong></span><span class="font8"> </span><span class="font7"><strong>status</strong></span></span></u></em><span class="font6" style="color: navy;"> clause (but not an applicable USE procedure), the </span><span class="font7" style="color: red;"><strong><em><u>file</u></em></strong></span><span class="font6" style="color: navy;"> </span><span class="font7" style="color: red;"><strong><em><u>status</u></em></strong></span><span class="font6" style="color: navy;"> is updated, and control returns to the program. In the absence of a </span><em><u><span style="color: red;"><span class="font7"><strong>file</strong></span><span class="font8"> </span><span class="font7"><strong>status</strong></span></span></u></em><span style="color: navy;"><span class="font6"> clause, USE procedure, AT END clause, or INVALID KEY clause to handle the error, a run-time message is issued, giving you the option to end or return to the program. </span><span class="font5"><strong>Without</strong></span><span class="font6"> </span><span class="font5"><strong>Standard</strong></span><span class="font6"> </span><span class="font5"><strong>Error Handling</strong></span><span class="font6">: If a USE procedure applies, it runs. Otherwise, the program ends and gives the operator the exception and the option to cancel, take a partial dump, or take a full dump. </span></span></span></span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">1</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Undefined or unauthorized access type CPF2207, CPF4104, CPF4236,CPF5057, CPF5109, CPF5134,CPF5279. </span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">2</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">° File locked° File already open° I-O to closed file° READ after end of file° CLOSE on unopened file CPF4106, CPF4132, CPF4740,CPF5013, CPF5067, CPF5070,CPF5119, CPF5145, CPF5146,CPF5149, CPF5176, CPF5209.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">4</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy;"><span style="font-size: xx-small;"><span style="font-family: Verdana;">No file position indicator REWRITE/DELETE when <span class="font9"><strong><em>not </em></strong></span><span class="font6">sequential access, and last operation was not a successful READ. </span></span></span></span></span></td></tr>
<tr height="37" style="height: 27.75pt;"><td class="xl30" height="37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 27.75pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">5</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Invalid or incomplete file information. The file has been successfully opened, but (1) duplicate keys specified in COBOL program, and indexed database file created with unique key; or (2) Duplicate keys not specified in COBOL program, and indexed database file created allowing duplicate keys.</span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59" x:num=""><span style="color: navy; font-family: Verdana; font-size: xx-small;">9</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span style="color: navy; font-family: Verdana; font-size: xx-small;"> Undefined (display or ICF).</span></td></tr>
<tr height="37" style="height: 27.75pt;"><td class="xl30" height="37" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 27.75pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">A</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Job ended in a controlled manner by CL command ENDJOB, PWRDWNSYS, ENDSYS, or ENDSBS CPF4741. Escape message sent during an accept input operation, READ from invited program device (multiple device listings only).</span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">C</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Acquire failed; session was not started.</span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">D</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Record is lockedCPF5027, CPF5032.</span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">G</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Output exception to device or session.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">H</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">ACQUIRE operation failed. Resource owned by another program, or unavailable. (9H is the result when an ACQUIRE operation causes any of the OS/400 exceptions monitored for 90, or 9N to occur.) </span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">I </span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">WRITE operation failedCPF4702, CPF4737, CPF5052,CPF5076. </span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">K</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;"> Invalid format-name; format not found CPF5022, CPF5023, CPF5053,CPF5054, CPF5121, CPF5152,CPF5153, CPF5186, CPF5187.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">M</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="font-size: xx-small;"><span style="font-family: Verdana;"><span style="color: navy;">Last record written to subfile.CPF5003. To convert </span><span class="font7" style="color: red;"><strong><em><u>file</u></em></strong></span><span class="font6" style="color: navy;"> </span><span class="font7" style="color: red;"><strong><em><u>status</u></em></strong></span><span class="font6" style="color: navy;"> 9M to 0M,use PROCESS statement optionFS9MTO0M.</span></span></span></span></td></tr>
<tr height="73" style="height: 54.75pt;"><td class="xl30" height="73" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 54.75pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">N</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="font-size: xx-small;"><span style="font-family: Verdana;"><span style="color: navy;">Temporary (potentially recoverable) hardware I-O error. (Error during communication session.) </span><span class="font10" style="color: red;"><strong>Possible cause: Attempting to write bad data to a display file.</strong></span><span class="font6" style="color: navy;"> CPF4145, CPF4146, CPF4193,CPF4229, CPF4291, CPF4299,CPF4354, CPF4526, CPF4542,CPF4577, CPF4592, CPF4602,CPF4603, CPF4611, CPF4612,CPF4616, CPF4617, CPF4622,CPF4623, CPF4624, CPF4625,CPF4628, CPF4629, CPF4630,CPF4631, CPF4632, CPF4705,CPF5107, CPF5128, CPF5166,CPF5198, CPF5280, CPF5282,CPF5287, CPF5293, CPF5352,CPF5353, CPF5517, CPF5524,CPF5529, CPF5530, CPF5532,CPF5533.</span></span></span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">P</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">OPEN failed because file cannot be placed under commitment control CPF4293, CPF4326, CPF4327,CPF4328, CPF4329.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Q</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">An OPEN statement for a randomly-or dynamically-accessed relative file failed because its size was*NOMAX. Change the file size (for example, using CHGPF) to the size you expect, and submit the program again.</span></span></td></tr>
<tr height="18" style="height: 13.5pt;"><td class="xl30" height="18" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 13.5pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">S</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">REWRITE or DELETE failed because last READ operation specified NO LOCK.</span></span></td></tr>
<tr height="25" style="height: 18.75pt;"><td class="xl30" height="25" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; height: 18.75pt; width: 44pt;" width="59"><span style="color: navy; font-family: Verdana; font-size: xx-small;">U</span></td><td class="xl31" style="background-color: transparent; border-bottom: #003366 1pt solid; border-left: #003366; border-right: #003366 1pt solid; border-top: #003366; mso-border-bottom-color-alt: #003366; mso-border-bottom-style-alt: inset; mso-border-bottom-width-alt: .75pt; mso-border-left-color-alt: #003366; mso-border-left-style-alt: inset; mso-border-left-width-alt: .75pt; mso-border-right-color-alt: #003366; mso-border-right-style-alt: inset; mso-border-right-width-alt: .75pt; mso-border-top-color-alt: #003366; mso-border-top-style-alt: inset; mso-border-top-width-alt: .75pt; padding-bottom: 1.5pt; padding-top: 1.5pt; width: 209pt;" width="279"><span lang="EN-GB" style="mso-ansi-language: EN-GB;"><span style="color: navy; font-family: Verdana; font-size: xx-small;">Cannot complete READ PRIOR because records are left in block from READ NEXT, or vice versa.CPF5184. Close the file, then open it again.</span></span></td></tr>
</tbody></table></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-48087355931075178372011-04-01T19:29:00.000-07:002011-04-01T20:47:24.138-07:00Convertir Fecha Juliana en SQL/400 (Convertir a Formato Gregoriano, ISO, EUR)<div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: "Tahoma", "sans-serif"; font-size: 10pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;">FECHA_JUL es variable de archivo de tipo NUMERICO de 7 posiciones (7,0)</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: "Tahoma", "sans-serif"; font-size: 10pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span></div><div class="ecxmsonormal" style="color: #1f497d; line-height: 10.75pt; margin: 0cm 0cm 0pt 36pt; text-indent: -18pt;"><span style="color: #2a2a2a; font-family: Symbol; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;"><span style="mso-list: Ignore;">· </span></span><span style="color: navy; font-family: "Tahoma", "sans-serif"; font-size: 10pt;">YYYYDDD a Formato DD/MM/YY </span><span style="color: #2a2a2a;"></span></div><div class="ecxmsonormal" style="color: #1f497d; line-height: 10.75pt; margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: "Tahoma", "sans-serif"; font-size: 10pt;"> </span><span style="color: #2a2a2a;"></span></div><div class="ecxmsonormal" style="color: #1f497d; line-height: 10.75pt; margin: 0cm 0cm 0pt; text-indent: 36pt;"><span style="color: navy; font-family: "Tahoma", "sans-serif"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span><span style="mso-tab-count: 1;"> </span>DATE(CHAR (FECHA_JUL)) </span><span style="color: #2a2a2a;"></span></div><div class="ecxmsonormal" style="color: #1f497d; line-height: 10.75pt; margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: "Tahoma", "sans-serif"; font-size: 10pt;"> </span><span style="color: #2a2a2a;"></span></div><div class="ecxmsonormal" style="color: #1f497d; line-height: 10.75pt; margin: 0cm 0cm 0pt 36pt; text-indent: -18pt;"><span style="color: navy; font-family: Symbol; font-size: 10pt; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;"><span style="mso-list: Ignore;">· </span></span><span style="color: navy; font-family: "Tahoma", "sans-serif"; font-size: 10pt;">YYYYDDD a Formato DD.MM.YYYY (EUR) </span></div><div class="ecxmsonormal" style="color: #1f497d; margin: 0cm 0cm 0pt;"><br />
</div><div class="ecxmsonormal" style="color: #1f497d; line-height: 10.75pt; margin: 0cm 0cm 0pt 36pt; text-indent: 36pt;"><span lang="EN-GB" style="color: navy; font-family: "Tahoma", "sans-serif"; font-size: 10pt; mso-ansi-language: EN-GB;">CHAR(DATE(CHAR (FECHA_JUL)), EUR) </span></div><div class="ecxmsonormal" style="color: #1f497d; margin: 0cm 0cm 0pt;"><br />
</div><div class="ecxmsonormal" style="color: #1f497d; line-height: 10.75pt; margin: 0cm 0cm 0pt 36pt; text-indent: -18pt;"><span lang="EN-GB" style="color: navy; font-family: Symbol; font-size: 10pt; mso-ansi-language: EN-GB; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;"><span style="mso-list: Ignore;">· </span></span><span lang="EN-GB" style="color: navy; font-family: "Tahoma", "sans-serif"; font-size: 10pt; mso-ansi-language: EN-GB;">YYYYDDD a Formato YYYY-MM-DD (ISO) </span></div><div class="ecxmsonormal" style="color: #1f497d; line-height: 10.75pt; margin: 0cm 0cm 0pt;"><br />
</div><div class="ecxmsonormal" style="color: #1f497d; line-height: 10.75pt; margin: 0cm 0cm 0pt 36pt; text-indent: 36pt;"><span lang="EN-GB" style="color: navy; font-family: "Tahoma", "sans-serif"; font-size: 10pt; mso-ansi-language: EN-GB;">CHAR(DATE(CHAR (FECHA_JUL)), ISO) </span></div><div class="ecxmsonormal" style="color: #1f497d; margin: 0cm 0cm 0pt;"><br />
</div><div class="ecxmsonormal" style="color: #1f497d; margin: 0cm 0cm 0pt;"><br />
</div><div class="ecxmsonormal" style="line-height: 10.75pt; margin: 0cm 0cm 0pt;"><span class="Apple-style-span" style="color: navy;"> </span></div><div class="MsoNormal" style="color: #1f497d; text-align: justify;"><span lang="ES-PE" style="font-family: "Tahoma", "sans-serif"; font-size: 10pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: black;"><span style="color: lime;">==> SELECT TASA, FEC_JUL, DATE(CHAR( FEC_JUL)) AS GREGORIANO,<span style="mso-spacerun: yes;"> </span></span></span></span></div><div class="MsoNormal" style="color: #1f497d; text-align: justify;"><span lang="ES-PE" style="font-family: "Tahoma", "sans-serif"; font-size: 10pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: black;"><span style="color: lime;">CHAR(DATE(CHAR(FEC_JUL)), ISO) AS FORMATO_ISO,<span style="mso-spacerun: yes;"> </span></span></span></span></div><div class="MsoNormal" style="color: #1f497d; text-align: justify;"><span lang="ES-PE" style="font-family: "Tahoma", "sans-serif"; font-size: 10pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: black;"><span style="color: lime;">CHAR(DATE(CHAR(FEC_JUL)), EUR) AS FORMATO_EUR<span style="mso-spacerun: yes;"> </span></span></span></span></div><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span style="background-color: black; color: lime;">FROM MILIBRERIA/FECHAS</span><span style="mso-spacerun: yes;"> </span></span><br />
<div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span style="mso-spacerun: yes;"><br />
</span></span></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbZyFoX3nWCT_b148Q5MgCsp5VMgWSpiccSMwzidoqPysMKzkv_EC-7sR6Ci103gk8YuKyEp3uyBBQSOTBxBNLxkKwP2-o6iVwCC-K70OLVYpzTNJJtO6XbdIwxYG8txTtzmvPHKdLQQtC/s1600/FECHA_JULIANA_SQL400.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="175" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbZyFoX3nWCT_b148Q5MgCsp5VMgWSpiccSMwzidoqPysMKzkv_EC-7sR6Ci103gk8YuKyEp3uyBBQSOTBxBNLxkKwP2-o6iVwCC-K70OLVYpzTNJJtO6XbdIwxYG8txTtzmvPHKdLQQtC/s400/FECHA_JULIANA_SQL400.JPG" width="400" /></a></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span style="mso-spacerun: yes;"><br />
</span></span></span></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com2tag:blogger.com,1999:blog-3031825386943356438.post-17862343771349572302011-03-31T19:08:00.000-07:002011-03-31T19:23:33.271-07:00Pasar objetos entre un AS400 y otro por FTP (SAVF – SAVOBJ - RSTOBJ)<div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Pasar fuentes por FTP desde un AS400 a otro es simple, solo es direccionar las librerías (LCD – CD) y utilizar el comando get.</span></div><div class="MsoNormal" style="text-align: justify;"><span class="apple-style-span"><b><span style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 7pt; line-height: 115%;">GET MILIBRERIA.LIB/QRPGLESRC.FILE/MIFUENTES.MBR (REPLACE</span></b></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px;">Si queremos pasar objetos, ya sea de tipo *PGM, *FILE, *DTAARA, etc. es algo menos fácil. No podemos hacerlo directamente. Para ello necesitaremos grabar los objetos (SAVOBJ) en un archivo de salvar (SAVF) <span class="apple-converted-space"> </span>o si eres operador de sistemas lo haces grabando en una cinta u medio óptico.</span></div><div class="MsoNormal" style="text-align: justify;"><div style="margin-bottom: .0001pt; margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></span></div><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"> <u1:p></u1:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Un archivo de salvar debe limpiarse para poder utilizarlo de nuevo para recibir datos procedentes de un mandato de salvar o para recibir otro archivo de salvar. Si el usuario intenta grabar datos de salvar nuevos en un archivo de salvar que ya contiene registros, se envía un mensaje de consulta a la estación de trabajo en el caso de un trabajo interactivo, o al operador del sistema en el caso de un trabajo por lotes, a menos que se utilice un mandato de salvar y se especifique CLEAR(*ALL). O previamente se limpie el archivo de salvar con el comando CLRSAVF.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Basta de teoría, vayamos a la práctica, que es donde se aprende mejor.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Ejemplo:<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Voy a pasar el objeto MIPROGRAMA (*PGM) desde mi MILIBRERIA de MIAS400 a OTROAS400 en la librería OTRALIB con el mismo nombre.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span></div><table border="0" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="border-collapse: collapse; margin-left: 4.8pt; width: 503px;"><tbody>
<tr style="height: 15.0pt; mso-yfti-firstrow: yes; mso-yfti-irow: 0;"> <td colspan="2" nowrap="" style="background: #EAF1DD; border: solid windowtext 1.0pt; height: 15.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 179.7pt;" valign="bottom" width="240"><div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;"><span style="color: black;">MIAS400<o:p></o:p></span></div></td> <td colspan="2" nowrap="" style="background: #FDE9D9; border-left: none; border: solid windowtext 1.0pt; height: 15.0pt; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 197.55pt;" valign="bottom" width="263"><div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;"><span style="color: black;">OTROAS400<o:p></o:p></span></div></td> </tr>
<tr style="height: 15.0pt; mso-yfti-irow: 1;"> <td nowrap="" style="background: #EAF1DD; border-top: none; border: solid windowtext 1.0pt; height: 15.0pt; mso-border-bottom-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 85.65pt;" valign="bottom" width="114"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="color: black;">OBJETO ORIGEN<o:p></o:p></span></div></td> <td nowrap="" style="background: #EAF1DD; border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; height: 15.0pt; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 94.05pt;" valign="bottom" width="125"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="color: black;">LIBRERIA ORIGEN<o:p></o:p></span></div></td> <td nowrap="" style="background: #FDE9D9; border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; height: 15.0pt; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 99.2pt;" valign="bottom" width="132"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="color: black;">OBJETO DESTINO<o:p></o:p></span></div></td> <td nowrap="" style="background: #FDE9D9; border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; height: 15.0pt; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 98.35pt;" valign="bottom" width="131"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="color: black;">LIBRERIA DESTINO<o:p></o:p></span></div></td> </tr>
<tr style="height: 15.0pt; mso-yfti-irow: 2; mso-yfti-lastrow: yes;"> <td nowrap="" style="background: white; border-top: none; border: solid windowtext 1.0pt; height: 15.0pt; mso-border-bottom-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 85.65pt;" valign="bottom" width="114"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="color: black;">MIPROGRAMA<o:p></o:p></span></div></td> <td nowrap="" style="background: white; border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; height: 15.0pt; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 94.05pt;" valign="bottom" width="125"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="color: black;">MILIBRERIA<o:p></o:p></span></div></td> <td nowrap="" style="background: white; border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; height: 15.0pt; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 99.2pt;" valign="bottom" width="132"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="color: black;">MIPROGRAMA<o:p></o:p></span></div></td> <td nowrap="" style="background: white; border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; height: 15.0pt; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 98.35pt;" valign="bottom" width="131"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="color: black;">OTRALIB<o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">1.- Crear en ambos sistemas (si no existen) los objetos de salvar, de preferencia del mismo nombre (SAVF = SAVE FILE) <o:p></o:p></span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="background-color: black; color: lime; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> CRTSAVF FILE(MILIBRERIA/OBJETOS)</span><br />
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span><span class="Apple-style-span" style="font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;"> CRTSAVF FILE(OTRALIB/OBJETOS) </span></span></span></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">2.- Salvamos los objetos en el archivo de salvar desde el AS400 Origen</span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span><br />
<div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="background-color: black; color: lime; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">SAVOBJ OBJ(MIPROGRAMA) LIB(MILIBRERIA) DEV(*SAVF) SAVF(MILIBRERIA/OBJETOS)<o:p></o:p></span></span></div><span lang="ES-PE" style="background-color: black; color: lime; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> </span><br />
<div class="MsoNormal" style="text-align: justify; text-indent: 36.0pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="background-color: black; color: lime; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">CLEAR(*ALL) <o:p></o:p></span></span></div><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;"></span><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;">Nota: Se pueden salvar los objetos que desees, si se quiere salvar una librería completa usar el comando SAVLIB.</span></div><div class="MsoNormal" style="text-align: justify; text-indent: 36.0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">3.- Si tenemos los servicios TCP/FTP en funcionamiento y las autorizaciones necesarios abrimos una sesión interactiva del FTP y enviamos el archivo de salvar (*SAVF) desde un Iseries al otro.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Podemos hacerlo de esta dos maneras diferentes:<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">A.- DESDE EL ORIGEN (MIAS400)<o:p></o:p></span></b></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> FTP OTROAS400<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> USUARIO<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> PASSWORD<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> CD OTRALIB<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> LCD MILIBRERIA<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> BIN<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> PUT OBJETOS OBJETOS <o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> QUIT<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">B.- DESDE EL DESTINO (OTROAS400)<o:p></o:p></span></b></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><br />
</div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> FTP MIAS400<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> USUARIO<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> PASSWORD<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> CD LIBRERIA<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> LCD OTRALIB<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> BIN<o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> GET OBJETOS OBJETOS (REPLACE <o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> QUIT<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Nota: Para ambos casos se debe incluir el comando BINARY (bin) para establecer el tipo de transferencia Binaria. </span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">No está demás verificar el Formato de Denominación de Archivos del servicio FTP. <o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Revisar </span><a href="http://iseries-peru.blogspot.com/2011/03/ftp-en-batch-desde-el-as400.html">http://iseries-peru.blogspot.com/2011/03/ftp-en-batch-desde-el-as400.html</a></div><div class="MsoNormal" style="text-align: justify;"><span class="apple-style-span"><b><span style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 7pt; line-height: 115%;">GET MILIBRERIA.LIB/QRPGLESRC.FILE/MIFUENTES.MBR (REPLACE</span><o:p></o:p></b></span></div><div class="MsoNormal" style="text-align: justify;"><b><span style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 7pt; line-height: 115%;">ó</span></b></div><div class="MsoNormal" style="text-align: justify;"><span class="apple-style-span"><b><span style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 7pt; line-height: 115%;">GET MILIBRERIA/QRPGLESRC.MIFUENTE (REPLACE <o:p></o:p></span></b></span></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;">4.- Desde el sistema destino realizar la restauración del objeto. Es decir, sacar el objeto del archivo de salvar (SAVF) a la librería que deseemos. Si el archivo de salvar fuera visto como un archivo .ZIP, restaurar sería algo como descomprimir el objeto.</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span><br />
<span lang="ES-PE" style="background-color: black; color: lime; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">RSTOBJ OBJ(MIPROGRAMA) SAVLIB(MILIBRERIA) DEV(*SAVF) SAVF(OTRALIB/OBJETOS) RSTLIB(OTRALIB)<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Nota: Si se salvo una librería completa al archivo de salvar SAVF se debe usar el comando RSTLIB. El parámetro SAVLIB es la librería desde donde se salvo el objeto al archivo de salvar (Librería Origen). El parámetro RSTLIB indica la librería donde se restaurará el objeto (Librería Destino).<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><br />
</div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com9tag:blogger.com,1999:blog-3031825386943356438.post-85143181826430498402011-03-28T18:57:00.000-07:002011-03-28T19:13:40.349-07:00Procesar múltiples archivos en FTP Batch desde AS400 (Lista LSOUTPUT)<div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">De manera complementaria al post anterior referente a como procesar archivos vía FTP por lotes, aquí describo una manera de procesar una lista de archivos dentro de una determinada ruta (directorio).<o:p></o:p></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Esto es útil cuando no sabemos cuántos archivos vamos a procesar o cuando los nombres de los archivos son variables, ejemplo: ARCHIVO_20110328.TXT<o:p></o:p></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEikwP9NU6f4PwgMpX24dvuZHjO1ES3NW4XekM7banHr-VtdgNtyn5wHlq2I0Zio_6uyT0n_sS1Ozwbv37Sae-CDaagRnJMl_JXNJUjsP-VlCLJCwyGYm8m6YQBFzT3LS1_PkG1UyHRuMWV0/s1600/COMANDO_DIR_DOS.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="71" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEikwP9NU6f4PwgMpX24dvuZHjO1ES3NW4XekM7banHr-VtdgNtyn5wHlq2I0Zio_6uyT0n_sS1Ozwbv37Sae-CDaagRnJMl_JXNJUjsP-VlCLJCwyGYm8m6YQBFzT3LS1_PkG1UyHRuMWV0/s320/COMANDO_DIR_DOS.JPG" width="320" /></a></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Previamente a todo, logearnos manualmente por FTP y nos ubicamos en la carpeta que contiene los archivos y ejecutar el comando LS. En la figura la carpeta contiene 4 archivos de formato texto, los cuales deben ser “bajados” y procesados individualmente.<o:p></o:p></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjfQLnBspt44JqzXhhIpyvdCzOEee4cetzLNphxV34DLmcWZlAJE5ypCAnWFFro0IibhTC5v0ZfWN6_34Lt__lftNgd_qWlEfDo2tPncjennTRQZNAX2p69XwW720wFc9ADP5Htu6lhTAnF/s1600/COMANDO_FTP_LS_LSOUTPUT.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjfQLnBspt44JqzXhhIpyvdCzOEee4cetzLNphxV34DLmcWZlAJE5ypCAnWFFro0IibhTC5v0ZfWN6_34Lt__lftNgd_qWlEfDo2tPncjennTRQZNAX2p69XwW720wFc9ADP5Htu6lhTAnF/s320/COMANDO_FTP_LS_LSOUTPUT.JPG" width="320" /></a></div><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span><br />
<div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Para hacer esto generamos la lista de archivos con el comando LS y derivamos la salida a archivo. Esto lo haremos en el CL. <o:p></o:p></span></span></div><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> </span><br />
<div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> El sistema genera un archivo plano de nombre </span><span lang="ES-PE">LSOUTPUT </span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">y lo deposita en la librería que indiquemos como destino.<o:p></o:p></span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 10pt; line-height: 115%;"> ===> <u>ls *.* (Disk <o:p></o:p></u></span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b style="mso-bidi-font-weight: normal;"><i style="mso-bidi-font-style: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt; line-height: 115%;"> 200 PORT subcommand request successful. <o:p></o:p></span></i></b></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b style="mso-bidi-font-weight: normal;"><i style="mso-bidi-font-style: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt; line-height: 115%;"> 125 List started. <o:p></o:p></span></i></b></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b style="mso-bidi-font-weight: normal;"><i style="mso-bidi-font-style: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt; line-height: 115%;"> 250 List completed. <o:p></o:p></span></i></b></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Con el comando LS podemos indicar que tipo de archivos incluir en la lista. <o:p></o:p></span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">En el ejemplo se considera todos los archivos.</span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNte0mwkyQnPv7JXjUKXfU5euHTMEUPdaSf2LIik5pBKSlfs0rL4H-GZ6bgESzMak1Oa_77YUXPP_EFUrvNviMyr48-xT5pP2VvtZXjkngiD3svjPK-DJ_n2OyYtW-ZwYhG7zy8cQ_39O0/s1600/DSPPFM_LSOUTPUT.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="199" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNte0mwkyQnPv7JXjUKXfU5euHTMEUPdaSf2LIik5pBKSlfs0rL4H-GZ6bgESzMak1Oa_77YUXPP_EFUrvNviMyr48-xT5pP2VvtZXjkngiD3svjPK-DJ_n2OyYtW-ZwYhG7zy8cQ_39O0/s320/DSPPFM_LSOUTPUT.JPG" width="320" /></a></div><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span><br />
<div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Para procesar solamente archivos XML el comando sería: <o:p></o:p></span></span></div><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> </span><br />
<div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 10pt; line-height: 115%;">===> <u>ls *.XML (Disk <o:p></o:p></u></span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Ejemplo de programa para bajar y procesar múltiples archivos por FTP. <o:p></o:p></span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> Serían 2 programas para hacer este trabajo, el primero genera la lista de archivos (archivo </span><span lang="ES-PE">LSOUTPUT ) </span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">y el segundo lee dicho archivo y realiza el ftp para cada registro. <o:p></o:p></span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 395.25pt;" valign="top" width="527"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> PGM <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><i><span style="font-family: 'Courier New'; font-size: xx-small;"> /* Crea o Limpia Miembros */ <o:p></o:p></span></i></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span style="font-family: 'Courier New';"> CLRPFM FILE(</span><span style="font-family: 'Courier New';">MILIBRERIA</span><span style="font-family: 'Courier New';">/QFTPLOG) MBR(</span><span style="font-family: 'Courier New';">LISTA</span><span style="font-family: 'Courier New';">) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> MONMSG MSGID(CPF3141) EXEC(ADDPFM + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span style="font-family: 'Courier New';"> FILE(</span><span style="font-family: 'Courier New';">MILIBRERIA</span><span style="font-family: 'Courier New';">/QFTPLOG) MBR(</span><span style="font-family: 'Courier New';">LISTA</span><span style="font-family: 'Courier New';">)) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span style="font-family: 'Courier New';"> CHGCURLIB CURLIB(</span><span style="font-family: 'Courier New';">MILIBRERIA</span><span style="font-family: 'Courier New';">) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><i><span style="font-family: 'Courier New';"> /* FTP </span></i><i><span style="font-family: 'Courier New';">Lista de a</span></i><i><span style="font-family: 'Courier New';">rchivo</span></i><i><span style="font-family: 'Courier New';">s</span></i><i><span style="font-family: 'Courier New';"> */ <o:p></o:p></span></i></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span style="font-family: 'Courier New';"> OVRDBF FILE(INPUT) TOFILE(</span><span style="font-family: 'Courier New';">MILIBRERIA</span><span style="font-family: 'Courier New';">/QFTPSRC) MBR(</span><span style="font-family: 'Courier New';">LISTA</span><span style="font-family: 'Courier New';">) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span style="font-family: 'Courier New';"> OVRDBF FILE(OUTPUT) TOFILE(</span><span style="font-family: 'Courier New';">MILIBRERIA</span><span style="font-family: 'Courier New';">/QFTPLOG) MBR(</span><span style="font-family: 'Courier New';">LISTA</span><span style="font-family: 'Courier New';">) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span style="font-family: 'Courier New';"> </span><span lang="EN-GB" style="font-family: 'Courier New';">FTP RMTSYS(</span><span lang="EN-GB" style="font-family: 'Courier New';">SERVIDOR</span><span lang="EN-GB" style="font-family: 'Courier New';">) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> DLTOVR FILE(INPUT OUTPUT) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><i><span style="font-family: 'Courier New'; font-size: xx-small;"> /* Chequea si hay Archivos en lista */ <o:p></o:p></span></i></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> RTVMBRD FILE(MILIBRERIA/LSOUTPUT) NBRCURRCD(&NROREG) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> IF COND(&NROREG *EQ 0) THEN(SNDUSRMSG + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> MSG('GENERA LISTA: CARPETA NO CONTIENE + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> ARCHIVOS PARA PROCESAR') MSGTYPE(*INFO) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> TOMSGQ(QSYSOPR)) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> GOTO CMDLBL(FIN) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> ENDDO <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> OVRDBF FILE(LSOUTPUT) TOFILE(MILIBRERIA/LSOUTPUT) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> CALL PGM(MILIBRERIA/PROCESACL) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span style="font-family: 'Courier New';"> FIN: </span><span style="font-family: 'Courier New';"><o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><br />
</div></td> </tr>
</tbody></table><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b>PROCESACL</b><o:p></o:p></span></span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 388.15pt;" valign="top" width="518"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="DA" style="font-family: 'Courier New'; font-size: xx-small;"> PGM <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="DA" style="font-family: 'Courier New'; font-size: xx-small;"> DCL VAR(&NOMFILE) TYPE(*CHAR) LEN(20) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span lang="DA" style="font-family: 'Courier New';"> </span><span lang="EN-GB" style="font-family: 'Courier New';">DCLF FILE(</span><span style="font-family: 'Courier New';">MILIBRERIA</span><span lang="EN-GB" style="font-family: 'Courier New';">/LSOUTPUT) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> <st1:place w:st="on">LOOP</st1:place>: <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> RCVF RCDFMT(LSOUTPUT) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN)) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> CHGVAR VAR(&NOMFILE) VALUE(%SST(&LSOUTPUT 1 20)) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><i><span style="font-family: 'Courier New';"> /* Actualiza nombre de archivos en fuente </span></i><span style="font-family: 'Courier New';">QFTPSRC/ARCHIVO</span><i><span style="font-family: 'Courier New';"> */</span></i><span style="font-family: 'Courier New';"> <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> OVRDBF FILE(QFTPSRC) TOFILE(MILIBRERIA/QFTPSRC) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> MBR(ARCHIVO) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> CALL PGM(MILIBRERIA/ACTUALIZA) PARM(&NOMFILE) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><i><span style="font-family: 'Courier New';"> /* Crea o Limpia Miembros */</span></i><span style="font-family: 'Courier New';"> <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> CLRPFM FILE(MILIBRERIA/QFTPLOG) MBR(ARCHIVO) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> MONMSG MSGID(CPF3141) EXEC(ADDPFM + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> FILE(MILIBRERIA/QFTPLOG) MBR(ARCHIVO)) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><i><span style="font-family: 'Courier New';"> /* FTP Archivo Txt al AS400 */</span></i><span style="font-family: 'Courier New';"> <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> OVRDBF FILE(INPUT) TOFILE(MILIBRERIA/QFTPSRC) MBR(ARCHIVO) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> OVRDBF FILE(OUTPUT) TOFILE(MILIBRERIA/QFTPLOG) MBR(ARCHIVO) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span style="font-family: 'Courier New';"> </span><span lang="EN-GB" style="font-family: 'Courier New';">FTP RMTSYS(SERVIDOR) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> DLTOVR FILE(INPUT OUTPUT) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><br />
</span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><i><span style="font-family: 'Courier New'; font-size: xx-small;"> /* Rpg que procesa el archivo */<o:p></o:p></span></i></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span lang="EN-GB" style="font-family: 'Courier New';"> OVRDBF FILE(ARCHIVO) TOFILE(</span><span style="font-family: 'Courier New';">MILIBRERIA</span><span lang="EN-GB" style="font-family: 'Courier New';">/ARCHIVO) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span lang="EN-GB" style="font-family: 'Courier New';"> CALL PGM(</span><span style="font-family: 'Courier New';">MILIBRERIA</span><span lang="EN-GB" style="font-family: 'Courier New';">/PROCESARPG) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> DLTOVR FILE(*ALL) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-size: xx-small;"><span lang="EN-GB" style="font-family: 'Courier New';"> DLTF FILE(</span><span style="font-family: 'Courier New';">MILIBRERIA</span><span lang="EN-GB" style="font-family: 'Courier New';">/ARCHIVO) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> MONMSG MSGID(CPF2105) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> GOTO CMDLBL(LOOP) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> FIN: <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> DLTF FILE(MILIBRERIA/LSOUTPUT) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> MONMSG MSGID(CPF2105) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: xx-small;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> ENDPGM</span><span class="Apple-style-span" style="font-size: xx-small;"> </span><span style="font-size: 8pt;"> </span></span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><o:p></o:p></span></div></td> </tr>
</tbody></table><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 303.1pt;" valign="top" width="404"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><b><i><span style="font-family: 'Courier New'; font-size: 8pt;"><span class="Apple-style-span" style="background-color: white;">Fuente de comandos FTP QFTPSRC/LISTA</span><o:p></o:p></span></i></b></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="PT-BR" style="font-family: 'Courier New'; font-size: 8pt;">USUARIO CLAVE <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="PT-BR" style="font-family: 'Courier New'; font-size: 8pt;">lcd MILIBRERIA <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="PT-BR" style="font-family: 'Courier New'; font-size: 8pt;">cd CARPETA <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;"><span class="Apple-style-span" style="background-color: yellow;">ls *.* (DISK</span><span class="Apple-style-span"><span class="Apple-style-span" style="background-color: yellow;"> </span><span class="Apple-style-span" style="background-color: white; color: #073763;"> </span><span class="Apple-style-span" style="background-color: white; color: #bf9000;"> </span></span><span class="Apple-style-span" style="background-color: white; color: #bf9000;"> </span><span class="Apple-style-span" style="background-color: white;"> </span> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">quit <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><br />
</div></td> </tr>
</tbody></table><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 303.1pt;" valign="top" width="404"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><b><span style="font-family: 'Courier New'; font-size: 8pt;"><i><span class="Apple-style-span" style="background-color: white;">Fuente de commandos Ftp para cada archivo QFTPSRC/ARCHIVO</span><o:p></o:p></i></span></b></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="PT-BR" style="font-family: 'Courier New'; font-size: 8pt;">USUARIO CLAVE <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="PT-BR" style="font-family: 'Courier New'; font-size: 8pt;">lcd MILIBRERIA <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="PT-BR" style="font-family: 'Courier New'; font-size: 8pt;">cd CARPETA <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt;"><span class="Apple-style-span" style="background-color: yellow;">get Archivo1.txt ARCHIVO</span><span class="Apple-style-span" style="background-color: yellow;"><span class="Apple-style-span"> </span> </span> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">quit <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><br />
</div></td> </tr>
</tbody></table><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">NOTAS:<o:p></o:p></span></span></div><div class="MsoListParagraph" style="mso-list: l0 level1 lfo1; text-indent: -18.0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Symbol; font-size: 10pt; line-height: 115%;">·<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> </span></span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">El programa </span><b style="mso-bidi-font-weight: normal;"><span style="font-family: 'Courier New'; font-size: 8pt; line-height: 115%;">ACTUALIZA</span></b><span style="font-family: 'Courier New'; font-size: 8pt; line-height: 115%;"> </span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">es un RPG que actualiza la línea 4 del fuente </span><b style="mso-bidi-font-weight: normal;"><span style="font-family: 'Courier New'; font-size: 8pt; line-height: 115%;">QFTPSRC/ARCHIVO</span></b><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><o:p></o:p></span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt; line-height: 115%;">get Archivo1.txt ARCHIVO <o:p></o:p></span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt; line-height: 115%;">get Archivo2.txt ARCHIVO <o:p></o:p></span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt; line-height: 115%;">get Archivo3.txt ARCHIVO <o:p></o:p></span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt; line-height: 115%;">get Archivo4.txt ARCHIVO <o:p></o:p></span></span></div><div class="MsoListParagraphCxSpFirst" style="mso-list: l0 level1 lfo1; text-indent: -18.0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Symbol; font-size: 10pt; line-height: 115%;">·<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> </span></span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">El programa </span><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt; line-height: 115%;">PROCESARPG</span></b><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt; line-height: 115%;"> </span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">es quien procesa cada archivo texto.<o:p></o:p></span></span></div><div class="MsoListParagraphCxSpLast" style="mso-list: l0 level1 lfo1; text-indent: -18.0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Symbol; font-size: 10pt; line-height: 115%;">·<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> </span></span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">El archivo LOG para la lista mostrará lo siguiente:<o:p></o:p></span></span></div><div class="MsoListParagraphCxSpLast" style="mso-list: l0 level1 lfo1; text-indent: -18.0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 395.25pt;" valign="top" width="527"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><b style="mso-bidi-font-weight: normal;"><span style="font-family: 'Courier New'; font-size: 8pt;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">Se ha redirigido la salida a un archivo.</span></span><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;"> </span></span> <o:p></o:p></span></b></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">Lectura de entrada del archivo de la alteración temporal especificado. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">Conectando con el sistema principal </span><span style="font-family: 'Courier New'; font-size: 8pt;">SERVIDOR</span><span style="font-family: 'Courier New'; font-size: 8pt;"> en la dirección </span><span style="font-family: 'Courier New'; font-size: 8pt;">xx</span><span style="font-family: 'Courier New'; font-size: 8pt;">.</span><span style="font-family: 'Courier New'; font-size: 8pt;">xx</span><span style="font-family: 'Courier New'; font-size: 8pt;">.</span><span style="font-family: 'Courier New'; font-size: 8pt;">xx</span><span style="font-family: 'Courier New'; font-size: 8pt;">.</span><span style="font-family: 'Courier New'; font-size: 8pt;">xxx</span><span style="font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;"> utilizando el puerto 21. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">220 Microsoft FTP Service <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">Entre el ID de inicio de sesión (</span><span style="font-family: 'Courier New'; font-size: 8pt;">USUARIO</span><span style="font-family: 'Courier New'; font-size: 8pt;">): <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt;">331 Password required for </span><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt;">USUARIO</span><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt;">. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt;">230 User </span><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt;">USUARIO</span><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt;"> logged in. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">Windows_NT <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">Entre un submandato FTP. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">> lcd </span><span style="font-family: 'Courier New'; font-size: 8pt;">MILIBRERIA</span><span style="font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">El directorio de trabajo local es </span><span style="font-family: 'Courier New'; font-size: 8pt;">MILIBRERIA</span><span style="font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">Entre un submandato FTP. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">> cd CARPETA <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt;">250 CWD command successful. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt;">Entre un submandato FTP. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><b style="mso-bidi-font-weight: normal;"><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">> ls *.* (DISK <o:p></o:p></span></b></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">227 Entering Passive Mode (</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">xx</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">,</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">xx</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">,</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">xx</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">,</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">xxx</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">,</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">xxx</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">,</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">xx</span><span lang="DA" style="font-family: 'Courier New'; font-size: 8pt;">). <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 8pt;">125 Data connection already open; Transfer starting. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">226 Transfer complete. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">Entre un submandato FTP. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">> quit <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 8pt;">221 </span><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"><o:p></o:p></span></div></td> </tr>
</tbody></table><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Espero haber sido lo más claro posible, si tienes alguna duda, pregunta no mas =P<o:p></o:p></span></span></div></div></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-71039074885003423672011-03-25T21:38:00.000-07:002011-03-25T21:58:00.155-07:00Monitorear Status de Job Sometido PARTE I (WRKACTJOB *PRINT)<div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span class="Apple-style-span" style="line-height: 14px;"></span></span><br />
<div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Muchas veces hay procesos batch que tenemos ejecutando en el sistema y que queremos monitorear de manera automática. Es decir, si el job se encuentra en MSGW, LCKW, etc. Se pueda cancelar y lanzar nuevamente.<o:p></o:p></span></span></div><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"> </span><br />
<div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">En esta primera parte lo hacemos de manera “artesanal” por decirlo de alguna manera.<o:p></o:p></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">A continuación el programa CL que será sometido para monitorear el Job.<o:p></o:p></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><u><br />
</u></span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><u>Parametros</u>:<o:p></o:p></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;"><b>Jobname </b>= Nombre del Job a monitorear</span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b>Sbsname </b>= <u>S</u>ubsistema donde se encuentra ejecutando el Job<o:p></o:p></span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 395.25pt;" valign="top" width="527"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> PGM PARM(&JOBNAME &SBSNAME) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> DCL VAR(&JOBNAME) TYPE(*CHAR) LEN(10) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> DCL VAR(&SBSNAME) TYPE(*CHAR) LEN(10) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;">/* Datos de trabajo actual */ <o:p></o:p></span></b></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> DCL VAR(&NROJOB) TYPE(*CHAR) LEN(6) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> DCL VAR(&NAMJOB) TYPE(*CHAR) LEN(10) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> DCL VAR(&USRJOB) TYPE(*CHAR) LEN(10) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> DCLF FILE(QTEMP/PLANO) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> RTVJOBA JOB(&NAMJOB) USER(&USRJOB) NBR(&NROJOB) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> DLTF FILE(QTEMP/PLANO) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> MONMSG MSGID(CPF0000) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> CRTPF FILE(QTEMP/PLANO) RCDLEN(132) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;">/* La pantalla del comando WrkActJob se deposita en archivo */<o:p></o:p></span></b></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> WRKACTJOB OUTPUT(*PRINT) SBS(&SBSNAME) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> CPYSPLF FILE(QPDSPAJB) TOFILE(QTEMP/PLANO) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> JOB(&NROJOB/&USRJOB/&NAMJOB) SPLNBR(*LAST) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> DLTSPLF FILE(QPDSPAJB) JOB(&NROJOB/&USRJOB/&NAMJOB) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> SPLNBR(*LAST) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;">LOOP: RCVF <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> MONMSG MSGID(CPF0864) EXEC(DO) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> DLYJOB DLY(60) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> TFRCTL PGM(MONITOR) PARM(&JOBNAME &SBSNAME) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> ENDDO <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;">/* Si el job esta en MSGW se finaliza y somete nuevamente */<o:p></o:p></span></b></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> IF COND(%SST(&PLANO 4 10) *EQ &JOBNAME *AND + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> %SST(&PLANO 111 4) *EQ 'MSGW') THEN(DO) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> CHGVAR VAR(&NAMJOB) VALUE(%SST(&PLANO 04 10)) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> CHGVAR VAR(&USRJOB) VALUE(%SST(&PLANO 17 10)) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> CHGVAR VAR(&NROJOB) VALUE(%SST(&PLANO 29 06)) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> ENDJOB JOB(&NROJOB/&USRJOB/&NAMJOB) OPTION(*IMMED) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> DELAY(1) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> DLYJOB DLY(120) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> SBMJOB CMD(CALL PGM(MILIBRERIA/MIPROGRAMA)) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> JOB(&JOBNAME) JOBQ(&SBSNAME) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> ENDDO <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> GOTO CMDLBL(LOOP) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 8pt;"> ENDPGM <o:p></o:p></span></div></td> </tr>
</tbody></table><div class="MsoNormal" style="text-align: justify;"><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><u><b>2 cosas importantes</b></u>:<o:p></o:p></span></span></div><div class="MsoListParagraphCxSpFirst" style="mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">-<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> </span></span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Luego de finalizar el job espero 2 minutos para estar seguro que el Job finalizó antes de someterlo nuevamente, puesto que a veces se demora en generar el joblog, cerrar los programas de servicio, etc. Esto es para evitar posibles bloqueos de archivos u otro tipo de objetos.<o:p></o:p></span></span></div><div class="MsoListParagraphCxSpLast" style="mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">-<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> </span></span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Al finalizar la lectura del archivo plano que contiene información del comando WRKACTJOB *PRINT, se realiza la llamada recursiva al programa con el comando TFRCTL, esto permite que entre en un bucle infinito, pero controlado por un DLYJOB de 1 minuto.<o:p></o:p></span></span></div><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><br />
</span></div><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Al ejecutar el comando WRKACTJOB OUTPUT(*PRINT) SBS(QBATCH2) obtendremos el siguiente reporte en el spool.<o:p></o:p></span></span></div><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Archivo <b>QPDSPAJB</b><o:p></o:p></span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b><br />
</b></span></span><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6XHonZBduqFVN3_2UouNgEGExTfI1OibmhQOJMJsKwMTdtMkv3v0lmVIbWU1vG8ITKhf2SD7-Tj2uGnwiWvHP99_C3ojXFijQo0AQ_SAA59Lh0GT1vmmczS_-9M8g2inPQ5iKE2gzn18b/s1600/QPDSPAJB_WRKACTJOB_PRINT.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="220" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6XHonZBduqFVN3_2UouNgEGExTfI1OibmhQOJMJsKwMTdtMkv3v0lmVIbWU1vG8ITKhf2SD7-Tj2uGnwiWvHP99_C3ojXFijQo0AQ_SAA59Lh0GT1vmmczS_-9M8g2inPQ5iKE2gzn18b/s400/QPDSPAJB_WRKACTJOB_PRINT.JPG" width="400" /></a></div><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b><br />
</b></span></span></div></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com1tag:blogger.com,1999:blog-3031825386943356438.post-63930707907373475642011-03-22T20:15:00.000-07:002011-03-22T20:41:56.332-07:00FTP en Batch desde el AS400<div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Este es un ejemplo de programa por lotes para realizar un FTP desde el Iseries a un servidor Windows NT y “jalar” un archivo para procesarlo en el sistema.<o:p></o:p></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Con el servicio FTP no solo podemos pasar o recoger archivos sino también programas, fuentes, archivos de salvar, etc.<o:p></o:p></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Si vamos a hacerlo de manera batch es necesario saber lo que el proceso hizo en su ejecución, así como revisamos en el spool los archivos QPJOBLOG de los procesos batcheros, los procesos que realizan FTP por lotes también generan estos logs.<o:p></o:p></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">El servicio FTP reconoce 2 archivos al momento de ejecutar comandos FTP, el archivo INPUT y OUTPUT (opcional).<o:p></o:p></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">El primero contiene las instrucciones para el logeo del usuario (usuario, clave), comandos de direccionamiento (cd, lcd), tipo de transferencia (binaria, ascii, ebcdic, etc) y los comandos de recojo de información (get, put), Asi como también comandos administrativos (ls, del, mkdir, etc). <o:p></o:p></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">El segundo archivo (OUTPUT) contiene la información de Log, esta información es muy relevante para analizar posibles fallas en la de transmisión.<o:p></o:p></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Ambos archivos se crean como fuentes de tipo texto, en cualquier archivo fuente. Yo he creado QFTPSRC para </span><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;">contener el archivo INPUT, en mi ejemplo recibirá el nombre del archivo que deseo “bajar” y QFTPLOG para contener el archivo OUTPUT y tendrá el mismo nombre del primero.</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Si se especifica una alteración temporal para INPUT o OUTPUT (o para ambos), FTP ejecuta en modalidad por lotes y no presenta la sesión interactiva.<o:p></o:p></span></div></div><div class="MsoNormal"><span style="background-attachment: initial; background-clip: initial; background-color: lime; background-image: initial; background-origin: initial; font-family: 'Courier New'; font-size: 8pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span class="Apple-style-span" style="background-color: white;"><span style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; font-family: 'Courier New'; font-size: 8pt; line-height: 115%;">Fuente de comandos FTP - QFTPSRC/FILEPC</span><span style="font-family: 'Courier New'; font-size: 8pt; line-height: 115%;"><o:p></o:p></span></span></div><div class="MsoNormal"><span style="background-attachment: initial; background-clip: initial; background-color: lime; background-image: initial; background-origin: initial; font-family: 'Courier New'; font-size: 8pt; line-height: 115%;"><br />
</span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 267.65pt;" valign="top" width="357"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 7pt;">Columnas . . : 1 80 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 7pt;"> SEU==> <u> </u><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 7pt;"> *************** Principio de datos *****************<o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 7pt;">0001.00 USUARIO CLAVE <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 7pt;">0002.00 lcd milibreria <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 7pt;">0003.00 cd carpeta_raiz <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 7pt;">0004.00 cd subcarpeta <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 7pt;">0005.00 get archivo_texto.txt FILEPC <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 7pt;">0007.00 quit <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 7pt;"> ****************** Fin de datos ********************<o:p></o:p></span></div></td> </tr>
</tbody></table><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 11px; line-height: 12px;">Fuente de LOG FTP - QFTPLOG/FILEPC</span></div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 11px; line-height: 12px;"><br />
</span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 310.2pt;" valign="top" width="414"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">Columnas . . : 1 80 Edición <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;"> SEU==> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;"> *************** Principio de datos *************************************<o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0001.00 Lectura de entrada del archivo de la alteración temporal especificado. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0002.00 Conectando con el sistema principal SERVIDOR en la dirección 1.5.10.151 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0003.00 utilizando el puerto 21. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0004.00 220 Microsoft FTP Service <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0005.00 Entre el ID de inicio de sesión (MIUSUARIO): <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0006.00 331 Password required for MIUSUARIO. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0007.00 230 User MIUSUARIO logged in. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0008.00 Windows_NT <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0009.00 Entre un submandato FTP. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0010.00 > lcd milibreria <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0011.00 El directorio de trabajo local es MILIBRERIA <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0012.00 Entre un submandato FTP. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0013.00 > cd carpeta_raiz <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0014.00 250 CWD command successful. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0015.00 Entre un submandato FTP. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0016.00 > cd subcarpeta <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0017.00 250 CWD command successful. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0018.00 Entre un submandato FTP. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0019.00 > get archivo_texto.txt FILEPC <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0020.00 200 PORT subcommand request successful. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0021.00 150 Retrieving file archivo_texto.txt. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0022.00 <span style="background-attachment: initial; background-clip: initial; background-color: lime; background-image: initial; background-origin: initial;">250 File transfer completed successfully. <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: lime; background-image: initial; background-origin: initial; color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0023.00 529 bytes transferidos en 0.325 segundos. Velocidad de transferencia<o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: lime; background-image: initial; background-origin: initial; color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0024.00 1.627 KB/seg.</span><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0025.00 Entre un submandato FTP. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0026.00 > quit <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;">0027.00 221 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 6pt;"> ****************** Fin de datos ******************************<o:p></o:p></span></div></td> </tr>
</tbody></table><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;"><u><br />
</u></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;"><u>Importante</u></span><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;">:</span></div><div class="MsoListParagraphCxSpFirst" style="mso-list: l0 level1 lfo1; text-indent: -18.0pt;"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">-<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> </span></span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">En el log el servicio ftp devuelto códigos de respuesta, en el ejemplo (pintado de verde) es el mensaje que mas debes monitorear cuando revisas el log del ftp. <o:p></o:p></span></div></div><div class="MsoListParagraphCxSpMiddle" style="mso-list: l0 level1 lfo1; text-indent: -18.0pt;"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">-<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> </span></span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Si el archivo se encuentra en un directorio diferente a la ruta que indicas en los comandos CD, la trasmisión no será exitosa. <o:p></o:p></span></div></div><div class="MsoListParagraphCxSpLast" style="mso-list: l0 level1 lfo1; text-indent: -18.0pt;"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">-<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> </span></span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Es necesario analizar cada mensaje que muestre el log del ftp. Por ejemplo:<o:p></o:p></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><br />
</div></div><div class="MsoNormal"><div style="text-align: justify;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">250 Now using naming format "1". </span></b><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><o:p></o:p></span></b></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Indica el formato de denominación de archivo FTP.<o:p></o:p></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">AS/400 FTP soporta dos formatos de denominación. Estos formatos de denominación se identifican con 0 y 1. Se describen del modo siguiente: <o:p></o:p></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">0 - Un formato de denominación sólo para los archivos de base de datos del sistema de archivos de biblioteca. Indica al AS/400 cliente y servidor que los nombres de los archivos están en el formato de denominación de archivos FTP original (utilizado por las versiones anteriores a V3R1 de FTP).<o:p></o:p></span></div></div><div class="MsoNormal" style="text-indent: 36.0pt;"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 9pt; line-height: 115%;"><br />
</span></div><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 9pt; line-height: 115%;"><b>GET MILIBRERIA.LIB/QRPGLESRC.FILE/MIFUENTES.MBR (REPLACE </b><o:p></o:p></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">1 - Un formato de denominación para todos los sistemas de archivos soportados por FTP. Indica al AS/400 cliente y servidor que los nombres de los archivos se ajustan al convenio de denominación de vía de acceso (introducido en V3R1). <o:p></o:p></span></div></div><div class="MsoNormal" style="text-indent: 36.0pt;"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b>GET MILIBRERIA/QRPGLESRC.MIFUENTE (REPLACE </b></span></div></div><div class="MsoNormal" style="text-indent: 36.0pt;"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;"><br />
</span></div></div><div class="MsoNormal" style="text-indent: 36.0pt;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;"><br />
</span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 338.55pt;" valign="top" width="451"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> PGM <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> /* Borra archivo si existe */ <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> DLTF FILE(MILIBRERIA/FILEPC) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> <span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial;">/* Crea o Limpia Miembros para LOG Ftp */</span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial; font-family: 'Courier New'; font-size: 7pt;"> /* se limpia para mantener el LOG de la ultima */</span><span style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial; font-family: 'Courier New'; font-size: 7pt;"> /* transmission del archivo */</span><span style="font-family: 'Courier New'; font-size: 7pt;"><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> CLRPFM FILE(</span><span style="font-family: 'Courier New'; font-size: 8pt;">MILIBRERIA</span><span style="font-family: 'Courier New'; font-size: 7pt;">/QFTPLOG) MBR(FILEPC) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> MONMSG MSGID(CPF3141) EXEC(ADDPFM + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> FILE(</span><span style="font-family: 'Courier New'; font-size: 8pt;">MILIBRERIA</span><span style="font-family: 'Courier New'; font-size: 7pt;">/QFTPLOG) MBR(FILEPC)) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> CHGCURLIB CURLIB(MILIBRERIA) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> /* FTP Archivo al AS400 */ <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> OVRDBF FILE(INPUT) TOFILE(MILIBRERIA/QFTPSRC) MBR(FILEPC) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> OVRDBF FILE(OUTPUT) TOFILE(MILIBRERIA/QFTPLOG) MBR(FILEPC) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> </span><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 7pt;">FTP RMTSYS(<b style="mso-bidi-font-weight: normal;">SERVIDOR</b>) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 7pt;"> DLTOVR FILE(INPUT OUTPUT) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 7pt;"> </span><span style="font-family: 'Courier New'; font-size: 7pt;">/* Chequea si recibio archivo de Servidor */ <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> CHKOBJ OBJ(MILIBRERIA/FILEPC) OBJTYPE(*FILE) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> MONMSG MSGID(CPF9801) EXEC(SNDUSRMSG MSG('ERROR, + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> ARCHIVO NO SE ENCUENTRA EN SERVIDOR') + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> MSGTYPE(*INFO) TOMSGQ(QSYSOPR)) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> </span><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="EN-GB" style="font-family: 'Courier New'; font-size: 7pt;"> </span><span style="font-family: 'Courier New'; font-size: 7pt;">ENDPGM </span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 7pt;"><o:p></o:p></span></div></td> </tr>
</tbody></table><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Para asegurarnos que en el momento de ejecutar el FTP se encuentren los servicio TCP/FTP levantados, debemos incluir en el CL lo siguiente:<o:p></o:p></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="background-color: black; color: lime; font-family: 'Courier New'; font-size: 7pt;"> STRTCP <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="background-color: black; color: lime; font-family: 'Courier New'; font-size: 7pt;"> MONMSG MSGID(CPF0000) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="background-color: black; color: lime; font-family: 'Courier New'; font-size: 7pt;"> STRTCPSVR SERVER(*FTP) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"><span class="Apple-style-span" style="background-color: black; color: lime;"> MONMSG MSGID(CPF0000) </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> OVRDBF FILE(INPUT) TOFILE(LIBMCP/QFTPSRC) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> MBR(FILEPC) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> OVRDBF FILE(OUTPUT) TOFILE(LIBMCP/QFTPLOG) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> MBR(FILEPC) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 9px;"> FTP RMTSYS(SERVIDOR) </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span style="font-family: 'Courier New'; font-size: 7pt;"> DLTOVR FILE(INPUT OUTPUT) <o:p></o:p></span></div><div class="MsoNormal" style="text-indent: 36.0pt;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;"> </span></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-64621420488364714502011-03-19T21:10:00.000-07:002011-03-19T21:34:04.300-07:00Consulta STRQMQRY asociada a formato de informe (*QMQRY *QMFORM)<div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Como bien sabemos con el comando STRQMQRY podremos ejecutar un comando SQL desde un proceso batch (CL). Si se tratase de un comando SELECT podemos direccionar la salida del query a un archivo o reporte.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Lo que comúnmente hacemos para generar un listado utilizando un query del gestor de consultas DB2 (STRQMQRY) es ejecutarlo en batch y derivar la información a un archivo temporal, luego crearemos un programa que imprima el resultado. Esto implica crear un programa nuevo, y hasta tal vez, un archivo de impresora - PRTF.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">El gestor de consultas DB2 UDB para iseries nos permite crear un objeto de tipo *QMFORM el cual es un formato de reporte que puede ser usado para imprimir los registros productos del Query (*QMQRY). <o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Arrancamos el Gestor de consultas DB2.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">==> STRQM</span></span><o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">En el menú del Gestor de consultas seleccionamos opción 1 para crear una consulta y nos saldrá lo siguiente:<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 331.45pt;" valign="top" width="442"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Trabajar con Consultas del Gestor de Consultas <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Biblioteca . . . . . . . . . . <u><span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial;">MILIBRERIA</span></u> Nombre, F4 para lista <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Modalidad creación consultas : PROMPT <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee opciones, pulse Intro. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 1=Crear 2=Cambiar 3=Copiar 4=Suprimir 5=Visualizar 6=Imprimir <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 7=Redenominar 9=Ejecutar 10=Convertir a SQL <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Opc Consulta Tipo Descripción <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <u><span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial;">1</span></u> <u><span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial;">DEMOQUERY</span> </u><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> (No puede encontrarse un objeto que coincida con el nombre especificado.) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> </span><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 9px;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F3=Salir F4=Solicitud F5=Renovar F11=Visualizar sólo consulta <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F12=Cancelar F16=Repetir situar en F17=Situar en F24=Más teclas <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Creamos la consulta DEMOQUERY <o:p></o:p></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 303.1pt;" valign="top" width="404"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Definir Consulta Asistida <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Consulta . . . . . : DEMOQUERY <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee opciones, pulse Intro. Pulse F21 para seleccionar todo. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 1=Seleccionar <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Opc Selección de Consulta Asistida <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <u><span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial;">1</span></u> Especificar archivos <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Definir expresiones <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Seleccionar y poner en secuencia campos <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Seleccionar registros <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <u><span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial;">1</span></u> Seleccionar campos de clasificación <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Seleccionar funciones de resumen <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Especificar registros duplicados <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <u><span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial;">1</span></u> Especificar formato de informe <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F3=Salir F5=Ejecutar informe F6=Ejecutar muestra F12=Cancelar <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;">F18=Visualizar SQL F21=Seleccionar todo F22=Sentencia QM <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Definimos el archivo con el cual trabajaremos.<o:p></o:p></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 303.1pt;" valign="top" width="404"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Especificar Archivos <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee elecciones, pulse Intro. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Archivo . . . . . . . . : A <u>CLIENTES</u> Nombre, <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Biblioteca . . . . . . : <u>MILIBRERIA</u> Nombre, <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> + para más archivos . . . <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 9px;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;">F3=Salir F4=Solicitud F5=Ejecutar informe <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;">F12=Cancelar F18=Visualizar SQL F20=Ver nombre completo <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Establecemos los campos de clasificación.<o:p></o:p></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 303.1pt;" valign="top" width="404"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Seleccionar Campos de Clasificación <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee una prioridad de clasificación (0-9999) y A (Ascendente) o D <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> (Descendente) para los nombres de 32 campos como máximo, pulse <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Prio Prio <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Clas A/D Campo Clas A/D Campo <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <u>10</u> <u>A</u> A.CODCLI <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> A.NOMCLI <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> A.SEXCLI <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> A.DIRCLI <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> A.SALCLI <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> A.RUCCLI <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> A.TARCLI <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 9px;"> F3=Salir F5=Ejecutar informe F6=Ejecutar muestra F12=Cancelar F18=Visualizar SQL F24=Más teclas </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Creamos el formato de Reporte.<o:p></o:p></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 303.1pt;" valign="top" width="404"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Especificar Formato de Informe <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee elecciones, pulse Intro. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Formato . . . . . . . . . . . <u>DEMOFORM</u> Nombre, *, F4 para <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Biblioteca . . . . . . . . . <u>MILIBRERIA</u> Nombre, *LIBL, <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F4=Solicitud F12=Cancelar <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 303.1pt;" valign="top" width="404"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Seleccionar Formato de Informe <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Formato . . . . . : DEMOFORM <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee opciones, pulse Intro. Pulse F21 para seleccionar todo. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 1=Seleccionar <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Opc Formato de Informe <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 1 Editar formato de columna <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 1 Editar cabecera de página <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 1 Editar pie de página <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Editar texto final <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Editar texto de ruptura <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 1 Especificar opciones de formato <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F3=Salir F5=Ejecutar informe F12=Cancelar F13=Editar consulta <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F18=Visualizar SQL F21=Seleccionar todo F22=Sentencia QM <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Presionamos F11 para editar los títulos de la cabecera de columnas<o:p></o:p></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 338.55pt;" valign="top" width="451"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <b style="mso-bidi-font-weight: normal;">Editar Formato de Columna <o:p></o:p></b></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee información, pulse Intro. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Para Utilización y Edición, pulse F4 para obtener una lista. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Para Cabecera, pulse F4 para obtener una solicitud. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Columna Cabecera Util. Edit Sec Sangr Ancho <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> CODCLI CODCLI 1 2 6 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> NOMCLI NOMCLI 2 2 15 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> SEXCLI SEXCLI 3 2 6 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> DIRCLI DIRCLI 4 2 25 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> SALCLI SALCLI 5 2 17 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> RUCCLI RUCCLI 6 2 11 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> TARCLI TARCLI 7 2 16 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> </span><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 9px;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F2=Teclas alternativas F3=Salir F4=Solicitud F5=Ejecutar informe <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F6=Insertar línea F10=Copiar línea <span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial;">F11=Editar cabecera</span> F24=Más teclas <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Personalizamos el nombre de cada columna a nuestro gusto.<o:p></o:p></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 310.2pt;" valign="top" width="414"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Editar Formato de Columna <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee información, pulse Intro. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Para Utilización y Edición, pulse F4 para obtener una lista. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Para Cabecera, pulse F4 para obtener una solicitud. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Columna Cabecera <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> CODCLI <u>CODIGO CLIENTE</u> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> NOMCLI <u>NOMBRE</u> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> SEXCLI <u>SEXO</u> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> DIRCLI <u>DIRECCION</u> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> SALCLI <u>SALARIO</u> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> RUCCLI <u>RUC </u><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> TARCLI <u>TARJETA</u> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 9px;"> </span><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 9px;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F2=Teclas alternativas F3=Salir F4=Solicitud F5=Ejecutar informe <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F6=Insertar línea F10=Copiar línea F24=Más teclas <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Aquí definimos el titulo del reporte<o:p></o:p></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 310.2pt;" valign="top" width="414"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial;">Editar Cabecera de Página</span> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee las elecciones, pulse Intro. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Líneas en blanco previas . . . . . . . . . 0 0-999 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Líneas en blanco posteriores . . . . . . . 2 0-999 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Texto en página: Utilice &col, &DATE, &TIME y &PAGE para provocar la <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> inserción de variables. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Lín. Ajuste Texto en Cabecera de Página <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 1 <u>IZQUIERDA</u> <u>WWW.ISERIES-PERU.BLOGSPOT.COM</u> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 1 <u>DERECHA</u> <u>FECHA: &DATE HORA: &TIME</u> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 2 <u>CENTRO</u> <u>LISTADO DE CLIENTES</u> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 2 <u>DERECHA</u> <u>PAGINA: &PAGE</u> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;">F2=Teclas alternativas F3=Salir F4=Solicitud F5=Ejecutar informe <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F6=Insertar línea F10=Copiar línea F12=Cancelar F24=Más teclas <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Colocamos un texto de fin de reporte. Eliminamos las líneas que no deseamos con F14.<o:p></o:p></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 310.2pt;" valign="top" width="414"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial;">Editar Pie de Página</span> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee las elecciones, pulse Intro. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Líneas en blanco previas . . . . . . . . . 2 0-999 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Líneas en blanco posteriores . . . . . . . 0 0-999 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Texto en página: Utilice &col, &DATE, &TIME y &PAGE para provocar la <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> inserción de variables. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Lín. Ajuste Texto a Pie de Página <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 1 <u>CENTRO</u> <u>* * * FIN DE REPORTE * * *</u> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> </span><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 9px;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;">F2=Teclas alternativas F3=Salir F4=Solicitud F5=Ejecutar <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;">F6=Insertar línea F10=Copiar línea F12=Cancelar <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Seguidamente, pulsamos F5 para ejecutar el Query con el formulario.<o:p></o:p></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 310.2pt;" valign="top" width="414"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> Visualizar Informe <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> Consulta . . .: * Anchura . .: 123 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> Formato . . . .: MILIBRERIA/DEMOFORM Columna . .: 1 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> Control . . . . <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> Línea ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2... <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> CODIGO CLIENTE NOMBRE SEXO DIRECCION SALARIO RUC TARJETA <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> -------------- --------------- ---- ------------------------- ----------------- ----------- ---------------- <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> 000001 CLI001 J.VASQUEZ M WWW.ISERIES-PERU.BLOGSPOT 1,500.50 12345678901 5215264656656936 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> 000002 CLI002 C.SANCHEZ M AVENIDA PERU 123 2,000.00- 59789656851 5262625464656263 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> 000003 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> 000004 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> 000005 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> 000006 <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> 000007 * * * FIN DE REPORTE * * * <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> ****** * * * * * F I N D E L O S D A T O S * * * * * <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> </span><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 5px;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> </span><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 5px;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;">F3=Salir F12=Cancelar F19=Izquierda F20=Derecha F21=Partir <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 4pt;"> <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Salimos salvando el Query y el formulario.</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 260.55pt;" valign="top" width="347"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Salir <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee elecciones, pulse Intro. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Opción . . . . . 1 1=Salvar y salir <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 2=Salir sin salvar <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 3=Continuar sin salvar <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 4=Salvar y continuar <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Consulta . . . . <u>DEMOQUERY</u> Nombre <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Biblioteca . . <u>MILIBRERIA</u> Nombre, *CURLIB <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Descripción . . <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Formato . . . . <u>DEMOFORM</u> Nombre <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Biblioteca . . <u>MILIBRERIA</u> Nombre, *CURLIB <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Descripción . . <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> </span><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 9px;"> </span><span class="Apple-style-span" style="font-family: 'Courier New'; font-size: 9px;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> F5=Renovar F12=Cancelar <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Nos aparecerá 2 objetos nuevos de tipo *QMQRY y *QMFORM</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 260.55pt;" valign="top" width="347"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Trabajar con Objetos utilizando PDM <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Biblioteca . . . <u>MILIBRERIA</u> Situar en . . . . . . .<o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Situar en tipo . . . .<o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Teclee opciones, pulse Intro. <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 2=Cambiar 3=Copiar 4=Suprimir 5=Visualizar <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> 8=Visualizar descripción 9=Salvar 10=Restaurar <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> Opc Objeto Tipo Atributo Texto <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <span style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial;">DEMOQUERY *QMQRY PROMPT <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: yellow; background-image: initial; background-origin: initial; font-family: 'Courier New'; font-size: 7pt;"> DEMOFORM *QMFORM QUERY MGR</span><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"></div></td> </tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Hacemos un OVRPRTF para que el reporte considere un ancho de 132, ya que si no lo hacemos asi, el reporte se truncará y saldrá cortado en 2 archivos spool.<o:p></o:p></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">==>OVRPRTF FILE(QPQXPRTF) PAGESIZE(*N 132)</span></span><span class="Apple-style-span" style="color: #1f497d;"><o:p></o:p></span></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><br />
</div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">Luego, Ejecutamos la consulta<o:p></o:p></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 10pt;"><span class="Apple-style-span" style="color: lime;"><span class="Apple-style-span" style="background-color: black;">===> STRQMQRY QMQRY(MILIBRERIA/DEMOQUERY) OUTPUT(*PRINT) QMFORM(MILIBRERIA/DEMOFORM) DATETIME(*NO) PAGNBR(*NO)</span><span class="Apple-style-span" style="background-color: black;"> </span></span><span class="Apple-style-span" style="color: #1f497d;"> </span><span style="color: #1f497d;"> </span><span class="Apple-style-span" style="color: #1f497d;"><o:p></o:p></span></span></div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><br />
</div><div class="MsoNormal" style="color: #1f497d; line-height: normal; margin-bottom: 0.0001pt;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;">En nuestro Spool aparecerá el archivo de reporte QPQXPRTF con el diseño que hemos personalizado.<o:p></o:p></span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6W2otEDqkA42Ct6KJPv2dNGEtkH1IzB5hJxY3iYHdyT7c7ohLFz7Bfnms-NX5ZP7qxP_ysJv-Nh3hMMr1rWCpelaiZq4dsMSGVsicrP1HxAf24PS-8Vvdbo3UUu0AdffL37bP_Lvg4J7l/s1600/QMQRY_con_QMFORM.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="132" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6W2otEDqkA42Ct6KJPv2dNGEtkH1IzB5hJxY3iYHdyT7c7ohLFz7Bfnms-NX5ZP7qxP_ysJv-Nh3hMMr1rWCpelaiZq4dsMSGVsicrP1HxAf24PS-8Vvdbo3UUu0AdffL37bP_Lvg4J7l/s400/QMQRY_con_QMFORM.JPG" width="400" /></a></div><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-42203154457300673932011-03-16T21:13:00.000-07:002011-03-17T11:50:01.089-07:00Opciones personalizadas en STRPDM (Archivo de opciones QAUOOPT)<div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Una de las buenas prácticas para el buen manejo del Gestor de desarrollo de programas del AS400 es hacer uso de las opciones personalizadas en el PDM. Aquellas que podemos crearlas nosotros mismos y que nos ahorra tiempo y hace más eficiente nuestro desarrollo. </span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Esto lo logramos creando en nuestra librería personal el archivo de opciones (QAUOOPT) el cual lo posee toda librería QGPL en el sistema AS400. Solo tendremos que copiarla a nuestra librería personal y agregar las opciones a nuestro gusto.</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 9pt; line-height: 115%;"><br />
</span></div><span lang="ES-PE" style="font-family: Tahoma, sans-serif; font-size: 9pt; line-height: 115%;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">==> CPYF FROMFILE(QGPL/QAUOOPT) TOFILE(MILIBRERIA/QAUOOPT) CRTFILE(*YES)</span></span><span class="Apple-style-span" style="color: #1f497d;"></span></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span><br />
<div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Este archivo tiene una opción para su mantenimiento. Mediante la opción 9 desde el menú principal del STRPDM.</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 402.3pt;" valign="top" width="536"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Gestor de desarrollo de programas (PDM) AS/400 </span></b></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Seleccione una de las opciones siguientes: </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> 1. Trabajar con bibliotecas </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> 2. Trabajar con objetos </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> 3. Trabajar con miembros </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <span style="background-clip: initial; background-color: yellow; background-origin: initial;">9. Trabajar con opciones definidas por el usuario</span> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div></td></tr>
</tbody></table><br />
<div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">O desde las opciones 1 ó 2 ó 3, pulsando la tecla de función F16=Opciones usuario</span></div><div class="MsoNormal"><br />
</div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 409.4pt;" valign="top" width="546"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Trabajar con opciones definidas por usuario </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Archivo . . . . . : QAUOOPT Miembro . . . . . : QAUOOPT </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Biblioteca . . . : MILIBRERIA Situar en . . . . : </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Teclee opciones, pulse Intro. </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> 2=Cambiar 3=Copiar 4=Suprimir 5=Visualizar </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Opc Opción Mandato </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <u> </u> RQ RUNQRY QRYFILE((&L/&N)) RCDSLT(*YES) </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <u> </u> SB SBMJOB CMD(CALL PGM(&L/&N)) JOB(&N) JOBQ(QBATCH) </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <u> </u> SD STRDBG PGM(&N) UPDPROD(*YES) OPMSRC(*YES) </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <u> </u> SP WRKSPLF </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <u> </u> UP UPDDTA FILE(&L/&N) </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <u> </u> WA WRKACTJOB SBS(QBATCH) </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <u> </u> WO WRKOBJ OBJ(&L/&N) </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <u> </u> WU WRKUSRJOB </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <u> </u> WY WRKSYSSTS </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Mandato </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> ===> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> F3=Salir F4=Solicitud F5=Renovar F6=Crear </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> F9=Recuperar F10=Entrada mandatos F24=Más teclas </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div></td></tr>
</tbody></table><br />
<br />
<div class="MsoNormal"></div><div class="MsoNormal"><div style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Desde este menú podremos Editar, Copiar, Suprimir, Visualizar y Crear opciones, las que se registrarán en el archivo QAUOOPT, el cual tiene la siguiente estructura:</span></div></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 388.15pt;" valign="top" width="518"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Tipo Long AlmacenaPosiciónntermedioCampo Cabecera </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Campo Datos Campo Alm.Int Alm.Int Utiliz Columna </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <b style="mso-bidi-font-weight: normal;">OPTION</b> CHAR 2 2 1 Ambos OPTION </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Texto de campo . . . . . . . . . . . . . : BENUTZERDEFINIERTE AUSWAHL </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Identificador Juego Caracteres . . . . . : 273 </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> <b style="mso-bidi-font-weight: normal;">COMMAND</b> CHAR 250 250 3 Ambos COMMAND </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Texto de campo . . . . . . . . . . . . . : BEFEHL </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Identificador Juego Caracteres . . . . . : 273 </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div></td></tr>
</tbody></table><br />
<div class="MsoNormal"><br />
</div><div class="MsoNormal"></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">En el campo OPTION se debe colocar 2 caracteres que identifiquen la opción. </span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">En el campo COMMAND se debe colocar el comando a ejecutar, pero con valores que el sistema identificará como parámetros.</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Entre los valores tenemos:</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">&N </span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> Nombre elemento - &N se sustituye por el nombre del elemento de </span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> la lista junto al que se tecleó la opción. </span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">&L </span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> Nombre biblioteca - Si está trabajando con bibliotecas, &L se </span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> sustituye por QSYS. Si está trabajando con objetos o miembros, </span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> &L se sustituye por el nombre de la biblioteca que contiene </span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> estos objetos o miembros. </span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Para conocer los demás valores solo pulsar F1 en el campo MANDATO de cualquiera de las pantallas de las opciones.</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Una vez que ya tenemos nuestro archivo de opciones preparado, dentro</span><span lang="ES-PE"> </span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">del PDM pulsar F18= Cambiar valores por omisión, para indicar al sistema que tome el archivo de opciones de nuestra librería personal.</span></div><span lang="ES-PE" style="font-family: Calibri, sans-serif; font-size: 11pt; line-height: 115%;"><br clear="all" style="mso-special-character: line-break; page-break-before: always;" /></span><br />
<div class="MsoNormal"><br />
</div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 402.3pt;" valign="top" width="536"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Cambiar valores por omisión </span></b></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Teclee elecciones, pulse Intro. </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Biblioteca de objetos . . . *SRCLIB Nombre, *CURLIB, *SRCLIB </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Sustituir objeto . . . . . . N Y=Sí, N=No </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Compilar por lotes . . . . . N Y=Sí, N=No </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Ejecutar por lotes . . . . . N Y=Sí, N=No </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Salvar val omisión sesión . Y Y=Sí, N=No </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Opción Salvar/Restaurar . . 1 1=Individual, 2=Todos </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Descripción de trabajo . . . QBATCH Nombre, *USRPRF, F4 para lista </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Biblioteca . . . . . . . . *LIBL Nombre, *CURLIB, *LIBL </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Cambiar tipo y texto . . . . N Y=Sí, N=No </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Archivo de opciones . . . . <span style="background-clip: initial; background-color: yellow; background-origin: initial;">QAUOOPT</span> Nombre </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Biblioteca . . . . . . . . <span style="background-clip: initial; background-color: yellow; background-origin: initial;">MILIBRERIA</span> Nombre, *CURLIB, *LIBL </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Miembro . . . . . . . . . . <span style="background-clip: initial; background-color: yellow; background-origin: initial;">QAUOOPT</span> Nombre </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Modalid pantalla completa . N Y=Sí, N=No </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> Más... </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> F3=Salir F4=Solicitud F5=Renovar F12=Cancelar </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 8pt;"> </span></div></td></tr>
</tbody></table><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;"></span><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;"><div class="MsoNormal" style="background: white; margin: 0cm 0cm 0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma; font-size: 10pt; mso-ansi-language: ES-PE;">O ejecutar el comando:</span></div><div class="MsoNormal" style="background: white; margin: 0cm 0cm 0pt; text-align: justify;"><br />
</div><div class="MsoNormal" style="background: white; margin: 0cm 0cm 0pt; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma; font-size: 10pt; mso-ansi-language: ES-PE;"><span style="background-color: black; color: lime;">==> CHGPDMDFT USER(MIUSUARIO) FILE(MILIBRERIA/QAUOOPT)</span></span><br />
</div></span><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 13px; line-height: 14px;">Nota: si actualizas la tabla estando dentro de cualquiera de las opciones del PDM y no funciona la opción que creaste o cambiaste, <strong>salir del PDM y entrar nuevamente con STRPDM</strong> para que el sistema cargue nuestra tabla de opciones personalizada.</span> <br />
<div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">De esta manera, si deseo realizar un comando RUNQRY al archivo Clientes, bastará colocarme en el fuente y ejecutar la opción RQ.</span></div><div class="MsoNormal"><br />
</div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 395.25pt;" valign="top" width="527"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> Trabajar con Miembros utilizando PDM </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> Archivo . . . . . QPFSRC </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> Biblioteca . . MILIBRERIA Situar en . . . . . . </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> Teclee opciones, pulse Intro. </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> 2=Editar 3=Copiar 4=Suprimir 5=Visualizar 6=Imprimir 7=Redenominar </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> 8=Ver descripción 9=Salvar 13=Cambiar texto 14=Compilar 15=Crear módulo...</span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> Opc Miembro Tipo Texto </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> <b style="mso-bidi-font-weight: normal;"><u><span style="background-clip: initial; background-color: yellow; background-origin: initial;">RQ</span></u><span style="background-clip: initial; background-color: yellow; background-origin: initial;"> CLIENTES PF</span> </b></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> Parámetros o mandato </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> ===> </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> F3=Salir F4=Solicitud F5=Renovar F6=Crear </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> F9=Recuperar F10=Entrada mandatos F23=Más opciones F24=Más teclas </span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 8pt;"> </span></div></td></tr>
</tbody></table><div class="MsoNormal"><br />
<br />
<div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Con esto podremos resumir el uso de los comandos que mas usamos haciendo uso de solo 2 letras:</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span class="Apple-style-span" style="line-height: 14px;"></span></span><br />
<div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: "Tahoma", "sans-serif"; font-size: 10pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;">Si deseamos borrar todos los archivos del spool registraremos en nuestro archivo de opciones la opción</span></span></div><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES-PE" style="color: #1f497d; font-family: "Tahoma", "sans-serif"; font-size: 10pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;"><br />
</span></span></div></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b>Opción Mandato </b></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b> <u>DE</u> DLTSPLF FILE(*SELECT)</b> </span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Ver mis trabajos activos.</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b>Opción Mandato </b></span></div><div class="MsoNormal"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b> <u>WU</u> WRKUSRJOB STATUS(*ACTIVE)</b> </span></div></div><br />
<div class="MsoNormal" style="background: white; margin: 0cm 0cm 0pt; text-align: justify;"><br />
</div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com2tag:blogger.com,1999:blog-3031825386943356438.post-19825353524096780502011-03-16T19:48:00.000-07:002011-03-16T19:48:50.726-07:00Sumar / Restar Fechas en Cobol AS400 (Function Add-Duration SubTract-Duration)<div class="MsoNormal"></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: "Tahoma","sans-serif"; font-size: 10.0pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;">Asi como el RPGLE posee funciones de fechas, la versión ILE del Cobol no se queda atrás. Aquí un ejemplo de cómo sumar, restar variables de fechas.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: "Tahoma","sans-serif"; font-size: 10.0pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: "Tahoma","sans-serif"; font-size: 10.0pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;">Al igual que en Rpgle se puede operar en Días, Meses y Años. Para mas detalles sobre los diferentes formatos y funciones de fechas lo encontrarán en los manuales on-line de IBM</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: "Tahoma","sans-serif"; font-size: 10.0pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: "Tahoma","sans-serif"; font-size: 10.0pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span class="Apple-style-span" style="color: black; font-family: 'Times New Roman'; font-size: small; line-height: normal;"><a href="http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c0925403.pdf">http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c0925403.pdf</a></span></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: "Tahoma","sans-serif"; font-size: 10.0pt; line-height: 115%; mso-ansi-language: ES-PE; mso-themecolor: text2;"><br />
</span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 452.7pt;" valign="top" width="604"> <div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>WORKING-STORAGE SECTION.<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>* <i style="mso-bidi-font-style: normal;">Variables varias</i><span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>Var-Fecha-Work<span style="mso-spacerun: yes;"> </span>PIC 9(8) VALUE 20110129. <span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>FECHA-MENOS-180-DIAS<span style="mso-spacerun: yes;"> </span>PIC 9(8).<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>FECHA-MAS-180-DIAS<span style="mso-spacerun: yes;"> </span>PIC 9(8).<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>DIFERENCIA-FECHAS<span style="mso-spacerun: yes;"> </span>PIC 9(6).<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>VAR-FECHA<span style="mso-spacerun: yes;"> </span>PIC 9(8).<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>FECHA-JULIANA<span style="mso-spacerun: yes;"> </span>PIC 9(7).<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>* <i style="mso-bidi-font-style: normal;">Variables tipo Fecha</i><span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>Fec-dmyy<span style="mso-spacerun: yes;"> </span>Format Date<span style="mso-spacerun: yes;"> </span>"%d%m@Y".<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>Fec-yymd<span style="mso-spacerun: yes;"> </span>Format Date<span style="mso-spacerun: yes;"> </span>"@Y%m%d".<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>Fec-AAmd<span style="mso-spacerun: yes;"> </span>Format Date<span style="mso-spacerun: yes;"> </span>"@Y%m%d"<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Values "20110201".<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>Fecha-Actual<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>Format Date<span style="mso-spacerun: yes;"> </span>"@Y%m%d".<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>PROCEDURE DIVISION.<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>INICIO.<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Move<span style="mso-spacerun: yes;"> </span>Var-Fecha-Work<span style="mso-spacerun: yes;"> </span>To<span style="mso-spacerun: yes;"> </span>Fec-yymd<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Move<span style="mso-spacerun: yes;"> </span>Fec-yymd<span style="mso-spacerun: yes;"> </span>To<span style="mso-spacerun: yes;"> </span>Fec-dmyy<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>* <b style="mso-bidi-font-weight: normal;">Fecha Actual del Sistema<span style="mso-spacerun: yes;"> </span><o:p></o:p></b></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>MOVE FUNCTION CURRENT-DATE TO<span style="mso-spacerun: yes;"> </span>FECHA-ACTUAL<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>ACCEPT VAR-FECHA FROM DATE YYYYMMDD.<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>ACCEPT FECHA-JULIANA<span style="mso-spacerun: yes;"> </span>FROM DATE YYYYDDD.<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>* <b style="mso-bidi-font-weight: normal;">Restando Días</b><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>MOVE FUNCTION SUBTRACT-DURATION (Fec-yymd DAYS 180)<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>TO FECHA-MENOS-180-DIAS<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>* <b style="mso-bidi-font-weight: normal;">Sumando Días</b><span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>MOVE FUNCTION ADD-DURATION (Fec-yymd DAYS 180)<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>TO FECHA-MAS-180-DIAS<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>* <b style="mso-bidi-font-weight: normal;">Diferencia en días entre 2 fechas</b><span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>COMPUTE<span style="mso-spacerun: yes;"> </span>DIFERENCIA-FECHAS =<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>FUNCTION FIND-DURATION (Fec-yymd Fec-AAmd DAYS) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="font-family: "Courier New"; font-size: 9.0pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>STOP RUN.<span style="mso-spacerun: yes;"> </span><o:p></o:p></span></div></td> </tr>
</tbody></table><div class="MsoNormal" style="text-align: justify;"><br />
</div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-10255439698883708402011-03-09T20:02:00.000-08:002011-03-09T20:08:48.153-08:00Debug con pantalla 27x132 (ADDENVVAR)<div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="line-height: 14px;"></span></span></div><div class="MsoNormal" style="color: #1f497d; font-size: small;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Otra buena práctica para aprovechar al máximo el comando de depuración es presentar la pantalla a 27x132. Esto es beneficioso cuando depuramos fuentes de programas con ancho de código extenso como los programas Cobol.<o:p></o:p></span></span><br />
<span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span></div><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"> </span><br />
<div class="MsoNormal" style="color: #1f497d; font-size: small;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="font-size: 13px;">Esto se logra agregando una variable de entorno y seguidamente invocar al comando STRDBG</span></span></div><div class="MsoNormal" style="color: #1f497d; font-size: small;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="apple-style-span"><span style="color: black; font-size: 10pt; line-height: 115%;"><br />
</span></span></span></div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="apple-style-span"><span style="background-color: black; line-height: 115%;"><span class="Apple-style-span" style="color: lime;">==> ADDENVVAR ENVVAR(ILE_DEBUGGER_1) VALUE(ALLOW_WIDE_SCREEN) LEVEL(*JOB) REPLACE(*YES)</span></span><span class="Apple-style-span" style="color: #1f497d;"><o:p></o:p></span></span></span></div><div class="MsoNormal" style="color: #1f497d;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;"><br />
</span></span></div><div class="MsoNormal" style="color: #1f497d;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Esta variable de entorno la podemos incluir en la carga de un programa inicial o crear una opción en el PDM que ejecute un CL, la agregue y seguidamente invoque al STRDBG.<o:p></o:p></span></span></div><div class="MsoNormal" style="color: #1f497d; font-size: small;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></span></div><div class="MsoNormal" style="color: #1f497d; font-size: small;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span></span></div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Pantalla Debug 24x80<o:p></o:p></span></b></span></div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></b></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgNACxTN_k0Rg9dRGiduyyVmwjnQ7Lh0mtFcMvUw2ZNAjb_hqOCYOWCSvAsh1CbrHMW1xfsOyvbaJ5MPj8hQCZv_cUlh2uSuWXJW65_bdz1ymjsfJxenUcv3MJlpropwnyUYWvWecfgqguX/s1600/Pantalla_Debug_24x80.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="209" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgNACxTN_k0Rg9dRGiduyyVmwjnQ7Lh0mtFcMvUw2ZNAjb_hqOCYOWCSvAsh1CbrHMW1xfsOyvbaJ5MPj8hQCZv_cUlh2uSuWXJW65_bdz1ymjsfJxenUcv3MJlpropwnyUYWvWecfgqguX/s320/Pantalla_Debug_24x80.JPG" width="320" /></a><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"></span></div><div class="separator" style="clear: both; text-align: center;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"></span></b></span><br />
<div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;">Pantalla Debug 27x132<o:p></o:p></span></b></span></b></span></div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></b></span></b></span></div><div class="separator" style="clear: both; text-align: center;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjnMkhK-OsZti-l9OnnOSSRdQFbszuZoZMwfy-9zdCR4nzRWHPO18GoDcAVU8-NzjYmvjZEuTmpiRaRf7_HmGuNOdP1pzLnGl_yeScGBoqjzqq6KjttabVZswOxN1UHZv0IDvZmvOq_EZq2/s1600/Pantalla_Debug_27x132.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="233" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjnMkhK-OsZti-l9OnnOSSRdQFbszuZoZMwfy-9zdCR4nzRWHPO18GoDcAVU8-NzjYmvjZEuTmpiRaRf7_HmGuNOdP1pzLnGl_yeScGBoqjzqq6KjttabVZswOxN1UHZv0IDvZmvOq_EZq2/s320/Pantalla_Debug_27x132.JPG" width="320" /></a></span></b></span></div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"><br />
</span></b></span></b></span></div><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 10pt; line-height: 115%;"> </span></b></span></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-52841089770958854302011-03-09T19:19:00.000-08:002011-03-09T19:33:40.963-08:00Debug a programa sometido AS400 (STRSRVJOB - STRDBG)<div class="ecxmsonormal" style="line-height: 11.5pt; margin-bottom: .0001pt; margin: 0cm;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"></span></div><div class="ecxmsonormal" style="line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm;"></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">El DEBUG es una herramienta de gran utilidad para los desarrolladores, eso lo sabemos bien, pero la manera de sacarle provecho es lo que mas cuenta.<o:p></o:p></span></span></div><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"> </span><br />
<div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">“Debagear” un programa interactivamente casi todos los que programamos lo hemos hecho, pero a veces surgen cosas imprevistas cuando lo procesamos por lotes. <o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Aquí los pasos para dar seguimiento y depurar a un programa ejecutado por lotes por medio de los comando STRSRVJOB y STRDBG.</span><span style="color: #2a2a2a;"><o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;"><b>1.- Obviamente</b> <b>el programa debe estar compilado con el parámetro necesario para ser</b></span><b><span style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="color: #2a2a2a; font-size: x-small;"> </span></span><span class="Apple-style-span" style="color: navy; font-size: 13px;">Depurado.</span></b></span></div><div class="ecxmsonormal" style="margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><div style="color: navy; font-size: small; line-height: 11.5pt;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><span class="Apple-style-span" style="font-family: Tahoma, sans-serif; font-size: x-small;"><span class="Apple-style-span" style="line-height: 15px;"></span></span><br />
<div class="ecxmsonormal" style="margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify; text-indent: 36pt;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">Vistas de depuración . . . . . . DBGVIEW </span></span><span class="Apple-style-span" style="color: #2a2a2a;"><o:p></o:p></span></span></div><br />
<span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><span class="Apple-style-span" style="line-height: 15px;"><br />
</span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;"> 2.- Someter el programa<o:p></o:p></span></b></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Pero lo lanzamos en estado retenido HOLD(*YES), es decir, no se procesará el Job hasta que lo liberemos manualmente, Esto es para que nos demos tiempo para activar los servicios de depuración para el programa.<o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify; text-indent: 36pt;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">===> SBMJOB CMD(CALL PGM(MILIBRERIA/PROGRAMA)) JOB(PROGRAMA) JOBQ(QBATCH) HOLD(*YES)</span></span><span class="Apple-style-span" style="color: #2a2a2a;"><o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">3.- Arrancamos el servicio remota del trabajo sometido. <o:p></o:p></span></b></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify; text-indent: 36pt;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">===> STRSRVJOB JOB(336254/MIUSUARIO/PROGRAMA) </span></span><span class="Apple-style-span" style="color: #2a2a2a;"><o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">4.- Arrancamos el servicio debug<o:p></o:p></span></b></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify; text-indent: 36pt;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">===> STRDBG PGM(MILIBRERIA/PROGRAMA) UPDPROD(*YES) </span></span><span class="Apple-style-span" style="color: #2a2a2a;"><o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Cuando el fuente se muestre en pantalla presionar F12<o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Nota: Si se va a depurar un programa que no es ILE no olvidar colocar el parámetro</span><span style="color: #2a2a2a;"> </span><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">OPMSRC(*YES)</span><span style="color: #2a2a2a;"> <o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">5.- Liberamos el Job sometido.<o:p></o:p></span></b></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify; text-indent: 36pt;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">===> RLSJOB JOB(336254/MIUSUARIO/PROGRAMA) </span></span><span class="Apple-style-span" style="color: #2a2a2a;"><o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Cuando aparezca la pantalla “Arrancar Trabajo que Recibe Servicio” presionar F10 para “Entrada de Mandatos”<o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">6.- En la pantalla “Entrada de Mandatos” visualizamos el fuente del módulo<o:p></o:p></span></b></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify; text-indent: 36pt;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">===> DSPMODSRC</span></span><span class="Apple-style-span" style="color: #2a2a2a;"><o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Cuando el fuente del programa se visualize colocar un Punto de Interrupción y luego presionar F12<o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Cuando regresemos a la pantalla “Entrada de Mandatos” presionar F12<o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">7.- En la pantalla “Arrancar Trabajo que Recibe Servicio” presionar Enter<o:p></o:p></span></b></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">La ejecución del programa se detendrá en el punto de interrupción que colocamos y a partir de ahi podremos darle seguimiento en el Debug.<o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><b style="mso-bidi-font-weight: normal;"><span style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">8.- Luego de la depuración, se debe cerrar los servicios en el mismo orden en que fueron arrancados.<o:p></o:p></span></b></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify; text-indent: 36pt;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">===>ENDDBG</span></span><span class="Apple-style-span" style="color: #2a2a2a;"><o:p></o:p></span></span></div><div class="ecxmsonormal" style="font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify; text-indent: 36pt;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: lime;">===> ENDSRVJOB</span></span><span class="Apple-style-span" style="color: #2a2a2a;"><o:p></o:p></span></span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; line-height: 11.5pt; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="ecxmsonormal" style="color: navy; font-size: small; margin-bottom: 0.0001pt; margin-left: 0cm; margin-right: 0cm; margin-top: 0cm; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><div class="MsoNormal" style="color: navy; font-size: small; text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com4tag:blogger.com,1999:blog-3031825386943356438.post-59082617363825101252011-03-07T19:39:00.000-08:002011-03-08T06:31:28.920-08:00Pantallas en Cobol AS400 - DSPF WINDOW SUBFILE (Parte II)<div style="margin: 0cm; text-align: justify;"><div style="margin: 0cm; text-align: justify;"><div class="MsoNormal" style="margin-top: 9pt; mso-outline-level: 3;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: 13px;">En mi corto paso por este tipo de desarrollo, he podido conocer 2 maneras de trabajar las pantallas en Cobol AS400:</span></div><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><br />
</span></div><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">La <b style="mso-bidi-font-weight: normal;">primera</b>, usando la declaración externa de los registros del archivo de pantalla. Para esto declaramos en la DATA DIVISION su estructura externa. <span style="color: navy; font-family: Tahoma; font-size: 10pt;">En <personname productid="la DSPF" w:st="on">la DSPF</personname> usamos la palabra clave INDARA para indicadores, etc. Particularmente no utilizo esta modalidad.</span></span></span><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"></span><br />
<div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">En el siguiente link puedes tener un ejemplo completo:</span></div><div style="text-align: justify;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;"><span style="font-size: 10pt;"><a href="http://www-01.ibm.com/support/docview.wss?uid=nas1eb346e120708bd6b862568cc006440b2"><span style="color: purple; font-family: Times New Roman;">http://www-01.ibm.com/support/docview.wss?uid=nas1eb346e120708bd6b862568cc006440b2</span></a> </span></span><br />
<br />
</div></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 297.65pt;" valign="top" width="397"><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FILE-CONTROL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> SELECT PANTALLA ASSIGN WORKSTATION-PANTALLA-</span><span lang="ES" style="background-clip: initial; background-color: yellow; background-origin: initial; color: red; font-family: "Courier New"; font-size: 7pt;">SI</span><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"></span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ORGANIZATION IS TRANSACTION</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ACCESS IS DYNAMIC</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> RELATIVE KEY IS SFL-KEY</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> CONTROL-AREA IS WS-TECLA.</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FILE SECTION.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FD PANTALLA </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> LABEL RECORD STANDARD.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 REG-PANTALLA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: red; font-family: "Courier New"; font-size: 7pt;"> <span style="background-clip: initial; background-color: yellow; background-origin: initial;">COPY DDS-ALL-FORMATS OF PANTALLA.</span></span></div><div style="text-align: justify; text-indent: 35.4pt;"></div></td></tr>
</tbody></table><div style="margin: 0cm; text-align: justify;"></div><div style="margin: 0cm; text-align: justify;"><br />
<span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">La <b style="mso-bidi-font-weight: normal;">segunda</b>, usando una declaración interna de los registros del archivo de pantalla. Para esto declaramos estructuras internas y con la directiva COPY recuperamos la estructura de los registros de la pantalla. Esta es la manera con la que más he elaborado pantallas en Cobol y es la que a continuación mostraré como ejemplo.</span></span></div><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><br />
</span></div><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><u><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Fuente de archivo:</span></u></span></div><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><br />
</span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 218.05pt;" valign="top" width="291"><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A UNIQUE </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A R REGAULAS </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A CODAULA 5 </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A CURSO 25 </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A NUMALUMNOS 3 0 </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A TURNOAULA 1 </span></div><div style="margin: 0cm; text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A K CODAULA </span></div></td></tr>
</tbody></table><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><br />
</span></div><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><u><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Fuente de Archivo de pantalla:</span></u></span></div><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><br />
</span></div><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><br />
</span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 331.45pt;" valign="top" width="442"><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A DSPSIZ(24 80 *DS3 </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 27 132 *DS4) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A R REGDATA SFL </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 78 SFLNXTCHG </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A DCODAU 5A O 5 2 </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A DNOMCU 25 O 5 10 </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A R REGCTL SFLCTL(REGDATA) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A *DS3 SFLSIZ(0009) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A *DS4 SFLSIZ(0009) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A *DS3 SFLPAG(0009) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A *DS4 SFLPAG(0009) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A *DS3 WINDOW(4 20 17 45) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A *DS4 WINDOW(4 20 17 45) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A CA03(03 'SALIR') </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A PAGEDOWN(88 'PAGINA ARRIBA') </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A PAGEUP(66 'PAGINA ABAJO') </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A VLDCMDKEY(99 'ENTER') </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A OVERLAY </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A SFLCSRRRN(&RELNBR) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 74 SFLDSP </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 75 SFLDSPCTL </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 76 SFLCLR </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 77 SFLEND(*MORE) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A WDWTITLE((*TEXT ' TABLA AULA ') - </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A *CENTER) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 2 1'UBIQUE CURSOR LUEGO PULSE ENTER.' </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A COLOR(BLU) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A RELNBR 5S 0H </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A NROREG 4S 0H SFLRCDNBR </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A XCODAU 5A I 4 2COLOR(YLW) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 3 2'COD AULA' </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A DSPATR(HI) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 3 13'DESCRIPCION CURSO' </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A DSPATR(HI) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A R REGMSG </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A *DS3 WINDOW(REGCTL) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A *DS4 WINDOW(REGCTL) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A OVERLAY </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 79 MSGKEY1 10A O 16 1COLOR(BLU) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 15 1'__________________________________- </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A ___________' </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A COLOR(BLU) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 16 17'WWW.ISERIES-PERU.BLOGSPOT.COM' </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A COLOR(YLW) </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A R DUMMY </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A ASSUME </span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A OVERLAY </span></div><div style="margin: 0cm; text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">A 1 3' ' </span></div></td></tr>
</tbody></table><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><br />
</span></div><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><u><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Fuentes del programa Cobol:</span></u></span></div><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><br />
</span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 331.45pt;" valign="top" width="442"><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">IDENTIFICATION DIVISION.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*************************</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> AUTHOR. ISERIES-PERU.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PROGRAM-ID. PROGRAMA.</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*****************************</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">* CONSULTA WINDOW SUBFILE *</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*****************************</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ENVIRONMENT DIVISION.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">**********************</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> CONFIGURATION SECTION.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*---------------------*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> INPUT-OUTPUT SECTION.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*--------------------*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FILE-CONTROL.</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> SELECT PANTALLA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ASSIGN TO WORKSTATION-PANTALLA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ORGANIZATION IS TRANSACTION</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ACCESS IS DYNAMIC</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> RELATIVE KEY IS RECNO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FILE STATUS IS FS-PANTA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> SELECT AULA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ASSIGN TO DATABASE-AULA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ORGANIZATION IS INDEXED</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ACCESS IS DYNAMIC</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> RECORD KEY IS EXTERNALLY-DESCRIBED-KEY</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FILE STATUS IS FS-AULA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> DATA DIVISION.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">***************</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FILE SECTION.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*------------*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FD PANTALLA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 PANTREG PIC X(1000).</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FD AULA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> LABEL RECORD STANDARD.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 REG-AULA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> COPY DDS-ALL-FORMATS OF AULA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> WORKING-STORAGE SECTION.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*-----------------------*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 WS-FILE-STATUS.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 02 FS-AULA PIC XX.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 02 FS-PANTA PIC XX.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 RECNO PIC 9(6) VALUE 0.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 WS-LAST-RECNO PIC 9(6) VALUE 0.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 WS-LAST-CODAU PIC X(5) VALUE SPACES.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 TOT-REG PIC 9(6) VALUE 0.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 SW-FIN-PROGRAMA PIC 9(01) VALUE 0.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 FIN-PROGRAMA VALUE 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 SW-EOF-FILE PIC 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 EOF-FILE VALUE B"1".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 NO-EOF-FILE VALUE B"0".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 SW-BOF-FILE PIC 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 BOF-FILE VALUE B"1".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 NO-BOF-FILE VALUE B"0".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 WS-INDICATORS-SFL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 05 IN74 PIC 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 WRITE-SFL VALUE B"1".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 NO-WRITE-SFL VALUE B"0".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 05 IN75 PIC 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 WRITE-CTL VALUE B"1".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 NO-WRITE-CTL VALUE B"0".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 05 IN76 PIC 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 CLEAR-SFL VALUE B"1".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 NO-CLEAR-SFL VALUE B"0".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 05 IN77 PIC 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 END-SFL VALUE B"1".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 NO-END-SFL VALUE B"0".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 WS-INDICATORS-MSG.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 05 IN79 PIC 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 DSP-MSGKEY VALUE B"1".</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 WS-INDICATORS-CTL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 05 IN03 PIC 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 KEY-F3 VALUE B"1".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 05 IN66 PIC 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 PAGE-UP VALUE B"1".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 05 IN88 PIC 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 PAGE-DOWN VALUE B"1".</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 05 IN99 PIC 1.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 88 KEY-ENTER VALUE B"0".</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">* Pantalla Subfile Data</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 REG-OUTPUT-SUBFILE-DATA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> COPY DDS-REGDATA-O OF PANTALLA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 REG-INPUT-SUBFILE-DATA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> COPY DDS-REGDATA-I OF PANTALLA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">* Pantalla Subfile Control</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 REG-OUTPUT-SUBFILE-CTRL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> COPY DDS-REGCTL-O OF PANTALLA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 REG-INPUT-SUBFILE-CTRL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> COPY DDS-REGCTL-I OF PANTALLA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">* Pantalla Subfile Mensajes</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 REG-OUTPUT-SUBFILE-MSG.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> COPY DDS-REGMSG-O OF PANTALLA.</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> LINKAGE SECTION.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*---------------*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> 01 PARM-CODAULA PIC X(5).</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PROCEDURE DIVISION USING PARM-CODAULA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">********************</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PRINCIPAL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*----------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM INICIO.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM PANTALLA-SFL UNTIL FIN-PROGRAMA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM FIN.</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> INICIO.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*-------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> OPEN I-O PANTALLA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> INPUT AULA.</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM LLENA-SUBFILE.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FIN.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*----</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> CLOSE AULA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PANTALLA.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> STOP RUN.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PANTALLA-SFL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM MUESTRA-SFL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE CORR REGCTL-I-INDIC TO WS-INDICATORS-CTL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> EVALUATE TRUE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> WHEN KEY-F3</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE 1 TO SW-FIN-PROGRAMA</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> WHEN PAGE-UP</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM RUTINA-PAGE-UP</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> WHEN PAGE-DOWN</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM RUTINA-PAGE-DOWN</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> WHEN KEY-ENTER</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM VALIDATE-ENTRY</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-EVALUATE.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> INICIALIZA-PANTALLAS.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*---------------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> INITIALIZE REGCTL-I</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> REGCTL-O</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> INITIALIZE REGDATA-I</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> REGDATA-O</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> INITIALIZE REGMSG-O</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE SPACES TO REG-OUTPUT-SUBFILE-CTRL</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> REG-OUTPUT-SUBFILE-DATA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> REG-OUTPUT-SUBFILE-MSG</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE ZEROES TO RECNO</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> SET NO-WRITE-SFL</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> NO-END-SFL</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> WRITE-CTL</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> CLEAR-SFL TO TRUE</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM GRABA-SUBFILE</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> SET NO-CLEAR-SFL</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> NO-BOF-FILE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> NO-EOF-FILE TO TRUE.</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MUESTRA-SFL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*--------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM MUESTRA-TECLAS</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM GRABA-SUBFILE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM LEE-CONTROL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> GRABA-SUBFILE.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*-------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE CORR WS-INDICATORS-SFL TO REGCTL-O-INDIC.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> WRITE PANTREG FROM REG-OUTPUT-SUBFILE-CTRL</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FORMAT IS "REGCTL"</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-WRITE.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> LEE-CONTROL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*-------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> READ PANTALLA INTO REG-INPUT-SUBFILE-CTRL</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FORMAT IS "REGCTL"</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-READ.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE CORR REGCTL-I-INDIC TO WS-INDICATORS-SFL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MUESTRA-TECLAS.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*-------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE "F3=Salir" TO MSGKEY1 OF REGMSG-O</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> SET DSP-MSGKEY TO TRUE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE CORR WS-INDICATORS-MSG TO REGMSG-O-INDIC</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> WRITE PANTREG FROM REG-OUTPUT-SUBFILE-MSG</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FORMAT IS "REGMSG"</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-WRITE.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> LLENA-SUBFILE.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM INICIALIZA-PANTALLAS.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM LLENA-SUBFILE-LOOP UNTIL EOF-FILE OR</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> RECNO EQUAL TO 09</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> IF RECNO GREATER THAN ZEROES</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE RECNO TO WS-LAST-RECNO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE 1 TO NROREG OF REGCTL-O</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> SET WRITE-SFL TO TRUE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-IF.</span></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> LLENA-SUBFILE-LOOP.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*-----------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> READ AULA NEXT RECORD</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> AT END SET EOF-FILE END-SFL TO TRUE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-READ.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> IF NO-EOF-FILE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE CODAULA OF REG-AULA TO DCODAU OF REGDATA-O</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE CURSO OF REG-AULA TO DNOMCU OF REGDATA-O</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ADD 1 TO RECNO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> WRITE SUBFILE PANTREG</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FROM REG-OUTPUT-SUBFILE-DATA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FORMAT IS "REGDATA"</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-WRITE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ELSE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> READ AULA LAST RECORD</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> AT END SET EOF-FILE TO TRUE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-READ</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-IF.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> RUTINA-PAGE-DOWN.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*----------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> IF NO-EOF-FILE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM LLENA-SUBFILE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-IF.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> RUTINA-PAGE-UP.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*----------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> IF WS-LAST-RECNO IS GREATER THAN ZERO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> COMPUTE TOT-REG = 9 + WS-LAST-RECNO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE ZEROES TO RECNO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM LEE-ANTERIOR UNTIL BOF-FILE OR</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> RECNO EQUAL TO TOT-REG</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM LLENA-SUBFILE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-IF.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> LEE-ANTERIOR.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*-------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> READ AULA PRIOR RECORD</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> AT END</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> SET BOF-FILE TO TRUE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> START AULA KEY GREATER OR EQUAL TO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> EXTERNALLY-DESCRIBED-KEY</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-START</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> NOT END</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> ADD 1 TO RECNO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-READ.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> VALIDATE-ENTRY.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*---------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> IF XCODAU OF REGCTL-I NOT EQUAL TO SPACES</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE CODAULA OF REG-AULA TO WS-LAST-CODAU</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE XCODAU OF REGCTL-I TO CODAULA OF REG-AULA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> START AULA KEY GREATER OR EQUAL TO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> EXTERNALLY-DESCRIBED-KEY</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> INVALID KEY</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE WS-LAST-CODAU TO CODAULA OF REG-AULA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> START AULA KEY GREATER OR EQUAL TO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> EXTERNALLY-DESCRIBED-KEY</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-START</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> NOT INVALID KEY</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM LLENA-SUBFILE</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-START</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-IF.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM LEE-REGISTRO-SFL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> LEE-REGISTRO-SFL.</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;">*-------------------</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> IF RELNBR OF REGCTL-I IS GREATER THAN ZERO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE RELNBR OF REGCTL-I TO RECNO</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> READ SUBFILE PANTALLA RECORD</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> INTO REG-INPUT-SUBFILE-DATA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> FORMAT IS "REGDATA"</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> NOT INVALID KEY</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> MOVE DCODAU OF REGDATA-O TO PARM-CODAULA</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> PERFORM FIN</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-READ</span></div><div style="text-align: justify;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 7pt;"> END-IF.</span></div><div style="text-align: justify;"><br />
</div><div style="margin: 0cm; text-align: justify;"><br />
</div></td></tr>
</tbody></table><div style="margin: 0cm; text-align: justify;"><span class="Apple-style-span" style="color: navy; font-family: Tahoma, sans-serif; font-size: x-small;"><br />
</span></div></div></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com3tag:blogger.com,1999:blog-3031825386943356438.post-12602860320894209932011-03-07T18:08:00.000-08:002011-03-09T05:58:28.330-08:00Pantallas en Cobol AS400 - DSPF WINDOW SUBFILE (Parte I)<div style="margin: 0cm; text-align: justify;"><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Implementar pantallas en COBOL es poco común hoy en día, pero aún hay empresas que tienen sus sistemas (aplicaciones interactivas) desarrollados en este lenguaje.</span><span style="color: black; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm; text-align: justify;"><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Por experiencia propia, les comento que al principio me pareció un trabajo demasiado pesado. Venía de programar pantallas en RPG, por lo que adaptarme me demandó un poco de tiempo. Considerando que desde ya, construir pantallas es una tarea ardua debido a la gran cantidad de validaciones que hay que considerar, esto dependiendo de la complejidad de su funcionalidad.</span><span style="color: black; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm; text-align: justify;"><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Para dar un ejemplo a lo que me refiero: En un programa RPG se declara el archivo de pantalla en una sola línea del programa, pero en Cobol en mas de 5 líneas. Sin contar la declaración del registro en<span class="apple-converted-space"> </span><personname productid="la DATA DIVISION." u2:st="on"><personname productid="la DATA" u2:st="on">la DATA<span class="apple-converted-space"></span></personname> </personname></span>DIVISION.<span style="color: black; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm; text-align: justify;"><br />
</div><div style="margin: 0cm; text-align: justify;"><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Creo que no soy el único que piensa que desarrollar pantallas en RPG es más rápido, ya que nos ahorramos tiempo en la codificación. Aunque hacerlo en Cobol tiene sus ventajas, puesto que la codificación es más ordenada y legible, esto hace que el mantenimiento a los programas no sea tan complicado como se piensa en un primer momento. Particularmente, creo que leer un programa en Cobol es más fácil que leer un programa RPG.</span><span style="color: black; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm; text-align: justify;"><br />
</div><div style="margin: 0cm; text-align: justify;"><b><i><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Declaración de archivo de Pantalla:</span></i></b><span style="color: black; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm; text-align: justify;"><br />
</div><div style="margin: 0cm; text-align: justify;"><i><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">En RPG</span></i><span style="color: black; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm; text-align: justify;"><br />
</div><div style="margin: 0cm; text-align: justify; text-indent: 35.4pt;"><span lang="ES" style="color: navy; font-family: "Courier New"; font-size: 10pt;">FPANTALLA CF E WORKSTN</span><span style="color: black; font-family: "Courier New"; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm; text-align: justify;"><br />
</div><div style="margin: 0cm; text-align: justify;"><i><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">En Cobol</span></i><span style="color: black; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm; text-align: justify;"><br />
</div><div style="margin: 0cm 0cm 0cm 35.4pt; text-align: justify;"><span lang="EN-GB" style="color: navy; font-family: "Courier New"; font-size: 10pt;">SELECT PANTALLA </span><span style="color: black; font-family: "Courier New"; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm 0cm 0cm 35.4pt; text-align: justify;"><span lang="EN-GB" style="color: navy; font-family: "Courier New"; font-size: 10pt;"> ASSIGN TO WORKSTATION-PANTALLA </span><span style="color: black; font-family: "Courier New"; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm 0cm 0cm 35.4pt; text-align: justify;"><span lang="EN-GB" style="color: navy; font-family: "Courier New"; font-size: 10pt;"> ORGANIZATION IS TRANSACTION </span><span style="color: black; font-family: "Courier New"; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm 0cm 0cm 35.4pt; text-align: justify;"><span lang="EN-GB" style="color: navy; font-family: "Courier New"; font-size: 10pt;"> ACCESS IS DYNAMIC </span><span style="color: black; font-family: "Courier New"; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm 0cm 0cm 35.4pt; text-align: justify;"><span lang="EN-GB" style="color: navy; font-family: "Courier New"; font-size: 10pt;"> RELATIVE KEY IS RECNO </span><span style="color: black; font-family: "Courier New"; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm 0cm 0cm 35.4pt; text-align: justify;"><span lang="EN-GB" style="color: navy; font-family: "Courier New"; font-size: 10pt;"> FILE STATUS IS FS-PANT. </span><span style="color: black; font-family: "Courier New"; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm; text-align: justify;"><br />
</div><div style="margin: 0cm; text-align: justify;"><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Aquí, un aporte a aquellos que buscan información para implementar pantallas en Cobol.</span><span style="color: black; font-size: 13.5pt;"></span></div><br />
<div style="margin: 0cm; text-align: justify;"><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;">Basta con ver la figura para comprender la funcionalidad. Se muestra información de un archivo, visualizando los datos en una pantalla Window Subfile, con posicionamiento de consulta, la funcionalidad de paginación es controlada dentro del programa y hacemos lectura a los registros del Subfile por posición del cursor para devolver el código en parámetro.</span><span style="color: black; font-size: 13.5pt;"></span></div><div style="margin: 0cm; text-align: justify;"><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5PYkhUOnJ10m2VfmPbAneZsFPLz4eA0gVJ1gYs2esE7hx4VYhFvEY9u3Xl6Ubj3XB_3N_ID-BiP8eb_Qso-LUkv5_eeWWfszSxG9XwWZNP9zmcl3NjqM5E9TgOiep3qCA9OMHcmljuyep/s1600/Pantalla_Subfile_Cobol.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="273" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5PYkhUOnJ10m2VfmPbAneZsFPLz4eA0gVJ1gYs2esE7hx4VYhFvEY9u3Xl6Ubj3XB_3N_ID-BiP8eb_Qso-LUkv5_eeWWfszSxG9XwWZNP9zmcl3NjqM5E9TgOiep3qCA9OMHcmljuyep/s400/Pantalla_Subfile_Cobol.JPG" width="400" /></a></div><div style="margin: 0cm; text-align: justify;"><span lang="ES" style="color: navy; font-family: Tahoma, sans-serif; font-size: 10pt;"><br />
</span></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-26386813669813499342011-03-05T21:08:00.000-08:002011-03-05T21:25:05.239-08:00Recuperar en fuente instrucciones de objeto Query AS400 (RTVQMQRY *QRYDFN)<div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Los Querys del sistema son aplicativos que frecuentemente utilizamos para generar reportes y archivos. Este herramienta muchas veces nos evita tener que programar y con eso ahorramos tiempo de codificación.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Los Querys generados por el utilitario STRQRY son almacenados en el sistema como un objeto mas de tipo *QRYDFN, los cuales no poseen fuente alguno. <o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Si se da el caso que un archivo cambia su estructura, por ejemplo, en la longitud de un campo, y éste es muy utilizado no solo en programas sino también en Querys, que impacto tendría?. ¿Qué pasaría si tengo un Query que hace un SUBSTRING a un campo desde ciertas posiciones para obtener un dato, y si el campo cambia de longitud y el dato de posición, nuestro Query no generaría datos correctos.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Tendríamos que entrar al WRKQRY y visualizar uno por uno los querys que trabajan dicho campo del archivo y realizar los cambios necesarios.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Los Querys son simplemente comandos SELECT del SQL, y pueden ser recuperados a miembros fuentes. <o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span><br />
<span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">1.- Crear archivo fuente que contendrá los fuentes de los Querys.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';">CRTSRCPF FILE(MILIBRERIA/QRYSRC) <o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">2.- Recuperamos los objetos de tipo *QRYDFN de una librería especifica y lo derivamos a un archivo, el cual tendrá la lista de objetos Query. Esto lo hacemos con el comando DSPOBJD. Esto lo podremos hacer dentro del programa CL.<o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';">DSPOBJD OBJ(MILIBRERIA/*ALL) <o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify; text-indent: 36.0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';">OBJTYPE(*QRYDFN) <o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"> OUTPUT(*OUTFILE) <o:p></o:p></span></div><div class="MsoNormal" style="margin-left: 36.0pt; text-align: justify; text-indent: 36.0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';">OUTFILE(MILIBRERIA/MISQUERYS) <o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">3.- Procesamos el archivo que contiene la lista de objetos Query y recuperamos el fuente con el comando RTVQMQRY al archivo fuente creado en el paso 1.</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 416.5pt;" valign="top" width="555"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> PGM <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> DCLF FILE(MILIBRERIA/MISQUERYS) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> DSPOBJD OBJ(MILIBRERIA/*ALL) OBJTYPE(*QRYDFN) + <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> OUTPUT(*OUTFILE) OUTFILE(MILIBRERIA/MISQUERYS) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> LOOP: RCVF <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> MONMSG MSGID(CPF0864) EXEC(RETURN) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> RTVQMQRY QMQRY(&ODLBNM/&ODOBNM) + <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> SRCFILE(MILIBRERIA/QRYSRC) ALWQRYDFN(*YES) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> GOTO CMDLBL(LOOP) <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> <o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New';"><span class="Apple-style-span" style="font-size: xx-small;"> ENDPGM </span><span class="Apple-style-span" style="font-size: 9pt;"> <o:p></o:p></span></span></div></td> </tr>
</tbody></table><br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody> </tbody></table><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">4.- Entramos al archivo fuente donde se recuperaron los fuentes de los objetos Querys.</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxwvWg3Jsp4YpaiUfVsOuXVJeleY1Qyu5Cf2w08bsvsc3E7T9ATytcBA4y9dqtRfK7h_Gv1m1e5d1D4nc31gxAOT0Cj0sB3TrZK437QP0lbZTUduDa18YI5f3NVaaTOLJGpf1gNJvy9lkK/s1600/Archivo_Fuente_Querys.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxwvWg3Jsp4YpaiUfVsOuXVJeleY1Qyu5Cf2w08bsvsc3E7T9ATytcBA4y9dqtRfK7h_Gv1m1e5d1D4nc31gxAOT0Cj0sB3TrZK437QP0lbZTUduDa18YI5f3NVaaTOLJGpf1gNJvy9lkK/s320/Archivo_Fuente_Querys.JPG" width="320" /></a></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;">5.- Ahora que tenemos los fuentes simplemente buscamos con la opción 25 del PDM el campo que se modifico. Inclusive podremos generar una lista de los Querys que trabajan dicho campo. </span></div><div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiufdDF7rjnZlmn6qv2y1dlvtOuF1xkbIqdQTMwHpwQ-UTW8rcorfbBrIdv7Nxqvsg8Nod7fOW9mTjOAERe4evjSQhDqp0olkMpHQY54ozpjGnsH2gGXchHxxdtLrMUl4LW04Um4H7OKPN6/s1600/Opcion25_Strpdm.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="254" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiufdDF7rjnZlmn6qv2y1dlvtOuF1xkbIqdQTMwHpwQ-UTW8rcorfbBrIdv7Nxqvsg8Nod7fOW9mTjOAERe4evjSQhDqp0olkMpHQY54ozpjGnsH2gGXchHxxdtLrMUl4LW04Um4H7OKPN6/s320/Opcion25_Strpdm.JPG" width="320" /></a></div><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;">6.- Buscamos en todos los fuentes el campo que se modificó. </span></div><div class="MsoNormal" style="text-align: justify;"><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibrSmKLkuQbMPoV0kiPhwEU1bKAmm8ENKQnNKLqiAt0f6SXopgLMtRYLSO53HdT35pwiK8qSMhIRcd9yZ74dNzLx4XweQDCfXn2G88DYo5hhj4BdudJrCyR8zovYsNP3z_bf-lXjMAR5mp/s1600/Buscar_Campo.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibrSmKLkuQbMPoV0kiPhwEU1bKAmm8ENKQnNKLqiAt0f6SXopgLMtRYLSO53HdT35pwiK8qSMhIRcd9yZ74dNzLx4XweQDCfXn2G88DYo5hhj4BdudJrCyR8zovYsNP3z_bf-lXjMAR5mp/s320/Buscar_Campo.JPG" width="320" /></a></div><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhD-XmY3S42LwRIJ-9_NJpbKNLreh2ZgwNSpSyWNayprdD1zcW_Du6KtXWwaGAUNT0KGWBBvmCASzezzqCAsTSOLZVNQCBnKH-IkmNEvaosFTd8OiEtoRKOkWwhE2ivKWrJUVweOrs544aT/s1600/Campo_en_Fuente_Query.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="213" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhD-XmY3S42LwRIJ-9_NJpbKNLreh2ZgwNSpSyWNayprdD1zcW_Du6KtXWwaGAUNT0KGWBBvmCASzezzqCAsTSOLZVNQCBnKH-IkmNEvaosFTd8OiEtoRKOkWwhE2ivKWrJUVweOrs544aT/s400/Campo_en_Fuente_Query.JPG" width="400" /></a></div><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><br />
<div class="MsoNormal"></div></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-83059030383163200342011-03-05T19:49:00.000-08:002011-03-05T19:55:33.682-08:00Comparar fuentes de librerías en AS400 (CMPPFM)<div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: x-small;"></span></div><div class="MsoNormal" style="line-height: 14px;"></div><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"></span></div><div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">Esto lo puedes hacer usando la opción 54 desde la pantalla <b><i>Trabajar con Miembros utilizando PDM</i></b> y pulsando F13 para procesar toda la lista de fuentes, pero sería de manera interactiva y tendríamos que pulsar Enter a cada momento. Es necesario hacerlo de manera Batch si es que se tratan de muchos fuentes.<o:p></o:p></span></span></div></div><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"> </span><br />
<div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">Para comparar las versiones de fuentes (ya sean programas, archivos, etc.) de dos librerías diferentes utilizamos el comando CMPPFM desde un programa CL y monitoreamos los mensajes del sistema.<o:p></o:p></span></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">1.- Generamos en archivo la lista de miembros del archivo fuente que vamos a comparar con la librería de producción<o:p></o:p></span></span></div></div><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: black; background-image: initial; background-origin: initial; color: #92d050; font-family: Tahoma, sans-serif; line-height: 115%;"><br />
</span></span></div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: black; background-image: initial; background-origin: initial; color: lime; font-family: Tahoma, sans-serif; line-height: 115%;">DSPFD FILE(MILIBRERIA/QRPGLESRC) TYPE(*MBRLIST) OUTPUT(*OUTFILE) OUTFILE(MILIBRERIA/FUENTES)</span></span></div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="background-attachment: initial; background-clip: initial; background-color: black; background-image: initial; background-origin: initial; line-height: 115%;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: black; background-image: initial; background-origin: initial; color: lime; font-family: Tahoma, sans-serif; line-height: 115%;"></span></span><span lang="ES-PE" style="font-family: Tahoma, sans-serif; line-height: 115%;"><span class="Apple-style-span" style="color: lime;"> </span><span class="Apple-style-span" style="color: #1f497d;"><o:p></o:p></span></span></span></div><div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">2.- Generamos 2 archivos idénticos al anterior para depositar en ellos los fuentes diferentes y los fuentes que no existan en alguna de las 2 librerías.<o:p></o:p></span></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: black; background-image: initial; background-origin: initial; color: #92d050; font-family: Tahoma, sans-serif; line-height: 115%;"><br />
</span></span></div></div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: black; background-image: initial; background-origin: initial; color: lime; font-family: Tahoma, sans-serif; line-height: 115%;">CRTDUPOBJ OBJ(FUENTES) FROMLIB(JUANVASQ1) OBJTYPE(*FILE) NEWOBJ(DIFERENTES) <o:p></o:p></span></span></div><div class="MsoNormal"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: black; background-image: initial; background-origin: initial; color: lime; font-family: Tahoma, sans-serif; line-height: 115%;"><br />
</span></span><br />
<span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: black; background-image: initial; background-origin: initial; color: lime; font-family: Tahoma, sans-serif; line-height: 115%;">CRTDUPOBJ OBJ(FUENTES) FROMLIB(JUANVASQ1) OBJTYPE(*FILE) NEWOBJ(NOEXISTEN)</span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;"> <o:p></o:p></span></span></div><div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;"><br />
</span></span></div><div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">3.- Procesamos la lista de fuentes y comparamos los fuentes con el comando CMPPFM. Al haber una diferencia el sistema envía un mensaje informativo de código SPC6002 el cual lo “capturamos” y evaluamos para grabar en el archivo DIFERENTES.<o:p></o:p></span></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;"><br />
</span></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">4.- Monitoreamos los mensaje de excepción y los evaluamos para controlar los fuentes que no existan (Lo grabamos en archivo NO EXISTEN)<o:p></o:p></span></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">Aquí el fuente del programa.<span class="Apple-style-span" style="font-size: small;"><o:p></o:p></span></span></span></div></div><div class="MsoNormal" style="font-size: small;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 12pt; line-height: 115%;"><br />
</span></span></div><div class="MsoNormal" style="font-size: small;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 12pt; line-height: 115%;"></span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"> <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 452.7pt;" valign="top" width="604"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> PGM PARM(&LIBDESA &SRCDESA &LIBPROD &SRCPROD) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> DCL VAR(&LIBDESA) TYPE(*CHAR) LEN(10) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> DCL VAR(&SRCDESA) TYPE(*CHAR) LEN(10) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> DCL VAR(&LIBPROD) TYPE(*CHAR) LEN(10) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> DCL VAR(&SRCPROD) TYPE(*CHAR) LEN(10) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> DCL VAR(&MSGID) TYPE(*CHAR) LEN(7) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> DCLF FILE(QTEMP/FUENTES) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> DLTF FILE(QTEMP/FUENTES) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> MONMSG MSGID(CPF2105) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> DSPFD FILE(&LIBDESA/&SRCDESA) TYPE(*MBRLIST) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> OUTPUT(*OUTFILE) OUTFILE(QTEMP/FUENTES) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> CRTDUPOBJ OBJ(FUENTES) FROMLIB(QTEMP) OBJTYPE(*FILE) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> TOLIB(&LIBDESA) NEWOBJ(DIFERENTES) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> CRTDUPOBJ OBJ(FUENTES) FROMLIB(QTEMP) OBJTYPE(*FILE) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> TOLIB(&LIBDESA) NEWOBJ(NOEXISTEN) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> LOOP: <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <b>/* Lee Archivo que contiene la lista de Fuentes */</b><b> </b> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> RCVF <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> MONMSG MSGID(CPF0864) EXEC(RETURN) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"><b>/* Compara fuentes de ambas librerias */</b><b> </b> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> CMPPFM NEWFILE(&MLLIB/&MLFILE) NEWMBR(&MLNAME) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> OLDFILE(&LIBPROD/&SRCPROD) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> OLDMBR(&MLNAME) OUTPUT(*OUTFILE) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> OUTFILE(QTEMP/SALIDA) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> MONMSG MSGID(SPC5003 SPC5005 SPC5010 SPC5034) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> RCVMSG MSGTYPE(*LAST) MSGID(&MSGID) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <b> </b><b>/* Si no encuentra fuente en alguna libreria */</b><b> </b> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> IF COND(&MSGID *EQ 'SPC5003' *OR &MSGID *EQ + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> 'SPC5005' *OR &MSGID *EQ 'SPC5010' *OR + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> &MSGID *EQ 'SPC5034') THEN(CPYF + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> FROMFILE(QTEMP/FUENTES) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> TOFILE(&LIBDESA/NOEXISTEN) MBROPT(*ADD) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> INCREL((*IF MLNAME *EQ &MLNAME))) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> <b> </b><b>/* Si encuentra diferencia copia el registro */ <o:p></o:p></b></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"><b> /* a archivo de diferencias */</b><b> </b> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> IF COND(&MSGID *EQ 'SPC6002') THEN(CPYF + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> FROMFILE(QTEMP/FUENTES) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> TOFILE(&LIBDESA/DIFERENTES) MBROPT(*ADD) + <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> INCREL((*IF MLNAME *EQ &MLNAME))) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> GOTO CMDLBL(LOOP) <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><span lang="ES-PE" style="color: #1f497d; font-family: 'Courier New'; font-size: 9pt;"> ENDPGM <o:p></o:p></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;"><br />
</div></td> </tr>
</tbody></table><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span><br />
<div class="MsoNormal" style="color: #1f497d; font-size: small;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; font-size: 12pt; line-height: 115%;"><br />
</span></span></div><div class="MsoNormal" style="color: #1f497d;"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;"><u>Parámetros:</u><o:p></o:p></span></span></div></div><div class="MsoNormal" style="color: #1f497d;"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;"><br />
</span></span></div></div><div class="MsoNormal" style="color: #1f497d;"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">LIBDESA – Librería de desarrollo <o:p></o:p></span></span></div></div><div class="MsoNormal" style="color: #1f497d;"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">SRCDESA – Archivo fuente de desarrollo<o:p></o:p></span></span></div></div><div class="MsoNormal" style="color: #1f497d;"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">LIBPROD – Librería de Producción<o:p></o:p></span></span></div></div><div class="MsoNormal" style="color: #1f497d;"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">SRCPROD – Archivo fuente de Producción<o:p></o:p></span></span></div></div><div class="MsoNormal" style="color: #1f497d;"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: black; background-image: initial; background-origin: initial; color: #92d050; font-family: Tahoma, sans-serif; line-height: 115%;"><br />
</span></span></div></div><div class="MsoNormal"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="background-attachment: initial; background-clip: initial; background-color: black; background-image: initial; background-origin: initial; color: lime; font-family: Tahoma, sans-serif; line-height: 115%;">CALL MILIBRERIA/COMPARA PARM(‘MILIBRERIA’ ‘QRPGLESRC’ ‘PRODUCCION’ ‘QRPGLESRC’)</span><span lang="ES-PE" style="color: #92d050; font-family: Tahoma, sans-serif; line-height: 115%;"><o:p></o:p></span></span></div></div><div class="MsoNormal" style="color: #1f497d;"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;"><br />
</span></span></div></div><div class="MsoNormal" style="color: #1f497d;"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">Nota: Para la compilación del programa, previamente, crear el archivo FUENTES, luego puede ser eliminado.<o:p></o:p></span></span></div></div><div class="MsoNormal" style="color: #1f497d;"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif; line-height: 115%;">Si queremos saber que fuentes son idénticos, solo bastará crear un archivo que contenga los fuentes similares. Monitoreamos el códigos de mensaje SPC6001 y grabamos al archivo el registro.<o:p></o:p></span></span></div></div><div class="MsoNormal" style="color: #1f497d; font-size: small;"><div style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div></div><div class="MsoNormal" style="color: #1f497d; font-size: small;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-20790073476216736912011-03-04T19:51:00.000-08:002011-03-04T20:49:31.278-08:00Compilador COBOL FREE para PC<div class="MsoNormal"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;">Es sabido que el COBOL es uno de los lenguajes mas antiguos en la historia de la programación y con la venida de los sistema operativos con sus lenguajes visuales de interfaces graficas con mayor acogida por el público usuario se piensa que es un lenguajes de programación en desuso. En realidad, esta afirmación es totalmente equivocada. Puesto que, en las empresas donde los sistemas requieren gran capacidad de procesamiento por lotes (Batch), como entidades bancarias y empresas con sistemas MainFrames usan este Dinosaurio que se resiste a extinguir.</span></div><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"> </span><br />
<div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Tal vez ud. amigo lector tenga una cuenta de ahorros o mejor aún una tarjeta de crédito, pues es muy probable que el procesamiento de su información en la entidad bancaria a la que pertenece lo realiza un humilde programa hecho en COBOL.<o:p></o:p></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Si es ud. un seguidor de la programación estructurada y desea recordar o mejor aún incursionar en el aprendizaje de este lenguaje, que francamente ya no lo enseñan en las universidades ni institutos, puede optar en instalarse en su computador una versión libre del compilador COBOL.<o:p></o:p></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Ya sea, estando en iseries (AS400), VSam Cobol Vax, sistemas MainFrame, etc. nuestros programas cobol tienen un aspecto muy similar, las mismas divisiones, secciones, párrafos, etc. Solo cambian pequeñas cosas pero el resto es igual.<o:p></o:p></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">En el siguiente link </span><span style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; text-decoration: none;"><a href="http://www.netcobol.com/support/Download-Center">http://www.netcobol.com/support/Download-Center</a></span></span></span><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"> se puede descargar el compilador Cobol para Pc. Solo que previamente se debe registrar, es gratuito. El archivo ejecutable es COBOLV3.exe</span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Esta es la pantalla principal del SETUP.<o:p></o:p></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="separator" style="clear: both; text-align: center;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvLlMl_ydI-ZJ6tS4qmMM-Qkgj-kRqZ4Lxb9M0iqvgmH-aBtL5iOA_dPyBAPSVQuR4TuXWjrTS3FQN7fiTJRT_Sh4IoI-6pG5R3KzWpREsGZoPKw5qKjj0J_SBElVa7LkFvoBW4J93qAp8/s1600/Setup_Cobol_Pc.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="243" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvLlMl_ydI-ZJ6tS4qmMM-Qkgj-kRqZ4Lxb9M0iqvgmH-aBtL5iOA_dPyBAPSVQuR4TuXWjrTS3FQN7fiTJRT_Sh4IoI-6pG5R3KzWpREsGZoPKw5qKjj0J_SBElVa7LkFvoBW4J93qAp8/s320/Setup_Cobol_Pc.JPG" width="320" /></a></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">El SW que administra los proyectos cobol es el PROGRAMMING STAFF<o:p></o:p></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRICZueM1ifl_BWEy43RxPM0X7olSrxJZE9PyySg5l4SmnVz9nnf3QoZ-0_By7PbMKXghSFuy0C8B12DTe-v01mdVbtm2neYVFC67Hjcx8WFMtAPcE3G668nNsqw87RxdWTolxmVDB5xGJ/s1600/Sw_Cobol_Instalado.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="86" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRICZueM1ifl_BWEy43RxPM0X7olSrxJZE9PyySg5l4SmnVz9nnf3QoZ-0_By7PbMKXghSFuy0C8B12DTe-v01mdVbtm2neYVFC67Hjcx8WFMtAPcE3G668nNsqw87RxdWTolxmVDB5xGJ/s320/Sw_Cobol_Instalado.JPG" width="320" /></a></div><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><b><br />
</b></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><b>El Entorno de Desarrollo</b></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"></span></span><br />
<div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Como muestra la figura, se pueden ejecutar y hasta “debagear” los programas.<o:p></o:p></span></span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></span></div><div class="separator" style="clear: both; text-align: center;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5YyrjEKIKGtQxju7WEfCzn28NZ_D9yMZGKNcRbG7NyCSa5DoKwdE2ZCPtNYWUL2kTnkTMbPpYX2-0_A6NKMr5ENxJG-IPLar6hOjsW8-Ho1ca_lDwWLfRnJhmAQWqrCG36jEkb6oBmVAt/s1600/Opciones_Entorno_Desarrollo.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="169" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5YyrjEKIKGtQxju7WEfCzn28NZ_D9yMZGKNcRbG7NyCSa5DoKwdE2ZCPtNYWUL2kTnkTMbPpYX2-0_A6NKMr5ENxJG-IPLar6hOjsW8-Ho1ca_lDwWLfRnJhmAQWqrCG36jEkb6oBmVAt/s320/Opciones_Entorno_Desarrollo.JPG" width="320" /></a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5YyrjEKIKGtQxju7WEfCzn28NZ_D9yMZGKNcRbG7NyCSa5DoKwdE2ZCPtNYWUL2kTnkTMbPpYX2-0_A6NKMr5ENxJG-IPLar6hOjsW8-Ho1ca_lDwWLfRnJhmAQWqrCG36jEkb6oBmVAt/s1600/Opciones_Entorno_Desarrollo.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5YyrjEKIKGtQxju7WEfCzn28NZ_D9yMZGKNcRbG7NyCSa5DoKwdE2ZCPtNYWUL2kTnkTMbPpYX2-0_A6NKMr5ENxJG-IPLar6hOjsW8-Ho1ca_lDwWLfRnJhmAQWqrCG36jEkb6oBmVAt/s1600/Opciones_Entorno_Desarrollo.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a></span></span></div><div class="MsoNormal" style="text-align: justify;"><div style="text-align: center;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div style="text-align: center;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div style="text-align: center;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div style="text-align: center;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;">Al elegir el proyecto con cual trabajar, se invocará al editor.</span></div><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"> </span></span><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjzPCeoRBg3nohpf1txck-Xpe8RmQn6ADvVj9SGKeJ_oRG1R_TcNSxYGGfofAsJmqMVPNjz7-ZgsfD9hqgUPG0rK4HtbwEHWzHxZSUY_-6R4y-1xK42qk0F2GmKpNf14QjXNZlqCPbfbo-H/s1600/Entorno_Desarrollo_Cobol.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="322" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjzPCeoRBg3nohpf1txck-Xpe8RmQn6ADvVj9SGKeJ_oRG1R_TcNSxYGGfofAsJmqMVPNjz7-ZgsfD9hqgUPG0rK4HtbwEHWzHxZSUY_-6R4y-1xK42qk0F2GmKpNf14QjXNZlqCPbfbo-H/s400/Entorno_Desarrollo_Cobol.JPG" width="400" /></a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><b><br />
</b></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"></span><br />
<div class="MsoNormal" style="text-align: justify;"></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><b>El Editor Cobol</b></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><b><br />
</b></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;">El editor crea y guarda nuestros programas en un proyecto. En el ejemplo “PrimerCobol”</span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">HOLA.EXE - Ejecutable</span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"></span></span><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;">HOLA.COB - Fuente</span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">HOLA.MSG – Log de mensajes de la compilación<o:p></o:p></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">HOLA.OBJ – Versión generada al compilar, luego del linkeo genera el .exe<b><o:p></o:p></b></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLBiW3X0hdqRrmv1t0BFVM23O1vMosj69unpCol_PJFrPLSP7zXkJAQeXJpv-Hd9AphJf2_BmoCN7Ibl9KWJ98ZgLSaswfV3tSqjci0OWeC6BMNHO3FAzIwxVkaadsb2eGlj2G5vJBzRJd/s1600/Editor_Cobol.JPG" imageanchor="1" style="clear: left; display: inline !important; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="270" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLBiW3X0hdqRrmv1t0BFVM23O1vMosj69unpCol_PJFrPLSP7zXkJAQeXJpv-Hd9AphJf2_BmoCN7Ibl9KWJ98ZgLSaswfV3tSqjci0OWeC6BMNHO3FAzIwxVkaadsb2eGlj2G5vJBzRJd/s320/Editor_Cobol.JPG" width="320" /></a></span><br />
<div class="MsoListParagraphCxSpLast" style="mso-list: l0 level1 lfo1; mso-text-indent-alt: -18.0pt; text-align: justify; text-indent: -36.0pt;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span></div><div class="MsoListParagraphCxSpLast" style="mso-list: l0 level1 lfo1; mso-text-indent-alt: -18.0pt; text-align: justify; text-indent: -36.0pt;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Como se aprecia en el siguiente fuente, es casi lo mismo, inclusive he podido trabajar con </span><span style="color: #1f497d; font-family: Tahoma, sans-serif;">archivos planos.</span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijK80NDZW_qRxic_iIR6TxXYHDNffC6qBqGSySxLq0xXR78SA8EbYndiaPG9kVHpwPleiLyUR940BJXJiKS_OBR5veTpUzto5gm-jgq4DVTSUsWK8acCmh91CUjhfvotaovSQoUVN6Z0YK/s1600/Programa_Cobol_Editado.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijK80NDZW_qRxic_iIR6TxXYHDNffC6qBqGSySxLq0xXR78SA8EbYndiaPG9kVHpwPleiLyUR940BJXJiKS_OBR5veTpUzto5gm-jgq4DVTSUsWK8acCmh91CUjhfvotaovSQoUVN6Z0YK/s400/Programa_Cobol_Editado.JPG" width="356" /></a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijK80NDZW_qRxic_iIR6TxXYHDNffC6qBqGSySxLq0xXR78SA8EbYndiaPG9kVHpwPleiLyUR940BJXJiKS_OBR5veTpUzto5gm-jgq4DVTSUsWK8acCmh91CUjhfvotaovSQoUVN6Z0YK/s1600/Programa_Cobol_Editado.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijK80NDZW_qRxic_iIR6TxXYHDNffC6qBqGSySxLq0xXR78SA8EbYndiaPG9kVHpwPleiLyUR940BJXJiKS_OBR5veTpUzto5gm-jgq4DVTSUsWK8acCmh91CUjhfvotaovSQoUVN6Z0YK/s1600/Programa_Cobol_Editado.JPG" imageanchor="1"></a></div><div class="MsoNormal" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;">Este Sw nos brinda proyectos de ejemplo, inclusive un manual para aprender a crear nuestros propios proyectos.</span></div><div class="MsoNormal" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em; text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><b><br />
</b></span></div><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijK80NDZW_qRxic_iIR6TxXYHDNffC6qBqGSySxLq0xXR78SA8EbYndiaPG9kVHpwPleiLyUR940BJXJiKS_OBR5veTpUzto5gm-jgq4DVTSUsWK8acCmh91CUjhfvotaovSQoUVN6Z0YK/s1600/Programa_Cobol_Editado.JPG" imageanchor="1"> </a><br />
<div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="font-family: Tahoma, sans-serif;"><br />
</span></div><br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijK80NDZW_qRxic_iIR6TxXYHDNffC6qBqGSySxLq0xXR78SA8EbYndiaPG9kVHpwPleiLyUR940BJXJiKS_OBR5veTpUzto5gm-jgq4DVTSUsWK8acCmh91CUjhfvotaovSQoUVN6Z0YK/s1600/Programa_Cobol_Editado.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span class="Apple-style-span" style="-webkit-text-decorations-in-effect: none;"><br />
</span></span></a><br />
<div class="MsoNormal" style="text-align: justify;"><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<div class="MsoNormal" style="text-align: justify;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><b>Tutorial Power Cobol</b><o:p></o:p></span></div><div class="MsoNormal" style="text-align: justify;"><span style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d;"><a href="http://www.scribd.com/doc/519086/Curso-de-Power-Cobol">http://www.scribd.com/doc/519086/Curso-de-Power-Cobol</a></span></span><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"><o:p></o:p></span></div><br />
<br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5Xq_KT7__skZqaQ11PIFyxGaLDbosGA7U_B9YXFja5SW3eiHd8bjf6IAlvxDpk2Sbko6Bp8jp6uJ3YvB7jCoZ83UGKkhR_BcxhFGFcdJtFsdL_ktN65BtfVnmA-jTwm6zCncjZwYGePY7/s1600/Ruta_Sw_Cobol_Free.JPG" imageanchor="1" style="clear: left; display: inline !important; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5Xq_KT7__skZqaQ11PIFyxGaLDbosGA7U_B9YXFja5SW3eiHd8bjf6IAlvxDpk2Sbko6Bp8jp6uJ3YvB7jCoZ83UGKkhR_BcxhFGFcdJtFsdL_ktN65BtfVnmA-jTwm6zCncjZwYGePY7/s320/Ruta_Sw_Cobol_Free.JPG" width="178" /></a></span></div><div class="separator" style="clear: both; text-align: center;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span style="color: #1f497d; font-family: Tahoma, sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5Xq_KT7__skZqaQ11PIFyxGaLDbosGA7U_B9YXFja5SW3eiHd8bjf6IAlvxDpk2Sbko6Bp8jp6uJ3YvB7jCoZ83UGKkhR_BcxhFGFcdJtFsdL_ktN65BtfVnmA-jTwm6zCncjZwYGePY7/s1600/Ruta_Sw_Cobol_Free.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a></span></span></div><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><b>Un ejemplo de Ejecución.</b></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><b><br />
</b></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"></span><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi59WT78w2ugZA6K26jMm1p4NLGzWDeqCZVN3_ENYwE9ryFsSXKTCLK9imY1D78tTqro12dHLFzB2qL308nUZH0ynW96-CEqwZ979SZ13KPFo2-uh76A66qlLUQlb28yfe-klVpMk0LdY7o/s1600/Ejecucion_Programa_Cobol.JPG" imageanchor="1" style="clear: left; display: inline !important; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="382" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi59WT78w2ugZA6K26jMm1p4NLGzWDeqCZVN3_ENYwE9ryFsSXKTCLK9imY1D78tTqro12dHLFzB2qL308nUZH0ynW96-CEqwZ979SZ13KPFo2-uh76A66qlLUQlb28yfe-klVpMk0LdY7o/s400/Ejecucion_Programa_Cobol.JPG" width="400" /></a><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi59WT78w2ugZA6K26jMm1p4NLGzWDeqCZVN3_ENYwE9ryFsSXKTCLK9imY1D78tTqro12dHLFzB2qL308nUZH0ynW96-CEqwZ979SZ13KPFo2-uh76A66qlLUQlb28yfe-klVpMk0LdY7o/s1600/Ejecucion_Programa_Cobol.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br />
</a></div><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></span><br />
<span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span style="color: #1f497d; font-family: Tahoma, sans-serif;"></span></span><br />
<div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><span style="color: #1f497d; font-family: Tahoma, sans-serif;"><span lang="ES-PE" style="color: #1f497d; font-family: Tahoma, sans-serif;"></span></span></span></div><div class="MsoNormal" style="text-align: justify;"><span class="Apple-style-span" style="color: #1f497d; font-family: Tahoma, sans-serif;"><br />
</span></div><br />
</div></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com1tag:blogger.com,1999:blog-3031825386943356438.post-73343224261639774552011-03-02T18:16:00.000-08:002011-03-02T18:28:32.290-08:00DDS a Excel en AS400 (CPYTOIMPF)<div class="" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em; text-align: center;"></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt; text-align: left;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt; text-align: left;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt; text-align: left;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Cuantas veces hemos querido bajar información desde el as400 a la Pc., tablas, reportes, etc. Para manipular la información con Excel.</span></span></div><div class="MsoNormal" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Si deseamos pasar un archivo a una tabla Excel, hay diversas maneras de hacerlo. Haciendo uso del Transfer del Client Access, particularmente no lo uso. También<span style="mso-spacerun: yes;"> </span>podemos pasarlo por un archivo plano y al bajarlo a la PC lo “mapeamos” por posiciones desde Excel, pero se complica al tratar con datos numéricos con decimales y/o con signos.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Prefiero utilizar el comando CPYTOIMPF, copiando la información a un archivo plano <span style="mso-spacerun: yes;"> </span>y bajarlo a la PC. (vía ftp)</span></span></div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Aquí les dejo un ejemplo.</span></span></div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Estructura del archivo CLIENTES</span></span></b></div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
</div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhumxPuqUx8uqHsFxfM1ezPqedSEe-v4omkoE38DO_LOAQnainZpzuJSw1gEib-z_6ZicyLo70KemqtaYNuR4Qa5b5BuqgioF8GtFuSUzy1PzHtnehEfZkbvqT1MQG435yCjYEvdXYPQ7m4/s1600/Tabla_Clientes.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="78" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhumxPuqUx8uqHsFxfM1ezPqedSEe-v4omkoE38DO_LOAQnainZpzuJSw1gEib-z_6ZicyLo70KemqtaYNuR4Qa5b5BuqgioF8GtFuSUzy1PzHtnehEfZkbvqT1MQG435yCjYEvdXYPQ7m4/s400/Tabla_Clientes.JPG" width="400" /></a></div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
</div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
</div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
</div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"></div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
</div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Nota: </span></span><br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">- El campo SALCLI es numérico con 2 decimales y posee signo.</span></span></div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">- El campo TARCLI es carácter de 16 </span></span><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">posiciones </span></span></div></div><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span style="font-family: Calibri;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="background: yellow; color: #1f497d; mso-ansi-language: ES-PE; mso-highlight: yellow; mso-themecolor: text2;">PRIMER PASO</span></b><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"></span></b></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Creamos el archivo plano que contendrá la información y que se transmitirá por ftp a la PC.</span></span><br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;"><span lang="ES-PE" style="background: black; color: #31f802; mso-ansi-language: ES-PE; mso-highlight: black;">== > CRTPF FILE(MILIBRERIA/PLANO) RCDLEN(500) SIZE(*NOMAX)</span></span></span><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">La longitud de registro del archivo original (CLIENTES) es 87 posiciones, ¿Por qué creo un archivo de 500 de longitud? Mas adelante se explica.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span style="font-family: Calibri;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="background: yellow; color: #1f497d; mso-ansi-language: ES-PE; mso-highlight: yellow; mso-themecolor: text2;">SEGUNDO PASO</span></b><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"></span></b></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Copiamos la información del archivo (con DDS) al archivo plano haciendo uso del comando</span></span><br />
<span lang="ES-PE" style="color: #31f802; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"><span style="font-family: Calibri;"><span lang="ES-PE" style="background: black; color: #31f802; mso-ansi-language: ES-PE; mso-highlight: black;">== > CPYTOIMPF FROMFILE(MILIBRERIA/CLIENTES) TOFILE(MILIBRERIA /PLANO) MBROPT(*REPLACE) FLDDLM(';')</span><span lang="ES-PE" style="color: #31f802; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></span></span></span><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Hay parámetros que tienen su valor por defecto, dejemoslo como están. </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">En el parámetro STRDLM se debe indicar el carácter que será el delimitador de cada dato. O sea nos dice donde empieza y termina cada dato. Por defecto tiene el carácter comillas.</span></span></div></div><div class="MsoNormal" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; margin: 0cm 0cm 10pt;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQcTXFVVF78GXIwbDnoC2gumD30U46ag5PEcabEmJPF9bJgXVOngdUmLrF-yvBf87t-AK5vwS5k6OKQMvNoX-1yRQrf1bTGu_Nei5wPO2V05Nsxq9jmN7-WVUsg-iTbrzBd_9mrBBjpPU4/s1600/Parametro_STRDLM.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="21" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQcTXFVVF78GXIwbDnoC2gumD30U46ag5PEcabEmJPF9bJgXVOngdUmLrF-yvBf87t-AK5vwS5k6OKQMvNoX-1yRQrf1bTGu_Nei5wPO2V05Nsxq9jmN7-WVUsg-iTbrzBd_9mrBBjpPU4/s400/Parametro_STRDLM.JPG" width="400" /></a> <br />
<div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"></div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">En el parámetro FLDDLM se indicará el carácter que será el separador de cada campo. Eso hará posible que el Excel separe en cada celda los datos delimitados por el carácter que indiquemos, en el ejemplo <span style="mso-spacerun: yes;"> </span>“;”</span></span></div></div></div><div class="MsoNormal" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8dmoRKMASI5XXXEfWiG9Be9lqsaW7PhWMKHV8sMnX6pIf7zJlF7CzyMfF8GzUJMEDiwR3RrBoCZgtQ-u4Az651cHT0UWdBBnxZ2YkwVPyq432bfkmSGtY4mxtzRlS45tGHLBrzmEJ3vK8/s1600/Parametro_FLDDLM.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="19" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8dmoRKMASI5XXXEfWiG9Be9lqsaW7PhWMKHV8sMnX6pIf7zJlF7CzyMfF8GzUJMEDiwR3RrBoCZgtQ-u4Az651cHT0UWdBBnxZ2YkwVPyq432bfkmSGtY4mxtzRlS45tGHLBrzmEJ3vK8/s400/Parametro_FLDDLM.JPG" width="400" /></a><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;"></span></span><br />
<br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Y como una imagen vale mas que mil palabras…</span></span><br />
<br />
<span style="color: #1f497d; font-family: Calibri;">(Archivo bajado en la Pc)</span></div></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjq6lTVeKsa7uPE-MOSZdUxHuK2sax961DTRLjhzGmO0pFA0fRzxFrJJfihoSvTAExxTu9ETibd_8Pe5pea2K3WriU11wYO-SRUeGIEYkfPJ0zDrlF_kfnXbqxBlaKFzbmi1LAeNvVAl2Qj/s1600/archivo_plano.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="84" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjq6lTVeKsa7uPE-MOSZdUxHuK2sax961DTRLjhzGmO0pFA0fRzxFrJJfihoSvTAExxTu9ETibd_8Pe5pea2K3WriU11wYO-SRUeGIEYkfPJ0zDrlF_kfnXbqxBlaKFzbmi1LAeNvVAl2Qj/s400/archivo_plano.JPG" width="400" /></a></div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
</div></div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<br />
<br />
<br />
<br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Por que creamos un archivo plano de 500 de longitud si mi archivo CLIENTES solo tiene 87 posiciones? Pues justamente para asegurarme que esos caracteres delimitadores también se copien en el archivo plano. Ya que estos, al ser incluidos en la copia, harán que el registro sea mayor al tamaño de registro original. De lo contrario se truncaran los datos, mostrando el siguiente mensaje:</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span style="font-family: Calibri;"><b style="mso-bidi-font-weight: normal;"><i style="mso-bidi-font-style: normal;"><span lang="ES-PE" style="background: black; color: #31f802; mso-ansi-language: ES-PE; mso-highlight: black;">Se han truncado datos en una operación de entrada, salida o<span style="mso-spacerun: yes;"> </span>actualización.</span></i></b><b style="mso-bidi-font-weight: normal;"><i style="mso-bidi-font-style: normal;"><span lang="ES-PE" style="color: #31f802; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></i></b></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><span style="font-family: Calibri;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="background: yellow; color: #1f497d; mso-ansi-language: ES-PE; mso-highlight: yellow; mso-themecolor: text2;">TERCER PASO</span></b><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"></span></b></span></div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Seguidamente pasamos, vía ftp, el archivo plano a la PC.</span></span></div></div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
</div></div></div><div class="separator" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-asgYWW1jaLGx4lX2vF6H17EYI_iIXO9F1DYE1Faqa4wWDjxqEQODPZrqdQ-IfhXmCFesWlw2ip9mGMfQA-7BZ2vbRH1trpi4EasCLNl-caJxI9KnYyUcNHSKBeWqFxC1Ihxy90EijriT/s1600/Comando_FTP.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="202" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-asgYWW1jaLGx4lX2vF6H17EYI_iIXO9F1DYE1Faqa4wWDjxqEQODPZrqdQ-IfhXmCFesWlw2ip9mGMfQA-7BZ2vbRH1trpi4EasCLNl-caJxI9KnYyUcNHSKBeWqFxC1Ihxy90EijriT/s400/Comando_FTP.JPG" width="400" /></a></div><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">En nuestro escritorio aparecerá un icono asi</span></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3QMwjPIiJKSx_jJEFFEPahwMURlG4J07OM_VYcyQAFGL7-wioJTuI9Xxl_QRc6MrfKJMhkHhomdAQqdiF0BPKZWsP31vtRXFnV4o65bD1BEtYKoX2SEsc-AiWnutIJhLbb9QJFUqhxyDP/s1600/Icono.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3QMwjPIiJKSx_jJEFFEPahwMURlG4J07OM_VYcyQAFGL7-wioJTuI9Xxl_QRc6MrfKJMhkHhomdAQqdiF0BPKZWsP31vtRXFnV4o65bD1BEtYKoX2SEsc-AiWnutIJhLbb9QJFUqhxyDP/s1600/Icono.JPG" /></a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">El archivo se depositó en la PC en formato .CSV (Delimitado por comas) </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Este tipo de extensión lo reconoce el Excel y lo edita automáticamente, separando en cada celda los datos con el carácter que indicamos en el parámetro FLDDLM. Con eso ya tenemos la información en una tabla Excel.</span></span><br />
<br />
<span style="font-family: Calibri;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="background: yellow; color: #1f497d; mso-ansi-language: ES-PE; mso-highlight: yellow; mso-themecolor: text2;">Importante:</span></b><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"></span></b></span></div></div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">¿Que pasa con los datos de los campos RUC<span style="mso-spacerun: yes;"> </span>y TARJETA? El Excel no lo muestra completamente.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg3Uq-KRr4UAfR08s8EdSLZXmtxfb1-7Xe2ppVgHs6jdurswQ3HikbHnn9je5DoeTwZsOtvudon4Ozjp5zi1E89ooqSWVs_OL_WhQtc6L_hTQWj2Cgh5SpclRb3_yrpUj0f8kuiNCTGzCUi/s1600/Excel_2.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg3Uq-KRr4UAfR08s8EdSLZXmtxfb1-7Xe2ppVgHs6jdurswQ3HikbHnn9je5DoeTwZsOtvudon4Ozjp5zi1E89ooqSWVs_OL_WhQtc6L_hTQWj2Cgh5SpclRb3_yrpUj0f8kuiNCTGzCUi/s1600/Excel_2.JPG" /></a></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
</div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">En el caso del dato RUC si posicionamos el cursor en la celda, veremos que mantiene su valor original, solo bastará ajustar el tamaño de la celda</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div></div><div class="separator" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVO375qdR1RS2lHJRFrFccl78zJHsYn3r9jdWbN5qxt8Lksn3eckCVN8KyK1ahiL3n_2mVG0Xe-sZljI2Cm2F79hRIqkxr8S8-phgRHTtgdq9k_ib3sW0hTAO7wjDDTSRK8TBUR6i5r5Ry/s1600/Excel_3.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVO375qdR1RS2lHJRFrFccl78zJHsYn3r9jdWbN5qxt8Lksn3eckCVN8KyK1ahiL3n_2mVG0Xe-sZljI2Cm2F79hRIqkxr8S8-phgRHTtgdq9k_ib3sW0hTAO7wjDDTSRK8TBUR6i5r5Ry/s1600/Excel_3.JPG" /></a></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<br />
<br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Y para el dato TARJETA?<span style="mso-spacerun: yes;"> </span>Al parecer no es asi.</span></span><br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5tHsuEiqLBYptIe2rftOsbB1iSPj0XljmP_BzcZE1KbOvXOyN6UVr9GBNCc7nS54ZzVnhaCFIcJTao8la4BM298aWPIKtc0xuBrWhXsfbGDjPn4SssXQaPxiK81U2fuVz1M15Q5JUbmEC/s1600/Excel_4.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5tHsuEiqLBYptIe2rftOsbB1iSPj0XljmP_BzcZE1KbOvXOyN6UVr9GBNCc7nS54ZzVnhaCFIcJTao8la4BM298aWPIKtc0xuBrWhXsfbGDjPn4SssXQaPxiK81U2fuVz1M15Q5JUbmEC/s1600/Excel_4.JPG" /></a></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">No muestra el dato original, Excel redondea el ultimo digito con cero.</span></span></div></div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="separator" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfiBjDFeI87uLOOgKxQeBdftVgcB-g1xn5M8DKBzFUGQ4amDsxdX2ACKqhgjaD60hPtnAqb2mX7HvwaawDCQsj9YN08ii2IxbnFarzbkis3u5V6u554lWnAx7tAFcASJXv94cOZkicQ4J6/s1600/Informacion_excel_texto.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="110" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfiBjDFeI87uLOOgKxQeBdftVgcB-g1xn5M8DKBzFUGQ4amDsxdX2ACKqhgjaD60hPtnAqb2mX7HvwaawDCQsj9YN08ii2IxbnFarzbkis3u5V6u554lWnAx7tAFcASJXv94cOZkicQ4J6/s320/Informacion_excel_texto.JPG" width="320" /></a></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Para evitar esto y otros errores que se puedan presentar , desde el ftp, bajar el archivo en formato texto (.txt) luego abrirlo con el Excel e indicar en el cuadro para importar texto que el dato Tarjeta sea de tipo texto. </span></span></div></div><div class="MsoNormal" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; margin: 0cm 0cm 10pt;"><br />
</div><div class="separator" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrF_mZVk3r6yGo0p3rNnnlJWAH6ezFiWa_BM8Hb4uzMqQPABdBlAHAewI5cEJGC-DupVQeXBCo4tvgYArzAq1vKUaSY1xeoVqR05Mz5eCsRolvlxOv4gK268hmzDbaJQr1YqL4p4J_pqJO/s1600/Cuadro_Dialogo1.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="195" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrF_mZVk3r6yGo0p3rNnnlJWAH6ezFiWa_BM8Hb4uzMqQPABdBlAHAewI5cEJGC-DupVQeXBCo4tvgYArzAq1vKUaSY1xeoVqR05Mz5eCsRolvlxOv4gK268hmzDbaJQr1YqL4p4J_pqJO/s320/Cuadro_Dialogo1.JPG" width="320" /></a></div><div class="separator" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; clear: both; text-align: center;"><br />
</div><div class="separator" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; clear: both; text-align: center;"><br />
</div><div class="separator" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; clear: both; text-align: center;"><span style="color: #1f497d; font-family: Calibri;">En este punto indicamos que carácter será delimitador y separe los datos en cada celda. </span><span style="color: #1f497d; font-family: Calibri;">En nuestro ejemplo es el carácter “;”</span></div><div class="separator" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; clear: both; text-align: center;"><br />
</div><br />
<div class="separator" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDUFTfuydiWbXGBpBemN0vdpqWZzaWekSKBDaDFfBAt57Zusgbj3C49RjD_RpdR0zLPstX4sou9Nq3EEw7nuuLY21CGU6FKzztX3yWohz-wZLRdVRLq3qF3OgMiqXpiwLzARzqcb3WvSJo/s1600/Cuadro_Dialogo2.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="195" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDUFTfuydiWbXGBpBemN0vdpqWZzaWekSKBDaDFfBAt57Zusgbj3C49RjD_RpdR0zLPstX4sou9Nq3EEw7nuuLY21CGU6FKzztX3yWohz-wZLRdVRLq3qF3OgMiqXpiwLzARzqcb3WvSJo/s320/Cuadro_Dialogo2.JPG" width="320" /></a></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Aquí indicamos que el dato de Tarjeta sea de tipo texto.</span></span></div><div class="separator" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTJppnbgmQ8dTGfG2b0J0SqA_lQEgnzTQJ8JzkRMBnp2zCc5Ym2pLlkIHBHvM0wDYfWBrF5jH-d46DGoRDY-FJtUnZL9yUQcaE5cHI9kJG7jKNHJCZCyg5pFMH5bKY-aV2qr6PEkscSfF_/s1600/Cuadro_Dialogo3.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="195" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTJppnbgmQ8dTGfG2b0J0SqA_lQEgnzTQJ8JzkRMBnp2zCc5Ym2pLlkIHBHvM0wDYfWBrF5jH-d46DGoRDY-FJtUnZL9yUQcaE5cHI9kJG7jKNHJCZCyg5pFMH5bKY-aV2qr6PEkscSfF_/s320/Cuadro_Dialogo3.JPG" width="320" /></a></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<br />
<br />
<br />
<br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Usando el transfer del Client Access tenía problemas con los datos que contenian números de 16 digitos. El último digito lo ponía a cero.</span></span><br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Hago toda esta operación, mayormente, cuando se trata de información que contenga datos numéricos mayores a 10 dígitos. No es tan rápido pero al menos estaré seguro que la información bajó al excel de manera completa y correcta. </span></span></div><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQYQtOH9fefb9i4Z-fOUULShYvpg-WLJ55_IJxp1haMeGq2yjqZ-F_30bcPP26SSOQyMbZBa2QekrjiZhZuYXGSomfi0WDcmPCZpuN-_pgwznA51pF00994N2VrUOLDhbj_39Q_W0jnuu4/s1600/Excel_5.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="80" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQYQtOH9fefb9i4Z-fOUULShYvpg-WLJ55_IJxp1haMeGq2yjqZ-F_30bcPP26SSOQyMbZBa2QekrjiZhZuYXGSomfi0WDcmPCZpuN-_pgwznA51pF00994N2VrUOLDhbj_39Q_W0jnuu4/s400/Excel_5.JPG" width="400" /></a><br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 10pt;"></div></div></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-36691418743332907842011-03-02T12:49:00.000-08:002011-03-02T12:53:10.302-08:00Ubicar Registro Relativo en Archivo - Cobol AS400<div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Ubicar el registro 100 desde un RPG es simple, solo indicamos el numero del registro que queremos ubicar en el código de operación CHAIN</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-tab-count: 1;"> </span></span></b><b style="mso-bidi-font-weight: normal;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;">100<span style="mso-tab-count: 1;"> </span><span style="mso-tab-count: 1;"> </span>CHAIN<span style="mso-tab-count: 1;"> </span><span style="mso-tab-count: 1;"> </span>ARCHIVO</span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Hacerlo en Cobol es igual de sencillo pero en <personname productid="la Declaración" w:st="on">la Declaración</personname> del Archivo debemos indicar algunas cosas adicionales. La cláusula RELATIVE nos permite organizarlo por registro relativo, es decir, en el orden tal como ingresaron al archivo. A la vez nos permite actualizar o eliminar los registros procesados.</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"> </span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt 35.4pt; text-indent: 35.4pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"> ORGANIZATION<span style="mso-spacerun: yes;"> </span>IS RELATIVE<span style="mso-spacerun: yes;"> </span></span><span style="color: navy;"></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">El acceso se realiza con clave relativa</span><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span></span><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;">ACCESS MODE<span style="mso-spacerun: yes;"> </span>IS RANDOM<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>RELATIVE KEY<span style="mso-spacerun: yes;"> </span>IS RRN-PLANO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">En este ejemplo procesamos un archivo plano, ubicamos el registro 100 y lo eliminamos.</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;">ENVIRONMENT DIVISION.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;">*---------------------<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>INPUT-OUTPUT SECTION.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>FILE-CONTROL.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;">* </span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>SELECT<span style="mso-spacerun: yes;"> </span><city w:st="on"><place w:st="on">PLANO</place></city><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>ASSIGN TO<span style="mso-spacerun: yes;"> </span>DATABASE-PLANO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>ORGANIZATION<span style="mso-spacerun: yes;"> </span>IS RELATIVE<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>ACCESS MODE<span style="mso-spacerun: yes;"> </span>IS RANDOM<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>RELATIVE KEY<span style="mso-spacerun: yes;"> </span>IS RRN-PLANO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>FILE<span style="mso-spacerun: yes;"> </span>STATUS<span style="mso-spacerun: yes;"> </span>IS FS-PLANO.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span></span><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;">DATA DIVISION.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;">*--------------<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>FILE SECTION.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>FD<span style="mso-spacerun: yes;"> </span><city w:st="on"><place w:st="on">PLANO</place></city><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>LABEL RECORDS ARE STANDARD.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>01<span style="mso-spacerun: yes;"> </span>REG-PLANO.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>03<span style="mso-spacerun: yes;"> </span>FILLER<span style="mso-spacerun: yes;"> </span>PIC X(648).<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;">*<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>WORKING-STORAGE SECTION.<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;">* Variables </span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span>01<span style="mso-spacerun: yes;"> </span>RRN-PLANO<span style="mso-spacerun: yes;"> </span>PIC 9(5).<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;">* Files Status<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>FS-PLANO<span style="mso-spacerun: yes;"> </span>PIC XX.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span></span><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;">88 PLANO-EOF<span style="mso-spacerun: yes;"> </span>VALUE "10".<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span>77<span style="mso-spacerun: yes;"> </span>SW-FIN-PROGRAMA<span style="mso-spacerun: yes;"> </span>PIC 9.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span>88 FIN-PROGRAMA<span style="mso-spacerun: yes;"> </span>VALUE 1.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;">PROCEDURE DIVISION.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;">*-------------------<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span>PRINCIPAL.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;">*----------<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span>PERFORM INICIO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span>PERFORM PROCESO UNTIL FIN-PROGRAMA<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span>PERFORM FIN<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span>STOP RUN.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;">*<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span>INICIO.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;">*-------<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span>OPEN I-O<span style="mso-spacerun: yes;"> </span>PLANO.<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span></span><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;">FIN.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;">*----<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>CLOSE<span style="mso-spacerun: yes;"> </span><city w:st="on"><place w:st="on">PLANO</place></city>.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>PROCESO.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;">*--------<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>MOVE 100<span style="mso-spacerun: yes;"> </span>TO RRN-PLANO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span></span><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;">READ PLANO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>AT END<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: #003300; font-family: "Courier New"; font-size: 10pt;"><span style="mso-spacerun: yes;"> </span>DISPLAY "REGISTRO NO ENCONTRADO"<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>NOT AT END<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>DISPLAY REG-PLANO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>DELETE <city w:st="on"><place w:st="on">PLANO</place></city><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>END-READ.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>MOVE 1<span style="mso-spacerun: yes;"> </span>TO<span style="mso-spacerun: yes;"> </span>SW-FIN-PROGRAMA.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 10pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Esto se puede aplicar a archivos con DDS, con claves o archivos sin DDS (planos).</span></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-3915090574544158052011-03-02T07:18:00.000-08:002011-03-02T17:14:30.596-08:00Validar Datos No Validos en Campos Numéricos en SQL<div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Este problema me llevo mucho esfuerzo para detectarlo y corregirlo.</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Tenía un proceso Batch (CLP) que generaba un reporte, para ello, filtraba la información que necesitaba por medio de una sentencia SELECT de SQL. Ejecutaba un STRQMQRY, para generar información temporal y luego procesarla en un RPG.</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">El problema se presentó cuando mi proceso no generaba el reporte. </span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">El proceso terminaba normalmente pero revisando el LOG del Job describía el siguiente mensaje:</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="background: black; color: lime; font-family: "Courier New"; font-size: 8pt; mso-highlight: black;">Mensaje . . . . : Error de conversión al asignar un valor a la columna CAMPO2.</span><span style="color: lime; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="background: black; color: lime; font-family: "Courier New"; font-size: 8pt; mso-highlight: black;">Causa . . . . . : Se ha producido un <span style="mso-shading: yellow;">error de conversión tipo 6</span> durante un <span style="mso-shading: yellow;">error de conversión tipo 6</span> durante un intento de asignar un valor a la columna CAMPO2 con una sentencia INSERT</span><span style="color: lime;"></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: "Courier New"; font-size: 8pt;"> </span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="background: black; color: lime; font-family: "Courier New"; font-size: 8pt; mso-highlight: black;">-- <span style="mso-shading: yellow;">El tipo de error 6 son datos numéricos que no son válidos</span>.</span><span style="color: lime;"></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Según el mensaje, todo indicaba que se trataba de datos inválidos en campo numérico o empaquetado. </span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQwXek3hn6sk2pMS3vMPN32m_vErSqamc7K1dPvQLW_1OHMG-8gR-NLpYKcO5bcfaN6Fi8VOz5iYOw2j4Vblto3L1fNM9UMh2bAJQg8mKJjIMeZJD6W4SR3LKeHx0nxoUtkyXTe4-M43gm/s1600/Sentencia_select.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="116" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQwXek3hn6sk2pMS3vMPN32m_vErSqamc7K1dPvQLW_1OHMG-8gR-NLpYKcO5bcfaN6Fi8VOz5iYOw2j4Vblto3L1fNM9UMh2bAJQg8mKJjIMeZJD6W4SR3LKeHx0nxoUtkyXTe4-M43gm/s400/Sentencia_select.JPG" width="400" /></a></div><br />
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">En la imagen, una demostración a lo que me refiero. </span><span style="color: navy; font-family: Tahoma; font-size: 10pt;">En recuadro rojo el campo numerico con la inconsitencia.</span><br />
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">En recuadro amarillo, el valor hexadecimal del mismo campo numerico.</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Y en recuadro verde el dato con la validación, es decir, se coloca Cero en los datos que presentan datos no validos.</span></div></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Los datos numéricos se pueden validar en la sentencia SELECT por medio de su valor hexadecimal. Para hacer eso, utilizamos la función HEX. </span><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span style="color: #003300; font-family: "Courier New"; font-size: 8pt;">SELECT<span style="mso-spacerun: yes;"> </span>campo1, campo2, hex(campo2),<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span style="color: #003300; font-family: "Courier New"; font-size: 8pt;"><span style="mso-spacerun: yes;"> </span>CASE<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span style="color: #003300; font-family: "Courier New"; font-size: 8pt;"><span style="mso-spacerun: yes;"> </span>WHEN SUBSTRING(HEX(campo2), 1, 1)||SUBSTRING(HEX(campo2), 3, </span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span style="color: #003300; font-family: "Courier New"; font-size: 8pt;">1)|| SUBSTRING(HEX(campo2), 5, 1) </span></b><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><> 'FFF' THEN 0<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>WHEN TRANSLATE(<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>SUBSTR(HEX(campo2),2,1)||SUBSTR(HEX(campo2),4,1)||<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span></span></b><b style="mso-bidi-font-weight: normal;"><span lang="PT-BR" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: PT-BR;">SUBSTR(HEX(campo2),6,1)||SUBSTR(HEX(campo2),8,1),<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="PT-BR" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: PT-BR;"><span style="mso-spacerun: yes;"> </span></span></b><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;">' ','0123456789',' ') <> ' '<span style="mso-spacerun: yes;"> </span>THEN 0</span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>WHEN SUBSTR(HEX(campo2),7,1) NOT IN ('F','D')<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>THEN 0<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>ELSE campo2<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>END AS campo2,<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>campo3, hex(campo3),<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>CASE<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>WHEN SUBSTRING(HEX(campo3), 1, 1)||SUBSTRING(HEX(campo3), 3, </span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;">1)|| SUBSTRING(HEX(campo3), 5, 1) </span></b><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><> 'FFF' THEN 0<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>WHEN TRANSLATE(<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>SUBSTR(HEX(campo3),2,1)||SUBSTR(HEX(campo3),4,1)||<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span></span></b><b style="mso-bidi-font-weight: normal;"><span lang="PT-BR" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: PT-BR;">SUBSTR(HEX(campo3),6,1)||SUBSTR(HEX(campo3),8,1),<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="PT-BR" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: PT-BR;"><span style="mso-spacerun: yes;"> </span></span></b><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;">' ','0123456789',' ') <> ' '<span style="mso-spacerun: yes;"> </span>THEN 0<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>WHEN SUBSTR(HEX(campo3),7,1) NOT IN ('F','D')<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>THEN 0<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span>ELSE campo3<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;"><span style="mso-spacerun: yes;"> </span><place w:st="on"><city w:st="on">END</city> <state w:st="on">AS</state></place> campo3<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="EN-GB" style="color: #003300; font-family: "Courier New"; font-size: 8pt; mso-ansi-language: EN-GB;">From MIUSUARIO/MIARCHIVO</span></b></div></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
<span style="color: navy; font-family: Tahoma; font-size: 10pt;"></span><br />
<u><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Función HEX con campos numéricos: </span></u><br />
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Un campo numérico de 4 posiciones se extiende a 8 caracteres. De los cuales las posiciones impares, es decir, 1, 3, 5 y 7 deben contener ‘F’ para valores positivos. Para valores negativos </span><span style="color: navy; font-family: Tahoma; font-size: 10pt;">1, 3 y 5 deben contener ‘F’.</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Las posiciones pares, es decir, 2, 4, 6 y 8 deben contener un digito entre 0…9</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Y por ultimo la penúltima posición debe contener D para el signo. (Solo para números negativos)</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><u><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Función HEX con campos numéricos empaquetados:</span></u></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Un campo empaquetado de 4 posiciones se extiende a 6 caracteres. Todas las posiciones excepto las ultima posición deben ser dígitos entre 0…9</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">La última posición debe contener F (número positivo) o D (número negativo).</span><br />
<br />
<span style="color: navy; font-family: Tahoma; font-size: x-small;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Por ejemplo:<span style="mso-spacerun: yes;"> </span>Campo empaquetado de 4,2 y de 4,0 respectivamente</span></span></div></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVXcs5RWwMsZFvrW_r8Cgot0aZDAg9emp34ZbafOeC5dCAg3XY7AKJcbXXMdWaBwphuzK-jPygmHQmkLAM4STPufQDrrbShP1SN0ob2UWMCkWX3vG-d3YwcW3MVEQRjt_yYBcdV_s6mPXJ/s1600/Tabla_Valores_Hexa.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="118" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVXcs5RWwMsZFvrW_r8Cgot0aZDAg9emp34ZbafOeC5dCAg3XY7AKJcbXXMdWaBwphuzK-jPygmHQmkLAM4STPufQDrrbShP1SN0ob2UWMCkWX3vG-d3YwcW3MVEQRjt_yYBcdV_s6mPXJ/s320/Tabla_Valores_Hexa.JPG" width="320" /></a></div><br />
<span style="color: navy; font-family: Tahoma; font-size: 10pt;">Hacer la validación por cada campo del archivo que contenga inconsistencia resulta laborioso. Ya que nunca sabremos que campo contendrá datos inválidos. Así que cambie mi proceso, desde el RPG procesé el archivo completamente y para evitar el ERROR DE DATOS DECIMAL, lo compilé con la opción FIXNBR del compilador.</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIvS2BlzIIGD-PoLrvFtR3JGQuRtA-4ngUMVZUwzMJUV5vkXi0m-x0hD_DNxTM4tENYqj5eg4AJFJHnUIbg-WXxJ5N4o1bSA3oR7-cBbMR3Ef-hHFUZv61fnefmheuSgbJbGJbxRcRWZO9/s1600/Parametro_FixNbr_Rpgle.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="30" l6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIvS2BlzIIGD-PoLrvFtR3JGQuRtA-4ngUMVZUwzMJUV5vkXi0m-x0hD_DNxTM4tENYqj5eg4AJFJHnUIbg-WXxJ5N4o1bSA3oR7-cBbMR3Ef-hHFUZv61fnefmheuSgbJbGJbxRcRWZO9/s400/Parametro_FixNbr_Rpgle.JPG" width="400" /></a></div><div class="separator" style="clear: both; text-align: center;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Si lo que se quiere es modificar los datos inválidos desde SQL por medio de una sentencia UPDATE, simplemente hay que agregar esas validaciones en el WHERE</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;">Tal como lo indica en el siguiente link:</span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><span style="color: navy; font-family: Tahoma; font-size: 10pt;"><a href="http://archive.midrange.com/midrange-l/200907/msg00375.html"><span style="color: navy;">http://archive.midrange.com/midrange-l/200907/msg00375.html</span></a></span></div><div class="MsoNormal" style="margin: 0cm 0cm 0pt;"><br />
</div><div class="separator" style="clear: both; text-align: center;"></div><br />
</div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com1tag:blogger.com,1999:blog-3031825386943356438.post-31811855056346685942011-02-17T20:23:00.000-08:002011-02-21T11:12:09.191-08:00Colorear fuentes en SEU<div class="separator" style="clear: both; text-align: center;"></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Muchas veces me han preguntado como se colorea los comentarios e inclusive el código de los fuentes en el editor SEU.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Asi que aquí les dejo este post para quienes aun no lo han descubierto puedan hacerlo y aplicarlo a sus programas y darles ciertos toques artísticos.</span></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7W8x5PjdzLYXxSAfvtwh_bjJzzRC2e2OExCY39R7wAvLimF92Q207aNGUiAmdxWUHvEDYVfThU0zECYLKGVZjO1MCFgq39yxQCxjEE6FAgR3MUPKLLDNLDftauffQOnA1h3y8Ix9eT6-y/s1600/Dibujo.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" j6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7W8x5PjdzLYXxSAfvtwh_bjJzzRC2e2OExCY39R7wAvLimF92Q207aNGUiAmdxWUHvEDYVfThU0zECYLKGVZjO1MCFgq39yxQCxjEE6FAgR3MUPKLLDNLDftauffQOnA1h3y8Ix9eT6-y/s1600/Dibujo.JPG" /></a></div><div class="MsoNormal" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">A manera de anécdota...</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Trabajé de practicante en una empresa donde los programas eran implementados en el extranjero y la gran mayoría de los programas tenían los comentarios resaltados, subrayados, etc. <span style="mso-spacerun: yes;"> </span>Me llamo la atención y por mas que preguntaba y fastidiaba a mis compañeros de trabajo, nadie me daba la solución. Hasta que un buen compañero, uno de aquellos de los que no tenía miedo enseñar, me dijo que le hiciera un DSPPFM al archivo fuente (indicando el miembro) y que luego pulse las teclas de función <span style="mso-spacerun: yes;"> </span>F10 + F11 (Para visualizar el valor hexadecimal de la información). Fue ahí donde pude percibir el valor hexadecimal del carácter que permite darle atributos<span style="mso-spacerun: yes;"> </span>a los textos.</span></span></div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><span style="color: #1f497d; font-family: Calibri;"><em>A veces necesitamos un empujoncito luego el resto depende de nosotros.</em></span><br />
<br />
<span style="color: #00b050;"><span style="font-family: Calibri;"><span style="background-color: black;">==>DSPPFM <span style="mso-spacerun: yes;"> </span>FILE(MILIBRERIA/QRPGLESRC) MBR(EXTNAME)</span><span lang="ES-PE" style="mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></span></span><br />
<br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgtiCr8Mb9yy8aguk3N-qdK32LwngQFPtoOgdvsFwvDoDKSc7vSZX_LYNTFqrQgvVYmlbgsecAGFd5hpxV45glGWM-cn_l_hf7pg8nwE5YPKO88T-s9-CllLT-J7PC-67w_oMhyphenhyphenfrxIDo86/s1600/xomando_dsppfm_hexa.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" j6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgtiCr8Mb9yy8aguk3N-qdK32LwngQFPtoOgdvsFwvDoDKSc7vSZX_LYNTFqrQgvVYmlbgsecAGFd5hpxV45glGWM-cn_l_hf7pg8nwE5YPKO88T-s9-CllLT-J7PC-67w_oMhyphenhyphenfrxIDo86/s1600/xomando_dsppfm_hexa.JPG" /></a></div></div><br />
<div class="separator" style="clear: both; text-align: center;"></div><i style="mso-bidi-font-style: normal;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">En la figura del fuente del programa EXTNAME el carácter de valor hexadecimal X’3A’ muestra el texto de color azul.</span></span></i></div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">La explicación es sencilla, existen caracteres que no son visualizables en la pantalla verde del as400 pero que hacen que los textos tengan ciertos atributos como, colores, subrayado, alta intensidad, etc. <span style="mso-spacerun: yes;"> </span>Este carácter se antepone al texto de la siguiente manera:</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span style="font-family: Calibri;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;">En el ejemplo, para lograr el color azul sería<span style="mso-spacerun: yes;"> X'3A' </span></span></span><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;"> + Texto </span></span><br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Pero, ¿y cómo colocamos ese carácter dentro de nuestros fuentes sino son visualizables? y por ende no podemos copiar ni pegar en el editor SEU. Fácil, por medio del valor hexadecimal.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Puedes hacerlo de muchas maneras posible, haciendo un programa, como lo hice al principio, pero una manera rápida de hacerlo es usando SQL.</span></span><br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Como sabemos, los fuentes de los programas también pertenecen a un archivo, en este caso archivo fuente y por tal también puede ser procesado por el gestor de base de datos.</span></span></div><div class="MsoNormal" style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none; margin: 0cm 0cm 10pt;"><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Para trabajar directamente con el programa denominado EXTNAME bastará hacer un OVRDBF.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div class="separator" style="clear: both; text-align: center;"></div><span style="font-family: Calibri;"><span lang="ES-PE" style="background: black; color: #00b050; mso-ansi-language: ES-PE; mso-highlight: black;">==>OVRDBF FILE(QRPGLESRC) TOFILE(MILIBRERIA/QRPGLESRC) MBR(EXTNAME)</span><span lang="ES-PE" style="color: #00b050; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Seguidamente ingresamos al SQL y hacemos lo siguiente:</span></span><br />
<div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvLvZETy5gOZp9oGLwHVYIFkciCwS-nmCAqLuCNq925HtFJUPLt7DC4aOgaVbIJwWNJ8pyetMhuR2IhHxbLlnRfzA4vI7nQ09Oss3CIaJ-Ki0WavhnkUdXO6_CuVXxml-FAK2YP3-UrWfq/s1600/Sentencia_Update.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="80" j6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvLvZETy5gOZp9oGLwHVYIFkciCwS-nmCAqLuCNq925HtFJUPLt7DC4aOgaVbIJwWNJ8pyetMhuR2IhHxbLlnRfzA4vI7nQ09Oss3CIaJ-Ki0WavhnkUdXO6_CuVXxml-FAK2YP3-UrWfq/s400/Sentencia_Update.JPG" width="400" /></a></div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><br />
</div></div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><div class="separator" style="clear: both; text-align: center;"></div><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Listo! Hemos agregado el atributo “alta intensidad “ a la línea 4 del fuente</span></span><br />
<br />
<span style="color: #1f497d; font-family: Calibri;"></span><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span style="background: black; color: #00b050; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-highlight: black;">==> SELECT * FROM MILIBRERIA/QRPGLESRC</span><span style="color: #00b050; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri;"> </span><span lang="ES-PE" style="color: #00b050; mso-ansi-language: ES-PE;"></span></div></div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhUx9qSTPMat2guvZMHS6jmOMCUyfx70jlfBbVHG8VLAnR_HwlQT2pPwsBTJTL_15YVQTvsHlSOUxn8lYwF3wlYGnCcCR09hMUdOdJoepS2NJdFEIHpuSoPi3TUpGKWAUZJwUk164MBm0zv/s1600/Sentencia_Select.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="360" j6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhUx9qSTPMat2guvZMHS6jmOMCUyfx70jlfBbVHG8VLAnR_HwlQT2pPwsBTJTL_15YVQTvsHlSOUxn8lYwF3wlYGnCcCR09hMUdOdJoepS2NJdFEIHpuSoPi3TUpGKWAUZJwUk164MBm0zv/s640/Sentencia_Select.JPG" width="640" /></a></div><div style="border-bottom: medium none; border-left: medium none; border-right: medium none; border-top: medium none;"><span lang="ES-PE" style="color: #1f497d; font-family: Calibri; mso-ansi-language: ES-PE; mso-themecolor: text2;">Esto lo aplicas tambien en información de archivos de BD. </span><br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjr5ki96LBwBFq8dzXOMh4KQgNRccDuFMGGa7c_Kt2J0iieAZqVHPbfv2wWMl6EXP2vh_5mlqggQU5S5vqwvg0haAd-01r76rbM2INRV1em27UoRldkHcgCJGWo0qSYj7QvH6Kzu4-52KWs/s1600/Comando_RunQry.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="191" j6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjr5ki96LBwBFq8dzXOMh4KQgNRccDuFMGGa7c_Kt2J0iieAZqVHPbfv2wWMl6EXP2vh_5mlqggQU5S5vqwvg0haAd-01r76rbM2INRV1em27UoRldkHcgCJGWo0qSYj7QvH6Kzu4-52KWs/s400/Comando_RunQry.JPG" width="400" /></a></div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">O inclusive para ayudarte a recordar la ultima versión de tus fuentes.</span></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8EgfB96Bttn9D__mLRO9VmUg33rJzhWQuU360z6ytyhoZZRkhXOCGfJhN5dznZpWdTOmbgXT2taisdLc6gdO0PwS2LG35EByXEjTKYPRhyXj5idAnxccBrBePje8liJGG6JH56jgauBgm/s1600/MENU_STRPDM.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="225" j6="true" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8EgfB96Bttn9D__mLRO9VmUg33rJzhWQuU360z6ytyhoZZRkhXOCGfJhN5dznZpWdTOmbgXT2taisdLc6gdO0PwS2LG35EByXEjTKYPRhyXj5idAnxccBrBePje8liJGG6JH56jgauBgm/s400/MENU_STRPDM.JPG" width="400" /></a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">En internet podemos encontrar todos los valores de cada atributo de pantalla. Te adjunto unas páginas referente a ello.</span></span><br />
<br />
<a href="http://www.mcpressonline.com/tips-techniques/networking/techtip-display-colors-in-a-5250-session.html"><span style="font-family: Calibri; font-size: x-small;">http://www.mcpressonline.com/tips-techniques/networking/techtip-display-colors-in-a-5250-session.html</span></a> <br />
<a href="http://www.code400.com/colorsource.php">http://www.code400.com/colorsource.php</a><br />
</div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com2tag:blogger.com,1999:blog-3031825386943356438.post-76620025390437032011-02-13T19:41:00.000-08:002011-02-13T20:02:07.354-08:00Refresh automático en pantalla AS400<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">A la hora de implementar procesos interactivos en sistemas as400, una de las desventajas, por decirlo de alguna manera, es que no gozan de muy buena acogida por parte de los usuarios, actualmente acostumbrados a las interfaces graficas que ofrece las cómodas y amigables ventanas de los sistemas operativos como Windows, Linux, etc.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">Particularmente, esto no es tan cierto, puesto que los upgrade al software del sistema operativo de iseries permiten mejorar y optimizar las funcionalidades de las pantallas verdes. Si se tiene el concepto de que las interfaces interactivas hechas en as400 no son amigables al usuario y que resultan para muchos “obsoletas”, es un concepto muy equivocado.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">En base a mi experiencia, he percibido que en la construcción de pantallas no se aprovecha al máximo las funcionalidades y mejoras que ofrecen las versiones actuales del iseries.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">Por ejemplo, se puede hacer uso del mouse para controlar teclas de función (botones), enlaces a páginas web (Links), mover<span style="mso-spacerun: yes;"> </span>un registro Windows, etc. Colocar inclusive títulos en los bordes de las ventanas, etc. Pero esto solo puede ser posible con un poco de dedicación e investigación de parte nuestra como programadores que somos. <span style="mso-spacerun: yes;"> </span>Los usuarios de Windows no crean las ventanas que utilizan. </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">Como ejemplo de lo que estamos tratando en este post vamos a realizar el refresh automático. Esta funcionalidad sería muy bien aprovechada si se desea implementar pantallas que nos muestren información estadística on línea, o tal vez un visor para control transaccional, o de repente controlar interactivamente el acceso de usuarios, control de fraudes, etc.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">Podremos implementar esta funcionalidad haciendo uso de cola de datos, o ejecutando el comando DLYJOB, etc. pero a mi parecer me parece un poco artesanal. Una manera mas conveniente y practica de hacerlo lo muestro a continuación. </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">Este es un pequeño ejemplo de cómo realizar un refresh a una pantalla hecha en un archivo de pantalla (DSPF). El ejemplo es sencillo, vamos a mostrar la fecha y hora del sistema en la pantalla y el programa deberá actualizar y mostrar la hora cada 3 segundos.</span></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-34XyXQQ-m6vnfaXZ4cKf9zKrT0JuEtNBw7yz_0LS9UsTG6SxeqqLxrs71LVduHdB4vdBiZcajTMZ21crqeCowH8ldfOYTltb0bNeZEUdv4ZjPMmHRomYXDYXTnfT2fWM6-AU-nJEAZyu/s1600/Refresh.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" h5="true" height="135" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-34XyXQQ-m6vnfaXZ4cKf9zKrT0JuEtNBw7yz_0LS9UsTG6SxeqqLxrs71LVduHdB4vdBiZcajTMZ21crqeCowH8ldfOYTltb0bNeZEUdv4ZjPMmHRomYXDYXTnfT2fWM6-AU-nJEAZyu/s320/Refresh.JPG" width="320" /></a></div></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><i style="mso-bidi-font-style: normal;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">Fuentes del Archivo de Pantalla:</span></span></i></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">MILIBRERIA/QDSPSRC/PANTREF</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 352.7pt;" valign="top" width="470"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>DSPSIZ(24 80 *DS3)<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>CA03<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>R SCREEN<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>INVITE<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>12 24'Fecha'<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>12 30DATE<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>EDTCDE(Y)<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>COLOR(YLW)<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>12 39'Hora'<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>12 44TIME<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>COLOR(YLW)<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>10 24'WWW.ISERIES-PERU.BLOGSPOT.COM'</span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>COLOR(BLU)<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>14 24'F3=Salir'<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">A<span style="mso-spacerun: yes;"> </span>COLOR(BLU)<span style="mso-spacerun: yes;"> </span></span></div></td></tr>
</tbody></table><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">En el momento de compilar la pantalla solicitamos al SDA incluir parámetros para la compilación pulsando F10.</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 381.05pt;" valign="top" width="508"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Salvar DDS - Crear Archivo de Pantalla<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></b><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Teclee opciones, pulse Intro.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Salvar fuente de DDS . . . . . . . . . .<span style="mso-spacerun: yes;"> </span>Y<span style="mso-spacerun: yes;"> </span>Y=Sí<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Archivo fuente . . . . . . . . . . . .<span style="mso-spacerun: yes;"> </span>QDSPSRC<span style="mso-spacerun: yes;"> </span>F4 para lista<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Biblioteca . . . . . . . . . . . . .<span style="mso-spacerun: yes;"> </span>MILIBRERIA<span style="mso-spacerun: yes;"> </span>Nombre, *LIBL ...<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Miembro. . . . . . . . . . . . . . . .<span style="mso-spacerun: yes;"> </span>PANTREF<span style="mso-spacerun: yes;"> </span>F4 para lista<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Texto. . . . . . . . . . . . . . . . .<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Crear archivo de pantalla<span style="mso-spacerun: yes;"> </span>. . . . . . .<span style="mso-spacerun: yes;"> </span>Y<span style="mso-spacerun: yes;"> </span>Y=Sí<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="background: yellow; mso-highlight: yellow;">Solicitud de parámetros<span style="mso-spacerun: yes;"> </span>. . . . . . .<span style="mso-spacerun: yes;"> </span>Y<span style="mso-spacerun: yes;"> </span>Y=Sí</span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Archivo de pantalla<span style="mso-spacerun: yes;"> </span>. . . . . . . . .<span style="mso-spacerun: yes;"> </span>PANTREF<span style="mso-spacerun: yes;"> </span>F4 para lista<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Biblioteca . . . . . . . . . . . . .<span style="mso-spacerun: yes;"> </span>MILIBRERIA<span style="mso-spacerun: yes;"> </span>Nombre, *CURLIB<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Sustituir archivo existente<span style="mso-spacerun: yes;"> </span>. . . . .<span style="mso-spacerun: yes;"> </span>Y<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>Y=Sí<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Someter creación de trabajo por lotes<span style="mso-spacerun: yes;"> </span>.<span style="mso-spacerun: yes;"> </span>Y<span style="mso-spacerun: yes;"> </span>Y=Sí<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Especificar opciones adicionales<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>de salvar o crear<span style="mso-spacerun: yes;"> </span>. . . . . . . . . .<span style="mso-spacerun: yes;"> </span>Y=Sí<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>F3=Salir<span style="mso-spacerun: yes;"> </span>F4=Solicitud<span style="mso-spacerun: yes;"> </span>F12=Cancelar<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>El miembro PANTREF y Archivo PANTREF existen y se sustituirán.<span style="mso-spacerun: yes;"> </span>+</span></b></div></td></tr>
</tbody></table><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">O si estas editando la pantalla desde SEU, compilamos con opción 14 + F4</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">Estando en la pantalla <i style="mso-bidi-font-style: normal;">“Crear archivo de pantalla (CRTDSPF)”</i><span style="mso-spacerun: yes;"> </span>pulsamos F10 para agregar parámetros adicionales.</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 331.45pt;" valign="top" width="442"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Crear archivo de pantalla (CRTDSPF)<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Teclee elecciones, pulse Intro.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Archivo<span style="mso-spacerun: yes;"> </span>. . . . . . . . . . . . FILE<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>> PANTREF<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Biblioteca . . . . . . . . . .<span style="mso-spacerun: yes;"> </span>><span style="mso-spacerun: yes;"> </span>MILIBRERIA<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Archivo fuente . . . . . . . . . SRCFILE<span style="mso-spacerun: yes;"> </span>> QDSPSRC<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Biblioteca . . . . . . . . . .<span style="mso-spacerun: yes;"> </span>><span style="mso-spacerun: yes;"> </span>MILIBRERIA<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Miembro fuente . . . . . . . . . SRCMBR<span style="mso-spacerun: yes;"> </span>> PANTREF<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Nivel gravedad generación<span style="mso-spacerun: yes;"> </span>. . . GENLVL<span style="mso-spacerun: yes;"> </span>> 20<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Nivel gravedad señalización<span style="mso-spacerun: yes;"> </span>. . FLAG<span style="mso-spacerun: yes;"> </span>> 00<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Dispositivo de pantalla<span style="mso-spacerun: yes;"> </span>. . . . DEV<span style="mso-spacerun: yes;"> </span>*REQUESTER<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>+ para más valores<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Datos DBCS especif usuario . . . IGCDTA<span style="mso-spacerun: yes;"> </span>*NO<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Caracteres ampliados DBCS<span style="mso-spacerun: yes;"> </span>. . . IGCEXNCHR<span style="mso-spacerun: yes;"> </span>*YES<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Texto descriptivo<span style="mso-spacerun: yes;"> </span>. . . . . . . TEXT<span style="mso-spacerun: yes;"> </span>*SRCMBRTXT<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>F3=Salir<span style="mso-spacerun: yes;"> </span>F4=Solicitud<span style="mso-spacerun: yes;"> </span>F5=Renovar<span style="mso-spacerun: yes;"> </span><span style="background: yellow; mso-highlight: yellow;">F10=Parámetros adicionales</span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div></td></tr>
</tbody></table><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">Nos vamos a la segunda página y en el parámetro WAITRCD colocamos el numero de segundos que la pantalla hará el refresh automático. En nuestro caso consideraremos 3 segundos.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 324.35pt;" valign="top" width="432"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Crear archivo de pantalla (CRTDSPF)<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Teclee elecciones, pulse Intro.<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>Parámetros adicionales<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Opciones de listado fuente . . . OPTION<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>+ para más valores<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Máximo de dispositivos . . . . . MAXDEV<span style="mso-spacerun: yes;"> </span>1<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Pantalla mejorada<span style="mso-spacerun: yes;"> </span>. . . . . . . ENHDSP<span style="mso-spacerun: yes;"> </span>*YES<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Restaurar pantalla . . . . . . . RSTDSP<span style="mso-spacerun: yes;"> </span>*NO<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Diferir grabación<span style="mso-spacerun: yes;"> </span>. . . . . . . DFRWRT<span style="mso-spacerun: yes;"> </span>*YES<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Identificador de caracteres:<span style="mso-spacerun: yes;"> </span>CHRID<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Juego de caracteres gráficos<span style="mso-spacerun: yes;"> </span>*DEVD<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Página de códigos<span style="mso-spacerun: yes;"> </span>. . . . . .<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Formato decimal<span style="mso-spacerun: yes;"> </span>. . . . . . . . DECFMT<span style="mso-spacerun: yes;"> </span>*JOB<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Texto SFLEND . . . . . . . . . . SFLENDTXT<span style="mso-spacerun: yes;"> </span>*MSG<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Tiempo máximo espera archivo . . WAITFILE<span style="mso-spacerun: yes;"> </span>*IMMED<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="background: yellow; mso-highlight: yellow;">Tiempo máximo espera registro<span style="mso-spacerun: yes;"> </span>. WAITRCD<span style="mso-spacerun: yes;"> </span>3</span><span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>F3=Salir<span style="mso-spacerun: yes;"> </span>F4=Solicitud<span style="mso-spacerun: yes;"> </span>F5=Renovar<span style="mso-spacerun: yes;"> </span>F12=Cancelar<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>F13=Cómo utilizar esta pantalla<span style="mso-spacerun: yes;"> </span>F24=Más teclas<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></b></div></td></tr>
</tbody></table><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">Y listo, eso sería todo con respecto a la pantalla. A continuación el fuente del programa.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><i style="mso-bidi-font-style: normal;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">Fuentes del programa:</span></span></i></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">MILIBRERIA/QRPGLESRC /REFRESH</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 352.7pt;" valign="top" width="470"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">Fpantref<span style="mso-spacerun: yes;"> </span>cf<span style="mso-spacerun: yes;"> </span>e<span style="mso-spacerun: yes;"> </span>WorkStn maxdev(*file)<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">C<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>DoW<span style="mso-spacerun: yes;"> </span>Not *InKC<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">C<span style="mso-spacerun: yes;"> </span>Write<span style="mso-spacerun: yes;"> </span>screen<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">C<span style="mso-spacerun: yes;"> </span>Read<span style="mso-spacerun: yes;"> </span>pantref<span style="mso-spacerun: yes;"> </span>9999<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">C<span style="mso-spacerun: yes;"> </span>EndDo<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #365f91; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-bidi-font-size: 8.0pt; mso-themecolor: accent1; mso-themeshade: 191;">C<span style="mso-spacerun: yes;"> </span>Eval<span style="mso-spacerun: yes;"> </span>*Inlr = *on<span style="mso-spacerun: yes;"> </span></span></b></div></td></tr>
</tbody></table><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">No será necesario incluir ningún parámetros adicionales al compilar el programa. </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span style="font-family: Calibri;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;">Como</span><span lang="ES-PE"> </span><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;">todo buen programador que mira a ambos lados antes de cruzar una calle de un solo sentido, hay que prevenir los posibles errores de nuestro programa, por mas sencillo que nos parezca. Que sucedería si en el preciso momento que el sistema actualiza la pantalla (n segundos) el usuario pulsa F3 para salir?</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><span style="font-family: Calibri;">El sistema arrojará el siguiente error:</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; mso-ansi-language: ES-PE; mso-themecolor: accent1; mso-themeshade: 191;"><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 345.6pt;" valign="top" width="461"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>Información Adicional de Mensaje<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>ID de mensaje<span style="mso-spacerun: yes;"> </span>. . . . :<span style="mso-spacerun: yes;"> </span>RNQ1299<span style="mso-spacerun: yes;"> </span>Gravedad . . . . . . . :<span style="mso-spacerun: yes;"> </span>99<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>Tipo de mensaje<span style="mso-spacerun: yes;"> </span>. . . :<span style="mso-spacerun: yes;"> </span>Consulta<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>Fecha envío<span style="mso-spacerun: yes;"> </span>. . . . . :<span style="mso-spacerun: yes;"> </span>02/13/11<span style="mso-spacerun: yes;"> </span>Hora envío . . . . . . :<span style="mso-spacerun: yes;"> </span>19:24:39<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>Mensaje . . . . :<span style="mso-spacerun: yes;"> </span>Se ha detectado un error de E/S CPF4737 en el archivo<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>PANTREF (C G D F).<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>Causa . . . . . :<span style="mso-spacerun: yes;"> </span>El procedimiento RPG REFRESH en el programa<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>MIUSUARIO/REFRESH ha recibido el mensaje CPF4737 en la sentencia 7 mientras<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>efectuaba la operación de E/S WRITE sobre el archivo PANTREF. El archivo<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>real es MIUSUARIO/PANTREF.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>Recuperación<span style="mso-spacerun: yes;"> </span>. :<span style="mso-spacerun: yes;"> </span>Busque más información sobre la causa del error y póngase<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>en contacto con la persona responsable del mantenimiento de programas.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>Respuestas posibles al mensaje<span style="mso-spacerun: yes;"> </span>. . . . . . . . . . . . . . :<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>D -- Obtener una salida impresa del almacenamiento del sistema con formato<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>RPG.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>S -- Obtener una salida impresa del almacenamiento del sistema.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>Más... </span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>Pulse Intro para continuar.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>F3=Salir<span style="mso-spacerun: yes;"> </span>F10=Visualizar mensajes de anotaciones trabajo<span style="mso-spacerun: yes;"> </span>F12=Cancelar<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span>F24=Más teclas<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="font-family: 'Courier New'; font-size: 7pt; mso-bidi-font-size: 9.0pt;"><span style="mso-spacerun: yes;"> </span></span></div></td></tr>
</tbody></table></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #365f91; font-family: 'Calibri','sans-serif'; font-size: 11pt; line-height: 115%; mso-ansi-language: ES-PE; mso-ascii-theme-font: minor-latin; mso-bidi-font-family: 'Times New Roman'; mso-bidi-language: AR-SA; mso-bidi-theme-font: minor-bidi; mso-fareast-font-family: Calibri; mso-fareast-language: EN-US; mso-fareast-theme-font: minor-latin; mso-hansi-theme-font: minor-latin; mso-themecolor: accent1; mso-themeshade: 191;">Solo es cuestión de consistenciar nuestro programa monitoreando la excepción con un indicador en la sentencia WRITE. Eso se los dejo a criterio de cada uno.</span></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-46792791229043100232011-02-10T19:08:00.000-08:002011-02-13T09:16:54.757-08:00Editar Campo de Fecha en Archivo de Pantalla (EDTWRD – EDTMSK)<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Cuantas veces nos piden hacer una pantalla (programa interactivo) donde se ingresen datos. Y entre los datos hay campos de fecha. </span></span><br />
<span style="color: #17365d; font-family: Calibri;"><strong>Como sabe el usuario en que formato ingresar la fecha</strong>? </span><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Como le decimos al usuario en que formato ingresarlo, si deseo que ingresen en formato AAAAMMDD?</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Haría algo así…</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Colocamos un comentario para indicarle el modo en que debe ingresarlo:</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 253.5pt;" valign="top" width="338"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Fecha Nacimiento:<span style="mso-spacerun: yes;"> </span><u><span style="mso-tab-count: 1;"> </span><span style="mso-tab-count: 1;"> </span><span style="mso-spacerun: yes;"> </span></u><span style="mso-spacerun: yes;"> </span><span style="background: yellow; mso-highlight: yellow;">aaaammdd</span></span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><br />
</div></td></tr>
</tbody></table><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">O también así</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 253.5pt;" valign="top" width="338"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Fecha Nacimiento:<span style="mso-spacerun: yes;"> </span>Año <span style="mso-spacerun: yes;"> </span><u><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></u><span style="mso-spacerun: yes;"> </span>Mes <u><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></u><span style="mso-spacerun: yes;"> </span>Día <u><span style="mso-spacerun: yes;"> </span></u><span style="mso-spacerun: yes;"> </span></span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><br />
</div></td></tr>
</tbody></table><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">O esto</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 253.5pt;" valign="top" width="338"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Fecha Nacimiento: <u><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></u><span style="mso-spacerun: yes;"> </span>/<span style="mso-spacerun: yes;"> </span><u><span style="mso-spacerun: yes;"> </span></u><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>/ <u><span style="mso-tab-count: 1;"> </span><span style="mso-spacerun: yes;"> </span></u></span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><br />
</div></td></tr>
</tbody></table><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Internamente, por programa movemos cada variable de la pantalla al respectivo campo de una estructura del programa, luego movemos y etc. etc. </span></span><br />
<span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Pero, previamente, tendremos que realizar algunas validaciones:</span></span><br />
<span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">- Validar que el campo <b style="mso-bidi-font-weight: normal;">mes</b> esté en el rango 1-12</span></span><br />
<span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">- Validar que el campo <b style="mso-bidi-font-weight: normal;">día</b> esté en el rango 1-31 (Aquí tiene relación con el mes, febrero tiene 28 ó 29 días y algunos meses 30 días) y hasta validar el año.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Existe una manera más práctica de hacer esto y colocar los separadores de fecha (puede ser el carácter slash, guiones, etc.) sin tener que separar los meses, días y año.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Solo utilizamos 2 palabras claves en el campo del archivo de pantalla para enmascarar y colocar los separadores de fechas haciendo usos de <b style="mso-bidi-font-weight: normal;">EDTWRD</b> y <b style="mso-bidi-font-weight: normal;">EDTMSK</b>.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Ejemplo: </span></span><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Consideremos un campo numérico de 8 posiciones con 0 decimales.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">En el SDA, seleccionamos las palabras clave del campo.</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 253.5pt;" valign="top" width="338"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Fecha Nacimiento:. <span style="background: yellow; mso-highlight: yellow;">*99999999</span><span style="mso-spacerun: yes;"> </span></span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><br />
</div></td></tr>
</tbody></table><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;"><span style="mso-spacerun: yes;"> </span><b style="mso-bidi-font-weight: normal;">Seleccionar Palabras Clave de Campo</b>, luego <b style="mso-bidi-font-weight: normal;">Palabras claves edición</b> colocamos lo siguiente:</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 345.6pt;" valign="top" width="461"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Seleccionar palabras clave de edición<span style="mso-spacerun: yes;"> </span></span></b></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Campo . . . . . :<span style="mso-spacerun: yes;"> </span>FECNAC<span style="mso-spacerun: yes;"> </span>Utilización: B<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Longitud<span style="mso-spacerun: yes;"> </span>. . . :<span style="mso-spacerun: yes;"> </span>8,0<span style="mso-spacerun: yes;"> </span>Fila . . . : 8<span style="mso-spacerun: yes;"> </span>Columna<span style="mso-spacerun: yes;"> </span>. . :<span style="mso-spacerun: yes;"> </span>31<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Teclee opciones, pulse Intro.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Palabra clave<span style="mso-spacerun: yes;"> </span>Más<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Código de edición<span style="mso-spacerun: yes;"> </span>. . . . . . . . .<span style="mso-spacerun: yes;"> </span>EDTCDE<span style="mso-spacerun: yes;"> </span>A-D, J-Q, W, Y, Z, 1-9<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Sustituir ceros iniciales por<span style="mso-spacerun: yes;"> </span>. .<span style="mso-spacerun: yes;"> </span>*, $<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Palabra de edición . . . . . . . . .<span style="mso-spacerun: yes;"> </span>EDTWRD<span style="mso-spacerun: yes;"> </span><u><span style="background: yellow; mso-highlight: yellow;">'<span style="mso-spacerun: yes;"> </span>/<span style="mso-spacerun: yes;"> </span>/<span style="mso-spacerun: yes;"> </span>'</span></u><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span>Máscara de edición . . . . . . . . .<span style="mso-spacerun: yes;"> </span>EDTMSK<span style="mso-spacerun: yes;"> </span><u><span style="background: yellow; mso-highlight: yellow;">'<span style="mso-spacerun: yes;"> </span>&<span style="mso-spacerun: yes;"> </span>&<span style="mso-spacerun: yes;"> </span>'</span></u><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"> </span></span></div></td></tr>
</tbody></table><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">En el programa no se realiza ningún cálculo ni movimiento de variables, solo se tendrá que validar la validez de la fecha. Moviendo la variable de la pantalla a un campo fecha y monitorear los indicadores de error.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Ojo: <span style="mso-spacerun: yes;"> </span>Esto es válido para campos numéricos bivalentes (ingreso y salida). </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Si deseo que al iniciar el proceso, el campo fecha presente los separadores e inicializado con ceros, tendré que anteponer un cero de la manera siguiente:</span></span></div><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 8pt; line-height: 115%; mso-ansi-language: ES-PE; mso-bidi-language: AR-SA; mso-fareast-font-family: Calibri; mso-fareast-language: EN-US; mso-fareast-theme-font: minor-latin; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri; font-size: small;"></span></span></span></span><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 8pt; line-height: 115%; mso-ansi-language: ES-PE; mso-bidi-language: AR-SA; mso-fareast-font-family: Calibri; mso-fareast-language: EN-US; mso-fareast-theme-font: minor-latin; mso-themecolor: text2; mso-themeshade: 191;"><span style="mso-spacerun: yes;"></span></span><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 246.4pt;" valign="top" width="329"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><br />
</div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #17365d; font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;">Palabra de edición . . . . EDTWRD<span style="mso-spacerun: yes;"> </span><u><span style="background: yellow; mso-highlight: yellow;">'0 <span style="mso-spacerun: yes;"> </span>/<span style="mso-spacerun: yes;"> </span>/<span style="mso-spacerun: yes;"> </span>'</span></u><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><br />
</div></td></tr>
</tbody></table></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjeO_k3ygGPfupXnF7sM3McyZDHanRGXYRSXg-Ptp9BroKUAxFzZi5t8KZRUttGc3MdJ0LtwHq9QwznkAumeIt0LrWXkt3_kwsSdctnSrLIWOjvxpkNaVlzG5Sq9O7-KF4J-fbz2YhGcUL-/s1600/enmascaramiento.JPG" imageanchor="1" style="clear: left; cssfloat: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" h5="true" height="143" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjeO_k3ygGPfupXnF7sM3McyZDHanRGXYRSXg-Ptp9BroKUAxFzZi5t8KZRUttGc3MdJ0LtwHq9QwznkAumeIt0LrWXkt3_kwsSdctnSrLIWOjvxpkNaVlzG5Sq9O7-KF4J-fbz2YhGcUL-/s320/enmascaramiento.JPG" width="320" /></a></div><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">El campo numérico siempre será de 8 posiciones. Solo que en la pantalla se mostrarán los separadores pero el campo fecha se tratará como un solo campo numerico. Los separadores ayudaran al usuario para saber el formato que debe usar. </span></span><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Claro que luego tendremos que validar que sea una fecha valida y convertimos al formato que tiene el campo en la tabla.</span></span><br />
<span style="color: #17365d; font-family: Calibri;">Esto lo podemos aplicar para diferentes tipos de formato númericos (número teléfono, número tarjeta credito, etc.) </span></div><span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Encontraremos mas información acerca de esto en los manuales on line de ibm.</span></span><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<a href="http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=%2Frzakc%2Frzakcmstedtmsk.htm"><span style="font-size: x-small;">http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=%2Frzakc%2Frzakcmstedtmsk.htm</span></a><br />
<br />
<span lang="ES-PE" style="color: #17365d; mso-ansi-language: ES-PE; mso-themecolor: text2; mso-themeshade: 191;"><span style="font-family: Calibri;">Esto nos servirá para hacer más presentables nuestras interfaces. Más adelante compartiré otras utilidades para mejorar nuestras pantallas.</span></span></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-28341164000468047072011-02-02T20:34:00.000-08:002011-02-11T19:21:56.496-08:00Prefix En Cobol AS400<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">En cobol nos hemos visto con la necesidad de trabajar con 2 archivos con la misma estructura. Y por tal, tienen los mismos formatos de registro y nombre de campos iguales. Que hacemos para diferenciar a que archivo pertenece cada campo?</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;"><strong>Solución 1</strong>.- Para poder diferenciar que campo pertenece a cada archivo podemos declarar la estructura de cada registro internamente (dentro del programa) y así salimos del apuro</span><span style="font-family: "Courier New", Courier, monospace; font-size: x-small;">.</span></span><br />
<br />
<span style="font-family: "Courier New", Courier, monospace; font-size: x-small;"> <strong> FILE SECTION. <br />
FD ARCHIVO1 <br />
LABEL RECORDS ARE STANDARD. <br />
01 REG-ARCH1. <br />
05 A-CAMPO1 PIC 9(3). <br />
05 A-CAMPO2 PIC X(15). <br />
05 A-CAMPO3 PIC 9(10)V99.</strong></span> <br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;"><strong>Solución 2.-</strong> Pero si declaramos los registros externamente (COPY DDS-ALL-FORMATS OF …) se tendría que identificar cada campo a que registro pertenece, puesto que el compilador arrojaría error, ya que no sabría a que archivo pertenece.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Por ejemplo:</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;"><span style="mso-tab-count: 1;"> </span>MOVE CAMPO3<span style="mso-tab-count: 1;"> </span><span style="mso-tab-count: 1;"> </span>TO<span style="mso-tab-count: 1;"> </span>CAMPO3</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 388.15pt;" valign="top" width="518"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">*<span style="mso-spacerun: yes;"> </span>41<span style="mso-spacerun: yes;"> </span>IDMSJ: LNC1463<span style="mso-spacerun: yes;"> </span>GRAVEDAD: 30<span style="mso-spacerun: yes;"> </span>NUMSEC:<span style="mso-spacerun: yes;"> </span>005400<span style="mso-spacerun: yes;"> </span></span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;"><span style="mso-spacerun: yes;"> </span>Mensaje . . . . :<span style="mso-spacerun: yes;"> </span><b style="mso-bidi-font-weight: normal;">'CAMPO3' no es exclusivo dentro de este contexto.<span style="mso-spacerun: yes;"> </span></b></span></span></div></td></tr>
</tbody></table><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Tendríamos que hacer lo siguiente:</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt; text-indent: 36pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">MOVE CAMPO3 OF REG-ARCH1 TO CAMPO3 OF REG-ARCH2<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Pero resultaría laborioso realizar esto por cada campo del archivo.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span style="font-family: Calibri;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><strong>Solución 3</strong>.- <span style="mso-spacerun: yes;"> </span>Podemos declarar un COPYBOOK <span style="mso-spacerun: yes;"> </span>e incluirlo dentro del programa para cada archivo pero diferenciándolo por una letra o numero haciendo uso de la clausula REPLACING. Y el compilador generará automáticamente los registros para cada archivo.</span><span style="color: #1f497d; mso-themecolor: text2;"></span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span style="color: #1f497d; mso-themecolor: text2;"><span style="font-family: Calibri;">Este es el fuente Copybook, el cual contiene un caracter o caracteres que deberan ser reemplazados en el programa principal. Los cuales se encuentran entre el signo “:”</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><i style="mso-bidi-font-style: normal;"><span style="color: #1f497d; mso-themecolor: text2;"><span style="font-family: Calibri;">Nombre de fuente: CopyArch</span></span></i></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><i style="mso-bidi-font-style: normal;"><span style="color: #1f497d; mso-themecolor: text2;"></span></i><i style="mso-bidi-font-style: normal;"><span style="color: #1f497d; mso-themecolor: text2;"><span style="font-family: Calibri;">Tipo fuente: TXT</span></span></i></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 381.05pt;" valign="top" width="508"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">*************** Principio de datos ************************</span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>* DESCRIPCION DEL REGISTRO DEL ARCHIVO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>01<span style="mso-spacerun: yes;"> </span><span style="background-color: #fff2cc;">:X:-</span>REG.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>05<span style="mso-spacerun: yes;"> </span><span style="background-color: #fff2cc;">:X:-</span>CAMPO1<span style="mso-spacerun: yes;"> </span>PIC 9(3).<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>05<span style="mso-spacerun: yes;"> </span><span style="background-color: #fff2cc;">:X</span><span style="background-color: #fff2cc;">:-</span>CAMPO2<span style="mso-spacerun: yes;"> </span>PIC X(15).<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>05<span style="mso-spacerun: yes;"> </span><span style="background-color: #fff2cc;">:X:-</span>CAMPO3<span style="mso-spacerun: yes;"> </span>PIC 9(10)V99.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">****************** Fin de datos ***************************</span></div></td></tr>
</tbody></table><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Nota: La descripción del registro dentro del fuente copybook deberá respetar las posiciones las Área A y área B.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">La declaración del copybook dentro del programa principal se ubicará en la FILE SECTION de la DATA DIVISION de la siguiente manera:</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 381.05pt;" valign="top" width="508"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;">......-A+++B++++++++++++++++++++++++++++++++++++++++++++++++++++</span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>DATA DIVISION.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>FILE SECTION.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>FD ARCHIVO1.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span><span style="background-color: #fff2cc;">COPY COPYBOOK IN QCBLSRC REPLACING ==:X:== BY ==A==. </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>FD ARCHIVO2.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span><span style="background-color: #fff2cc;">COPY COPYBOOK IN QCBLSRC REPLACING ==:X:== BY ==B==.</span> </span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>*<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>WORKING-STORAGE SECTION.<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>01 FILE-STATUS.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>03<span style="mso-spacerun: yes;"> </span>FS-ARCH1<span style="mso-spacerun: yes;"> </span>PIC XX.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>03<span style="mso-spacerun: yes;"> </span>FS-ARCH2<span style="mso-spacerun: yes;"> </span>PIC XX.<span style="mso-spacerun: yes;"> </span></span></div></td></tr>
</tbody></table><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">En nuestro ejemplo el carácter X será reemplazado por el carácter A en cada uno de los campos de la estructura del fuente copybook declarado para el registro del archivo ARCHIVO1. Y para el registro del archivo ARCHIVO2 el carácter X será reemplazado por el carácter B.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Si vemos la compilación del fuente o realizamos un DEBUG con vista de depuración (*LIST) podremos ver como el compilador reemplaza el carácter A en la posición de X.</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 388.15pt;" valign="top" width="518"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">15<span style="mso-spacerun: yes;"> </span>002400 DATA DIVISION.<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">16<span style="mso-spacerun: yes;"> </span>002500 FILE SECTION.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">17<span style="mso-spacerun: yes;"> </span>002600 FD ARCHIVO1.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>002700<span style="mso-spacerun: yes;"> </span>COPY COPYBOOK IN QCBLSRC REPLACING ==:X:== BY ==A==.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;"><span style="mso-spacerun: yes;"> </span>+000200* DESCRIPCION DEL REGISTRO DEL ARCHIVO<span style="mso-spacerun: yes;"> </span>COPYBOOK</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">18<span style="mso-spacerun: yes;"> </span>+000500<span style="mso-spacerun: yes;"> </span>01 A-REG.<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>COPYBOOK</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">19<span style="mso-spacerun: yes;"> </span>+000600<span style="mso-spacerun: yes;"> </span>05 A-CAMPO1<span style="mso-spacerun: yes;"> </span>PIC 9(3).<span style="mso-spacerun: yes;"> </span>COPYBOOK</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">20<span style="mso-spacerun: yes;"> </span>+000700<span style="mso-spacerun: yes;"> </span>05 A-CAMPO2<span style="mso-spacerun: yes;"> </span>PIC X(15).<span style="mso-spacerun: yes;"> </span>COPYBOOK</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">21<span style="mso-spacerun: yes;"> </span>+000800<span style="mso-spacerun: yes;"> </span>05 A-CAMPO3<span style="mso-spacerun: yes;"> </span>PIC 9(10)V99.<span style="mso-spacerun: yes;"> </span>COPYBOOK</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">22<span style="mso-spacerun: yes;"> </span>003100 FD ARCHIVO2.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>003200<span style="mso-spacerun: yes;"> </span>COPY COPYBOOK IN QCBLSRC REPLACING ==:X:== BY ==B==.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;"><span style="mso-spacerun: yes;"> </span>+000200* DESCRIPCION DEL REGISTRO DEL ARCHIVO<span style="mso-spacerun: yes;"> </span>COPYBOOK</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">23<span style="mso-spacerun: yes;"> </span>+000500<span style="mso-spacerun: yes;"> </span>01 B-REG.<span style="mso-spacerun: yes;"> </span>COPYBOOK</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">24<span style="mso-spacerun: yes;"> </span>+000600<span style="mso-spacerun: yes;"> </span>05 B-CAMPO1<span style="mso-spacerun: yes;"> </span>PIC 9(3).<span style="mso-spacerun: yes;"> </span>COPYBOOK</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">25<span style="mso-spacerun: yes;"> </span>+000700<span style="mso-spacerun: yes;"> </span>05 B-CAMPO2<span style="mso-spacerun: yes;"> </span>PIC X(15).<span style="mso-spacerun: yes;"> </span>COPYBOOK</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">26<span style="mso-spacerun: yes;"> </span>+000800<span style="mso-spacerun: yes;"> </span>05 B-CAMPO3<span style="mso-spacerun: yes;"> </span>PIC 9(10)V99.<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>COPYBOOK</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>003700*<span style="mso-spacerun: yes;"> </span></span></div></td></tr>
</tbody></table><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;"><strong>Solución 4.-</strong> Hay otra manera más apropiada y sencilla de hacer esto. Asi como en RPG ILE existe la palabra clave PREFIX, el COBOL ILE también la posee. Aquí les va un ejemplo de cómo aplicarlo al ejemplo anterior.</span></span></div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 388.15pt;" valign="top" width="518"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">......-A+++B++++++++++++++++++++++++++++++++++++++++++++++++++</span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>DATA DIVISION.<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>FILE SECTION.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>FD ARCHIVO1<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>LABEL RECORDS ARE STANDARD<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>DATA RECORD IS REGFILE1.<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>01 REG-ARCH1.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>COPY DDS-ALL-FORMATS OF ARCHIVO1 <span style="background-color: #fff2cc;">PREFIX BY 'A-'.</span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>FD ARCHIVO2<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>LABEL RECORDS ARE STANDARD<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>DATA RECORD IS REGFILE2.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>01 REG-ARCH2.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 9pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>COPY DDS-ALL-FORMATS OF ARCHIVO2 <span style="background-color: #fff2cc;">PREFIX BY 'B-'.</span><span style="mso-spacerun: yes;"> </span></span></div></td></tr>
</tbody></table><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">En nuestro ejemplo el prefijo “A-“ <span style="mso-spacerun: yes;"> </span>se antepondrá en cada uno de los campos de la estructura del registro para el archivo ARCHIVO1. Y para el registro del archivo ARCHIVO2 el prefijo “B-“.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Si vemos la compilación del fuente o realizamos un DEBUG con vista de depuración (*LIST) podremos ver como el compilador antepone el carácter “A-“ y “B-“ respectivamente en cada campo de los registros de cada archivo.</span></span><span lang="ES-PE" style="color: #1f497d; font-family: "Calibri", "sans-serif"; font-size: 11pt; line-height: 115%; mso-ansi-language: ES-PE; mso-ascii-theme-font: minor-latin; mso-bidi-font-family: 'Times New Roman'; mso-bidi-language: AR-SA; mso-bidi-theme-font: minor-bidi; mso-fareast-font-family: Calibri; mso-fareast-language: EN-US; mso-fareast-theme-font: minor-latin; mso-hansi-theme-font: minor-latin; mso-themecolor: text2;"><br clear="all" style="mso-special-character: line-break; page-break-before: always;" /></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
</div><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: windowtext 1pt solid; border-left: windowtext 1pt solid; border-right: windowtext 1pt solid; border-top: windowtext 1pt solid; mso-border-alt: solid windowtext .5pt; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 388.15pt;" valign="top" width="518"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">15<span style="mso-spacerun: yes;"> </span>002400 DATA DIVISION.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">16<span style="mso-spacerun: yes;"> </span>002500 FILE SECTION.<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">17<span style="mso-spacerun: yes;"> </span>002600 FD ARCHIVO1<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>002700<span style="mso-spacerun: yes;"> </span>LABEL RECORDS ARE STANDARD<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>002800<span style="mso-spacerun: yes;"> </span>DATA RECORD IS REGFILE1.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">18<span style="mso-spacerun: yes;"> </span>002900 01 REG-ARCH1.<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>003000<span style="mso-spacerun: yes;"> </span>COPY DDS-ALL-FORMATS OF ARCHIVO1 PREFIX BY 'A-'.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">19<span style="mso-spacerun: yes;"> </span>+000001<span style="mso-spacerun: yes;"> </span>05<span style="mso-spacerun: yes;"> </span>ARCHIVO1-RECORD PIC X(25).<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>+000002*<span style="mso-spacerun: yes;"> </span>I-O FORMAT:REGFILE1<span style="mso-spacerun: yes;"> </span>FROM FILE ARCHIVO1<span style="mso-spacerun: yes;"> </span>OF LIBRARY MILIBRERIA<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;"><span style="mso-spacerun: yes;"> </span>+000003*<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">20<span style="mso-spacerun: yes;"> </span>+000004<span style="mso-spacerun: yes;"> </span>05<span style="mso-spacerun: yes;"> </span>REGFILE1<span style="mso-spacerun: yes;"> </span>REDEFINES ARCHIVO1-RECORD.<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">21<span style="mso-spacerun: yes;"> </span>+000005<span style="mso-spacerun: yes;"> </span>06 A-CAMPO1<span style="mso-spacerun: yes;"> </span>PIC S9(3).<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">22<span style="mso-spacerun: yes;"> </span>+000006<span style="mso-spacerun: yes;"> </span>06 A-CAMPO2<span style="mso-spacerun: yes;"> </span>PIC X(15).<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">23<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>+000007<span style="mso-spacerun: yes;"> </span>06 A-CAMPO3<span style="mso-spacerun: yes;"> </span>PIC S9(10)V9(2)<span style="mso-spacerun: yes;"> </span>COMP-3.<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">24<span style="mso-spacerun: yes;"> </span>003100 FD ARCHIVO2<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>003200<span style="mso-spacerun: yes;"> </span>LABEL RECORDS ARE STANDARD<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>003300<span style="mso-spacerun: yes;"> </span>DATA RECORD IS REGFILE2.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;">25<span style="mso-spacerun: yes;"> </span>003400 01 REG-ARCH2.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="mso-spacerun: yes;"> </span>003500<span style="mso-spacerun: yes;"> </span>COPY DDS-ALL-FORMATS OF ARCHIVO2 PREFIX BY 'B-'.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">26<span style="mso-spacerun: yes;"> </span>+000001<span style="mso-spacerun: yes;"> </span>05<span style="mso-spacerun: yes;"> </span>ARCHIVO2-RECORD PIC X(30).<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;"><span style="mso-spacerun: yes;"> </span>+000002*<span style="mso-spacerun: yes;"> </span>I-O FORMAT:REGFILE1<span style="mso-spacerun: yes;"> </span>FROM FILE ARCHIVO2 <span style="mso-spacerun: yes;"> </span>OF LIBRARY MILIBRERIA<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;"><span style="mso-spacerun: yes;"> </span>+000003*<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">27<span style="mso-spacerun: yes;"> </span>+000004<span style="mso-spacerun: yes;"> </span>05<span style="mso-spacerun: yes;"> </span>REGFILE1<span style="mso-spacerun: yes;"> </span>REDEFINES ARCHIVO2-RECORD.<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">28<span style="mso-spacerun: yes;"> </span>+000005<span style="mso-spacerun: yes;"> </span>06 B-CAMPO1<span style="mso-spacerun: yes;"> </span>PIC S9(3).<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">29<span style="mso-spacerun: yes;"> </span>+000006<span style="mso-spacerun: yes;"> </span>06 B-CAMPO2<span style="mso-spacerun: yes;"> </span>PIC X(15).<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;">30<span style="mso-spacerun: yes;"> </span>+000007<span style="mso-spacerun: yes;"> </span>06 B-CAMPO3<span style="mso-spacerun: yes;"> </span>PIC S9(10)V9(2).<span style="mso-spacerun: yes;"> </span><-ALL-FMTS</span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="color: #1f497d; font-family: "Courier New"; font-size: 6pt; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="background-color: #fff2cc;"><span style="mso-spacerun: yes;"> </span>003700*<span style="mso-spacerun: yes;"> </span></span></span></div></td></tr>
</tbody></table><br />
<br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Una vez realizadas esas declaraciones podremos trabajar los campos dentro del programa de la siguiente manera.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;"><span style="mso-tab-count: 1;"> </span>MOVE A-CAMPO1<span style="mso-tab-count: 1;"> </span>TO<span style="mso-tab-count: 1;"> </span>B-CAMPO1</span></span></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com0tag:blogger.com,1999:blog-3031825386943356438.post-79933377455374409742011-01-31T19:49:00.000-08:002011-02-07T19:10:08.207-08:00Número Relativo en SQL 400 ((Monitorear Error de Datos Decimales)<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Hay tablas que por diversos motivos contienen datos numéricos inválidos, mayormente, producto de una mala copia (CPYF). Y al procesarlos el sistema nos muestra ese mensaje que ya todos conocemos: “Error de datos decimales.”</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Si usas Rgp Ile podemos monitorear automáticamente dicha excepción en el momento de compilar el programa, colocando en el parámetro FIXNBR (Arreglar numérico) los valores *ZONED y *INPUTPACKED, con eso los datos numéricos no válidos se trataran como ceros.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">La información que nos muestra el sistema respecto al registro con dato numérico inválido es el número de registro relativo del archivo. Esto lo podemos obtener visualizando el trabajo, ya sea interactivo o por lotes, con la opción 14 del comando DSPJOB . </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">DSPJOB JOB(866190/MIUSUARIO/QPADEV004K)<span style="mso-spacerun: yes;"> </span></span></span></b><br />
<br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid #31849B .5pt; mso-border-insideh-themecolor: accent5; mso-border-insideh-themeshade: 191; mso-border-insideh: .5pt solid #31849B; mso-border-insidev-themecolor: accent5; mso-border-insidev-themeshade: 191; mso-border-insidev: .5pt solid #31849B; mso-border-themecolor: accent5; mso-border-themeshade: 191; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: #31849b 1pt solid; border-left: #31849b 1pt solid; border-right: #31849b 1pt solid; border-top: #31849b 1pt solid; mso-border-alt: solid #31849B .5pt; mso-border-themecolor: accent5; mso-border-themeshade: 191; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 366.9pt;" valign="top" width="489"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><span style="background: #fff2cc; mso-highlight: yellow;">Visualizar Trabajo</span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Sistema:<span style="mso-spacerun: yes;"> </span>PUB1<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Trabajo:<span style="mso-spacerun: yes;"> </span>QPADEV004K<span style="mso-spacerun: yes;"> </span>Usuario:<span style="mso-spacerun: yes;"> </span>MIUSUARIO<span style="mso-spacerun: yes;"> </span>Número:<span style="mso-spacerun: yes;"> </span>866190<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Seleccione una de las opciones siguientes:<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>1. Visualizar atributos de estado de trabajo<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>2. Visualizar atributos de definición de trabajo<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>3. Visualizar atributos de ejecución de trabajo, si está activo<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>4. Visualizar archivos en spool<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>10. Visualizar anotaciones trabajo, si está activo o en cola de trabajos<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>11. Visualizar pila de llamadas, si está activo<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>12. Visualizar bloqueos, si está activo<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>13. Visualizar lista de bibliotecas, si está activo<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><span style="background: #fff2cc; mso-highlight: yellow;">14. Visualizar archivos abiertos, si está activo</span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>15. Visualizar alteraciones temporales de archivo, si está activo<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>16. Visualizar estado de control de compromiso, si está activo<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Más... </span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Selección<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>F3=Salir<span style="mso-spacerun: yes;"> </span>F12=Cancelar<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div></td></tr>
</tbody></table></div><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Esta opción nos permite visualizar los archivos que el sistema utiliza en dicho trabajo. </span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">En la pantalla “Visualizar Archivos Abiertos” pulsando F11 (<i style="mso-bidi-font-style: normal;">Visual. detalles E/S</i>) podremos descubrir el numero relativo del registro que tiene problemas. </span></span><br />
<br />
<span style="color: #1f497d; font-family: Calibri;"><table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid #31849B .5pt; mso-border-insideh-themecolor: accent5; mso-border-insideh-themeshade: 191; mso-border-insideh: .5pt solid #31849B; mso-border-insidev-themecolor: accent5; mso-border-insidev-themeshade: 191; mso-border-insidev: .5pt solid #31849B; mso-border-themecolor: accent5; mso-border-themeshade: 191; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: #31849b 1pt solid; border-left: #31849b 1pt solid; border-right: #31849b 1pt solid; border-top: #31849b 1pt solid; mso-border-alt: solid #31849B .5pt; mso-border-themecolor: accent5; mso-border-themeshade: 191; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 373.95pt;" valign="top" width="499"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> <span style="background-color: #fff2cc;"> </span></span><span style="background: #fff2cc; mso-highlight: yellow;">Visualizar Archivos Abiertos</span><span style="mso-spacerun: yes;"><span style="background-color: #fff2cc;"> </span> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Trabajo :<span style="mso-spacerun: yes;"> </span>QPADEV004K<span style="mso-spacerun: yes;"> </span>Usuario<span style="mso-spacerun: yes;"> </span>:<span style="mso-spacerun: yes;"> </span>MIUSUARIO<span style="mso-spacerun: yes;"> </span>Número . . . :<span style="mso-spacerun: yes;"> </span>866190 </span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Número de vías de datos abiertas<span style="mso-spacerun: yes;"> </span>. . . . . . :<span style="mso-spacerun: yes;"> </span>6<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Miembro/<span style="mso-spacerun: yes;"> </span>Formato<span style="mso-spacerun: yes;"> </span>Tipo<span style="mso-spacerun: yes;"> </span>Núm.<span style="mso-spacerun: yes;"> </span>-Abiertos--<span style="mso-spacerun: yes;"> </span>Registro </span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Archivo<span style="mso-spacerun: yes;"> </span>Bibliot.<span style="mso-spacerun: yes;"> </span>disposit.<span style="mso-spacerun: yes;"> </span>registro<span style="mso-spacerun: yes;"> </span>arch.<span style="mso-spacerun: yes;"> </span>E/S<span style="mso-spacerun: yes;"> </span>Opc Núm-cmp<span style="mso-spacerun: yes;"> </span>relativo </span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>QDSPMNU<span style="mso-spacerun: yes;"> </span>QSYS2931<span style="mso-spacerun: yes;"> </span>QPADEV004K MENULY<span style="mso-spacerun: yes;"> </span>DSP<span style="mso-spacerun: yes;"> </span>2 IO<span style="mso-spacerun: yes;"> </span>NO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>QDUODSPF<span style="mso-spacerun: yes;"> </span>QSYS2931<span style="mso-spacerun: yes;"> </span>QPADEV004K MSGSFC<span style="mso-spacerun: yes;"> </span>DSP<span style="mso-spacerun: yes;"> </span>500 IO<span style="mso-spacerun: yes;"> </span>NO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>QDDSPEXT<span style="mso-spacerun: yes;"> </span>QSYS2931<span style="mso-spacerun: yes;"> </span>*N<span style="mso-spacerun: yes;"> </span>INQFMT<span style="mso-spacerun: yes;"> </span>DSP<span style="mso-spacerun: yes;"> </span>161 IO<span style="mso-spacerun: yes;"> </span>NO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="background-color: #fff2cc;"><span style="mso-spacerun: yes;"> </span><span style="background-attachment: scroll; background-image: none; background-position: 0% 0%; background-repeat: repeat; mso-highlight: yellow;">ARCHIVO1<span style="mso-spacerun: yes;"> </span>MIUSUARIO<span style="mso-spacerun: yes;"> </span>ARCHIVO1<span style="mso-spacerun: yes;"> </span>REGFILE1<span style="mso-spacerun: yes;"> </span>PHY<span style="mso-spacerun: yes;"> </span>1 I<span style="mso-spacerun: yes;"> </span>NO<span style="mso-spacerun: yes;"> </span>3</span></span> </span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>QDUI132<span style="mso-spacerun: yes;"> </span>QSYS2931<span style="mso-spacerun: yes;"> </span>QPADEV004K USRRCD<span style="mso-spacerun: yes;"> </span>DSP<span style="mso-spacerun: yes;"> </span>4 IO<span style="mso-spacerun: yes;"> </span>NO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>QDDSPOF<span style="mso-spacerun: yes;"> </span>QSYS2931<span style="mso-spacerun: yes;"> </span>QPADEV004K DETAIL2<span style="mso-spacerun: yes;"> </span>DSP<span style="mso-spacerun: yes;"> </span>16 IO<span style="mso-spacerun: yes;"> </span>NO<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Final </span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>Pulse Intro para continuar.<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>F3=Salir<span style="mso-spacerun: yes;"> </span>F5=Renovar<span style="mso-spacerun: yes;"> </span>F11=Visual. datos ámbito<span style="mso-spacerun: yes;"> </span>F12=Cancelar F16=Menú trabajo</span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div></td></tr>
</tbody></table></span></div><br />
<span style="color: #1f497d; font-family: Calibri;">Si estamos hablando de un archivo sin claves, el DFU nos permite ubicar el registro por numero relativo, pulsando la tecla F11. Luego colocamos el numero relativo del registro</span><br />
<br />
<span style="background-color: #f1c232;"><span style="background-color: #fff2cc;">*RECNBR: </span><u><span style="background-color: #fff2cc;"> 3</span><span style="background-color: #fff2cc;"> </span></u></span><br />
<br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Pero no podremos modificar el dato del registro, puesto que la información no podrá visualizarse en la pantalla, mostrandose el mensaje <em>“El registro recuperado contiene datos no válidos.”</em><span style="mso-spacerun: yes;"><em> </em></span></span></span><span style="color: #1f497d; font-family: Calibri;"></span><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Yo utilizo la función RRN del SQL.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">En nuestro ejemplo el error esta en el registro relativo 3, vamos al SQL y seleccionamos dicho registro de la siguiente manera:</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">SELECT * <span style="mso-spacerun: yes;"> </span>FROM MILIBRERIA/ARCHIVO1 WHERE RRN(ARCHIVO1) = 3</span></span></b></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">O si deseamos podremos ver todos los registros y a la vez el numero relativo al que pertenecen.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">SELECT RRN(ARCHIVO1), CAMPO1, CAMPO2, CAMPO3 FROM MIUSUARIO/ARCHIVO1<span style="mso-spacerun: yes;"> </span></span></span></b><br />
<br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-bottom: medium none; border-collapse: collapse; border-left: medium none; border-right: medium none; border-top: medium none; mso-border-alt: solid #31849B .5pt; mso-border-insideh-themecolor: accent5; mso-border-insideh-themeshade: 191; mso-border-insideh: .5pt solid #31849B; mso-border-insidev-themecolor: accent5; mso-border-insidev-themeshade: 191; mso-border-insidev: .5pt solid #31849B; mso-border-themecolor: accent5; mso-border-themeshade: 191; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"><tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;"><td style="background-color: transparent; border-bottom: #31849b 1pt solid; border-left: #31849b 1pt solid; border-right: #31849b 1pt solid; border-top: #31849b 1pt solid; mso-border-alt: solid #31849B .5pt; mso-border-themecolor: accent5; mso-border-themeshade: 191; padding-bottom: 0cm; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; width: 303.1pt;" valign="top" width="404"><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;">....+....1....+....2....+....3....+....4....+....5....+....6....<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>RRN ( ARCHIVO1 )<span style="mso-spacerun: yes;"> </span>CAMPO1<span style="mso-spacerun: yes;"> </span>CAMPO2<span style="mso-spacerun: yes;"> </span>CAMPO3<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>1<span style="mso-spacerun: yes;"> </span>111<span style="mso-spacerun: yes;"> </span>CRISTIAN<span style="mso-spacerun: yes;"> </span>150.00<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>2<span style="mso-spacerun: yes;"> </span>222<span style="mso-spacerun: yes;"> </span>SERGIO<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>56.22<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> <span style="background-color: #fff2cc;"> </span></span><span style="background: #fff2cc; mso-highlight: yellow;">3<span style="mso-spacerun: yes;"> </span>100<span style="mso-spacerun: yes;"> </span>01FISICOQUIMICA<span style="mso-spacerun: yes;"> </span>+++++++++++++++++</span><span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>4<span style="mso-spacerun: yes;"> </span>100<span style="mso-spacerun: yes;"> </span>02FISICA IV<span style="mso-spacerun: yes;"> </span>+++++++++++++++++<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span>5<span style="mso-spacerun: yes;"> </span>100<span style="mso-spacerun: yes;"> </span>03BIOLOGIA<span style="mso-spacerun: yes;"> </span>+++++++++++++++++<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;">********<span style="mso-spacerun: yes;"> </span>Fin de datos<span style="mso-spacerun: yes;"> </span>********<span style="mso-spacerun: yes;"> </span></span></div><div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;"><span lang="ES-PE" style="font-family: 'Courier New'; font-size: 7pt; mso-ansi-language: ES-PE;"><span style="mso-spacerun: yes;"> </span></span></div></td></tr>
</tbody></table></div><span style="color: #1f497d; font-family: Calibri;">Si se tratase de un archivo que contiene varios datos numéricos, con esta función podrás identificar que dato presenta el problema. </span><br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Luego de identificar el problema puedes utilizar un poderoso UPDATE para modificar el dato con el valor correcto. Por ejemplo:</span></span><br />
<br />
<b style="mso-bidi-font-weight: normal;"><span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">UPDATE MIUSUARIO/ARCHIVO1 SET CAMPO3 = 50.25 WHERE RRN(ARCHIVO1) = 3</span></span></b><br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"></span><br />
<div class="MsoNormal" style="margin: 0cm 0cm 10pt;"><br />
<span lang="ES-PE" style="color: #1f497d; mso-ansi-language: ES-PE; mso-themecolor: text2;"><span style="font-family: Calibri;">Esta función es muy útil, no solo para detectar inconsistencia de información sino para el manejo de la información de los archivos. Espero te sirva de mucha utilidad. Nos vemos.</span></span></div><div class="MsoNormal" style="margin: 0cm 0cm 10pt;"></div>Iseries Peruhttp://www.blogger.com/profile/16679897282463808785noreply@blogger.com1