[COBOLのはじめ方] Part12: 文字列処理（STRING, UNSTRING）

STRING 文には、さらに細かい制御を行うためのオプション句があります。

WITH POINTER の使用例 (例2: 追記処理)

IDENTIFICATION DIVISION.
PROGRAM-ID. STRING-SAMPLE2.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-BUFFER       PIC X(50) VALUE SPACES.
01 WS-POINTER      PIC 9(3) VALUE 1. *> 初期値は1
01 WS-ITEM1        PIC X(10) VALUE '商品A'.
01 WS-ITEM2        PIC 9(5) VALUE 1500.
01 WS-ITEM3        PIC X(8) VALUE '在庫あり'.
PROCEDURE DIVISION.
  *> 1回目の連結
  STRING WS-ITEM1 DELIMITED BY SPACE
         ','       DELIMITED BY SIZE
      INTO WS-BUFFER
      WITH POINTER WS-POINTER
  END-STRING.
  *> WS-BUFFER: '商品A      ,' (WS-ITEM1の後続スペースも含む)
  *> WS-POINTER: 4 (連結された文字数+1) ※処理系により挙動が異なる場合あり

  *> POINTERを調整して、ITEM1の後続スペースを除外した位置から始める例
  MOVE 1 TO WS-POINTER.
  STRING FUNCTION TRIM(WS-ITEM1) DELIMITED BY SIZE *> TRIM関数で後続スペース除去
         ','                     DELIMITED BY SIZE
      INTO WS-BUFFER
      WITH POINTER WS-POINTER
  END-STRING.
  *> WS-BUFFER: '商品A,'
  *> WS-POINTER: 5 (連結された文字数+1)

  *> 2回目の連結 (続けて)
  STRING WS-ITEM2 DELIMITED BY SIZE *> 数値項目はそのまま連結
         ','       DELIMITED BY SIZE
      INTO WS-BUFFER
      WITH POINTER WS-POINTER
  END-STRING.
  *> WS-BUFFER: '商品A,01500,'
  *> WS-POINTER: 11

  *> 3回目の連結 (続けて)
  STRING WS-ITEM3 DELIMITED BY SPACE
      INTO WS-BUFFER
      WITH POINTER WS-POINTER
  END-STRING.
  *> WS-BUFFER: '商品A,01500,在庫あり    '
  *> WS-POINTER: 19

  DISPLAY '連結結果: ' FUNCTION TRIM(WS-BUFFER). *> 結果: 商品A,01500,在庫あり

  STOP RUN.
        

⚠️ 注意: DELIMITED BY の指定によって、送り出し項目のどこまでが連結されるかが変わります。特に後続スペースの扱いには注意しましょう。また、WITH POINTER の値の更新ルールは処理系によって微妙に異なる可能性があるため、使用しているCOBOLコンパイラのドキュメントを確認することをお勧めします。最近のCOBOL (GnuCOBOLなど) では FUNCTION TRIM() を使うと、より簡単に前後のスペースを除去できます。

UNSTRING 文にも、処理を細かく制御するためのオプション句があります。

オプション句の使用例 (例4: 詳細情報付き分解)

IDENTIFICATION DIVISION.
PROGRAM-ID. UNSTRING-SAMPLE2.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-INPUT-DATA   PIC X(80) VALUE 'ID:123/Name:ABC Corp./City:Tokyo'.
01 WS-FIELD1       PIC X(10).
01 WS-DELIM1       PIC X(1).
01 WS-COUNT1       PIC 9(3).
01 WS-FIELD2       PIC X(20).
01 WS-DELIM2       PIC X(1).
01 WS-COUNT2       PIC 9(3).
01 WS-FIELD3       PIC X(15).
01 WS-DELIM3       PIC X(1). *> 使われないが定義は必要
01 WS-COUNT3       PIC 9(3).
01 WS-POINTER      PIC 9(3) VALUE 1. *> 初期値1
01 WS-TALLY        PIC 9(3) VALUE 0. *> 初期値0
PROCEDURE DIVISION.
  UNSTRING WS-INPUT-DATA DELIMITED BY ':' OR '/'
      INTO WS-FIELD1 DELIMITER IN WS-DELIM1 COUNT IN WS-COUNT1
           WS-FIELD2 DELIMITER IN WS-DELIM2 COUNT IN WS-COUNT2
           WS-FIELD3 DELIMITER IN WS-DELIM3 COUNT IN WS-COUNT3
      WITH POINTER WS-POINTER
      TALLYING IN WS-TALLY
      ON OVERFLOW
          DISPLAY 'エラー: データ格納領域が不足、またはポインタ異常'
  END-UNSTRING.

  DISPLAY '分解数: ' WS-TALLY. *> 結果: 分解数: 003

  DISPLAY '項目1 : ' WS-FIELD1 ' (区切り文字:' WS-DELIM1 ', 長さ:' WS-COUNT1 ')'.
  *> 結果: 項目1 : ID         (区切り文字::, 長さ:002)
  DISPLAY '項目2 : ' WS-FIELD2 ' (区切り文字:' WS-DELIM2 ', 長さ:' WS-COUNT2 ')'.
  *> 結果: 項目2 : 123               (区切り文字:/, 長さ:003)
  DISPLAY '項目3 : ' WS-FIELD3 ' (区切り文字:' WS-DELIM3 ', 長さ:' WS-COUNT3 ')'.
  *> 結果: 項目3 : Name       (区切り文字::, 長さ:004)
  *> ※FIELD3には'Name'までしか入らない。以降は次のUNSTRINGや手動解析が必要。

  DISPLAY 'Pointer位置: ' WS-POINTER. *> 結果: Pointer位置: 016

  *> 続きを処理する場合 (Pointerを利用)
  MOVE SPACES TO WS-FIELD1 WS-FIELD2 WS-FIELD3.
  MOVE 0 TO WS-TALLY.
  UNSTRING WS-INPUT-DATA DELIMITED BY ':' OR '/'
      INTO WS-FIELD1 DELIMITER IN WS-DELIM1 COUNT IN WS-COUNT1 *> ABC Corp.
           WS-FIELD2 DELIMITER IN WS-DELIM2 COUNT IN WS-COUNT2 *> City
           WS-FIELD3 DELIMITER IN WS-DELIM3 COUNT IN WS-COUNT3 *> Tokyo
      WITH POINTER WS-POINTER *> 前回の続きから
      TALLYING IN WS-TALLY
  END-UNSTRING.

  DISPLAY '--- 続き ---'.
  DISPLAY '分解数: ' WS-TALLY. *> 結果: 003
  DISPLAY '項目1 : ' WS-FIELD1 ' (区切り文字:' WS-DELIM1 ', 長さ:' WS-COUNT1 ')'.
  *> 結果: 項目1 : ABC Corp.  (区切り文字:/, 長さ:009)
  DISPLAY '項目2 : ' WS-FIELD2 ' (区切り文字:' WS-DELIM2 ', 長さ:' WS-COUNT2 ')'.
  *> 結果: 項目2 : City              (区切り文字::, 長さ:004)
  DISPLAY '項目3 : ' WS-FIELD3 ' (区切り文字:' WS-DELIM3 ', 長さ:' WS-COUNT3 ')'.
  *> 結果: 項目3 : Tokyo          (区切り文字: , 長さ:005) ※終端は区切り文字なし

  STOP RUN.
        

⚠️ 注意:

• DELIMITED BY で指定した区切り文字自体は、INTO 句の変数には格納されません（DELIMITER IN で取得可能）。
• 連続する区切り文字（例: `,,`）は、デフォルトでは空の文字列として扱われます。DELIMITED BY ALL 区切り文字 と指定すると、連続する区切り文字をまとめて1つの区切りとして扱います。
• INTO で指定する受け取り項目は、分解される可能性のある最大数を想定して十分に用意する必要があります。足りない場合、残りのデータは分解されません（OVERFLOWにはならない場合がある）。
• WITH POINTER や TALLYING IN で使用する変数は、UNSTRING 文を実行する前に適切に初期化（通常は POINTER=1, TALLYING=0）する必要があります。