Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 18
Program
$ZIPST format

---

* This step generates invalid argument messages. ;
data work.cntlzip;
   length start $ 5 label $ 2;
   retain type 'C' fmtname '$ZIPST';
   do i = 00000 to 99999;
      start = put(i, z5.);
      label = zipstate(start);
      if label ne '' then output;
      end;
   start = '';
   label = '';
   hlo = 'o';
   output;
   _error_ = 0;
run;
proc format cntlin=work.cntlzip;
run;