• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

chowchow

CobolStudio

10 mensagens neste tópico

Boas.

Alguém daqui domina CobolStudio?

Mesmo que não, vou começar a programar em Cobol. Alguma dica?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nunca vi código em COBOL e dúvido que alguém no fórum domine a linguagem. Boa sorte! :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Cobol é uma das linguagens mais usadas que para aí anda... e tem anos de existência.

Boa sorte com isso. :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mesmo que não, vou começar a programar em Cobol. Alguma dica?

O Cobol é muito simples pois é "mete" ingles básico! Acho que o unico problema é mesmo saberes trabalhares bem com as bases de dados! Saberes construir mt bem as tuas tabelas essas cenas, de resto acho que onde se comete mais erros e se n tiveres com atençao, podes andar ha procura do erro feito "malukinho" e n encontrares ... nunca coloques nada na coluna 7 unica e exclusivamente para comentarios!...

Alguma duvida, estamos aqui para tentar ajudar!

ps: tas prestes a conhecer a mais poderosa linguagem de BD MUahahahhahah (brincado, mas é mesmo a mais poderosa ;) )

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Obrigado! Esqueci-me de dizer que vou trabalhar em Batch e CIGS  (nem sei se e assim que se escreve lol). Como base de dados vou usar DB2.

P.S.

Estou num estágio do BES.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Por acaso comecei a tomar contacto com o Cobol agora, ninguém conhece uns tutoriais porreiros ou um site com sources e exemplos?

À primeira vista, não gosto nada desta linguagem, não se parece com nada! Mas ao contrário do que pensava usa-se bastante e até que tem as suas potencialidades!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para quem ve a linguagem pela 1º vez deve ver isto

Program

    |

DIVISÕES

    |

sECÇÕES(S)

    |

PARAGRAFOS

    |

INSTRUÇÃO

    |

INSTRUÇÕES

4 DIVISÕES

IDENTIFICATION

ENVIRONMENT

DATA

PROCEDURE

IDENTIFICATION DIVISION

USADA PARA ESCREVER OS DADOS DO UTILIZADOR

DO PROGRAMADOR E DO COMPILADOR

ENVIRONMET DIVISON

DESCREVE AO COMPILADOR O MEIO PELO QUAL O PROGRAMA CORRERA

DATA DIVISOIN

DESCREVE Os DADOS QUE VÃO SER PROCESSADOS PELO PROGRAMAS

Onde se escreve todas as variaveis

PROCEDURE DIVISION

CONTEM A DESCRIÇÃO DO ALGORITOMO QUE IRA MANIPULAR OS DADOS PREVIAMENTE DESCRITOS

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

esta aqui o Ola mundo

       IDENTIFICATION DIVISION.

       PROGRAM-ID. OLAMUNDO.

       AUTHOR. CYPHER.

       INSTALLATION. N INTERESSA.

       DATE-WRITTEN. 4-2005.

       ENVIRONMENT DIVISION.

       CONFIGURATION SECTION.

       SOURCE-COMPUTER. P3.

       OBJECT-COMPUTER. P3.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       

       PROCEDURE DIVISION.

       P1 section.

          Display " Ola   mundo " at 1330.

          Stop run.

       

Aqui esta uma simples soma

       IDENTIFICATION DIVISION.

       PROGRAM-ID. TABUADA.

       AUTHOR. CYPHER

       Installation. p3.

       Date-written. 5-6-2005.

       ENVIRONMENT DIVISiON.

       Configuration Section.

       Source-Computer. p3.

       Object-Computer. p3.

       DATA DIVISION.

       Working-Storage Section.

       01 tecla   pic x value spaces.

       01 num     pic 99 value zeros.

       01 const   pic 99 value zeros.

       01 result  pic 99 value zeros.

       Screen section.

       01 limpar.

           02 blank Screen.

       PROCEDURE DIVISION.

       Pri Section.

           display limpar.

           move zero to const.

           Accept const.

           move 1 to num.

       Tab.

           Multiply const by num giving result.

           display const ' x ' num ' = ' result.

           add 1 to num.

           if (num=11) go to Fim-pri.

           go to tab.

       Fim-pri.

           accept tecla.

           Stop Run.

