*DECK STATDUM 
          IDENT  IS$STAT
          ENTRY  REW$IS 
          ENTRY  STRT$IS                                                 JJJ1129
          LDSET  USE=GET$IS 
 REW$IS   BSS    0
 STRT$IS  BSS    0                                                       JJJ1129
          END 
          IDENT  IS$SKST
          ENTRY  SKBL$IS
          ENTRY  SKFL$IS
          LDSET  USE=SKIP$IS
 SKBL$IS  BSS    0
 SKFL$IS  BSS    0
          END 
