000100 //RZE0008X JOB NOTIFY=&SYSUID,REGION=512K,TIME=1
 000200 //*STEP 1
 000300 //STEP1 EXEC PGM=IEBDG
 000400 //SYSPRINT DD SYSOUT=*
 000500 //SYSIN DD *
 000600  DSD    OUTPUT=(OUTSET)
 000700  FD     NAME=FIELD1,LENGTH=3,PICTURE=3,'DDD',ACTION=FX
 000800  FD     NAME=FIELD2,LENGTH=6,PICTURE=6,'DDD   ',ACTION=RO
 000900  FD     NAME=FIELD3,LENGTH=8,PICTURE=8,'UUU     ',ACTION=FX
 001000  FD     NAME=FIELD4,LENGTH=8,PICTURE=8,' BB    B',ACTION=RO
 001100  FD     NAME=FIELD5,LENGTH=8,PICTURE=8,'   AAA  ',ACTION=RO
 001200  FD     NAME=FIELD6,LENGTH=8,PICTURE=8,'   CCCCC',ACTION=RO
 001300  FD     NAME=FIELD7,LENGTH=8,PICTURE=8,'  DDDD  ',ACTION=WV
 001400  FD     NAME=FIELD8,LENGTH=8,PICTURE=8,'  C  CC ',ACTION=WV
 001500  FD     NAME=FIELD9,LENGTH=8,PICTURE=8,'  DD   D',ACTION=WV
 001600  FD     NAME=FIELD10,LENGTH=8,PICTURE=8,'  CCC   ',ACTION=WV
 001700  CREATE QUANTITY=5,NAME=(FIELD1,FIELD2,FIELD3,FIELD4,FIELD5,         X
 001800         FIELD6,FIELD7,FIELD8,FIELD9,FIELD10)
 001900  END
 001901 //SYSPRINT DD SYSOUT=*
 001902 //SYSIN DD *
 001910  DSD    OUTPUT=(OUTSET)
 001920  FD     NAME=POLE1,LENGTH=8,PICTURE=8,'YYYYYYYY',ACTION=FX
 001930  FD NAME=POLE2,LENGTH=8,PICTURE=8,'XXXXXXXX',ACTION=FX
 001940  CREATE QUANTITY=2,NAME=(POLE1,POLE2)
 001950  END
 002000 //OUTSET DD DSN=RZE0008.TESTDOM.A1,DISP=(NEW,CATLG),
 002100 //      RECFM=F,LRECL=80,SPACE=(80,300)
 002200 //*STEP 2
 002300 //STEP2 EXEC PGM=IEBGENER,COND=(0,NE,STEP1)
 002400 //SYSPRINT DD SYSOUT=*
 002500 //SYSUT1 DD DSN=RZE0008.TESTDOM.A1,DISP=(SHR)
 002600 //SYSUT2 DD DSN=RZE0008.TESTDOM.A1A,DISP=(NEW,CATLG),
 002700 //      RECFM=FB,LRECL=80,BLKSIZE=3200,SPACE=(80,300)
 002800 //SYSIN DD DUMMY