У нас вы можете посмотреть бесплатно [Aprenda COBOL] - Gerando arquivo CSV no COBOL или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
Nesta aula, vamos ver como gerar um arquivo CSV no COBOL de forma simples e prática, usando o OpenCOBOL IDE. Este vídeo: • [Aprenda COBOL] - Gerando arquivo CSV no C... Inscreva-se: https://www.youtube.com/aprendacobol?... Curso de COBOL: https://payment.hotmart.com/I53385812... Curso de JCL: https://payment.hotmart.com/V57765028... Curso de SQL: https://payment.hotmart.com/E57639149... Pacote GREEN: https://pay.hotmart.com/I62728164D?ch... Pacote PREMIUM: https://pay.hotmart.com/X62727300X?ch... Aulas grátis: https://aprendacobol.com.br/live Grupo Telegram: https://t.me/aprendacobol #cobol #aprendacobol #programarcobol #programação #programador #programadores #programarcobol #LINKAGESECTION #CALL #CSV #csvnocobol #gerarcsv Segue o código fonte na íntegra: ****************************************************************** Author: ANDRE COSTA Date: 18/11/2021 Purpose: GERA ARQUIVO CSV ****************************************************************** IDENTIFICATION DIVISION. PROGRAM-ID. PRGCSV. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT ARQCSV ASSIGN TO 'C:\COBOL\BIN\ARQCSV.CSV' ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD ARQCSV. 01 REG-CSV PIC X(50). WORKING-STORAGE SECTION. 77 WS-EOF PIC X VALUE SPACE. 01 WS-CSV. 03 CSV-NOME PIC X(10). 03 FILLER PIC X VALUE ';'. 03 CSV-ENDERECO PIC X(15). 03 FILLER PIC X VALUE ';'. 03 CSV-CIDADE PIC X(10). 03 FILLER PIC X VALUE ';'. 03 CSV-UF PIC X(02). 03 FILLER PIC X VALUE ';'. 03 CSV-FONE PIC X(08). 03 FILLER PIC X VALUE ';'. PROCEDURE DIVISION. MAIN-PROCEDURE. MOVE 'I' TO WS-EOF OPEN OUTPUT ARQCSV PERFORM UNTIL WS-EOF = 'F' DISPLAY 'Informe o nome: ' ACCEPT CSV-NOME DISPLAY 'Informe o endereco: ' ACCEPT CSV-ENDERECO DISPLAY 'Informe a cidade: ' ACCEPT CSV-CIDADE DISPLAY 'Informe a UF: ' ACCEPT CSV-UF DISPLAY 'Informe o telefone: ' ACCEPT CSV-FONE MOVE WS-CSV TO REG-CSV WRITE REG-CSV DISPLAY 'TECLE [F] PARA FINALIZAR' ACCEPT WS-EOF END-PERFORM CLOSE ARQCSV GOBACK.