YA CASI FIN DE AÑO...

    EL AÑO SE TERMINA ESTAMOS CONTENTOS, ALEGRES Y TODOS NOS HAREMOS NUEVOS PROPOSITOS.

    REFLEXIONAMOS QUE HICIMOS EN ESTE AÑO, POR QUE NO LOGRAMOS LAS METAS (PROPOSITOS QUE TENIAMOS) Y TRATEMOS DE APRENDER DE LOS FRACASOS.

    PARA EL AÑO QUE VIENE ME HE PROPUESTO NO TENER LAS METAS POR AÑO SI NO POR DIA, ALGUNAS SERAN MAS DIFICIL DE VER SU CRECIMIENTO (ASI COMO NO PUEDES VER EL CRECIMIENTO DE UNA PLANTA EN UN DIA, PERO SIN EMBARGO CRECE).

    SE ME OCURRE CLASIFICAR LAS METAS POR DIA, SEMANA, MES, AÑO.

    INCLUSO PODEMOS CREAR UNA BITACORA, SENCILLA EN EXCELL. AL FINAL DE TODO ES UN PROYECTO TAL VEZ EL MAS IMPORTANTE PUES ES NUESTRA VIDA Y PARTE DE LA VIDA DE LOS QUE CONVIVEN CON NOSOTROS.

    NO QUEDA MAS QUE DESEARLES FELIZ NAVIDAD Y UN PROSPERO AÑO QUE VIENE.

COMENTARIOS

    ME GUSTARIA QUE COMENTARAN LAS ENTRADAS, SI LES FUE UTIL. LOS COMENTARIOS SON IMPORTANTES ME DAN UNA IDEA DE SI LE SIRVE A ALGUIEN LA INFORMACION QUE PONGO. APARTE ES UNA MOTIVACION PARA SEGUIR ESCRIBIENDO.

CURSO COBOL OS/390. REDEFINICIONES

    EN OCACIONES ES NECESARIO HACER UNA REDEFINICION DE ALGUNA VARIABLE YA SEA PARA UTILIZARLA DE DIFERENTE MANERA. UN EJEMPLO SERIA QUE UNA VARIABLE DE TIPO ALFANUMERICA EN LA CUAL DEPOSITAMOS CADENAS DE NUMEROS QUERAMOS CONVERTIRLA A NUMERICA Y VICEVERSA.

01  WS-VARIABLES.
    05  WS-VARIABLE-1 PIC X(06).
    05  WS-VARIABLE-2 REDEFINES WS-VARIABLE-1.
        10 WS-V2-A1 PIC X(02).
        10 WS-V2-A2 PIC 9(04).

PROCEDURE DIVISION.
PERFORM
    MOVE 123456 TO WS-VARIABLE-1
    DISPLAY WS-V2-A1
    DISPLAY WS-V2-A2
END-PERFORM.

12
3456

    PARA CONVERTIR FECHAS A DIFERENTE FORMATO POR EJEMPLO DE DDMMAA A DD-MM-AAAA CREO QUE LO MAS CONVENIENTE SERIA DECLARAR OTRA VARIABLE Y SOLO MOVERLE LOS VALORES A ESTA.

PARA GANAR DINERO SOLO HACIENDO CLIC EN LA PUBLICIDAD

    GANA DINERO SOLO HACIENDO CLIC EN LA PUBLICIDAD ENTRA A :
GANA DINERO1

GANA DINERO2

GANA DINERO3

COMO PUBLICAR EN DOS BLOGS A LA VEZ....

    HACE VARIOS DIAS ESTUBE BUSCANDO LA MANERA DE PUBLICAR EN DOS BLOGS QUE TENGO AL MISMO TIEMPO, YA QUE SON DEL MISMO TIPO UNO LO TENGO EN BLOGGER EL OTRO EN WORDPRESS.

    ME ENCONTRE ESTA HERRAMIENTA LLAMADA ZOUNDRY RAVEN, DESDE LA CUAL SIN HACER EL FAMOSO COPY PASTE PUBLICO EN LOS DOS SITIOS A LA VEZ.

    UNA BUENA SOLUCION, AL MENOS PARA MI.

