H DFTNAME(TESTRPT) DATEDIT(*YMD/)                                                              
     F**********  商品一覧表 ***********************************************                        
     FSHOHIN    IF   E           K DISK                                                             
     FQPRINT    O    F  132        PRINTER OFLIND(*INOF)                                            
     F                                     FORMLEN(66)                                              
     F                                     FORMOFL(62)                                              
     F*****************************************************************                             
     C                   READ      SHOHIN                                                           
     C                   DOW       (NOT %EOF)                                                       
     C                   EXCEPT    OUTPUT                                                           
     C                   READ      SHOHIN                                                           
     C                   ENDDO                                                                      
     C                   EVAL      *INLR = *ON                                                      
     OQPRINT    H    1P                     2 06                                                    
     O         OR    OF                                                                             
     O                       UDATE         Y      8                                                 
     O                                           14 ' 作成 '                                        
     O                                           82 '* 商品マスター一覧表 *'                        
     O                                          128 'PAGE.'                                         
     O                       PAGE          Z    131                                                 
     O          H    1P                     2                                                       
     O         OR    OF                                                                             
     O                                           12 ' 商品コード '                                  
     O                                           34 ' 商品名 '                                      
     O                                           68 ' 単価 '                                        
     O                                           80 ' 品種コード '                                  
     O          E            OUTPUT         2                                                       
     O                       SHCODE              11                                                 
     O                       SHNAME              46                                                 
     O                       SHTANK        J     70                                                 
     O                       SHSCOD              78