2019年5月 – サイゼントの技術ブログ

2019年5月25日2019年7月13日

コントロールブレイクのサンプルプログラム

コントロールブレイク（キー項目が変わる度に何らかの処理を実行）のロジックについて、前回の記事で紹介しました。
サンプルプログラムを作成しましたので、参考までに紹介します。
言語はCOBOL(opensource COBOL)です。

【サンプルプログラム】

       IDENTIFICATION    DIVISION.
       PROGRAM-ID.       CONTBREK.
       ENVIRONMENT       DIVISION.
       INPUT-OUTPUT      SECTION.
       FILE-CONTROL.    
           SELECT  F1  ASSIGN  TO  "C:\tmp\a.txt".
           SELECT  F2  ASSIGN  TO  "C:\tmp\b.txt".
      *
       DATA                  DIVISION.
       FILE                  SECTION.
       FD  F1.
       01  F1R.
           03  F1-REC        PIC X(33).
       FD  F2.
       01  F2R.
           03  F2-REC        PIC X(33).
      *
       WORKING-STORAGE       SECTION.
       01  WORK.
           03  F1-END        PIC X(01).
           03  F1-OLD-KEY    PIC X(07).
       01  F1-REC-WORK.
           03  F1-SYOHIN-CODE
                             PIC X(07).
           03  F1-COMMA1     PIC X(01).
           03  F1-HANBAI-YMD PIC X(08).
           03  F1-COMMA2     PIC X(01).
           03  F1-HANBAI-KOSUU
                             PIC X(05).
           03  F1-COMMA3     PIC X(01).
           03  F1-HANBAI-KINGAKU
                             PIC X(09).
           03  F1-CRLF       PIC X(02).
       01  F2-TITLE-WORK.
           03  F2-ASTER1     PIC X(02) VALUE '**'.
           03  F2-SYOHIN-CODE-TITLE
                             PIC X(07).
           03  F2-ASTER2     PIC X(22) 
               VALUE '**********************'.
           03  F2-CRLF-TITLE PIC X(02) VALUE X'0D0A'.
       01  F2-REC-WORK.
           03  F2-SYOHIN-CODE
                             PIC X(07).
           03  F2-COMMA1     PIC X(01).
           03  F2-HANBAI-YMD PIC X(08).
           03  F2-COMMA2     PIC X(01).
           03  F2-HANBAI-KOSUU
                             PIC X(05).
           03  F2-COMMA3     PIC X(01).
           03  F2-HANBAI-KINGAKU
                             PIC X(09).
           03  F2-CRLF       PIC X(02).
      *
       PROCEDURE         DIVISION.
      * 
      * 各種処理の呼び出し
      * 
       000-CONTROLLER-S.
           PERFORM  100-START-S THRU 100-START-E.
           PERFORM  200-MAIN-S  THRU 200-MAIN-E
               UNTIL F1-END = HIGH-VALUE.
           PERFORM  300-END-S   THRU 300-END-E.
           STOP RUN.
       000-CONTROLLER-E.
      * 
      * 前処理
      * 
       100-START-S.
           INITIALIZE WORK.
           OPEN  INPUT  F1.
           OPEN  OUTPUT F2.
           PERFORM 210-READ-S THRU 210-READ-E.
       100-START-E.
      * 
      * 主処理
      * 
       200-MAIN-S.
           IF F1-SYOHIN-CODE NOT = F1-OLD-KEY
               PERFORM 220-WRITE-TITLE-S  THRU 220-WRITE-TITLE-E
               MOVE    F1-SYOHIN-CODE     TO   F1-OLD-KEY
           END-IF.
           PERFORM     230-WRITE-RECORD-S THRU 230-WRITE-RECORD-E.
           PERFORM     210-READ-S         THRU 210-READ-E.
       200-MAIN-E.
      * 
      * READ処理
      * 
       210-READ-S.
           READ F1
           AT END
               MOVE HIGH-VALUE TO F1-END
               GO TO 210-READ-E
           END-READ.
           MOVE F1-REC         TO F1-REC-WORK.
       210-READ-E.
      * 
      * WRITE処理（タイトル）
      * 
       220-WRITE-TITLE-S.
           MOVE  F1-SYOHIN-CODE TO F2-SYOHIN-CODE-TITLE.
           MOVE  F2-TITLE-WORK  TO F2-REC.
           WRITE F2R.
       220-WRITE-TITLE-E.
      * 
      * WRITE処理（レコード）
      * 
       230-WRITE-RECORD-S.
           MOVE  F1-REC-WORK TO F2-REC-WORK.
           MOVE  F2-REC-WORK TO F2-REC.
           WRITE F2R.
       230-WRITE-RECORD-E.
      * 
      * 後処理
      * 
       300-END-S.
           CLOSE  F1.
           CLOSE  F2.
       300-END-E.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

