constantes communes

BoTTom |
      /If Not Defined( StdConHCopied )
      /Define          StdConHCopied
      /Else
      /Eof
      /EndIf
 
      *=====================================================================
      * Standard Constants Header
      *
      * Copyright (C) Julian Monypenny 1997
      *=====================================================================
     D Digit           C                   '0123456789'
     D Sign            C                   '+-'
     D LwrCas          C                   'abcdefghijklmnopqrstuvwxyz'
     D UprCas          C                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
 
     D Amper           C                   '&'
     D Blank           C                   ' '
     D BSlash          C                   '\'
     D Colon           C                   ':'
     D Comma           C                   ','
     D DQuote          C                   '"'
     D Equal           C                   '='
     D Greater         C                   '>'
     D Less            C                   '<'
     D LParen          C                   '('
     D Minus           C                   '-'
     D Percnt          C                   '%'
     D Plus            C                   '+'
     D Point           C                   '.'
     D Quest           C                   '?'
     D RParen          C                   ')'
     D SColon          C                   ';'
     D Slash           C                   '/'
     D SQuote          C                   ''''
     D Star            C                   '*'
     D UScore          C                   '_'
 
     D EndStr          C                   X'00'




©AF400