Announcement

Collapse
No announcement yet.

Q1aaddcgeo api

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Q1aaddcgeo api

    The example that IBM provided for this API does not work.
    PGM
    DCL VAR(&SEQ) TYPE(*INT) LEN(4) VALUE(20)
    DCL VAR(&ERRCODE) TYPE(*CHAR) LEN(16) VALUE(X'0000000000000000')

    CALL PGM(QBRM/Q1AADDCGEO) PARM('TESTOMITS' +

    '*BKU ' &SEQ 'OMITLIB ' '*DTAARA ' +

    'DA ' &ERRCODE)

    ENDPGM


    You get CPF1E64 -Parameter value <library name> not valid for program Q1AADDCGEO.


    Anyone have a working example??

  • #2
    I don't have a working example, but one inconsistency in the code above is that the &ERRCODE variable is 16 bytes long and the initialized value is only 8 bytes of hex zeros. Maybe you could try it again if you initialized all 16 bytes of &ERRCODE to hex zeros - VALUE(X'00000000000000000000000000000000'). That's just a guess, it may or may not solve your problem.

    Comment


    • #3
      Does library OMITLIB exist on your system?

      Comment


      • #4
        Yes OMTLIB exists

        Comment


        • #5
          Hi,

          If you go here, and search for CPF1E64 you'll get a list of links with your problem. I assume the solution can be found there.

          Happy coding!
          -----------------
          Paulster
          Sweden

          Comment

          Working...
          X