News Stay informed about the latest enterprise technology news and product updates.

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    

Dig Deeper on Integrated File System (IFS)

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close