Q1aaddcgeo api

[jeffimportico]

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??

[Brian Rusch]

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.

[john.sev99]

Does library OMITLIB exist on your system?

[jeffimportico]

Yes OMTLIB exists

[Paulster]

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