Skip to content

Instantly share code, notes, and snippets.

@RomanKapitonov
Last active October 17, 2018 12:22
Show Gist options
  • Save RomanKapitonov/5adafc5c062efc8b39a325232d8c7418 to your computer and use it in GitHub Desktop.
Save RomanKapitonov/5adafc5c062efc8b39a325232d8c7418 to your computer and use it in GitHub Desktop.
With string filename assignemnt
11111NAME SURNAMEXXXXXXXXXXXXX
11112NAME SURNAMEXXXXXXXXXXXXX
#!/bin/sh
cobc -x sample.cob -o sample
export DD_STUDENTFILE=input.txt
./sample
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STUDENT ASSIGN TO "STUDENTFILE"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD STUDENT.
01 STUDENT-FILE.
05 STUDENT-ID PIC 9(5).
05 NAME PIC A(25).
WORKING-STORAGE SECTION.
01 WS-STUDENT.
05 WS-STUDENT-ID PIC 9(5).
05 WS-NAME PIC A(25).
01 WS-EOF PIC A(1).
PROCEDURE DIVISION.
OPEN INPUT STUDENT.
PERFORM UNTIL WS-EOF='Y'
READ STUDENT INTO WS-STUDENT
AT END MOVE 'Y' TO WS-EOF
NOT AT END DISPLAY WS-STUDENT
END-READ
END-PERFORM.
CLOSE STUDENT.
STOP RUN.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment