PGM                                                                
/*---------------------------------------------------------*/                   
/*   TESTAPI  :   ＡＰＩエラー処理                         */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&APIERR) TYPE(*CHAR) LEN(116) +                     
                          VALUE(X'000074') /* 2 進数  */                        
             DCL        VAR(&NULL4) TYPE(*CHAR) LEN(4) +                        
                          VALUE(X'00000000')                                    
             DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)                          
             DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(100)                       
                                                                                
/*( ユーザー・スペースの作成 )*/                                                
             CALL       PGM(QUSCRTUS) PARM('MYSPACE   +                         
                          ATEMP     ' 'PF        ' 1000 ' ' +                   
                          '*ALL      ' 'INZLIB 用ユーザー空間 ' +               
                          '*YES      ' &APIERR)                                 
             MONMSG     CPF9870                                                 
             IF         COND(%SST(&APIERR 5 4) *NE &NULL4) THEN(DO)             
             CHGVAR     VAR(&MSGID) VALUE(%SST(&APIERR 9 7))                    
             CHGVAR     VAR(&MSGDTA) VALUE(%SST(&APIERR 17 100))                
             SNDPGMMSG  MSGID(&MSGID) MSGF(QCPFMSG) MSGDTA(&MSGDTA) +           
                          TOMSGQ(*SYSOPR) MSGTYPE(*COMP)                        
             ENDDO                                                              
             GOTO END                                                           
END:                                                                            
             ENDPGM