Partager via

Microsoft Concurrent Server

Les exemples de transaction MSCS (programme mscmtics.cbl) prennent en charge l’écouteur 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é. L’écouteur Standard met en forme et transmet 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).

L’écouteur amélioré met en forme et transmet 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 l’écouteur standard ou 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 le client-dans-data contenu dans l’ELM trouvé dans le champ zone de données TIM-2. Le client dans les données contient le nom du programme serveur CICS à 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

Messages de demande et de réponse de transaction standard
Messages de demande et de réponse d’écouteur amélioré CICS

  • Last updated on