19.15.RTVOBJDのAPI

     I******************************************************    
     I*     D E F I N E    D A T A  - S T R U C T U R E    *    
     I******************************************************    
     IDSOBLB      DS                                            
     I                                        1  10 DSOBJ       
     I                                       11  20 DSLIB       
     I            DS                                            
     I                                    B   9  120LENRCV      
     I*                                                         
     IOBJ200      DS                                            
     I                                      101 150 OBJTXT      
     I*                                                         
     IPBERR       DS                                            
     I I            116                   B   1   40BYTPRV      
     I I            0                     B   5   80BYTAVA      
     I                                        9  15 ERRID       
     I                                       16  16 ERR###      
     I                                       17 116 ERRDTA      
     C******************************************************    
     C*     DEFINITION  MODULE  ( PLIST   FIELD   KLIST )  *     
     C******************************************************    
     C           *ENTRY    PLIST                           :      
     C                     PARM           PIOBJ  10        :      
     C                     PARM           PILIB  10        :      
     C                     PARM           PIOTYP 10        :      
     C******************************************************      
     C*             M A I N -  R O U T I N E               :      
     C******************************************************      
     C                     MOVELPIOBJ     DSOBJ            :      
     C                     MOVELPILIB     DSLIB            :      
     C*                                                    :      
     C                     CALL 'QUSROBJD'                 :      
     C                     PARM           OBJ200           :      
     C                     PARM 150       LENRCV           :      
     C                     PARM 'OBJD0200'FORMAT  8        :      
     C                     PARM           DSOBLB           :      
     C                     PARM           PIOTYP           :      
     C                     PARM           PBERR            :      
     C*                                                    :      
B001 C           BYTAVA    IFNE 0                          :      
 001 C*                     エラー処理                     :      
+001 C                     ELSE                            :      
 001 C*                     通常処理                       :   
E001 C                     END                             :   
     C*                                                    ;   
     C                     MOVE *ON       *INLR            ;   
     C                     RETRN                           ;