Listing 1: Read_RQ Subroutine with loop control

1  !//////////////////////////////////////
2  ! This routine is called to read in the actual request message
3  !//////////////////////////////////////
4  !Read in the Request IFX Message
5  SUBROUTINE Read_Rq
6
7     DO looper = 1, MAXFILESIZE
8       NEXT REQUEST_LINE
9       SET THEXML = THEXML + REQUEST_LINE
10
11      !We are done if we have encountered the </IFX> string
12      Set Offset = ~Locate("</IFX>", REQUEST_LINE)
13      if (Offset >= 0) then
14             CALL GENERATE_RQUID
15             CALL REPLACE_RQUID_RQ
16             RETURN
17      endif
18    ENDDO
19
20  LOG "The Request loop count was exceeded"
21  END SUBROUTINE