データ・セットのレコードの更新

次の例では、区分データ・セット FMNUSER.TESTPDS のすべてのメンバーから「JAMES」(6 桁目から始まる) と「BROWNE」(20 桁目から始まる) の両方が入っているレコードを検索して、これらのレコードの「JAMES」を「JIMMY」に変更します。

⋮
$$FILEM DSU DSNIN='FMNUSER.TESTPDS',
$$FILEM  MEMBER=*,
$$FILEM  PROC=*
if fld(1,5) == 'JAMES' & fld(20,6) == 'BROWNE' then
   CHG_OUT('JAMES', 'JIMMY', 0)
/+
⋮