COMPARTIENDO INTERNET....

    EN EL ENTORNO DE TRABAJO POR ALGUNA RAZON A VECES NOS NIEGAN EL ACCESO A INTERNET (CREO QUE ES POR TANTO CHATEAR, DESCARGAR JUEGOS, PELIS, ETC "SIMPLE HIPOTESIS"), SIN EMBARGO SIEMPRE EXISTE UNA COMPU QUE POR ALGUNA RAZON TIENE ACCESO  O SIMPLEMENTE LA IP DE TU COMPADRE, SI TIENE ACCESO A INTERNET.

    BUENO SIN MAS LA SOLUCION SERIA INSTALAR UN PROXY ESTA PC, EXISTEN MUCHOS PERO LOS QUE YO HE UTILIZADO SON:

ANALOGX PROXY

PROXY +

    EN ANALOGX PROXY UNICAMENTE LO INSTALAS EN LA PC QUE TIENE EN INTERNET, Y TODAS LAS DEMAS QUE QUIERAN ACCESO EN EL NAVEGADOR (INTERNET EXPLORER) IR A:

>HERRAMIENTAS

>OPCIONES DE INTERNET

>SOLAPA CONEXIONES

>CONFIGURACION LAN Y

    YA TENEMOS INTERNET, BUENO ESE TRUCO NOS LO ENSEÑO UN COMPAÑERO LLAMADO PACO, POR ESO DE LOS DERECHOS RESERVADOS. JEJE.

    RESPECTO DEL PROXY +, NO SEAS FLOJO QUE PARA APRENDER AHI QUE INVESTIGAR. PERO CON EL ANALOGX PROXY QUEDARAS MAS QUE BIEN. 

CURSO COBOL OS/390. OPERADORES ARITMETICOS BASICOS.

    COBOL ES UN LENGUAJE PRINCIPALMENTE ORIENTADO A NEGOCIOS, ASI QUE LO QUE MAS VAS A HACER ES:

SUMAR

RESTAR

DIVIDIR

MULTIPLICAR

Y A LO MUCHO SACAR LA RAIZ CUADRADA

    SIN EMBARGO CUENTA CON MAS FUNCIONES PARA SACAR EL SENO, COSENO, TANGENTE, ETC. TE EXPLICARE LAS BASICAS SI QUIERES SABER LA OTRAS BAJATE EL MANUAL.

DECLARACION ADD
    FORMATO 1:
        ADD IDE1 IDE2... TO IDE1 [ROUNDED] IDE2...
    EJEM:
        ADD 12 14 25 TO WS-SUMA

    FORMATO 2:
        ADD IDES1 IDES2 ... TO IDESN
        GIVING IDER1... [ROUNDED] IDER2
    EJEM:
        MOVE 25 TO WS-SUMA
        ADD 25 25 25 TO WS-SUMA GIVING WS-TOTAL
        DISPLAY WS-TOTAL
        DISPLAY WS-SUMA

        25
        100

DECLARACION SUBTRACT
    FORMATO 1:
        SUBTRACT IDES1 IDES2 FROM IDR1 [ROUNDED] IDR2
    EJEM:
        MOVE 50 TO WS-SUMA
        SUBTRACT 10 10 FROM WS-SUMA
        DISPLAY WS-SUMA

        30

    FORMATO 2:
        SUBTRACT IDES1 IDES2 FROM IDESN
        GIVING IDR1 [ROUNDED] IDER2
    EJEM:
