How do I call SRVPGM QP0WPID PRC Qp0wGetJobID

[Zachary Schulz]

I created a CL program and BNDDIR that includes QPOWPID.
After I create the Module I try to CRTPGM either with the BNDDIR or BNDSRVPGM. Both get teh error "Program J56TESTZS not Created", because "Definition not found for symbol 'QP0WGETJOBID'."

Wondering if anyone has called this PRC before in RPG or CL, prefereably CL.

CRTPGM PGM(ZSCHULZ/J56TESTZS) BNDSRVPGM(QSYS/QP0WPID) ACTGRP(*CALLER)

J56TESTZS: PGM PARM(&JOBPID)
DCL VAR(&HWMSG) TYPE(*CHAR) LEN(50)
DCL VAR(&JOBPID) TYPE(*CHAR) LEN(10)
DCL VAR(&JobInfo) TYPE(*CHAR) LEN(42)
DCL VAR(&JOBNAME) TYPE(*CHAR) LEN(10) STG(*DEFINED) DEFVAR(&JobInfo 1)
DCL VAR(&USERNAME) TYPE(*CHAR) LEN(10) STG(*DEFINED) DEFVAR(&JobInfo 11)
DCL VAR(&JOBNUMBER) TYPE(*CHAR) LEN(6) STG(*DEFINED) DEFVAR(&JobInfo 21)
DCL VAR(&JOBID) TYPE(*CHAR) LEN(16) STG(*DEFINED) DEFVAR(&JobInfo 27)
DCL VAR(&ERROR) TYPE(*CHAR) LEN(10)
CHGVAR VAR(&JOBPID) Value('528481')
/* Get Job Name Username JobNumber and JOBID*/
CALLPRC PRC(Qp0wGetJobID) PARM((&JOBPID *BYVAL) +
(&JOBINFO *BYREF)) RTNVAL(&ERROR)
CHGVAR VAR(&HWMSG) Value('HELLO WORLD')
SNDPGMMSG MSG(&JOBID) TOUSR(*SYSOPR)
SNDPGMMSG MSG(&ERROR) TOUSR(*SYSOPR)
SNDPGMMSG MSG(&HWMSG) TOUSR(*SYSOPR)
ENDPGM

 

[Zachary Schulz]

Got an answer on code400 and it works. Thanks everyone that viewed.

try putting single quotes around the proc name. if you look at the message the proc name is in UPPERCASE...the compiler is converting the name to uppercase (which is normal behavior)