From 0927b31b5f393a44ab89c5bcd359c4ec9ad098f5 Mon Sep 17 00:00:00 2001 From: Quinn Evans Date: Sat, 3 Oct 2015 13:22:14 -0600 Subject: [PATCH] Added ASSIGN clauses on all files. --- PRINTCNF.COB | 3 +++ WOPO-CNF.COB | 3 +++ WOPO.COB | 3 +++ 3 files changed, 9 insertions(+) diff --git a/PRINTCNF.COB b/PRINTCNF.COB index ed89fed..95f367a 100644 --- a/PRINTCNF.COB +++ b/PRINTCNF.COB @@ -5,14 +5,17 @@ INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CONFIG + ASSIGN TO DISK ORGANIZATION IS INDEXED ACCESS MODE IS SEQUENTIAL RECORD KEY IS CONFIG-KEY. SELECT USERS + ASSIGN TO DISK ORGANIZATION IS INDEXED ACCESS MODE IS SEQUENTIAL RECORD KEY IS USER-NAME. SELECT CHANNELS + ASSIGN TO DISK ORGANIZATION IS SEQUENTIAL. DATA DIVISION. diff --git a/WOPO-CNF.COB b/WOPO-CNF.COB index d9f5b98..28210a2 100644 --- a/WOPO-CNF.COB +++ b/WOPO-CNF.COB @@ -5,14 +5,17 @@ INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CONFIG + ASSIGN TO DISK ORGANIZATION IS INDEXED ACCESS MODE IS RANDOM RECORD KEY IS CONFIG-KEY. SELECT USERS + ASSIGN TO DISK ORGANIZATION IS INDEXED ACCESS MODE IS RANDOM RECORD KEY IS USER-NAME. SELECT CHANNELS + ASSIGN TO DISK ORGANIZATION IS SEQUENTIAL. DATA DIVISION. diff --git a/WOPO.COB b/WOPO.COB index 3d468eb..e76be8f 100644 --- a/WOPO.COB +++ b/WOPO.COB @@ -5,14 +5,17 @@ INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CONFIG + ASSIGN TO DISK ORGANIZATION IS INDEXED ACCESS MODE IS RANDOM RECORD KEY IS CONFIG-KEY. SELECT USERS + ASSIGN TO DISK ORGANIZATION IS INDEXED ACCESS MODE IS RANDOM RECORD KEY IS USER-NAME. SELECT CHANNELS + ASSIGN TO DISK ORGANIZATION IS SEQUENTIAL. DATA DIVISION.