Guia para a Primeira Utilização
Fujitsu COBOL 3.0
Este guia pretende ser uma ajuda para o aluno começar a utilizar o Fujitsu COBOL 3.0. Informação mais
completa encontra-se no site http://www.adtools.com/student/index.htm, na secção Softcopy Manuals.
Em primeiro lugar, se ainda não o fez, instale o Fujitsu COBOL 3.0, seguindo as instruções do écrã.
Para iniciar o ambiente de desenvolvimento, abra o menu Start do Windows, depois Programs, e Fujitsu
COBOL 3.0. Seleccione Programming Staff.
Edição do código fonte
Comece por utilizar um dos programas de demonstração incluídos no pacote.
Faça File – Open e abra o ficheiro SAMPLE2.COB, situado normalmente em
C:\FSC\PCOBOL32\SAMPLES\SAMPLE2
Aparecerá o editor do Fujitsu COBOL com o código do ficheiro SAMPLE2.COB. É neste editor que
poderá fazer alterações ao código ou escrever programas novos (para escrever um programa novo, faça
File – New e escolha o tipo COB – desta forma o editor introduz automaticamente os números de linha)
Analise o código e atente nas instruções da INPUT-OUTPUT SECTION, na ENVIRONMENT
DIVISION. Note que o programa aceita um ficheiro de entrada cujo identificador é "infile" e produz um
ficheiro de saída cujo identificador é "outfile".
Feche o ficheiro, já que o processo de compilação, que se segue, exige que o ficheiro não esteja aberto no
editor.
Compilação
Seleccione o comando WINCOB(Compile) do menu Tools, no Programming Staff.
Clique em Browse e abra o ficheiro SAMPLE2.COB
Clique em Options.
Se a opção MAIN não estiver na lista, clique em Add e seleccione MAIN.
Clique em Add, seleccione "Compile program as main program" na janela Compiler Option, e clique OK.
Clique em Cancel e depois OK na janela Compiler Options.
2617 COBOL
A opção MAIN deve agora aparecer na lista.
Clique em OK para compilar o programa.
O compilador produzirá um ficheiro objecto chamado SAMPLE2.OBJ
Ligação
Seleccione o comando WINLINK(Linking Files) do menu Tools, no Programming Staff.
Clique no botão Browse e abra o ficheiro SAMPLE2.OBJ criado no passo anterior.
O nome do ficheiro deve aparecer na caixa de texto Link File.
Clique no botão Add para adicioná-lo à lista de ficheiros objecto a serem ligados.
Verifique se a opção EXE está seleccionada na secção Target para garantir que é gerado um ficheiro
executável.
Clique em OK para ligar o programa.
O ligador produzirá um ficheiro executável chamado SAMPLE2.EXE
Execução
O ficheiro SAMPLE2.EXE pode ser executado directamente a partir do Windows ou do DOS, mas é
melhor usar o ambiente de execução fornecido pelo Fujitsu COBOL.
Seleccione o comando WINEXEC(Execute) no menu Tools.
Clique em Browse e abra o ficheiro SAMPLE2.EXE.
Clique em OK.
Neste momento aparecerá a janela "Runtime Environment Setup", usada para definir vários parâmetros de
execução.
É altura de associar os identificadores "infile" e "outfile" a ficheiros reais no disco rígido do computador.
Os dados de entrada estão no ficheiro "DATAFILE" na mesma directoria do código fonte. Escreva:
INFILE=DATAFILE
no campo Environment Variables Information e clique no botão Set. Verá que esta informação aparecerá
no fim da lista. Para o ficheiro de saída, escreva:
OUTFILE=MASTER
Guia da primeira utilização do Fujitsu COBOL 3.0
2
2617 COBOL
no campo Environment Variables Information, da mesma forma, e clique no botão Set.
Se clicar agora no botão Save, esta informação será adicionada ao ficheiro de inicialização do programa e
não terá de ser introduzida novamente.
Clique em OK para executar o programa.
Não aparecerá nenhum output no écrã, já que o programa apenas lê o ficheiro DATAFILE e escreve o
resultado no ficheiro MASTER.
Visualização do resultado
Para visualizar o conteúdo do ficheiro de saída, MASTER, seleccione o comando COBFUT32(File
Utility).
Faça Commands – Edit.
Clique em Browse e abra o ficheiro MASTER.
Clique na opção IXD na secção Organization. Esta opção indica que a organização do ficheiro é de tipo
INDEXED, como se pode verificar no código fonte.
Clique em Ok para visualizar o ficheiro e utilize os botões da janela Edit para navegar pelos registos
(RECORDS) do ficheiro.
Guia da primeira utilização do Fujitsu COBOL 3.0
3