2024-10-30
PIC X(4) → PIC S9(4) を行ったらどうなる？を確認する

「そういやCOBOL使えたはずだな」とローカルのサーバで確認してみる。

$ cobc -v
cobc (GnuCOBOL) 3.2.0
Built     Oct 10 2024 06:43:09  Packaged  Jul 28 2023 17:02:56 UTC
C version "FreeBSD Clang 18.1.5 (https://github.com/llvm/llvm-project.git llvmorg-18.1.5-0-g617a15a9eac9)"
loading standard configuration file 'default.conf'
cobc: error: no input files
$

今回はFreeBSD上にインストールされたGnuCOBOLを使ってみます。

ググりながらコードを書く。そらで一から書くのもう無理。
行番号は入れてません。

実行するとファイル sample.bin にZONE形式の値を書き出します。

gendata.cbl

      ***** sample ****
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SIMPLE-GENERATE-ZONE-01.
      *
       ENVIRONMENT DIVISION.
         INPUT-OUTPUT SECTION.
            FILE-CONTROL.
               SELECT BIN-FILE ASSIGN TO "sample.bin".
 
       DATA DIVISION.
          FILE SECTION.
             FD BIN-FILE.
                01 BIN-REC.
                   03 BIN-REC-P  PIC S9(4).
                   03 BIN-REC00  PIC S9(4).
                   03 BIN-REC01  PIC S9(4).
                   03 BIN-REC02  PIC S9(4).
                   03 BIN-REC03  PIC S9(4).
                   03 BIN-REC04  PIC S9(4).
                   03 BIN-REC05  PIC S9(4).
                   03 BIN-REC06  PIC S9(4).
                   03 BIN-REC07  PIC S9(4).
                   03 BIN-REC08  PIC S9(4).
                   03 BIN-REC09  PIC S9(4).
 
          WORKING-STORAGE SECTION.
             01 VAL0P     PIC S9(4) VALUE  1234.
             01 VAL00     PIC S9(4) VALUE -1230.
             01 VAL01     PIC S9(4) VALUE -1231.
             01 VAL02     PIC S9(4) VALUE -1232.
             01 VAL03     PIC S9(4) VALUE -1233.
             01 VAL04     PIC S9(4) VALUE -1234.
             01 VAL05     PIC S9(4) VALUE -1235.
             01 VAL06     PIC S9(4) VALUE -1236.
             01 VAL07     PIC S9(4) VALUE -1237.
             01 VAL08     PIC S9(4) VALUE -1238.
             01 VAL09     PIC S9(4) VALUE -1239.
 
       PROCEDURE DIVISION.
          MAIN SECTION.
 
             MOVE VAL0P TO BIN-REC-P.
             MOVE VAL00 TO BIN-REC00.
             MOVE VAL01 TO BIN-REC01.
             MOVE VAL02 TO BIN-REC02.
             MOVE VAL03 TO BIN-REC03.
             MOVE VAL04 TO BIN-REC04.
             MOVE VAL05 TO BIN-REC05.
             MOVE VAL06 TO BIN-REC06.
             MOVE VAL07 TO BIN-REC07.
             MOVE VAL08 TO BIN-REC08.
             MOVE VAL09 TO BIN-REC09.
 
             OPEN OUTPUT BIN-FILE.
             WRITE BIN-REC.
             CLOSE BIN-FILE.
 
             STOP RUN.

GnuCOBOLでコンパイルして実行してみます。警告が出ているけどとりあえず後回し。

$ cobc -x gendata.cbl
/tmp/cob79343_0.c:321:35: warning: illegal character encoding in string literal [-Winvalid-source-encoding]
  321 |   module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
      |                                   ^~~~~~~~~~~~~~~~~~~~~~~~~
/tmp/cob79343_0.c:15:39: note: expanded from macro 'COB_MODULE_FORMATTED_DATE'
   15 | #define  COB_MODULE_FORMATTED_DATE      "10<B7><EE> 30 2024 14:09:46"
      |                                            ^~~~~~~~
