H DFTNAME(USCRTUS)   DATEDIT(*YMD/)                                                            
     F********** ユーザー・スペースの作成 **********************************                        
     F*                                                                                             
     F**********************************************************************                        
     D USRSPC          S             20A   INZ('QUSLRCD   QTEMP     ')                              
     D  INZSIZE        S              4B 0 INZ(1000)                                                
     D USRTXT          S             50A   INZ('FOR API USE         ')                              
                                                                                                    
     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                                                             
                                                                                                    
     C*----------------------------------------------------+                                        
     C     *ENTRY        PLIST                                                                      
     C                   PARM                    ERR               1                                
     C                   PARM                    APIPRM          160                                
     C*----------------------------------------------------+                                        
    +C*( ユーザースペースの作成 )                                                                   
     C*----------------------------------------------------+                                        
     C                   CALL      'QUSCRTUS'                                   |                   
     C                   PARM                    USRSPC                         |                   
     C                   PARM      'PF        '  ATTR             10            |                   
     C                   PARM      1000          SIZE             13 5          |                   
     C                   PARM      ' '           INZCHR            1            |                   
     C                   PARM      '*ALL      '  AUT              10            |                   
     C                   PARM                    USRTXT                         |                   
     C                   PARM      '*YES      '  REPLCE           10            |                   
     C                   PARM                    APIERR                         |                   
     C*----------------------------------------------------+                                        
     C     AVLBYT        IFNE      *ZEROS                                                           
     C                   MOVE      'E'           ERR                                                
     C                   ENDIF                                                                      
     C                   MOVE      APIERR        APIPRM                                             
     C                   SETON                                        LR                            
     C                   RETURN