H DFTNAME(TESTDS2) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F**********  二重構造化された DATA STRUCRURE の使い方 *****************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
     D FILEDS          DS                  QUALIFIED                                                
     D  FILE                   1     10                                          ファイル名         
     D  FILLIB                11     20                                          ファイル名         
                                                                                                    
     D PGMDS           DS                  QUALIFIED                                                
     D  PGM                    1     10                                          ファイル名         
     D  PGMLIB                11     20                                          ファイル名         
                                                                                                    
     D LIBDS           DS                  QUALIFIED                                                
     D  FILES                              LIKEDS(FILEDS)                                           
     D  PGMDS                              LIKEDS(PGMDS)                                            
                                                                                                    
     C                   EVAL      LIBDS.FILES.FILE = 'SHOHIN'                                      
     C                   EVAL      LIBDS.PGMDS.PGM = 'PGM001'                                       
     C                   SETON                                        LR                            
     C                   RETURN