...numbering at pre-processor phase.
In other case we must know internal id for each user id.
What error? Did you add declaration statement "CHARACTER*80 CPNAME"
By the way following syntax is incorrect, my bad, sorry.
iUserId = GETPARTINFO(NOEL, 1, CPNAME, LOCNUM, JRCD)
It should be
call...