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    

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close