VS COBOL 2

본 장에서는 VS COBOL2의 변환에 대해서 설명한다.

1. VS COBOL 2 element

VS COBOL 2은 --enable-vsc2 옵션을 사용하였을 때만 처리된다.

다음은 VS COBOL 2에서 쓰이는 elements에 대한 설명 및 변환된 내용이다.

  • SET Statement

    VS COBOL 2의 SET statement에서 UP BY 혹은 DOWN BY를 사용하는 경우 SET target에 INDEX 외에 comp, zoned, pacekd 변수가 사용 가능하도록 한다.

    SET {INDEX, IDENTIFIER} UP BY integer

  • Zoned Decimal to string

    scale이 있는 zoned decimal을 string으로 MOVE가 가능하도록 한다.

  • COMP-2 MOVE Rounded

    USAGE COMP-2을 MOVE하는 경우 ROUNDED가 되도록 한다.

    WORKING-STORAGE SECTION.
01 FLOAT-POINT COMP-2.
01 FIXED-POINT-1  PIC S9(1)V9.

PROCEDURE DIVISION.
    MOVE 1.19999999999999999 TO FLOAT-POINT.
    MOVE FLOAT-POINT TO FIXED-POINT-1.
    DISPLAY 'FIXED-POINT: ' FIXED-POINT-1.

    다음은 위의 결과이다.

    FIXED-POINT: 12+