先創建一個分區數據集，然後將一個流內字符串傳入分區數據集中的member

 //PRD JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)                 
 //STEP1 EXEC PGM=IEFBR14                                    
 //FILE DD DSN=IBMUSER.HERMAN.SET,                           
 //        DISP=(NEW,CATLG,DELETE),                          
 //        SPACE=(TRK,(2,1,1),RLSE),                         
 //        DCB=(LRECL=80,BLKSIZE=3200,DSORG=PO,RECFM=FB)     
 //STEP2 EXEC PGM=IEBGENER                                   
 //SYSPRINT DD SYSOUT=*                                      
 //SYSUT1 DD *                                               
 THIS IS A MESSAGE                                           
 /*                                                          
 //SYSUT2 DD DSN=IBMUSER.HERMAN.SET(MEMBER),                 
 //          DISP=(OLD,CATLG,KEEP)                           
 //SYSIN DD DUMMY