*DECK CBSSLIB                                                           000530
USETEXT TSBTBL                                                          007900
      PRGM DLF0700;                                                     000540
*CALL COMSSLIB                                                          000550
TERM;                                                                   000560