Agora soma, multiplicação, divisao e subtraççao

       IDENTIFICATION DIVISION.

       PROGRAM-ID. iarst.

       AUTHOR. CYPHER.

       INSTALLATION. O PRIMEIRO PROGRAMA.

       DATE-WRITTEN. 2005.

       ENVIRONMENT DIVISION.

       CONFIGURATION SECTION.

       SOURCE-COMPUTER. ACER.

       OBJECT-COMPUTER. ACER.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       01 v1                     pic 999 value zeros.

       01 v2                     pic 999 value zeros.

       01 result                 pic 9999 value zeros.

       01 opcao                  pic 9 value zeros.

       01 tecla                  pic x value space.

       01 szeros                 pic zzzz.

       screen section.

       COPY "C:\MY.ss".

       COPY "C:\MY2.ss".

       01 clean.

           02 blank screen foreground-color 7 background-color 1.

       01 ecran.

           02 line 1 column 1 value

           'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ

      -    'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»'.

           02 line 24 column 1 value

           'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ

      -    'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ'.

           02 line 2 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 3 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 4 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 5 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 6 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 7 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 8 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 9 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 10 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 11 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 12 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 13 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 14 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 15 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 16 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 17 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 18 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 19 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 20 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 21 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 22 column 1 value

           'º                                                           

      -    '                   º'.

           02 line 23 column 1 value

           'º                                                           

      -    '                   º'.

      * O  exterisco e para o comentario

       PROCEDURE DIVISION.

       menu section.

           display clean.

           display g-my.

           display "Connecting to net..." at 2550.

           accept tecla.

           display clean.

           display g-my2.

           display "C A L C U L A D O R A" at 0430.

           display "Nelson Rodrigues" at 2361.

           display " 1 - Somar " at 1014.

           display " 2 - Subtrair " at 1214.

           display " 3 - Multiplicar " at 1414.

           display " 4 - Dividir " at 1614.

           display " 0 - Sair " at 1814.

           display "Introduza uma op‡ao:  " at 1340.

           accept opcao.

       Menu-1.

         if (opcao=1) perform soma.

         if (opcao=2) perform sub.

         if (opcao=3) perform mult.

         if (opcao=4) perform div.

         if (opcao=0) go to sair-section.

         go to menu.

       sair-section.

           stop run.

      * -----------Seccao da soma--------------

       soma section.

       som-0.

           display clean.

           display g-my2.

           move zero to v1.

           move zero to v2.

           display "C A L C U L A D O R A" at 0430.

           display "Introduza o 1§ n£mero "   at 1115.

           accept v1     at 1140.

           display "introduza o 2§ n£mero "   at 1315.

           accept v2    at 1340.

           add v1 to v2 giving result.

           move result to szeros.

           display "O seu resultado ‚ " at 1825, szeros at 1845.

           accept tecla at 2020.

      * -------------------Seccao da subtracao-----------------

       sub section.

       su-0.

           display clean.

           display g-my2.

           move zero to v1.

           move zero to v2.

           display "C A L C U L A D O R A" at 0430.

           display "Introduza o 1§ n£mero "   at 1115.

           accept v1     at 1140.

           display "introduza o 2§ n£mero "   at 1315

           accept v2    at 1340.

           subtract v1 from v2 giving result.

           display "O seu resultado ‚ " at 1825, result  at 1845.

           accept tecla at 2020.

      *  -------------Seccao da multiplica‡Æo--------------

       mult section.

       mu-0.

           display clean.

           display g-my2.

           move zero to v1.

           move zero to v2.

           display "C A L C U L A D O R A" at 0430.

           display "Introduza o 1§ n£mero "   at 1115.

           accept v1     at 1140.

           display "introduza o 2§ n£mero "   at 1315.

           accept v2    at 1340.

           multiply v1 by v2 giving result.

           display "O seu resultado ‚ " at 1825, result  at 1845.

           accept tecla at 2020.

      * --------------Seccao da divisao---------------------

       div section.

       div-0.

           display clean.

           display g-my2.

           move zero to v1.

           move zero to v2.

           display "C A L C U L A D O R A" at 0430.

           display "Introduza o 1§ n£mero "   at 1115.

           accept v1     at 1140.

           display "introduza o 2§ n£mero "   at 1315.

           accept v2    at 1340.

           Divide v1 by v2 giving result.

           display "O seu resultado ‚ " at 1825, result  at 1845.

           accept tecla at 2020.

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

mas como isto n está a mostrar pra que foi feito mesmo o cobol pra trabalhar com ficheiros fika aki um pekeno exemplo de como trabalhar com ficheiros...

http://www.alunos.ipb.pt/~a18073/download/loc.rar

tens que sacar tudo pois tem mais que um ficheiro... lê o "ler antes"

