I was guessing something a bit more
01 OUTAGE-DATE-DATA.
05 OUTAGE-DATE.
10 OUTAGE-YEAR PIC 9(04).
10 OUTAGE-MONTH PIC 9(02).
10 OUTAGE-DAY PIC 9(02).
05 OUTAGE-TIME.
10 OUTAGE-HOURS PIC 9(02).
10 OUTAGE-MINUTE PIC 9(02).
10 OUTAGE-SECOND PIC 9(02).
10 OUTAGE-MILLISECONDS PIC 9(02).
05 OUTAGE-DIFF-FROM-GMT PIC S9(04).
MOVE FUNCTION CURRENT-DATE TO OUTAGE-DATE-DATAI always kinda liked the meme from that language of "variable as picture". Calling something a picture has inherent and obvious implications WRT call by value vs call by name.
On the other hand intrinsic functions like FUNCTION CURRENT-DATE are not as logically amusing.
The United States has the world's largest economy, according to the IMF, World Bank and UN. So obviously the US is doing something right. Perhaps the rest of the world ought to adopt American conventions. I say that in jest, but the point is that criticizing the American way of doing things is a popular sport, yet at the end of the day, the American system has resulted in an economic output greater than Germany, the UK, France and Italy combined. The EU has a per-capita GDP of $36,779 and the US is at $54,601. So apparently something is working with the American way of doing things. Just because "the rest of the world" does it doesn't make it better. This whole idea that the American way of doing things is somehow inferior is just as ridiculous as the British/French rivalry.
The fact that the parent comment is the top comment is ridiculous. It's a petty thing about which to complain and adds nothing to the discussion. In fact, the parent comment ought to be down voted for being absolutely irrelevant to the posting in question.