Partager via

Microsoft Concurrent Server

Les exemples de transaction MSCS (program mscmtics.cbl) prennent en charge à la fois le standard et l’écouteur amélioré. Le programme de transaction peut être démarré par l’écouteur Amélioré ou Standard.

Chaque écouteur transmet un message d’initiation de transaction unique (TIM) au programme de transaction lorsque le serveur simultané est démarré. Les formats standard de l’écouteur et passent le TIM indiqué dans l’exemple de code suivant. La longueur de ce TIM est de 72 octets.

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

Les formats d’écouteur améliorés et passent le TIM indiqué dans l’exemple de code suivant. La longueur de ce TIM est de 189 octets.

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

L’exemple de serveur simultané mscmtics.cbl peut déterminer si la norme ou l’écouteur amélioré a été utilisé en évaluant la longueur du TIM reçu.

Dans un scénario où l’écouteur amélioré a démarré Microsoft Concurrent Server, le programme mscmtics.cbl examine les données client-in-data contenues dans le champ ELM trouvé dans la zone de données TIM-2. Le client dans les données contient le nom du programme CICS Server à exécuter et la longueur des données de requête à recevoir du client. L’exemple de code suivant montre le contenu de cette zone de données.

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

Voir aussi

Demandes de transaction standard et messages de réponse
Demandes d’écouteur et messages de réponse améliorés CICS

  • Last updated on