PDS 7.1 format issue

Hi all,

been a while since i used PDS 7.1 and I need some advice

I am trying to format a input so it would look like 001 not just 1
but when I try to use the format statment (works in VBDOS and QB4.5) I get a error

"Array Not defined"

I have included the Format.bi at the begining of the applciation

can someone advice

thanks

Andy