> For the complete documentation index, see [llms.txt](https://docs.editran.onesait.com/llms.txt). Markdown versions of documentation pages are available by appending `.md` to page URLs; this page is available as [Markdown](https://docs.editran.onesait.com/documentacion-editran/ibm-editran-v5.3-cics-en/tcp/os390-v2r4.-procedures-and-files.md).
# OS390 V2R4. Procedures and files
## TCP OS390 V2R4 startup procedure
```cobol
COMMAND INPUT ===> SCROLL ===> CSR
NP JOBNAME STEPNAME PROCSTEP JOBID OWNER C POS DP PGN REAL PAGING S
TCPIPROC TCPIPROC TCPIP STC00110 USERTCP NS 9B 0 5621 0.00 0.
BMCIDATR BMCIDATR BMCIDATR STC00127 BMCIDAT NS 8B 32 3579 0.00 0.
1 //TCPIPROC JOB MSGLEVEL=1
2 //STARTING EXEC TCPIPROC
3 XXTCPIP PROC MODULE='TCPIP',PARMS='NOSPIE/CTRACE(CTIEZA00)'
XX*
XX* TCP/IP for MVS
XX* SMP/E Distribution Name: EZAEB01G
XX*
XX* 5655-HAL (C) Copyright IBM Corp. 1989, 1996.
XX* All rights reserved.
XX* US Government Users Restricted Rights -
XX* Use, duplication or disclosure restricted
XX* by GSA ADP Schedule Contract with IBM Corp.
XX* See IBM Copyright Instructions
XX*
XX*
XX* NOSPIE must be specified in the PARMS above so TCPIP can run
XX* authorized - APAR PN65950.
XX*
XX* Added new CTRACE() keyword to specify default Component
XX* Trace SYS1.PARMLIB member. See &PARMS definition above
XX* for CTRACE(CTIEZA00) specification.
XX*
4 XXTCPIP EXEC PGM=EZAINMAN,
XX PARM='&MODULE,ERRFILE(SYSERR),HEAP(512),&PARMS',
XX REGION=17M,TIME=1440
IEFC653I SUBSTITUTION JCL - PGM=EZAINMAN,PARM='TCPIP,ERRFILE(SYSERR),H
REGION=17M,TIME=1440
5 XXSTEPLIB DD DSN=TCPIP.DESA.SEZATCP,DISP=SHR
6 XXSYSMDUMP DD SYSOUT=*
XX*
XX* The SYSPRINT, SYSERR, SYSERROR, and SYSDEBUG DDs can specify
XX* a dataset name or SYSOUT. All of these DDs support the use
XX* of alternate data sets, which are specified by replacing the
XX* DD name prefix SYS with SY1, SY2, or SY3.
XX* Output will cycle from the primary to the alternate data sets
XX* and around again as each data set fills.
XX*
XX* SYSPRINT contains runtime diagnostics from TCPIP.
XX*
7 XXSYSPRINT DD SYSOUT=*,DCB=(RECFM=VB,LRECL=137,BLKSIZE=0)
XX*
XX* SYSERR contains runtime diagnostics from Pascal.
XX*
8 XXSYSERR DD SYSOUT=*,DCB=(RECFM=VB,LRECL=137,BLKSIZE=0)
XX*
XX* SYSERROR contains error messages from TCPIP that occurred
XX* while processing the PROFILE and OBEYFILEs.
XX*
9 XXSYSERROR DD SYSOUT=*,DCB=(RECFM=VB,LRECL=137,BLKSIZE=0)
XX*
XX* SYSDEBUG receives output that is generated when the TRACE
XX* parameter is specified in the PROFILE data set.
XX*
10 XXSYSDEBUG DD SYSOUT=*,DCB=(RECFM=VB,LRECL=137,BLKSIZE=0)
XX*SY1DEBUG DD DSN=TCPIP.TRACE.ALT1,DISP=SHR
XX*SY2DEBUG DD DSN=TCPIP.TRACE.ALT2,DISP=SHR
XX*SY3DEBUG DD DSN=TCPIP.TRACE.ALT3,DISP=SHR
XX*
XX* TNDBCSCN is the configuration data set for TELNET DBCS
XX* transform mode.
XX*
XX*TNDBCSCN DD DSN=SW.TCPIP.SEZAPARM(TNDBCSCN),DISP=SHR
XX*
XX* TNDBCSXL contains binary DBCS translation table codefiles
XX* used by TELNET DBCS Transform mode.
XX*
XX*TNDBCSXL DD DSN=TCPIP.SEZAXLD2,DISP=SHR
XX*
XX* TNDBCSER receives debug output from TELNET DBCS Transform
XX* mode, when TRACE TELNET is specified in the PROFILE data se
XX*
XX*TNDBCSER DD SYSOUT=*
XX*
XX* The data set containing the configuration parameters for
XX* TCPIP can be explicitly allocated using the PROFILE DD
XX* statement. If the PROFILE DD statement is not present, a
XX* hierarchical name search and dynamic allocation will be
XX* performed. Please see "Understanding TCP/IP Data Set Names
XX* in the Customization and Administration Guide for more
XX* information. The data set name on the PROFILE DD statement
XX* can be any sequential data set or a member of
XX* partitioned data set (PDS).
XX*
11 XXPROFILE DD DSN=TCPIP.DESA.TCPPARMS(PROFILE),DISP=SHR
XX*
XX* SYSTCPD explicitly identifies which data set is to be
XX* used to obtain the parameters defined by TCPIP.DATA.
XX* The SYSTCPD DD statement should be placed in the TSO logon
XX* procedure or in the JCL of any client or server executed
XX* as a background task. The data set can be any sequential
XX* data set or a member of a partitioned data set (PDS).
XX*
XX* For more information please see "Understanding TCP/IP Data
XX* Set Names" in the Customization and Administration Guide.
XX*
12 XXSYSTCPD DD DSN=TCPIP.DESA.TCPPARMS(TCPDATA),DISP=SHR
```
## File profile OS390-V2R4 TCPIP.DESA.TCPPARMS (profile)
```
; PROFILE.TCPIP
ACBPOOLSIZE 1000
ADDRESSTRANSLATIONPOOLSIZE 1500
CCBPOOLSIZE 150
DATABUFFERPOOLSIZE 160 65536
ENVELOPEPOOLSIZE 750
IPROUTEPOOLSIZE 300
LARGEENVELOPEPOOLSIZE 200 32768
RCBPOOLSIZE 50
SCBPOOLSIZE 256
SKCBPOOLSIZE 256
SMALLDATABUFFERPOOLSIZE 1200
TCBPOOLSIZE 256
TINYDATABUFFERPOOLSIZE 500
UCBPOOLSIZE 100
INFORM
PDTSCO2 PDTSCO5
ENDINFORM
KEEPALIVEOPTIONS
INTERVAL 2
ENDKEEPALIVEOPTIONS
OBEY
NMD SYSTEM
PDTSCO2 PDTSCO5
ENDOBEY
ARPAGE 5
SYSCONTACT
COMMUNICATIONS DEPARTMENT
ENDSYSCONTACT
SYSLOCATION
PILOT ENTITY
ENDSYSLOCATION
DATASETPREFIX TCPIP.DESA
INTERNALCLIENTPARMS
PORT 23
INACTIVE 3600 ; 1 hour timeout
TIMEMARK 600
SCANINTERVAL 120
SMFINIT 200 ; Telnet Server SMF logging
SMFTERM 201 ; Telnet Server SMF logging
SMFEXIT ; calls the TCPTNSMF exit (passes to SOLVE and writes to SMF)
ENDINTERNALCLIENTPARMS
SMFPARMS 003 004 005 LOADEXIT ; calls the TCPCNSMF exit (passes and writes)
AUTOLOG
ENDAUTOLOG
PORT
23 TCP INTCLIEN ; TELNET SERVER
7777 TCP BMCIDATR ; CICS SOCKET (EDITRAN PORT) NOT REQUIRED
DEVICE OSA10 LCS 7000
LINK ETH10 ETHERNET 0 OSA10
DEVICE OSA11 LCS 7002
LINK ETH11 ETHERNET 1 OSA11
DEVICE OSA20 LCS 7500
LINK ETH20 ETHERNET 0 OSA20
DEVICE OSA21 LCS 7502
LINK ETH21 ETHERNET 1 OSA21
HOME
10.0.0.188 ETH10
10.1.1.188 ETH11
10.0.0.186 ETH20
10.1.1.186 ETH21
GATEWAY
; Network First Hop Link Name Packet Size Subnet Mask Subnet Value
10 = ETH10 1492 0.255.0.0 0.0.0.0
10 10.0.0.10 ETH10 1492 0.255.0.0 0.12.0.0
200 10.0.0.10 ETH10 1492 0
DEFAULTNET 10.1.1.1 ETH11 1492 0
TRANSLATE
NOTRACE
SCREEN
ASSORTEDPARMS
NOFWD ; No IP forwarding
MESSAGECASE MIXED ; TCP/IP messages in upper and lower case
TCPIPSTATISTICS; Sends certain statistics to OUTPUT
ENDASSORTEDPARMS
BEGINVTAM
ABENDRETRY
MSG07
3278-2 D4B32782
3279-2 D4B32782
3278-3 D4B32783
3279-3 D4B32783
3278-4 D4B32784
3279-4 D4B32784
3278-5 D4B32785
3279-5 D4B32785
3278-2-E NSX32702
3279-2-E NSX32702
3278-3-E NSX32703
3279-3-E NSX32703
3278-4-E NSX32704
3279-4-E NSX32704
3278-5-E NSX32705
3279-5-E NSX32705
INTERNAL LU GROUPS
NUIH7001.NUIH7016
ENDLUGROUP
RECTORA IPGROUP
ENTITY
255.255.0.0:10.0.0.0
ENDIPGROUP
RECTORA INTERNAL LUMAP
ALLOWAPPL *
USSTCP USTCPIN0 RECTORA
USSTCP USTINDRA REDINDRA
USSTCP USTCPIN1
ENDVTAM
START OSA10
START OSA11
START OSA20
START OSA21
******************************** Bottom of Data **
```
## File TCPDATA OS390-V2R4 TCPIP.DESA. TCPPARMS (TCPDATA)
In the hlq.TCPIP.DATA file there is no need to make any special entry, although the TCPIPJOBNAME parameter introduced at TCP startup must be checked. This parameter is the name of the startup procedure for the TCP/IP MVS address space. The default value is TCPIP. This parameter is entered in the local Editran environment menu (TCPNAME parameter).
```
¦ TCPIPJOBNAME TCPIP
```
The TCPIPJOBNAME parameter is the name of the startup procedure used to start the TCP/IP MVS address space.
```
********************************* Top of Data ****
; TCPIP.DATA
DATASETPREFIX TCPIP.DESA
HOSTNAME HOST03
MESSAGECASE MIXED
NSINTERADDR 10.0.0.7
NSPORTADDR 53
RESOLVEVIA UDP
RESOLVERTIMEOUT 10
RESOLVERUDPRETRIES 2
TCPIPJOBNAME TCPIPROC
******************************** Bottom of Data
```
## CICS OS390-V2R4 startup
```cobol
1 //BMCIDATR JOB MSGLEVEL=1
2 //STARTING EXEC BMCIDATR
3 XXBMCIDATR PROC
XX*-----------------------------------------------------------------
XX* DB2 INDOUBT THREAD RECOVERY
XX*-----------------------------------------------------------------
4 XXIEBEDIT EXEC PGM=IEBEDIT,COND=EVEN
5 XXSYSPRINT DD SYSOUT=*
6 XXSYSUT1 DD DISP=SHR,DSN=SYSB.PROCLIB(BMCIDRT0)
7 XXSYSUT2 DD SYSOUT=(A,INTRDR),DCB=BLKSIZE=80
8 XXSYSIN DD DUMMY
9 XXBMCIDATR EXEC PGM=DFHSIP,REGION=110M,TIME=1440,
XX PARM='SI,.END'
10 XXSYSIN DD DSN=BMCI.DAT4.JCL(DAT4D),DISP=SHR
11 XXSTEPLIB DD DSN=CICS410.DESA.SDFHAUTH,DISP=SHR
12 XX DD DSN=BMCI.DAT4.LOAD,DISP=SHR
13 XX DD DSN=DB2DI.RCTDAT4.LOADLIB,DISP=SHR
14 XX DD DSN=SYSB.DSN310.SDSNLOAD,DISP=SHR
16 XX DD DSN=CEE.SCEERUN,DISP=SHR
17 XX DD DSN=SYS1.CSSLIB,DISP=SHR
18 XX DD DSN=PERSER.V3R0.TCELOAD,DISP=SHR
19 XX DD DSN=PERSER.V3R0.LMKLOAD,DISP=SHR
20 XX DD DSN=TCPIP.DESA.SEZALINK,DISP=SHR
21 XXDFHRPL DD DSN=CICS410.DESA.SDFHLOAD,DISP=SHR
22 XX DD DSN=CEE.SCEECICS,DISP=SHR
23 XX DD DSN=CEE.SCEERUN,DISP=SHR
24 XX DD DSN=CODE.DESA.SEQAMOD,DISP=SHR
25 XX DD DSN=SYSB.DSN310.SDSNLOAD,DISP=SHR
26 XX DD DSN=BMCI.SISTEMAS.LOAD,DISP=SHR
27 XX DD DSN=BMCI.DAT4.LOAD,DISP=SHR
28 XX DD DSN=DESAD.CICS.OBJETOS,DISP=SHR
29 XX DD DSN=DESAD.CICS.LOADMAP,DISP=SHR
30 XX DD DSN=DESAD.RUTI.OBJETOS,DISP=SHR
31 XX DD DSN=DESAP.CICS.OBJETOS,DISP=SHR
32 XX DD DSN=DESAP.CICS.LOADMAP,DISP=SHR
33 XX DD DSN=DESAP.RUTI.OBJETOS,DISP=SHR
34 XX DD DSN=SYSB.CEMT.CICS3.LOADLIB,DISP=SHR
35 XX DD DSN=PERSER.V3R0.TCELOAD,DISP=SHR
36 XX DD DSN=PERSER.V3R0.LMKLOAD,DISP=SHR
37 XX DD DSN=CAI.INTERTES.V5R4.CACICS41,DISP=SHR
38 XX DD DSN=CAI.CATSS5.L9808.TSSRPL,DISP=SHR
41 XX DD DSN=BMMQ.UTIL.LOAD,DISP=SHR
42 XX DD DSN=BMMQ.UTIL.COPYMAP,DISP=SHR
43 XX DD DSN=TCPIP.DESA.SEZATCP,DISP=SHR
44 XX DD DSN=EDITRAN.V52.OBJETOS,DISP=SHR
45 XXIEFRDER DD DUMMY
46 XXDFHSNAP DD SYSOUT=X,OUTLIM=0
47 XXDFHTEMP DD DSN=BMCI.DAT4.DFHTEMP,DISP=SHR
48 XXDFHINTRA DD DSN=BMCI.DAT4.DFHINTRA,DISP=SHR
49 XXDFHAUXT DD DSN=BMCI.DAT4.DFHAUXT,DISP=SHR
50 XXDFHBUXT DD DSN=BMCI.DAT4.DFHBUXT,DISP=SHR
51 XXDFHJ01A DD DSN=BMCI.DAT4.DFHJ01A,DISP=SHR
52 XXDFHJ02A DD DSN=BMCI.DAT4.DFHJ02A,DISP=SHR
53 XXDFHJ01B DD DSN=BMCI.DAT4.DFHJ01B,DISP=SHR
54 XXDFHJ02B DD DSN=BMCI.DAT4.DFHJ02B,DISP=SHR
55 XXDFHJ01X DD DSN=BMCI.DAT4.DFHJ01X,DISP=SHR
56 XXDFHRSD DD DSN=BMCI.DAT4.DFHRSD,DISP=SHR
57 XXDFHLCD DD DSN=BMCI.DAT4.DFHLCD,DISP=SHR
58 XXDFHGCD DD DSN=BMCI.DAT4.DFHGCD,DISP=SHR
59 XXDFHDMPA DD DSN=BMCI.DAT4.DFHDMPA,DISP=SHR
60 XXDFHDMPB DD DSN=BMCI.DAT4.DFHDMPB,DISP=SHR
61 XXDFHCSD DD DSN=BMCI.DATR.DFHCSD.CICS41,DISP=SHR
62 XXBATCHRDR DD SYSOUT=(X,INTRDR)
63 XXDFHJOUT DD SYSOUT=(X,INTRDR)
64 XXMQMMSG DD SYSOUT=X
XX*
XX*------------ DESTINATION FOR EDITRAN -----------*
XX*
65 XXEDI1INTR DD SYSOUT=(A,INTRDR)
66 XXZTB1INTR DD SYSOUT=(A,INTRDR)
XX*
XX*------------ FILES FOR EDITRAN -----------*
XX*
67 XXBATCI DD DSN=&&EDITRA2,DISP=(,DELETE,DELETE),UNIT=BMVIO,
XX SPACE=(TRK,1)
68 XXBATCO DD DSN=&&EDITRA3,DISP=(,DELETE,DELETE),UNIT=BMVIO,
XX SPACE=(TRK,1)
69 XXZTB1I DD DUMMY
70 XXZTB1O DD DUMMY
79 XXTMONCNTL DD DSN=TMONCICS.V2R0D.CNTL,DISP=SHR
80 XXSYSABEND DD SYSOUT=A
81 XXSYSMDUMP DD SYSOUT=A
82 XXSYSUDUMP DD SYSOUT=I
83 XXDFHCXRF DD SYSOUT=X
84 XXLOGUSR DD SYSOUT=X,DCB=(DSORG=PS,RECFM=V,BLKSIZE=136)
85 XXMSGUSR DD SYSOUT=X,DCB=(DSORG=PS,RECFM=V,BLKSIZE=136)
86 XXLISTA DD SYSOUT=J,DCB=(DSORG=PS,RECFM=V,BLKSIZE=136)
87 XXMSGCSNE DD SYSOUT=X,DCB=(DSORG=PS,RECFM=V,BLKSIZE=136)
88 XXCEEMSG DD SYSOUT=X,DCB=(DSORG=PS,RECFM=V,BLKSIZE=161)
89 XXCEEOUT DD SYSOUT=X,DCB=(DSORG=PS,RECFM=V,BLKSIZE=136)
90 XXTCPCICS DD SYSOUT=X,DCB=(DSORG=PS,RECFM=V,BLKSIZE=136)
91 SYSTCPD DD DSN=TCPIP.DESA.TCPPARMS(TCPDATA),DISP=SHR
92 XXDB2ST DD SYSOUT=(,),DCB=(RECFM=V,BLKSIZE=136),OUTPUT=(*.OUT1)
93 XXOUT1 OUTPUT CLASS=S,FORMDEF=A10111,COPIES=2
94 XXIEBEDIT EXEC PGM=IEBEDIT,COND=EVEN
95 XXSYSPRINT DD SYSOUT=*
96 XXSYSUT1 DD DISP=SHR,DSN=SYSB.PROCLIB(BMCIDRT1)
97 XXSYSUT2 DD SYSOUT=(A,INTRDR),DCB=BLKSIZE=80
98 XXSYSIN DD DUMMY
```
In TCPCICS, the TCP messages are displayed:
```
EZY1261I 03/08/99 09:02:29 EZACIC03 ATTACH SUCCESSFUL, TCB ADDRESS=008A26F8 TERM= TRAN=ZTBA TASK=0000449
EZY1291I 03/08/99 09:02:29 LISTENER TRANSACTION= ZTBA TASKID= 0000449L ACCEPTING REQUESTS VIA PORT 7777
```
The SYSTCPD tab points to TCPDATA and is essential if we want to connect via DNS.
The LE370 libraries must be ahead of the TCP libraries.
---
# Agent Instructions
This documentation is published with GitBook. GitBook is the documentation platform designed so that both humans and AI agents can read, navigate, and reason over technical content effectively. Learn more at gitbook.com.
## Querying This Documentation
If you need additional information that is not directly available in this page, you can query the documentation dynamically by asking a question.
Perform an HTTP GET request on the current page URL with the `ask` query parameter, and the optional `goal` query parameter:
```
GET https://docs.editran.onesait.com/documentacion-editran/ibm-editran-v5.3-cics-en/tcp/os390-v2r4.-procedures-and-files.md?ask=&goal=
```
`ask` is the immediate question: it should be specific, self-contained, and written in natural language.
`goal` is optional and describes the broader end goal you are ultimately trying to accomplish on behalf of the user. GitBook uses it to tailor the answer towards what is most useful for that goal.
The response will contain a direct answer to the question and relevant excerpts and sources from the documentation.
Use this mechanism when the answer is not explicitly present in the current page, you need clarification or additional context, or you want to retrieve related documentation sections.