H DFTNAME(PRT004) DATEDIT(*YMD/)                                                               
     F**********  商品マスター一覧表 ( 集計 )**************************                             
     FSHOHINL1  IF   E           K DISK                                                             
     FHINSHU    IF   E           K DISK                                                             
     FQPRINT    O    F  132        PRINTER OFLIND(*INOF)                                            
     F                                     FORMLEN(66)                                              
     F                                     FORMOFL(62)                                              
     F*****************************************************************                             
                                                                                                    
     D HDR             S             32    DIM(1) CTDATA PERRCD(1)               見出し             
     D LIN             S              1    DIM(132)                                                 
     D SHOKEI          S              9P 0                                                          
     D GOKEI           S              9P 0                                                          
                                                                                                    
     C*----------------------------------------------------+                                        
     C     SETKEY        KLIST                                                                      
     C                   KFLD                    SHSCOD                                             
     C                   KFLD                    SHCODE                                             
     C*----------------------------------------------------+                                        
     C                   MOVEA     *ALL'-'       LIN                                                
     C                   MOVE      *LOVAL        SHCODE                                             
     C     *LOVAL        SETLL     SHOHINL1                                                         
     C                   DO        *HIVAL                                                           
     C                   SETOFF                                       50                            
     C                   READ      SHOHINL1                               50                        
     C   50              LEAVE                                                                      
     C     SHSCOD        IFNE      BEFCOD                                                           
     C     BEFCOD        IFNE      *BLANKS                                                          
     C*-------------------------------------------------------------------------+                   
     C                   SETON                                        43        |                   
     C                   EXSR      OUTPUT                                       |                   
     C*-------------------------------------------------------------------------+                   
     C                   ADD       SHOKEI        GOKEI                                              
     C                   Z-ADD     0             SHOKEI                                             
     C                   ENDIF                                                                      
     C                   MOVE      SHSCOD        BEFCOD                                             
     C     *LIKE         DEFINE    SHSCOD        BEFCOD                                             
     C                   SETOFF                                       40                            
     C     SHSCOD        CHAIN     HINSHU                             99                            
     C                   ENDIF                                                                      
     C*( 明細印刷 )                                                                                 
     C*-------------------------------------------------------------------------+                   
     C                   SETON                                        42        |                   
     C                   EXSR      OUTPUT                                       |                   
     C*-------------------------------------------------------------------------+                   
     C                   ADD       1             KENSU             7 0           件数               
     C                   ADD       SHTANK        SHOKEI                                             
      *                                                                                             
     C                   ENDDO                                                                      
     C*-------------------------------------------------------------------------+                   
     C                   SETON                                        LR4943    |                   
     C                   EXSR      OUTPUT                                       |                   
     C*-------------------------------------------------------------------------+                   
     C                   RETURN                                                                     
     C******************************************************                                        
     C     OUTPUT        BEGSR                                                                      
     C******************************************************                                        
     C  N40              SETON                                        4041                          
     C                   EXCEPT                                                                     
     C   OF              SETOFF                                       40OF                          
     C                   SETOFF                                       414243                        
     C                   SETOFF                                       444546                        
     C                   SETOFF                                       474849                        
     C                   ENDSR                                                                      
     OQPRINT    E    41                     2 06                                                    
     O                       UDATE         Y      8                                                 
     O                                           14 ' 作成 '                                        
     O                       HDR(1)              82                                                 
     O                                          128 'PAGE.'                                         
     O                       PAGE          Z    131                                                 
     O          E    41                     1                                                       
     O                                           12 ' 品種コード '                                  
     O                       SHSCOD              16                                                 
     O                                           24 ' 品種名 '                                      
     O                       HNSNAM              38                                                 
     O          E    41                     1                                                       
     O                       LIN                132                                                 
     O          E    41                     1                                                       
     O                                           12 ' 商品コード '                                  
     O                                           34 ' 商品名 '                                      
     O                                           68 ' 単価 '                                        
     O          E    41                     1                                                       
     O                       LIN                132                                                 
     O          E    42                     2                                                       
     O                       SHCODE              11                                                 
     O                       SHNAME              46                                                 
     O                       SHTANK        J     70                                                 
     O          E    43                     2                                                       
     O                                           50 '* 小計 *'                                      
     O                       SHOKEI        J     70                                                 
     O          E    49                     1                                                       
     O                                           51 '** 合計 **'                                    
     O                       GOKEI         J     70                                                 
     O          E    49                     1                                                       
     O                                           40 ' 処理件数 '                                    
     O                                           57 '. . . . . . . . .'                             
     O                       KENSU         2     65                                                 
**  HDR                                                                                             
 商品マスター一覧表