In this example, a 10-byte alphabetic pattern is rippled. At the end of the job step the first output record contains "ABCDEFGHIJ", followed by data in location 11 through 80 from the input record; the second record contains "BCDEFGHIJK" followed by data in locations 11 through 80, and so forth.

  //RIPPLE   JOB  ...
  //STEP1    EXEC PGM=IEBDG
  //SYSPRINT DD  SYSOUT=A
  //SEQIN    DD  DSNAME=INSET,UNIT=tape,VOL=SER=222222,
  //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),DISP=(OLD,KEEP)
  //SEQOUT   DD  DSNAME=OUTSET,UNIT=disk,VOLUME=SER=111111,
  //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
  //             DISP=(,KEEP),SPACE=(TRK,(10,10))
  //SYSIN    DD  *
       DSD     OUTPUT=(SEQOUT),INPUT=(SEQIN)
       FD      NAME=FIELD1,LENGTH=10,FORMAT=AL,ACTION=RP,STARTLOC=1
       CREATE  QUANTITY=100,INPUT=SEQIN,NAME=FIELD1
       END
  /*

The control statements are as follows:

• SEQIN DD defines an input sequential data set (INSET). The data set was originally written on a standard labeled tape volume.
• SEQOUT DD defines the test output data set (OUTSET). Ten tracks of primary space and ten tracks of secondary space are allocated for the sequential data set on a disk volume.
• SYSIN DD defines the control data set, which follows in the input stream.
• DSD marks the beginning of a set of utility control statements and refers to the DD statements defining the input and output data sets.
• The FD statement creates a 10-byte field in which the pattern ABCDEFGHIJ is initially placed. The data is rippled after each output record is written.
• CREATE constructs 100 output records in which the contents of a previously defined field (FIELD1) are included. The CREATE statement uses input records from data set INSET as the basis of the output records.
• END signals the end of a set of utility control statements.