H DFTNAME(PRT002) DATEDIT(*YMD/)                                                               
     F**********  商品マスター一覧表 **********************************                             
     FSHOHINL1  IP   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)                                                 
                                                                                                    
     ISHOHINR       01                                                                              
     I                                          SHSCOD        L1                                    
                                                                                                    
     C                   ADD       1             KENSU             7 0           件数               
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C                   MOVEA     *ALL'-'       LIN                                                
     C                   ENDSR                                                                      
     OQPRINT    H    L1                     2 06                                                    
     O         OR    OF                                                                             
     O                       UDATE         Y      8                                                 
     O                                           14 ' 作成 '                                        
     O                       HDR(1)              82                                                 
     O                                          128 'PAGE.'                                         
     O                       PAGE          Z    131                                                 
     O          H    L1                     1                                                       
     O         OR    OF                                                                             
     O                                           12 ' 品種コード '                                  
     O                       SHSCOD              16                                                 
     O                                           24 ' 品種名 '                                      
     O                       HNSNAM              38                                                 
     O          H    L1                     1                                                       
     O         OR    OF                                                                             
     O                       LIN                132                                                 
     O          H    L1                     1                                                       
     O         OR    OF                                                                             
     O                                           12 ' 商品コード '                                  
     O                                           34 ' 商品名 '                                      
     O                                           68 ' 単価 '                                        
     O          H    L1                     1                                                       
     O         OR    OF                                                                             
     O                       LIN                132                                                 
     O          D    01                     2                                                       
     O                       SHCODE              11                                                 
     O                       SHNAME              46                                                 
     O                       SHTANK        J     70                                                 
     O          T    LR                     1                                                       
     O                                           40 ' 処理件数 '                                    
     O                                           57 '. . . . . . . . .'                             
     O                       KENSU         2     65                                                 
**  HDR                                                                                             
 商品マスター一覧表