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

STRING

STRING [  { identifier-1 / literal-1 }DELIMITED  BY {  identifier-2 / literal-2 / SIZE } ]…  

INTO identifier-4  [  WITH POINTER  identifier-5  ]

[  ON  OVERFLOW  무조건문-1 ] [  NOT  ON  OVERFLOW  무조건문-2 ]

[  END-STRING ]

UNSTRING

UNSTRING  identifier-1 DELIMITED   BY  [ ALL ]   { identifier-2 / literal-1 } OR  [ ALL ]   { identifier-3 / literal-2 }  

INTO  {  identifier-4   { [ DELIMITER  IN  identifier-5 ]  /  [ COUNT  IN  identifier-6 ] }   }

     [ WITH  POINTER  identifier-7 ] [ TALLING IN identifier-8 ] 

[  ON  OVERFLOW  무조건문-1 ] [  NOT  ON  OVERFLOW  무조건문-2 ]

[  END-UNSTRING ]

Written by dukgun.com