PROGRAMACION COBOL, JCL, CHANGEMAN Y ALGO MAS.

noreply@blogger.com (Unknown) — Fri, 01 May 2015 22:21:00 +0000

Después de cinco años de ausencia, aun sigo en Cobol ya no como programador sino desde la perspectiva del análisis y diseño.

Han sucedido muchas cosas durante este tiempo tanto en lo profesional como en lo personal pero aquí estamos y nuevamente me pongo a sus ordenes para cualquier consulta COBOL..... :-)

Estoy a sus ordenes...

noreply@blogger.com (Unknown) — Sun, 21 Nov 2010 22:35:00 +0000

queretaro.beto@hotmail.com

comenten.......................

noreply@blogger.com (Unknown) — Tue, 23 Feb 2010 15:05:00 +0000

mi pago sera tu comentario,,, es muy necesario comentar para saber que a alguien le es util este blog...

DE REGRESO..

noreply@blogger.com (Unknown) — Thu, 07 Jan 2010 16:57:00 +0000

ME ENCUENTRO DE REGRESO, ESTAMOS A PUNTO DE INICIAR UN PROYECTO AQUI DONDE TRABAJAMOS. PIENSO QUE ES MAS INTERESANTE IR VIENDO COMO SE DESARROLLA ESE PROCESO.

YA CASI FIN DE AÑO...

noreply@blogger.com (Unknown) — Wed, 23 Dec 2009 00:23:00 +0000

    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

noreply@blogger.com (Unknown) — Mon, 21 Dec 2009 23:10:00 +0000

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

noreply@blogger.com (Unknown) — Thu, 17 Dec 2009 17:40:00 +0000

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

noreply@blogger.com (Unknown) — Wed, 16 Dec 2009 19:26:00 +0000

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

GANA DINERO2

GANA DINERO3

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

noreply@blogger.com (Unknown) — Tue, 15 Dec 2009 18:36:00 +0000

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

noreply@blogger.com (Unknown) — Mon, 14 Dec 2009 21:05:00 +0000

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

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.

noreply@blogger.com (Unknown) — Fri, 11 Dec 2009 18:48:00 +0000

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

    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

noreply@blogger.com (Unknown) — Fri, 11 Dec 2009 16:56:00 +0000

    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.

noreply@blogger.com (Unknown) — Wed, 09 Dec 2009 16:07:00 +0000

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

noreply@blogger.com (Unknown) — Tue, 08 Dec 2009 22:18:00 +0000

40 palabras
Speed test

UN SITIO MUY INTERESANTE DEL MUNDO DEL MAINFRAME

noreply@blogger.com (Unknown) — Mon, 07 Dec 2009 23:29:00 +0000

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

noreply@blogger.com (Unknown) — Mon, 07 Dec 2009 22:10:00 +0000

    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.

noreply@blogger.com (Unknown) — Thu, 03 Dec 2009 17:51:00 +0000

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

noreply@blogger.com (Unknown) — Wed, 02 Dec 2009 23:37:00 +0000

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.

noreply@blogger.com (Unknown) — Tue, 01 Dec 2009 16:46:00 +0000

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.

CURSO COBOL OS/390. DECLARACION DE VARIABLES, CONSTANTES, TABLAS, CONTADORES, SWITCHES, ETC.

noreply@blogger.com (Unknown) — Fri, 27 Nov 2009 16:49:00 +0000

    DECLARAR UNA VARIABLE EN COBOL ES BASTANTE FACIL PERO DE ACUERDO A COMO LAS DECLARES SE TE FACILITARA MAS HACER CIERTAS COSAS A LA HORA DE PROGRAMAR.

