H        1   Y/                                                      ANS001
     F**********  品種別商品一覧表            *************************         
     FLSHOHNS IP  E           K        DISK                                     
     FHINSHU  IF  E           K        DISK                                     
     FQPRINT  O   F     132     OF    LPRINTER                                  
     F*****************************************************************         
     E                    HDR     1   1 32                見出し                
     E                    DAR         2 10                                      
     LQPRINT   66FL 62OL                                                        
     I@SHOHIN     01                                                            
     I                                              SHSCODL1                    
     I*( データ・ベース外部データ構造 )                                         
     IDSF001    EIDSHINSHU                                                      
     I            DS                                                            
     I                                        1   5 TESCOD                      
     C******************************************************                    
     C           *INL1     IFEQ '1'                        *INL1                
     C******************************************************                    
     C*   SHSCOD : 品種 ｺｰﾄﾞ                  の切れ目     *                    
     C                     SETOF                     40     改頁                
     C                     END                             *INL1                
     C******************************************************                    
     C*            明　　細　　演　　算                                         
     C******************************************************                    
     C*----------------------------------------------------+                    
     C           KEY001    KLIST                           |                    
     C                     KFLD           SHSCOD           |                    
     C*----------------------------------------------------+                    
     C                     CLEARDSF001                      CHAIN               
     C                     SETOF                     99     CHAIN               
     C           KEY001    CHAINHINSHU               99     CHAIN               
     C*                                                                         
     C*( 明細印刷 )                                                             
     C*----------------------------------------------------+                    
     C                     SETON                     42    |                    
     C                     EXSR OUTPUT                     | 明細印刷           
     C*----------------------------------------------------+                    
     C                     ADD  1         KENSU   70        件数                
     C*( 小計 )                                                                 
     C*                                                                         
     C           END       TAG                                                  
     C*( T-LR 最終合計 )                                                        
     C*----------------------------------------------------+                    
     CLR                   SETON                     49    |                    
     CLR                   EXSR OUTPUT                     | 件数印刷           
     C*----------------------------------------------------+                    
     C******************************************************                    
     C           *INZSR    BEGSR                                                
     C******************************************************                    
     C*  初期 ｻｲｸﾙ のみの実行                                                   
     CSR                   MOVE *BLANKS   DMYCOD 15                             
     CSR         INZEND    ENDSR                                                
     C******************************************************                    
     C           OUTPUT    BEGSR                                                
     C******************************************************                    
     CSRN40                SETON                     4041                       
     CSR                   EXCPT                                                
     CSR OF                SETOF                     40OF                       
     CSR                   SETOF                     414243                     
     CSR                   SETOF                     444546                     
     CSR                   SETOF                     474849                     
     CSR                   ENDSR                                                
     OQPRINT  E  206   41                                                       
     O                         UDATE Y    8                                     
     O                                   14 ' 作成 '                            
     O                         HDR,1     82                                     
     O                                  128 'PAGE.'                             
     O                         PAGE  Z  131                                     
     O        E  1     41                                                       
     O                                   12 ' 品種コード '                      
     O                         SHSCOD    16                                     
     O                                   24 ' 品種名 '                          
     O                         HNSNAM    38                                     
     O        E  1     41                                                       
     O                                   12 ' 商品コード '                      
     O                                   34 ' 商品名 '                          
     O                                   68 ' 単価 '                            
     O        E  2     42                                                       
     O                         SHCODE    11                                     
     O                         SHNAME    46                                     
     O                         SHTANKJ   70                                     
     O        E  1     49                                                       
     O                                   40 ' 処理件数 '                        
     O                                   57 '. . . . . . . . .'                 
     O                         KENSU 2   65                                     
**  HDR                                                                         
 品種別商品一覧表