Frage CPYFRMSTMF

[sirdidi]

Sorry, aber auch wenn ich mich hier jetzt beschämend als unwissend oute. Ich versteh's nicht.



dh=opendir(pathtolist + %trim(Pfadname));
ist mir klar.


"const options(*string)"
??? - Zeile ist vom Inhalt klar, aber wo und wie nicht?

ich hab jetzt versucht möglichst viel über "Prototypen" zu lesen, kriegs aber nicht hin. :(:(:(


- das mit dem "X60" ist wohl aus meinen Versuchen übrig geblieben.

[Pikachu]

Das OPTIONS(*STRING) gehört zu den String-Parameter der Prozeduren, siehe hier (http://www.scottklement.com/rpg/ifs_ebook/opendir.html) oder hier (http://www.rpgiv.info/mambo/index.php?option=com_content&task=view&id=368&Itemid=66).

[sirdidi]

Danke Pikachu für die Links. Waren auch wieder sehr lehrreich und eine Hilfestütze,
auch wenn sie mir nicht direkt geholfen haben;). Die Aufrufe dort waren auch immer mit Konstanten.

Letztdentlich hab ichs dann hinbekommen. Mein Aufruf mit
jedem ENTRY-Parameter funktioniert jetzt so, das die Datei gefüllt wird.

DANKE nochmal an Alle!!!


H DftActGrp(*No) Option(*SrcStmt : *NoDebugIO)

FDIROUTPUT O E DISK

D PATHTOLIST C CONST('/home/SVN/src_diso1/trunk/')
D*
D* Directory Entry Structure (dirent)
D*
D*
D p_dirent s *
D dirent ds based(p_dirent)
D d_reserv1 16A
D d_reserv2 10U 0
D d_fileno 10U 0
D d_reclen 10U 0
D d_reserv3 10I 0
D d_reserv4 8A
D d_nlsinfo 12A
D nls_ccsid 10I 0 OVERLAY(d_nlsinfo:1)
D nls_cntry 2A OVERLAY(d_nlsinfo:5)
D nls_lang 3A OVERLAY(d_nlsinfo:7)
D nls_reserv 3A OVERLAY(d_nlsinfo:10)
D d_namelen 10U 0
D d_name 640A
D*------------------------------------------------------------
D* Öffnen Directory
D* DIR *opendir(const char *dirname)
D*------------------------------------------------------------
D opendir PR * EXTPROC('opendir')
D dirname * VALUE options(*string)

D*------------------------------------------------------------
D* Read Directory Entry
D* struct dirent *readdir(DIR *dirp)
D*------------------------------------------------------------
D readdir PR * EXTPROC('readdir')
D dirp * VALUE


D* a few local variables...
D dir S *
D PathName S 256A
D Name S 256A
D PATH S 256A

C *ENTRY PLIST
C PARM P_PFADNAME 25

C* Step1: Öffnen Directory.
c eval Pathname = pathtolist+%trim(P_PFADNAME)+x'00'
C eval dir = opendir(%addr(PathName))
C if dir = *NULL
c eval Msg = 'Cant open directory'
c dsply Msg 50
c eval *INLR = *ON
c Return
c endif

C* Step2: Lesen Einträge von einem Directory (in einem Loop)
c eval p_dirent = readdir(dir)
c dow p_dirent <> *NULL

C* FIXME: Dieser Code kann nur Dateien mit einer namenslänge von 256 Stellen behandeln
c if d_namelen < 256
c eval ZEILE = %subst(d_name:1:d_namelen)
c* movel Name dsply_me 52
c write DIROUTPUTF
c endif

c eval p_dirent = readdir(dir)
c enddo

C* Step3: End Program
c eval *inlr = *On

[Fuerchau]

Einfacher ist folgendes:

D opendir <ACRONYM title="Google Page Ranking">PR</ACRONYM> * EXTPROC('opendir')
D dirname 512 CONST options(*string)

eval dir = opendir(pathtolist+%trim(P_PFADNAME))