Re: OpenDir

[bmorris@xxxxxxxxxx]

>Date: Fri, 27 Oct 2000 16:26:14 +0100
>From: Marcin Sagan <ITBAMSAG@bh.com.pl>
> ...
>d OpenDir         pr              *   ExtProc( 'opendir' )
>d  Name                           *   Value
>d                                     Options( *String )
> ...
>d PathName        S             50a
>
>Why I can open dir with this statements
> ...
>c                   Eval      dh = OpenDir( '/QDLS/SAGAN/' )
>
>but not with this
>c                   Eval      PathName = '/QDLS/SAGAN/'
>c                   Eval      dh = OpenDir( PathName )

Marcin, trailing blanks are significant for opendir.  Since
PathName is 50 bytes long, /QDLS/SAGAN will have about 40 blanks
following it.

If you define PathName as varying, your second line would
work.  It would also work if you used %TRIM:
  OpenDir(%TRIM(PathName)).

Barbara Morris

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---