>691をもう一度質問させてください。
入力データに記載されている受付日は2000年以降のものしかないため、受付日の先頭に20を追加します。
なお、判定日の1ヶ月前年月はサブモジュールで実装しています。
振り分けの条件では、年月のみで比較します。
（例）
　受付日　080629 　　→200806　（'20'）を追加
　判定日　20080806　　→200808
　
また、Copy句ファイル(BSCP10A)には、
　10 'XXX-KEY-KOMOKU'
　 15 'XXX'-RIYOU-YMD PIC X(06).
　 15 'XXX'-RIYOU-ZIKOKU PIC X(06).
　
と定義されています。
以下のように実装してみました。（抜粋）
WORKING-STORAGE SECTION.
01　DATA-IN. COPY BS10A SUPPRESS PREPLACING =='XXX'==BY==BS10A==.
01　DATA-OUT1. COPY BS10A SUPPRESS PREPLACING =='XXX'==BY==BS10A==.
01　DATA-OUT2. COPY BS10A SUPPRESS PREPLACING =='XXX'==BY==BS10A==.
01 WORK-AREA. //ここに受付日を8桁にする方法を記述？
05 WK-DATA-RIYOBI.
PROCEDURE DIVISION.
*--<主処理>--
MOVE BS10A-RIYOU-YMD TO WK-DATA-RIYOBI.
//以下に振り分け条件記述
6桁にした受付日と判定日の1ヶ月前年月を比較

入力データの受付日に20を追加して6桁にする方法を教えてください。どうか皆様のお力を貸してください。
お願いします。