> Here's a fix for OFCNJE for UCLA/Mail V1.5: > > > Date: Thu, 25 Apr 1996 08:56:35 -0700 > > Message-Id: <199604251551.IAA17156@grizzly.ucla.edu> > > Subject: JES2 Maint (OFCNJE bug..) > > > > Disclaimer: This is still preliminary and I'm not running the > > JES2 maintenance reported here or the the UCLA/Mail > > fix... > > > > It appears that IBM has fixed a long standing bug in HASPSNA > > dealing with decompressing inbound to JES2 sysouts. > > > > This is APAR OW14229 and various PTFs (UW20611 for 4.2, UW20612 > > for 4.3 etc.). Probably also various 5+ versions of JES2... > > > > This has exposed a bug in the UCLA/Mail outbound processing, > > OFCNJE is sending EOF records which are one byte too long which > > then causes JES2 to reject the whole SYSOUT. > > > > I have made a guess at a fix which now one UCLA/Mail site says > > does work and fixes the problem (thanks to Dave Crow at Duke). > > > > in OFCNJE after label SND$DAT1: > > > > SND$DAT1 CR R4,R5 ANY DATA HERE? 1041 > > BNL SND$DAT4 BIF ALL DONE 1042 > > * --- HAVE A RID (+ OPT DATA) TO COMPRESS 1043 > > LR R15,R4 @ OF RID (START OF DATA) 1044 > > SR R1,R1 1ST ASSUME IS DATA RID (98/99->F8/F9) 1045 > > IC R1,2(,R4) GET DATA LEN-1 (FROM RID+2) 1046 > > *** start of fix 04/19/96 > > ** the following adjusts the length to match the NJE protocol > > ** spec -- a length byte of x'01'-x'ff' map to 2 to 256 > > ** while a length of x'00' means 0. It is not possible > > ** to specify a length of 1! > > LTR R1,R1 **fix** is this length zero (EOF)? > > BNZ *+6 **fix** bif not zero (EOF), leave alone > > BCTR R1,0 **fix** make len -1 so comes out zero > > *** end of fix 04/19/96 > > LA R1,1+3(,R1) LENGTH OF RID+LEN-1+1 1047 > > TM 0(R4),X'0F' THIS DATA TYPE RID? 1048 > > BNZ SND$DAT2 BIF DATA TYPE RID, HAVE LENGTH 1049 > > SH R1,=H'4' ASSUME NETWORK TOPOLOGY RID (LEN) 1050 > > CLI 0(R4),X'F0' NETWORK TOPOLOGY RECORD? 1051 > > BE SND$DAT2 1052 > > LA R1,3 ELSE IS STREAM CONTROL (LEN ALWAYS 3) 1053 > > SND$DAT2 AR R4,R1 POINT RID PTR PAST THIS RID/REC 1054 > > SPACE 1 1055 > > >