在IBM i (OS/400)上利用RPGLE将数据插入MongoDB数据库

本示例展示了如何使用RPGLE将数据插入MongoDB数据库的过程。在本示例中使用的是最新的IBM i V7R4操作系统和MongoDB 4.4.5版本。

* MongoDB连接信息
     D MongoClient     S                   O   CLASS(MongoClient)  
     D Mongodatabase   S                   O   CLASS(MongoDatabase) 
     D MongoCollection S                   O   CLASS(MongoCollection)  
     D MongoDoc        S                   O   CLASS(MongoDocument)       

     *MongoDB连接信息初始化
     C                   *ENTRY        PLIST                               
     C                   PARM                    MongodbUrl                 
     C                   PARM                    DbName                     
     C                                                                                           
     C                   EVAL      MongoClient = %New('MongoClient':MongodbUrl)               
     C                   EVAL      Mongodatabase = MongoClient.getDatabase(DbName)        
     C                   EVAL      MongoCollection = Mongodatabase.getCollection(CollName)
     C                   EVAL      MongoDoc = %New('MongoDocument')

     *将数据插入MongoDB
     C                   EXSR      InsertData                                            
     C                                                                                           
     C                   EVAL      ReturnType = %GetClass(MongoDoc):LoadFromJson(JsonData) 
     C                   IF        (ReturnType < 0)                                         
     C                   RETURN                                                          
     C                   ENDIF                                                             
     C                   EVAL      InsertResult = MongoCollection.InsertOne(MongoDoc)             
     C                   IF (InsertResult.getStatusCode() <> 0)                              
     C                   RETURN                                                           
     C                   ENDIF                                                              
     C                   RETURN                                            

     * 数据插入子程序
     P InsertData      B                                                                             
     D InsertData      PI                                                                            
     D PJsonData                 32000a   CONST                                                      
     C                   EVAL      JsonData = PJsonData                                            

     C                   CALLB     WriteLog                                                        
     C                   MOVE      'test'          MongoDoc:'key'                                    
     C                   MOVE      'test_value'    MongoDoc:'value'                                  
     C                   EVAL      MongoDoc:toJson()                                                  
     C                   CALL      DeleteDuplicateDocument    
     C                   CALLB     WriteLog                                                      

     C                   ENDP

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com