COBOL Programmers

[sudip]

Hello Friend Vanguarda,

Is very hard for me.
Currently i work on a company with cobol microfocus 4.1 (linux on text mode), but, i hate cobol. The company is cool, but cobol not is cool.
But anxiety is my fault. I've always been a very anxious person.

May be I can't understand your problem, but you may think in a different way.
* COBOL is the first computer language I learned.
* I scored a record marks in COBOL in my institute (98%) .
* My submitted projects on COBOL were excellent.
* But I never worked on it in real life
* Unix (Linux was not born at that time) was the fist O/S I learned.
* I liked it very much.
* But I never worked on it in real life
* I was very bad in typing.
* I learned 10 fingers typing all by myself (hearing bad words from my clients and my ex-boss).
* But today is the age of Visual Programming
* You at least have a good company. I am self-employed. I have to take decision of my own. There is no one (except HMG Forum members) to help me out if I face any problem.

IMHO, you are working on an excellent O/S with richest computer language for business

* My ex-boss, Anando, learned only one language - COBOL.
* But he never got change to work with COBOL.
(Anando is now engaged in programming with HMG Ext )

Again as a friend, I can only tell what tennis coaches say- (as Timothy Gallway said) - keep your eye on the ball, try to love the ball, see it - it's texture, it's shape, it's trajectory.

IMHO, here your ball will be the project, the application you are going to generate - not the language, not the OS.

Sorry for this boring post.

With best regards.

Sudip

[Vanguarda]

My great friend SUDIP,

My post about the COBOL was a joke.
Please do not take everything so seriously

My best regards,

[sudip]

So, you are ok now I am relieved
Regards.
Sudip

[Rathinagiri]

Thank you Vanguarda.

Because of your words, we can know more about Sudip.

[Vanguarda]

Hello friend,

Is true. Very nice.

Regards,

[Ismach]

Jaja me rei de este post, Yo trabajo en una entidad financiera
en COBOL/CICS/ORACLE ademas uso lenguaje C para hacer demonios y
Servidores por socket en java todo sobre Unix Aix,

Bueno yo aprendi varios lenguajes en la facu
c cobol pascal clipper y visual basic 5 y C++ al finalizar la carrera de ingenieria

En realidad el cobol es un lenguaje orientado al procesamiento de grandes volumenes
de informacion, para mi no es aburrido, todo lo contrario, tiene sus virtudes y
a veces uno extraña ciertas funciones que otros lenguajes si lo tienen, pero tiene funciones o sentencias
que otros lenguajes no tienen... he experimentado con OpenCobol y TinyCobol
y cada lenguaje tiene sus fortalezas y sus debilidades pero me encanta experimentar
no me disgusta para nada trabajar en cobol,
En mi casa programo en HMG con Mariadb, PostgreSQL, SQLite con win7 y win10
y ahora estoy experimentando con HMG sobre REACT Os(sistema operativo Freeware derivado del XP)

[SALINETAS24]

jejeje, que tiempos aquellos de la ENVIROMENT DIVISION, INPUT-OUTPUT SECTION, PROCEDURE DIVISION .....
Yo empece trabajando con MS-Cobol y después pase a utilizar el compilador de Ryan McFarland .., el RM-COBOL era mucho más versátil y potente para instalaciones de Redes Locales con tarjetas Novell, y con posibilidad de compilar con Unix...
Igual si busco encuentro las fuentes de una contabilidad y de una gestión comercial completa que tenia.
Vamos con esa cervecita por los buenos recuerdos....

[Roberto Lopez]

<...> y después pase a utilizar el compilador de Ryan McFarland .., el RM-COBOL era mucho más versátil y potente para instalaciones de Redes Locales con tarjetas Novell, y con posibilidad de compilar con Unix...

Viajé instantáneamente a los 80's... cuantos recuerdos...

[Ismach]

"Volver al Pasado I" jeje ahi va lo que en HMG seria un recordset:

Code: Select all

      *---------------------------------------------------------------*
       SQL-OPEN-C136.
      *---------------------------------------------------------------*
           EXEC SQL  OPEN C136  END-EXEC.
           PERFORM SQL-CHECK.
           IF  SQLCODE NOT = ZEROS THEN
               MOVE SPACES                        TO HD01-SCLEAC
               MOVE "Error al <ABRIR> el cursor sobre TTC136"
                                                  TO HD01-SINFO
               MOVE "OPEN"                        TO HD01-SFNPAC
               MOVE WX-OBJECT                     TO HD01-SSEGMT
               PERFORM 999999-CANCELAR
           END-IF.
      *---------------------------------------------------------------*
       SQL-FETCH-C136.
      *---------------------------------------------------------------*
           EXEC SQL FETCH C136 INTO :T136-A0090 ,
                                    :T136-A1010 ,
                                    :T136-A9490 ,
                                    :T136-XU612 ,
                                    :T136-XU613 ,
                                    :T136-XU614 ,
                                    :T136-XU615 ,
                                    :T136-XU620 ,
                                    :T136-XU621
           END-EXEC.
           PERFORM SQL-CHECK.
           IF  SQLCODE NOT = ZEROS AND NOT = 100 THEN
               MOVE SPACES                        TO HD01-SCLEAC
               MOVE "Error al <LEER> el cursor sobre TTC136"
                                                  TO HD01-SINFO
               MOVE "FETCH"                       TO HD01-SFNPAC
               MOVE WX-OBJECT                     TO HD01-SSEGMT
               PERFORM 999999-CANCELAR
           END-IF.
           IF  SQLCODE NOT = ZEROS THEN
               SET FIN-CURSOR-T136                TO TRUE
           END-IF.
      *---------------------------------------------------------------*
       SQL-CLOSE-C136.
      *---------------------------------------------------------------*
           EXEC SQL  CLOSE C136  END-EXEC.
           PERFORM SQL-CHECK.
           IF  SQLCODE NOT = ZEROS THEN
               MOVE SPACES                        TO HD01-SCLEAC
               MOVE "Error al <CERRAR> el cursor sobre TTC136"
                                                  TO HD01-SINFO
               MOVE "CLOSE"                       TO HD01-SFNPAC
               MOVE WX-OBJECT                     TO HD01-SSEGMT
               PERFORM 999999-CANCELAR
           END-IF.

[serge_girard]

I miss the SQL preprocessor!

PL/I

Code: Select all

 /*--------------------------------------*/                             
 /*  INLEZEN SQL STATEMENTS EN PARAMS    */                             
 /*--------------------------------------*/                             
 EXEC SQL WHENEVER SQLERROR GO TO ERRORSQL;                             
 EXEC SQL DECLARE CUR_SQL CURSOR FOR                                    
    SELECT                                                              
       VOLG_NR      ,                                                   
       SQL_STATEMENT,                                                   
       SQL_COMMENT  ,                                                   
       FORM_NR      ,                                                   
       TELEFOON_NR  ,                                                   
       MAX_ROW      ,                                                   
       MAX_COL      ,                                                   
       MAX_ETI      ,                                                   
       LIJST_ETIKET ,                                                   
       DEST                                                             
    FROM DB2.TEMASQLINK_REPORT                                          
    WHERE VOLG_NR = :PARAM_NUM                                          
    ORDER BY FORM_NR, TELEFOON_NR, VOLG_NR;                             
                                                                        
 EXEC SQL OPEN CUR_SQL;                                                 
 EXEC SQL FETCH CUR_SQL INTO :SQLINK_REPORT;                            

Did COBOL and PL/I for many years. PL/I is MUCH stronger then CoBOL!

Serge