Re: a little bit of confusion

[Rob Berendt <rob@xxxxxxxxx>]

1)  Obviously factor 1 of ENDSR can be used as a label, 
as you see by the example you've stated.
2)  From the RPG reference manual:  The ENDSR operation 
defines the end of an RPG IV subroutine and the return 
point to the main program. ENDSR must be the last statement 
in the subroutine. Factor 1 can contain a label that can 
be used as a point to which a GOTO operation within the 
subroutine can branch. 

Factor 1 of the BEGSR is not a label, it is the name of 
the subroutine.  Using the same name in BEGSR and ENDSR would 
be confusing, not to the compiler, but to the developers.






Bill.Graziano@besi.com on 06/12/2000 07:59:17 AM
Please respond to RPG400-L@midrange.com@Internet
To:     RPG400-L@midrange.com@Internet
cc:      
Fax to: 
Subject:        a little bit of confusion

I am trying to visually debug a vendor's program. I have come across a
situation that I am unfamiliar with, and can use some assistance. This is a
code extract:

        WRTREC  BEGSR

                        [do some process]

                        GOTO                    WRTR99
        
                        [do some process]

        FIELDA          CABEQ                   WRTR99
                
                        [do some process]

        
        WRTR99  ENDSR           


1. I have never seen a case where the Factor 1 value for BEGSR is different
than the Factor 1 value for the ENDSR. Is this not strange?2. Also, I am
familiar with GOTO (but don't use it) and CABEQ. However, I thought that
both GOTO and CABEQ were supposed to be associated with TAG. There is not
tag named WRTR99 anywhere in the source. Can GOTO and CABEQ be used with the
factor 1 value for BEGSR or ENDSR?              

Thanks in advance for your help.

Bill Graziano
Programmer
Brambles Equipment Services, Inc.

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---