COBOL ํ๋ก๊ทธ๋จ์์ ๋น์ฆ๋์ค ๋ ์ฝ๋์์ ์ํธ ์์ฉ์ ํ์ผ์ ์ด๊ณ , ์ฝ๊ณ , ์ฐ๋ ๋ฐฉ์์ ๋ฐ๋ผ ๋ฌ๋ผ์ง๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค. VSAM์ด๋ QSAM๊ณผ ๊ฐ์ ์ก์ธ์ค ๋ฐฉ์์ ์ฌ์ฉํ ๋, ํ์ผ์ ์ฝ๊ณ , ์ฐ๊ณ , ๊ตฌ์กฐํํ๋ ๋ฐฉ์์ ์์คํ ์ ๋์๊ณผ ์๋ต์ฑ์ ์ํฅ์ ๋ฏธ์น ์ ์์ต๋๋ค. ์ ์ ๋ถ์ ๋ฐฉ๋ฒ์ ์ ๊ณตํฉ๋๋ค COBOL ์์ค ์ฝ๋๋ฅผ ์กฐ์ฌํ๊ณ ํจํด์ ๊ฐ์งํฉ๋๋ค. ์ด๋ก ์ธํด ํ์ผ ์์ ์ด ๋๋ฆฌ๊ฑฐ๋ ์ค๋ณต๋ ์ ์์ต๋๋ค.
์ด ๊ธ์์๋ ์ ์ ๋ถ์์ ์ฌ์ฉํ์ฌ COBOL ํ๋ก๊ทธ๋จ์ ๋นํจ์จ์ ์ธ ํ์ผ ์ฒ๋ฆฌ ๋ก์ง์ ๊ฒํ ํ๋ ๋ฐฉ๋ฒ์ ์ดํด๋ด ๋๋ค. VSAM ๋ฐ QSAM ์ฌ์ฉ ์ ๋ฐ์ํ๋ ์ผ๋ฐ์ ์ธ ๋ฌธ์ ๋ฅผ ํ์ ํ๊ณ , ๋ฐ์ ์์ธ์ ์ค๋ช ํ๋ฉฐ, ๋๊ตฌ๋ฅผ ์ฌ์ฉํ์ฌ ์ด๋ฌํ ๋ฌธ์ ๋ฅผ ์ด๋ป๊ฒ ํ์งํ ์ ์๋์ง ์ค๋ช ํฉ๋๋ค.
COBOL ํ์ผ ์ฒ๋ฆฌ ์ต์ ํ
SMART TS XL COBOL ํ๋ก๊ทธ๋จ์ด ์ค์ ๋ก ํ์ผ์ ์ฒ๋ฆฌํ๋ ๋ฐฉ์์ ๋ถ์ํ๋ ค๋ฉด
์์ธํ ๋ณด๊ธฐ๊ธฐ์ ์์คํ ์์ COBOL์ ๋ํ ๋ฐฐ๊ฒฝ ์ง์
COBOL์ ๊ตฌ์กฐํ๋ ๋น์ฆ๋์ค ๋ฐ์ดํฐ๋ฅผ ์ฒ๋ฆฌํ๋ ์ํฐํ๋ผ์ด์ฆ ์์คํ ์์ ์ฌ์ ํ ๋๋ฆฌ ์ฌ์ฉ๋๊ณ ์์ต๋๋ค. ๋ง์ ์กฐ์ง์์ ์ด๋ฌํ ํ๋ก๊ทธ๋จ์ ์ผ์ ์ ๋ฌด, ํ๊ณ ํ๋ก์ธ์ค ๋๋ ๊ณ ๊ฐ ์ํธ์์ฉ๊ณผ ๊ด๋ จ๋ ๋๋์ ์ ์ถ๋ ฅ์ ์ฒ๋ฆฌํฉ๋๋ค. ์๊ฐ์ด ์ง๋จ์ ๋ฐ๋ผ ์ด๋ฌํ ํ๋ก๊ทธ๋จ์ ๊ท๋ชจ์ ๋ณต์ก์ฑ์ด ์ปค์ง ์ ์์ผ๋ฉฐ, ํนํ ์ฌ๋ฌ ์ธ๋์ ๊ธฐ์ ์ ์ฌ์ฉํ๋ ์ฌ๋ฌ ํ์ด ๊ด๋ฆฌํ๋ ๊ฒฝ์ฐ ๋์ฑ ๊ทธ๋ ์ต๋๋ค.
VSAM ๋ฐ QSAM๊ณผ ๊ฐ์ ํ์ผ ์ก์ธ์ค ๋ฐฉ์์ ์ด๋ฌํ ํ๊ฒฝ์์ ์ผ๋ฐ์ ์ผ๋ก ์ฌ์ฉ๋ฉ๋๋ค. ์ด๋ฌํ ๋ฐฉ์์ ์์ฐจ์ ๋ฐ์ดํฐ ์ก์ธ์ค์ ์ธ๋ฑ์ค ๋ฐ์ดํฐ ์ก์ธ์ค๋ฅผ ๋ชจ๋ ์ง์ํ์ฌ ๊ฐ๋ฐ์๊ฐ ์๋ํ ์ฌ์ฉ ์ฌ๋ก์ ๋ง๊ฒ ๋ ์ฝ๋๋ฅผ ํจ์จ์ ์ผ๋ก ์ฝ๊ณ ์ ๋ฐ์ดํธํ ์ ์๋๋ก ํฉ๋๋ค. ๊ทธ๋ฌ๋ ์ด๋ฌํ ๋ฐฉ์์ด ์ ์ฉ๋๋ ๋ฐฉ์์ ์ฝ๋๋ฒ ์ด์ค๋ง๋ค ํฌ๊ฒ ๋ค๋ฅผ ์ ์์ต๋๋ค. ์ผ๊ด๋ ํจํด์ด๋ ๊ฒํ ๊ฐ ์์ผ๋ฉด ์ผ๋ถ ๊ตฌํ์์๋ ์ค๋ณต ์ฝ๊ธฐ, ๋ฐ๋ณต์ ์ธ ํ์ผ ์ด๊ธฐ ๋๋ I/O ๋ฃจํ ๋ด๋ถ์ ๋ถํ์ํ ๋ ผ๋ฆฌ.
COBOL ํ๋ก๊ทธ๋จ์ ์์ฒ ์ค์ ๊ฑธ์ณ ์๊ณ ์ฌ๋ฌ ๊ฐ์ ์ค์ฒฉ๋ ๋ฃจํด์ ํฌํจํ ์ ์๊ธฐ ๋๋ฌธ์ ์ด๋ฌํ ํจํด์ ์ง์ ํ์ ํ๋ ๊ฒ์ ์ข ์ข ๋นํ์ค์ ์ ๋๋ค. ์ ์ ๋ถ์์ ์์ค ์ฝ๋ ๊ตฌ์กฐ, ์ฌ์ฉ ๊ฒฝ๋ก ๋ฐ ์ก์ธ์ค ์์๋ฅผ ๊ฒ์ฌํ์ฌ ์ด๋ฌํ ๋์์ ํ์ ํ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค. ์ด๋ฌํ ์ ๊ทผ ๋ฐฉ์์ ํตํด ๋จ์ํ ๋๋ ์กฐ์ ์ด ํ์ํ ์์ญ์ ์ฐพ์ ์ ์์ต๋๋ค.
ํ์ผ ์ฒ๋ฆฌ ํจ์จ์ฑ์ด ์ฌ์ ํ ์ค์ํ ์ด์
๋ง์ COBOL ํ๋ก๊ทธ๋จ์ ๋์ฉ๋ ๋ฐ์ดํฐ ์ธํธ๋ฅผ ์ฒ๋ฆฌํ๋ ๋ฐ ์ฌ์ฉ๋๋ฉฐ, ์ฃผ๋ก ์ผ๊ฐ ์ผ๊ด ์ฒ๋ฆฌ ์์ ์ด๋ ์์ฝ๋ ์์ ์ ์ผ๋ถ๋ก ์ฌ์ฉ๋ฉ๋๋ค. ํ๋ก๊ทธ๋จ์ด ํ์ผ์ ๋ฐ๋ณต์ ์ผ๋ก ์ด๊ฑฐ๋, ๊ณผ๋ํ ์ฝ๊ธฐ ์์ ์ ์ํํ๊ฑฐ๋, ๊ด๋ จ ๋ฐ์ดํฐ ์์ ์ ํฉํ์ง ์์ ์ก์ธ์ค ํจํด์ ์ฌ์ฉํ๋ ๊ฒฝ์ฐ ์คํ ์๊ฐ์ด ์ฆ๊ฐํ ์ ์์ต๋๋ค. ์ด๋ก ์ธํด ์ ์ ์ถ๋ ฅ์ ์์กดํ๋ ๋ค์ด์คํธ๋ฆผ ์์คํ ์์ ์ฒ๋ฆฌ ์๊ฐ์ด ๊ธธ์ด์ง๊ฑฐ๋ ์ง์ฐ์ด ๋ฐ์ํ ์ ์์ต๋๋ค.
์๋ฅผ ๋ค์ด, ๊ฐ๋จํ ๋ฃจํ๋ฅผ ์ฌ์ฉํ์ฌ VSAM ํ์ผ์์ ๊ณ ๊ฐ ๋ ์ฝ๋๋ฅผ ์ฒ๋ฆฌํ๋ COBOL ํ๋ก๊ทธ๋จ์ ์๊ฐํด ๋ณด์ธ์.
READ CUSTOMER-FILE INTO WS-CUSTOMER
AT END
SET EOF-FLAG TO TRUE
END-READ.
PERFORM UNTIL EOF-FLAG
IF WS-CUSTOMER-STATUS = 'ACTIVE'
PERFORM PROCESS-CUSTOMER
END-IF
READ CUSTOMER-FILE INTO WS-CUSTOMER
AT END
SET EOF-FLAG TO TRUE
END-READ
END-PERFORM.
์ด ํจํด์ ๋จ๋ ์ผ๋ก๋ ๋ฌดํดํด ๋ณด์ ๋๋ค. ํ์ง๋ง ๋ค๋ฅธ ๋ฃจํ ์์ ๋ฐฐ์น๋๊ฑฐ๋ ์ฌ๋ฌ ํ์ผ ์ธ๊ทธ๋จผํธ์ ๊ฑธ์ณ ๋ฐ๋ณต๋๋ OPEN ๋ฐ CLOSE ๋ฌธ์ ์ฌ์ฉํ๋ ๊ฒฝ์ฐ ์๋ ์ ํ๋ฅผ ์ด๋ํ ์ ์์ต๋๋ค. ํ์ผ ์ฒ๋ฆฌ์ ์๋ง ๋๋ ์์ญ๋ง ๊ฐ์ ๋ ์ฝ๋๊ฐ ํฌํจ๋ ๊ฒฝ์ฐ ์ด๋ฌํ ์์ ๋นํจ์จ์ฑ์ด ๋์ฑ ๋๋๋ฌ์ง๋๋ค.
ํ์ผ ์ ๊ทผ์ฑ์ ๊ฐ์ ํ๋ ๊ฒ์ ์ ์ฒด ๋ฐํ์์ ์ค์ด๊ณ ์์คํ ์ง์์ ๋์ฑ ์ฉ์ดํ๊ฒ ํ๋ ํ ๊ฐ์ง ๋ฐฉ๋ฒ์ ๋๋ค. ํ์ผ ์ฌ์ฉ ๋ฐฉ์์ ๊ฒํ ํ๋ฉด ์ฝ๋ ์ผ๊ด์ฑ์ ์ ์งํ๊ณ ํฅํ ๊ฐ์ ์ด๋ ๊ฐ์ฌ๋ฅผ ์ํด ํ๋ก๊ทธ๋จ์ ์ค๋นํ๋ ๋ฐ์๋ ๋์์ด ๋ ์ ์์ต๋๋ค.
์ ์ ๋ถ์์ด ํ์ผ ์ก์ธ์ค ๊ฐ์ ์ ์ง์ํ๋ ๋ฐฉ์
์ ์ ๋ถ์์ ์์ค ์ฝ๋๋ฅผ ์คํํ์ง ์๊ณ ๋ ๊ฒ์ฌํ ์ ์๋ ๋ฐฉ๋ฒ์ ์ ๊ณตํฉ๋๋ค. ํนํ ํ๋ก๊ทธ๋จ์ด ํฌ๊ฑฐ๋, ๋ ๊ฑฐ์์ด๊ฑฐ๋, ํ ์คํธ ํ๊ฒฝ์์ ์คํํ๊ธฐ์๋ ๋๋ฌด ๋ฏผ๊ฐํ ๊ฒฝ์ฐ์ ์ ์ฉํฉ๋๋ค. ์ ์ ๋ถ์์ ์ฝ๋์ ๊ตฌ์กฐ, ์ ์ด ํ๋ฆ ๋ฐ ๋ฐ์ดํฐ ์ฌ์ฉ์ ๋ถ์ํ์ฌ ์๋์ผ๋ก ์ฐพ๊ธฐ ์ด๋ ค์ด ํจํด์ ์ฐพ์๋ผ ์ ์์ต๋๋ค.
ํ์ผ ์ฒ๋ฆฌ์ ๊ฒฝ์ฐ, ์ ์ ๋ถ์์ ํตํด ์ค์ฒฉ๋ ํ์ผ ๋ฃจํ, ๋์ผ ๋ฐ์ดํฐ์ ๋ํ ๋ฐ๋ณต์ ์ธ ์ ๊ทผ, ๋๋ ๋ถํ์ํ ํ์ผ ๊ฐ ์ ํ๊ณผ ๊ฐ์ ๋ฌธ์ ๋ฅผ ๊ฐ์งํ ์ ์์ต๋๋ค. ๋ํ ์ ์ ๋ถ์์ ํ์ด ์ฌ๋ฌ ํ๋ก๊ทธ๋จ์์ ํ์ผ์ด ์ด๋ป๊ฒ ์ฌ์ฉ๋๋์ง ๋งคํํ๋ ๋ฐ ๋์์ด ๋๋ฏ๋ก, ์์ ๊ฐ์ ๋ฐ์ดํฐ ์ธํธ๋ฅผ ๊ณต์ ํ๋ ์์คํ ์ ์ฌ์ฉํ ๋ ์ ์ฉํฉ๋๋ค.
์ด๋ฌํ ๊ฒ์ฌ๋ ์ฝ๋๋ฒ ์ด์ค๋ฅผ ๋ ์ฝ๊ฒ ์ดํดํ๋๋ก ํ์ฌ ์ฅ๊ธฐ์ ์ธ ์ ์ง ๊ด๋ฆฌ๋ฅผ ์ง์ํฉ๋๋ค. ๊ฐ๋ฐ์๋ ์ ํ๋ฆฌ์ผ์ด์ ๋ด ๋ฐ์ดํฐ ํ๋ฆ, ์ด์ ๊ฐ์ํ ๋ฐฉ์, ๊ทธ๋ฆฌ๊ณ ์ฝ๋์ ์ด๋ค ๋ถ๋ถ์ ๋ฆฌํฉํ ๋งํด์ผ ํ๋์ง์ ๋ํ ๊ฐ์์ฑ์ ํ๋ณดํ ์ ์์ต๋๋ค. ์ด๋ ๊ฒฐ๊ณผ์ ์ผ๋ก ์์คํ ์ ๋ฆฌ, ๋ฌธ์ํ ๋๋ ์ ์ง์ ์ ๋ฐ์ดํธ์ ๊ฐ์ ๋ ํฐ ๊ท๋ชจ์ ์์ ์ ๋์์ด ๋ฉ๋๋ค.
์ ์ ๋ถ์์ ์ผ๊ด๋๊ฒ ์ ์ฉํ๋ฉด ํ์ผ I/O์ ๊ด๋ จ๋ ์ฑ๋ฅ ๋ฌธ์ ๋ฐ์ ๊ฐ๋ฅ์ฑ์ ์ค์ด๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค. ๋ํ ํ์ด ๊ธฐ์กด ์์คํ ์ ๊ต์ฒดํ์ง ์๊ณ ๋ ๊ฐ์ ๊ณํ์ ์ธ์ธ ์ ์๋ ๊ธฐ๋ฐ์ ๋ง๋ จํด ์ค๋๋ค.
COBOL ํ์ผ ์ก์ธ์ค ๋ฐฉ๋ฒ ์ดํด
COBOL์์ ํ์ผ ์ ๊ทผ์ ์ธ์ด์ ๊ตฌ์กฐ์ ์ฌ์ฉํ๋ ๋ฐ์ดํฐ์ ์ ๋ฐ๋ผ ๊ฒฐ์ ๋ฉ๋๋ค. ๋นํจ์จ์ฑ์ด ๋ฐ์ํ๋ ๋ถ๋ถ์ ํ์ ํ๋ ค๋ฉด COBOL์ด VSAM ๋ฐ QSAM ํ์ผ์ ์ฒ๋ฆฌํ๋ ๋ฐฉ์, ์ด๋ฌํ ๋ฐฉ์์ด ์ค์ ์ ํ๋ฆฌ์ผ์ด์ ์์ ์ด๋ป๊ฒ ์ฌ์ฉ๋๋์ง, ๊ทธ๋ฆฌ๊ณ ์ด๋ค ์ฝ๋ฉ ํจํด์ด ์ฑ๋ฅ์ ์ํฅ์ ๋ฏธ์น๋์ง ์ดํด๋ณด๋ ๊ฒ์ด ์ข์ต๋๋ค.
์ด ์น์ ์์๋ ๋ ๊ฐ์ง ์ฃผ์ ์ก์ธ์ค ๋ฐฉ๋ฒ์ ์๊ฐํ๊ณ ์ ์ด ํ๋ฆ์ด ํ์ผ I/O ๋ ผ๋ฆฌ์ ์ด๋ป๊ฒ ์ํธ ์์ฉํ๋์ง ์ดํด๋ด ๋๋ค.
VSAM ๋ฐ QSAM ๊ฐ์
VSAM(Virtual Storage Access Method)๊ณผ QSAM(Queued Sequential Access Method)์ COBOL ํ์ผ ์ฒ๋ฆฌ์์ ์๋ก ๋ค๋ฅธ ์ญํ ์ ํฉ๋๋ค. ๋ ๋ฐฉ์ ๋ชจ๋ ๋๋ฆฌ ์ฌ์ฉ๋์ง๋ง, ๊ตฌ์กฐ์ ๋์ ๋ฐฉ์์ด ์๋ก ๋ค๋ฅด๊ธฐ ๋๋ฌธ์ ํ๋ก๊ทธ๋จ์ด ๋ฐ์ดํฐ๋ฅผ ์ฝ๊ณ ์ฐ๋ ํจ์จ์ ์ํฅ์ ๋ฏธ์นฉ๋๋ค.
VSAM์ ์ธ๋ฑ์ค ๋ฐ ํค ๊ธฐ๋ฐ ํ์ผ์ ๊ด๋ฆฌํ๋ ๋ฐ ์ฌ์ฉ๋ฉ๋๋ค. ์ง์ ๋ ์ฝ๋ ์ก์ธ์ค๋ฅผ ์ง์ํ์ฌ ํ๋ก๊ทธ๋จ์ด ํค๋ฅผ ๊ธฐ๋ฐ์ผ๋ก ํน์ ๋ฐ์ดํฐ ์์น๋ก ์ด๋ํ ์ ์๋๋ก ํฉ๋๋ค. ๋ฐ๋ผ์ VSAM์ ๊ณ ๊ฐ ์กฐํ ๋๋ ID๋ณ ๋ ์ฝ๋ ์ ๋ฐ์ดํธ์ ๊ฐ์ ์์ ์ ์ ํฉํฉ๋๋ค. KSDS(ํค ์์ฐจ ๋ฐ์ดํฐ ์งํฉ) ๋ฐ ESDS(์ํธ๋ฆฌ ์์ฐจ ๋ฐ์ดํฐ ์งํฉ)์ ๊ฐ์ ํ์ผ ๊ตฌ์ฑ๊ณผ ํธํ๋ฉ๋๋ค.
QSAM์ ๋ ๊ฐ๋จํฉ๋๋ค. ํ์ผ์ ์์ฐจ์ ์ผ๋ก ์ฝ๊ณ ์๋๋ค. ํค, ์ธ๋ฑ์ฑ, ๋ด์ฅ๋ ์์ ์ ๊ทผ ๊ธฐ๋ฅ์ด ์์ต๋๋ค. ๋ ์ฝ๋ ๊ฐ ์ด๋์ด ํ์ ์๋ ๋ณด๊ณ ์, ๋ก๊ทธ ๋ฐ์ดํฐ ๋๋ ์ผ๊ด ์ ๋ ฅ ํ์ผ์ ์ ํฉํฉ๋๋ค. ์ ํ์ ์ธ ํน์ฑ ๋๋ฌธ์ QSAM์ ๋ฃจํ์ I/O ๋ธ๋ก์ด ์์ฑ๋๋ ๋ฐฉ์์ ๋ ๋ฏผ๊ฐํฉ๋๋ค.
๋ค์์ COBOL์์ QSAM์ ์ฌ์ฉํ๋ ๊ธฐ๋ณธ์ ์ธ ์์ ๋๋ค.
์ฝ๋ณผ๋ณต์ฌํธ์งOPEN INPUT EMPLOYEE-FILE.
PERFORM UNTIL EOF-FLAG
READ EMPLOYEE-FILE INTO WS-EMPLOYEE
AT END
SET EOF-FLAG TO TRUE
END-READ
PERFORM PROCESS-EMPLOYEE
END-PERFORM.
CLOSE EMPLOYEE-FILE.
QSAM์ ๊ฐ๋จํ๊ธฐ ๋๋ฌธ์ ์ ๋ขฐํ ์ ์์ง๋ง, ์ค์ฉ๋๊ธฐ ์ฝ์ต๋๋ค. ์๋ฅผ ๋ค์ด, ๋ฐ์ดํฐ๋ฅผ ์์ ์ ์ฅ์์ ๋ฒํผ๋งํ๋ ๋์ ๋์ผํ ํ์ผ์ ์ฌ๋ฌ ๋ฒ ๋ณ๋์ ํจ์ค๋ก ์ฝ์ผ๋ฉด ์คํ ์๊ฐ์ด ํฌ๊ฒ ์ฆ๊ฐํ ์ ์์ต๋๋ค.
VSAM์ ๋ ์ ์ฐํ์ง๋ง ์์ฒด์ ์ธ ๋ณต์ก์ฑ์ ์ผ๊ธฐํฉ๋๋ค. ๋๋ค ์ก์ธ์ค ์ฝ๊ธฐ, ๋ถ์ ์ ํ ์ฌ์ฉ START ๋์ฌ ๋๋ ๋ฐ๋ณต REWRITE ์ค์ฒฉ ๋ฃจํ ๋ด๋ถ์ ์์
์ ์ ์ ํ๊ฒ ๊ณํํ์ง ์์ผ๋ฉด ์ฒ๋ฆฌ๋์ด ๊ฐ์ํ ์ ์์ต๋๋ค.
๊ฐ ๋ฐฉ๋ฒ์ ํน์ฑ์ ์ดํดํ๋ฉด ์ ์ ๋ถ์์ ํตํด ์ฝ๋ ๋์์ ๊ฒํ ํ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค.
๋ ๊ฑฐ์ ์์คํ ์ ์ผ๋ฐ์ ์ธ ์ฌ์ฉ ์ฌ๋ก
COBOL ํ์ผ ์์ ์ ์ง์ํ๋ ๋น์ฆ๋์ค ์ํฌํ๋ก์ ๊ธด๋ฐํ๊ฒ ์ฐ๊ณ๋ฉ๋๋ค. ๋ ๊ฑฐ์ ์์คํ ์์๋ VSAM ๋ฐ์ดํฐ์ธํธ์์ ์๋ฐฑ๋ง ๊ฐ์ ๋ ์ฝ๋๋ฅผ ์ฝ๊ณ , ๋น์ฆ๋์ค ๋ก์ง์ ์ ์ฉํ๊ณ , ๊ฒฐ๊ณผ๋ฅผ QSAM ์ถ๋ ฅ ํ์ผ์ ์ฐ๋ ์ผ์ผ ๋ฐฐ์น ์์ ์ด ํํ ๋ฐ์ํฉ๋๋ค. ์ด๋ฌํ ์ํฌํ๋ก์๋ ์ค๊ฐ ํ์ผ, ์ค๋ฅ ๋ก๊น ๋๋ ์ผ๋ฐ ์์ฐจ ํ์์ผ๋ก ์์ฑ๋ ๊ฐ์ฌ ์ถ์ ์ด ํฌํจ๋ ์๋ ์์ต๋๋ค.
์๋ฅผ ๋ค์ด ๋ณดํ ์์คํ ์์ COBOL ํ๋ก๊ทธ๋จ์ VSAM ์ ์ฑ ํ์ผ์ ์ด๊ณ ํน์ ๊ธฐ๊ฐ ๋ด์ ๋ง๋ฃ๋๋ ๋ชจ๋ ๋ ์ฝ๋๋ฅผ ๊ฒ์ํ์ฌ ๊ฐฑ์ ์์ ์ถ๋ ฅ ํ์ผ์ ์์ฑํ ์ ์์ต๋๋ค. ์ํ์์๋ ๊ฑฐ๋ ๋ ์ฝ๋๋ฅผ ๊ฒ์ํ์ฌ ์ด์๋ฅผ ๊ณ์ฐํ๊ฑฐ๋ ์์๋ฃ๋ฅผ ์ ์ฉํ ์ ์์ต๋๋ค. ์ด๋ฌํ ๊ฒฝ์ฐ ํ์ผ ์ฒ๋ฆฌ๋ ๊ณ ๋ฆฝ๋ ๋ ผ๋ฆฌ๊ฐ ์๋๋๋ค. ๋ฃจํ, ์กฐ๊ฑด ๋ฐ ๋น์ฆ๋์ค ๊ท์น ๋ด์ ๊น์ด ๋ด์ฅ๋์ด ์์ต๋๋ค.
์ด๋ฌํ ์์ ์ ์๋๊ฐ ์๋ ์ ๋ขฐ์ฑ์ ๊ณ ๋ คํ์ฌ ์ค๊ณ๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค. ๊ทธ ๊ฒฐ๊ณผ, ๋ค์๊ณผ ๊ฐ์ ๋ฌธ์ ๊ฐ ํํ ๋ฐ์ํฉ๋๋ค.
- ๋์ผํ ์ ๋ ฅ ํ์ผ์ ํตํ ์ฌ๋ฌ ํจ์ค
- ์ฝ๊ธฐ ์ ์ ์ธ๋ถ์์ ๋ ์ฝ๋ ์ ๋ ฌ
- ๊ทธ๋ฃนํ ๋๋ ๋ณํ์ ์ฌ์ฉ๋๋ ์์ ํ์ผ
- ๋ฃจํ ๋ฐ๋ณต๋ง๋ค ๋ฐ๋ณต๋๋ ํ์ผ ์ด๊ธฐ ๋ฐ ๋ซ๊ธฐ
์ด๋ฌํ ๊ตฌ์กฐ๋ ์๊ฐ์ด ์ง๋จ์ ๋ฐ๋ผ ์ฌ๋ฌ ํ์์ ๊ณ์ธต์ ์ถ๊ฐํ๋ฉด์ ์งํํ๊ธฐ ๋๋ฌธ์, ์๋ ์๋๊ฐ ๋ ผ๋ฆฌ์์ ์ฌ๋ผ์ง๊ฑฐ๋ ์ค๋ณต๋ ์ ์์ต๋๋ค. ์ ์ ๋ถ์์ ํ๋ก๊ทธ๋จ ๊ตฌ์กฐ๋ฅผ ๋ฐ๋ผ๊ฐ๊ธฐ ์ด๋ ค์ด ๊ฒฝ์ฐ์๋ ์ด๋ฌํ ํจํด์ ํ๋ฉดํํ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค.
์ผ๋ฐ์ ์ธ ์ฌ์ฉ ์ฌ๋ก๋ฅผ ์ดํดํ๋ฉด ๋ถ์๊ฐ๊ฐ ์ด๋ค ์ ํ์ ์ก์ธ์ค ํจํด์ด ์๋ ์ ํ๋ฅผ ์ผ์ผํฌ ๊ฐ๋ฅ์ฑ์ด ์๋์ง ์ฐ์ ์์๋ฅผ ์ ํ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค.
์ ์ด ๊ตฌ์กฐ ๋ฐ ์ก์ธ์ค ํจํด
COBOL์ ์ ์ด ํ๋ฆ์ ๋ค์์ ์ฌ์ฉํ์ฌ ๊ตฌ์ฑ๋ฉ๋๋ค. PERFORM, IF๊ธ๋ ๋ฐ์ผ EVALUATE ํ์ผ ์ฒ๋ฆฌ ๋ฃจํด์ ๊ฐ์ธ๋ ๋ธ๋ก์ด ๋ง์ต๋๋ค. ์ด๋ฌํ ์ ์ด ๊ตฌ์กฐ๋ ์ผ๋ฐ์ ์ผ๋ก ๊ฐ๋จํ์ง๋ง, ํ์ผ ์ ๊ทผ ๋ก์ง์ด ์ค์ฒฉ๋๊ฑฐ๋ ์ฌ์ฌ์ฉ๋๊ฑฐ๋ ์กฐ๊ฑด๋ถ๋ก ํธ๋ฆฌ๊ฑฐ๋๋ ๊ฒฝ์ฐ ๋ณต์กํด์ง ์ ์์ต๋๋ค.
๋ค์์ ํ๋นํด ๋ณด์ด์ง๋ง ์ฑ๋ฅ์ ์ํ์ด ๋ฐ๋ฅด๋ ์์ ๋๋ค.
PERFORM READ-AND-PROCESS-FILE
VARYING REGION-ID FROM 1 BY 1
UNTIL REGION-ID > 10.
READ-AND-PROCESS-FILE.
OPEN INPUT CUSTOMER-FILE.
PERFORM UNTIL EOF-FLAG
READ CUSTOMER-FILE INTO WS-CUSTOMER
AT END
SET EOF-FLAG TO TRUE
END-READ
IF WS-CUSTOMER-REGION = REGION-ID
PERFORM PROCESS-CUSTOMER
END-IF
END-PERFORM.
CLOSE CUSTOMER-FILE.
์ด ์ฝ๋๋ ๋์ผํ ํ์ผ์ ์์ญ๋น ํ ๋ฒ์ฉ ์ด ๋ฒ ์ด๊ณ ์ฝ์ต๋๋ค. ๊ธฐ๋ฅ์ ์ผ๋ก๋ ๋ฌธ์ ์์ง๋ง, ์ค๋ณต I/O์ ๋ ๊ธด ๋ฐํ์์ ์ด๋ํฉ๋๋ค. ๊ฒฝ์ฐ์ ๋ฐ๋ผ ๊ฐ๋ฐ์๋ ํ์ผ์ ํ ๋ฒ๋ง ์ฝ๊ณ ๋ฐ์ดํฐ๋ฅผ ๋ฉ๋ชจ๋ฆฌ์ ๊ทธ๋ฃนํํ๋ ๋ฐฉ์์ผ๋ก ์ด ๋ก์ง์ ์ฌ๊ตฌ์ฑํฉ๋๋ค. ํ์ง๋ง ์ด๋ฌํ ์ ์ถฉ์์ ํ๋ก๊ทธ๋จ ๊ตฌ์กฐ๋ฅผ ์ ์ฒด์ ์ผ๋ก ํ์ ํด์ผ๋ง ๋ช ํํด์ง๋๋ค.
์ ์ ๋ถ์ ๋๊ตฌ๋ ์ด๋ฌํ ์ ์ด ๊ตฌ์กฐ์ ๊ด๋ จ ํ์ผ ์์ ์ ํ๋ฉดํํ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค. ๋ํ ๊ฐ๋ฐ์๋ ํ์ผ์ ์ด๊ฑฐ๋ ์ฝ๋ ๋น๋์ ์ด๋ฌํ ์์ ์ด ๋ถํ์ํ ์ธ๋ถ ๋ฃจํ์ ์์กดํ๋์ง ์ฌ๋ถ๋ฅผ ์ถ์ ํ ์ ์์ต๋๋ค. ํ์ผ ์ฒ๋ฆฌ ํจํด๊ณผ ํจ๊ป ์ ์ด ํ๋ฆ ๋ถ์์ ์ํํ๋ฉด I/O ๋ฃจํด์ด ์์ ๋ก์ง์ ๋ฐ๋ฅด๊ฑฐ๋ ๋ฐํ์์ ์ํฅ์ ๋ฏธ์น๋ ๋ฐฉ์์ผ๋ก ๋ฒ์ด๋๋ ๋ถ๋ถ์ ํ์ ํ ์ ์์ต๋๋ค.
COBOL์์ ๋นํจ์จ์ ์ธ ํ์ผ ์ฒ๋ฆฌ ํจํด
์ผ๋ถ COBOL ํ๋ก๊ทธ๋จ์ ์๋ ๊ฐ ์ ์๋ํ์ง๋ง, ์ ์ฐจ ์คํ ์๋ ์ ํ, ๊ธด ๋ฐฐ์น ์๋์ฐ, ๋๋ ์ค๋ช ํ ์ ์๋ I/O ํผํฌ ๋ฑ์ ์งํ๋ฅผ ๋ณด์ ๋๋ค. ์ด๋ฌํ ๋ฌธ์ ๋ ํ์ผ ์ ๊ทผ ๋ฐ ์ฒ๋ฆฌ ๋ฐฉ์์ ์ฌ์ํ ๋นํจ์จ์ฑ์์ ๋น๋กฏ๋๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค. ์ด๋ฌํ ํจํด์ ๋๋ถ๋ถ์ ์๋ชป๋ ์ฝ๋ฉ์ด ์๋๋ผ ์ ์ง์ ์ธ ๋ฐ์ , ๋ณต์ ๋ ๋ก์ง, ๋๋ ์ฌ๊ฒํ ๋์ง ์์ ์ด๊ธฐ ์ค๊ณ ๊ฒฐ์ ์์ ๋น๋กฏ๋ฉ๋๋ค.
์ด ์น์ ์์๋ ํ์ผ ์ฒ๋ฆฌ ์ฑ๋ฅ์ ์ํฅ์ ๋ฏธ์น๋ ๋ฐ๋ณต์ ์ธ ๊ดํ์ ์ดํด๋ณด๊ณ , ์ ์ ๋ถ์์ ํตํด ๋ ํฐ ๋ฌธ์ ๊ฐ ๋๊ธฐ ์ ์ ๊ฐ์งํ ์ ์๋ ํจํด์ ์ด์ ์ ๋ง์ถฅ๋๋ค.
๊ณผ๋ํ ์์ฐจ์ ์ฝ๊ธฐ ๋ฐ ๋๋ค ์ก์ธ์ค ๋ฃจํ
COBOL ํ๋ก๊ทธ๋จ์์ ํํ ๋ฐ์ํ๋ ๋นํจ์จ์ฑ์ ๋ถํ์ํ ์์ฐจ์ ์ค์บ์ด๋ ์ต์ ํ๋์ง ์์ ์์ ์ ๊ทผ ์ฌ์ฉ์ ๋๋ค. ํนํ ์ธ๋ฑ์ฑ์ด๋ ์ฌ์ ํํฐ๋ง์ผ๋ก ์ถฉ์กฑํ ์ ์๋ ์กฐ๊ฑด์ ์ถฉ์กฑํ๊ธฐ ์ํด ํ์ผ์ ๋ฐ๋ณต์ ์ผ๋ก ์ฝ์ ๋ ์ด๋ฌํ ํ์์ด ๋๋๋ฌ์ง๋๋ค.
ํ๋ก๊ทธ๋จ์ด ํน์ ํค๊ฐ ์๋ ๋ ์ฝ๋๋ฅผ ์ฐพ๊ธฐ ์ํด ๋ชจ๋ ๋ ์ฝ๋๋ฅผ ์ฝ๋ ์๋๋ฆฌ์ค๋ฅผ ์๊ฐํด ๋ณด์ธ์.
PERFORM UNTIL EOF-FLAG
READ CUSTOMER-FILE INTO WS-CUSTOMER
AT END
SET EOF-FLAG TO TRUE
END-READ
IF WS-CUSTOMER-ID = TARGET-ID
PERFORM PROCESS-MATCH
END-IF
END-PERFORM.
If CUSTOMER-FILE ์ธ๋ฑ์ฑ๋ฉ๋๋ค START ๊ทธ ๋ค์ ๋จ์ผ READ ์ด ๋ฃจํ ์ ์ฒด๋ฅผ ๋์ฒดํ ์ ์์ต๋๋ค. ์์ฐจ์ ์ค์บ์ ๋ชจ๋ ๋ฐ์ดํฐ๋ฅผ ์ฒ๋ฆฌํ ๋๋ ์ ํฉํ์ง๋ง, ๋จ์ผ ์ผ์น ํญ๋ชฉ์ ๊ฒ์ํ ๋๋ ์ ํฉํ์ง ์์ต๋๋ค. ๋ ํฐ ๋ฐ์ดํฐ ์ธํธ์์๋ ์ด๋ก ์ธํด ๋์ ๋๋ ์ง์ฐ์ด ๋ฐ์ํฉ๋๋ค.
๋ง์ฐฌ๊ฐ์ง๋ก ์ค์ฒฉ๋ ๋๋ค ์ก์ธ์ค๋ฅผ ์ฌ์ฉํ์ฌ START ๋ค์ READ ์ต์ ํ๋์ง ์์ ํค๊ฐ ์๋ ๋ฃจํ์์๋ ๋ฐ์ดํฐ์ธํธ ์ ์ฒด์์ ํฌ์ธํฐ๊ฐ ๋ฐ๋ณต์ ์ผ๋ก ์ด๋ํ๊ธฐ ๋๋ฌธ์ CPU ์ฌ์ฉ๋์ด ๋์์ง ์ ์์ต๋๋ค. ์ ์ ๋ถ์ ๋๊ตฌ๋ ์ด๋ฌํ ์ํ์ค๋ฅผ ์ถ์ ํ๊ณ ๋ฃจํ๊ฐ ๊ฐ์ ๊ฐ๋ฅํ ํจํด์ ์์กดํ๋ ๊ฒฝ์ฐ ํ๋๊ทธ๋ฅผ ์ง์ ํ ์ ์์ต๋๋ค.
์ด๋ฐ ์ ํ์ ํจํด์ ์ฒ๋ฆฌํ๋ฉด ์ผ๋ฐ์ ์ผ๋ก ์๋๊ฐ ํฅ์๋ ๋ฟ๋ง ์๋๋ผ, ์์ ๋ ์ฝ๋๊ฐ ์ค์ ์๋๋ฅผ ๋์ฑ ๋ช ํํ๊ฒ ๋ฐ์ํ๋ฏ๋ก ๋น์ฆ๋์ค ๋ก์ง์ ๋ช ํ์ฑ๋ ํฅ์๋ฉ๋๋ค.
์ค๋ณต๋ ์ด๊ธฐ ๋ฐ ๋ซ๊ธฐ ๋ฌธ
ํ์ผ ์ด๊ธฐ ๋ฐ ๋ซ๊ธฐ๋ ์ผ๋ฐ์ ์ผ๋ก ์์ ๋จ๊ณ๋น ๋๋ ๋ ผ๋ฆฌ์ ์์ ์ธ๊ทธ๋จผํธ๋น ํ ๋ฒ์ฉ ์คํ๋์ด์ผ ํฉ๋๋ค. ๊ทธ๋ฌ๋ ์ผ๋ถ COBOL ํ๋ก๊ทธ๋จ์์๋ ์ด๋ฌํ ์์ ์ด ์ฌ๋ฌ ๋ฒ ํธ์ถ๋๋ ๋ฃจํ๋ ํ๋ก์์ ๋ด์ ๋ด์ฅ๋์ด ์์ต๋๋ค. ์ด๋ก ์ธํด ๋ฐ๋ณต์ ์ธ ์ด๊ธฐ-๋ซ๊ธฐ ์ฌ์ดํด์ด ๋ฐ์ํ์ฌ ๋ถํ์ํ I/O ๋ถํ๊ฐ ๋ฐ์ํฉ๋๋ค.
๋นํจ์จ์ ์ธ ๊ตฌ์กฐ์ ์:
PERFORM PROCESS-REGION
VARYING REGION-ID FROM 1 BY 1
UNTIL REGION-ID > 5.
PROCESS-REGION.
OPEN INPUT CUSTOMER-FILE
PERFORM READ-CUSTOMERS
CLOSE CUSTOMER-FILE.
์ฌ๊ธฐ์ ํ์ผ์ ๊ฐ ์์ญ๋ณ๋ก ํ ๋ฒ์ฉ ์ด ๋ค์ฏ ๋ฒ ์ด๋ฆฌ๊ณ ๋ซํ๋๋ค. ํ์ผ์ด ์์ญ๋ณ๋ก ๋ฌผ๋ฆฌ์ ์ผ๋ก ๋ถํ ๋์ด ์์ง ์์ผ๋ฉด ์ด๋ฌํ ๋ฐฉ์์ ๋ถํ์ํ ์ค๋ฒํค๋๋ฅผ ๋ฐ์์ํต๋๋ค. ์ค์ ๋ก๋ ํ์ผ์ ํ ๋ฒ ์ด๊ณ ๋ชจ๋ ๋ ์ฝ๋๋ฅผ ์ฝ์ ํ ๋ฉ๋ชจ๋ฆฌ ๋ด ๋๋ ๋ก์ง์ ํตํด ํํฐ๋ง์ ์ ์ฉํ๋ ๊ฒ์ด ๋ ์ข์ต๋๋ค.
๋๋ก๋ ์ด ํจํด์ด ๋ช
ํํ์ง ์์ ๊ฒฝ์ฐ๊ฐ ์์ต๋๋ค. ํนํ OPEN CLOSE ๋ฌธ์ฅ์ ์ฌ๋ฌ ํ๋ก๊ทธ๋จ์์ ์ฌ์ฉ๋๋ ๊ณต์ ๋ฌธ๋จ ์์ ๋ฌปํ ์์ต๋๋ค. ์ ์ ๋ถ์์ ํตํด ์ด๋ฌํ ๋ฌธ์ฅ์ด ์์๋ณด๋ค ์์ฃผ ๋ฐ์ํ๊ฑฐ๋ ๊ธด๋ฐํ ๋ฃจํ ์์ ๋ํ๋๋ ๊ฒฝ์ฐ๋ฅผ ํ์
ํ ์ ์์ต๋๋ค.
์ค๋ณต๋ ํ์ผ ์ ์ด ๋ ผ๋ฆฌ๋ฅผ ์์ ํ๋ฉด ๋ฐํ์๊ณผ ํ์ผ ๊ฒฝํฉ ๋๋ ์ ๊ธ ๋ฌธ์ ๊ฐ ๋ฐ์ํ ๊ฐ๋ฅ์ฑ์ด ์ค์ด๋๋ ๊ฒฝํฅ์ด ์์ผ๋ฉฐ, ํนํ ๊ณต์ ๋ฐ์ดํฐ ์ธํธ๊ฐ ์๋ ํ๊ฒฝ์์๋ ๊ทธ ํจ๊ณผ๊ฐ ํฝ๋๋ค.
๊ตฌ์กฐ๊ฐ ์ ๋๋ก ๊ตฌ์ฑ๋์ง ์์ ์ฝ๊ธฐ ๋ฐ ์ฐ๊ธฐ ๋ธ๋ก
์ฝ๊ธฐ ๋๋ ์ฐ๊ธฐ ์์ ์ด ์ ์ด ๋ก์ง๊ณผ ๋ช ํํ๊ฒ ๋ถ๋ฆฌ๋์ง ์์ผ๋ฉด ํ๋ก๊ทธ๋จ ์ ์ง ๊ด๋ฆฌ๊ฐ ์ด๋ ค์์ง๊ณ ๋นํจ์จ์ฑ์ด ๋ฐ์ํ ๊ฐ๋ฅ์ฑ์ด ์ปค์ง๋๋ค. ์ด๋ ์ฌ๋ฌ ์ฝ๊ธฐ ๋๋ ์ฐ๊ธฐ ์์ ์ด ๋ช ํํ ๊ฒฝ๊ณ ์์ด ๋ฃจํ์ ๋ถ์ฐ๋์ด ์๊ฑฐ๋ ์ฐ๊ธฐ ์กฐ๊ฑด์ด ๋๋ฌด ๋์จํ๊ฒ ์ ์๋์ด ์์ ๋ ํํ ๋ฐ์ํฉ๋๋ค.
์กฐ๊ฐํ๋ ์ฐ๊ธฐ ๋ ผ๋ฆฌ์ ์:
PERFORM UNTIL EOF-FLAG
READ TRANSACTION-FILE INTO WS-TRANSACTION
AT END
SET EOF-FLAG TO TRUE
END-READ
IF WS-TRANSACTION-TYPE = 'A'
WRITE REPORT-LINE-A FROM WS-REPORT-A
END-IF
IF WS-TRANSACTION-TYPE = 'B'
PERFORM GENERATE-DETAIL
WRITE REPORT-LINE-B FROM WS-REPORT-B
END-IF
END-PERFORM.
์ฌ๊ธฐ์ ์ฐ๊ธฐ ๋ก์ง์ ์ฌ๋ฌ ์กฐ๊ฑด์ผ๋ก ๋๋๋๋ฐ, ๊ทธ์ค ์ผ๋ถ๋ ์คํ๋์ง ์์ ์๋ ์์ต๋๋ค. ๋์ค์ ๋ก์ง์ ์ถ๊ฐํ๋ฉด ๊ตฌ์กฐ๋ฅผ ํ์ ํ๊ธฐ๊ฐ ๋ ์ด๋ ค์์ง ์ ์์ต๋๋ค. ์ ์ ๋ถ์์ ํตํด WRITE ๋ฌธ์ด ์ผ๋ง๋ ๋ง์ด ์ฌ์ฉ๋๋์ง, ์ด๋์ ๋ํ๋๋์ง, ๊ทธ๋ฆฌ๊ณ ์ผ๊ด๋ ๊ตฌ์กฐ๋ฅผ ๋ฐ๋ฅด๋์ง ๋งคํํ ์ ์์ต๋๋ค.
๋๊ท๋ชจ ํ๋ก๊ทธ๋จ์์๋ ์ด๋ฅผ ํตํด ์ฐ๊ธฐ ์์ ์ ํตํฉํ๊ฑฐ๋ ์ฌ๊ตฌ์ฑํ์ฌ ํ๋ฆ์ ๊ฐ์ ํ๊ณ ๊ฒฐ๊ณผ๋ฅผ ๋ ์์ธก ๊ฐ๋ฅํ๊ฒ ๋ง๋ค ์ ์๋ ์ง์ ์ ์๋ณํ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค.
์กฐ๊ฑด๋ถ๋ก ๊ฑด๋๋ฐ๊ฑฐ๋ ๋ถํ์ํ๊ฒ ์ค๋ณต๋๋ ์ฝ๊ธฐ ์์ ์๋ ๋์ผํ ๋ ผ๋ฆฌ๊ฐ ์ ์ฉ๋ฉ๋๋ค. ์ด๋ฌํ ํจํด์ ์กฐ๊ธฐ์ ๊ฐ์งํ๋ฉด ์ฑ๋ฅ ๋ฌธ์ ๋ฅผ ๋ฐฉ์งํ๊ณ ํฅํ ์์ ์์ ์ ๊ฐ์ํํ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค.
์์ ๋ฐ ๋ค์ ์ฐ๊ธฐ ์์ ์ด ๋๋ฝ๋์๊ฑฐ๋ ์๋ชป ์ฌ์ฉ๋์์ต๋๋ค.
์ฝ๋ณผ์ START REWRITE ๋์ฌ๋ ๊ฐ๋ ฅํ์ง๋ง, ์๋ชป ์ฌ์ฉํ๋ฉด ์์์น ๋ชปํ ๋์์ด๋ ํ์ผ ์ก์ธ์ค ์ ํ๋ก ์ด์ด์ง ์ ์์ต๋๋ค. ํนํ VSAM KSDS ๋ฐ์ดํฐ์ธํธ๋ฅผ ์ฌ์ฉํ ๋ ๋์ฑ ๊ทธ๋ ์ต๋๋ค.
START ํ์ผ ํฌ์ธํฐ๋ฅผ ์ฃผ์ด์ง ํค ๊ฐ์ ์์น์ํค๋ ๋ฐ ์ฌ์ฉ๋ฉ๋๋ค. ์ข
์ข
๋ค์ ๋ค์์ด ๋ถ์ต๋๋ค. READ,๊ณผ ๊ฐ์ด :
START CUSTOMER-FILE KEY >= TARGET-ID
INVALID KEY
DISPLAY "Record not found"
END-START
READ CUSTOMER-FILE INTO WS-CUSTOMER.
์ ๊ตฌ์ฑ๋ ํ๋ก๊ทธ๋จ์์๋ ์ด๋ฌํ ํ์ด๋ง์ด ์๋ํ ๋๋ก ์๋ํฉ๋๋ค. ํ์ง๋ง START ๋ฃจํ ๋ด๋ถ์ ๋ฐฐ์น๋๊ฑฐ๋ ๊ณ ์ ํ์ง ์์ ํค์ ํจ๊ป ์ฌ์ฉ๋๋ ๊ฒฝ์ฐ ํ์ผ ํฌ์ธํฐ๊ฐ ๋นํจ์จ์ ์ธ ๋ฐฉ์์ผ๋ก ๋ฐ๋ณต์ ์ผ๋ก ์ฌ์ค์ ๋ ์ ์์ต๋๋ค. ๋ํ, READ ๊ฑด๋๋ฐ๊ฑฐ๋ ์กฐ๊ฑด๋ถ๋ก ์ฒ๋ฆฌ๋๋ ๊ฒฝ์ฐ START ์๋ฌด๋ฐ ํจ๊ณผ๊ฐ ์์ด ํผ๋์ค๋ฌ์ด ๊ฒฐ๊ณผ๊ฐ ๋ฐ์ํ ์ ์์ต๋๋ค.
๋ง์ฐฌ๊ฐ์ง๋ก, REWRITE ๋์ฌ๋ ํ์ฌ ์์น์ ๋ ์ฝ๋๋ฅผ ๋์ฒดํ์ง๋ง ์ฑ๊ณต์ ์ธ ๋ ์ฝ๋๊ฐ ์์ฑ๋ ํ์๋ง ์ฌ์ฉํด์ผ ํฉ๋๋ค. READ๊ฒ์ฆ ์์ด ์ฌ์ฉํ๋ฉด ์ค๋ฅ๋ ํ์ผ ๋ฌด๊ฒฐ์ฑ ๋ฌธ์ ๊ฐ ๋ฐ์ํ ์ ์์ต๋๋ค.
์ ์ ๋ถ์์ ์ด๋ฌํ ๋์ฌ๊ฐ ์ํํ ๋งฅ๋ฝ์์ ์ฌ์ฉ๋๋ ๊ฒฝ์ฐ๋ฅผ ๊ฐ์งํ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค. ์๋ฅผ ๋ค์ด, ๋ณด๊ณ ์๋ ๋ค์๊ณผ ๊ฐ์ ๋ด์ฉ์ ๋ณด์ฌ์ค ์ ์์ต๋๋ค. REWRITE ์ผ์นํ๋ ๋ฌธ์ฅ์ด ์์ ๋์ค์ง ์๋ ๊ฒฝ์ฐ READ๋ฐ START ํ์ ์กฐ์น ์์ด ๋ฐ์ํ๋ ์ง์ . ์ด๋ฌํ ๊ฒํ ๋ฅผ ํตํด ๋ชจ๋ ์ ์ด ๊ฒฝ๋ก์์ ํ์ผ ๋์์ด ์์ ์ ์ด๊ณ ์์ธก ๊ฐ๋ฅํ๊ฒ ์ ์ง๋ฉ๋๋ค.
์ค์ฒฉ๋ perform ๊ตฌ์กฐ์์์ ์์์ ํ์ผ I/O
COBOL ํ๋ก๊ทธ๋จ์ด ํ์ฅ๋จ์ ๋ฐ๋ผ ๊ฐ๋ฐ์๋ ํ์ผ ์ ๊ทผ ๋ก์ง์ ์ฌ์ฌ์ฉ ๊ฐ๋ฅํ ๋ฌธ๋จ์ผ๋ก ์ฎ๊ธฐ๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค. ์ด๋ฌํ ๋ฌธ๋จ์ ์ฌ๋ฌ ์ง์ ์์ ํธ์ถ๋๋ฉฐ, ๋๋ก๋ ์ฌ๋ฌ ๊ณ์ธต์ผ๋ก ์ค์ฒฉ๋๊ธฐ๋ ํฉ๋๋ค. ์ด๋ ์ฌ์ฌ์ฉ์ฑ์ ๋์ด๋ ๋ฐ๋ฉด, ํ์ผ์ ์ธ์ ์ด๋ป๊ฒ ์ ๊ทผํ๋์ง ์ถ์ ํ๋ ๋ฐ ์ด๋ ค์์ ์ผ๊ธฐํฉ๋๋ค.
์:
PERFORM PROCESS-BATCH.
PROCESS-BATCH.
PERFORM LOAD-INPUT
PERFORM APPLY-RULES
PERFORM SAVE-RESULTS.
LOAD-INPUT.
READ TRANSACTION-FILE INTO WS-TRANSACTION.
์ด ๊ฒฝ์ฐ READ ๋ฌธ์ฅ์ ๋ฉ์ธ ๋ฃจํ์ ์๊ณ ๋ฌปํ์์ต๋๋ค. LOAD-INPUT, ์ ์ํด ํธ์ถ๋ฉ๋๋ค PROCESS-BATCH. ์ด ํจํด์ด ์ฌ๋ฌ ํ์ผ์ ๊ฑธ์ณ ์ฌ์ฉ๋๋ ๊ฒฝ์ฐ ๋ชจ๋ ์ฝ๊ธฐ๋ฅผ ์ถ์ ํ๋ ๊ฒ์ด ์ด๋ ค์์ง๋๋ค. ํนํ READ ๋ฐ์ดํฐ ๊ฐ์ ๋ฐ๋ผ ์ผ์ด๋ ์๋ ์๊ณ ์ผ์ด๋์ง ์์ ์๋ ์์ต๋๋ค.
์ ์ ๋ถ์ ๋๊ตฌ๋ ํธ์ถ ํธ๋ฆฌ๋ฅผ ๊ตฌ์ถํ๊ณ ๊ฐ์ ์ ์ธ ์ ๊ทผ์ผ์ง๋ผ๋ ํ์ผ ์ ๊ทผ์ด ๋ฐ์ํ๋ ์์น๋ฅผ ๋ณด์ฌ์ค ์ ์์ต๋๋ค. ์ด๋ ์ฑ๋ฅ ๋ฌธ์ ๋ฅผ ์กฐ์ฌํ๊ฑฐ๋ ๋ชจ๋ I/O ์์ ์ด ์๋๋ ๋ก์ง์ ๋ฐ๋ฅด๋์ง ๊ฒ์ฆํ ๋ ์ ์ฉํฉ๋๋ค.
์ค์ฒฉ๋ I/O ๊ฒฝ๋ก๋ฅผ ์ดํดํ๊ณ ๋ฌธ์ํํ๋ฉด ํ์์ ์ค๋ณต์ ์ค์ด๊ณ , ๋ถ์์ฉ์ ํผํ๊ณ , ํ์ผ ์ฒ๋ฆฌ์ ์ผ๊ด์ฑ์ ์ ์งํ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค.
์ด๋ฌํ ๋ชจ๋ ํจํด์๋ ๊ณตํต์ ์ธ ํน์ง์ด ์์ต๋๋ค. ์ ์ง์ ์ผ๋ก ๋ํ๋๋ฉฐ, ์ฆ๊ฐ์ ์ธ ๊ฒฐ๊ณผ ์์ด ๋ํ๋๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค. ํ์ง๋ง ์๊ฐ์ด ์ง๋จ์ ๋ฐ๋ผ ๋ฐํ์, ์ ์ง ๊ด๋ฆฌ ์ฉ์ด์ฑ, ๊ทธ๋ฆฌ๊ณ ๋ช ํ์ฑ์ ์ํฅ์ ๋ฏธ์น ์ ์์ต๋๋ค. ์ ์ ๋ถ์์ ํตํด ์ด๋ฌํ ํจํด์ ํ์ ํ๋ฉด ํ์ ์ฆ์์ด ์๋ ๊ตฌ์กฐ์ ๊ธฐ๋ฐํ์ฌ ์กฐ์ ํ ์ ์์ต๋๋ค.
๋นํจ์จ์ฑ์ ์ํ๊ณผ ๋น์ฉ
์ผ๋ถ ์ฑ๋ฅ ๋ฌธ์ ๋ ์งํ์ ์ง์ฐ์ ํตํด ๋๋ฌ๋๋ ๋ฐ๋ฉด, ๋ค๋ฅธ ๋ฌธ์ ๋ ๋ฐฐ์น ์ผ์ , ์ธํ๋ผ ์ฌ์ฉ ๋๋ ์ฌ์ฉ์ ๊ฒฝํ ์ ๋ฐ์ ๊ฑธ์ณ ๊ทธ ์ํฅ์ด ๋๋ฌ๋๊ธฐ ์ ๊น์ง๋ ๋๋ฌ๋์ง ์์ต๋๋ค. COBOL์์ ๋นํจ์จ์ ์ธ ํ์ผ ์ฒ๋ฆฌ๊ฐ ํญ์ ์์ ํ ์คํจ๋ฅผ ์ด๋ํ๋ ๊ฒ์ ์๋์ง๋ง, ์ฒ๋ฆฌ ์๋ ์ ํ, ์ด์ ๋น์ฉ ์ฆ๊ฐ, ๊ทธ๋ฆฌ๊ณ ์ ์ง ๊ด๋ฆฌ์ ์ด๋ ค์์ ์ผ๊ธฐํ๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค.
์ด ์น์ ์์๋ ๋นํจ์จ์ ์ธ ํ์ผ I/O๋ก ์ธํด ๋ฐ์ํ๋ ๊ฒฐ๊ณผ์ ์ข ๋ฅ์ ์ด๋ฌํ ๋ฌธ์ ๊ฐ ๊ธฐ์ ์ , ์กฐ์ง์ ๋งฅ๋ฝ์์ ์ด๋ป๊ฒ ๋ํ๋๋์ง ๊ฐ๋ตํ๊ฒ ์ค๋ช ํฉ๋๋ค.
๊ท๋ชจ์ ๋ฐ๋ฅธ ์ฑ๋ฅ ํ๋ํฐ
COBOL ํ๋ก๊ทธ๋จ์ ์์ ๋นํจ์จ์ฑ์ ๋ฐ์ดํฐ ์ธํธ๊ฐ ์ ํ์ ์ด๊ฑฐ๋ ์ฝ๋๊ฐ ๊ฐํ์ ์ผ๋ก ์คํ๋๋ ๊ฒฝ์ฐ ๋์ ๋์ง ์์ ์ ์์ต๋๋ค. ๋์ผํ ๋ก์ง์ ์๋ฐฑ๋ง ๊ฐ์ ๋ ์ฝ๋๊ฐ ์๋ ํ์ผ์ ์ ์ฉํ๊ฑฐ๋ ์ผ๊ด ์์ ์ด ๋ฐค์๋๋ก ์ฐ์์ ์ผ๋ก ์คํ๋๋ ๊ฒฝ์ฐ ๊ทธ ์ํฅ์ด ๋์ฑ ๋๋๋ฌ์ง๋๋ค.
์๋ฅผ ๋ค์ด, ๋ณ๋์ ๋ฃจํ๋ฅผ ์ฌ์ฉํ์ฌ VSAM ํ์ผ์ ์ฌ๋ฌ ๋ฒ ์ฝ๋ ํ๋ก๊ทธ๋จ์ ๊ฐ๋ฐ ๋จ๊ณ์์๋ ์คํํ๋ ๋ฐ ๋ช ์ด๋ฐ์ ๊ฑธ๋ฆฌ์ง ์์ ์ ์์ต๋๋ค. ๊ทธ๋ฌ๋ ์ค์ ๋ฐ์ดํฐ ์์ด ๋ง์ ์ด์ ํ๊ฒฝ์์๋ ์ด ์๊ฐ์ด ๋ช ๋ถ ์ด์ ๊ฑธ๋ฆด ์ ์์ต๋๋ค. ์ฌ๊ธฐ์ ์์ญ ๊ฐ์ ์์ ์ด ์์ฐจ์ ์ผ๋ก ์คํ๋๋ค๋ ์ ์ ๊ณฑํ๋ฉด, ์ด์ ์๋ 6์๊ฐ ์์ ์๋ฃ๋์๋ ์ผ๊ด ์ฒ๋ฆฌ ์๊ฐ์ด ๊ฐ์๊ธฐ ์ด๊ณผ๋ ์ ์์ต๋๋ค.
์์ค ์ฝ๋๋ฅผ ๋ถ์ํ์ง ์์ผ๋ฉด ์ด๋ฌํ ์ฑ๋ฅ ์ ํ๋ฅผ ์ง๋จํ๊ธฐ ์ด๋ ต์ต๋๋ค. ํ๋กํ์ผ๋ง์ CPU ์ฌ์ฉ๋์ด๋ ๋์คํฌ ์ ๊ทผ์ ๋ํ๋ผ ์ ์์ง๋ง, ๊ทผ๋ณธ ์์ธ์ ์ข ์ข ๊ตฌ์กฐ์ ์ธ ๋ฌธ์ ์ ๋๋ค. ๋ถํ์ํ ์ฝ๊ธฐ, ๋นํจ์จ์ ์ธ ํ์ผ ์์น ์ง์ , ๋๋ ๋ฐ๋ณต์ ์ธ ์ด๊ธฐ-๋ซ๊ธฐ ์์ ๋ฑ์ด ๊ทธ ์์ธ์ ๋๋ค.
์ ์ ๋ถ์์ ์ด๋ฌํ ํจํด์ด ๋ ํฐ ํ์ด๋ฐ ๋๋ ์ฒ๋ฆฌ๋ ๋ฌธ์ ๋ก ํ๋๋๊ธฐ ์ ์ ํ์ ํ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค. ์ด๋ฌํ ํจํด์ ์กฐ๊ธฐ์ ํ์ ํจ์ผ๋ก์จ ํ์ ์ธํ๋ผ ํ์ฅ ์์ด๋ ๋ฐฐ์น ์์ ์ ์์ ๋ฒ์ ๋ด๋ก ์ ์งํ ์ ์์ต๋๋ค.
์ ์ง ๊ด๋ฆฌ์ฑ ๋ฐ ๊ฐ๋ฐ์ ์ค๋ฒํค๋
๋นํจ์จ์ ์ธ ํ์ผ ์ฒ๋ฆฌ๊ฐ ํฌํจ๋ COBOL ํ๋ก๊ทธ๋จ์ ์ ์ง ๊ด๋ฆฌ์ ๋ ๋ง์ ๋ ธ๋ ฅ์ด ํ์ํ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค. ํ์ผ ์์ ์ด ๋ถ์ฐ๋๊ฑฐ๋, ๋ฐ๋ณต๋๊ฑฐ๋, ์ฌ์ฌ์ฉ๋ ๋ฌธ๋จ์ ๋ฌปํ ์์ผ๋ฉด ๊ฐ๋ฐ์๋ ์ฝ๋์ ๋์ ๋ฐฉ์๊ณผ ๊ทธ ์ด์ ๋ฅผ ์ดํดํ๊ธฐ๊ฐ ๋ ์ด๋ ค์์ง๋๋ค.
๊ฐ๋ฐ์๊ฐ ๋ณด๊ณ ์ ํ์์ ์กฐ์ ํ๊ฑฐ๋ ๊ธฐ์กด ์ฒ๋ฆฌ ๋จ๊ณ์ ํํฐ๋ฅผ ์ถ๊ฐํด์ผ ํ๋ค๊ณ ๊ฐ์ ํด ๋ณด๊ฒ ์ต๋๋ค. ์ฝ๊ธฐ ๋ก์ง์ด ํ ๊ณณ์, ์ฐ๊ธฐ ๋ก์ง์ด ๋ค๋ฅธ ๊ณณ์ ์์ผ๋ฉฐ, ํ์ผ์ด ์ฌ๋ฌ ์ค๊ฐ ํ๋ก์์ ๋ฅผ ํธ์ถํ๋ ๋ฃจํ์์ ์ด๋ฆฌ๊ณ ๋ซํ๋ค๋ฉด, ์๋ฌด๋ฆฌ ์์ ๋ณ๊ฒฝ์ด๋ผ๋ ๊ด๋ จ ์๋ ์ฌ๋ฌ ์น์ ์ ์ถ์ ํด์ผ ํฉ๋๋ค.
์ด๋ก ์ธํด ์ฝ๋ ๊ฒํ , ํ ์คํธ ๋ฐ ๊ฒ์ฆ์ ์์๋๋ ์๊ฐ์ด ๋์ด๋ฉ๋๋ค. ๋ํ, ํนํ ํ์ผ ๋์์ด ์ฝ๊ธฐ ์์๋ ํค ์ฌ์ฉ์ ๋ฏผ๊ฐํ ๊ฒฝ์ฐ ํ๊ท๊ฐ ๋ฐ์ํ ๊ฐ๋ฅ์ฑ๋ ๋์์ง๋๋ค.
์ ์ ๋ถ์์ ์ฌ์ฉํ์ฌ ์ค๋ณต๋ ํ์ผ ์์ ์ด๋ ๋นํ์ค ์ก์ธ์ค ๊ตฌ์กฐ๋ฅผ ์๋ณํจ์ผ๋ก์จ ๊ฐ๋ฐํ์ ํ๋ก๊ทธ๋จ ํ๋ฆ์ ๊ฐ์ํํ๊ณ ์ฅ๊ธฐ์ ์ธ ๋ ธ๋ ฅ์ ์ค์ผ ์ ์์ต๋๋ค. ๊น๋ํ I/O ๊ตฌ์กฐ๋ ์ฑ๋ฅ์ ํฅ์์ํฌ ๋ฟ๋ง ์๋๋ผ ์ ๊ท ๊ฐ๋ฐ์๊ฐ ๋ ์ฝ๊ฒ ์์คํ ์ ์ ์ํ๊ณ ์์ ๊ฐ ์๊ฒ ์์ ํ ์ ์๋๋ก ๋์์ค๋๋ค.
์ด์ ๋ฐ ๋ฐฐ์น ๋ฐํ์ ์ํฅ
๋ฉ์ธํ๋ ์ ํ๊ฒฝ์์ ๋ฐฐ์น ์์ ์ ์ผ๋ฐ์ ์ผ๋ก ๊ณ ์ ๋ ์๊ฐ ์ฌ๋กฏ์ ๊ฐ์ง ์ฒด์ธ์ผ๋ก ์์ฝ๋ฉ๋๋ค. ๊ฐ ์์ ์ ๋ค์ ์์ ์ด ์์๋ ์ ์๋๋ก ํด๋น ์๊ฐ ๋ด์ ์๋ฃ๋์ด์ผ ํฉ๋๋ค. ํ ํ๋ก๊ทธ๋จ์ด ์์๋ณด๋ค ์ค๋ ์คํ๋๋ฉด ์ดํ ๋ชจ๋ ์์ ์ด ์ง์ฐ๋ฉ๋๋ค. ๊ฒฝ์ฐ์ ๋ฐ๋ผ ํ์ ์์ ์ด ๊ฑด๋๋ฐ์ด์ง๊ฑฐ๋, ๊ฒฝ๊ณ ๊ฐ ๋ฐ์ํ๊ฑฐ๋, SLA๊ฐ ๋๋ฝ๋๋ ๊ฒฝ์ฐ๊ฐ ๋ฐ์ํฉ๋๋ค.
์์ธ์ด ๋นํจ์จ์ ์ธ ํ์ผ ์ ๊ทผ์ธ ๊ฒฝ์ฐ, ์ง์ฐ์ ์ผ๊ด์ ์ผ ์ ์์ง๋ง ์์ธ์ ํ์ ํ๊ธฐ ์ด๋ ค์ธ ์ ์์ต๋๋ค. ํ๋ก๊ทธ๋จ์ด ๋งค์ผ ํ์ํ ๊ฒ๋ณด๋ค 10๋ถ ๋ ๊ฑธ๋ฆด ์ ์์ผ๋ฉฐ, ์ด๋ ๋งค์ฃผ ๋ช ์๊ฐ์ฉ ๋ญ๋น๋๋ ์ฒ๋ฆฌ ์๊ฐ์ ์๋ฏธํฉ๋๋ค.
์ด๋ ๋ฆฌ์์ค ์ฌ์ฉ๋์๋ ์ํฅ์ ๋ฏธ์นฉ๋๋ค. ๋นํจ์จ์ ์ธ ํ์ผ ๋ฃจํ๋ I/O ์ฆ๊ฐ๋ก ์ด์ด์ ธ ์์คํ ์ด ์๊ณ๊ฐ์ ๊ทผ์ ํ ์ ์์ต๋๋ค. ์ฝ๋๊ฐ ์๋ํ๋๋ผ๋ ํ์ ์ด์์ผ๋ก ๋์คํฌ ํ๋๊ณผ CPU ์ฌ์ดํด์ ์๋ชจํฉ๋๋ค. ํด๋ผ์ฐ๋ ๋๋ ํ์ด๋ธ๋ฆฌ๋ ํ๊ฒฝ์์๋ ์ด๋ ์ธํ๋ผ ๋น์ฉ ์ฆ๊ฐ๋ก ์ด์ด์ง๋๋ค.
์ ์ ๋ถ์์ ํตํด ์์ ๊ณํ์์ ์ง์ํ์ ๋นํจ์จ์ ์ธ I/O๋ฅผ ๋ณด์ด๋ COBOL ํ๋ก๊ทธ๋จ์ ํ์ ํ๊ณ ๊ฒํ ์ฐ์ ์์๋ฅผ ์ ํ ์ ์์ต๋๋ค. ๋ง์ ๊ฒฝ์ฐ, ์์ ๋ณ๊ฒฝ๋ง์ผ๋ก๋ ๊ท์คํ ์๊ฐ์ ํ๋ณดํ๊ณ ์ผ์ ์ ๋ค์ ์ ์ํํ ์ ์์ต๋๋ค.
๊ฐ์ฌ ๊ฐ๋ฅ์ฑ ๋ฐ ๊ท์ ์ค์ ๊ณ ๋ ค ์ฌํญ
๋ง์ COBOL ์ ํ๋ฆฌ์ผ์ด์ ์ ์ฌ๋ฌด ๋ณด๊ณ , ๋ฐ์ดํฐ ์ ํ์ฑ, ๊ท์ ์ค์ ๋ฑ ๊ฐ์ฌ ๋์์ ๋๋ค. ์ด๋ฌํ ๊ฒฝ์ฐ ๋ฐ์ดํฐ๊ฐ ์ด๋ป๊ฒ ์ฝ๊ณ , ์ฒ๋ฆฌ๋๊ณ , ๊ธฐ๋ก๋๋์ง ์ดํดํ๋ ๊ฒ์ด ์ค์ํฉ๋๋ค. ๋นํจ์จ์ ์ธ ํ์ผ ์ฒ๋ฆฌ๋ ํนํ ๋ ์ฝ๋ ์ ๋ฐ์ดํธ๋ ์ฐ๊ธฐ๊ฐ ๋ณต์กํ ์ ์ด ๊ฒฝ๋ก์ ์จ๊ฒจ์ง ์กฐ๊ฑด ๋ ผ๋ฆฌ์ ์์กดํ๋ ๊ฒฝ์ฐ ์ด๋ฌํ ๊ฐ์ฌ๋ฅผ ์ด๋ ต๊ฒ ๋ง๋ค ์ ์์ต๋๋ค.
์๋ฅผ ๋ค์ด, REWRITE ์์
์ด ํน์ ํ๋๊ทธ ํ์์๋ง ์ํ๋๊ณ ํ์ผ ํฌ์ธํฐ๋ฅผ ์ฌ์ค์ ํ๋ ๋ก์ง์ด ์ ํ๋๋ ๊ฒฝ์ฐ, ๊ฐ์ฌ์๋ ๋ชจ๋ ๋ ์ฝ๋๊ฐ ์ผ๊ด๋๊ฒ ์ฒ๋ฆฌ๋์๋์ง ์ง๋ฌธํ ์ ์์ต๋๋ค. ๋ช
ํํ ๋ฌธ์ํ๋ ์ถ์ ์ฑ์ด ์์ผ๋ฉด ์ด๋ฌํ ์ง๋ฌธ์ ๋ตํ๋ ๋ฐ ์๊ฐ์ด ๊ฑธ๋ฆฝ๋๋ค.
์์ ํ์ผ, ๋ถํ ์ฒ๋ฆฌ ๋๋ ๋ณ๋ ฌ ๋ถ๊ธฐ๋ฅผ ํฌํจํ๋ ํ๋ก๊ทธ๋จ๋ ์์ ์ฑ์ ๊ฒํ ํด์ผ ํฉ๋๋ค. ๊ธฐ๋ก์ด ๋๋ฝ๋๊ฑฐ๋ ๋ ๋ฒ ์ด์ ๊ธฐ๋ก๋๋ ๊ฒฝ์ฐ, ์๋์น ์๊ฒ๋ผ๋ ๋ณด๊ณ ๋ถ์ผ์น๊ฐ ๋ฐ์ํ ์ ์์ต๋๋ค.
์ ์ ๋ถ์์ ํ์ผ ์ ๊ทผ์ ๊ฐ์ํํ์ฌ ๊ฐ์ฌ ์ค๋น๋ฅผ ์ง์ํฉ๋๋ค. ๋๊ตฌ๋ฅผ ํตํด ์ฝ๊ธฐ, ์ฐ๊ธฐ, ์ ๋ฐ์ดํธ๊ฐ ๋ฐ์ํ ์์น์ ์กฐ๊ฑด์ ์ ํํ๊ฒ ํ์ ํ ์ ์์ต๋๋ค. ์ด๋ฅผ ํตํด ๊ท์ ์ค์ ํ์ ํ๋ก๊ทธ๋จ ์ ๋ฐ์ ๋ฐ์ดํฐ ํ๋ฆ์ ์ถ์ ํ๊ณ ์ฒ๋ฆฌ ๊ท์น์ด ์ผ๊ด๋๊ฒ ๊ตฌํ๋์๋์ง ๊ฒ์ฆํ ์ ์์ต๋๋ค.
๊ตฌ์กฐ์ ์ผ๋ก ๊น๋ํ๊ณ ํจ์จ์ ์ธ ํ๋ก๊ทธ๋จ์ ์ค๋ช ํ๊ธฐ ์ฝ๊ณ , ๋ฌธ์ํํ๊ธฐ ์ฌ์ฐ๋ฉฐ, ๊ฒํ ์ค์ ์ง๋ฌธ์ด ์ ๊ธฐ๋ ๊ฐ๋ฅ์ฑ์ด ์ ์ต๋๋ค.
์ด๋ฌํ ์ํ์ ๊ณ ๋ คํ๋ฉด ํ์ผ I/O ๋นํจ์จ์ฑ์ ๋จ์ํ ์ฑ๋ฅ ๋ฌธ์ ๋ง์ด ์๋๋ผ๋ ์ ์ด ๋ถ๋ช ํด์ง๋๋ค. ์ด๋ ์์คํ ์ง์ ๋ฐฉ์, ๊ฐ๋ฐ์์ ์์ ๋ฐฉ์, ๊ทธ๋ฆฌ๊ณ ์กฐ์ง์ ๋ฐ์ดํฐ ์ ๋ขฐ๋ ์ ์ง ๋ฐฉ์์ ์ํฅ์ ๋ฏธ์นฉ๋๋ค. ์ ์ ๋ถ์์ ํตํด ์ด๋ฌํ ํจํด์ ํ์ ํ๋ฉด ์ด๋ฌํ ๋ฌธ์ ๋ฅผ ํ๋ฉดํํ์ฌ ์ง์ ํด๊ฒฐํ ์ ์์ต๋๋ค.
์ ์ ๋ถ์์ด ์ด๋ฌํ ํจํด์ ์๋ณํ๋ ๋ฐฉ๋ฒ
COBOL ์์ค ์ฝ๋๋ฅผ ํ ์ค์ฉ ์ฝ์ด ๋ณด๋ฉด ํ๋ฉด์ ์ธ ๋ก์ง์ ๋๋ฌ๋์ง๋ง, ํ๋ก๊ทธ๋จ ์ ์ฒด์์ ํ์ผ์ ์ด๋ป๊ฒ ์ ๊ทผํ๋์ง ์ ์ฒด์ ์ธ ํ๋ฆ์ ํ์ ํ๊ธฐ๋ ์ด๋ ต์ต๋๋ค. ์ ์ ๋ถ์์ ์ฝ๋๋ฅผ ํ ์คํธ๋ก ์ฝ๋ ๋ฐฉ์์์ ๊ตฌ์กฐํ๋ ๋์์ผ๋ก ์ดํดํ๋ ๋ฐฉ์์ผ๋ก ๊ด์ ์ ์ ํํฉ๋๋ค. ์ ์ ํ ์ ๊ทผ ๋ฐฉ์์ ์ฌ์ฉํ๋ฉด ๊ฐ๋ฐ ๋ฐ ํ๋ํ ํ์ ์์ฒ ์ค์ ๊ฑธ์ณ, ์ฌ์ง์ด ๋๊ท๋ชจ ์์๋ ์ฝ๋๋ฒ ์ด์ค์์๋ ๋นํจ์จ์ ์ธ ๋ถ๋ถ์ ์ฐพ์๋ผ ์ ์์ต๋๋ค.
์ด ์น์ ์์๋ ์ ์ ๋ถ์ ๋๊ตฌ๊ฐ ์ฝ๋์์ ์๋ฏธ๋ฅผ ์ถ์ถํ์ฌ ์ค๋ณต๋๊ฑฐ๋ ์ผ๊ด๋์ง ์์ ํ์ผ I/O ์ฌ์ฉ์ ํ๋ฉดํํ๋ ๋ฐฉ๋ฒ์ ์ค์ ์ ๋๊ณ ์ด๋ฅผ ๊ฐ๋ฅํ๊ฒ ํ๋ ํต์ฌ ๊ธฐ์ ์ ์ดํด๋ด ๋๋ค.
๋ฐ์ดํฐ ํ๋ฆ ๋ฐ ์ ์ด ํ๋ฆ ๊ทธ๋ํ ์์ฑ
์ ์ ๋ถ์์ ํต์ฌ์ ์ ์ฐจ์ ์ฝ๋๋ฅผ ์ ์ด ํ๋ฆ ๊ทธ๋ํ(CFG) ๋ฐ ๋ฐ์ดํฐ ํ๋ฆ ๊ทธ๋ํ(DFG)์ ๊ฐ์ ์ถ์์ ์ธ ํํ์ผ๋ก ๋ณํํ๋ ๊ฒ์ ๋๋ค. ์ด๋ฌํ ๊ตฌ์กฐ๋ฅผ ํตํด ๋๊ตฌ๋ ํ๋ก๊ทธ๋จ์ด ๋ฐ์ดํฐ๋ฅผ ์ด๋ป๊ฒ ์ด๋ํ๊ณ ์คํ ๊ฒฝ๋ก๊ฐ ์ด๋ป๊ฒ ๊ตฌ์ฑ๋๋์ง ์ดํดํ ์ ์์ต๋๋ค.
์ ์ด ํ๋ฆ ๊ทธ๋ํ๋ ํ ๋ช ๋ น๋ฌธ์ด๋ ๋ธ๋ก์์ ๋ค๋ฅธ ๋ช ๋ น๋ฌธ์ด๋ ๋ธ๋ก์ผ๋ก์ ์คํ ํ๋ฆ์ ๋งคํํฉ๋๋ค. ์ด๋ ์ฝ๋ ์คํ ๋น๋์ ์์์ ์ํฅ์ ๋ฏธ์น๋ ๋ถ๊ธฐ, ๋ฃจํ, ์กฐ๊ฑด ๊ฒฝ๋ก๋ฅผ ์๋ณํฉ๋๋ค. ์ด๋ ํนํ ์ค์ฒฉ๋ ํ์ผ ์ก์ธ์ค ํจํด์ ๊ฐ์งํ๊ฑฐ๋ ์๋์น ์๊ฒ ๋ฐ๋ณต ์ฝ๊ธฐ๋ฅผ ์ ๋ฐํ ์ ์๋ ๊ฒฝ๋ก๋ฅผ ์๋ณํ๋ ๋ฐ ์ค์ํฉ๋๋ค.
๋ฐ์ดํฐ ํ๋ฆ ๊ทธ๋ํ๋ ๊ฐ์ด ํ ๋น, ์ ๋ฌ ๋ฐ ์ฌ์ฉ๋๋ ๋ฐฉ์์ ๋ณด์ฌ์ค๋๋ค. COBOL์์ ์ด๋ ๋ ์ฝ๋ ํค, ํ๋๊ทธ ๋ฑ์ ํฌํจํ๋ ๋ณ์๋ฅผ ์ถ์ ํ๋ ๋ฐ ํนํ ์ ์ฉํฉ๋๋ค. AT END ์กฐ๊ฑด ๋๋ ์์
์ ์ฅ ํ๋ ์ฌ์ฉ READ WRITE ์์
.
์ ์ ๋ถ์ ๋๊ตฌ๋ ์ด๋ฌํ ๊ทธ๋ํ๋ฅผ ์์ฑํจ์ผ๋ก์จ ํ๋ก๊ทธ๋จ์ ์คํํ์ง ์๊ณ ๋ ํ๋ก๊ทธ๋จ์ ๋์์ ์๋ฎฌ๋ ์ด์ ํ ์ ์์ต๋๋ค. ์ด๋ ๋์ผํ ์คํ ๋ถ๊ธฐ์์ ํ์ผ์ ์ฌ๋ฌ ๋ฒ ์ฝ์๋์ง, ๋๋ ๋ณ์๊ฐ ์ฌ๋ฌ ์ฝ๋ ์น์ ์์ ์ผ๊ด๋์ง ์์ ๋ฐฉ์์ผ๋ก ์ฌ์ฌ์ฉ๋๋์ง ํ์ ํ๋ ๋ฐ ์ ์ฉํฉ๋๋ค.
๊ณ ๋๋ก ๋ชจ๋ํ๋ ์ฝ๋๋ฒ ์ด์ค์์๋ ์ด๋ฌํ ๊ทธ๋ํ๋ ํ์ผ ์ฌ์ฉ ๋ฐ ์ ์ด ๋ ผ๋ฆฌ์ ๋ํ ์์ ํ ๊ทธ๋ฆผ์ ํ์ฑํ๋ ๋ฐ ๋์์ด ๋๋ฏ๋ก ๊ณ ์์ค ํจํด ๊ฐ์ง์ ๊ธฐ๋ฐ์ด ๋ฉ๋๋ค.
๋ฐ๋ณต๋๋ I/O ์์ ๊ฐ์ง
ํ๋ก๊ทธ๋จ ๊ตฌ์กฐ๊ฐ ๋งคํ๋๋ฉด ๋ค์ ๋จ๊ณ๋ ๋นํจ์จ์ ์ด๊ฑฐ๋ ๋ฐ๋ณต์ ์ธ ํ์ผ ์์ ์ ๋ํ๋ด๋ ํจํด์ ๊ฐ์งํ๋ ๊ฒ์ ๋๋ค. ์ฌ๊ธฐ์๋ ๋จ์ผ ํ์ผ์ด ์ ์ฌํ ๋ ผ๋ฆฌ ๋ถ๊ธฐ์์ ์ฌ๋ฌ ๋ฒ ์ด๋ฆฌ๊ฑฐ๋, ์ฝํ๊ฑฐ๋, ๋ค์ ์์ฑ๋๋ ๊ฒฝ์ฐ๊ฐ ํฌํจ๋ฉ๋๋ค.
์๋ฅผ ๋ค์ด, ํ์ผ์ด ๋ฃจํ ์ธ๋ถ๊ฐ ์๋ ๋ฃจํ ๋ด๋ถ์์ ์ด๋ฆฐ ๊ฒฝ์ฐ ์ ์ ๋ถ์์ ๋ฐ๋ณต๋๋ ํ์ผ์ ํ๋๊ทธ๋ก ํ์ํ ์ ์์ต๋๋ค. OPEN ํจ์จ์ฑ ๋ฌธ์ ๋ก ์ง์ ํฉ๋๋ค. ๋ง์ฐฌ๊ฐ์ง๋ก, READ ์ค์ฒฉ๋ ์กฐ๊ฑด ๋ธ๋ก์์ ์ฐ์ฐ์ด ์ฌ๋ฌ ๋ฒ ์คํ๋๋๋ฐ, ๋ฒํผ๋ง๋ ๋
ผ๋ฆฌ๋ก ๋์ฒดํ ์ ์์ผ๋ฉฐ, ํจํด์ ๊ฐ์กฐ ํ์ํ์ฌ ๊ฒํ ํ ์ ์์ต๋๋ค.
๋ฐ๋ณต์ ์ธ ์ฝ๊ธฐ๋ ๊ณตํต๋ ์นดํผ๋ถ์ ๊ณต์ ํ๊ฑฐ๋ ๋์ผํ ํ์ ํ๋ก๊ทธ๋จ์ ํธ์ถํ๋ ํ๋ก๊ทธ๋จ ๊ฐ์๋ ๋ฐ์ํ ์ ์์ต๋๋ค. ์ ์ ๋ถ์์ ์ด๋ฌํ ์ฐธ์กฐ๋ฅผ ํ๋ก๊ทธ๋จ ๊ฒฝ๊ณ๋ฅผ ๋์ด ์ฐ๊ฒฐํจ์ผ๋ก์จ ์๋ ๊ฒํ ๋ง์ผ๋ก๋ ์ป๊ธฐ ์ด๋ ค์ด ํ๋ก๊ทธ๋จ ๊ฐ ํต์ฐฐ๋ ฅ์ ์ ๊ณตํฉ๋๋ค.
์ผ๋ถ ๋๊ตฌ๋ ๋ค์๊ณผ ๊ฐ์ ์ธก์ ํญ๋ชฉ๋ ์ถ์ ํฉ๋๋ค.
- ์ด ์
READ,WRITE,REWRITE,OPEN๊ธ๋ ๋ฐ์ผCLOSEํ์ผ๋น ์์ - ๊ฐ ํ์ผ์ ์ํฅ์ ๋ฏธ์น๋ ๊ณ ์ ํ ์ ์ด ๊ฒฝ๋ก์ ์
- ์ก์ธ์ค ํจํด์ด ์์ฐจ์ , ์ธ๋ฑ์ฑ ๋๋ ํผํฉ์ธ์ง ์ฌ๋ถ
์ด๋ฌํ ์ ๋์ ์งํ๋ฅผ ํตํด ํ์ ํนํ ๋๊ท๋ชจ ํฌํธํด๋ฆฌ์ค๋ฅผ ๋ค๋ฃฐ ๋ ์ด๋ค ํ๋ก๊ทธ๋จ์ด๋ ๋ชจ๋์ ๋จผ์ ๊ฒํ ํด์ผ ํ ์ง ์ฐ์ ์์๋ฅผ ์ ํ ์ ์์ต๋๋ค.
๋ชฉํ๋ ๋ฐ๋ณต๋๋ ํ์ผ ์ ๊ทผ์ ๋ชจ๋ ์์ ๋ ๊ฒ์ด ์๋๋ผ, ์ด๋์์ ๊ฐ์น๋ฅผ ๋ํ๊ณ ์ด๋์์ ๋ถํ์ํ ๋ถํ๋ฅผ ์ ๋ฐํ๋์ง ํ์ ํ๋ ๊ฒ์ ๋๋ค.
์ํฐํจํด์ ๋ํ ํจํด ๋งค์นญ
๋นํจ์จ์ ์ธ ํ์ผ ์ฒ๋ฆฌ ๊ดํ ์ค ์๋น์๋ ๋์ ๋๋ ๋ฒ์ฃผ์ ์ํฉ๋๋ค. ์๊ฐ์ด ์ง๋จ์ ๋ฐ๋ผ ์ ์ ๋ถ์ ๋๊ตฌ๋ ์ด๋ฌํ ์ํฐํจํด๊ณผ ์ผ์นํ๋ ํจํด ๋ผ์ด๋ธ๋ฌ๋ฆฌ๋ฅผ ๊ฐ๋ฐํ๊ณ ๊ฒ์ฌ ์ค์ ์๋์ผ๋ก ํ์ํฉ๋๋ค.
์ด๋ฌํ ํจํด์ ์๋ ๋ค์๊ณผ ๊ฐ์ต๋๋ค.
- ํ ๋ฒ์ ํ๋ก๊ทธ๋จ ์คํ์์ ๋์ผํ ํ์ผ์ ์ฌ๋ฌ ๋ฒ ์ด๊ณ ๋ซ๊ธฐ
- ์ฌ์ฉ
START๋ค์READํค๊ฐ ๋ณ๊ฒฝ๋์ง ์๋ ๋ฃจํ ๋ด์์ - ์ํํ๋ ๋ฌธ๋จ ํธ์ถ
READํ์ํ ์ปจํ ์คํธ๋ฅผ ์ ๋ฌํ์ง ์๊ณ ์์ - ์ฌ๋ฌ ๊ฐ์ ์์ฐจ์ ์ํ
READ๋์ผํ ๋ฐ์ดํฐ์ ๋ํด ํ๋ก๊ทธ๋จ์ ๋ค๋ฅธ ์น์ ์ ์๋ s
์ด๋ฌํ ํจํด์ ๊ตฌ๋ฌธ๋ง์ผ๋ก ํ๋๊ทธ๊ฐ ์ง์ ๋๋ ๊ฒ์ด ์๋๋ผ, ์์ ์ค๋ช ํ ์ ์ด ๋ฐ ๋ฐ์ดํฐ ํ๋ฆ ๊ณ์ธต ์ ์ฒด์์ ์ผ์นํฉ๋๋ค. ์ด๋ฅผ ํตํด ํนํ ํ๋ก๊ทธ๋จ ๋ก์ง์ด ์ฌ๋ฌ ๊ณ์ธต, ํฌํจ ํ์ผ ๋๋ ๊ณต์ ๊ตฌ์ฑ ์์์ ๋ถ์ฐ๋์ด ์๋ ๊ฒฝ์ฐ ํ์ง ์ฑ๋ฅ์ด ๋์ฑ ๊ฐ๋ ฅํด์ง๋๋ค.
์ต์ ๋๊ตฌ์์ ์ด๋ฌํ ํํ์ ํจํด ๋งค์นญ์๋ ์ข
์ข
์ํฉ ์ธ์ ๊ฒ์ฌ๊ฐ ํฌํจ๋ฉ๋๋ค. ์๋ฅผ ๋ค์ด, REWRITE ์์
์ ์ด์ ์์
์ด ์ํํ ๊ฒ์ผ๋ก ๊ฐ์ฃผ๋ ์ ์์ต๋๋ค. READ ์กฐ๊ฑด๋ถ์ด๊ฑฐ๋ ๋์ผํ ๋ ์ฝ๋๊ฐ ๋ฃจํ์์ ๋ ๋ฒ ์ด์ ๊ธฐ๋ก๋๋ ๊ฒฝ์ฐ์
๋๋ค. ์ด๋ฌํ ์์ค์ ๋ถ์์ ๋
ธ์ด์ฆ๋ฅผ ์ค์ด๊ณ ์ฑ๋ฅ์ด๋ ๋์์ ์ํฅ์ ๋ฏธ์น ๊ฐ๋ฅ์ฑ์ด ์๋ ์ฌ๋ก์ ์ง์คํ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค.
์ํฐํจํด์ ๋ฌธ์ํํ๋ ๊ฒ์ ํฅํ ๊ฐ๋ฐ ๋ฐฉํฅ์ ์ ์ํ๋ ๋ฐ์๋ ๋์์ด ๋ฉ๋๋ค. ํ์ด ํผํด์ผ ํ ์ฌํญ์ ์์๋ฅผ ํ์ธํ ์ ์์ ๋, ์ผ๊ด๋๊ณ ํจ์จ์ ์ธ ๊ดํ์ ์ฑํํ ๊ฐ๋ฅ์ฑ์ด ๋์์ง๋๋ค.
๋นํจ์จ์ ์ธ ํ์ผ ์ก์ธ์ค ์ํ์ค ์๊ฐํ
์ฝ๋๋ง์ผ๋ก๋ ์ ์ฒด ์ํฉ์ ํ์ ํ๊ธฐ ์ด๋ ค์ธ ์ ์์ต๋๋ค. ํนํ ๋ก์ง์ด ์ฌ๋ฌ ๋ชจ๋์ ๋ถ์ฐ๋ ๋๊ท๋ชจ COBOL ์ ํ๋ฆฌ์ผ์ด์ ์ ๊ฒฝ์ฐ ๋์ฑ ๊ทธ๋ ์ต๋๋ค. ์๊ฐํ๋ ๊ฐ๋ฐ์, ๋ถ์๊ฐ, ๊ธฐํ์๊ฐ ๋น ๋ฅด๊ฒ ํด์ํ ์ ์๋ ๋ฐฉ์์ผ๋ก ํ์ผ ์ฌ์ฉ ํจํด์ ์ ์ํ์ฌ ์ด๋ฌํ ๊ฐ๊ทน์ ๋ฉ์ฐ๋ ๋ฐ ๋์์ด ๋ฉ๋๋ค.
์ ์ ๋ถ์ ๋๊ตฌ์ ์๊ฐํ๋ ๋ค์๊ณผ ๊ฐ์ ํํ๋ฅผ ์ทจํ ์ ์์ต๋๋ค.
- ์ ์ด ๊ตฌ์กฐ ๋ด์์ ํ์ผ ์์ ์ด ์ด๋ป๊ฒ ๋ฐฐ์ด๋๋์ง ๋ณด์ฌ์ฃผ๋ ํ๋ฆ๋
- ์ฌ๋ฌ ํ๋ก๊ทธ๋จ์ด ํ๋์ ๋ฐ์ดํฐ ์ธํธ๋ฅผ ๋ค๋ฃฐ ๋ ์ ์ฉํ ํ์ผ-ํ๋ก๊ทธ๋จ ๊ด๊ณ ๋ค์ด์ด๊ทธ๋จ
- ํน์ ํ์ผ์ ๋ํ ์์ ์ ๋น๋๋ ๊ฐ๋๋ฅผ ๋ํ๋ด๋ ํํธ๋งต
- ํ์ผ ์ฝ๊ธฐ ๋ฐ ์ฐ๊ธฐ๊ฐ ๋ฐ์ํ๋ ์์น์ ์คํ ๋น๋๋ฅผ ๋ณด์ฌ์ฃผ๋ ์ค ์ฃผ์
์๋ฅผ ๋ค์ด, ์ด๋ค ๋๊ตฌ๋ ํน์ QSAM ํ์ผ์ด ์ฌ์ฏ ๊ฐ์ ๋ค๋ฅธ ํ๋ก๊ทธ๋จ์์ ์ด๋ฆฌ๊ณ ์์ฐจ ๋ถ๊ธฐ์ ์กฐ๊ฑด ๋ถ๊ธฐ ๋ชจ๋์์ ์ฝํ๋ ๊ฒ์ ๋ณด์ฌ์ฃผ๋ ๋ค์ด์ด๊ทธ๋จ์ ์์ฑํ ์ ์์ต๋๋ค. ์ด๋ ํด๋น ๋ก์ง์ ํ์คํํ๊ฑฐ๋ ๋ฆฌํฉํ ๋งํ ๊ธฐํ๋ฅผ ๋ํ๋ผ ์ ์์ต๋๋ค.
๋ ๋ค๋ฅธ ์๊ฐํ๋ ๊ฒฝ๋ก๋ฅผ ์ถ์ ํ ์ ์์ต๋๋ค. READ ์ค์ฒฉ๋ ์ฒด์ธ์ ๊ฑธ์น ์์
PERFORM ๋ธ๋ก์ ํตํด ์ผ๋ง๋ ๊น์ด ๋ด์ฅ๋์ด ์๊ณ ์ผ๋ง๋ ์์ฃผ ํธ์ถ๋๋์ง ๋ช
ํํ๊ฒ ์ ์ ์์ต๋๋ค.
์ด๋ฌํ ๋ทฐ๋ ์ดํด๊ด๊ณ์๊ฐ COBOL ๊ตฌ๋ฌธ์ ์ฝ์ง ์๋๋ผ๋ ๊ธฐ์ ํ๊ฒฝ์ ๋ ์ฝ๊ฒ ํด์ํ ์ ์๋๋ก ํด์ค๋๋ค. ๋ํ, ๊ณํ, ํ๋ํ ๋๋ ์ฑ๋ฅ ํ๋ ์์ ์ค์ ํ์ด ๊ฒฐ๊ณผ๋ฅผ ๊ณต์ ํ๋ ๋ฐ์๋ ๋์์ด ๋ฉ๋๋ค.
์ด๋ฌํ ํ์ง ๋ฐฉ๋ฒ์ ํตํฉํ๋ฉด COBOL ํ๋ก๊ทธ๋จ์ด ํ์ผ์ ๊ด๋ฆฌํ๋ ๋ฐฉ์์ ๋์ฑ ์๋ฒฝํ๊ฒ ํ์ ํ ์ ์์ต๋๋ค. ๋ช ํํ ๊ทธ๋ํ, ์ธ์ ๊ฐ๋ฅํ ํจํด, ์๊ฐ์ ์์ฝ์ ํตํด ์ ์ ๋ถ์์ ๋จ์ํ ์ฝ๋ ์ค์บ๋์ ๋์ด ๋ ๊ฑฐ์ ์ ํ๋ฆฌ์ผ์ด์ ์ ๊ตฌ์กฐ๋ฅผ ์ดํดํ๊ณ ๊ฐ์ ํ๋ ๋๊ตฌ๊ฐ ๋ฉ๋๋ค.
์ ์ฉ SMART TS XL COBOL ํ์ผ ์ฒ๋ฆฌ๋ฅผ ์ต์ ํํ๋ ค๋ฉด
๋นํจ์จ์ฑ์ ํ์ ํ๋ ๊ฒ๋ ์ค์ํ์ง๋ง, ๊ทธ ์ง์์ ์คํ์ผ๋ก ์ฎ๊ธฐ๋ ๊ฒ์ด ๊ฐ์ ์ผ๋ก ์ด์ด์ง๋๋ค. SMART TS XL COBOL ์ ํ๋ฆฌ์ผ์ด์ ์ ํ๊ฒํ ๋ ์ ์ ๋ถ์์ ์ ์ฉํ์ฌ ํ์ด ๊ฐ์์ฑ์์ ํด๊ฒฐ๋ก ๋์๊ฐ ์ ์๋๋ก ์ง์ํฉ๋๋ค. ํนํ ํ์ผ I/O ๊ตฌ์กฐ, ์คํ ๋ ผ๋ฆฌ, ๋ฐ์ดํฐ ์ด๋์ ์ค์ ์ ๋ก๋๋ค.
์ด ์น์ ์์๋ ๋ฐฉ๋ฒ์ ๋ํด ์ค๋ช ํฉ๋๋ค. SMART TS XL ๋นํจ์จ์ ์ธ ํ์ผ ์ฒ๋ฆฌ๋ฅผ ๊ฐ์งํ๊ณ , ์ผ๋ฐ์ ์ธ ์ํฌํ๋ก์ฐ๊ฐ ์ด๋ค ๋ชจ์ต์ธ์ง, ๊ทธ๋ฆฌ๊ณ ์ด๋ฅผ ํตํด ์ป์ ํต์ฐฐ๋ ฅ์ ๋ฆฌํฉํ ๋ง, ๋ฌธ์ํ ๋๋ ๋ณด๋ค ๊ด๋ฒ์ํ ํ๋ํ ๋ ธ๋ ฅ์ ์ง์ํ๋ ๋ฐ ์ด๋ป๊ฒ ์ฌ์ฉํ ์ ์๋์ง ์์๋ด ๋๋ค.
๋ฐฉ๋ฒ SMART TS XL ํ์ผ I/O ๋นํจ์จ์ฑ์ ๊ฐ์งํฉ๋๋ค
SMART TS XL ์์ค ์ฝ๋๋ฅผ ๋ถ์ํ๊ณ ํ๋ก๊ทธ๋จ ๊ตฌ์กฐ, ๋ฐ์ดํฐ ์ข ์์ฑ ๋ฐ ์ ์ด ํ๋ฆ์ ๋ํ ํฌ๊ด์ ์ธ ๋ด๋ถ ๋ชจ๋ธ์ ์์ฑํ์ฌ COBOL ํ๋ก๊ทธ๋จ์ ๋ถ์ํฉ๋๋ค. ์ฌ๊ธฐ์๋ ๋ค์ ์ฌํญ์ด ํฌํจ๋ฉ๋๋ค.
- ๋ค์๊ณผ ๊ฐ์ ํ์ผ ๋์ฌ์ ๋ชจ๋ ๋ฐ์
READ,WRITE,REWRITE,OPEN,CLOSE๊ธ๋ ๋ฐ์ผSTART - ์ด๋ฌํ ์์ ์ด ์คํ๋๋ ์์ ๋ฐ ์กฐ๊ฑด
- ์์ ์ด ์ค์ฒฉ, ๋ฐ๋ณต ๋๋ ์กฐ๊ฑด๋ถ์ธ์ง ์ฌ๋ถ๋ฅผ ํฌํจํ์ฌ ํ์ผ์ด ์ก์ธ์ค๋๋ ์ปจํ ์คํธ
ํ์ผ ์ฒ๋ฆฌ๋ฅผ ๋ถ์ํ ๋, SMART TS XL ๋ค์๊ณผ ๊ฐ์ ์์ญ์ ๊ฐ์กฐํฉ๋๋ค.
- ์ฌ๋ฌ ์ ์ด ๊ฒฝ๋ก์ ๊ฑธ์ณ ๋์ผํ ํ์ผ์์ ๋ฐ๋ณต ์ฝ๊ธฐ
- ๋์ผํ ์คํ ์ปจํ ์คํธ์์ ๋ ๋ฒ ์ด์ ์ด๋ฆฌ๊ฑฐ๋ ๋ซํ ํ์ผ
- ๊ธฐ์ ๋ถ์ฑ๋ฅผ ๋ํ๋ผ ์ ์๋ ์ฌ์ฉ๋์ง ์๋ ํ์ผ ์ ์
- ๋ถ์ ์ ํ ์ฌ์ฉ
REWRITE๋งค์นญ ์์ดREAD
๊ฐ ๊ฒฐ๊ณผ๋ ์ฝ๋ ์์ค์ ๋งฅ๋ฝ๊ณผ ์๊ฐ์ ๋ค์ด์ด๊ทธ๋จ์ผ๋ก ๋ท๋ฐ์นจ๋์ด ํด๋น ๋์์ด ๋ฐ์ํ๋ ์์น์ ํ๋ก๊ทธ๋จ์ ๋๋จธ์ง ๋ถ๋ถ๊ณผ์ ์ฐ๊ด์ฑ์ ๋ ์ฝ๊ฒ ์ดํดํ ์ ์๋๋ก ํฉ๋๋ค. ์ด๋ฅผ ํตํด ๊ฐ๋ฐ์์ ๋ถ์๊ฐ ๋ชจ๋ ๊ฒ์ฆ, ๊ณต์ ๋ฐ ๋ณ๊ฒฝ์ ๊ธฐ๋ฐ์ผ๋ก ํ์ฉํ ์ ์๋ ์คํ ๊ฐ๋ฅํ ์ ๋ณด๋ฅผ ์ป์ ์ ์์ต๋๋ค.
์์ ๋ถ์ ์ํฌํ๋ก SMART TS XL
์ผ๋ฐ์ ์ธ ์ํฌํ๋ก๋ ๋๋์ ๋ฐ์ดํฐ๋ฅผ ์ฒ๋ฆฌํ๊ฑฐ๋ ๋ฐฐ์น ์ฑ๋ฅ์ด ๋๋ฆฐ ๊ฒ์ผ๋ก ์๋ ค์ง ํ๋ก๊ทธ๋จ ์งํฉ์ ์ค์บํ๋ ๊ฒ์ผ๋ก ์์ํ ์ ์์ต๋๋ค. ์ผ๋จ ๋ก๋๋๋ฉด SMART TS XL์์คํ ์ ํ์ผ ์ํธ์์ฉ์ ํฌํจํ์ฌ ์ ํ๋ฆฌ์ผ์ด์ ์ ์ ์ฒด ๊ตฌ์กฐ ๋งต์ ๊ตฌ์ถํฉ๋๋ค.
๊ฑฐ๊ธฐ์์ ํ์ ๋ค์๊ณผ ๊ฐ์ ํน์ ํ์ผ์ ํ์ํ ์ ์์ต๋๋ค. TRANSACTION-FILE. ๋ค์ ๋ด์ฉ์ ๋ณผ ์ ์์ต๋๋ค.
- ํ์ผ์ ์ก์ธ์คํ๋ ๋ชจ๋ ํ๋ก๊ทธ๋จ
- ๊ฐ ํ๋ก๊ทธ๋จ์ ๋ํด ์ฌ์ฉ๋ I/O ์์ ์ ์์ ์ ํ
- ๊ฐ ์์ ์ด ์ ์ด ํ๋ฆ์์ ๋ฐ์ํ๋ ์์น
- ํ์ผ ์ฒ๋ฆฌ ๋ ผ๋ฆฌ๊ฐ ์ผ๊ด์ฑ์ด ์๋์ง ์๋๋ฉด ํ๋ก๊ทธ๋จ๋ง๋ค ๋ค๋ฅธ์ง
๋ถ์๊ฐ๋ ๋ค์๊ณผ ๊ฐ์ ๋ฌธ์ ๊ฐ ์๋ ๋ธ๋ก์ผ๋ก ๋น ๋ฅด๊ฒ ์ด๋ํ ์ ์์ต๋๋ค. PERFORM ํ์ผ์ ์ด๊ณ , ์์ ํ ์ฝ์ ํ, ๋งค ๋ฐ๋ณต๋ง๋ค ๋ซ๋ ๋ฃจํ์
๋๋ค. ์ด ๋์์ ์คํ ๊ฒฝ๋ก์์ ์ฆ์ ํ์ธํ ์ ์์ผ๋ฉฐ, ํด๋น ์ฝ๋์ ๋ํ ํด๋ฆญ ๊ฐ๋ฅํ ์ฐธ์กฐ๋ฅผ ํตํด ์ง์๋ฉ๋๋ค.
์ด๋ฅผ ํตํด ๋ชจ๋ ๊ฐ์ ๋น ๋ฅธ ์๋ณ ๋ฐ ๋น๊ต๊ฐ ๊ฐ๋ฅํด์ ธ, ๊ณต์ ํจํด์ ์ธ์ํ๊ณ ๋๊ท๋ชจ ๋ฆฌํฉํ ๋ง ์์ ์ ์ผํ์ผ๋ก ํด๊ฒฐํ ์ ์์ต๋๋ค.
์์ฑ๋ ํต์ฐฐ๋ ฅ SMART TS XL
SMART TS XL ๊ธฐ์ ๋ฐ ๊ด๋ฆฌ ์์ค ๊ฒํ ๋ฅผ ๋ชจ๋ ์ง์ํ๋ ๋ค์ํ ํต์ฐฐ๋ ฅ์ ์ ๊ณตํฉ๋๋ค. ์ผ๋ถ๋ ํ์ผ ์ฌ์ฉ๊ณผ ์ง์ ์ ์ผ๋ก ์ฐ๊ฒฐ๋๊ณ , ๋ค๋ฅธ ์ผ๋ถ๋ ํ์ผ I/O ์ํ ๋ฐฉ์์ ์ํฅ์ ๋ฏธ์น๋ ์ ์ด ๊ตฌ์กฐ์ ๊ด๋ จ๋ฉ๋๋ค.
์ผ๋ฐ์ ์ธ ์ถ๋ ฅ์ ๋ค์๊ณผ ๊ฐ์ต๋๋ค.
- ๋์ ์์ ๋ฐ๋๋ฅผ ๊ฐ์ง ํ์ผ ๋ชฉ๋ก(์: ์คํ ๊ฒฝ๋ก๋น ์๋ฐฑ ๊ฐ์ ์ฝ๊ธฐ)
- ์ผ๊ด์ฑ ์๋ ์ฌ์ฉ์ผ๋ก ๋ง์ ํ๋ก๊ทธ๋จ์์ ์ก์ธ์ค๋๋ ํ์ผ
- ์ ์ฌํ์ง๋ง ์ ๋ ฌ๋์ง ์์ ๋ฐฉ์์ผ๋ก ๋์ผํ ๋ฐ์ดํฐ ์ธํธ๋ฅผ ์ฒ๋ฆฌํ๋ ํ๋ก๊ทธ๋จ ๊ฐ์ ์ค๋ณต๋ ๋ ผ๋ฆฌ
- ๊น์ด ์ค์ฒฉ๋ ์กฐ๊ฑด์ด๋ ๊ตฌ์กฐํ๋์ง ์์ ๋ถ๊ธฐ ๋ด์์ ํ์ผ I/O๊ฐ ๋ฐ์ํ๋ ์ฝ๋ ์ธ๊ทธ๋จผํธ
์ด๋ฌํ ์์ฝ ์ธ์๋, SMART TS XL ๊ด๊ณ ๋ฐ ์ข ์์ฑ์ ํ์ํ๊ธฐ ์ํ ๊ทธ๋ํฝ ์ธํฐํ์ด์ค๋ฅผ ์ ๊ณตํ๋ฏ๋ก ๊ฐ๋ฐ์๊ฐ ์๋ ์ฌ์ฉ์(์: ํ๋ก์ ํธ ๊ด๋ฆฌ์, ์ํคํ ํธ, ๊ฐ์ฌ์)๋ ๊ฒฐ๊ณผ์ ์๋ฏธ๋ฅผ ๋ ์ฝ๊ฒ ํ์ ํ ์ ์์ต๋๋ค.
์ด ๋๊ตฌ๋ฅผ ์ฌ์ฉํ๋ฉด ์ด๋ฌํ ํต์ฐฐ๋ ฅ์ ํํฐ๋งํ๊ณ ๋ฌธ์๋ ํ๋ก์ ํธ ์ํฐํฉํธ๋ก ๋ด๋ณด๋ด์ด ๋ณด๋ค ๊ด๋ฒ์ํ ๋ณํ ์ด๋์ ํฐ๋ธ๋ฅผ ์ง์ํ ์๋ ์์ต๋๋ค.
ํ์ง๋ถํฐ ๋ฆฌํฉํ ๋ง ๊ถ์ฅ ์ฌํญ๊น์ง
SMART TS XL ๋ฌธ์ ์๋ณ์๋ง ๊ทธ์น์ง ์์ต๋๋ค. ์ฒด๊ณ์ ์ธ ๋ฌธ์ํ, ๋ณ๊ฒฝ ์ถ์ , ๋ฆฌํฉํ ๋ง ์ง์นจ์ ์ ๊ณตํ์ฌ ๋ฌธ์ ํด๊ฒฐ ํ๋ก์ธ์ค๋ฅผ ์ง์ํฉ๋๋ค.
๋ฌธ์ ๊ฐ ์๋ ํจํด์ด ์๋ณ๋๋ฉด ์ด ๋๊ตฌ๋ฅผ ์ฌ์ฉํ์ฌ ์ฌ์ฉ์๋ ๋ค์์ ์ํํ ์ ์์ต๋๋ค.
- ์์ ์ ์ํด ์ฝ๋ ์ธ๊ทธ๋จผํธ์ ํ๊ทธ๋ฅผ ์ง์ ํฉ๋๋ค.
- ๋ฌธ์ ๋ฅผ ์ค๋ช ํ๋ ์ฃผ์์ด๋ ์๊ฒฌ์ ์ถ๊ฐํ์ธ์.
- ์ด๋๊ณผ ๊ฐ์ ํ๋ณด ๊ฐ์ ์ฌํญ ๋ชฉ๋ก์ ๋ง๋ญ๋๋ค.
OPEN๋ฃจํ ์ธ๋ถ ๋๋ ํตํฉREAD๋ฌธ - ์๊ฐ ๊ฒฝ๊ณผ์ ๋ฐ๋ฅธ ๋ณํ๋ฅผ ์ถ์ ํ์ฌ ์ ๋ฆฌ ์์ ์ด ์ฑ๊ณต์ ์ธ์ง ํ์ธํฉ๋๋ค.
์ผ๋ถ ์ํฌํ๋ก์์๋ ์ด๋ฌํ ์ฃผ์์ด ๋ณ๊ฒฝ ๊ด๋ฆฌ ๋๊ตฌ๋ก ๋ด๋ณด๋ด์ง๊ฑฐ๋ ํ๋ํ ์คํ๋ฆฐํธ์ ์ผ๋ถ๋ก ๊ฐ๋ฐ์์ ์ง์ ๊ณต์ ๋ฉ๋๋ค.
๋๋ฌธ์ SMART TS XL ๋ถ๋ฆฌ๋ ์ฝ๋ ์ค์ด ์๋ ์ ์ฒด ํ๋ก๊ทธ๋จ ๋ชจ๋ธ์์ ์๋ํ๋ฉฐ, ์๋ฅ ๋ฐ ํ๋ฅ ์ํฅ์ ๋ชจ๋ ๊ณ ๋ คํ์ฌ ๋ณ๊ฒฝ ์ฌํญ์ ์ ์ํฉ๋๋ค. ์ด๋ฅผ ํตํด ํ๊ท๋ฅผ ๋ฐฉ์งํ๊ณ ๋ ๊ฑฐ์ ๋ก์ง์ ๋์ฑ ์์ ํ๊ฒ ์ต์ ํํ ์ ์์ต๋๋ค.
ํ์ผ ์ฒ๋ฆฌ ๋นํจ์จ์ฑ์ ๊ฐ์ํํ๊ณ , ์ดํดํ๊ณ , ์กฐ์น ๊ฐ๋ฅํ๊ฒ ๋ง๋ค์ด์ SMART TS XL ํ์ด COBOL ์ ํ๋ฆฌ์ผ์ด์ ์ ๋ถ์ํ ์ ์์ ๋ฟ๋ง ์๋๋ผ ์์ ๊ฐ์ ๊ฐ์ง๊ณ ์ด๋ฅผ ๋ฐ์ ์ํฌ ์ ์๋๋ก ๋์์ค๋๋ค.
COBOL ํ์ผ ์ก์ธ์ค ๋ฃจํ ๋ซ๊ธฐ
COBOL ํ์ผ ์ฒ๋ฆฌ ๊ฐ์ ์ด ํญ์ ์์คํ ์ ์ฌ์์ฑํ๊ฑฐ๋ ์๋ก์ด ๊ธฐ์ ์ ๋์ ํ๋ ๊ฒ๋ง์ ์๋๋๋ค. ์ฑ๋ฅ๊ณผ ๋ช ํ์ฑ ํฅ์์ ์ด๋ฏธ ๊ตฌ์ถ๋ ์์คํ ์ ํ์ ํ๊ณ , ๊ทธ ์๋ ๋ฐฉ์์ ์ดํดํ๋ฉฐ, ๋ฌด์์ ๋ณ๊ฒฝํด์ผ ํ ์ง ๊ฒฐ์ ํ๋ ๋ฐ์ ๋น๋กฏ๋๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค. ์ ์ ๋ถ์์ ํนํ ์์คํ ์ด ๋๊ท๋ชจ์ด๊ฑฐ๋ ๊ณต์ ๋๊ฑฐ๋ ์ ๋๋ก ๋ฌธ์ํ๋์ง ์์ ํ๊ฒฝ์์ ์ด๋ฌํ ๊ฐ์์ฑ์ ํ๋ณดํ๋ ์ค์ฉ์ ์ธ ๋ฐฉ๋ฒ์ ์ ๊ณตํฉ๋๋ค.
์ด ๋ง์ง๋ง ์น์ ์์๋ ์ฃผ์ ๊ด์ฐฐ ๋ด์ฉ์ ๋ชจ์ ํ์ด ๋ถ์ ๊ฒฐ๊ณผ๋ฅผ ๊ฐ์ ธ์ ์ค์ ํ๋ํ, ๋ฌธ์ํ ๋ฐ ๊ฐ๋ฐ ์ปจํ ์คํธ์ ์ ์ฉํ ์ ์๋ ๋ฐฉ๋ฒ์ ๋ํ ์์ด๋์ด๋ฅผ ์ ๊ณตํฉ๋๋ค.
COBOL I/O์ ๋ํ ์ ์ ๋ถ์์ ์ฃผ์ ๋ด์ฉ
COBOL ํ์ผ ์ ๊ทผ์ ๋นํจ์จ์ฑ์ ๋ฐ๋ณต์ ์ธ ์ฝ๊ธฐ, ์ผ๊ด๋์ง ์์ ์ ์ด ํ๋ฆ, ๊น์ด ์ค์ฒฉ๋ I/O ๋ก์ง, ๋ถํ์ํ ํ์ผ ์ด๊ธฐ์ ๊ฐ์ ์ต์ํ ํจํด์์ ๋น๋กฏ๋๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค. ์ด๋ฌํ ๊ดํ์ ๋จ์ผ ์ค๊ณ ๊ฒฐ์ ๋ณด๋ค๋ ์๊ฐ์ด ์ง๋จ์ ๋ฐ๋ผ ๋ํ๋๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค.
์ ์ ๋ถ์์ ์ด๋ฌํ ํจํด์ ์กฐ๊ธฐ์ ์ฒด๊ณ์ ์ผ๋ก ํ๋ฉดํํ๋ ๋ฐฉ๋ฒ์ ๋๋ค. ํ๋ก๊ทธ๋จ ๊ตฌ์กฐ์ ๋ฐ์ดํฐ ํ๋ฆ ๋ชจ๋ธ์ ์์ฑํ๋ฉด ์ ํ๋ฆฌ์ผ์ด์ ์ ๋ฐ์์ ํ์ผ์ด ์ด๋ป๊ฒ ์ฌ์ฉ๋๋์ง, ๋จ์ํ ์ค ๋จ์๋ฟ ์๋๋ผ ์ ์ฒด ์คํ ๊ฒฝ๋ก์์ ์ด๋ป๊ฒ ์ฌ์ฉ๋๋์ง ํ์ ํ ์ ์์ต๋๋ค.
์ด๋ฌํ ๊ฐ์์ฑ์ ํตํด ํ์ ๊ฐ์ฅ ์ค์ํ ๋ถ๋ถ์ ์ง์คํ ์ ์์ต๋๋ค. ๋ฃจํ ๊ฐ์ํ, ์ก์ธ์ค ์ค๋ณต ๊ฐ์, ์ฅ๊ธฐ์ ์ธ ์ ๋ฆฌ ๊ณํ ๋ฑ ์ด๋ค ๋ฐฉ์์ผ๋ก๋ ๋ฐ์ดํฐ๋ ์ ์คํ๊ณ ์ง์ค์ ์ธ ๊ฐ์ ์ ์ง์ํฉ๋๋ค.
๋ ๊ฑฐ์ ์์คํ ์์์ ์ฌ์ ๋ถ์์ ์ด์
๋ง์ COBOL ์์คํ ์ ์์ ์ ์ด๊ณ ์ ๋ขฐํ ์ ์์ต๋๋ค. ํ์ง๋ง ์์ ์ฑ์ด ์๋ค๊ณ ํด์ ๋ชจ๋ ์ฝ๋ ์ค์ด ํจ์จ์ ์ด๊ฑฐ๋ ์ง์์ด ์ฝ๋ค๋ ๊ฒ์ ์๋ฏธํ์ง๋ ์์ต๋๋ค. ์๊ฐ์ด ์ง๋จ์ ๋ฐ๋ผ ๋น์ฆ๋์ค ๋ณํ, ์ง์ ์ด์ง, ๊ทธ๋ฆฌ๊ณ ๋ฌธ์ํ๋์ง ์์ ์ ๋ฐ์ดํธ๊ฐ ๊ฒฐํฉ๋์ด ๊ฐ์ํํ ์ ์๋ ๋ก์ง์ด ๋จ๊ฒ ๋ฉ๋๋ค.
์ด์์ ๋ฌธ์ ๊ฐ ๋ํ๋๊ธฐ ์ ์ ์ ์ ๋ถ์์ ์ ์ฉํ๋ฉด ์กฐ์ง์ ๋ค์๊ณผ ๊ฐ์ ์ฌ๋ฌ ๊ฐ์ง ์ด์ ์ ์ป์ ์ ์์ต๋๋ค.
- ๋ฐฐ์น ์์ ์ ๋ณด๋ค ์ผ๊ด๋๊ฒ ์๊ฐ ์ฐฝ ๋ด์ ์ ์ง๋ฉ๋๋ค.
- ๊ฐ๋ฐ์๋ ๊ฐ ๋ชจ๋์ ๊ธฐ๋ฅ์ ๋ ๋ช ํํ๊ฒ ์ดํดํ์ฌ ์ ๋ฐ์ดํธ๋ฅผ ์ํํ ์ ์์ต๋๋ค.
- ํ์ผ ์ก์ธ์ค ๋ฌธ์ ๋ ๋ฐ์์ ์ผ๋ก๊ฐ ์๋ ๊ตฌ์กฐํ๋ ํ๋ก์ธ์ค์ ์ผ๋ถ๋ก ํด๊ฒฐ๋ฉ๋๋ค.
์ ๋ฉด์ ์ธ ํ๋ํ๋ฅผ ๊ณํํ์ง ์์ ํ์ ๊ฒฝ์ฐ์๋ ์์ ์ต์ ํ๋ฅผ ํตํด ๋ฐํ์์ด ํฅ์๋๊ณ ๊ฐ์ฌ๊ฐ ์ฌ์์ง๋ฉฐ ์๋ก์ด ํ์์ ์จ๋ณด๋ฉ์ด ๊ฐ์ํ๋๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค.
์ง์์ ์ธ ์ต์ ํ๋ฅผ ํฅํด ๋์๊ฐ๋ค
์ผํ์ฑ ๋ถ์๋ง์ผ๋ก๋ ๊ฐ์น๋ฅผ ์ป์ ์ ์์ง๋ง, ์ง์ ํ ๋ฐ์ ์ ์ด๋ฌํ ํต์ฐฐ๋ ฅ์ ์ ๊ธฐ์ ์ธ ์ํฌํ๋ก์ ํตํฉํ ๋ ๊ฐ๋ฅํฉ๋๋ค. ์ง์์ ์ธ ๊ฒํ , ํ ์คํธ ๋๋ ์ฝ๋ ์๋ช ์ฃผ๊ธฐ ๊ด๋ฆฌ์ ์ผํ์ผ๋ก ์ ์ ๋ถ์์ ๋์ ํ๋ ํ์ ์์์น ๋ชปํ ๋ฌธ์ ๋ฅผ ์ค์ด๊ณ ์ ํ๋ฆฌ์ผ์ด์ ํ๊ฒฝ ์ ๋ฐ์ ๊ฑธ์ณ ๋์ฑ ์ผ๊ด๋ ๊ตฌ์กฐ๋ฅผ ๊ตฌ์ถํ๋ ์ด์ ์ ๋๋ฆด ์ ์์ต๋๋ค.
๊ฐ์ ๋๊ตฌ๋ก SMART TS XL์ ์ ๋ถ์์ ํ์ด COBOL์ ์ดํดํ๊ณ ์ฌ์ฉํ๋ ๋ฐฉ์์ ์ผ๋ถ๊ฐ ๋ฉ๋๋ค. ์ฑ๋ฅ ํ๋๋ฟ๋ง ์๋๋ผ ๋ฌธ์ํ, ๊ท์ ์ค์ ๋ฐ ๊ธฐ์ ๊ณํ๋ ์ง์ํฉ๋๋ค.
๋ ๊ฑฐ์ ์์คํ ์ ๊ฐ์ ์ด ํญ์ ํ์ ์ ํตํด ์ด๋ฃจ์ด์ง๋ ๊ฒ์ ์๋๋๋ค. ๋๋ก๋ ๊ด์ฐฐ์์ ์์ํ์ฌ ์์ ๋ฐ์ ๋จ๊ณ๋ก ์ด์ด์ง๊ธฐ๋ ํฉ๋๋ค. ๊ทธ๋ฆฌ๊ณ ์ฌ๋ฐ๋ฅธ ํต์ฐฐ๋ ฅ์ ๋ฐํ์ผ๋ก ๊ฐ ๋จ๊ณ๋ ๋์ฑ ์ ์คํ๊ณ ํจ์จ์ ์ด๋ฉฐ ์ค๋ช ํ๊ธฐ ์ฌ์์ง๋๋ค.