Freigeben über

Microsoft Gleichzeitiger Server

Die MSCS-Transaktion (Programm mscmtics.cbl) unterstützt sowohl den Standard als auch den erweiterten Listener. Das Transaktionsprogramm kann entweder vom Erweiterten Listener oder Standardlistener gestartet werden.

Jeder Listener übergibt eine eindeutige Transaktionsinitiierungsnachricht (TIM) an das Transaktionsprogramm, wenn der gleichzeitige Server gestartet wird. Die Standardlistener-Formate und übergeben das im folgenden Codebeispiel gezeigte TIM. Die Länge dieses TIM beträgt 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).

Die erweiterten Listener-Formate und übergeben das im folgenden Codebeispiel gezeigte TIM. Die Länge dieses TIM beträgt 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).

Das mscmtics.cbl-Beispiel für gleichzeitiger Server kann bestimmen, 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 Gleichzeitigen Server gestartet hat, untersucht das mscmtics.cbl-Programm die Client-in-Daten, die im ELM im FELD "TIM data area-2" enthalten sind. Die Client-in-Data enthält den Namen des auszuführenden CICS Server-Programms 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'.

Siehe auch

Standardtransaktionsanforderungs- und Antwortnachrichten
CICS Enhanced Listener Request and Reply Messages

  • Last updated on