//RECREAT1  EXEC   PGM=IEWTPORT
   //SYSUT1    DD     DSN=FEB.CALC2.TRANS,DISP=SHR
   //SYSUT2    DD     DSN=FEB.CALCS,DISP=OLD
   //SYSPRINT  DD     SYSOUT=*
   //IEWTRACE  DD     SYSOUT=*

The data set FEB.CALC2.TRANS is a sequential data set containing one transportable program. FEB.CALCS is the name of a PDSE program library. IEWTPORT recreates the program object from the transportable program read in from the sequential data set, FEB.CALC2.TRANS. The program object is restored with its original name, alias names, and attributes.