View previous topic :: View next topic
|
Author |
Message |
satya123 Warnings : 1 New User
Joined: 18 Aug 2006 Posts: 57
|
|
|
|
No i am submitting sub program first and return code is 0
step-1 ---- compiling the subprogram first
SUB2:PROCEDURE OPTIONS(MAIN);
DCL A FIXED BIN EXT;
A=200;
PUT SKIP LIST('INSIDE SUB2',A);
END SUB2;
with following JCL
//DOPROC EXEC PROC=PLICOMP
//PLI.SYSIN DD DSN=X.PLI.JCL(SUB2),DISP=SHR
//LKED.SYSLMOD DD DSN=X.PLI.LOAD(SUB2),DISP=SHR
//LKED.SYSLIB DD
// DD DSN=X.PLI.OBJ,DISP=SHR
//*
//
step-2 ------compiling the main program next
Main Program is
SEC1:PROCEDURE OPTIONS(MAIN);
DCL SUB2 ENTRY;
SUB:PROCEDURE;
DCL A FIXED BIN EXT;
A=100;
PUT SKIP LIST('INSIDE SUB',A);
END SUB;
/* */
CALL SUB;
CALL SUB2;
END SEC1;
with following JCL
//DOPROC EXEC PROC=PLICOMP
//PLI.SYSIN DD DSN=X.PLI.JCL(SEC1),DISP=SHR
//LKED.SYSLMOD DD DSN=X.PLI.LOAD(SEC1),DISP=SHR
//LKED.SYSLIB DD
// DD DSN=X.PLI.OBJ,DISP=SHR
//*
//
WHEN I SUBMIT THIS IT IS SHOWING follwing error
IEW2456E 9207 SYMBOL SUB2 UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM THE DESIGNATED CALL LIBRARY
IEW2638S 4321 AN EXECUTABLE VERSION OF MODULE SEC1 EXISTS AND CANNOT BE REPLACED BY THE NON-EXECUTABLE MODULE JUST
CREATED.
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 12.
thanks please guide me |
|
Back to top |
|
|
maks
New User
Joined: 22 Jun 2007 Posts: 7 Location: bangalore
|
|
|
|
how come sub2 is a subprogram when u r specifying OPTIONS(MAIN) for it..
one main program cannot call another main program. |
|
Back to top |
|
|
satya123 Warnings : 1 New User
Joined: 18 Aug 2006 Posts: 57
|
|
|
|
in my subprogram i can call another sub program then what do i write??
please correct me...
satya123 |
|
Back to top |
|
|
maks
New User
Joined: 22 Jun 2007 Posts: 7 Location: bangalore
|
|
|
|
please remove MAIN from ur subprogram and then try. |
|
Back to top |
|
|
satya123 Warnings : 1 New User
Joined: 18 Aug 2006 Posts: 57
|
|
|
|
Thanks alot.... Yesterday i tried and it is working perfectly..
satya123 |
|
Back to top |
|
|
|