Page 1 sur 1

Comment ouvrir en RPG un fichier stream en exclusif ?

Posté : sam. 24 sept. 2011, 15:36:33
par manae
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

CHKOUT

Posté : lun. 26 sept. 2011, 15:39:38
par cmasse
je pense que la solution est la commande CHKOUT

http://publib.boulder.ibm.com/infocente ... 5%74%22%20

(sans texte)

Posté : mer. 28 sept. 2011, 08:02:55
par manae
merci pour votre réponse rapide.