Dynamic calling giving S0C1 abend while calling subprogram

1 post / 0 new
Offline
Joined: 07/25/2010 - 17:26
Dynamic calling giving S0C1 abend while calling subprogram

 

 

 

I have a program DYNA1 which calls another program DYNA2 dynamically. 
 
I compiled the two programs using "DYNAM" option of compiler and link edited the links LDYNA1 and LDYNA2.
 
Please refer below the 
 
1.Compiler options.
2.Calling pgm DYNA1
3.Called pgm DYNA2.
4.Link for DYNA1
5.Link for DYNA2.
 
But when I try to run a program DYNA1, it fails with S0C1 while trying to call DYNA2.
 
I could see the following in the dump created by the job
which kind of seem alerting to me.
 
Inaccessible storage.
 
Installation default             DYNDUMP(*USERID,NODYNAMIC,TDUMP
 
 
Could it be the reason that my installations defaults are such that 
I can not use dynamic calling? Our system I know supports static calling.
 
So was just curious if this could be an issue that dynamic calling is
not permitted 
 
 
 
1.Compiler options used
----------------------------------
 
//PGMCOMP  EXEC PGM=IGYCRCTL,                   
//             PARM=('LIB,RENT,DATA(31),OFFSET',
//             'BUF(32K),OPT,MAP',              
//             'DYNAM,NOADV,NOTERM',            
//             'NUMPROC(NOPFD)',                
//             'NOLIST')                        
 
 
2.COBOL Program "DYNA1" calling program "DYNA2"
-------------------------------------------------------------------------
 
IDENTIFICATION DIVISION.            
                                    
PROGRAM-ID.       DYNA1.            
ENVIRONMENT DIVISION.               
DATA DIVISION.                      
WORKING-STORAGE SECTION.            
01 PGM-NAME PIC X(5) VALUE SPACES.  
PROCEDURE DIVISION.                 
0000-MAIN-LOGIC.                    
    DISPLAY 'DYNAMIC CALLING'       
    DISPLAY 'IN PROGRAM DYNA1'      
    DISPLAY 'CALLING PROGRAM DYNA2
    MOVE 'DYNA2' TO PGM-NAME        
    DISPLAY PGM-NAME                
    CALL 'DYNA2'.                   
    STOP RUN.                       
    
 
3.COBOL Program "DYNA2" called by program "DYNA1"
---------------------------------------------------------------------------
 
 
IDENTIFICATION DIVISION.            
                                    
PROGRAM-ID.       DYNA2.            
ENVIRONMENT DIVISION.               
DATA DIVISION.                      
WORKING-STORAGE SECTION.            
PROCEDURE DIVISION.                 
0000-MAIN-LOGIC.                    
    DISPLAY 'DYNAMIC CALLING'       
    DISPLAY 'IN PROGRAM DYNA2'      
    GOBACK.                         
    
 
4.Link member (LDYNA1) for Program DYNA1
--------------------------------------------------------------
    
 INCLUDE SYSLIB(DYNA1
 ENTRY DYNA1           
 NAME LDYNA1(R)            
 
5.Link member (LDYNA2) for Program DYNA2
--------------------------------------------------------------
 
 
 INCLUDE SYSLIB(DYNA2
 ENTRY DYNA2           
 NAME LDYNA2(R)         
"; ; ; ;
Sponsored Listing