mas se quiseres ver tens o aqui, o programa em si é uma simples base de dados de codigos postais! logo tem que ter duas tabelas como n poderia deixar de ser!

       IDENTIFICATION DIVISION.

       PROGRAM-ID. codlocalia.

       AUTHOR. cypher.

       INSTALLATION. ficheiro.

       DATE-WRITTEN. 15-2005.

       ENVIRONMENT DIVISION.

       CONFIGURATION SECTION.

       SOURCE-COMPUTER. ACER.

       OBJECT-COMPUTER. ACER.

       INPUT-OUTPUT SECTION.

       FILE-CONTROL.

           SELECT LOCALIDADES

               ASSIGN TO DISK

               ORGANIZATION IS INDEXED

               ACCESS MODE IS DYNAMIC

               RECORD KEY IS CODLOC.

       DATA DIVISION.

       FILE SECTION.

       FD LOCALIDADES

           LABEL RECORDS ARE STANDARD

           VALUE OF FILE-ID IS 'c:\LOC\dados\local.dat'.

       01 LOCAL.

           02 CODLOC         pic 9(4).

           02 Dsg            pic X(25).

             

       working-storage section.

           01 tecla         pic X value space.

           01 opcao         pic 9.

           01 ctl           pic 99 value zeros.

           01 ctc           pic 99 value zeros.

           77 TEC           pic x value spaces.

             88 SIM         value  's','S'.

             88 NAO         value  'n','N'.

           01 datasys.

             02 ano         pic 9(2) value zeros.

             02 mes         pic 9(2) value zeros.

             02 dia         pic 9(2) value zeros.

       screen section.

       01 ec-data.

           02 line 2 column 69 pic 99 using ano.

           02 line 2 column 71 '/'.

           02 line 2 column 72 pic 99 using mes.

           02 line 2 column 74 '/'.

           02 line 2 column 75 pic 99 using dia.

       01 ec-opcoes auto.

           02 line 06 column 30 'L O C A L I D A D E S'.

           02 line 10 column 20 '1 - Inserir'.

           02 line 13 column 20 '2 - Remover'.

           02 line 16 column 20 '3 - Alterar'.

           02 line 10 column 45 '4 - Listar'.

           02 line 13 column 45 '5 - Apagar Ficheiro'.

           02 line 16 column 45 '0 - Sair'.

           02 line 20 column 32 'Op‡Æo - '.

           02 line 20 column 40 pic 9 using opcao.

       01 linha24.

           02 line 24 column 01 blank line background-color 7

           foreground-color 0.

       01 des-24-mp.

           02 line 24 column 03 'Menu Principal' reverse-video.

           02 line 24 column 60 'Introduza uma op‡Æo' reverse-video.

       01 des-24-cod.

           02 line 24 column 48 'Introduza o c¢digo de localidade'

           reverse-video.

       01 limpa24.

           02 line 24 blank line.

       01 des-24-dsg.

           02 line 24 column 57 'Introduza a localidade'

           reverse-video.

       01 des-24-enter.

           02 line 24 column 63 'Enter para voltar' reverse-video.

       01 des-24-na.

           02 line 24 column 3 'NÆo existe' reverse-video.

           02 line 24 column 63 'Enter para voltar' reverse-video.

       01 des-24-sn auto.

           02 line 24 column 3 'Deseja remover ? <s> <n>  '

           reverse-video.

           02 pic x using tec reverse-video.

       01 des-24-sn-alt auto.

           02 line 24 column 3 'Deseja alterar ? <s> <n>  '

           reverse-video.

           02 pic x using tec reverse-video.

       01 alte.

           02 line 16 column 30 '                           '.

           02 line 24 column 3 'Introduza a altera‡Æo' reverse-video.

       01 limpa.

           02 blank screen.

       01 ec-codigo auto.

           02 line 10 column 25 'C¢digo Localidade : '.

           02 pic 9(4) using codloc.

       01 ec-dsg auto.

           02 line 14 column 25 'Designa‡Æo : '.

           02 pic x(25) using dsg.

       COPY "C:\LOC\ECRANS\CAB.ss".

       PROCEDURE DIVISION.

       PRI section.

       ABRIR.

           OPEN I-O LOCALIDADES.

       MENU.

           display limpa.

           display G-cab.

           accept datasys from date.

           display ec-data.

           display linha24.

           display des-24-mp.

           move zero to opcao.

           display EC-opcoes.

           accept ec-opcoes.

       MENU-1.

           if (opcao=1) perform ins.

           if (opcao=2) perform rem.

           if (opcao=3) perform alt.

           if (opcao=4) perform lis.

           if (opcao=5) perform del.

           if (opcao=0) go to sair-section-fich.

           go to menu.

        sair-section-fich.

           close localidades.

           move space to tecla.

           display limpa.

           stop run.

      ***********************************************

       ins section.

       ins-1.

           move zeros to codloc.

           move spaces to dsg.

           display limpa.

           display linha24.

           display 'Inser‡Æo' at 2403.

           display g-cab.

           display ec-data.

           display ec-codigo.

           display ec-dsg.

           display des-24-cod.

           accept ec-codigo.

           read localidades record

                invalid key go to ins-5.

           display ec-dsg.

           display limpa24.

           display linha24.

           display des-24-enter.

           accept tecla.

           go to ins-fim.

       ins-5.

           display limpa24.

           display linha24.

           display des-24-dsg.

           accept ec-dsg.

           write local.

           display limpa24.

           display linha24.

           display 'Criado c/ sucesso' at 2403.

           display des-24-enter.

           accept tecla.

       ins-fim.

      ************************************************

       rem section.

       rem-1.

           move zeros to codloc.

           move spaces to dsg.

           display limpa.

           display linha24.

           display 'Remo‡Æo' at 2403.

           display g-cab.

           display ec-data.

           display ec-codigo.

           display ec-dsg.

           display des-24-cod.

           accept ec-codigo.

           read localidades record

                invalid key go to rem-5.

           display ec-dsg.

           display limpa24.

           display linha24.

           display des-24-sn.

           accept des-24-sn.

           IF sim of tec go to rem-4.

           IF nao of tec go to rem-fim.

           go to rem-1.

       rem-4.

           delete localidades record.

           go to rem-fim.

       rem-5.

           display limpa24.

           display linha24.

           display des-24-na.

           accept tecla.

       rem-fim.

      ***************************************************

       alt section.

       alt-1.

           move zeros to codloc.

           move spaces to dsg.

           display limpa.

           display linha24.

           display 'Altera‡Æo'at 2403.

           display g-cab.

           display ec-data.

           display ec-codigo.

           display ec-dsg.

           display des-24-cod.

           accept ec-codigo.

           read localidades record

                invalid key go to alt-5.

           display ec-dsg.

           display limpa24.

           display linha24.

           display des-24-sn-alt.

           accept des-24-sn-alt.

           IF sim of tec go to alt-4.

           IF nao of tec go to alt-fim.

           go to alt-1.

       alt-4.

           display limpa24.

           display linha24.

           display Alte.

           accept ec-dsg.

           rewrite local.

           display limpa24.

           display linha24.

           display 'Alterado c/ sucesso' at 2403.

           display des-24-enter.

           accept tecla.

           go to alt-fim.

       alt-5.

           display limpa24.

           display linha24.

           display des-24-na.

           accept tecla.

       alt-fim.

      **********************************************

       lis section.

       lis-1.

           display limpa.

           display linha24.

           move zeros to codloc.

           display g-cab.

           display ec-data.

           display ec-codigo.

           display "Listar " at 2403.

           display des-24-cod.

           accept ec-codigo.

           display limpa.

           display g-cab.

           display ec-data.

           move 7 to ctl.

           display ' C¢digo    Localidade' at 0504.

           start localidades key is not less than codloc

                 invalid key go to lis-fim.

       lis-2.

           move 5 to ctc

           read localidades next record at end

                  go to lis-fim.

           display codloc at line ctl col ctc.

           move 15 to ctc.

           display dsg at line ctl col ctc.

           add 1 to ctl.

           if (ctl=21) go to newec.

           go to lis-2.

       newec.

           display limpa24.

           display linha24.

           display "Enter para mudar de p gina" at 2403.

           accept tecla.

           display limpa.

           display g-cab.

           display ec-data.

           display ' C¢digo    Designa‡Æo' at 0504.

           move 7 to ctl.

           go to lis-2.

       lis-fim.

           display limpa24.

           display linha24.

           display "Fim do ficheiro" at 2403.

           display des-24-enter.

           accept tecla.

      *************************************************

       del section.

       del-1.

           display limpa.

           display g-cab.

           display ec-data.

           display ec-opcoes.

           display linha24.

           display des-24-sn.

           accept des-24-sn.

           if sim of tec go to del-2.

           if nao of tec go to del-fim.

           go to del-1.

       del-2.

           CLOSE LOCALIDADES.

           OPEN OUTPUT LOCALIDADES.

           CLOSE LOCALIDADES.

           OPEN I-O LOCALIDADES.

           display limpa24.

           display linha24.

           display "Apagado c/ sucesso" at 2403.

           display des-24-enter.

           accept tecla.

       del-fim.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora