program-id. notif. working-storage section. 01 n-type pic 9 value 0. 88 n-top-right value 1. 88 n-top-left value 2. 88 n-bottom-right value 3. 88 n-bottom-left value 4. 88 n-before-time value 5. 01 n-type-str pic x any length. 88 n-str-tr value "displayed on the top right". 88 n-str-tl value "displayed on the top left". 88 n-str-br value "displayed on the bottom right". 88 n-str-bl value "displayed on the bottom left". 01 h-notif usage handle of window. procedure division chaining n-type. main. if n-type not > 0 and n-type not < 6 set n-before-time to true end-if evaluate true when n-top-right display notification window top right lines 5 size 35 visible 0 handle h-notif set n-str-tr to true perform display-screen-notif when n-top-left display notification window top left lines 5 size 35 visible 0 handle h-notif set n-str-tl to true perform display-screen-notif when n-bottom-right display notification window bottom right lines 5 size 35 visible 0 handle h-notif set n-str-br to true perform display-screen-notif when n-bottom-left display notification window bottom left lines 5 size 35 visible 0 handle h-notif set n-str-bl to true perform display-screen-notif when n-before-time display notification window top right lines 5 size 35 before time 550 visible 0 handle h-notif set n-str-tr to true perform display-screen-notif end-evaluate call "c$sleep" using 8.0 destroy h-notif goback. display-screen-notif. if n-before-time display label line 4 col 3 title "The notification will close in 5 seconds" upon h-notif end-if display label line 2 col 3 title "This is a notification window..." upon h-notif. display label line 3 col 3 title n-type-str upon h-notif. modify h-notif visible 1.