RE: Duda de Cobol

[Juan Manuel Villazana Pe�a]

Muchas gracias a todos y en especial a Luis, ya que lo que ha mandado es precisamente lo que buscabamos, ya que la estructura de la programaci�n es compleja y lo har�a m�s si tomaramos la idea de pasar par�metros.

As� es que, problema resuelto.

Gracias nuevamente y un saludo a todos.

Juan Manuel Villazana

 LLuis Segura <[EMAIL PROTECTED]> wrote:

Hola Juan Manuel, tambi�n se puede recuperar el �rea de atributos, en la SPECIAL NAMES se trata de definir lo siguiente:

 

A+++B++++++++++++++++++++++++++++++++++++++

  SPECIAL-NAMES. DECIMAL-POINT IS COMMA   

                 C01 IS SALTO             

                 REQUESTOR IS PANTALLA    

                 SYSTEM-CONSOLE IS CONSOLE

                 ATTRIBUTE-DATA IS ATTR.  

 

Despu�s en la Working-storage Section se debe definir una �rea mas o menos como sigue:

 

  *****************************************************************

       05  ATTR1.                                                  

           10  AT-PROG             PIC X(10).                     

           10  AT-DEVD             PIC X(10).                     

           10  AT-USID             PIC X(10).                     

           10  AT-DECL             PIC X.                         

           10  AT-DETY             PIC X(6).                      

           10  AT-REDE             PIC X.                         

           10  AT-ACST             PIC X.                         

           10  AT-INST             PIC X.                         

           10  AT-DAAV             PIC X.                         

           10  AT-DIDI.                                           

               15  AT-NURO         PIC 9(4) COMP-4.               

               15  AT-NUCO         PIC 9(4) COMP-4.               

           10  AT-DIBL             PIC X.                         

           10  AT-ONOF             PIC X.                         

           10  AT-DILO             PIC X.                          

                                                                  

Si quieres ver que te recupera en cada campo hay un ejemplo en el manual de COBOL REFERENCE con la descripci�n de cada campo, en este caso en el campo AT-PROG te da el nombre del programa, en AT-DEVD te da el nombre del dispositivo des de donde se lanza y en el AT-USID te da el nombre del usuario que lo lanz� etc...

 

Despu�s solo te queda llamar en la PROCEDURE DIVISION lo siguiente:

 

PROCEDURE DIVISION USING MVX-LDA, NUM-TRA.       

   INICI SECTION.                                 

   INI-XX.                                        

     OPEN I-O    TRAINTER.                        

     ACCEPT DATTA1 FROM DATE.                     

     MOVE CORR DATTA1 TO DATTA2.                  

     IF ANX OF DATTA2 > 90                         

            MOVE 19 TO ANZ                        

     ELSE                                         

         MOVE 20 TO ANZ.                          

     ACCEPT HORAC  FROM TIME.                     

     MOVE CORR DATTA1 TO DATTA.                    

     ACCEPT ATTR1 FROM ATTR.                      

     MOVE ZEROS TO AR-IND.                        

 

En fin si tienes alguna duda pues ya sabes......

Saludos

 

-----Mensaje original-----
De: Juan Manuel Villazana Pe�a [mailto:[EMAIL PROTECTED]]
Enviado el: jueves, 17 de octubre de 2002 19:05
Para: [EMAIL PROTECTED]
Asunto: Duda de Cobol

 

Hola amigos del Foro.

Recientemente en nuestra empresa, nos acabamos de encontrar una aplicaci�n en COBOL que extrae diferente informaci�n de nuestro sistema contable y debido a que dicha programaci�n no contiene la estandarizaci�n adecuada, tenemos que adecuarla para integrar los est�ndares de nuestra empresa.

Uno de esos est�ndares es el integrar campos de auditor�a ( Usuario, Fecha y Hora ) para las �ltimas adecuaciones realizadas.

Tal vez la pregunta que har�, sea de colegio... pero nuestro fuerte es RPG y no el COBOL.

1) � C�mo obtengo el usuario del JOB en COBOL ? �Que es lo que requiero definir entro del fuente para obtenerlo?

Desde ya, les quedo agradecido.

Un cordial saludo,

Juan Manuel Villazana

 

---

Do You Yahoo!?
Yahoo! Net: La mejor conexi�n a internet y 25MB extra a tu correo por $100 al mes.

---

Do You Yahoo!?
Yahoo! Net: La mejor conexi�n a internet y 25MB extra a tu correo por $100 al mes.