1 dcl (     pointer_context               initial(6),
2           area_context                  initial(8),
3           file_name_context             initial(11),
4           condition_context             initial(15),
5           parameter_context             initial(20)) fixed bin(15) internal static options(constant);