RE: Duda de Cobol

[LLuis Segura]

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.