Comment ouvrir en RPG un fichier stream en exclusif ?
Posté : sam. 24 sept. 2011, 15:36:33
Bonjour,
Comment ouvrir en RPG un fichier stream en exclusif ?
Il existe en RPGILE une fonction extproc qui permet d'appeler une fonction _C_IFS_fopen avec 2 pointeurs en parametre.
declaration :
D FilNam_o c '/essai.dat'
Dopen Pr * ExtProc( '_C_IFS_fopen' )
D * Value Options( *String )
D * Value Options( *String )
Code :
C Eval FILE_o = open( %TrimR( FilNam_o )
C : 'a, codepage=850'
C )
ainsi on peut ouvrir un fichier texte PC de l'IFS.
Y-a-t-il un option pour une ouverture exclusive de ce fichier ???
Merci pour vos réponse.
A binetot
Comment ouvrir en RPG un fichier stream en exclusif ?
Il existe en RPGILE une fonction extproc qui permet d'appeler une fonction _C_IFS_fopen avec 2 pointeurs en parametre.
declaration :
D FilNam_o c '/essai.dat'
Dopen Pr * ExtProc( '_C_IFS_fopen' )
D * Value Options( *String )
D * Value Options( *String )
Code :
C Eval FILE_o = open( %TrimR( FilNam_o )
C : 'a, codepage=850'
C )
ainsi on peut ouvrir un fichier texte PC de l'IFS.
Y-a-t-il un option pour une ouverture exclusive de ce fichier ???
Merci pour vos réponse.
A binetot