DECLARACION MULTIPLY

        MOVE 100 TO WS-SUMA

        SUBTRACT 25 25 FROM WS-SUMA GIVING WS-TOTAL

        DISPLAY WS-SUMA

        DISPLAY WS-TOTAL

        100

        50

    FORMATO 1:
        MULTIPLY IDEM1 BY IDEM2 [ROUNDED] IDER1 IDER2
    EJEM:
        MULTIPLY 2 BY 2 WS-PROD
        DISPLAY WS-PROD

        4

    FORMATO 2:
        MULTIPLY IDEM1 BY IDEM2 GIVING IDER1 IDER2
    EJEM:
        MULTIPLY 2 BY 2 GIVING WS-PROD
        DISPLAY WS-PROD

        4
DECLARACION DIVIDE
    FORMATO 1:
        DIVIDE IDED1 INTO IDED2 [ROUNDED] IDEC1 IDEC2
    EJEM:
        DIVIDE 6 INTO 2 WS-COCIENTE
        DISPLAY WS-COCIENTE
       
        3
       
    FORMATO 2:
        DIVIDE IDED1 INTO IDED2 GIVING IDEC1 [ROUNDED] IDEC2
    EJEM:
        DIVIDE 120 INTO 6 GIVING WS-COCIENTE
        DISPLAY WS-COCIENTE

        20

    FORMATO 3:
        DIVIDE IDED1 INTO IDED2 GIVING IDEC1 [ROUNDED]
        REMAINDER IDER1
    EJEM:
        DIVIDE 10 INTO 3 GIVING WS-COCIENTE
        REMAINDER WS-RESIDUO


DECLARACION COMPUTE
    FORMATO:
        COMPUTE IDER1 [ROUNDED] IDER2 = EXPRESION ARITMETICA

CURSO COBOL OS/390. CODIGOS DE RETORNO ARCHIVOS

    AL REALIZAR LAS OPERACIONES CON ARCHIVOS RECIBIMOS UN CODIGO DE RETORNO QUE SE DEPOSITA EN LA VARIABLE DE LA FILE STATUS:

    LOS MAS COMUNES SON:

'00' OPERACION CORRECTA.
'10' FIN DE ARCHIVO.

    HE COLGADO EN INTERNET UN CONJUNTO DE LOS POSIBLES CODIGOS DE RETORNO RECIBIDOS.

http://www.megaupload.com/?d=7D7GKKVL

CURSO COBOL OS/390. OPERACIONES CON ARCHIVOS.

    EN ESTE APARTADO SOLO HABLAREMOS DE ARCHIVOS SECUENCIALES, SON LOS QUE HE USADO.

    EXISTEN BASICAMENTE 4 OPERACIONES BASICAS EN ARCHIVOS QUE SON:

APERTURA

LECTURA

ESCRITURA

