H DFTNAME(TESTCHN) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F**********  商品マスターの読取り **************************************                       
     FSHOHIN    IF   E           K DISK                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(OBJLIB/TESTCHN) SRCFILE(SRCLIB/QRPGLESRC) DFTACTGRP(*NO)                      
      * ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                     
                                                                                                    
     C                   MOVEL(P)  'NV-CF1'      SHCODE                                             
      *(1) 標識を使った CHAIN 命令                                                                  
     C                   SETOFF                                       99                            
     C     SHCODE        CHAIN     SHOHIN                             99                            
     C   99'NOT CHAIN'   DSPLY                   ANS               1                                
     C  N99'CHAIN SUCCES'DSPLY                   ANS                                                
                                                                                                    
      *(2) 標識を使わない CHAIN 命令                                                                
     C     SHCODE        CHAIN     SHOHIN                                                           
     C                   IF        NOT %FOUND                                   NOT CHAIN           
     C     'NOT CHAIN'   DSPLY                   ANS                                                
     C                   ELSE                                                   SUCCECS             
     C     'CHAIN SUCCES'DSPLY                   ANS                                                
     C                   ENDIF                                                  SUCCESS             
      /FREE                                                                                         
            CHAIN SHCODE SHOHIN;                                                                    
            IF NOT %FOUND;                                                                          
              DSPLY 'NOT CHAIN' '' ANS;                                                             
            ELSE;                                                                                   
              DSPLY 'CHAIN SUCCESS' '' ANS;                                                         
            ENDIF;                                                                                  
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN