データ・セットの編集

次の例は、DSEB (データ・セット編集バッチ) 機能を使用して、バッチ・ジョブからデータ・セットを編集する方法を示します (この例は、「それ自体」を直接編集します)。
⋮
$$FILEM DSEB DSNIN=FMNUSER.JCL(AAADSU4),
$$FILEM  PROC=*

bot()                     /* Go to the last record */
rc = findprev('/+')       /* Find the input sentinel */
If rc ¬= 0 then do        /* We found it ok */
  say 'We found it at' rc
  up(1)                   /* backup a record */
  outrec = change(inrec,'fred','john')    /* change fred to john */
  say 'inp-'inrec
  say 'out-'outrec
  update()                          /* and do the update */
  end

rc = findprev('sentinel',40)
If rc ¬= 0 then do
  outrec = change(inrec,'sentinel','marker  ')
  update()
  end

 /* this is a comment with fred in it */
/+
⋮