home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
cobol
/
compiler
/
cobol600
/
diskio.cob
< prev
next >
Wrap
Text File
|
1990-04-24
|
3KB
|
79 lines
00001 IDENTIFICATION DIVISION.
00002 PROGRAM-ID.
00003 Demo 1.
00004 AUTHOR.
00005 Bob Noweck.
00006 INSTALLATION.
00007 IBM PC COMPATABLES.
00008 DATE-WRITTEN.
00009 APRIL 22 1990.
00010 DATE-COMPILED.
00011 APRIL 22 1990.
00012 SECURITY.
00013 NONE.
00014 ENVIRONMENT DIVISION.
00015 CONFIGURATION SECTION.
00016 SOURCE-COMPUTER.
00017 WYSE-386 WITH DEBUGGING MODE.
00018 OBJECT-COMPUTER.
00019 WYSE-386 MEMORY SIZE 384000 WORDS.
00020 SPECIAL-NAMES.
00121 INPUT-OUTPUT SECTION.
00122 FILE-CONTROL.
00123 SELECT IN-FILE
00124 ASSIGN TO DISK
00125 ORGANIZATION IS INDEXED
00126 ACCESS MODE IS RANDOM
00127 RECORD KEY IS IN-KEY.
00128 SELECT OUT-FILE
00129 ASSIGN TO DISK
00130 ORGANIZATION IS INDEXED
00131 ACCESS MODE IS RANDOM
00132 RECORD KEY IS OUT-KEY.
00133 DATA DIVISION.
00134 FILE SECTION.
00135 FD IN-FILE
00136 BLOCK CONTAINS 1 TO 5000 RECORDS
00137 LABEL RECORDS ARE STANDARD
00138 VALUE OF FILE-ID IS 'TEST.DAT'
00139 DATA RECORD IS IN-FILE-RECORD.
00141 01 IN-FILE-RECORD.
00142 02 FILLER.
00143 03 IN-KEY.
00144 04 FIRST-NAME PIC X(30).
00145 04 MIDDLE-INIT PIC X.
00146 04 LAST-NAME PIC X(30).
00147 03 PHONE-NUMBERS.
00148 04 HOME-PHONE.
00149 05 AREA-CODE PIC X(3).
00150 05 PREFIX PIC X(3).
00151 05 SUFFIX PIC X(4).
00152 04 WORK-PHONE.
00153 05 AREA-CODE PIC X(3).
00154 05 PREFIX PIC X(3).
00155 05 SUFFIX PIC X(4).
00169 FD OUT-FILE
00171 LABEL RECORDS ARE STANDARD
00172 VALUE OF FILE-ID IS 'OUTFILE.DAT'
00173 DATA RECORD IS OUT-FILE-RECORD.
00174 01 OUT-FILE-RECORD.
00175 02 OUT-KEY.
00176 03 NAME PIC X(71).
00177 03 PHONE PIC X(10).
00180 WORKING-STORAGE SECTION.
00200 PROCEDURE DIVISION.
00300 MAIN.
00302 OPEN OUTPUT IN-FILE.
00310 OPEN OUTPUT OUT-FILE.
00311 MOVE 'BOB' TO FIRST-NAME.
00322 MOVE 'NOWECK' TO LAST-NAME.
00333 MOVE '9124270756' TO HOME-PHONE.
00340 MOVE '9124270756' TO WORK-PHONE.
00360 MOVE 'Robert Noweck 115 Lynton Rd. Jesup Ga.' to name
00370 write in-file-record.
00380 write out-file-record.
00400 close out-file.
00410 close in-file.
00400 STOP RUN.