H DFTNAME(SOCKCLT) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F*****************************************************************                             
     F*   SOCKCLT : TEST SOCKET CLIENT                                                              
     F*****************************************************************                             
     D TRUE            S              4B 0 INZ(0)                                                   
     D FALSE           S              4B 0 INZ(-1)                                                  
     D SOCKFD          S             10I 0 INZ(0)                                                   
     D SOCK_STREAM     S              4B 0 INZ(1)                                                   
     D RC              S             10I 0 INZ(0)                                                   
     D AF_INET         S              4B 0 INZ(2)                                                   
     D INADDR_ANY      S              4B 0 INZ(0)                                                   
     D SO_REUSEADDR    S              4B 0 INZ(55)                                                  
     D TCP_LEN         S              4B 0 INZ(1492)                                                
     D BUFF            S             48A                                                            
     D PORT            S              4B 0 INZ(400)                                                 
                                                                                                    
     D IADDR           DS                  QUALIFIED                                                
     D  SIN_FAMILY                    5I 0                                                          
     D  SIN_PORT                      5U 0                                                          
     D  S_ADDR                       10U 0                                                          
     D  ZERO                          8A                                                            
                                                                                                    
     D SOCKET_ER       S             12A   INZ('SOCKET  ERR')                                       
     D CONNECT_ER      S             12A   INZ('CONNECT ERR')                                       
     D RECV_ER         S             12A   INZ('RECV    ERR')                                       
     D SEND_ER         S             12A   INZ('SEND    ERR')                                       
                                                                                                    
     D*( SOCKET  のプロトタイプ宣言 )                                                               
     D SOCKET          PR            10I 0 EﾒﾎPﾈﾅｳ('ﾍﾅｳﾁｵﾎ')                                        
     D  ADDR_FAMILY                  10I 0 Vｱﾂﾏｵ                                                    
     D  TYPE                         10I 0 Vｱﾂﾏｵ                                                    
     D  PROTOCOL                     10I 0 Vｱﾂﾏｵ                                                    
                                                                                                    
     D*( CONNECT のプロトタイプ宣言 )                                                               
     D CONNECT         PR            10I 0 EﾒﾎPﾈﾅｳ('ｳﾅﾄﾄｵｳﾎ')                                       
     D  SOCK_FD                      10I 0 Vｱﾂﾏｵ                                                    
     D  SOCK_ADDR                      *   Vｱﾂﾏｵ                                                    
     D  ADDR_LENGTH                  10I 0 Vｱﾂﾏｵ                                                    
                                                                                                    
     D*( SEND    のプロトタイプ宣言 )                                                               
     D SEND            PR            10I 0 EﾒﾎPﾈﾅｳ('ﾍｵﾄｴ')                                          
     D  SOCK_FD                      10I 0 Vｱﾂﾏｵ                                                    
     D  BUFFER                         *   Vｱﾂﾏｵ                                                    
     D  BUFF_LENGTH                  10I 0 Vｱﾂﾏｵ                                                    
     D  FLAGS                        10I 0 Vｱﾂﾏｵ                                                    
                                                                                                    
     D*( RECV    のプロトタイプ宣言 )                                                               
     D RECV            PR            10I 0 EﾒﾎPﾈﾅｳ('ﾈｵｳﾐ')                                          
     D  SOCK_FD                      10I 0 Vｱﾂﾏｵ                                                    
     D  BUFFER                         *   Vｱﾂﾏｵ                                                    
     D  BUFF_LENGTH                  10I 0 Vｱﾂﾏｵ                                                    
     D  FLAGS                         4B 0 Vｱﾂﾏｵ                                                    
                                                                                                    
     D*( CLOSE   のプロトタイプ宣言 )                                                               
     D CLOSE           PR            10I 0 EﾒﾎPﾈﾅｳ('ｳﾂﾅﾍｵ')                                         
     D  SOCK_FD                      10I 0 Vｱﾂﾏｵ                                                    
                                                                                                    
     D*( PERROR  のプロトタイプ宣言 )                                                               
     D PERROR          PR                  EﾒﾎPﾈﾅｳ('ﾆｵﾈﾈﾅﾈ')                                        
     D  MSG                            *   Vｱﾂﾏｵ                                                    
                                                                                                    
     C     '* SOCKCLT *' DSPLY                   ANS               1                                
     C*( SOCKET の作成 )                                                                            
     C*--------------------------------------------------------------------+                        
     C                   EVAL      SOCKFD = SOCKET(AF_INET:SOCK_STREAM:0)                           
     C*--------------------------------------------------------------------+                        
     C     SOCKFD        IFLT      *ZEROS                                                           
     C                   CALLP     PERROR(%ADDR(SOCKET_ER))                                         
     C                   GOTO      END                                                              
     C                   END                                                                        
     C     'SOCKET OK'   DSPLY                                                                      
     C*( CONNECT :  サーバーに接続する )                                                            
     C                   EVAL      IADDR.SIN_FAMILY = AF_INET                                       
     C                   EVAL      IADDR.SIN_PORT   = PORT                                          
     C                   EVAL      IADDR.S_ADDR     = INADDR_ANY                                    
     C                   MOVE      *ALLX'00'     IADDR.ZERO                                         
     C*--------------------------------------------------------------------+                        
     C                   EVAL      RC = CONNECT(SOCKFD: %ADDR(IADDR):                               
     C                                  %SIZE(IADDR))                                               
     C*--------------------------------------------------------------------+                        
     C     RC            IFLT      *ZEROS                                                           
     C                   CALLP     PERROR(%ADDR(CONNECT_ER))                                        
     C                   GOTO      END                                                              
     C                   END                                                                        
     C     'CONNECT OK'  DSPLY                                                                      
     C*( SEND    サーバーへデータを送信する )                                                       
     C     '*SOCK CLIENT'CAT(P)    X'00':0       BUFF                                               
     C*--------------------------------------------------------------------+                        
     C                   EVAL      RC = SEND(SOCKFD: %ADDR(BUFF):                                   
     C                                   %LEN(BUFF): 0)                                             
     C*--------------------------------------------------------------------+                        
     C     RC            IFLT      *ZEROS                                                           
     C                   CALLP     PERROR(%ADDR(SEND_ER))                                           
     C                   GOTO      END                                                              
     C                   END                                                                        
     C     'SEND OK'     DSPLY                                                                      
     C*( RECV    サーバーからのデータを読む )                                                       
     C*--------------------------------------------------------------------+                        
     C                   EVAL      RC = RECV(SOCKFD: %ADDR(BUFF):                                   
     C                                   TCP_LEN: 0)                                                
     C*--------------------------------------------------------------------+                        
     C     RC            IFLT      *ZEROS                                                           
     C                   CALLP     PERROR(%ADDR(RECV_ER))                                           
     C                   GOTO      END                                                              
     C                   END                                                                        
     C     'RECV OK'     DSPLY                                                                      
     C     'BUFF='       CAT(P)    BUFF:0        DSP40            40                                
     C     DSP40         DSPLY                                                                      
     C     '************'DSPLY                                                                      
     C     '* SOCKCLT  *'DSPLY                                                                      
     C     '*  E.O.J   *'DSPLY                                                                      
     C     '************'DSPLY                                                                      
     C*( CLOSE   ソケットを閉じて終了する )                                                         
     C                   CALLP     CLOSE(SOCKFD)                                                    
     C     END           TAG                                                                        
     C     ' '           DSPLY                   ANS               1                                
     C                   SETON                                        LR                            
     C                   RETURN