H DFTNAME(TESTELM) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** 効果的な組込み関数 %ELEM の使い方 *************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(OBJLIB/TESTELM) SRCFILE(SRCLIB/QRPGLESRC) DFTACTGRP(*NO)                      
      * ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                     
                                                                                                    
     D DPR             S             10    DIM(500)                              小数               
     D DP              S              4S 0                                                          
                                                                                                    
     D                 DS          1024                                                             
     D  VALUE#                 1      2                                                             
     D  VALUE                  1   1024                                                             
                                                                                                    
     C                   ADD       1             DP                                                 
     C                   IF        DP > %ELEM(DPR)                                                  
     C     ' 配列オーバ 'DSPLY                   ANS               1                                
     C                   ENDIF                                                                      
      /FREE                                                                                         
           DP += 1;                                                                                 
           IF DP > %ELEM(DPR);                                                                      
             DSPLY ' 配列オーバー '  ''  ANS;                                                       
           ENDIF;                                                                                   
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN