19.6.RTVMBRDのAPI

     I******************************************************
     I*     D E F I N E    D A T A  - S T R U C T U R E    *
     I******************************************************
     IDSFLLB      DS
     I                                        1  10 DSFIL
     I                                       11  20 DSLIB
     I            DS
     I                                    B   9  120LENRCV
     I*
     IMBD100      DS
     I                                       85 134 MBRTXT
     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           PIFIL  10        :
     C                     PARM           PILIB  10        :
     C                     PARM           PIMBR  10        :
     C******************************************************
     C*             M A I N -  R O U T I N E                
     C******************************************************
     C                     MOVE PIFIL     DSFIL            :
     C                     MOVE PILIB     DSLIB            :
     C*
     C                     CALL 'QUSRMBRD'                 :
     C                     PARM           MBD100           :
     C                     PARM 134       LENRCV           :
     C                     PARM 'MBRD0100'FORMAT  8        :
     C                     PARM           DSFLLB           :
     C                     PARM           PIMBR            :
     C                     PARM *OFF      OVRRID  1        :
     C                     PARM           PBERR            :
     C*                                                    :
     C                     MOVEL'*NONE'   MSG
B001 C           BYTAVA    IFNE 0                          :
 001 C                     エラー                          :
E001 C                     ELSE                            :
 001 C                     ここで利用可能。　　　　        :
     C                     END
     C*                                                    ;
     C                     MOVE *ON       *INLR            ;
     C                     RETRN                           ;