ๅจๅคงๅไธปๆฉ้็ฎ้ ๅ๏ผ่ๆฌๅฒๅญๅญๅๆนๆณ๏ผVSAM๏ผๆงๆไบไธๅๅบๆฌๆฏๆฑใ ๅฎ้้ๆไพ็ฐกๅฎ็้ ๅบๅ็ดๆฅๅญๅๅฒๅญๆนๆณไปฅๅค็ๅ่ฝไพๅ
่จฑๅฒๅญใๅญๅๅ็ฎก็่ณๆใ ไฝฟ็จ STATUS ๆชๆก VSAM ๆถๅไฝฟ็จ Cobol๏ผ้ๆฏไธ็จฎไธป่ฆ็ไผๆฅญ็จๅผ่ช่จใ
ๆญฃๅฆไธๅฅๅค่็่ซบ่ชๆ่ชช๏ผโๅ้กๅฎ็พฉๆ็ขบ๏ผๅ้กๅฐฑ่งฃๆฑบไบไธๅใโ ๅจ้็จฎๆ
ๆณไธ๏ผไฝฟ็จ STATUS ๆชๆก VSAM ๆ็ถๅธธ้ๅฐ็ๆๆฐๅ
ๆฌ่็้ฏ่ชคๅๆๆ็ฎก็่ณๆใ ๅนธ้็ๆฏ๏ผๆ่ Cobol ็ๅผทๅคงๅ่ฝไปฅๅๅฐ VSAM ๅทฅไฝๅ็็ไป็ดฐ็่งฃ๏ผ้ๅๅ้กๅฐฑๅฏไปฅๅ
ๆใ
ไบ่งฃ VSAM ๆไปถ
่ฎๆๅๆทฑๅ
ฅ็ ็ฉถ่งฃๆฑบๆนๆกใ Cobol ๆฏไธ็จฎ้ซ้่ช่จ๏ผๅ
่จฑ้้ๆไพๆชๆก STATUS ๅญๅฅไพๆไฝ VSAM ๆชๆกใ ๆญคๅญๅฅๆๅฉๆผๆชๆก I/O ๆไฝไธญ็้ฏ่ชค่็ใ ่ฉฒๅญๅฅ็ๆจๆบๆ ผๅผๆฏใFILE STATUS IS data-name-1ใใ ๅจ้็จฎๆ
ๆณไธ๏ผใdata-name-1ใๆฏไธๅ้ๅญๅ
ๅญๆฎต๏ผๅ
ถไธญ็ฌฌไธๅๅญๅ
่กจ็คบไธป่ฆ็ๆ
๏ผ็ฌฌไบๅๅญๅ
่กจ็คบ็นๅฎๅๅ ๏ผๅฆๆๆ๏ผใ
้ธๆๅ้
็ตฆโVSAMFILEโ็ๆชๆกๅ
็ต็น่ขซ็ดขๅผ
่จชๅๆจกๅผๆฏ้จๆฉ็
ๆไปถ็ๆ
ๆฏ WS-VSAM-STATUSใ
้่ฃกไฝฟ็จ็File STATUSๅญๅฅๆฏ`WS-VSAM-STATUS`๏ผๅฎๅๆ ไบๆฏๅๆชๆกๆไฝ็็ๆ
ใ ้้ๅจๆฏๆฌกๆไฝๅพๆชขๆฅๆญค็ๆ
๏ผ้ฏ่ชค่็่ฎๅพ็ฐกๅใ
##
Cobol ็ทจ็จๅ VSAM ๆชๆก๏ผไปฃ็ขผ่ชชๆ
้ฆๅ
๏ผSELECT FILENAME ๅญๅฅ่กจ็คบๆชๆกๅ็จฑ็่ฒๆใ ASSIGN TO 'VSAMFILE' ่กจ็คบๆๅ็ Cobol ็จๅผๅฐ้้ๆญค็ฌฆ่ๆชๅๅผ็จ VSAM ๆชๆกใ ๆญคๅค๏ผORGANIZATION IS INDEXED ๅญๅฅๆๅฎๆชๆกไปฅ็ดขๅผๆ ผๅผ็ต็นใ ๅญๅๆจกๅผๆฏ้จๆฉ็ๅ
่จฑ็ดๆฅๅญๅไปปไฝ่จ้่ไธๆฏ้ ๅบๅญๅใ
ไบ่งฃๆดๅค
