COBOL 異なるバイトのデータ項目への転記方法

Question

COBOLに詳しい方おられたら教えてください。

FD TEST-FILE.
01 TEST-REC.
   03 TEST-ID       PIC  9(02).
   03 TEST-NUM1   PIC  X(07).
   03 TEST-NUM2    PIC  X(13).

入力ファイルのレイアウト上「01 TEST-REC」の「03 TEST-NUM2 PIC X(13)」には「0000001234567」といったふうに前6ケタがゼロ、後7ケタにランダムな数字が読み込まれます。その数字の後7ケタだけを取り出し「 03 TEST-NUM1 PIC X(07)」に再代入して、REWRITE文で更新したいのですが、後7ケタだけを取り出す方法が分かりません。桁よせ規則上、Xタイプで自分より小さいバイトのデータ項目に転記されるときは、左詰めでケタ溢れ部分は切り捨てる、と参考書にも書いてありどうしてよいか困っています。
※入力ファイルのレイアウトやデータ項目の定義は変更できません。

Answer 1

TEST-NUM2を、X(6)とX(7)の集団項目にREDEFINESして、X(7)部分を参照します。

Comments

[yuki_h]

ありがとうございます。大変助かりました。
9(13)⇒9(07)でMOVEして無理やり詰め込むところでした。