COBOL - Format for coding input and output



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

COBOL - Format for coding input and output
Enterprise COBOL for z/OS, V4.2, Language Reference

O código a seguir mostra o formato geral da codificação de entrada e saída (input-output).
As explicações das informações fornecidas pelo usuário seguem o código.

IDENTIFICATION DIVISION.
. . .
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT filename ASSIGN TO assignment-name  (1) (2)
    ORGANIZATION IS org ACCESS MODE IS access  (3) (4)
    FILE STATUS IS file-status                 (5)
. . .
DATA DIVISION.
FILE SECTION.
FD  filename
01  recordname                                 (6)
    nn . . . fieldlength & type                (7) (8)
    nn . . . fieldlength & type
. . .
WORKING-STORAGE SECTION
01 file-status  PICTURE 99.
. . .
PROCEDURE DIVISION.
    . . .
    OPEN iomode filename                       (9)
    . . .
    READ filename
    . . .
    WRITE recordname
    . . .
    CLOSE filename
    . . .
    STOP RUN.

As informações fornecidas pelo usuário no código acima são as seguintes:

(1) filename
Qualquer nome legal de COBOL. Você deve usar o mesmo nome de arquivo na cláusula SELECT e na entrada FD e nas instruções READ, OPEN e CLOSE.
Além disso, o nome do arquivo é necessário se você usar as instruções START ou DELETE.
Este nome não é necessariamente o nome real do conjunto de dados conhecido pelo sistema.
Cada arquivo requer sua própria cláusula SELECT, entrada FD e instruções de entrada e saída (input-output).
(2) assignment-name
Qualquer nome que você escolher, desde que siga as regras de nomeação do COBOL e do sistema.
O nome pode ter de 1 a 30 caracteres, se for uma palavra definida pelo usuário, ou de 1 a 160 caracteres, se for literal.
Você codifica a parte do nome do nome da atribuição em uma instrução DD, em um comando ALLOCATE (TSO) ou como uma variável de ambiente (por exemplo, em um comando de exportação) (UNIX).
(3) org
A organização pode ser SEQUENTIAL, LINE SEQUENTIAL, INDEXED ou RELATIVE.
Esta cláusula é opcional para arquivos QSAM.
(4) access
O modo de acesso pode ser SEQUENTIAL, RANDOM ou DYNAMIC.
Para processamento seqüencial de arquivos, incluindo sequencial de linhas, você pode omitir esta cláusula.
(5) file-status
A chave de status do arquivo COBOL (file status key).
Você pode especificar a chave de status do arquivo como um item alfanumérico ou nacional de categoria de dois caracteres ou como um item decimal de dois dígitos em zonas (USAGE DISPLAY) ou decimal national (USAGE NATIONAL).
(6) recordname
O nome do registro usado nas instruções WRITE e REWRITE.
(7) fieldlength
O comprimento lógico do campo.
(8) type
O formato de registro do arquivo.
Se você quebrar a entrada do registro além da descrição do nível 01, cada elemento deverá ser mapeado com precisão nos campos do registro.
(9) iomode
O modo INPUT ou OUTPUT.
Se você estiver lendo apenas de um arquivo, codifique INPUT. Se você estiver escrevendo apenas, codifique OUTPUT ou EXTEND.
Se você estiver lendo e escrevendo, codifique I-O, exceto a organização LINE SEQUENTIAL.

Veja também:



© Copyright IBM Corp.