COBOL 코볼 문자열 처리(합치기, 자르기, SUBSTR 기능 등)

COBOL에서 전화번호 문자열이 있다고 했을때,

숫자 사이 중간에 하이픈 기호를 넣어서,

전화번호 패턴의 문자열로 바꿀 때 사용하는 방법이다.

MOVE ‘01011112222’ TO WK-TEL

STRING WK-TEL(1:3) ‘-‘

       WK-TEL(4:4) ‘-‘ 

       WK-TEL(7:4)

  DELIMITED BY SIZE INTO WK-TEL-P

반대로 하이픈 기호가 들어가 있는 패턴을 분리하고 싶을 때에는

MOVE ‘010-1111-2222’ TO WK-TEL

UNSTRING WK-TEL

  DELIMITED BY ALL '-'

       INTO WK-TEL1

            WK-TEL2

            WK-TEL3

Written by dukgun.com