PIC X(LONGITUD DE LA VARIABLE ALFANUMERICA).
PIC 9(LONGITUD DE LA VARIABLE NUMERICA).
PIC 9(LONGITUD DE LA VARIABLE NUMERICA)V9(LONGITUD DECIMAL VIRTUAL).
PIC Z,ZZ9.99 VARIABLE NUMERICA EDITADA (NO SIRVE PARA OPERACIONES).

         01 WS-VARIABLES.
            05 WS-NOMBRE       PIC X(30).
            05  WS-APEMAT       PIC X(20).
            05 WS-APEPAT       PIC X(20).

        01  CT-CONSTANTES.
            05 CT-A       PIC X(01) VALUE 'A'.
            05 CT-1       PIC 9(01) VALUE 1.

    EXISTE UN COMODIN LLAMADO FILLER. UN EJEMPLO PARA USARLO SERIA:

        01 WS-FECHA.
            05 WS-YEAR    PIC X(04).
            05 FILLER     PIC X(01) VALUE '/'.
            05 WS-MES     PIC X(02).
            05 FILLER     PIC X(01) VALUE '/'.
            05 WS-DIA     PIC X(02).

    LA DECLARACION DE UNA TABLA DE HACE DE LA SIGUIENTE MANERA:

        01 WT-TABLA-DIVISAS.
            05 WT-DIVISAS OCCURS 100 TIMES
                INDEXED BY WI-CODDIV.
                10 WT-COD-DIVISA PIC X(03).
                10 WT-DES-DIVISA PIC X(25).

    LA DECLARACION DE CONTADORES SE HACE ASI:

        01 CN-CONTADORES.
            05 LEIDOS-ARCHIVO1    PIC 9(06).
            05 LEIDOS-ARCHIVO2    PIC 9(06).

    LA DECLARACION DE SWITCHES SE HACE ASI:

        01 SW-PROGRAMA.
            05 SW-ERROR.
                10 SW-ERROR-SI    PIC X(01).
                10 SW-ERROR-NO    PIC X(01).


    NOTA: NO NECESARIAMENTE SE DEBEN DECLARAR(VARIABLES, CONTADORES, ETC) COMO SE LOS PONGO SE PODRIA DECLARAR COMO:

        01 ACHUCHITALABOLSEARON   PIC X(10).

    PERO NOTESE QUE A LA HORA DE PROGRAMAR NO SABRIAMOS QUE TIPO DE VARIABLE ES.

POR ESO ES BUENO ESTANDARIZAR.

CURSO COBOL OS/390. BASICO COBOL.

noreply@blogger.com (Unknown) — Mon, 23 Nov 2009 17:56:00 +0000

EXISTEN ALGUNAS COSAS BASICAS QUE DEBEMOS DE SABER DENTRO DEL LENGUAJE COBOL.

LA PRIMERA PARA QUE SIRVE CADA COLUMNA DENTRO DE LENGUAJE:

DE LA COLUMNA 01-06....NUMERO SECUENCIAL.

DE LA COLUMNA 07-07....AREA DE INDICADORES (-) CONTINUACION (*) COMENTARIO.

DE LA COLUMNA 08-11....AREA A.

DE LA COLUMNA 12-72....AREA B.

SI POR EJEMPLO PONEMOS ALGO MAS ALLA DE LA COLUMNA 72 NOS MARCARA UN ERROR.

SI PONEMOS EN LA COLUMNA 7 ALGO QUE NO SEA - O * NOS MARCARA ERROR.

SI PASAMOS DE UNA VARIABLE DE TIPO ALFANUMERICA A UNA NUMERICA NOS MARCARA UN ERROR.

SI DEPOSITAMOS EL VALOR DE UNA VARIABLE DE MAYOR LONGITUD EN OTRA DE MENOR NOS MARCARA UN ERROR (A VECES PASA QUE NO LO MARCA, PERO SE TRUNCA EL RESULTADO).

SI QUEREMOS HACER ALGUNA OPERACION CON VARIABLES EDITADAS, NOS MARCARA ERROR.

OJO SI ESTAMOS EN EL MAINFRAME Y NO HEMOS ESCRITO BIEN EL NOMBRE DE UNA CABECERA NI SIQUIERA NOS DEJARA COMPILAR.

BUENO Y EXISTEN MUCHAS MAS COSAS QUE DEBEMOS SABER PERO CON LA PRACTICA ESTO SE LOGRA DOMINAR FACILMENTE.

CURSO COBOL OS/390. CABECERAS COBOL.

noreply@blogger.com (Unknown) — Wed, 18 Nov 2009 00:32:00 +0000

IDENTIFICATION DIVISION.

VOLVIENDO AL COBOL, VAMOS A VER LO QUE LLEVAN LAS CABECERAS DEL LENGUAJE COBOL:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. EJEMPLO.
       AUTHOR.     ALBERTO.
       REMARKS
      **
      *            HOLA SOY UN COMENTARIO JEJE
      **

COMO PODRAN NOTAR L PRIMERO QUE VA EL NOMBRE DE LA CABECERA, SEGUIDO DEL NOMBRE DEL PROGRAMA, NOMBRE DEL AUTOR, COMENTARIOS.

LA SEGUNDA CABECERA QUE VEREMOS ES:

ENVIRONMENT DIVISION.

SE UTILIZA PARA ESTABLECER LA RELACION ENTRE LOS DATOS DEL PROGRAMA COBOL Y LAS TARGETAS DD DEL JOB QUE EJECUTARA EL PROGRAMA.

        ENVIRONMENT DIVISION.
        CONFIGURATION SECTION.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.

            SELECT E1DQCUEN ASSIGN TO E1DQCUEN
            FILE STATUS IS FS-E1DQCUEN.

DATA DIVISION.

SE DIVIDE EN TRES SECCIONES QUE SON:

FILE SECTION: SE DEFINE LA ESTRUCTURA DE LOS ARCHIVOS DE DATOS.
        FILE SECTION.
        FD E1DQCUEN
            LABEL RECORDS ARE STANDARD
            BLOCK CONTAINS 0 RECORDS
            RECORD CONTAINS 8 CHARACTERS
            DATA RECORD IS FD-E1DQCUEN
            RECORDING MODE F.

        01 FD-E1DQCUEN.
           05 FD-E1-ENTIDA PIC X(04).
           05 FD-E1-CENALT PIC X(04).

WORKING-STORAGE SECTION: DEFINE DATOS A UTILIZAR QUE NO SON PARTE DE ARCHIVOS.
        WORKING-STORAGE SECTION.
        01 WS-VAR-LOC.
            05 WS-VARIABLE     PIC 9(10)V9(02).
        01 CN-CONTADORES.
            05 CN-LEI-E1DQCUEN PIC 9(06).
        01 CT-CONSTANTES.
            05 CT-A            PIC X(01) VALUE 'A'.

LINKAGE SECTION: DEFINE LOS DATOS PROVENIENTES DE OTRO PROGRAMA... ALGUIEN SE ACUERDA DE PASAR PARAMETROS....

PROCEDURE DIVISION.
AQUI ES DONDE VA NUESTRO ALGORITMO YA EN FORMA CODIFICADA.

        PROCEDURE DIVISION.
        000-CONTROL.
            PERFORM 010-INICIO
            PERFORM 100-PROCESO
            PERFORM 900-FINAL
            STOP RUN.

EL TRABAJO DE PREANALISIS.......UN TRABAJO DE INVESTIGACION.

noreply@blogger.com (Unknown) — Fri, 13 Nov 2009 16:09:00 +0000

BUENO AMIGOS AQUI ESTOY DE NUEVO, Y ME DESVIO UN POCO DE LO QUE ES COBOL. EN EL AMBITO LABORAL PUES LA VAMOS A HACER DE PROGRAMADOR, ANALISTA, TESTER.

POR LO TANTO ES IMPORTANTE SABER COMO ES EL PROCESO DE ANALISIS DE UN PROBLEMA PARA DESPUES PLASMARLO COMO CODIGO.

ANTES DE EMPEZAR EL PROCESO DE DESARROLLO DEBEMOS CONSIDERAR RESTRICCIONES COMO SON:

LEGALES.
COSTO.
TIEMPO.
TECNICOS.
OTROS.

DESPUES HACERNOS LAS PREGUNTAS

QUE ?
COMO ?
CUANDO ?
DONDE ?
CUAL ?
POR QUE?

PARA ASI OBTENER LA SOLUCION QUE PUEDE SER.

LA MAS COMPLEJA.
LA MAS OPTIMA.
LA MAS VIABLE.

SI QUIERES APRENDER RECUERDA TIENES QUE INVESTIGAR.

PREGUNTAS COBOL.....???

noreply@blogger.com (Unknown) — Wed, 11 Nov 2009 19:16:00 +0000

NAVEGANDO POR LA RED ME ENCONTRE UNA INFORMACION MUY INTERESANTE... LE HE DADO FORMATO EN WORD. LO PUEDEN BAJAR DE:

http://www.megaupload.com/?d=KC2UXONT

MANUAL COBOL 390:

noreply@blogger.com (Unknown) — Tue, 10 Nov 2009 16:53:00 +0000

HE COLGADO UN PEQUEÑO MANUAL EN INTERNET, ESPERO LES SIRVA.... PERO RECUERDEN LA PRACTICA HACE AL MAESTRO.

http://www.megaupload.com/?d=HCMLZMW1