CIERRE

    LA OPERACION DE APERTURA SE REALIZA SE REALIZA CON LA INSTRUCCION OPEN SOBRE EL NOMBRE QUE DECLARAMOS EN LA ENVIRONMENT DIVISION  DESPUES MEDIANTE UN IF ES IMPORTANTE VALIDAR EL FILE STATUS.

    CUANDO ES PARA LECTURA DESPUES DEL OPEN PONEMOS INPUT, CUANDO ES PARA ESCRITURA PONEMOS OUTPUT.

        OPEN INPUT E1DQCLIE
        IF FS-E1DQCLIE = ZEROES
            CONTINUE
        ELSE
            SET SW-ERROR TO TRUE
            DISPLAY 'ERROR PROCESO APERTURA'
            MOVE FS-E1DQCLIE TO WS-ERROR-ESTATUS
        END-IF.

    LA OPERACION DE LECTURA SE REALIZA CON LA INSTRUCCION READ SOBRE EL ARCHIVO, EXISTEN ALGUNA VARIANTES DE ELLA. DESPUES EVALUAMOS EL FILE STATUS, PERO ESTA VEZ UTILIZAREMOS EVALUATE.

    CUANDO DECLARAMOS TODA LA ESTRUCTURA DEL ARCHIVO DENTRO DE LA FD.

        READ E1DQCLIE
        EVALUATE FS-E1DQCLIE
            WHEN ZEROES
                CONTINUE
            WHEN '10'
                SET SW-FIN-ARCHIVO TO TRUE
            WHEN OTHER
                SET SW-ERROR TO TRUE
                DISPLAY 'ERROR PROCESO LECTURA'
                MOVE FS-E1DQCLIE TO WS-ERROR-ESTATUS
        END-EVALUATE.

    CUANDO DECLARAMOS EL LAYOUT EN LA WORKING.

        READ E1DQCLIE INTO WS-E1DQCLIE
        EVALUATE FS-E1DQCLIE
            WHEN ZEROES
                CONTINUE
            WHEN '10'
                SET SW-FIN-ARCHIVO TO TRUE
            WHEN OTHER
                SET SW-ERROR TO TRUE
                DISPLAY 'ERROR PROCESO LECTURA'
                MOVE FS-E1DQCLIE TO WS-ERROR-ESTATUS
        END-EVALUATE.


    LA OPERACION DE ESCRITURA SE REALIZA MEDIANTE LA INSTRUCCION WRITE Y SE HACE SOBRE EL REGISTRO FD  NO SOBRE EL ARCHIVO.

        WRITE FD-S1DQSALI
        IF FS-S1DQSALI = ZEROES
            CONTINUE
        ELSE
            SET SW-ERROR TO TRUE
            DISPLAY 'ERROR PROCESO ESCRITURA'
            MOVE FS-E1DQCLIE TO WS-ERROR-ESTATUS
        END-IF.

POR ULTIMO EL CLOSE PARA CERRAR EL ARCHIVO:

        CLOSE S1DQSALI

TEST RAPIDEZ ESCRIBIENDO PALABRAS

40 palabras
Speed test

UN SITIO MUY INTERESANTE DEL MUNDO DEL MAINFRAME

    NAVEGANDO POR LA RED ME ENCONTRE CON UN SITIO MUY INTERESANTE PARA LOS QUE NOS GUSTA EL MUNDO DEL MAINFRAME:

http://sigt.net/etiquetas/mainframes/

CURSO COBOL OS/390. SENTENCIA PERFORM

    LA SENTENCIA PERFORM SE UTILIZA PARA TRANSFERIR EL CONTROL A UNO O MAS PROCESOS PARA DESPUES REGRESAR EL CONTROL A LA SIGUIENTE INSTRUCCION A EJECUTAR.

    EXISTEN 4 FORMATOS PARA EL PERFORM LOS CUALES SON:

        PERFORM BASICO
        PERFORM FRASE TIMES
        PERFORM FRASE UNTIL
        PERFORM FRASE VARYING

    PERFORM BASICO: SE EJECUTA SOLO UNA VEZ PARA PASAR A LA SIGUIENTE INSTRUCCION EJECUTABLE.
        
        PROCEDURE DIVISION.
        000-CONTROL.
            PERFORM 010-INICIALIZAR-VAR.
        010-INICIALIZAR-VAR.
            MOVE ZEROES TO WS-VARIABLE.
         
        PROCEDURE DIVISION.
            PERFORM
                MOVE ZEROES TO WS-VARIABLE
            END-PERFORM.

    PERFORM TIMES: SE EJECUTA EL NUMERO DE VECES ESPECIFICADO.

        PROCEDURE DIVISION.
        000-CONTROL.
            PERFORM 010-CONTAR-DIEZ 10 TIMES.
        010-CONTAR DIEZ.
            COMPUTE CN-CONT = CN-CONT + 1.


        PROCEDURE DIVISION.
            PERFORM 10 TIMES
                COMPUTE CN-CONT = CN-CONT + 1
            END-PERFORM.

   PERFORM UNTIL: SE EJECUTA MIENTRAS LA CONDICION NO SEA CIERTA, PARA QUE SE EJECUTE POR LO MENOS UNA VEZ SE DEBE INCLUIR LA FRASE TEST AFTER ANTES DEL UNTIL.

        PROCEDURE DIVISION.
        000-CONTROL.
            PERFORM 010-LEE-ARCH UNTIL SW-FIN-ARCH
        010-LEE-ARCH.
            READ ARCH
            IF FS-ARCH = '10'
               SET SW-FIN-ARCH TO TRUE
            END-IF.


        PROCEDURE DIVISION.
            PERFORM UNTIL SW-FIN-ARCH
                READ ARCH
                IF FS-ARCH = '10'
                    SET SW-FIN-ARCH TO TRUE
                END-IF
            END-PERFORM.


   PERFORM VARYING: 


        PROCEDURE DIVISION.
        000-CONTROL.
            PERFORM 010-DESPLIEGA VARYING WI-NUM
                    FROM 1 BY 1 UNTIL WI-NUM  10

        010-DESPLIEGA.
            DISPLAY WI-NUM.       

