Guia para a Primeira Utilização do Fujitsu COBOL 3.0

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.

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.

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.

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

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

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

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.

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.