chowchow Posted December 4, 2006 at 04:38 PM Report #68686 Posted December 4, 2006 at 04:38 PM Boas. Alguém daqui domina CobolStudio? Mesmo que não, vou começar a programar em Cobol. Alguma dica?
Triton Posted December 4, 2006 at 06:39 PM Report #68729 Posted December 4, 2006 at 06:39 PM Nunca vi código em COBOL e dúvido que alguém no fórum domine a linguagem. Boa sorte! 🙂 <3 life
Anjo Posted December 5, 2006 at 06:25 PM Report #68961 Posted December 5, 2006 at 06:25 PM Cobol é uma das linguagens mais usadas que para aí anda... e tem anos de existência. Boa sorte com isso. 🙂
JD557 Posted December 5, 2006 at 09:30 PM Report #69026 Posted December 5, 2006 at 09:30 PM Acho que o @Cypher percebe de COBOL. Pelo menos deu-me a entender isso aqui MIEIC @ FEUP http://project557.blogspot.com/ --- Development Blog Proteja a sua pen: http://lastknight.pt.vu
Cypher Posted December 6, 2006 at 12:23 AM Report #69083 Posted December 6, 2006 at 12:23 AM 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 😉 )
chowchow Posted December 8, 2006 at 04:44 PM Author Report #69601 Posted December 8, 2006 at 04:44 PM 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.
TheDark Posted December 8, 2006 at 05:31 PM Report #69612 Posted December 8, 2006 at 05:31 PM Boa sorte... :😄 Desaparecido.
Duffy Posted December 18, 2006 at 01:59 AM Report #71076 Posted December 18, 2006 at 01:59 AM 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!
Cypher Posted December 18, 2006 at 04:42 PM Report #71211 Posted December 18, 2006 at 04:42 PM 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
Cypher Posted December 18, 2006 at 05:16 PM Report #71217 Posted December 18, 2006 at 05:16 PM 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.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now