CRASUB*

Replace the following part:
... PARM(&PORT &TIMEOUT)
with this (where TCPIP represents the desired TCP/IP stack):
... PARM(ENVAR("_BPXK_SETIBMOPT_TRANSPORT=TCPIP") / &PORT &TIMEOUT)
Note: Job submission limits line length to 80 characters. You can break a longer line at a blank ( ) and use a plus (+) sign at the end of the first line to concatenate 2 lines.