Warning, /include/cspack/czmess.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/08 15:44:17 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_CSPACK_CZMESS_INC
0010 #define CERNLIB_CSPACK_CZMESS_INC
0011 *
0012 *
0013 * czmess.inc
0014 *
0015 *
0016 * Process server messages
0017 *
0018 IRC = 0
0019 10 CONTINUE
0020 CALL CZGETA(CHMAIL,ISTAT)
0021 LCH = LENOCC(CHMAIL)
0022 IF(CHMAIL(1:1).EQ.'0') THEN
0023 *
0024 * Nop
0025 *
0026 ELSEIF(CHMAIL(1:1).EQ.'1') THEN
0027 PRINT *,CHMAIL(2:LCH)
0028 ELSEIF(CHMAIL(1:1).EQ.'2') THEN
0029 PRINT *,CHMAIL(2:LCH)
0030 GOTO 10
0031 ELSEIF(CHMAIL(1:1).EQ.'3') THEN
0032 PRINT *,CHMAIL(2:LCH)
0033 IQUEST(1) = 1
0034 IRC = 1
0035 ELSEIF(CHMAIL(1:1).EQ.'4') THEN
0036 IQUEST(1) = 1
0037 IRC = 1
0038 ELSEIF(CHMAIL(1:1).EQ.'E') THEN
0039 IQUEST(1) = -1
0040 IRC = -1
0041 ELSEIF(CHMAIL(1:1).EQ.'V') THEN
0042 *
0043 * Number of bytes read from a variable length read
0044 *
0045 READ(CHMAIL(2:11),'(I10)') NGOT
0046 GOTO 10
0047 ELSE
0048 PRINT *,'Unknown server message ',CHMAIL
0049 IQUEST(1) = 1
0050 IRC = 1
0051 ENDIF
0052 *
0053
0054 #endif
