H BNDDIR('QC2LE')                                                                              
     D SPRINTF         PR            10I 0 EXTPROC('ÍÆȹÄζ')                                       
     D  BUFF                      32767A   OPTIONS(*VARSIZE)                                        
     D  FORMAT                         *   VALUE OPTIONS(*STRING)                                   
     D  VAR                            *   VALUE OPTIONS(*NOPASS:*STRING:*TRIM)                     
     D  LEN                          10I 0 VALUE OPTIONS(*NOPASS)                                   
                                                                                                    
     D FORMAT          C                   CONST('<´µ¶¹Ä¹Î¹ÅÄÍ -                                    
     D                                     ıõ="%Í" µÄ=%´>')                                      
     D BUFF            S             40A                                                            
     D FIELD           S             11A                                                            
     D LEN             S             10I 0 INZ(15)                                                  
     D RES             S             10I 0                                                          
     D                                                                                              
     C                   MOVEL(P)  'CGIPARM'     FIELD                                              
      /FREE                                                                                         
        RES = ÍÆȹÄζ(BUFF:FORMAT:FIELD:LEN);                                                       
      /END-FREE                                                                                     
     C                   MOVEL(P)  BUFF          DSP40            40                                
     C     DSP40         DSPLY                   ANS               1                                
     C                   SETON                                        LR