Software Reference Manual - NetEx
Software Reference Manual - NetEx
Software Reference Manual - NetEx
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
C BUMP RECORD COUNTER<br />
C<br />
300 NREC = NREC+1<br />
C<br />
C PROVIDE A RECORD OR CLOSE THE FILE<br />
C<br />
READ (11,REC=NREC,ERR=400,IOSTAT=IOIND) BUF<br />
C<br />
C TEST FOR EOF<br />
C<br />
IF (IOIND LT. 0) GO TO 350<br />
C<br />
C ELSE SEND RECORD AND RETURN USUAL RESPONSE TO CALLER<br />
C<br />
BUFLEN = 80<br />
BUFLEV = I<br />
MSGLEN = 0<br />
MSGLEV = 0.<br />
RETURN<br />
C<br />
C EOF ROUTINE. RETURN EOF RESPONSE, WITHOUT DATA, TO CALLER<br />
C<br />
350 BUFLEN = 0<br />
BUFLEV = 15<br />
MSGLEN = 11<br />
MSGLEV = 5<br />
MSG = 'EOF REACHED'<br />
CLOSE (11)<br />
RETURN<br />
C<br />
C ABORT ROUTINE. RETURN ABORT RESPONSE<br />
C<br />
400 BUFLEN = 0<br />
BUFLEV = 16<br />
MSGLEN = 24<br />
MSGLEV = 15<br />
C SET UP MESSAGE<br />
EMSG = 'TRANSFER ABORTED. IOSTAT = ‘<br />
WRITE (ECODE,FMT=450) IOIND<br />
450 FORMAT (14)<br />
EMSG(29:32) = ECODE(1:4)<br />
MSG = EMSG<br />
C<br />
CLOSE (11)<br />
RETURN<br />
C<br />
C END<br />
C<br />
500 STOP<br />
END<br />
MAN-REF-H211-05 Appendix A: User Modules Page 67
Change language