IDENTIFICATION DIVISION.

PROGRAM-ID. CONTBREK.

ENVIRONMENT DIVISION.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

SELECT F1 ASSIGN TO "C:\tmp\a.txt".

SELECT F2 ASSIGN TO "C:\tmp\b.txt".

DATA DIVISION.

FILE SECTION.

FD F1.

01 F1R.

03 F1-REC PIC X(33).

FD F2.

01 F2R.

03 F2-REC PIC X(33).

WORKING-STORAGE SECTION.

01 WORK.

03 F1-END PIC X(01).

03 F1-OLD-KEY PIC X(07).

01 F1-REC-WORK.

03 F1-SYOHIN-CODE

PIC X(07).

03 F1-COMMA1 PIC X(01).

03 F1-HANBAI-YMD PIC X(08).

03 F1-COMMA2 PIC X(01).

03 F1-HANBAI-KOSUU

PIC X(05).

03 F1-COMMA3 PIC X(01).

03 F1-HANBAI-KINGAKU

PIC X(09).

03 F1-CRLF PIC X(02).

01 F2-TITLE-WORK.

03 F2-ASTER1 PIC X(02) VALUE '**'.

03 F2-SYOHIN-CODE-TITLE

PIC X(07).

03 F2-ASTER2 PIC X(22)

VALUE '**********************'.

03 F2-CRLF-TITLE PIC X(02) VALUE X'0D0A'.

01 F2-REC-WORK.

03 F2-SYOHIN-CODE

PIC X(07).

03 F2-COMMA1 PIC X(01).

03 F2-HANBAI-YMD PIC X(08).

03 F2-COMMA2 PIC X(01).

03 F2-HANBAI-KOSUU

PIC X(05).

03 F2-COMMA3 PIC X(01).

03 F2-HANBAI-KINGAKU

PIC X(09).

03 F2-CRLF PIC X(02).

PROCEDURE DIVISION.

* 各種処理の呼び出し

000-CONTROLLER-S.

PERFORM 100-START-S THRU 100-START-E.

PERFORM 200-MAIN-S THRU 200-MAIN-E

UNTIL F1-END = HIGH-VALUE.

PERFORM 300-END-S THRU 300-END-E.

STOP RUN.

000-CONTROLLER-E.

* 前処理

100-START-S.

INITIALIZE WORK.

OPEN INPUT F1.

OPEN OUTPUT F2.

PERFORM 210-READ-S THRU 210-READ-E.

100-START-E.

* 主処理

200-MAIN-S.

IF F1-SYOHIN-CODE NOT = F1-OLD-KEY

PERFORM 220-WRITE-TITLE-S THRU 220-WRITE-TITLE-E

MOVE F1-SYOHIN-CODE TO F1-OLD-KEY

END-IF.

PERFORM 230-WRITE-RECORD-S THRU 230-WRITE-RECORD-E.

PERFORM 210-READ-S THRU 210-READ-E.

200-MAIN-E.

* READ処理

210-READ-S.

