error in dynamic call

[mainframedasan]

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.

[dick scherrer]

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?

[mainframedasan]

Hi Dick,

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

[dick scherrer]

Hello,

Sorry this is my Mistake...

Not a problem

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

d