Online File

How to use this page

---

Tech: The Character Set Project

asciitable.sas
Program file
ASCII character encoding table

---

DATA WORK.ASCIITABLE (KEEP=ROW X0-X15);
   * Row label variable ;
   ROW = 'ASCII';
   * Column data variables ;
   ARRAY X{0:15} $ 1 X0-X15;
   * Column headers ;
   DO C = 0 TO 15;
      X{C} = PUT(C, HEX1.);
      END;
   OUTPUT;
   * Data rows;
   DO R = 0 TO 15;
      ROW = PUT(R, HEX1.);
      DO C = 0 TO 15;
           BYTE = R*16 + C;
             * Convert byte value to ASCII ;
             X{C} = INPUT(PUT(BYTE, S370FPIB1.), $ASCII1.);
         END;
      OUTPUT;
        END;
   STOP;
RUN;

PROC REPORT DATA=WORK.ASCIITABLE NOWD NOHEADER;
RUN;