READ F1

AT END

MOVE HIGH-VALUE TO F1-END

GO TO 210-READ-E

END-READ.

MOVE F1-REC TO F1-REC-WORK.

210-READ-E.

* WRITE処理（タイトル）

220-WRITE-TITLE-S.

MOVE F1-SYOHIN-CODE TO F2-SYOHIN-CODE-TITLE.

MOVE F2-TITLE-WORK TO F2-REC.

WRITE F2R.

220-WRITE-TITLE-E.

* WRITE処理（レコード）

230-WRITE-RECORD-S.

MOVE F1-REC-WORK TO F2-REC-WORK.

MOVE F2-REC-WORK TO F2-REC.

WRITE F2R.

230-WRITE-RECORD-E.

* 後処理

300-END-S.

CLOSE F1.

CLOSE F2.

300-END-E.

【入力ファイル】

・C:\tmp\a.txt

0000001,20180401,00100,00010000
0000001,20180402,00200,00020000
0000002,20180401,00001,00001000
0000003,20180402,00002,00002000

0000001,20180401,00100,00010000

0000001,20180402,00200,00020000

0000002,20180401,00001,00001000

0000003,20180402,00002,00002000

【出力ファイル】

・C:\tmp\b.txt

**0000001**********************
0000001,20180401,00100,00010000
0000001,20180402,00200,00020000
**0000002**********************
0000002,20180401,00001,00001000
**0000003**********************
0000003,20180402,00002,00002000

**0000001**********************

0000001,20180401,00100,00010000

0000001,20180402,00200,00020000

**0000002**********************

0000002,20180401,00001,00001000

**0000003**********************

0000003,20180402,00002,00002000

いかがでしたでしょうか。
前回の記事ではプログラムまでは作成しなかったので、今回の記事ではプログラムも作成してみました。

今回はCOBOLでプログラムを作成したので、java等の他の言語を学んできた方にはわかりにくかったかもしれません。
しかし、COBOLは自然言語に近い書き方ができるという特徴があるので、経験が浅い方でもなんとなく雰囲気を感じ取ってもらえるのではないか、と個人的には思っています。
また、コントロールブレイクを使用する現場ではCOBOL資産に触れる機会が少なくないので、その意味でも慣れておいて損はないと思っています。

次回は、コントロールブレイクと並んで使用されることが多いロジックであるマッチングについて書いていきたいと思います。
では、また来週！

2019年5月18日2019年7月13日

コントロールブレイクのロジック

今回の記事では、バッチプログラムで使われるロジックの一つである「コントロールブレイク」について説明します。
「コントロールブレイク」とは特にCOBOLではよく目にするロジックであり、キー項目（「商品番号」「顧客番号」「カード番号」等）順にソートされたデータに対して、キー項目が変わる度にタイトル出力や改ページ等を行うロジックです。
トランザクションファイル・トランザクションテーブル（履歴ファイル・履歴テーブル）を読み込み、帳票やハガキ等を出力する時に使われることが多いです。

フローチャートと例は以下の通りです。

【フローチャート】

【例】

・要件

商品の販売実績のデータをまとめたファイルを読み込み、商品毎にタイトルを付与して、別のファイルに出力したい。

・入力ファイルのフォーマット

カンマ区切りの固定長ファイル。
商品コード・販売日でレコードを一意に特定できるようにデータをセットする。

商品コード（７桁）
カンマ（１桁）
販売日（８桁）
カンマ（１桁）
販売個数（５桁）
カンマ（１桁）
販売金額（９桁）

商品コード（７桁）

カンマ（１桁）

販売日（８桁）

カンマ（１桁）

販売個数（５桁）

カンマ（１桁）

販売金額（９桁）

・入力ファイルのレコード

0000001,20180401,00100,00010000
0000001,20180402,00200,00020000
0000002,20180401,00001,00001000
0000003,20180402,00002,00002000

0000001,20180401,00100,00010000

