■  フィールド充填


MOVE FILL文を使えば長い項目のあまった部分に文字列を充填することができます。

EX)
FILE INFILE
AAA    1   3  A
BBB    *   5  P
CCC    *   5  P
FILE OUTFILE
BBB    1   5  P
XXX    *  20  A
YYY    *  20  A
ZZZ    *  20  A
*
LEN    W   3  P VALUE 5
*
JOB INPUT INFILE
    MOVE LIKE INFILE TO OUTFL
    MOVE '*' TO XXX FILL '#'     ←2〜20バイトに#をセット
    MOVE '@' TO YYY 10 FILL '#'  ←2〜11バイトに#をセット、それ以降は空白
    MOVE '%' TO ZZZ LEN FILL '#' ←2〜6バイトに#をセット、それ以降は空白
    PUT OUTFL

 



BEFORE PAGE

TOP PAGE