Hi Frank,

I've not been able to reproduce this problem. Do you have your compiler linklisted or APF authorized? If the former, does STEPLIBing to the compiler resolve the problem?

Bernie

Hmm, how odd. 

I am using STEPLIB already:

//COB      EXEC PGM=IGYCRCTL,
//           PARM='TERM PGMN(LU) &EXITS &COBOPT'        
//STEPLIB  DD  DSN=IGY.SIGYCOMP,DISP=SHR                

Not sure what else to do.  Not a show stopper, of course, as I simply can remove the field if I am not using it.

Here are my compiler options, in case that is helpful.

Options in effect:                                                      
 NOADATA                                                                
   ADV                                                                  
   AFP(NOVOLATILE)                                                      
   APOST                                                                
   ARCH(10)                                                             
   ARITH(COMPAT)                                                        
 NOAWO                                                                  
   BLOCK0                                                               
   BUFSIZE(30720)                                                       
 NOCICS                                                                 
   CODEPAGE(1140)                                                       
 NOCOMPILE(S)                                                           
   CONDCOMP(NOSKIPSRC)                                                  
 NOCOPYLOC                                                              
   COPYRIGHT('FirstBank')                                               
 NOCURRENCY                                                             
   DATA(31)                                                             
   DBCS                                                                 
 NODECK                                                                 
 NODEFINE                                                               
 NODIAGTRUNC                                                            
   DISPSIGN(SEP)                                                        
 NODLL                                                                  
 NODUMP                                                                 
   DYNAM                                                                
   EXIT(INEXIT(FBCOBXIT),NOPRTEXIT,NOLIBEXIT,NOADEXIT,MSGEXIT(FBCOBXIT))
 NOEXPORTALL                                                            
 NOFASTSRT                                                              
   FLAG(I,I)                                                            
 NOFLAGSTD                                                              
   HGPR(NOPRESERVE)                                                     
 NOINITCHECK                                                            
 NOINITIAL                                                              
   INLINE                                                               
   INTDATE(LILIAN)                                                                                                                  
   INVDATA(FORCENUMCMP,CLEANSIGN)                                                                                                   
 NOJAVAIOP                                                                                                                          
   LANGUAGE(EN)                                                                                                                     
   LINECOUNT(60)                                                                                                                    
 NOLIST                                                                                                                             
   LP(32)                                                                                                                           
   MAP(HEX)                                                                                                                         
   MAXPCF(60000)                                                                                                                    
 NOMDECK                                                                                                                            
 NONAME                                                                                                                             
   NSYMBOL(NATIONAL)                                                                                                                
 NONUMBER                                                                                                                           
 NONUMCHECK                                                                                                                         
   NUMPROC(NOPFD)                                                                                                                   
   OBJECT                                                                                                                           
   OFFSET                                                                                                                           
   OPTIMIZE(1)                                                                                                                      
   OUTDD(SYSOUT)                                                                                                                    
 NOPARMCHECK                                                                                                                        
   PGMNAME(LONGUPPER)                                                                                                               
   QUALIFY(COMPAT)                                                                                                                  
   RENT                                                                                                                             
   RMODE(ANY)                                                                                                                       
 NORULES                                                                                                                            
 NOSERVICE                                                                                                                          
 NOSEQUENCE                                                                                                                         
   SMARTBIN                                                                                                                         
   SOURCE(DEC)                                                                                                                      
   SPACE(1)                                                                                                                         
 NOSQL                                                                                                                              
   SQLCCSID                                                                                                                         
 NOSQLIMS                                                                                                                           
   SSRANGE(ZLEN,ABD)                                                                                                                
   STGOPT                                                                                                                 
   SUPPRESS                                                                                                               
   TERM                                                                                                                   
   TEST(NOEJPD,DWARF,SOURCE,NOSEPARATE)                                                                                   
 NOTHREAD                                                                                                                 
   TRUNC(STD)                                                                                                             
   TUNE(10)                                                                                                               
 NOVBREF                                                                                                                  
   VLR(STANDARD)                                                                                                          
   VSAMOPENFS(SUCC)                                                                                                       
 NOWORD                                                                                                                   
   XMLPARSE(XMLSS)                                                                                                        
   XREF(FULL)                                                                                                             
   ZWB

Hi Frank,

I've not been able to reproduce this problem. Do you have your compiler linklisted or APF authorized? If the former, does STEPLIBing to the compiler resolve the problem?

Bernie

Thanks for the options Frank, and for reporting the problem.

