FCOMMAND2IF  E                    DISK                             
      FTEMPL1  IF  E           K        DISK                             
      C                     READ COMAND                   45             
      C           *IN45     DOWEQ'0'                                     
      C           SYNTEX    CHAINTEMP                 99                 
      C           *IN99     IFEQ '1'                                     
      C                     EXSR NOTFND                                  
      C                     ENDIF                                        
      C                     SETOF                       99               
      C                     READ COMAND                   45             
      C                     ENDDO                                        
      C                     SETON                       LR               
      C           NOTFND    BEGSR                                        
      C           SYNTMP    DSPLY                                        
      C           TMPDES    DSPLY                                        
      C                     ENDSR                                        




   back to RPG page