Yo, Programming Guys

[Rootstonian]

Yeah, I need a little help if possible (I know, I know, the all powerful programmer is asking for help!) ROFL

Compiling a MicroFocus COBOL program and getting a "too many subscripts" error....weird stuff.

I've recoded the program and still get error. Funny thing is, it's in a COBOL paragraph that is exactly the same as one above it (I call it based on some criteria). One goes ok, the second one bombs with that COMPILER error; note that this isn't runtime; it's a "compiler thang".

[vass0922]

appears a 'subscript' is an array in COBOL
do you possibly have an infinite loop that is causing the array to go out of bounds?

[Rootstonian]

Nope...remember, this is a compiler error; the program never runs and therefore the index would not go "out of bounds". And the SAME code above it doesn't error-out.

Here is code...I call it 2 times based on a value I find...second COBOL paragraph bombs on the "COMPUTE OTH-PAY" with the "too many subscripts" error

Oh, I love my job! LOL <edit...kids, do not try this at home! >

                                                                                
           PERFORM VARYING PLAN-IDX  FROM  1  BY  1                             
              UNTIL PLAN-IDX  >  PLAN-COUNT OF PARTC                            
                                                                                
             IF PLAN-TYPE OF PLAN-DATA OF PARTC(PLAN-IDX)                       
                 = PLAN-TYPE OF APAY-DATA OF PARTC(APAY-IDX)                    
               AND COVERAGE-ELECT-ELECT OF PLAN-DATA OF PARTC(PLAN-IDX)         
               PERFORM VARYING COST-IDX  FROM  1  BY  1                         
                   UNTIL COST-IDX  >  COST-COUNT OF PARTC                       
                   IF COST-TYPE-PRICE OF PARTC(COST-IDX)                        
                       AND PLAN-TYPE OF COST-DATA OF PARTC(COST-IDX)            
                           = PLAN-TYPE OF APAY-DATA OF PARTC(APAY-IDX)          
                       AND OPTION-ID OF COST-DATA OF PARTC(COST-IDX)            
                           = OPTION-ID OF PLAN-DATA OF PARTC(PLAN-IDX)          
                                                                                
                                                                                
                           IF OTH-PAY OF PARTC(APAY-IDX) >                      
                               DEDN-AMT-B-TAX OF COST-DATA                          
                                          OF PARTC(COST-IDX)                    
                                                                                
                               COMPUTE OTH-PAY OF PARTC(APAY-IDX)               
                                   = OTH-PAY OF PARTC(APAY-IDX)                 
                                   - DEDN-AMT-B-TAX OF COST-DATA                    
                                                OF PARTC(COST-IDX)              
                                                                                
                           ELSE                                                 
                                DISPLAY ' '                                     
                                DISPLAY 'Check Medical Additional Pay'          
                                DISPLAY 'for EMPLID = ' EMPLID OF PARTC         
                                DISPLAY ' '                                     
                           END-IF                                               
                   END-IF                                                       
               END-PERFORM                                                      
             END-IF 
            END-PERFORM

[sr71000]

did you copy/paste the code? Maybe it's an issue with character encoding or non printing characters somewhere in there?

[jkrohn]

Heh COBOL, have fun with that Unfortunately I have zero COBOL experience and hope to keep it that way.

[Rootstonian]

Oh, gee thanks, that'll be fun

Worth a look, but I'll have to FTP the program up to our mainframe and then go into it's editor and look at it in HEX....oh boy That will be a "last resort" check!!

It does have something to do with the nesting level of subscripts; I do think I've found that our compiler will handle 16 deep. I just don't see where I'm over that.

Alas, tomorrow is another day in the cube/cell. That's why I get the big bucks, right? ROFL


Hmmm...small light bulb on..."Note to Self: Dave, check out the Perform varying loops; see if those may cause the subscript nesting error..." "But, why doesn't it bomb on the first one?"

[Rootstonian]

Quote:

Originally Posted by jkrohn

Heh COBOL, have fun with that Unfortunately I have zero COBOL experience and hope to keep it that way.

Yeah, it was part of my first degree.

I still support a COBOL program written in 1976...believe it or NOT! LOL

[howste]

I last programmed in COBOL in the late 80's. I admire your problem, but I don't think I can help...

[Rootstonian]

LOL @ HOWSTE; Yes, an "artist" does appreciate this problem

[27]

Quote:

Originally Posted by Rootstonian

Yo, Programming Guys

Shouldn't that be Yo, Programming Cats?