例 3 (PL/I: 31 ビット DLL)

IDISNAP を DLL として呼び出す 31 ビット PL/I プログラムの例:

*PROCESS AGGREGATE,ATTRIBUTES(FULL),LIST,MAP,NEST,SOURCE,STMT,
         NONUMBER,OFFSET,XREF(FULL),OPTIONS,NOBLKOFF,RENT;    
*PROCESS LIMITS(EXTNAME(8));                                  
 IDISPLI1: PROC                 OPTIONS(MAIN) ;               
                                                              
  DECLARE                                                     
    IDISNPD     External Entry Options(asm),                  
    Work        Char(4),                                      
    Work140     Char(140),                                    
    Work1402    Char(140);                                    
                                                              
  Work ='0002';                                               
  Work140 = 'User Title Data';                                
  Work1402 = 'Datasets(IDIHIST(MY.HIST))';                    
  Call IDISNPD(Work,Work140,Work1402);                        
                                                              
 End IDISPLI1;