I've opened internal work item 173977 for this, having discovered that the STGOPT option is the proximal cause. Seems like something has gotten messed up... 

Bernie

Hmm, how odd. 

I am using STEPLIB already:

//COB      EXEC PGM=IGYCRCTL,
//           PARM='TERM PGMN(LU) &EXITS &COBOPT'        
//STEPLIB  DD  DSN=IGY.SIGYCOMP,DISP=SHR                

Not sure what else to do.  Not a show stopper, of course, as I simply can remove the field if I am not using it.

Here are my compiler options, in case that is helpful.

Options in effect:                                                      
 NOADATA                                                                
   ADV                                                                  
   AFP(NOVOLATILE)                                                      
   APOST                                                                
   ARCH(10)                                                             
   ARITH(COMPAT)                                                        
 NOAWO                                                                  
   BLOCK0                                                               
   BUFSIZE(30720)                                                       
 NOCICS                                                                 
   CODEPAGE(1140)                                                       
 NOCOMPILE(S)                                                           
   CONDCOMP(NOSKIPSRC)                                                  
 NOCOPYLOC                                                              
   COPYRIGHT('FirstBank')                                               
 NOCURRENCY                                                             
   DATA(31)                                                             
   DBCS                                                                 
 NODECK                                                                 
 NODEFINE                                                               
 NODIAGTRUNC                                                            
   DISPSIGN(SEP)                                                        
 NODLL                                                                  
 NODUMP                                                                 
   DYNAM                                                                
   EXIT(INEXIT(FBCOBXIT),NOPRTEXIT,NOLIBEXIT,NOADEXIT,MSGEXIT(FBCOBXIT))
 NOEXPORTALL                                                            
 NOFASTSRT                                                              
   FLAG(I,I)                                                            
 NOFLAGSTD                                                              
   HGPR(NOPRESERVE)                                                     
 NOINITCHECK                                                            
 NOINITIAL                                                              
   INLINE                                                               
   INTDATE(LILIAN)                                                                                                                  
   INVDATA(FORCENUMCMP,CLEANSIGN)                                                                                                   
 NOJAVAIOP                                                                                                                          
   LANGUAGE(EN)                                                                                                                     
   LINECOUNT(60)                                                                                                                    
 NOLIST                                                                                                                             
   LP(32)                                                                                                                           
   MAP(HEX)                                                                                                                         
   MAXPCF(60000)                                                                                                                    
 NOMDECK                                                                                                                            
 NONAME                                                                                                                             
   NSYMBOL(NATIONAL)                                                                                                                
 NONUMBER                                                                                                                           
 NONUMCHECK                                                                                                                         
   NUMPROC(NOPFD)                                                                                                                   
   OBJECT                                                                                                                           
   OFFSET                                                                                                                           
   OPTIMIZE(1)                                                                                                                      
   OUTDD(SYSOUT)                                                                                                                    
 NOPARMCHECK                                                                                                                        
   PGMNAME(LONGUPPER)                                                                                                               
   QUALIFY(COMPAT)                                                                                                                  
   RENT                                                                                                                             
   RMODE(ANY)                                                                                                                       
 NORULES                                                                                                                            
 NOSERVICE                                                                                                                          
 NOSEQUENCE                                                                                                                         
   SMARTBIN                                                                                                                         
   SOURCE(DEC)                                                                                                                      
   SPACE(1)                                                                                                                         
 NOSQL                                                                                                                              
   SQLCCSID                                                                                                                         
 NOSQLIMS                                                                                                                           
   SSRANGE(ZLEN,ABD)                                                                                                                
   STGOPT                                                                                                                 
   SUPPRESS                                                                                                               
   TERM                                                                                                                   
   TEST(NOEJPD,DWARF,SOURCE,NOSEPARATE)                                                                                   
 NOTHREAD                                                                                                                 
   TRUNC(STD)                                                                                                             
   TUNE(10)                                                                                                               
 NOVBREF                                                                                                                  
   VLR(STANDARD)                                                                                                          
   VSAMOPENFS(SUCC)                                                                                                       
 NOWORD                                                                                                                   
   XMLPARSE(XMLSS)                                                                                                        
   XREF(FULL)                                                                                                             
   ZWB

Hi Frank,

I've not been able to reproduce this problem. Do you have your compiler linklisted or APF authorized? If the former, does STEPLIBing to the compiler resolve the problem?

Bernie

Ah, that makes sense.  Thanks.

