hola a todos los lectores:

me agradaria que hicieran comentarios para saber si en verdad es util esta pagina y seguir poniendo mas cosas acerca de cobol…jcl, tso etc..

gracias

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.

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 CLIEN EN LA PUBLICIDAD

GANA DINERO SOLO HACIENDO CLIC EN LA PUBLICIDAD ENTRA A http://redpay.org/?ref=queretarobeto

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: 

        MOVE 100 TO WS-SUMA

        SUBTRACT 25 25 FROM WS-SUMA GIVING WS-TOTAL

        DISPLAY WS-SUMA

        DISPLAY WS-TOTAL

        100

        50

DECLARACION MULTIPLY

    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
        IFF 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