Compartir a través de

Servidor simultáneo de Microsoft

  • Artículo

Los ejemplos de transacciones MSCS (program mscmtics.cbl) admiten tanto el cliente de escucha 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 cliente 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 formatos 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 agente 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 ÁREA de datos TIM-2. Los datos de cliente contienen el nombre del programa 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'.

Consulte también

Mensajes de solicitud y respuesta de transacción estándar
Mensajes de solicitud y respuesta del agente de escucha de CICS mejorado