déclaration de types standards

BoTTom |
      /If Not Defined( StdTypHCopied )
      /Define          StdTypHCopied
      /Else
      /Eof
      /EndIf
 
      *=====================================================================
      * Standard Data Types Header
      *
      * Copyright (C) Julian Monypenny 1997
      *=====================================================================
     D NulPtrTyp       S               *
 
     D ApiFmtTyp       S              8    Based( NulPtrTyp )
     D BinTyp          S              9B 0 Based( NulPtrTyp )
     D BufTyp          S          32767    Based( NulPtrTyp )
     D CmdTyp          S           3000    Based( NulPtrTyp )
     D ChrTyp          S              1    Based( NulPtrTyp )
     D CndTokTyp       S             12    Based( NulPtrTyp )
     D DatTyp          S               D   Based( NulPtrTyp )
     D DecTyp          S             15P 5 Based( NulPtrTyp )
     D FltTyp          S              8F   Based( NulPtrTyp )
     D IdxTyp          S              5I 0 Based( NulPtrTyp )
     D IntTyp          S             10I 0 Based( NulPtrTyp )
     D LglTyp          S              1    Based( NulPtrTyp )
     D MsgIdTyp        S              7    Based( NulPtrTyp )
     D NamTyp          S             10    Based( NulPtrTyp )
     D PrcPtrTyp       S               *   Based( NulPtrTyp ) ProcPtr
     D PtrTyp          S               *   Based( NulPtrTyp )
     D QNamTyp         S             20    Based( NulPtrTyp )
     D SmlBinTyp       S              4B 0 Based( NulPtrTyp )
     D SmlFltTyp       S              4F   Based( NulPtrTyp )
     D SmlIntTyp       S              5I 0 Based( NulPtrTyp )
     D StrTyp          S            256    Based( NulPtrTyp )
     D TimTyp          S               T   Based( NulPtrTyp )
     D TokTyp          S             32    Based( NulPtrTyp )
     D TmsTyp          S               Z   Based( NulPtrTyp )
     D TxtTyp          S             50    Based( NulPtrTyp )




©AF400