0000001,20180402,00200,00020000

0000002,20180401,00001,00001000

0000003,20180402,00002,00002000

・タイトル行のフォーマット

アスタリスク（２桁）
商品コード（７桁）
アスタリスク（２２桁）

アスタリスク（２桁）

商品コード（７桁）

アスタリスク（２２桁）

・処理の流れ

①変数「旧キー」に初期値として7桁のスペースを入れる。
　（商品コードで使われていない値を初期値として使用する）

②１レコード目「0000001,20180401,00100,00010000」を読み込む。

③読み込んだレコードの商品コードと変数「旧キー」が一致するか判定する。
　一致しないため、ブレイク処理として下記タイトルを出力する。
　「**0000001**********************」
　変数「旧キー」に現在の商品コード「0000001」をセットする。

④１レコード目のデータを出力ファイルへ出力する。

⑤２レコード目「0000001,20180402,00200,00020000」を読み込む。

⑥読み込んだレコードの商品コードと変数「旧キー」が一致するか判定する。
　一致するため、ブレイク処理は行わない。

⑦２レコード目のデータを出力ファイルへ出力する。

⑧３レコード目「0000002,20180401,00001,00001000」を読み込む。

⑨読み込んだレコードの商品コードと変数「旧キー」が一致するか判定する。
　一致しないため、ブレイク処理として下記タイトルを出力する。
　「**0000002**********************」
　変数「旧キー」に現在の商品コード「0000002」をセットする。

⑩３レコード目のデータを出力ファイルへ出力する。

⑪４レコード目「0000003,20180402,00002,00002000」を読み込む。

⑫読み込んだレコードの商品コードと変数「旧キー」が一致するか判定する。
　一致しないため、ブレイク処理として下記タイトルを出力する。
　「**0000003**********************」
　変数「旧キー」に現在の商品コード「0000003」をセットする。

⑬４レコード目のデータを出力ファイルへ出力する。

⑭EOFのため処理を終了する。

①変数「旧キー」に初期値として7桁のスペースを入れる。

　（商品コードで使われていない値を初期値として使用する）

②１レコード目「0000001,20180401,00100,00010000」を読み込む。

③読み込んだレコードの商品コードと変数「旧キー」が一致するか判定する。

　一致しないため、ブレイク処理として下記タイトルを出力する。

　「**0000001**********************」

　変数「旧キー」に現在の商品コード「0000001」をセットする。

④１レコード目のデータを出力ファイルへ出力する。

⑤２レコード目「0000001,20180402,00200,00020000」を読み込む。

⑥読み込んだレコードの商品コードと変数「旧キー」が一致するか判定する。

　一致するため、ブレイク処理は行わない。

⑦２レコード目のデータを出力ファイルへ出力する。

⑧３レコード目「0000002,20180401,00001,00001000」を読み込む。

⑨読み込んだレコードの商品コードと変数「旧キー」が一致するか判定する。

　一致しないため、ブレイク処理として下記タイトルを出力する。

　「**0000002**********************」

　変数「旧キー」に現在の商品コード「0000002」をセットする。

⑩３レコード目のデータを出力ファイルへ出力する。

⑪４レコード目「0000003,20180402,00002,00002000」を読み込む。

⑫読み込んだレコードの商品コードと変数「旧キー」が一致するか判定する。

　一致しないため、ブレイク処理として下記タイトルを出力する。

　「**0000003**********************」

　変数「旧キー」に現在の商品コード「0000003」をセットする。

⑬４レコード目のデータを出力ファイルへ出力する。

⑭EOFのため処理を終了する。

・出力ファイル

**0000001**********************
0000001,20180401,00100,00010000
0000001,20180402,00200,00020000
**0000002**********************
0000002,20180401,00001,00001000
**0000003**********************
0000003,20180402,00002,00002000

**0000001**********************

0000001,20180401,00100,00010000

0000001,20180402,00200,00020000

**0000002**********************

