# COBOLで現在時刻や日付を取得する方法

## 目次
1. はじめに
    1-1. COBOLとは
    1-2. 日付取得の重要性
2. ACCEPT文による日付・時刻の取得
    2-1. ACCEPT文の基本
    2-2. 実例：日付の取得
    2-3. 実例：時刻の取得
3. FUNCTION文による日付・時刻の取得
    3-1. FUNCTION文の基本
    3-2. 実例：日付の取得
    3-3. 実例：時刻の取得
4. まとめ

## 1. はじめに

### 1-1. COBOLとは
COBOL（Common Business Oriented Language）は、1959年に開発された高水準プログラミング言語で、主に業務アプリケーションの開発に使用されてきました。その特徴は、大量のデータ処理を効率よく行えることです。現在でも、多くの金融機関や行政機関のシステムで利用されています。

### 1-2. 日付取得の重要性
業務システムでは、トランザクションの日付や処理時刻の記録が非常に重要です。COBOLでも、日付や時刻の取得はよく求められる機能の一つです。本記事では、ACCEPT文とFUNCTION文を使用して日付や時刻を取得する方法を詳しく解説します。

## 2. ACCEPT文による日付・時刻の取得

### 2-1. ACCEPT文の基本
ACCEPT文は、COBOLにおいてデータの入力を処理するための命令です。本来、ユーザーからの入力を受け取るために使用されますが、EPOCH DAYやDATE、TIMEなどの特殊なモードを指定することで、システムからの日時情報を取得することができます。

### 2-2. 実例：日付の取得
以下の例では、ACCEPT文を使用して現在の日付を取得します。

![img](/mosaic-code.jpg)

このプログラムを実行すると、YYYYMMDD形式の日付が取得され、画面に表示されます。

### 2-3. 実例：時刻の取得

![img](/mosaic-code.jpg)

このプログラムを実行すると、HHMMSS形式の現在時刻が取得され、表示されます。

## 3. FUNCTION文による日付・時刻の取得

### 3-1. FUNCTION文の基本
FUNCTION文はCOBOL 2002で追加された機能で、日付や数値の計算、文字列操作などを行うさまざまな組み込み関数を提供します。日付や時刻を取得する際に、FUNCTION CURRENT-DATEを使用します。

### 3-2. 実例：日付の取得
次は、FUNCTION CURRENT-DATEを使用した現在日付の取得例です。

![img](/mosaic-code.jpg)

FUNCTION文を用いることで、特定のフォーマット調整を行って日付を取得することが可能です。

### 3-3. 実例：時刻の取得
![img](/mosaic-code.jpg)

FUNCTION CURRENT-TIMEを使用することで、取得された時刻を表示できます。

## 4. まとめ

COBOLでの現在時刻や日付の取得は、ACCEPT文やFUNCTION文を活用することで容易に実現できます。ACCEPT文はシンプルで実用的な解を提供し、FUNCTION文は柔軟なフォーマット対応が可能です。プロジェクトの要件に応じて適切な方法を選択し、日付や時刻を適切に取り扱いましょう。これにより、業務ロジックの構築やユーザーへの情報提供がより精確に行えるようになります。 [cv:issue_marketplace_engineer]

# COBOLで現在時刻や日付を取得する方法

## 目次
1. はじめに
    1-1. COBOLとは
    1-2. 日付取得の重要性
2. ACCEPT文による日付・時刻の取得
    2-1. ACCEPT文の基本
    2-2. 実例：日付の取得
    2-3. 実例：時刻の取得
3. FUNCTION文による日付・時刻の取得
    3-1. FUNCTION文の基本
    3-2. 実例：日付の取得
    3-3. 実例：時刻の取得
4. まとめ

## 1. はじめに

### 1-1. COBOLとは
COBOL（Common Business Oriented Language）は、1959年に開発された高水準プログラミング言語で、主に業務アプリケーションの開発に使用されてきました。その特徴は、大量のデータ処理を効率よく行えることです。現在でも、多くの金融機関や行政機関のシステムで利用されています。

