* NOTE: Compiler avec DFTACTGRP(*NO)
      *
      * IFS API prototypes
      *
      * stat()
      *
     Dstat             PR            10I 0 extproc('stat')
     Dpathptr                          *   value
     Dstatptr                          *   value
      *
      * variables de travail
      *
     D statds          DS
     D  mode                         10U 0
     D  ino                          10U 0
     D  nlink                         5U 0
     D  filler1                       5U 0
     D  uid                          10U 0
     D  gid                          10U 0
     D  size                         10U 0
     D  filler2                     256
 
     DFile_exists      S             10I 0
     Dpathptr          S               *
     Dpathname         S            256
     Dstatptr          S               *
      *
      * Main{}
      *
     C     *entry        plist
     C                   parm                    filename        255
     C                   parm                    taille           10 0
      * attribution d'un pointeur sur la variable nom du chemin
     C                   eval      pathname = %trim(filename)+x'00'
     C                   eval      pathptr = %addr(pathname)
     C                   eval      statptr = %addr(statds)
      * Appel de l'API IFS
     C                   eval      File_Exists = stat(pathptr:statptr)
     c
     C                   if        File_Exists = 0
     c                   eval      taille = size
     c                   endif
      * fin du pgm.
     C                   move      *on           *inlr