H DFTNAME(TESTAPI) DATEDIT(*YMD/)                                                              
     F********** API エラー報告 ********************************************                        
     F**********************************************************************                        
     D USRSPC          DS                                                                           
     D  USNAME                 1     10                                                             
     D  USLIB                 11     20                                                             
     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  INZSIZE                1      4B 0 INZ(1000)                                                
     D  MSGDTALEN              5      8B 0 INZ(100)                              小数               
     D  PGMSTKCNT              9     12B 0 INZ(1)                                小数               
                                                                                                    
     D CPFMSG          C                   CONST('QCPFMSG   *LIBL     ')                            
    +C*( ユーザースペースの作成 )                                                                   
     C                   MOVEL     'MYSPACE '    USNAME                                             
     C                   MOVEL     'ATEMP   '    USLIB                                              
     C*----------------------------------------------------+                                        
     C                   CALL      'QUSCRTUS'                           99                          
     C                   PARM                    USRSPC                         |                   
     C                   PARM      'PF        '  ATTR             10            |                   
     C                   PARM                    INZSIZE                        |                   
     C                   PARM                    INZCHR            1            |                   
     C                   PARM      '*ALL      '  PUBAUT           10            |                   
     C                   PARM      'MYSPACE'     USRTXT           50            |                   
     C                   PARM      '*YES      '  REPLCE           10            |                   
     C                   PARM                    APIERR                                             
     C*----------------------------------------------------+                                        
     C     AVLBYT        IFNE      *ZEROS                                                           
     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                   SETON                                        LR