COBOL？極めてやんよ シュッシュ!!

[0112 デフォルトの名無しさん 2013/02/10(日) 23:26:10.17]

*****
DATA DIVISION.
*****
FILE SECTION.
FD CHANNEL1.
01 F1R.
02 F1-CNT PIC 9(04).
02 FILLER PIC X(01).
02 F1-HH PIC 9(02).
02 FILLER PIC X(01).
02 F1-MM PIC 9(02).
02 FILLER PIC X(01).
02 F1-SS PIC 9(02).
FD CHANNEL2.
01 F2R.
02 F2-CNT PIC 9(04).
02 FILLER PIC X(01).
02 F2-HH PIC 9(02).
02 FILLER PIC X(01).
02 F2-MM PIC 9(02).
02 FILLER PIC X(01).
02 F2-SS PIC 9(02).
FD PR3.
01 PR3R.