Comment ouvrir en RPG un fichier stream en exclusif ?

RPG (3 et 4, free), CL, SQL, etc...
Répondre
manae
Messages : 58
Enregistré le : mar. 21 juin 2011, 07:08:24

Comment ouvrir en RPG un fichier stream en exclusif ?

Message 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

cmasse
Site Admin
Messages : 813
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

CHKOUT

Message par cmasse »

je pense que la solution est la commande CHKOUT

http://publib.boulder.ibm.com/infocente ... 5%74%22%20
Christian Massé (Volubis.fr)

manae
Messages : 58
Enregistré le : mar. 21 juin 2011, 07:08:24

(sans texte)

Message par manae »

merci pour votre réponse rapide.

Répondre