$MATRIX TRANSPOSE
$FILES
 INPUT FILE = TRNSPIN, USER ID = $GMVOL.DAT$
 OUTPUT FILE = TRNSPOT, USER ID = $WKTRNSPO.DAT$
$HEADERS
 CREATE TRANSPOSED WORK TRIP FILE
$OPTIONS
 PRINT TRIP ENDS
$PARAMETERS
 SELECTED PURPOSES = 1
$END TP FUNCTION