OS390 V2R4. Procedimientos y ficheros

Procedimento de arranque de TCP OS390 V2R4

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                             
    SISTEMA NMD                  
    PDTSCO2 PDTSCO5              
ENDOBEY                          
ARPAGE 5                      
SYSCONTACT                    
   DEPARTAMENTO COMUNICACIONES
ENDSYSCONTACT                  
SYSLOCATION                   
   ENTIDAD PILOTO            
ENDSYSLOCATION                
DATASETPREFIX TCPIP.DESA                                                  
INTERNALCLIENTPARMS                                                        
      PORT 23                                                             
      INACTIVE 3600 ; 1 hora timeout                                      
      TIMEMARK 600                                                        
      SCANINTERVAL 120                                                     
      SMFINIT 200 ; SMF Logging del Telnet Server                         
      SMFTERM 201 ; SMF Logging del Telnet Server                         
      SMFEXIT     ; llama a la exit TCPTNSMF (pasa a SOLVE y graba en SMF)
ENDINTERNALCLIENTPARMS                                                    
SMFPARMS 003 004 005 LOADEXIT    ; llama a TCPCNSMF exit (pasa y graba)
AUTOLOG                                      
ENDAUTOLOG                                    
PORT                                                              
23   TCP INTCLIEN            ; TELNET SERVER                    
7777 TCP BMCIDATR            ; CICS SOCKET (PUERTO EDITRAN) NO OBLIGATORIO            
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   ; Mensajes de TCP/IP en mayusculas y minusculas   
  TCPIPSTATISTICS; Manda a OUTPUT ciertas estadísticas             
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           
LUGROUP INTERNAS
NUIH7001.NUIH7016         
 ENDLUGROUP                    
IPGROUP RECTORA
ENTIDAD              
    255.255.0.0:10.0.0.0       
 ENDIPGROUP                    
                               
 LUMAP INTERNAS RECTORA        
 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)

En el fichero hlq.TCPIP.DATA no hay que hacer ninguna entrada especial, aunque hay que chequear el parámetro TCPIPJOBNAME que se ha introducido en el arranque del TCP. Este parámetro es el nombre del procedimiento de arranque del TCP/IP MVS address space. El valor por defecto es TCPIP. Este parámetro se introduce en el menú del entorno local de editran (parámetro TCPNAME).

 ¦   TCPIPJOBNAME     TCPIP

El parámetro TCPIPJOBNAME es el nombre del procedimiento de arranque usado para arrancar el 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
 

Arranque del CICS OS390-V2R4

       1 //BMCIDATR JOB MSGLEVEL=1                                          
       2 //STARTING EXEC BMCIDATR                                           
       3 XXBMCIDATR PROC                                                    
         XX*-----------------------------------------------------------------
         XX*            RECOVER DE THREADS DB2 INDOUBT                      
         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*------------    DESTINO PARA EDITRAN     -----------*        
         XX*                                                             
      65 XXEDI1INTR DD SYSOUT=(A,INTRDR)                                 
      66 XXZTB1INTR DD SYSOUT=(A,INTRDR)                                 
         XX*                                                             
         XX*------------    FICHEROS PARA 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                                                 

En la TCPCICS, se van visualizando los mensajes TCP:

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

La ficha SYSTCPD apunta al TCPDATA y es fundamental si queremos hacer connect vía DNS.

Las librerías LE370 deben estar por delante de las de TCP.