例 7

 OPTION COPY,Y2PAST=1985
   OUTREC FIELDS=(SEQNUM,8,ZD,START=1000,INCR=100,
                 11:8,4,PD,M12,
                 31:15,4,Y2V(/),
                 51:2,1,CHANGE=(3,
                          X'01',C'L92',X'02',C'M72',X'03',C'J42'),
                        NOMATCH=(C'???'))

この例は、シーケンス番号を生成する方法、数値形式および日付形式の値を編集する方法、および参照テーブルの使用方法を表しています。

再フォーマット設定された出力レコードは、次のようになります。

位置: 内容
1-8: 1000 から始まり、100 ずつ増分されるゾーン 10 進数のシーケンス番号。
11–20: M12 編集マスクに従って編集された入力位置 8 から 11 からの PD フィールドを含む CH フィールド。
31-40: 1985 から 2084 の指定された「世紀」ウィンドウに従って変換された、入力位置 15 から 18 からの P'yymmdd' 日付フィールドを含む C'yyyy/mm/dd' 日付フィールド。
51–53: C'L92'、C'M72'、C'J42'、または C'???' を含む CH フィールド (2 桁目の入力フィールドの参照テーブルを使用して判別したもの)。