*
  Professional SAS Programming Secrets
  Program 5f
  Picture format
*;
proc format;
picture cent
    0   -< 100 = '0001' (multiplier=100)
    other  = '----' (noedit)
    ;
run;