H DFTNAME(TESTOCR) DATEDIT(*YMD/)                                                              
     F********** OCCUR のテスト ********************************************                        
     FSHOHIN    IF   E           K DISK                                                             
     F**********************************************************************                        
     D SHODTA        E DS                  EXTNAME(SHOHIN)                                          
     D                                     OCCURS(9999)                                             
     D  RECDTA                 1    512                                                             
                                                                                                    
     D N               S              4S 0                                                          
     D P               S              4S 0                                                          
                                                                                                    
     C     1             DO        *HIVAL        N                                                  
     C     N             OCCUR     SHODTA                                                           
     C                   READ      SHOHIN                                                           
     C                   IF        %EOF                                                             
     C                   LEAVE                                                                      
     C                   ENDIF                                                                      
     C                   ENDDO                                                                      
                                                                                                    
     C* 3 番目のレコードの商品コードを表示する                                                      
     C     3             OCCUR     SHODTA                                                           
     C     'SHCODE(3)='  CAT(P)    SHCODE:0      DSP40            40                                
     C     DSP40         DSPLY                   ANS               1                                
     C                   SETON                                        LR