ASMB,R,Q,C,Z IFZ HED RJE WITH FMP INTERFACE [Z] * (C) HEWLETT-PACKARD CO.1979 * NAM RJE,19,50 91780-16011 REV.2013 800123 XIF IFN HED RJE WITHOUT FMP INTERFACE [N] * (C) HEWLETT-PACKARD CO. 1979 * NAM RJE,3,50 UNRELEASED 91780-16002 UPDATE XIF * * NAME: RJE "REMOTE JOB ENTRY" * SOURCE: 91780-18011 - - - UNL IFZ LST * RELOC: 91780-16011 [FMP VERSION: 'Z' ASSEMBLY OPTION] UNL XIF IFN LST * RELOC: 91780-16002 [NON-FMP VERSION: 'N' ASSEMBLY OPTION] UNL XIF LST * PGMR: R. PASSMORE ( 11/20/73 ) * * MODIFIED BY: R. SHATZER, R. FUNK, P. KAPOOR ( 01/11/75 ) * C. WHELAN ( 10/31/75 ) * C. HAMILTON ( 04/12/77 ) * D.B. & R.G. ( 08/11/78 ) * R.G. ( 01/31/79 ) * R.G. ( 04/26/79 ) * R.G. ( 10/09/79 ) * R.G. ( 01/23/80 ) * * ***************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * * * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * * * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * * ***************************************************************** * ENT RJE EXT $LIBR,$LIBX,$OPSY,EXEC EXT #BSC,#TIME,#CTRL,#CMBF,#WRBF,#RDBF UNL IFZ LST EXT PARSE,REIO,PRTN,IFBRK,.MVW EXT #TFLG EXT OPEN,CLOSE,CREAT,READF,WRITF,#RDCB,#LDCB,#PDCB UNL XIF IFN LST EXT #INGT REIO EQU EXEC UNL XIF LST EXT LURQ SUP * * THE PROGRAM RJE, WITH THE BISYNC DRIVER (DVR50, AND #BSC) * EMULATES THE IBM 2780 REMOTE BATCH TERMINAL TO PROVIDE A * COMMUNICATIONS LINK TO IBM 360/370 COMPUTERS FROM THE * RTE-II,III,IV AND RTE-C ENVIRONMENTS. (WITH RTE-C IS UNSUPPORTED) SKP *********************************************************************** * RJE PARAMETERS * * UP TO FIVE OPTIONAL PARAMETERS MAY BE SPECIFIED WHEN SCHEDULING * RJE. THE MEANING OF THESE PARAMETERS ARE: * * P1.......LOGICAL UNIT OF DVR50 (DEFAULT CAUSES SEARCH) * P2.......MODE PARAMETER. POSSIBLE VALUES ARE: * 0=INPUT AVAILABLE,LOCAL DIAL,NON TRANSPARENT * 1=NO INPUT, LOCAL DIAL, NON TRANSPARENT * 2=INPUT AVAILABLE, LOCAL ANSWER, NON TRANS. * 3=NO INPUT, LOCAL ANSWER, NON TRANSPARENT * 4=INPUT AVAILABLE, LOCAL DIAL, TRANSPARENT * 5=NO INPUT, LOCAL DIAL, TRANSPARENT * 6=INPUT AVAILABLE, LOCAL ANSWER, TRANSPARENT * 7=NO INPUT, LOCAL ANSWER, TRANSPARENT * * ADD 16384 FOR DIAGNOSTIC MODE. * UNL IFZ LST * P3-P5.....THREE CASES: 1) LOGICAL UNITS OF INPUT, LIST, UNL XIF IFN LST * P3-P5.......TWO CASES: 1) LOGICAL UNITS OF INPUT, LIST, UNL XIF LST * AND PUNCH DEVICES, RESPECTIVELY. * 2) P3=(LOGICAL UNIT + 100) OF * DEVICE USED TO SPECIFY INPUT, LIST AND PUNCH. UNL IFZ LST * 3) P3-P5 CONTAIN ASCII FILE NAME * USED TO SPECIFY INPUT, LIST, AND PUNCH. UNL XIF LST * * * DEFAULT VALUES ARE P2=0, P3=5, P4=6, P5=4 * * UNL IFZ LST * WHEN CASE TWO OR THREE IS USED, THE DEVICES ARE SPECIFIED * IN THIS FORMAT: * * [INPUT LU OR FN][,LIST LU OR FN][,PUNCH LU OR FN] * ( FN = FNAMER[:SC[:CR]] ) * * NON-EXISTING FILES ARE CREATED FOR LIST AND PUNCH STREAMS. * ( FILE-TYPE = 3, FILE SIZE = 24 BLOCKS ) UNL XIF IFN LST * WHEN CASE TWO IS USED, THE DEVICES ARE SPECIFIED IN THIS FORMAT: * * [ INPUT LU ] [ ,LIST LU ] [ ,PUNCH LU ] UNL XIF LST * * ALL READ REQUESTS TO THE SYSTEM CONSOLE ARE PRECEEDED BY * THE PROMPT #. * * FILE NAMES ARE ACCEPTED FOR I/O ONLY WHEN THE FILE MANAGER * VERSION IS BEING USED. * * **************************************************************************** SKP *************************************************************************** * SYSGEN REQUIREMENTS * * THE 12618A SYNCHRONOUS MODEM INTERFACE KIT AND APPROPRIATE DATA * SET ARE REQUIRED TO COMMUNICATE. INSTALLATION OF THIS PACKAGE * FOLLOWS NORMAL RTE/RTE-C SYSGEN PROCEEDURES. THE DRIVER, DVR50 * MUST BE INSTALLED AS PRIVILEDGED (OPTION P23 IN RTE). * * RJE IS RECOMMENDED BACKGROUND DISC RESIDENT IN RTE, AND IS NOT * SWAPPABLE WHEN #BSC IS ATTACHED. ON LINE LOADING OF RJE IS * RECOMMENDED IN RTE-C DUE TO THE PROGRAM SIZE. * * #BSC MAY BE CONFIGURED AS A RESIDENT LIBRARY ROUTINE, MAKING * RJE SWAPPABLE. LARGE BATCH ORIENTED SYSTEMS MAY PREFER THIS * CONFIGURATION WITH RJE FORGROUND DISC RESIDENT. * * **************************************************************************** * DIALING CAPABILITY * * DURING ITS OPERATION, RJE WILL SCHEDULE A PROGRAM, #DIAL * TO PROVIDE DIALING CAPABILITY. THE HP SUPPLIED VERSION PRINTS * A MESSAGE FOR MANUAL DIALING. THE USER MAY SUPPLY HIS OWN * VERSION FOR AUTO DIALING, ETC. * * *************************************************************************** * DATA FORMAT * * DATA TRANSMISSION IS ON A UNIT RECORD (CARD IMAGE) BASIS, WITH * MULTIRECORD BLOCKING USED TO FILL A 400 CHARACTER BUFFER. THE * EM CHARACTER MAY BE USED TO SUPPRESS TRAILING BLANKS. * * HORIZONTAL TAB, VERTICAL FORMAT CONTROL, DEVICE SELECTION, * AND TRANSPARENCY ARE ALSO SUPPORTED. * * IF TRANSPARENT MODE IS SPECIFIED, THE INPUT "FILE" IS NOT * TRANSLATED INTO THE PROPER LINE CODE, BUT BINARY TRANSMISSION * OF 80 CHARACTER RECORDS IS POSSIBLE. ON RECEPTION, THE LIST * STREAM IS ALWAYS TRANSLATED, BUT THE PUNCH STREAM IS TRANSLATED * ONLY IN NON TRANSPARENT OPERATION, OR IF DIRECTED TO LPT OR TTY. * *************************************************************************** SKP *************************************************************************** * COMMANDS USED IN INPUT STREAM * * INPUT-EOF CAUSES A LINE TURNAROUND, AND, FOLLOWING THE RECEPTION OF ONE * FILE, TERMINATION OF RJE. * * TEN SPECIAL CONTROL RECORDS ARE RECOGNIZED IN THE INPUT STREAM: * * #E RECORD TRANSMITS THE CURRENT DATA BUFFER & CAUSES A LINE TURNAROUND. * * #P [,N [,M]] PAUSES FOR N LONG TIMEOUTS TO WAIT FOR UP TO M OUTPUTS. * N OR M EQUAL TO -1 MEANS INFINITE: #P,3,-1 = #R , #P = #E , #P,-1 = #W * * #C [,XX] RECORD CAUSES RECONFIGURATION OF I/O DEVICES. [XX] IS OF THE UNL IFZ LST * SAME FORMAT AS CASE TWO OR THREE FOR P3, ABOVE, BUT DEFAULT =NO CHANGE. UNL XIF IFN LST * SAME FORMAT AS CASE TWO FOR P3, ABOVE, BUT DEFAULT = NO CHANGE. UNL XIF LST * * #I RECORD CAUSES A TTY FILE TO BE INSERTED IN THE INPUT STREAM * UNTIL AN EOF IS READ FROM THE TTY, OR #P, #E, #R, #W IS USED. * WHEN THIS HAPPENS, THE INSERT IS TERMINATED. * * #R RECORD IS EQUIVALENT TO A #P,3,-1. * * #W RECORD SPECIFIES CONTINUAL WAIT FOR ONE OUTPUT FROM THE REMOTE. * THE WAIT INTERVAL MAY BE TERMINATED VIA OPERATOR INTERRUPT. * (*BR,RJE--FMP VERSION, OR *ON,#INRP--NON-FMP VERSION) * * #D RECORD CAUSES IMMEDIATE TERMINATION. * * #T [,XX] RECORD ENABLES TRANSPARENT MODE FROM THE CURRENT INPUT STREAM. UNL IFZ LST * 'XX' = LU OR FILE FROM WHICH INPUT WILL BE DERIVED UPON DETECTION OF UNL XIF IFN LST * 'XX' = LU FROM WHICH INPUT WILL BE DERIVED UPON DETECTION OF UNL XIF LST * END-OF-FILE ON THE CURRENT INPUT-STREAM. 'XX' HAS THE SAME FORMAT AS UNL IFZ LST * CASE TWO OR THREE FOR P3, AND MAY ALSO BE USED TO RE-CONFIGURE THE UNL XIF IFN LST * CASE TWO FOR P3, AND MAY ALSO BE USED TO RE-CONFIGURE THE UNL XIF LST * LIST AND PUNCH STREAM DEVICES AS IN #C. NOTE THAT #COMMANDS, E.G. #P * RECORDS, ARE TREATED AS DATA, NOT COMMANDS, IN TRANSPARENT MODE. * * #X COMMAND FORCES TRANSLATION OF TRANSPARENT DATA IN THE PUNCH STREAM. * #X IS CANCELLED AT RECEIPT OF 'EOT' IN PUNCH STREAM OR ENTRY OF THE * #C COMMAND, OR INVOCATION OF #T STREAM CHANGES AFTER EOF FROM INPUT. * * #S COMMAND IS USED TO SWITCH ON OR OFF THE DIAGNOSTIC MESSAGES * CAPABILITY OR THE TRACE FEATURE. THIS COMMAND MAY ALSO APPEAR IN * A CONFIGURATION DATA STREAM, E.G. #S,T,ON => TURN ON TRACE MODE. * **************************************************************************** * RTE INTERRUPT FEATURE * * THE RTE OPERATOR INTERRUPT FEATURE IS SUPPORTED, AND CAUSES * INTERRUPTION OF THE OUTPUT STREAM AND INSERTION (#I) OF A TTY * FILE IN THE INPUT STREAM * **************************************************************************** SKP *************************************************************************** * DIAGNOSTIC AND ERROR MESSAGES * * RJE PRINTS AN ON MESSAGE, A TERMINATION MESSAGE, AND ERROR * MESSAGES WITH THE FORMAT " RJE: XX" WHERE XX HAS VALUES WHOSE * MEANINGS ARE: * * 50...INITIALIZATION REQUEST ISSUED TO DRIVER * 51...#DIAL SCHEDULED * 52...HANDSHAKE REQUEST ISSUED * 53...ANSWER REQUEST ISSUED * 54...WRITE REQUEST ISSUED * 55...READ REQUEST ISSUED * 56...SEND EOT REQUEST ISSUED * 57...RECEIVE TO SEND REQUEST ISSUED * 58...DISCONNECT REQUEST ISSUED * 59...EXTENDED STATUS REQUEST ISSUED * 60...IRRECOVERABLE LINE ERROR * 61...TERMINAL ON LINE * 62...TRANSMIT MODE * 63...RECEIVE MODE * 64...RVI RECEIVED * 65...BUFFER OVERFLOWED * 66...CONTROL MODE * 67...WAITING FOR REMOTE MODEM... * * NOTE THAT CODES 50-67 ARE PRINTED ONLY IN DIAGNOSTIC * MODE, AND ARE INFORMATION MESSAGES, NOT ERROR * MESSAGES. * * 20...SECURITY CODE VIOLATION (#BSC NOT FOUND IN CORE) * 21...PASSWORD VIOLATION (ANOTHER PROGRAM HAS INITIALIZED THE DRIVER) * 22...ILLEGAL MODE FOR REQUEST ISSUED TO DRIVER * 23...ILLEGAL BUFFER FORMAT GIVEN TO DRIVER * 24...ILLEGAL BISYNC SEQUENCE RECEIVED REPEATEDLY * 25...LOSS OF CLEAR TO SEND * 26...8 NAK CHARACTERS SENT (GARBAGE RECEIVED) * 27...8 NAK CHARACTERS TRANSMITTED (GARBAGE TRANSMITTED) * * 30...RECEIVE TIMEOUT OCCURRED REPEATEDLY * 31...LONG TIMEOUT FAILURE * 32...LINE TERMINATION SEQUENCE SENT (DLE/EOT) * 33...LINE TERMINATION SEQUENCE RECEIVED (DLE/EOT) * 34...LOSS OF DATA SET READY SIGNAL * 35...LOSS OF CARRIER DETECT DURING RECEIVE (REPEATEDLY) * 36...TTD OR WACK LIMIT EXCEEDED * 37...REQUEST TIMEOUT DURING CONTROL MODE * * * NOTE THAT CODES 20-37 REPORT ERRORS WHICH WERE DETECTED * IN THE DRIVER, AND ARE CONSIDERED IRRECOVERABLE. * SKP * * 40...NAK READ REQUEST ISSUED 3 TIMES * 41...REMOTE DOES NOT RESPOND TO BID FOR LINE (HANDSHAKE REQUEST) * 42...I/0 DEVICE ERROR * 43...I/O CONFIGURATION PARAMETER ERROR * 44...LOGICAL UNIT NUMBER INVALID * 45...DVR50 NOT AVAILABLE (DEVICE DOWN, OR IN USE BY ANOTHER PROG) * 46...I/O REQUEST REJECTED BY DVR50 * 47...USER REQUEST TO ABORT RJE UNL IFZ LST * 48...TIMEOUT AND CONTROL MODIFICATION PARAMETER ERROR * * * NOTE THAT CODES 40-48 ARE ERRORS DETECTED BY RJE. UNL XIF IFN LST * * * NOTE THAT CODES 40-47 ARE ERRORS DETECTED BY RJE. UNL XIF IFZ LST * * * 01...FMGR ERROR -1 * 02...FMGR ERROR -2 * 03...FMGR ERROR -3 * 04...FMGR ERROR -4 * 05...FMGR ERROR -5 * 06...FMGR ERROR -6 * 07...FMGR ERROR -7 * 08...FMGR ERROR -8 * 09...FMGR ERROR -9 * * 10...FMGR ERROR -10 * 11...FMGR ERROR -11 * 12...FMGR ERROR -12 * 13...FMGR ERROR -13 * 14...FMGR ERROR -14 * 15...FMGR ERROR -15 * 16...FMGR ERROR -16 * 17...FMGR ERROR -17 * * * NOTE THAT CODES 00-17 ARE ERRORS ENCOUNTERED BY THE * FILE MANAGER, AND ARE CONSIDERED IRRECOVERABLE BY * RJE. * UNL XIF LST * * **************************************************************************** SKP *************************************************************************** *********** THIS IS AN ENHANCED VERSION OF RJE CREATED 11/11/76 ********* *********** IT CONTAINS THE FOLLOWING CHANGES: ********* * * -> DOES A CORELOCK TO PREVENT SWAPPING IF #BSC IS DISC-RESIDENT. * -> WHEN ENTERING CONFIGURATION DATA, THE COMMAND "#!" WILL ABORT RJE. UNL IFZ LST * -> IF THE FIRST RECORD OF CONFIGURATION DATA IS OF THE FORMAT: * ----- * #M,CODE [,PAD [,DUPLEX [,RCVTO [,XMITO [,LNGTO [,TTDWK ]]]]]] * * RJE MAY BE CONFIGURED FOR THE FOLLOWING OPERATING OPTIONS: * * CODE* = EBCDIC/ASCII COMMUNICATION LINE CODE TO BE USED. * PAD* = PAD/EOM PAD WITH BLANKS/TERMINATE WITH 'EOM'. * DUPLEX* = HALF/FULL MODEM OPERATIONAL MODE. * RCVTO = NNNNN (+10'S OF MSEC.>=+200) RECEIVE TIMEOUT. * XMITO = NNNNN (+10'S OF MSEC.>=+100) TRANSMIT TIMEOUT. * LNGTO = NNNNN (+10'S OF MSEC.>=+400) LONG TIMEOUT. * TTDWK = NNNNN (POSITIVE COUNT >=400) NO.OF TTD/WACK SEQUENCES. * * PARAMETERS INDICATED WITH '*' SUFFIX ARE ENTERED AS ASCII; * (CODE,PAD,DUPLEX ARE ASCII; OTHERS ARE NUMERIC <= +32767) * AT LEAST ONE PARAMETER MUST BE ENTERED; OTHERS ARE OPTIONAL. * CURRENT VALUES ARE UNCHANGED WHEN ",," PLACE-HOLDERS ARE ENTERED. * INITIAL VALUES ARE DEFINED BY <#COMN>. IF <#COMN> IS CORE-RESIDENT, * CHANGED VALUES REMAIN IN EFFECT, UNTIL FURTHER MODIFIED, OR UNTIL * THE SYSTEM IS RE-BOOTED FROM DISC. * * -> NON-EXISTING LIST AND/OR PUNCH-STREAM FILES ARE CREATED. * -> THE RTE "BR" COMMAND IS USED INSTEAD OF THE OPERATOR * SCHEDULING "#INRP". "#INRP" & "#INXT" ARE NO LONGER NEEDED. * -> "PRTN" IS CALLED TO REPORT ERRORS BACK TO THE SCHEDULING * PROGRAM. THE FIVE PARAMETERS ARE AS FOLLOWS: * P1 = INDICATES ABORT IF BIT 15 SET * P2 = LOWER 8 BITS OF EQT WORD 5 * P3 = EQT WORD 12 * P4 = FMP ERROR CODE * P5 = LAST ERROR CODE (IN ASCII) REPORTED TO SYSTEM CONSOLE * NOTE THAT NORMAL COMPLETION IS INDICATED BY P3 = 2000B. UNL XIF LST * -> TRANSMITTED RECORDS WILL NORMALLY BE PADDED OUT TO 80 * CHARACTERS WITH BLANKS. END-OF-MEDIA CHARACTERS WILL ONLY * BE USED(AS PREVIOUSLY) IF BIT 1 OF WORD #5 IN "#COMN" IS SET. UNL IFZ LST * -> RE-ENTRANT I/O ("REIO") IS USED FOR ALL UNIT-RECORD DEVICE * READ/WRITES. THIS PERMITS SWAPPING OF RJE WHILE IN I/O SUSPEND. UNL XIF LST * -> DVR05 ( 2640/2644/2645 ) TERMINAL OPERATION IS SUPPORTED. * -> ASCII AND EBCDIC ARE BOTH HANDLED BY THIS VERSION OF RJE. * ASCII TRANSLATION IS SELECTED BY SETTING BIT 2 IN THE * #CTRL WORD OF "#COMN". * -> #W COMMAND ADDED: CONTINUAL WAIT FOR OUTPUT FROM REMOTE. * -> #T[,XX] ALLOWS 'XX' TO RECONFIGURE ALL STREAMS AS IN #C[,XX]. * -> THIS SOURCE SUPPORTS BOTH THE FMP AND NON-FMP VERSIONS OF * RJE. TO ASSEMBLE THE FMP VERSION, INCLUDE THE CONDITIONAL * ASSEMBLY "Z" OPERATOR ON THE ASSEMBLER CONTROL CARD. TO * ASSEMBLE THE NON-FMP VERSION, USE THE "N" OPERATOR INSTEAD. * -> PARTS OF RJE HAVE BEEN RECODED TO DECREASE ITS SIZE AND * BASE PAGE LINKAGE REQUIREMENTS. * -> RJE,#BSC, AND DVR50 HAVE BEEN MODIFIED FOR RTE-III OPERATION. *************************************************************************** * * * **************************************************************************** **************************************************************************** **************************************************************************** * PCO 1840 AUGUST 11,1978 **************************************************************************** * * THIS VERSION OF RJE DOES NOT BID FOR THE LINE UNLESS IT HAS * DATA TO SEND. THIS PREVENTS THE "READER ACTIVE" DEADLOCK * WHICH WAS CAUSED BY BIDDING FOR THE LINE AND THEN TURNING * IT AROUND BY SENDING EOT WITHOUT HAVING SENT DATA. * * TO COPE WITH MULTIPLE RETURNING OUTPUTS, #P COMMAND WAS ADDED. * * DIAGNOSTIC MESSAGES AND ERROR MESSAGES AND INFORMATION MESSAGES * ARE NOW PRINTED IN ASCII FOR FMP VERSIONS. * * A TRACE CAPABILITY NOW EXISTS WHICH ALLOWS RECORDING OF ALL * BYTES SENT AND RECEIVED OVER THE LINE. * * TRACE AND DIAGNOSTICS MODE MAY BE SWITCHED ON OR OFF AT ANY TIME * BY USE OF THE #S COMMAND. * *........................................................................ * * BUGS FIXED: * * PARSING BUG IN CONFIGURATION FILE INPUT FILENAME RECOGNITION. * (CAN NOW BE LESS THAN SIX CHARACTERS.) * * COMMUNICATIONS BUFFER OVERLAP. * * #I USED TO CAUSE BID FOR THE LINE. * * 18.2 HR IN AUTO ANSWER USED TO HANG SYSTEM. * * DID NOT RECOGNIZE SECURITY CODE > 72. * * #R WAITED FOR FOUR LONG TIMEOUTS INSTEAD OF THREE. * * BAD SYN CHARACTER SEARCH COULD CAUSE TO BE LOCKED OUT OF SYNC. * * END OF MEDIA EM NOW IS BYPASSED ONLY ON VERY FIRST RECORD. * * TROUBLE WITH 80 CHARACTER FIRST RECORDS. * * IF SENT NAK AND TIMED OUT RECEIPT OF ANSWER SYSTEM WOULD HANG. * ************************************************************************** ************************************************************************** SKP ************************************************************************** * PCO 1913 JANUARY 31,1979 * * CHANGES MADE INCLUDE: * * 1. USE OF EXEC 13 INSTEAD OF REFERENCING THE DRT DIRECTLY * IN DETERMINING DEVICE TYPE. * * 2. CLEAN UP OF THE TERMINATION SEQUENCE (EXIT). * *************************************************************************** *************************************************************************** * PCO 1926 APRIL 26,1979 * * RTE-IVB SESSION MONITOR COMPATIBILITY! * *************************************************************************** *************************************************************************** * PCO 2001 OCTOBER 9, 1979 * * NOTE: #BSC HAS BEEN CHANGED ALSO FOR PCO 2001!!! * * 1. FIXED P2 INPUT RECOGNITION BUG. * * 2. CHANGED BUFFER ADDRESS FOR WRITES AND READS TO * DVR50 FOR COMPATIBILITY WITH PCO 1926 OF RTE. * THIS WILL INSURE THAT THE USER MAP WILL BE ENABLED * WHEN THE DRIVER IS ENTERED. * *************************************************************************** *************************************************************************** * PCO 2013 JANUARY 23, 1980 * * NOTE: ONLY RJE MODULE IS CHANGED FOR PCO 2013. * * REASON: JES3 HAS LINE FILL SEQUENCE WHEN NOTHING TO SEND. * ENQ(3 SEC),EOT(10 SEC),ENQ... * IT EXPECTS A REPLY TO THE ENQ WITHIN 16 ENQS OR * ELSE IT WILL GIVE UP. ACK0 OR NAK WORK. * DO A #P TYPE WAIT COMMAND OR A #W. * * IN OTHER WORDS, JES3 HAS A CONTROL MODE TIMEOUT * OF ITS OWN, APART FROM RJE'S. * * RJE WOULD WAIT FOREVER AFTER A #P, HOWEVER. * CODE HAS BEEN CHANGED SO THAT RECEIPT OF AN EOT * AFTER AN ENQ (WITHOUT DATA) WILL DECREMENT THE * WAIT COUNT BY ONE (13 SEC COUNTS AS 20 IN THIS CASE). * * CHANGED: IN RECEIVE PROCESS, LOOK FOR (JES3). * *****************************************************************************