IBM Mainframe Forum

Hi While i was trying to call a program dynamically in pl/1 i am getting SOC-7 error.

Proga :

PROGA:PROC OPTIONS(MAIN);
DCL A FIXED DEC(2) INIT(12);
DCL B FIXED DEC(2) INIT(14);
DCL C FIXED DEC(2) INIT(00);
FETCH PROGB;
CALL PROGB(A,B,C);
RELEASE PROGB;
PUT SKIP LIST('VALUE OF C IS =',C);
ON ERROR BEGIN;
CALL PLIDUMP;
PUT DATA;
END;
END PROGA;

progb:

PROGB: PROC(A,B,C);
DCL A FIXED DEC(2);
DCL B FIXED DEC(2);
DCL C FIXED DEC(2);
C=A+B;
PUT SKIP LIST(C);
END PROGB;

i am getting SOC7 error.

Hello and welcome to the forum,

i am getting SOC7 error.

On which statement?

What do the compiles and link edits show?

What happens if you try to do this statically?

Hi Dick,

Sorry this is my Mistake... forgot to give keyword fetchable in called program.now the program works fine....

Hello,

Sorry this is my Mistake...

Not a problem

Good to hear it is working - thanks for letting us know.

d