Advertisement
Guest User

Untitled

a guest
Mar 6th, 2015
187
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.71 KB | None | 0 0
  1. 15 EXTR-SITE PIC X.
  2. 05 EXTR-DBA PIC X.
  3. TE0305* 05 EXTR-BRANCH PIC X(05).
  4. TE0305* 05 EXTR-NUMBER PIC X(06).
  5. TE0305 05 FILLER PIC X(11).
  6. CW0104 10 EXTR-TEXT6 PIC X(67).
  7. CW0104 10 EXTR-TEXT7 PIC X(67).
  8. CW0104* 05 FILLER PIC X(567).
  9.  
  10. EXTR-SITE
  11. EXTR-DBA
  12. EXTR-NUMBER
  13. -------
  14. FILLER
  15.  
  16. int wordStartIndex = line.indexOf("PIC");
  17. int wordEndIndex = line.indexOf(".");
  18. if ((wordStartIndex > -1) && (wordEndIndex >= wordStartIndex)) {
  19. System.out.println(line); }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement