Getting the job number...

[<Todd.Sabella@xxxxxxxxxx>]

In a CL program, what's the best way to get the job number of a job that
was just submitted.  This is what we are currently doing...

SBMJOB     CMD(CALL PGM(program))
RCVMSG     MSGTYPE(*LAST) MSG(&RMSG) MSGID(&MID)
IF         COND(&MID *EQ 'CPC1221') THEN(DO)
CHGVAR     VAR(&JOBNO) VALUE(%SST(&RMSG 5 6))
ENDDO

This works fine, but sometimes the message text will be in Spanish and
the job number is in a different position.  Is there a better way to do
it so that it doesn't matter what language is used????

Thanks,
Todd