[orca-dev:00520] Re: [COBOL] USAGE BINARY について

[Naoki Shimaya <naoki-shimaya@xxxxxxxxxxxxxxxxxx>]

もう少し調べてみました．

       DATA                        DIVISION.
       WORKING-STORAGE             SECTION.
       01 STR.
          03 STR-1    PIC X(02).
          03 STR-2    PIC X(04).
       01 WRK.
          03 WRK-1    PIC 9(04) USAGE BINARY.

こう宣言しておいて，

      *
      *    8224 = 0x2020
      *
           MOVE 8224 TO WRK-1.
           MOVE WRK TO STR.
           MOVE "TEST" TO STR-2
           DISPLAY STR.

こうしてみると，
ちゃんと"TEST"の前に，空白が２個入ってます．

MOVE でWRK-1 に転記する前に，４桁に整形してから
２進数にしてるってことでしょうか？