【基本情報技術者試験平成14年春期午後】問題と解答

[TOP] [午前分野別] [午後分野別] [キーワード索引] [令和元年秋午前] [令和元年秋午後]

平成14年春期基本情報技術者午後問11

問11　　 COBOL

　次の COBOL プログラムの説明及びプログラムを読んで，設問に答えよ。

〔プログラムの説明〕

　文字列データが入っているファイルを読み，段落ごとに分解・結合してファイルに出力するプログラムである。文字列データは，固定長のレコードに分割されて，順ファイルに格納してある。このファイルを１レコードずつ読み込み，１段落を１レコードとして再構成し，ファイルに出力する。ここで，文字列データの各１文字は，入出力レコードの１けたに格納される。

(1)　文字列データの構成は，次のとおりである。

①　文字列データは一つ以上の段落の集まりである。

②　段落は，英字，数字，空白，コンマ，ピリオド，及びセミコロンで構成される。

③　セミコロンは，各段落の終端の文字として必ず出現し，それ以外の位置には出現しない。

④　１段落の長さは可変であり，セミコロンを除いて，０文字以上 1,000 文字以下である。

COBOL △is△an△industry△language.;An△implementation△may△flag△violations△ of△rules.;;This△statement△provides△the△ability△to△tally△or△replace△ occurrences△of△single△characters△or△sequences△of△characters△in△a△ data△item.;

　　　図１　文字列データの例（△ は空白を示す）

(2)　入力ファイルの様式は，次のとおりである。

①　１レコード 100 けたの固定長順ファイルである。

②　文字列データの長さが 100 の倍数でないとき，最後の段落のセミコロンの後ろには， 100けたになるように空白が埋められている。

(3)　出力ファイルの様式は，次のとおりである。

①　1 レコード 1,000 けたの固定長順ファイルである。

②　1 レコードに１段落が格納されている。

③　段落の終端文字であるセミコロンは出力しない。

④　段落が１レコードに満たないときは，後ろに空白を埋める。

(4)　図１の文字列データに対応する入力ファイル及び出力ファイルを図２，図３に示す。

　　図２　入力ファイルの例（△ は空白を示す）

　　図３　出力ファイルの例（△ は空白を示す）

(5)　プログラム中で使われている INSPECT 文の形式と動作は次のとおりである。

〔形式〕

INSPECT 一意名 1 TALLYING 一意名 2

FOR CHARACTERS BEFORE 一意名 3

〔一意名の制約〕

一意名 1：用途が明示的又は暗黙的に DISPLAY であるデータ項目

一意名 2：数字項目

一意名 3：用途が明示的又は暗黙的に DISPLAY で，長さが１文字のデータ項目

〔動作〕

一意名 1 の内容を最左端文字位置から検査し，一意名 3 の内容に最初に一致する直前までの文字数を一意名 2 に加える。一意名 3 の内容が一意名 1 の中に出現しない場合，一意名 1 の最左端文字位置から最右端文字位置までの文字数を一意名 2 に加える。

〔プログラム〕

DATA DIVISION.
FILE SECTION.
FD  TEXT-FILE.
01  TEXT-CHUNK  PIC X(100).
FD  RECD-PER-PARA-FILE.
01  RECD-PER-PARA-RECD  PIC X(1000).
WORKING-STORAGE SECTION.
01  PARA-DELIMITER-CODE  PIC X(1) VALUE ";".
01  TEXT-LOC    PIC 9(9).
01  RECD-LOC    PIC 9(9).
01  TEXT-LEN    PIC 9(9).
01  TEXT-FILE-EOF-FLG  PIC X(1).
  88  TEXT-FILE-EOF     VALUE "Y".
  88  TEXT-FILE-NOT-EOF VALUE "N".
PROCEDURE DIVISION.
MAIN-PARAGRAPH.
    OPEN INPUT   TEXT-FILE
         OUTPUT  RECD-PER-PARA-FILE.
    SET TEXT-FILE-NOT-EOF TO TRUE.
    MOVE 1 TO RECD-LOC.
    MOVE SPACE TO RECD-PER-PARA-RECD.
    PERFORM UNTIL TEXT-FILE-EOF
       READ TEXT-FILE
          AT END
             SET TEXT-FILE-EOF TO TRUE
          NOT AT END
             PERFORM DECOMPOSE-WRITE
       END-READ
    END-PERFORM.
    CLOSE TEXT-FILE RECD-PER-PARA-FILE.
    STOP RUN.
DECOMPOSE-WRITE.
    .
    PERFORM UNTIL TEXT-LOC > 100
        
       INSPECT TEXT-CHUNK(TEXT-LOC:) TALLYING TEXT-LEN
             FOR CHARACTERS BEFORE PARA-DELIMITER-CODE
       IF TEXT-LEN > 0 THEN
          MOVE TEXT-CHUNK()
               TO RECD-PER-PARA-RECD()
       END-IF
       IF TEXT-LOC + TEXT-LEN  100 THEN
          WRITE RECD-PER-PARA-RECD
          MOVE 1 TO RECD-LOC
          MOVE SPACE TO RECD-PER-PARA-RECD
       ELSE
          COMPUTE RECD-LOC = RECD-LOC + TEXT-LEN
       END-IF
       COMPUTE TEXT-LOC = 
    END-PERFORM.