//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.