PGM                                                                
/*----------------------------------------------------------*/                  
/*   XML_PARSEC : XML パーサー VER 1.0 BY OFFICE QUATTRO    */                  
/*                                                         */                   
/*                                                         */                   
/*       - このプログラムは各製品共通に利用されるので      */                   
/*         オブジェクト・ライブラリーが異なっても良い      */                   
/*         ように API: _MATPGMNM を使用している。          */                   
/*         そのため CLP ではなく CLLE としている。         */                   
/*                                                         */                   
/*       - CRTBNDCL XXXX/XML_PARSEC SRCFILE(XXX/QCLLESRC)  */                   
/*----------------------------------------------------------*/                  
             DCL        VAR(&PGM)    TYPE(*CHAR) LEN(10)                        
             DCL        VAR(&OBJLIB) TYPE(*CHAR) LEN(10)                        
             DCL        VAR(&BUFFER) TYPE(*CHAR) LEN(80)                        
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
             CALLPRC    PRC('_MATPGMNM') PARM(&BUFFER)                          
             CHGVAR     VAR(&PGM) VALUE(%SST(&BUFFER 51 10))                    
             CHGVAR     VAR(&OBJLIB) VALUE(%SST(&BUFFER 19 10))                 
                                                                                
             CALL       PGM(&OBJLIB/XML_PARSE)                                  
             RETURN                                                             
                                                                                
             ENDPGM