TITLE '''IEDQ25'' - EBCDIC TRANSLATE TABLE'                    10000020
IEDQ25   CSECT                                                          20000020
* FEBRUARY 24, 1970                                                     30000020
         DC    F'0'                    ZEROES INDICATES NO TRANS        40000020
         DC    C'EBCD'                 EBCDIC IDENTIFIER                50000020
         END                                                            60000020