Discussion :

[yderrien]

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

[escartefigue]

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 ?

[yderrien]

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

[dgayte]

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