1 warning generated.
$ ./gendata
$ hd sample.bin
00000000  31 32 33 34 31 32 33 70  31 32 33 71 31 32 33 72  |1234123p123q123r|
00000010  31 32 33 73 31 32 33 74  31 32 33 75 31 32 33 76  |123s123t123u123v|
00000020  31 32 33 77 31 32 33 78  31 32 33 79              |123w123x123y|
0000002c
$

hdコマンドで sample.bin をhexダンプした結果を見ます。
この環境下では、GnuCOBOLで扱っている負値のZONE形式の最後桁の文字は 0x70～0x79になっている事を確認できました。
数値 2024 は 0x32, 0x30, 0x32, 0x34 となり、数値 -2024 は 0x32, 0x30, 0x32, 0x74 となります。

PIC X(4)の値を PIC S9(4) にMOVEしたらどうなるかを見てみます。
※ZONE形式表現 “202t” が -2024 として扱えるのかを見てみます

      ***** sample ****
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SIMPLE-MOVE-01.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAL01     PIC X(4) VALUE "2024".
       01 VAL02     PIC X(4) VALUE "202t".
       01 VAL03     PIC S9(4).
       01 VAL04     PIC S9(4).
 
       PROCEDURE DIVISION.
       MAIN SECTION.
 
       MOVE VAL01 TO VAL03.
       MOVE VAL02 TO VAL04.
 
       DISPLAY "01:[" VAL01 "]".
       DISPLAY "02:[" VAL02 "]".
       DISPLAY "03: " VAL03.
       DISPLAY "04: " VAL04.
 
       STOP RUN.

結果は以下の通り。どうも型変換的な処理が行われていますね。素直に内容を転記する事はできないように見えます。

$ cobc -x sample.cbl
/tmp/cob79487_0.c:212:35: warning: illegal character encoding in string literal [-Winvalid-source-encoding]
  212 |   module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
      |                                   ^~~~~~~~~~~~~~~~~~~~~~~~~
/tmp/cob79487_0.c:15:39: note: expanded from macro 'COB_MODULE_FORMATTED_DATE'
   15 | #define  COB_MODULE_FORMATTED_DATE      "10<B7><EE> 30 2024 14:23:17"
      |                                            ^~~~~~~~
1 warning generated.
$ ./sample
01:[2024]
02:[202t]  ← -2024 のZONE形式表現の文字列
03: +2024
04: +0202  ← -2024を期待してたけど…
$

これはREDEFINEで上書きができるように定義してあげればよいようです。

sample2.cbl

      ***** sample ****
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SIMPLE-SAMPLE-02.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAL01     PIC X(4) VALUE "2024".
       01 VAL02     PIC X(4) VALUE "202t".
       01 VAL03     PIC S9(4).
       01 VAL04     PIC S9(4).
       01 FILLER REDEFINES VAL04.
          03 VAL05  PIC X(4).
 
       PROCEDURE DIVISION.
       MAIN SECTION.
 
       MOVE VAL01 TO VAL03.
       MOVE VAL02 TO VAL05.
 
       DISPLAY "01:[" VAL01 "]".
       DISPLAY "02:[" VAL02 "]".
       DISPLAY "03: " VAL03.
       DISPLAY "04: " VAL04.
 
       STOP RUN.

実行すると、望みの結果となりました。

$ cobc -x sample2.cbl
/tmp/cob79918_0.c:213:35: warning: illegal character encoding in string literal [-Winvalid-source-encoding]
  213 |   module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
      |                                   ^~~~~~~~~~~~~~~~~~~~~~~~~
/tmp/cob79918_0.c:15:39: note: expanded from macro 'COB_MODULE_FORMATTED_DATE'
   15 | #define  COB_MODULE_FORMATTED_DATE      "10<B7><EE> 30 2024 15:06:08"
      |                                            ^~~~~~~~
1 warning generated.
$ ./sample2
01:[2024]
02:[202t]
03: +2024
04: -2024
$