1 dcl (     char_picture        init(24),
2           real_fixed_picture  init(25),
3           cplx_fixed_picture  init(26),
4           real_float_picture  init(27),
5           cplx_float_picture  init(28)) fixed bin int static options(constant);