0000002,20180401,00001,00001000

**0000003**********************

0000003,20180402,00002,00002000

以上、「コントロールブレイク」でした。
このロジックを覚えておくと、バッチ処理を設計するのが楽になります。
プログラミングだけでなくExcelの資料作りにも役立つことがあり、意外と応用も効きます。

これまでも週１でブログを更新してきましたが、今後もこのような記事を週１ペースで書いていきたいと思います。
では、また来週！

2019年5月11日2019年7月13日

java：暗黙の型変換による意図しない小数点以下切り捨て

原因がわかるまでに手間取ってしまったので、記事として残しておきます。
double型やBigDecimal型の変数の初期値を分数（例：2/3）で定義する際、小数点を入れないと「int型変数/int型変数」と判断されてしまい、小数点以下が切り捨てられた状態で変数に格納されてしまいます。
「2.0/3.0」なら可なのですが、「2/3」は不可です。

以下、サンプルコードです。

【失敗例】

・ソースコード

package main;

import java.math.BigDecimal;

public class Main {
    public static void main(String[] args) {

        // double型（実行速度重視）
        double x = 2/3;
        System.out.println("double型変数の場合");
        System.out.println("期待値：0.6666666…");
        System.out.println("実際の値："+x);

        // BigDecimal型（丸め誤差を気にする場合）
        BigDecimal y = BigDecimal.valueOf(2/3);
        System.out.println("BigDecimal型変数の場合");
        System.out.println("期待値：0.6666666…");
        System.out.println("実際の値："+y.doubleValue());

    }
}

package main;

import java.math.BigDecimal;

