H DFTNAME(TESTFLD) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** 効果的な組込み関数 %FIELDS の使い方 **************************                     
     FSHOHIN    UF   E           K DISK                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(OBJLIB/TESTFLD) SRCFILE(SRCLIB/QRPGLESRC) DFTACTGRP(*NO)                      
      * ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                     
                                                                                                    
      /FREE                                                                                         
            UPDATE SHOHINR %FIELDS(SHTANK);                                                         
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN