C C F L G E R R C C ERROR FLAG SETUP C C THIS ROUTINE SETS UP THE ERROR FLAGS FOR A LISTING OUTPUT LINE. THE C ROUTINE RECEIVES AN ERROR NUMBER IN THE RANGE OF 1 TO 26 INCLUSIVE C AND CONVERTS THIS TO AN ASCII CHARACTER IN THE RANGE A TO Z. THE C ERROR COUNT IS ALSO INCREMENTED. THE LISTING OUTPUT FORMAT ALLOWS C UP TO 4 ERROR FLAGS IN THE OUTPUT LINE. IF MORE THAN 4 ERROR FLAGS C ARE GENERATED THEN THE FIRST ERROR FLAGS ARE REMOVED IE. IF 8 ERROR C FLAGS ARE GENERATED THEN ONLY THE LAST 4 WILL APPEAR IN THE LISTING C C THE CALLING SEQUENCE IS AS FOLLOWS: C C CALL FLGERR ( IERR ) C C WHERE C C IERR - IS AN INTEGER VARAIBLE WHICH CONTAINS AN ERROR CODE IN THE C RANGE 1 TO 26 INCLUSIVE. C SUBROUTINE FLGERR ( IERR ) INCLUDE 'PRGDAT.CMN' INCLUDE 'LSTHDG.CMN' IF (PASNUM.EQ.1) RETURN ERRCNT = ERRCNT+1 IF (ERRCNT.GT.50) GO TO 5 ERRTAB(1,ERRCNT) = LINCNT+1 ERRTAB(2,ERRCNT) = IERR 5 LERCNT = MOD(LERCNT,4)+1 ERRFLG(LERCNT) = IERR+"100 D WRITE (4,1) IERR,ERRFLG D 1 FORMAT (' FLGERR ERROR = ',I4,2X,4A1) RETURN END