DCL        VAR(&APIERR) TYPE(*CHAR) LEN(4) +                       
                          VALUE(X'00000000') /* 2 進数  */                      
/*( ユーザー・スペースの作成 )*/                                                
             CALL       PGM(QUSCRTUS) PARM('MYSPACE   +                         
                          QTEMP     ' 'PF        ' 1000 ' ' +                   
                          '*ALL      ' 'INZLIB 用ユーザー空間 ' +               
                          '*YES      ' &APIERR)                                 
             MONMSG     CPF9870                                                 
             ENDPGM