fonctions MAXINT(), MIDINT() et MININT()

BoTTom | 
      *=====================================================================
      * Standard Procedures
      *
      * Copyright (C) Julian Monypenny 1997
      *=====================================================================
     H NoMain
 
      *---------------------------------------------------------------------
      * Global definitions
      *---------------------------------------------------------------------
      /Copy ToolkitCpy,StdConH
      /Copy ToolkitCpy,StdPrcH
      /Copy ToolkitCpy,StdTypH
 
      *=====================================================================
     P MaxInt          B                   Export
      *=====================================================================
     D                 Pi                  Like( IntTyp )
     D  Int1                               Like( IntTyp )  Value
     D  Int2                               Like( IntTyp )  Value
 
     C                   If        Int1    > Int2
     C                   Return    Int1
     C                   Else
     C                   Return    Int2
     C                   EndIf
 
     P                 E
 
      *=====================================================================
     P MidInt          B                   Export
      *=====================================================================
     D                 Pi                  Like( IntTyp )
     D  Int1                               Like( IntTyp )  Value
     D  Int2                               Like( IntTyp )  Value
 
     C                   Return    (Int2 - Int1) * .5 + Int1
 
     P                 E
 
      *=====================================================================
     P MinInt          B                   Export
      *=====================================================================
     D                 Pi                  Like( IntTyp )

| 
     D  Int1                               Like( IntTyp )  Value
     D  Int2                               Like( IntTyp )  Value
 
     C                   If        Int1    < Int2
     C                   Return    Int1
     C                   Else
     C                   Return    Int2
     C                   EndIf
 
     P                 E




©AF400