### 1-2. 日付取得の重要性
業務システムでは、トランザクションの日付や処理時刻の記録が非常に重要です。COBOLでも、日付や時刻の取得はよく求められる機能の一つです。本記事では、ACCEPT文とFUNCTION文を使用して日付や時刻を取得する方法を詳しく解説します。

## 2. ACCEPT文による日付・時刻の取得

### 2-1. ACCEPT文の基本
ACCEPT文は、COBOLにおいてデータの入力を処理するための命令です。本来、ユーザーからの入力を受け取るために使用されますが、EPOCH DAYやDATE、TIMEなどの特殊なモードを指定することで、システムからの日時情報を取得することができます。

### 2-2. 実例：日付の取得
以下の例では、ACCEPT文を使用して現在の日付を取得します。

```cobol
IDENTIFICATION DIVISION.
PROGRAM-ID. CurrentDateSample.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 CURRENT-DATE PIC X(8).

PROCEDURE DIVISION.
    ACCEPT CURRENT-DATE FROM DATE YYYYMMDD.
    DISPLAY 'Current Date: ' CURRENT-DATE.
    STOP RUN.
```

このプログラムを実行すると、YYYYMMDD形式の日付が取得され、画面に表示されます。

### 2-3. 実例：時刻の取得

```cobol
IDENTIFICATION DIVISION.
PROGRAM-ID. CurrentTimeSample.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 CURRENT-TIME PIC X(6).

PROCEDURE DIVISION.
    ACCEPT CURRENT-TIME FROM TIME.
    DISPLAY 'Current Time: ' CURRENT-TIME.
    STOP RUN.
```

このプログラムを実行すると、HHMMSS形式の現在時刻が取得され、表示されます。

## 3. FUNCTION文による日付・時刻の取得

### 3-1. FUNCTION文の基本
FUNCTION文はCOBOL 2002で追加された機能で、日付や数値の計算、文字列操作などを行うさまざまな組み込み関数を提供します。日付や時刻を取得する際に、FUNCTION CURRENT-DATEを使用します。

### 3-2. 実例：日付の取得
次は、FUNCTION CURRENT-DATEを使用した現在日付の取得例です。

```cobol
IDENTIFICATION DIVISION.
PROGRAM-ID. CurrentDateFunctionSample.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CURRENT-DATE-TIME.
    05 WS-CURRENT-DATE   PIC 9(8).
    05 WS-CURRENT-TIME   PIC 9(6).

PROCEDURE DIVISION.
    COMPUTE WS-CURRENT-DATE = FUNCTION CURRENT-DATE.
    DISPLAY 'Current Date: ' WS-CURRENT-DATE.
    STOP RUN.
```

FUNCTION文を用いることで、特定のフォーマット調整を行って日付を取得することが可能です。

### 3-3. 実例：時刻の取得
```
IDENTIFICATION DIVISION.
PROGRAM-ID. CurrentTimeFunctionSample.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CURRENT-DATE-TIME.
    05 WS-CURRENT-TIME   PIC 9(6).

PROCEDURE DIVISION.
    DISPLAY 'Current Time: ' FUNCTION CURRENT-TIME.
    STOP RUN.
```

FUNCTION CURRENT-TIMEを使用することで、取得された時刻を表示できます。

## 4. まとめ

COBOLでの現在時刻や日付の取得は、ACCEPT文やFUNCTION文を活用することで容易に実現できます。ACCEPT文はシンプルで実用的な解を提供し、FUNCTION文は柔軟なフォーマット対応が可能です。プロジェクトの要件に応じて適切な方法を選択し、日付や時刻を適切に取り扱いましょう。これにより、業務ロジックの構築やユーザーへの情報提供がより精確に行えるようになります。 

COBOLで現在時刻や日付を取得する方法

目次

続きを読むには単価診断を受けてください（30秒）