Freigeben über

Gleichzeitige Microsoft-Server

Die Beispiele für die MSCS-Transaktion (Programm mscmtics.cbl) unterstützen sowohl den Standard- als auch den erweiterten Listener. Das Transaktionsprogramm kann entweder mit dem Erweiterten Listener oder dem Standardlistener gestartet werden.

Jeder Listener übergibt eine eindeutige Transaktionsinitiierungsmeldung (TIM) an das Transaktionsprogramm, wenn der Concurrent Server gestartet wird. Der Standardlistener formatiert und übergibt die im folgenden Codebeispiel gezeigte TIM. Die Länge dieses TIM beträgt 72 Byte.

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).

Der erweiterte Listener formatiert und übergibt die im folgenden Codebeispiel gezeigte TIM. Die Länge dieses TIM beträgt 189 Byte.

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).

Das Mscmtics.cbl-Beispiel für concurrent Server kann ermitteln, ob der Standard- oder der erweiterte Listener verwendet wurde, indem die Länge des empfangenen TIM ausgewertet wird.

In einem Szenario, in dem der erweiterte Listener den Microsoft Concurrent Server gestartet hat, untersucht das Programm mscmtics.cbl den Client-in-Data, der in der ELM im FELD TIM-Datenbereich-2 enthalten ist. Der Client-in-Data enthält den Namen des auszuführenden CICS-Serverprogramms und die Länge der Anforderungsdaten, die vom Client empfangen werden sollen. Das folgende Codebeispiel zeigt den Inhalt dieses Datenbereichs.

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'.

Weitere Informationen

Standardmeldungen für Transaktionsanforderungen und -antworten
Erweiterte Meldungen für CICS-Listeneranfragen und -antworten

  • Last updated on