🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.protocols.ibm
Article #135

Re: Problem with JES2 proclibs

#135
From: Bruce Becker
Date: Sun, 30 Jul 1989 07:15
29 lines
1596 bytes
In article <8907271812.AA19235@jade.berkeley.edu> b <mailrus!jarvis.csri.toronto.edu!utgpu!attcan!bdofed!cook@TUT.CIS.OHIO-ST> writes:
| [...]
|The JES2 proc is;
|
|//JES2    PROC MEMBER=JES2PARM,ALTMEM=JES2PARM
|//IEFPROC EXEC PGM=HASJES20,DPRTY=(15,15),TIME=1440,PERFORM=9
|//PROC00   DD  DSN=SYS1.EBE.PROCLIB,DISP=SHR,DCB=BLKSIZE=20000
|//         DD  DSN=SYS1.PROCLIB,DISP=SHR
|//         DD  DSN=OKPROD.PROC,DISP=SHR,UNIT=SYSDA,VOL=SER=EBE013
|//         DD  DSN=OKPROD.MSPROC,DISP=SHR,UNIT=SYSDA,VOL=SER=EBE013
|//         DD  DSN=PROD.PROCLIB,DISP=SHR,UNIT=SYSDA,VOL=SER=EBE007
|//         DD  DSN=TEST.PROCLIB,DISP=SHR,UNIT=SYSDA,VOL=SER=EBE005
| [...]
|All of the proclibs are PRIMARY allocation only. Their blocksizes are (in
|order) 3120, 3120, 3120, 3120, 6160, 6160.

	I think you should be saying  "DCB=BUFLEN=20000" on the
	//PROC00 line.

	Changing the BLKSIZE will indeed cause i/o errors since
	the read will expect 20000 bytes but will only get 3120
	whenever a SYS1.EBE.PROCLIB block is accessed.

Cheers,
-- 
   __	 Bruce Becker	Toronto, Ont.
w \cc/	 Internet: bdb@becker.UUCP, bruce@gpu.utcs.toronto.edu
 `/\/-e	 BitNet:   BECKER@HUMBER.BITNET
_<  >_	 "Mistah Kaldis, he T*d" - A Popsicle Now
Technical Details
Message-ID: <680@becker.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!censor!becker!bdb
References: <8907271812.AA19235@jade.berkeley.edu>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!censor!becker!bdb
From: bdb@becker.UUCP (Bruce Becker)
Newsgroups: comp.protocols.ibm
Subject: Re: Problem with JES2 proclibs
Message-ID: <680@becker.UUCP>
Date: 30 Jul 89 07:15:53 GMT
References: <8907271812.AA19235@jade.berkeley.edu>
Reply-To: bdb@becker.UUCP (Bruce Becker)
Organization: G. T. S., Toronto, Ontario
Lines: 29