¿ªÔÆÌåÓý

ctrl + shift + ? for shortcuts
© 2025 Groups.io
  1. H390-MVS
  2. Messages
Single Messages Topics Expanded Polls

ChapGPT

 

Asked ChapGPT to write a cobol program to read and print a sequential file. Here's what it wrote...

? ?IDENTIFICATION DIVISION.
? ?PROGRAM-ID. READ-SEQ-FILE.
? ?ENVIRONMENT DIVISION.
? ?INPUT-OUTPUT SECTION.
? ?FILE-CONTROL.
? ? ? ?SELECT INFILE ASSIGN TO 'INPUT.TXT'
? ? ? ? ? ?ORGANIZATION IS SEQUENTIAL.
? ?DATA DIVISION.
? ?FILE SECTION.
? ?FD INFILE.
? ?01 INREC.
? ? ? ?05 INBUF ? ? ?PIC X(80).
? ?WORKING-STORAGE SECTION.
? ?PROCEDURE DIVISION.
? ?MAIN-PROCEDURE.
? ? ? ?OPEN INPUT INFILE
? ? ? ?PERFORM UNTIL INREC-EOF
? ? ? ? ? ?READ INFILE INTO INREC
? ? ? ? ? ?DISPLAY INBUF
? ? ? ?END-PERFORM
? ? ? ?CLOSE INFILE
? ? ? ?STOP RUN.
? ?END PROGRAM READ-SEQ-FILE.
Join [email protected] to automatically receive all group messages.