COBOL言語の関数「LENGTH」について理解しよう！｜用語辞典

COBOL（コボル）言語の予約語LENGTHを使った文字列の長さの取得とは

辞典・辞書-LENGTH-イメージ

COBOL（コボル）言語のLENGTH関数とは？

COBOL(コボル)の組込み関数であるLENGTH関数は、指定した文字列の長さを取得したい場合に使用します。文字列操作を行う関数としてはよく使われるもので、COBOLに限らずJAVAを始め様々な言語で標準関数として用意されています。そのため馴染みのある方も多いのではないでしょうか。では、早速COBOLでの使い方について見ていきましょう。

書き方（LENGTH関数）：

FUNCTION LENGTH（引数）

関数の型：整数型
引数：文字列の長さを取得したい文字（変数、定数）を指定
戻り値：文字列の長さを表す整数値（集団項目である場合は項目の長さの合計値）

使用例：

辞典・辞書-LENGTH-使用例

実行結果：

LENGTH関数のCOBOL（コボル）言語における基本事項やルールについて

「FUNCTION LENGTH」の間の空白や改行は、自由に設定できます。
組込み関数の前には予約語「FUNCTION」を指定する必要があります。
引数は複数文字を指定する事はできません。

COBOL(コボル)言語のLENGTH関数を扱う上での注意点

COBOL言語のLENGTH関数は、指定した文字列の長さを取得できますが、項目の内容に関わらず、PICTURE句で指定した値が戻り値になりますので、注意が必要です。

例えば、以下のようにデータ項目が定義されていた場合、LENGTH関数の戻り値は①②どちらも「3」ではなく、②の戻り値は「5」となります。

①EIJI PIC X(3) VALUE "ABC".
②EIJI PIC X(5) VALUE "ABC".

LENGTH関数を使ったCOBOL(コボル)プログラムの活用法

LENGTH関数は、英字、数字、集団項目など文字列の長さを取得でき、その情報を元にした加工編集をする場合に非常に便利です。ここでは、活用法として英字、数字、集団項目それぞれの文字列の長さの取得方法と、取得した情報から必要な形式に加工編集して画面表示する簡単なプログラムを紹介します。

サンプルプログラム（LENGTH_SAMPLE01）：

IDENTIFICATION       DIVISION.
PROGRAM-ID.        LENGTH_SAMPLE01.
ENVIRONMENT         DIVISION.
INPUT-OUTPUT        SECTION.
DATA           DIVISION.
WORKING-STORAGE       SECTION.
 01 SAMPLE-DATA.
  03  EIJI   PIC X(3) VALUE "ABC".
  03  SUJI   PIC X(5) VALUE "12345".
  03  KOUMOKU.
   05 KOUMOKU1 PIC X(3) VALUE "ABC".
   05 KOUMOKU2 PIC X(5) VALUE "12345".
 
PROCEDURE DIVISION.
*>----------------------------------------------------
*> 文字の長さを求める
*>---------------------------------------------------- 
 
DISPLAY '文字列：' EIJI.
DISPLAY '長さ　：' FUNCTION LENGTH(EIJI).
 
DISPLAY '文字列：' SUJI.
DISPLAY '長さ　：' FUNCTION LENGTH(SUJI).
 
DISPLAY '文字列：' KOUMOKU.
DISPLAY '長さ　：' FUNCTION LENGTH(KOUMOKU).
 
STOP RUN.

実行結果（LENGTH_SAMPLE01）：

辞典・辞書-LENGTH-実行結果

サンプルプログラム（LENGTH_SAMPLE02）：

IDENTIFICATION       DIVISION.
PROGRAM-ID.        LENGTH_SAMPLE02.
ENVIRONMENT         DIVISION.
INPUT-OUTPUT        SECTION.
DATA           DIVISION.
WORKING-STORAGE       SECTION.
 01 SAMPLE-DATA.
  03  KEY-INFO PIC X(2).
  03  KOUMOKU  PIC X(5) VALUE "AB123".
 
PROCEDURE DIVISION.
*>----------------------------------------------------
*> 文字の長さを求め、加工編集する
*>---------------------------------------------------- 
 
DISPLAY 'キー情報：' KOUMOKU(1:FUNCTION LENGTH(KEY-INFO)).
DISPLAY '値：'      KOUMOKU(FUNCTION LENGTH(KEY-INFO) + 1:3).
 
STOP RUN.