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.