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.