working-storage section. ... 77 jlogo-jpg pic s9(9) comp-4. ... screen section. ... 03 screen-1-bi-1 Bitmap line 10.0 column 48.0 size 130 pixels lines 150 pixels id 5 bitmap-scale 1 bitmap-handle jlogo-jpg bitmap-number 1 . ... procedure division. ... is-load-bitmaps. call "w$bitmap" using wbitmap-load "jlogo.jpg" giving jlogo-jpg. |