uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added ASSIGN clauses on all files.

This commit is contained in:
Quinn Evans 2015-10-03 13:22:14 -06:00
parent b3dae4f208
commit 0927b31b5f
3 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
PRINTCNF.COB
View File

@ -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.

3
WOPO-CNF.COB
View File

@ -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.

3
WOPO.COB
View File

@ -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.