Are the airlines using systems that modern? I was guessing something a bit more 01 OUTAGE-DATE-DATA. 05 OUTAGE-DATE. 10 OUTAGE-YEAR

Are the airlines using systems that modern? 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-DATA I 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.