C..   INFCCC.FTN   BOHDEN K. CMAYLO     OCT 1981
C..
C..   MAIN ROUTINE FOR CHECKING MAILER FCCC INBOX
C..
	SUBROUTINE INFCCC
	COMMON /INPUTX/ INPUT(512)
	DOUBLE PRECISION FCCC,FTEMP1(2),FTEMP2(3),FTEMP3(2)
	BYTE IZERO,ASTER,IBLANK,INPUT
	DATA FCCC/'100,377'/
	DATA FTEMP1,FTEMP2,FTEMP3
     1 /'MAIL.DAT',' ','DP:','[50,51]','FCCC.DAT','FCCC.TMP',' '/
	DATA IZERO,ASTER,IBLANK/'0','*',' '/
	DATA RTNAME /6RMCR.../
C..
C..  INITIALIZE
C..
	CALL ERRSET(29,.TRUE.,.FALSE.,.TRUE.,.FALSE.,100)
	IN=1
	IN2=2
	NUMPIP=0
	TYPE 1
1	FORMAT('0*** FCCC TRANSFER PROGRAM ***'/)
C..
C..	BITMAP READS FOR GETTING NUMBER OF DOCS
C..
	TYPE 105,FCCC
105	FORMAT('0 * CHECKING FCCC INBOX [',A7,'] FOR RUNSTREAMS')
	CALL BITRED(IN,FCCC,NUMDOC,INDOC1)
C.. LESS THAN ONE DOCUMENT, GO TO END OF RUN
	IF(NUMDOC.LE.2) GO TO 20
	IENC=23
	ENCODE(IENC,62,INPUT)FCCC
62	FORMAT('WP:[',A7,']DOC001.W11 ')
	CALL RIDBLK(INPUT,IENC)
C..COPY DOC001 TO TEMP FILE FTEMP1 AND READ FROM IT
	CALL INDOC(IN2,INPUT,FTEMP1)
	TYPE 103,FCCC
103	FORMAT('0* TRANSFER FROM FCCC ',A7,' STARTED *'/)
C..
C..	READ IN DOC001 DATA AND COLLECT RUNSTREAMS
C..
26	READ(IN2,22,END=27)IQ,(INPUT(I),I=1,IQ)
22	FORMAT(Q,132A1)
	TYPE 107,(INPUT(I),I=1,IQ),IBLANK,ASTER
107	FORMAT('0*',80A1)
C..
C..	GET DOCUMENT NUMBER OF FILE TO TRANSFER
C..
	CALL DOCNAM(FCCC,INPUT,IQ,NUMDOC,NUMNAM,NAMES)
	IF(NUMDOC.LE.1.OR.NUMNAM.LE.0) GO TO 26
C..
C..	DELETE OLD TRANSFER FILE, IF ANY
C..
	IENC=30
	ENCODE(IENC,49,INPUT)FTEMP3
49	FORMAT('PIP ',2A8,';*/DE/NM !')
	CALL XSPAWN(INPUT)
C..
C..	DXFLX TOGETHER
C..
	IENC=60
	ENCODE(IENC,46,INPUT)FTEMP3,FCCC,NUMDOC
46	FORMAT('DXF ',2A8,'/TYPE:TE:SPACES=WP:[',A7,']DOC',I3,'.W11 !')
C.. ENTER ZEROS FOR DOC NAMES
	IF(INPUT(IENC-7).EQ.IBLANK) INPUT(IENC-7)=IZERO
	IF(INPUT(IENC-8).EQ.IBLANK) INPUT(IENC-8)=IZERO
	CALL XSPAWN(INPUT)
	NUMPIP=NUMPIP+1
C..
C..	PIP OVER TO NEW VERSION OF FCCC FILE
C..
	IENC=78
	ENCODE(IENC,55,INPUT)FTEMP2,FTEMP3,FTEMP2
55	FORMAT('PIP ',3A8,'/NV=',2A8,',',2A8,A5,'END/ME !')
	CALL XSPAWN(INPUT)
	GO TO 26
C.. END OF AN FCCC TRANSFER, DELETE ALL W11 DOCS IN FCCC
27	CALL CLOSE(IN2)
	IENC=28
	ENCODE(IENC,47,INPUT)FCCC
47	FORMAT('PIP WP:[',A7,']*.W11;*/DE !')
	CALL XSPAWN(INPUT)
20	CONTINUE
C..
C..	FINISHED, TYPE MESSAGES AND QUIT
C..
	TYPE 70,NUMPIP
70	FORMAT('0*** NUMBER OF RUNSTREAMS COLLECTED=',I6,' ***'////)
	RETURN
	END