pp: proc options(main); dcl a fixed(7,3); put list('dont remember now...'); end pp;