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

[0113 デフォルトの名無しさん 2013/02/10(日) 23:30:01.83]

***
WORKING-STORAGE SECTION.
***
77 DATEKBN PIC X(1) VALUE SPACE.
77 DAYKBN PIC X(1) VALUE SPACE.
77 CHANNEL1-STATUS PIC X(1) VALUE SPACE.
77 CHANNEL2-STATUS PIC X(1) VALUE SPACE.
77 PR3-STATUS PIC X(1) VALUE SPACE.
***
01 SYSTEM-DATE.
02 SYEAR PIC X(4) VALUE SPACE.
02 SMONTH PIC X(2) VALUE SPACE.
02 SDAY PIC X(2) VALUE SPACE.
***
01 SYSTEM-TIME.
02 SHH PIC X(2) VALUE SPACE.
02 SMM PIC X(2) VALUE SPACE.
02 SSS PIC X(2) VALUE SPACE.
***
01 W1-CHANNEL.
02 W1SKBN PIC X(1) VALUE SPACE.
02 FILLER PIC X(255).