Article

John Blenkinsop -- subroutine

John Blenkinsop 
  

     C     FoldDrop      BegSr                                                   
                                                                                
      * ======================================================================== 
      * Fold or Drop the subfile                                                 
      * ------------------------------------------------------------------------ 
                                                                                
     C                   If        Sfl1Mode                                     
     C                   Eval      Sfl1Mode    = *Off                           
     C                   Else                                                   
     C                   Eval      Sfl1Mode    = *On                             
     C                   EndIf                                                   
                                                                                
     C                   Eval      *In16       = Sfl1Mode                       
                                                                                
      * ------------------------------------------------------------------------ 
      *                                                                         
      * ======================================================================== 
                                                                                
     C                   EndSr

Back to top