cobol => INSPECT 문

비고

INSPECT 문은 COBOL에서 검색 및 바꾸기 동사입니다.

tallying-phrase 은 다음과 같습니다.

replacing-phrase 은 다음과 같습니다.

missing image

before-after-phrase 는 다음과 같습니다.

INSPECT 날짜 줄 다시 포맷

GCobol identification division.
       program-id. inspecting.

       data division.
       working-storage section.
       01  ORIGINAL            pic XXXX/XX/XXBXX/XX/XXXXXXX/XX.
       01  DATEREC             pic XXXX/XX/XXBXX/XX/XXXXXXX/XX.

       procedure division.

       move function when-compiled to DATEREC ORIGINAL

       INSPECT DATEREC REPLACING ALL "/" BY ":" AFTER INITIAL SPACE

       display "Formatted function WHEN-COMPILED " ORIGINAL
       display " after INSPECT REPLACING         " DATEREC

       goback.
       end program inspecting.

기부 :

Formatted function WHEN-COMPILED 2010/03/25 23/05/0900-04/00
 after INSPECT REPLACING         2010/03/25 23:05:0900-04:00

Modified text is an extract of the original Stack Overflow Documentation

아래 라이선스 CC BY-SA 3.0

와 제휴하지 않음 Stack Overflow

cobol
INSPECT 문

수색…

비고

INSPECT 날짜 줄 다시 포맷