Skip to content

Instantly share code, notes, and snippets.

@pdemby

pdemby/fd.cob

Last active August 29, 2015 14:02
Show Gist options
  • Save pdemby/6d1f000ba9d90ff32737 to your computer and use it in GitHub Desktop.
Save pdemby/6d1f000ba9d90ff32737 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fd.cob
DATA DIVISION.
FILE SECTION.
FD EMPLOYEE-INPUT-FILE RECORD CONTAINS 80 CHARACTERS
VALUE OF FILE-ID IS WS-INPUT-FILE.
01 EMPLOYEE-INPUT-RECORD.
05 EMPLOYEE-INPUT-LASTNAME PIC X(30).
05 EMPLOYEE-INPUT-FIRSTNAME PIC X(20).
05 EMPLOYEE-INPUT-HOURLY-RATE PIC 9(3)V99.
05 FILLER PIC X(25).
FD EMPLOYEE-OUTPUT-FILE RECORD CONTAINS 80 CHARACTERS
VALUD OF FILE-ID IS WS-OUTPUT-FILE.
01 EMPLOYEE-OUTPUT-RECORD.
05 EMPLOYEE-OUTPUT-LASTNAME PIC X(30).
05 EMPLOYEE-OUTPUT-FIRSTNAME PIC X(20).
05 EMPLOYEE-OUTPUT-HOURLY-RATE PIC 9(3)V99.
05 FILLER PIC X(25).
WORKING-STORAGE SECTION.
01 WS-INPUT-FILE PIC X(80) VALUE "EMPLOYEE-FILE".
01 WS-OUTPUT-FILE PIC X(80) VALUE "NEW-EMPLOYEE-FILE".
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment