Online File

How to use this page

---

Tech: The Character Set Project

ebcdictable.sas
Program file
EBCDIC character encoding table

---

DATA WORK.EBCDICTABLE (KEEP=ROW X0-X15);
   * Row label variable ;
   ROW = 'EBCDIC';
   * 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 EBCDIC ;
             X{C} = INPUT(PUT(BYTE, S370FPIB1.), $EBCDIC1.);
         END;
      OUTPUT;
        END;
   STOP;
RUN;

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