COBOLの検索方法について

質問

はじめまして。今、COBOLでプログラムを作成しているんですが初めて触る言語でわからない事が多いです。その中でデータを最後から検索して最初のスペースがあれば、それより前のデータをを出力するというのがあるのですが、やり方がよくわかりません。わかりやすく教えてもらえませんか？
図で表すと
AAAAAA　BBBBBB　CCCCCCCC
これをCから検索して、最初のスペース（BとCの間）から左側を出力するプログラムで

回答No.1

maiko0318

01 flg x(1) value "1".
01 mojiretu.
02 moji x(1) occurs 30.

とおき、

perform A-rtn varying i from 30 by -1 until i = 1.

A-rtn.
if flg = "1" and moji(i) not = space
then flg = "2".
if flg = "2" and moji(i) = space
then 「moji(1)～moji(i-1) が答え」.

お礼

遅くなりましたが、ありがとうございました。