Procédure/déclaration en free d'un zone binary(4) sur API

Bonjour,
Je fais des tests d'utilisations de l' API QUSCRTUS.
Pour info je n'utilise pas souvent les API...
Le 3eme parametre est déclaré en carte D Initial size Input Binary(4) chez IBM
En free j'ai mis int(10). ? .Est ce que cela vous semble OK???
https://www.ibm.com/support/knowledg...s/quscrtus.htm
Je me suis appuye sur ceci:
D QUSCRTUS PR ExtPgm('QUSCRTUS')
D UserSpace 20A const
D Attrib 10A const
D InitSize 10I 0 const
D InitVal 1A const
D PubAuth 10A const
D Text 50A const
Je veux remplacer les cartes D par du free?
merci

Bonsoir

C'est un peu brut de fonderie, a priori c'est DB2 400 mais à préciser : DB2 for Z/OS, DB2 for i-series (DB2 400), DB2 for windows et linux ?

bonjour,
oui desole , c'est bien as400/DB2:P

Bonjour,

Effectivement les binaires de longueur 4 peuvent être traduits comme des entiers de longueur 10. Autrement dit, en spécification D colonné :
D InitialSize 4B 0
peut être codé :
d InitialSize 10I 0

et en free :
dcl-s InitialSize int(10);

Dominique