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;