I posted about another obscure error a week or two ago.  Have you seen that?

Thanks for the options Frank, and for reporting the problem.

I've opened internal work item 173977 for this, having discovered that the STGOPT option is the proximal cause. Seems like something has gotten messed up... 

Bernie

Hmm, how odd. 

I am using STEPLIB already:

//COB      EXEC PGM=IGYCRCTL,
//           PARM='TERM PGMN(LU) &EXITS &COBOPT'        
//STEPLIB  DD  DSN=IGY.SIGYCOMP,DISP=SHR                

Not sure what else to do.  Not a show stopper, of course, as I simply can remove the field if I am not using it.

Here are my compiler options, in case that is helpful.

Options in effect:                                                      
 NOADATA                                                                
   ADV                                                                  
   AFP(NOVOLATILE)                                                      
   APOST                                                                
   ARCH(10)                                                             
   ARITH(COMPAT)                                                        
 NOAWO                                                                  
   BLOCK0                                                               
   BUFSIZE(30720)                                                       
 NOCICS                                                                 
   CODEPAGE(1140)                                                       
 NOCOMPILE(S)                                                           
   CONDCOMP(NOSKIPSRC)                                                  
 NOCOPYLOC                                                              
   COPYRIGHT('FirstBank')                                               
 NOCURRENCY                                                             
   DATA(31)                                                             
   DBCS                                                                 
 NODECK                                                                 
 NODEFINE                                                               
 NODIAGTRUNC                                                            
   DISPSIGN(SEP)                                                        
 NODLL                                                                  
 NODUMP                                                                 
   DYNAM                                                                
   EXIT(INEXIT(FBCOBXIT),NOPRTEXIT,NOLIBEXIT,NOADEXIT,MSGEXIT(FBCOBXIT))
 NOEXPORTALL                                                            
 NOFASTSRT                                                              
   FLAG(I,I)                                                            
 NOFLAGSTD                                                              
   HGPR(NOPRESERVE)                                                     
 NOINITCHECK                                                            
 NOINITIAL                                                              
   INLINE                                                               
   INTDATE(LILIAN)                                                                                                                  
   INVDATA(FORCENUMCMP,CLEANSIGN)                                                                                                   
 NOJAVAIOP                                                                                                                          
   LANGUAGE(EN)                                                                                                                     
   LINECOUNT(60)                                                                                                                    
 NOLIST                                                                                                                             
   LP(32)                                                                                                                           
   MAP(HEX)                                                                                                                         
   MAXPCF(60000)                                                                                                                    
 NOMDECK                                                                                                                            
 NONAME                                                                                                                             
   NSYMBOL(NATIONAL)                                                                                                                
 NONUMBER                                                                                                                           
 NONUMCHECK                                                                                                                         
   NUMPROC(NOPFD)                                                                                                                   
   OBJECT                                                                                                                           
   OFFSET                                                                                                                           
   OPTIMIZE(1)                                                                                                                      
   OUTDD(SYSOUT)                                                                                                                    
 NOPARMCHECK                                                                                                                        
   PGMNAME(LONGUPPER)                                                                                                               
   QUALIFY(COMPAT)                                                                                                                  
   RENT                                                                                                                             
   RMODE(ANY)                                                                                                                       
 NORULES                                                                                                                            
 NOSERVICE                                                                                                                          
 NOSEQUENCE                                                                                                                         
   SMARTBIN                                                                                                                         
   SOURCE(DEC)                                                                                                                      
   SPACE(1)                                                                                                                         
 NOSQL                                                                                                                              
   SQLCCSID                                                                                                                         
 NOSQLIMS                                                                                                                           
   SSRANGE(ZLEN,ABD)                                                                                                                
   STGOPT                                                                                                                 
   SUPPRESS                                                                                                               
   TERM                                                                                                                   
   TEST(NOEJPD,DWARF,SOURCE,NOSEPARATE)                                                                                   
 NOTHREAD                                                                                                                 
   TRUNC(STD)                                                                                                             
   TUNE(10)                                                                                                               
 NOVBREF                                                                                                                  
   VLR(STANDARD)                                                                                                          
   VSAMOPENFS(SUCC)                                                                                                       
 NOWORD                                                                                                                   
   XMLPARSE(XMLSS)                                                                                                        
   XREF(FULL)                                                                                                             
   ZWB

Hi Frank,

I've not been able to reproduce this problem. Do you have your compiler linklisted or APF authorized? If the former, does STEPLIBing to the compiler resolve the problem?

Bernie