DevOps, CI/CD and Automation

Getting the following error-

ORA-01480: trailing null missing from STR bind value

WRN-ERRSTMT: Following statement was last statement parsed:
select 'N' into :b0 from SHRTMCM where (((shrtmcm_pidm=TO_NUMBER(:b1)



int ck_comments(void)
{
tmstrcpy(update_ind,_TMC("Y"));

EXEC SQL
select 'N' into :update_ind
FROM SHRTMCM
WHERE shrtmcm_pidm = TO_NUMBER(:pidm)
AND shrtmcm_orig_code = :orig_code
AND shrtmcm_comment is not null
AND (( SUBSTR(SHRTMCM_COMMENT, LENGTH(SHRTMCM_COMMENT)-3,4) =
(SELECT SUBSTR(SPBPERS_SSN, 6, 4)
FROM SPBPERS
WHERE SPBPERS_PIDM = SHRTMCM_PIDM))
AND ( 1 >= (select count(*)
from shrtmcm
where shrtmcm_pidm = TO_NUMBER(:pidm)
and shrtmcm_orig_code = :orig_code)));
POSTORA;

if (compare (update_ind,TM_NLS_Get("0117","Y"),EQS))
return FALSE;

if (compare (update_ind,TM_NLS_Get("0118","N"),EQS))
return TRUE;
}

I am very new to Pro*c ; appreciate any help. Aj