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 ?
-
- Site Admin
- Messages : 813
- Enregistré le : mer. 14 févr. 2007, 18:00:03
- Localisation : Nantes
- Contact :
CHKOUT
je pense que la solution est la commande CHKOUT
http://publib.boulder.ibm.com/infocente ... 5%74%22%20
http://publib.boulder.ibm.com/infocente ... 5%74%22%20
Christian Massé (Volubis.fr)
(sans texte)
merci pour votre réponse rapide.