CRASUB*

Sustituya la siguiente parte:
... PARM(&PORT &TIMEOUT)
por esta (donde TCPIP representa la pila TCP/IP deseada):
... PARM(ENVAR("_BPXK_SETIBMOPT_TRANSPORT=TCPIP") / &PORT &TIMEOUT)
Nota: El envío de trabajos limita la longitud de línea a 80 caracteres. Puede dividir una línea más larga en un espacio en blanco ( ) y utilizar un signo más (+) al final de la primera línea para concatenar las dos líneas.