Compartir a través de

Servidor simultáneo de Microsoft

Los ejemplos de transacciones MSCS (mscmtics.cbl del programa) admiten tanto el estándar como el agente de escucha mejorado. El programa de transacciones se puede iniciar mediante el agente de escucha mejorado o estándar.

Cada agente de escucha pasa un mensaje de inicio de transacción único (TIM) al programa de transacciones cuando se inicia el servidor simultáneo. El agente de escucha estándar da formato y pasa el TIM que se muestra en el ejemplo de código siguiente. La longitud de este TIM es de 72 bytes.

01  TRANSACTION-INITIATION-MESSAGE.   
    05  GIVE-TAKE-SOCKET    PIC 9(8) COMP.  
    05  LSTN-NAME           PIC X(8).  
    05  LSTN-SUBNAME        PIC X(8).  
    05  CLIENT-IN-DATA      PIC X(35).  
    05  FILLER              PIC X(1).  
    05  SOCKADDR-IN-PARM.  
        15 SIN-FAMILY       PIC 9(4) COMP.  
        15 SIN-PORT         PIC 9(4) COMP.  
        15 SIN-ADDRESS      PIC 9(8) COMP.  
        15 SIN-ZERO         PIC X(8).

El agente de escucha mejorado da formato y pasa el TIM que se muestra en el ejemplo de código siguiente. La longitud de este TIM es de 189 bytes.

01  TRANSACTION-INITIATION-MESSAGE.   
    05  GIVE-TAKE-SOCKET    PIC 9(8) COMP.  
    05  LSTN-NAME           PIC X(8).  
    05  LSTN-SUBNAME        PIC X(8).  
    05  CLIENT-IN-DATA      PIC X(35).  
    05  FILLER              PIC X(1).  
    05  SOCKADDR-IN-PARM.  
        15 SIN-FAMILY       PIC 9(4) COMP.  
        15 SIN-PORT         PIC 9(4) COMP.  
        15 SIN-ADDRESS      PIC 9(8) COMP.  
        15 SIN-ZERO         PIC X(8).  
    05  FILLER              PIC X(80).  
    05  DATA-AREA-2-LEN     PIC 9(4) COMP.  
    05  DATA-AREA-2         PIC X(35).

El servidor simultáneo de ejemplo mscmtics.cbl puede determinar si se usó el cliente de escucha estándar o mejorado mediante la evaluación de la longitud del TIM recibido.

En un escenario en el que el agente de escucha mejorado inició el servidor simultáneo de Microsoft, el programa mscmtics.cbl examina los datos de cliente incluidos en el ELM que se encuentra en el campo TIM data area-2. Los datos de cliente contienen el nombre del programa del servidor CICS que se va a ejecutar y la longitud de los datos de solicitud que se van a recibir del cliente. En el ejemplo de código siguiente se muestra el contenido de este área de datos.

01 CLIENT-IN-DATA                    PIC X(35).  
01 FILLER REDEFINES CLIENT-IN-DATA.  
   05 CID-USERID                     PIC X(8).  
   05 CID-PASSWORD                   PIC X(8).  
   05 CID-LINK-TO-PROG               PIC X(8).  
   05 CID-COMMAREA-LEN               PIC S9(4) COMP.  
   05 CID-DATA-LEN                   PIC S9(8) COMP.  
   05 CID-VERSION                    PIC X.  
      88 CID-VERSION-1               VALUE X'00'.  
      88 CID-VERSION-2               VALUE X'01'.  
   05 CID-FLAGS                      PIC X(2).  
      88 CID-FLAGS-PERSISTENT-NONE   VALUE X'0001'.  
      88 CID-FLAGS-PERSISTENT-OPEN   VALUE X'0002'.  
      88 CID-FLAGS-PERSISTENT-USE    VALUE X'0004'.  
      88 CID-FLAGS-PERSISTENT-CLOSE  VALUE X'0008'.  
   05 CID-RESERVED                   PIC X.  
   05 CID-FORMAT                     PIC X.  
      88 CID-FORMAT-NOTSET           VALUE X'00'.  
      88 CID-FORMAT-MS               VALUE X'01'.  
      88 CID-FORMAT-IBM              VALUE X'02'.

Véase también

Solicitudes de transacción estándar y mensajes de respuesta
Mensajes de respuesta y solicitud de agente de escucha mejorados de CICS

  • Last updated on