A**********************************************                            
     A*    BKENSHU  :   部品検収ファイル           *                            
     A**********************************************                            
     A                                      UNIQUE                              
     A          R BKENSHUR                  TEXT(' 部品検収ファイル ')          
     A*( 部品情報 )                                                             
     A            BKNCOD        12A         COLHDG(' 部品コード ')              
     A            BKDATE         8S 0       COLHDG(' 検収日 ')                  
     A*                                                                         
     A            BKJUKO         7P 0       COLHDG(' 検収数 ')                  
     A            BKTEKI        21G         COLHDG(' 摘要 ')                    
     A                                      CCSID(1200 *LEN 21)                 
     A            BPHOTO       504A         COLHDG(' 写真 ')                    
     A*                                                                         
     A          K BKNCOD                                                        
     A          K BKDATE