Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,41 +0,0 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. Overwrite.
|
||||
AUTHOR. Bill Gunshannon.
|
||||
INSTALLATION. Home.
|
||||
DATE-WRITTEN. 31 December 2021.
|
||||
************************************************************
|
||||
** Program Abstract:
|
||||
** Simple COBOL task. Open file for output. Write
|
||||
** data to file. Close file. Done...
|
||||
************************************************************
|
||||
|
||||
ENVIRONMENT DIVISION.
|
||||
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT File-Name ASSIGN TO "File.txt"
|
||||
ORGANIZATION IS LINE SEQUENTIAL.
|
||||
DATA DIVISION.
|
||||
|
||||
FILE SECTION.
|
||||
|
||||
FD File-Name
|
||||
DATA RECORD IS Record-Name.
|
||||
01 Record-Name.
|
||||
02 Field1 PIC X(80).
|
||||
|
||||
WORKING-STORAGE SECTION.
|
||||
|
||||
01 New-Val PIC X(80)
|
||||
VALUE 'Hello World'.
|
||||
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
|
||||
Main-Program.
|
||||
OPEN OUTPUT File-Name.
|
||||
WRITE Record-Name FROM New-Val.
|
||||
CLOSE File-Name.
|
||||
STOP RUN.
|
||||
|
||||
END-PROGRAM.
|
||||
Loading…
Add table
Add a link
Reference in a new issue