Cobolで文字列の末尾4文字を取得するには、

2年 ago
光, 明
1 minute

COBOLでは、FUNCTIONを使用して文字列から後ろ4文字を取得できます。以下に例を示します。

IDENTIFICATION DIVISION.
PROGRAM-ID. STRING-PROCESSING.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INPUT-STRING       PIC X(10) VALUE 'HELLO WORLD'.
01 OUTPUT-STRING      PIC X(4).
PROCEDURE DIVISION.
MOVE FUNCTION REVERSE(INPUT-STRING) TO OUTPUT-STRING.
DISPLAY 'Original String: ' INPUT-STRING.
DISPLAY 'Last 4 characters: ' OUTPUT-STRING.
STOP RUN.

上記例では、REVERSE関数を使用して入力された文字列を反転させ、反転後の文字列の先頭4文字をOUTPUT-STRINGに代入しています。その後、もとの文字列と切り取られた文字列を表示しています。

結果が出力されます

Original String: HELLO WORLD
Last 4 characters: DLRO

なお、これは後ろ4桁取得方法の一例です。実際の開発では、要件に応じてさまざまな方法をご検討ください。

bannerAds