*DECK RPEDSQ
          IDENT     RPE$SQ
          COMMENT   READ PARITY ERROR PROCESSOR 
          TITLE     RPE$SQ - READ-PARITY-ERROR PROCESSOR
          SST 
          B1=1
          LIST      F 
 RPE$SQ   CAP.RM    INTERMEDIATE
* CALL /RPEDSQ/ 
*CALL /RPEDSQ/
          END 
