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