Advertisement
Guest User

Untitled

a guest
Feb 22nd, 2017
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 0.25 KB | None | 0 0
  1. SEARCH WS-PROV AT END
  2.             MOVE "PROVINCE CODE NOT VALID" TO MSGE
  3.             GO TO 300-LINK-RETURN
  4.                 WHEN (STUE-ADDRESS-3 EQUAL
  5.                     WS-PROV-CODE(PROV-INDEX))
  6.                     CONTINUE
  7.             END-SEARCH.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement