RE: Compilation Error

LINKAGE SECTION.

01  lnk-aera,

     03  kct-id-in           pic ?.

     03  ign-ind-in         pic ?.

     03  ws-code-afk    pic ?.

     03  ws-reden-afk   pic ?.

     03  sqlca               pic ?.

     03  oraca               pic ?.

     03  ws-ret-code     pic ?.

PROCEDURE DIVISION USING KCT-ID-IN IGN-IND-IN WS-CODE-AFK WS-REDEN-AFK SQLCA ORACA WS-RET-CODE.

call 'SUBPRG' using lnk-aera.

SUBPRG.

move return-code to ws-ret-code

exit program.