H*****************************************************************                             
     H* 当プログラムはＳＱＬにてデータを抽出し別ファイルへ出力する  *                             
     H* プログラムサンプルです。                                    *                             
     H*****************************************************************                             
     HDATEDIT(*YMD/)                                                                                
     F*                                                                                             
     FINPUT     IF   E           K DISK                                                             
     FOUTPUT    O    E           K DISK                                                             
     C                   EXSR      #WRITE                                                           
     C                   MOVE      *ON           *INLR                                              
     C                   RETURN                                                                     
     C************************************************************************************          
     C* パラメータ                                                                                
     C************************************************************************************          
     C     *ENTRY        PLIST                                                                      
     C                   PARM                    P\FROM            8 0          開始日付          
     C                   PARM                    P\TO              8 0          終了日付          
     C************************************************************************************          
     C* メイン処理                                                                                
     C************************************************************************************          
     C     #WRITE        BEGSR                                                                      
     C                   EXSR      #SQL01                                                           
     C                   EXSR      #SQL02                                                           
     C     SQLCOD        DOWEQ     *ZERO                                                            
     C                   WRITE     OUTPUTR                                                          
     C                   EXSR      #SQL02                                                           
     C                   ENDDO                                                                      
     C                   EXSR      #SQL03                                                           
     C                   ENDSR                                                                      
     C************************************************************************************          
     C* カーソル定義、ＳＱＬ　ＯＰＥＮ                                                            
     C************************************************************************************          
     C     #SQL01        BEGSR                                                                      
     C*カーソル定義                                                                               
     C/EXEC SQL                                                                                     
     C+ DECLARE IN1   CURSOR FOR                                                                    
     C+       SELECT *                                                                              
     C+       FROM   INPUT                                                                          
     C+       WHERE      (YMD >= :P\FROM)                                                           
     C+              AND (YMD <= :P\TO  )                                                           
     C/END-EXEC                                                                                     
     C*ＯＰＥＮ                                                                                   
     C/EXEC SQL OPEN  IN1                                                                           
     C/END-EXEC                                                                                     
     C*                                                                                             
     C     SQLCOD        COMP      *ZERO                              9898                          
     C*                                                                                             
     C                   ENDSR                                                                      
     C************************************************************************************          
     C*  FETCH                                                                                      
     C************************************************************************************          
     C     #SQL02        BEGSR                                                                      
     C*                                                                                             
     C/EXEC SQL                                                                                     
     C+ FETCH NEXT FROM IN1   INTO                                                                  
     C+    :DENNO     ,                                                                             
     C+    :YMD       ,                                                                             
     C+    :JANCD     ,                                                                             
     C+    :SURYO     ,                                                                             
     C+    :TANKA     ,                                                                             
     C+    :KINGAKU                                                                                 
     C/END-EXEC                                                                                     
     C*                                                                                             
     C                   ENDSR                                                                      
     C************************************************************************************          
     C*    CLOSE                                                                                    
     C************************************************************************************          
     C     #SQL03        BEGSR                                                                      
     C*                                                                                             
     C/EXEC SQL CLOSE  IN1                                                                          
     C/END-EXEC                                                                                     
     C*                                                                                             
     C                   ENDSR