MSN ERROR 80072745.

    BUENO ESTO NO TIENE NADA QUE VER CON COBOL, LES COMENTO QUE HACE UNOS DIAS TRATANDO DE CONECTARME POR EL MSN ME ARROJO EL ERROR 80072745.

    TRATANDO DE SOLUCIONAR DICHO PROBLEMA LE REINSTALE DE NUEVO EL MSN, INCLUSO ME FUI A LA VERSION 7. PERO NO SE SOLUCIONO.

    BUSCANDO EN LA WEB ME TOPE QUE SE SOLUCIONABA DE LA SIGUIENTE MANERA:

Para los poco expertos en sistemas, suguiero que para correguir sigan los siguientes pasos ya que resuelve el conflicto, las dos líneas funcionan perfectamente:

1) copiar la línea de host de acuerdo con tu versión de windows

En windows 95/98/Me c:/windows/hosts

En windows 2000/NT/XP Pro c:/winnt/system32/drivers/etc/hosts

En windows XP Home c:/windows/system32/drivers/etc/hosts

2) ir a inicio

3) ir a ejecutar

4) pegar la línea de host y aceptar

5) seleccionar el block de notas

6) Copiamos en la ultima linea:

65.54.239.80 messenger.hotmail.com

65.54.239.80 dp.msnmessenger.akadns.net

    LO CUAL NO ME RESULTO
    SIN DARLE MAS VUELTAS AL ASUNTO LA SOLUCION FUE LA SIGUIENTE (SI TIENES INSTALADO EL NOD32).

1.-ENTRAS AL NOD32 LE DAS F5.
2.-ENTRARAS AL SETUP BUSCAS HTTP.
3.-DENTRO DE HTTP BUSCAS WEB BROWSERS.
4.-DENTRO DE WEB BROWSERS BUSCAS EL LOGO DE MSN Y DESELECCIONAS LA CASILLA.

    BUENO CON ESTO ME FUNCIONO A MI, ESPERO FUNCIONE PARA ALGUIEN MAS.

CURSO COBOL OS/390. SENTENCIAS MOVE, IF..END-IF , IF..ELSE..END-IF , EVALUATE

    EN COBOL TODO ES UNA MOVEDERA Y CUANDO PROGRAMEN SE DARAN CUENTA POR QUE, EXISTE UNA INSTRUCCION PARA MOVER UN VALOR A UNA VARIABLE SE LLAMA MOVE, SOLO DEBEMOS TENER CUIDADO DE:

MOVER DE NUMERICOS A NUMERICOS.

MOVER DE NUMERICOS A ALFANUMERICOS.

MOVER DE ALFANUMERICO A ALFANUMERICO.

    SI MOVEMOS DE ALFANUMERICO A NUMERICO NOS DARA ERROR AL COMPILAR.

        MOVE 35 TO WS-NUMERO

        MOVE WS-NUMERO TO WS-NUMERO2

    A VECES ES NECESARIO EVALUAR UNA CONDICION, EVALUAR UN SWITCH PARA USAREMOS LA SENTENCIA IF O EVALUATE.

        IF  CONDICION

            INSTRUCCIONES

            ...

        END-IF.

       

        IF  CONDICION

            INSTRUCCIONES

            ...

        ENSE

            INSTRUCCIONES

            ...

        END-IF.


        EVALUATE CODICION
            WHEN CAS0 1
                INSTRUCCIONES
                ...
            WHEN CASO 2
                INSTRUCCIONES
                ...
            WHEN OTHER
                INSTRUCCIONES
                ...
        END-EVALUATE.

CURSO COBOL OS/390. DECLARACION DE ARCHIVOS.

    EN ESTA SECCION VEREMOS COMO SE DECLARAN LOS ARCHIVOS TANTO EN LA FILE-CONTROL, FILE SECTION Y COMO CREAR LOS LAYOUTS EN LA WORKING.

    FILE-CONTROL SERIA ALGO COMO LO SIGUIENTE:

        ENVIRONMENT DIVISION.
        CONFIGURATION SECTION.
       *SPECIAL-NAMES.
       *DECIMAL-POINT IS COMMA.
        INPUT-OUTPUT SECTION.
        FILE CONTROL.
            SELECT E1DQCLIE ASSIGN  TO E1DQCLIE
                   FILE STATUS      IS FS-E1DQCLIE.
            SELECT S1DQCLIE ASSIGN  TO S1DQCLIE
                   FIEL STATUS      IS FS-S1DQCLIE.

    ojo LOS NOMBRE E1DQCLIE, S1DQCLIE NOS SERVIRAN EN NUESTRO JCL.

    EN LA FILE SECTION DECLARARIAMOS LA ESTRUCTURA DEL REGISTRO:

        DATA DIVISION.
        FILE SECTION.
        FD E1DQCLIE
            LABEL RECORD ARE STANDARD
            BLOCK CONTAINS 0 RECORDS
            RECORD CONTAINS 38 CHARACTERS
            DATA RECORD IS FD-E1DQCLIE
            RECORDING MODE F.


        01  FD-E1DQCLIE.
            05  FD-E1-CLAVE   PIC X(08).
            05  FD-E1-CLIEN   PIC X(30).

    PODRIA SER QUE EN LA FILE SECTION SOLO PONGAMOS LA LONGITUD TOTAL COMO SIGUE:

        01  FD-E1DQCLIE       PIC X(38).

    PERO EN LA WORKING TENDRIAS QUE DECLARAR UN LAYOUT, SOLO QUE A LA HORA DE LEER EN ARCHIVO TENDRAS QUE LEER DENTRO DE ESTE LAYOUT.

        
        01  WS-E1DQCLIE.
            05  WS-E1-CLAVE   PIC X(08).
            05  WS-E1-CLIEN   PIC X(30).

    ESTO ES MUY UTIL CUANDO QUIERES QUE TU ARCHIVO DE SALIDA LLEVE UN CIERTO FORMATO POR EJEMPLO:

|00001500|ALBERTO CUERVO DE LA CRUZ  |
|00001501|NATALIA CATALINA MATINEZ GO|

    PUES SI LO HACEMOS DIRECTAMENTE EN LA FD MARCARA UN ERROR A LA HORA DE COMPILAR NUESTRO PROGRAMA.


    ALGO QUE NO DEBEMOS OLVIDAR Y QUE A LA MAYORIA SE NOS PASA LA PRIMERA VEZ ES DECLARAR LA VARIABLE DEL FILE STATUS EN LA WORKING.

        01  FS-ARCHIVOS.
            05  FS-E1DQCLIE    PIC X(02).

    Y LO DEMAS POCO A POCO CON LA PRACTICA.