Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau Candidat au Club
    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

  2. #2
    Expert éminent sénior
    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 ?

  3. #3
    Nouveau Candidat au Club
    procédure/declaration en free d'un zone binary(4) sur API
    bonjour,
    oui desole , c'est bien as400/DB2

  4. #4
    Membre du Club
    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