H DATEDIT(*YMD/)                                                                               
     F********** QUSROBJD : メンバー記述の検索  ****************************                        
     F*   QUSRMBRD のサンプル                                                                       
     F**********************************************************************                        
      /COPY QSYSINC/QRPGLESRC,QUSRMBRD                                                              
     D SRCSRCLIB       S             20A   INZ('QRPGLESRC PGMRLIB   ')                              
     D CPFMSG          C                   CONST('QCPFMSG   *LIBL     ')                            
     D RCVLEN          S              4B 0 INZ(%SIZE(QUSM0100))                                     
                                                                                                    
     D APIERR          DS                                                                           
     D  GETBYT                 1      4B 0 INZ(160)                                                 
     D  AVLBYT                 5      8B 0 INZ(0)                                                   
     D  MSGID                  9     15                                                             
     D  MSGDTA                17    160                                                             
                                                                                                    
     D SPCBIN          DS                                                                           
     D  MSGDTALEN                     4B 0 INZ(100)                              小数               
     D  PGMSTKCNT                     4B 0 INZ(1)                                小数               
                                                                                                    
     C*----------------------------------------------------+                                        
     C                   CALL      QUSRMBRD                                                         
     C                   PARM                    QUSM0100                                           
     C                   PARM                    RCVLEN                                             
     C                   PARM      'MBRD0100'    FOTMAT            8                                
     C                   PARM                    SRCSRCLIB                                          
     C                   PARM      'AAI006    '  MBR              10                                
     C                   PARM      '0'           REPLACE           1                                
     C                   PARM                    APIERR                                             
     C*----------------------------------------------------+                                        
     C     AVLBYT        IFEQ      *ZEROS                                                           
     C     'SRCTYP='     CAT(P)    QUSST00:0     DSP40            40                                
     C     DSP40         DSPLY                   ANS               1                                
     C                   ELSE                                                                       
     C                   MOVEL     CPFMSG        MSGFILLIB                                          
     C*----------------------------------------------------+                                        
     C                   CALL      'QMHSNDPM'                           99                          
     C                   PARM                    MSGID                          |                   
     C                   PARM                    MSGFILLIB        20            |                   
     C                   PARM                    MSGDTA                         |                   
     C                   PARM                    MSGDTALEN                      |                   
     C                   PARM      '*COMP     '  MSGTYPE          10            |                   
     C                   PARM      '*PGMBDY   '  PGMQUE           10            |                   
     C                   PARM                    PGMSTKCNT                      |                   
     C                   PARM                    MSGKEY            4            |                   
     C                   PARM                    APIERR                                             
     C*----------------------------------------------------+                                        
     C                   END                                                                        
     C                   MOVE      *ON           *INLR                                              
     C                   RETURN