This item is
Creative Commons - Attribution 3.0 Unported (CC BY 3.0)
Publicly Available
and licensed under:Creative Commons - Attribution 3.0 Unported (CC BY 3.0)
Files for this item
Download all local files for this item (402.99 KB)
- Name
- cobolprogram-1399.txt
- Size
- 20 KB
- Format
- Text file
- Description
- Version of the work in plain text format
�7 ?[ N1 >[ L a L a La La La Lo � L� L� L� L�
L� " M M < MY x L� M� M� N * N1 La //IJN9NHR JOB
// EXEC COBOL
/*ROUTE PRINT GSM
IDENTIFICATION DIVISION.
PROGRAM-ID. CONCORD.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
C01 IS PAGETOP.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO UT-S-SYSIN.
SELECT OUTFILE ASSIGN TO UT-S-SYSOUT.
SELECT SORTFILE ASSIGN TO UT-S-SYSUT1.
SELECT SORTDESC ASSIGN TO UT-S-SYSUT1.
DATA DIVISION.
FILE SECTION.
FD INFILE,
BLOCK CONTAINS 0 CHARACTERS,
RECORDING MODE IS F, LABEL RECORDS ARE OMITTED.
01 INRECORD.
02 INID PIC X(6).
02 INTEXT PIC X(74).
FD OUTFILE, . . .
- Name
- logcombine-1399.txt
- Size
- 295.68 KB
- Format
- Text file
- Description
- Version of the work in plain text format
========================================================================
Date: Tue, 05 Jun 90 14:45 PDT
To: Nancy Rose <IZZYL91>
From: Nancy Rose <IZZYL91>
Subject: PEREDUR
//IJN9NHR JOB
// EXEC COBOL
/*ROUTE PRINT GSM
IDENTIFICATION DIVISION.
PROGRAM-ID. CONCORD.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
C01 IS PAGETOP.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO UT-S-SYSIN.
SELECT OUTFILE ASSIGN TO UT-S-SYSOUT.
SELECT SORTFILE ASSIGN TO UT-S-SYSUT1.
SELECT SORTDESC ASSIGN TO UT-S-SYSUT1.
DATA DIVISION.
FILE SECTION.
FD INFILE,
BLOCK CONTAINS 0 CHARACTERS,
RECORDING MODE IS F, LABEL RECORDS ARE OMITTED.
01 INRECORD.
02 INID PIC X(6).
02 INTEXT PIC X(74).
FD OUTFILE,
BLOCK CONTA . . .
- Name
- owein-1399.txt
- Size
- 83 KB
- Format
- Text file
- Description
- Version of the work in plain text format
�7 � J� � F a F a Fa Fa Fa Fo z H� H� H� H�
H� | Io Io < I� x H� J# JC JY * J� Fa Date: Wed, 06 Jun 90 12:12 PDT
Subject: IARLLES.FYNNAWN
//IJN9NHR JOB
// EXEC COBOL
/*ROUTE PRINT GSM
IDENTIFICATION DIVISION.
PROGRAM-ID. CONCORD.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
C01 IS PAGETOP.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO UT-S-SYSIN.
SELECT OUTFILE ASSIGN TO UT-S-SYSOUT.
SELECT SORTFILE ASSIGN TO UT-S-SYSUT1.
SELECT SORTDESC ASSIGN TO UT-S-SYSUT1.
DATA DIVISION.
FILE SECTION.
FD INFILE,
BLOCK CONTAINS 0 CHARACTERS,
RECORDING MODE IS F, LABEL RECORDS ARE OMITTED.
01 INRECORD.
02 INID PIC X(6) . . .
