fork download

IDENTIFICATION DIVISION.
PROGRAM-ID. PROG02.
AUTHOR. BRUNO.
 
*DEFINICAO DO PATH ARQUIVO DE ENTRADA
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT ARQ-S ASSIGN TO "CLIENTES.DAT".
 
 
*DEFINICAO DO ARQUIVO DE ENTRADA
DATA DIVISION.
FILE SECTION.
FD ARQ-S
LABEL RECORD IS STANDARD.
01 REG-S
03 COD-CLI-E PIC 9(05).
03 VALOR-E PIC 9(07)V99.
 
 
*DEFINICAO DAS VARIAVEIS UTILIZADAS NO PROGRAMA
WORKING-STORAGE SECTION.
77 W-GRAVA PIC X.
77 W-OUTRO PIC X.
01 W-COD-CLI-E PIC 9(05).
01 W-VALOR-E PIC 9(07)V99.
 
 
*INICIO DA CODIFICACAO DO PROGRAMA
PROCEDURE DIVISION.
INICIO.
OPEN OUTPUT ARQ-S.
 
 
PERFORM TELA01.
CLOSE ARQ-S
STOP RUN.
 
 
*INICIO DA CONSTRUCAO DA TELA
TELA01
DISPLAY (03 21) "C A D A S T R O D E C L I E N T E S".
DISPLAY (06 09) "CLIENTE..:".
DISPLAY (08 09) "VALOR....:".
ACCEPT (06 20) W-COD-CLI-E.
ACCEPT (08 20) W-VALOR-E.
PERFORM TELA02.
 
 
TELA02
DISPLAY (16 33) " ".
DISPLAY (14 01) "----------------------------------------"
DISPLAY (14 40) "----------------------------------------"
DISPLAY (16 34) "GRAVAR...:".
ACCEPT (16 44) W-GRAVA.
 
 
IF W-GRAVA = "S"
PERFORM GRAVAR.
 
 
*PROCEDURE QUE GRAVA O REGISTRO
GRAVAR.
MOVE W-COD-CLI-E TO COD-CLI-E.
MOVE W-VALOR-E TO VALOR-E.
WRITE REG-S.
DISPLAY (16 34) " ".
DISPLAY (16 33) "CONTINUAR...:".
ACCEPT (16 48) W-OUTRO.
IF W-OUTRO = "S"
PERFORM TELA01.
 

prog.cob:1: Warning: Invalid indicator 'F' at column 7
prog.cob:5: Warning: Invalid indicator 'N' at column 7
prog.cob:11: Warning: Invalid indicator 'I' at column 7
prog.cob:14: Warning: Invalid indicator 'I' at column 7
prog.cob:18: Warning: Invalid indicator 'O' at column 7
prog.cob:21: Warning: Invalid indicator 'I' at column 7
prog.cob:24: Warning: Invalid indicator 'G' at column 7
prog.cob:32: Warning: Invalid indicator 'U' at column 7
prog.cob:35: Warning: Invalid indicator 'M' at column 7
prog.cob:38: Warning: Invalid indicator 'A' at column 7
prog.cob:43: Warning: Invalid indicator 'Y' at column 7
prog.cob:45: Warning: Invalid indicator 'Y' at column 7
prog.cob:49: Warning: Invalid indicator 'M' at column 7
prog.cob:54: Warning: Invalid indicator 'Y' at column 7
prog.cob:58: Warning: Invalid indicator 'R' at column 7
prog.cob:61: Warning: Invalid indicator 'M' at column 7
prog.cob:69: Warning: Invalid indicator 'Y' at column 7
prog.cob:72: Warning: Invalid indicator 'U' at column 7
prog.cob:1: Error: syntax error, unexpected WORD, expecting PROGRAM_ID

Standard output is empty