IDENTIFICATION DIVISION.
PROGRAM-ID. CHAN2.
AUTHOR. DAREKA.
DATE-WRITTEN. 2013-02-07.
*****
ENVIRONMENT DIVISION.
*****
CONFIGURATION SECTION.
SOURCE-COMPUTER. CHAN2.
OBJECT-COMPUTER. CHAN2.
***
INPUT-OUTPUT SECTION.
FILE CONTROL.
SELECT CHANNEL1 ASSIGN TO I1-DK.
SELECT CHANNEL2 ASSIGN TO I2-DK.
SELECT PR3 ASSIGN TO O1-PR.