public class Main {

public static void main(String[] args) {

// double型（実行速度重視）

double x = 2/3;

System.out.println("double型変数の場合");

System.out.println("期待値：0.6666666…");

System.out.println("実際の値："+x);

// BigDecimal型（丸め誤差を気にする場合）

BigDecimal y = BigDecimal.valueOf(2/3);

System.out.println("BigDecimal型変数の場合");

System.out.println("期待値：0.6666666…");

System.out.println("実際の値："+y.doubleValue());

}

・実行結果

double型変数の場合
期待値：0.6666666…
実際の値：0.0
BigDecimal型変数の場合
期待値：0.6666666…
実際の値：0.0

double型変数の場合

期待値：0.6666666…

実際の値：0.0

BigDecimal型変数の場合

期待値：0.6666666…

実際の値：0.0

【成功例】

・ソースコード

package main;

import java.math.BigDecimal;

public class Main {
    public static void main(String[] args) {

        // double型（実行速度重視）
        double x = 2.0/3.0;
        System.out.println("double型変数の場合");
        System.out.println("期待値：0.6666666…");
        System.out.println("実際の値："+x);

        // BigDecimal型（丸め誤差を気にする場合）
        BigDecimal y = BigDecimal.valueOf(2.0/3.0);
        System.out.println("BigDecimal型変数の場合");
        System.out.println("期待値：0.6666666…");
        System.out.println("実際の値："+y.doubleValue());

    }
}

package main;

import java.math.BigDecimal;

public class Main {

public static void main(String[] args) {

// double型（実行速度重視）

double x = 2.0/3.0;

System.out.println("double型変数の場合");

System.out.println("期待値：0.6666666…");

System.out.println("実際の値："+x);

// BigDecimal型（丸め誤差を気にする場合）

BigDecimal y = BigDecimal.valueOf(2.0/3.0);

System.out.println("BigDecimal型変数の場合");

System.out.println("期待値：0.6666666…");

System.out.println("実際の値："+y.doubleValue());

}

・実行結果

double型変数の場合
期待値：0.6666666…
実際の値：0.6666666666666666
BigDecimal型変数の場合
期待値：0.6666666…
実際の値：0.6666666666666666

double型変数の場合

期待値：0.6666666…

実際の値：0.6666666666666666

BigDecimal型変数の場合

期待値：0.6666666…

実際の値：0.6666666666666666

2019年5月4日2019年7月13日

C言語：ポインタの概念の図解

C言語を学ぶ上でポインタは重要概念で、この概念を理解していないと実務で通用するプログラミングはできません。
にもかかわらず、C言語の主要なつまずきポイントにもなってしまっており、未経験者のみならず他言語を学んできた方にとっても難しい概念です。
ポインタの難しさはイメージのしにくさにあり、イメージするにはコンピュータ内部の仕組みを理解する必要があります。
今回の記事では、ポインタのイメージをなるべく簡単に書きたいと思います。

【変数の領域の確保】

コンピュータにはメモリ領域が存在し、メモリ領域の中に様々なデータがセットされています。
メモリ領域は区分けされており、それぞれの区分けごとにアドレスが割り振られています。

プログラムで変数を宣言すると、そのメモリ領域の一部がその変数用に確保され、他の用途で使用されないようにします。
変数に値をセットすると、その変数用のメモリ領域が変更されます。

以上のことを図にすると以下のようになります。

なお、この挙動はC言語に限った話ではなく、他言語にも言えることです。

【アドレスの参照と値の参照】

ここからがC言語ならではの話になります。

他の言語では変数のメモリ領域が指す値のみを使用するのですが、C言語では変数のメモリ領域の（先頭）アドレスを使用することがあります。
通常の変数でも、「&」演算子をつけて参照することでアドレスを取得することができます。

そして、C言語では普通の変数の他にポインタ変数というものがあり、変数の宣言時に「*」演算子をつけることでポインタ変数になります。
ポインタ変数はアドレスを扱う用の変数であり、演算子をつけずに普通に参照するとアドレスを取得できます。
また、「*」演算子を付けて参照することで、その変数のメモリ領域が指す値を取得することができます。

以上のことを図にすると以下のようになります。

【コーディング例】

・test.c

#include ＜stdio.h＞

int main() {
    int a = 3;
    int *p;
    p = ＆a; //アドレスの代入
    printf("変数aの値　　　　　　　 %d\n", a);
    printf("ポインタ変数pの値　　　 %d\n", *p);
    printf("変数aのアドレス　　　　 %p\n", ＆a);
    printf("ポインタ変数pのアドレス %p\n", p);

    return 0;
}

#include ＜stdio.h＞

int main() {

int a = 3;

int *p;

p = ＆a; //アドレスの代入

printf("変数aの値　　　　　　　 %d\n", a);

printf("ポインタ変数pの値　　　 %d\n", *p);

printf("変数aのアドレス　　　　 %p\n", ＆a);

printf("ポインタ変数pのアドレス %p\n", p);

return 0;

}

　※HTMLエスケープ回避のため、特殊文字を全角文字にしています。ご了承ください。

・実行結果

変数aの値　　　　　　　 3
ポインタ変数pの値　　　 3
変数aのアドレス　　　　 (アドレスの値。実行環境によって変わります。)
ポインタ変数pのアドレス (↑と同じアドレスの値が表示されます。)

変数aの値　　　　　　　 3

ポインタ変数pの値　　　 3

変数aのアドレス　　　　 (アドレスの値。実行環境によって変わります。)

ポインタ変数pのアドレス (↑と同じアドレスの値が表示されます。)

【ポインタは何のために使うのか】

ポインタを使う理由は主に以下の２つです。

・関数で参照渡しをするために使う

　簡単に書くと、引数でポインタ変数を指定し、呼び出し先の関数でそのポインタ変数に値を代入すると、呼び出し元でもその代入された値を使用可能になります。
　C言語の関数は、多くの場合「ビジネスロジックで使用するアウトプットは参照渡しされた変数に代入し、returnではリターンコード(例：0なら正常、1以上ならエラー)を返す」という形になっています。

・インクリメント/デクリメントで次の/前の変数の値を取得するために使う

　文字列や配列の処理で使用します。