*DECK EXRDSC
          IDENT EXRDSC
          ENTRY  CLSESC 
          ENTRY  EXREAD 
          EXT    DE$FTSC
          SST 
EXREAD    DATA   0
          SA2    A1+1 
          SA4    A1+2 
          SA2    X2 
          SA3    X4 
          SX5    X2 
          LX2    3
          LX5    1
          IX2    X5+X2
          GET    DE$FTSC,X1,X2,,X3
          EQ     EXREAD 
CLSESC    DATA   0
          CLOSEM DE$FTSC,N
          EQ     CLSESC 
          END 
