データ部の配置 Ｐ.18プログラムマップと ｐ.15データ部の記述 data division. file section. fd ken-file. 01 ken-rec. 05 kencode picture 9(02). 05 kenmei picture X(08). 05 menseki picture 9(05). 05 jinko picture 9(05). fd itiran-file. 01 itiran-rec picture X(132). working-storage section. 01 e-flg picture X(03). 01 meisai-gyo. 05 filler picture X(09) value space. 05 m-kencode picture 9(02). 05 filler picture X(05) value space. 05 m-kenmei picture X(08). 05 filler picture X(05) value space. 05 m-menseki picture 9(05). 05 filler picture X(05) value space. 05 m-jinko picture 9(05). 入力領域に入力ファイルの 内容を記述した部分 data division. file section. fd ken-file. 01 ken-rec. 05 kencode picture 9(02). 05 kenmei picture X(08). 05 menseki picture 9(05). 05 jinko picture 9(05). fd itiran-file. 01 itiran-rec picture X(132). working-storage section. 01 e-flg picture X(03). 01 meisai-gyo. 05 filler picture X(09) value space. 05 m-kencode picture 9(02). 05 filler picture X(05) value space. 05 m-kenmei picture X(08). 05 filler picture X(05) value space. 05 m-menseki picture 9(05). 05 filler picture X(05) value space. 05 m-jinko picture 9(05). 作業領域について作業場所節に記 述した部分 data division. file section. fd ken-file. 01 ken-rec. 05 kencode picture 9(02). 05 kenmei picture X(08). 05 menseki picture 9(05). 05 jinko picture 9(05). fd itiran-file. 01 itiran-rec picture X(132). working-storage section. 01 e-flg picture X(03). 01 meisai-gyo. 05 filler picture X(09) value space. 05 m-kencode picture 9(02). 05 filler picture X(05) value space. 05 m-kenmei picture X(08). 05 filler picture X(05) value space. 05 m-menseki picture 9(05). 05 filler picture X(05) value space. 05 m-jinko picture 9(05). 出力領域について出力ファイルと出力レ コードを記述した部分 data division. file section. fd ken-file. 01 ken-rec. 05 kencode picture 9(02). 05 kenmei picture X(08). 05 menseki picture 9(05). 05 jinko picture 9(05). fd itiran-file. 01 itiran-rec picture X(132). working-storage section. 01 e-flg picture X(03). 01 meisai-gyo. 05 filler picture X(09) value space. 05 m-kencode picture 9(02). 05 filler picture X(05) value space. 05 m-kenmei picture X(08). 05 filler picture X(05) value space. 05 m-menseki picture 9(05). 05 filler picture X(05) value space. 05 m-jinko picture 9(05). 出力ファイルの名前は itiran-file です。 data division. file section. fd ken-file. 01 ken-rec. 05 kencode picture 9(02). 05 kenmei picture X(08). 05 menseki picture 9(05). 05 jinko picture 9(05). fd itiran-file. 01 itiran-rec picture X(132). working-storage section. 01 e-flg picture X(03). 01 meisai-gyo. 05 filler picture X(09) value space. 05 m-kencode picture 9(02). 05 filler picture X(05) value space. 05 m-kenmei picture X(08). 05 filler picture X(05) value space. 05 m-menseki picture 9(05). 05 filler picture X(05) value space. 05 m-jinko picture 9(05). 出力レコードの名前は itiran-rec です。 Pic X（１３２）、文字で132ケタのデータ です？ data division. file section. fd ken-file. 01 ken-rec. 05 kencode picture 9(02). 05 kenmei picture X(08). 05 menseki picture 9(05). 05 jinko picture 9(05). fd itiran-file. 01 itiran-rec picture X(132). working-storage section. 01 e-flg picture X(03). 01 meisai-gyo. 05 filler picture X(09) value space. 05 m-kencode picture 9(02). 05 filler picture X(05) value space. 05 m-kenmei picture X(08). 05 filler picture X(05) value space. 05 m-menseki picture 9(05). 05 filler picture X(05) value space. 05 m-jinko picture 9(05). 明細行の１行を全体的に出力レコードに内 容を移す場所が、出力レコードです。 data division. file section. fd ken-file. 01 ken-rec. 05 kencode picture 9(02). 05 kenmei picture X(08). 05 menseki picture 9(05). 05 jinko picture 9(05). fd itiran-file. 01 itiran-rec picture X(132). working-storage section. 01 e-flg picture X(03). 01 meisai-gyo. 05 filler picture X(09) value space. 05 m-kencode picture 9(02). 05 filler picture X(05) value space. 05 m-kenmei picture X(08). 05 filler picture X(05) value space. 05 m-menseki picture 9(05). 05 filler picture X(05) value space. 05 m-jinko picture 9(05). Ｐ.15 出力レコードの性質とケタ 数は、プリンタの最大ケタ数を用 いる。 132ケタはかつてのページプリン タの最大ケタ数でした。 data division. file section. fd ken-file. 01 ken-rec. 05 kencode picture 9(02). 05 kenmei picture X(08). 05 menseki picture 9(05). 05 jinko picture 9(05). fd itiran-file. 01 itiran-rec picture X(132). working-storage section. 01 e-flg picture X(03). 01 meisai-gyo. 05 filler picture X(09) value space. 05 m-kencode picture 9(02). 05 filler picture X(05) value space. 05 m-kenmei picture X(08). 05 filler picture X(05) value space. 05 m-menseki picture 9(05). 05 filler picture X(05) value space. 05 m-jinko picture 9(05). data division. file section. fd ken-file. 01 ken-rec. 05 kencode picture 9(02). 05 kenmei picture X(08). 05 menseki picture 9(05). 05 jinko picture 9(05). fd itiran-file. 01 itiran-rec picture X(132). working-storage section. 01 e-flg picture X(03). 01 meisai-gyo. 05 filler picture X(09) value space. 05 m-kencode picture 9(02). 05 filler picture X(05) value space. 05 m-kenmei picture X(08). 05 filler picture X(05) value space. 05 m-menseki picture 9(05). 05 filler picture X(05) value space. 05 m-jinko picture 9(05).
© Copyright 2024 ExpyDoc
