John Blenkinsop -- subroutine

John Blenkinsop -- subroutine code

  

     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    

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close