It seems the original code was altered.. a LINKAGE was included, and wasn't working. How do i go about passing the obtained user back to the calling program? In the caller program (CT900) i have the following: 01 ws-LINK. 05 WS-ERRO PIC X(01). 05 ws-username pic x(50) value spaces. CALL "CHECKLOGIN" RETURNING WS-LINK. This however gives me the following error : "Rebuilding Z:\fontes_cobol\contab\CT900.cob COBCH0028S Data item too long " and in CHECKLOGIN i altered PROCEDURE DIVISION RETURNING WS-LINK. This compiled properly.
↧