z/OS Communications Server: IP IMS Sockets Guide
Previous topic | Next topic | Contents | Contact z/OS | Library | PDF


JCL for starting a message processing region

z/OS Communications Server: IP IMS Sockets Guide
SC27-3653-00

This topics shows an example of the JCL that is required to start an IMS™ message processing region in which TCP/IP servers can operate. Note the STEPLIB statements that point to TCP/IP and the C run-time library. A C run-time library is required when you use the GETHOSTBYADDR or GETHOSTBYNAME call. For more information, see z/OS Program Directory or the topic on C compilers and run-time libraries in the z/OS Communications Server: IP Sockets Application Programming Interface Guide and Reference.

This sample is based on the IMS procedure (DFSMPR). You might have to modify the language run-time libraries to match your programming language requirements.

//       PROC SOUT=A,RGN=2M,SYS2=,
//             CL1=001,CL2=000,CL3=000,CL4=000,
//             OPT=N,OVLA=0,SPIE=0,VALCK=0,TLIM=00,
//             PCB=000,PRLD=,STIMER=,SOD=,DBLDL=,
//             NBA=,OBA=,IMSID=IMS1,AGN=,VSFX=,VFREE=,
//             SSM=,PREINIT=,ALTID=,PWFI=N,
//             APARM=
//*
//REGION EXEC  PGM=DFSRRC00,REGION=&RGN,;
//             TIME=1440,DPRTY=(12,0),
//             PARM=(MSG,&CL1&CL2&CL3&CL4,;
//             &OPT&OVLA&SPIE&VALCK&TLIM&PCB,;
//             &PRLD,&STIMER,&SOD,&DBLDL,&NBA,;
//             &OBA,&IMSID,&AGN,&VSFX,&VFREE,;
//             &SSM,&PREINIT,&ALTID,&PWFI,;
//             '&APARM')
//&*;
//STEPLIB  DD DSN=IMS31.&SYS2;RESLIB,DISP=SHR
//         DD DSN=IMS31.&SYS2;PGMLIB,DISP=SHR
//         DD DSN=PLI.LL.V2R3M0.SIBMLINK,DISP=SHR
//         DD DSN=PLI.LL.V2R3M0.PLILINK,DISP=SHR
//         DD DSN=C370.LL.V2R2M0.SEDCLINK,DISP=SHR
//*        Use the following for LE/370 C run-time libraries:
//*        DD  DSN=CEE.V1R3M0.SCEERUN,DISP=SHR
//         DD DSN=TCPIP.SEZATCP,DISP=SHR
//PROCLIB  DD DSN=IMS31.&SYS2;PROCLIB,DISP=SHR
//SYSUDUMP DD  SYSOUT=&SOUT,DCB=(LRECL=121,BLKSIZE=3129,RECFM=VBA),;
//             SPACE=(125,(2500,100),RLSE,,ROUND)
//

Go to the previous page Go to the next page




Copyright IBM Corporation 1990, 2014