H DFTNAME(TESTDSR) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** DS 配列のテスト *******************************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * OVLR 配列の項目                                                                             
     D OVLRCD          DS                  QUALIFIED                                                
     D  RECORD                 1     10A                                                            
     D  LIN                   11     13S 0                                                          
                                                                                                    
      * OVLRCD の 256 個の配列                                                                      
     D OVLR            S                   LIKE(OVLRCD)                                             
     D                                     DIM(256)                                                 
      * 配列の要素                                                                                  
     D OVL             S              3S 0 INZ(0)                                                   
                                                                                                    
      /FREE                                                                                         
         OVLRCD.RECORD = 'SFLREC    ';                                                              
         OVLRCD.LIN    = 5;                                                                         
         OVL = +1;                                                                                  
         OVLR(OVL) = OVLRCD;                                                                        
      /END-FREE                                                                                     
     C                   Z-ADD     1             N                 4 0                              
     C     OVLRCD        LOOKUP    OVLR(N)                                50                        
     C     *IN50         IFEQ      *ON                                                              
     C     '* FOUND'     DSPLY                   ANS               1                                
     C                   ELSE                                                                       
     C     '* NOT FOUND' DSPLY                   ANS                                                
     C                   ENDIF                                                                      
     C                   SETON                                        LR                            
     C                   RETURN