error in dynamic call



error in dynamic call

Postby mainframedasan » Tue Nov 04, 2008 7:05 pm

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.
mainframedasan
 
Posts: 3
Joined: Fri Oct 24, 2008 11:32 am
Has thanked: 0 time
Been thanked: 0 time

Re: error in dynamic call

 

Re: error in dynamic call

Postby dick scherrer » Wed Nov 05, 2008 2:28 am

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?
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Re: error in dynamic call

Postby mainframedasan » Thu Nov 06, 2008 12:45 pm

Hi Dick,

Sorry this is my Mistake... forgot to give keyword fetchable in called program.now the program works fine....
mainframedasan
 
Posts: 3
Joined: Fri Oct 24, 2008 11:32 am
Has thanked: 0 time
Been thanked: 0 time

Re: error in dynamic call

Postby dick scherrer » Fri Nov 07, 2008 4:18 am

Hello,

Sorry this is my Mistake...
Not a problem :)

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

d
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times


Return to Stupid Questions