I remember, in the seventies, that a person told me that DCBD block
was built taking and overlaping information, in this order, from
1) VTOC
2) JCL
3) DCB macro in PROGRAM
So I think we need to know the source of a program (IEBGENER or
others) to have all the information (is BLKSIZE parameter coded in program
macro DCB?)
I did more test about and SDB appears to be in effect, for SMS and
NO-SMS files, when the program does the OPEN macro and this OPEN is for
OUTPUT, provided the values in VTOC/JCL are BLKSIZE=0 and on information is
provided by DCB macro. Below is the program to test this.
angel luis dom�nguez
bbva - spain
---oooOooo---
BLKTEST INICIO 12,COMEN='OBTIENE EL BLKSIZE DE FICHERO
TIPO=NORENT
*
LA R3,INFILE
USING IHADCB,R3
SLR R7,R7
LH R7,DCBBLKSI
CVD R7,WORKD
UNPK WORKA(5),WORKD+5(3)
OI WORKA+4,X'F0'
MVC LBWTO1+8+25(5),WORKA
LBWTO1 WTO '+EL BLKSIZE DE INFILE ES XXXXX. '
*
OPEN (INFILE,(OUTPUT))
LA R3,INFILE
USING IHADCB,R3
SLR R7,R7
LH R7,DCBBLKSI
CVD R7,WORKD
UNPK WORKA(5),WORKD+5(3)
OI WORKA+4,X'F0'
MVC LBWTO2+8+25(5),WORKA
LBWTO2 WTO '+EL BLKSIZE DE INFILE ES XXXXX. '
*
CLOSE (INFILE)
FIN CR,TIPO=NORENT
*
* RESERVA DE AREAS
*
WORKA DS CL5
WORKD DS D
INFILE DCB DDNAME=INFILE,DSORG=PS,MACRF=PM
*
DCBD DSORG=PS
END
-----Mensaje original-----
De: Edward E. Jaffe [mailto:[EMAIL PROTECTED]
Paul Gilmartin wrote:
>It's more complicated than that. I wrote a little assembler program.
>I did not supply RECFM, LRECL, or BLKSIZE in the DCB macro. To
>simulate an "old" DCB, I did:
>
> XC DCBDSORG,DCBDSORG
>
>In the JCL:
>
> //SYSUT2 DD SYSOUT=(,),RECFM=VB,LRECL=125
>
>I then did:
>
> OPEN (SYSUT2,OUTPUT)
> PUT SYSUT2,TEXT
> CLOSE SYSUT2
>
>... with no error, and successful write to SYSOUT. Where did BLKSIZE
>come from? Again, are the rules clearly stated somewhere?
>
>
I don't think SYSOUT is the best (or even a good) way to test these "rules".
JES2/JES3 SSI allocation and OPEN routines may have been (but probably never
were) 100% compatible with DFP (or whatever its predecessor was called) way
back when they were written, but DFP has evolved a lot since then. JES
hasn't.
--
-----------------------------------------------------------------
| Edward E. Jaffe | |
| Mgr, Research & Development | [EMAIL PROTECTED] |
| Phoenix Software International | Tel: (310) 338-0400 x318 |
| 5200 W Century Blvd, Suite 800 | Fax: (310) 338-0801 |
| Los Angeles, CA 90045 | http://www.phoenixsoftware.com |
-----------------------------------------------------------------
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the
archives at http://bama.ua.edu/archives/ibm-main.html
_____________________________________________________________________
Mensaje analizado y protegido, tecnologia antivirus www.trendmicro.es
====================================================================
........................... DISCLAIMER .............................
This message and its attachments are intended exclusively for the
named addressee. If you receive this message in error, please
immediately delete it from your system and notify the sender. You
may not use this message or any part of it for any purpose.
The message may contain information that is confidential or
protected by law, and any opinions expressed are those of the
individual sender. Internet e-mail guarantees neither the
confidentiality nor the proper receipt of the message sent.
If the addressee of this message does not consent to the use
of internet e-mail, please inform us inmmediately.
====================================================================
......................... AVISO LEGAL ............................
La presente comunicaci�n y sus anexos tiene como destinatario la
persona a la que va dirigida, por lo que si usted lo recibe
por error debe notificarlo al remitente y eliminarlo de su
sistema, no pudiendo utilizarlo, total o parcialmente, para
ning�n fin. Su contenido puede tener informaci�n confidencial o
protegida legalmente y �nicamente expresa la opini�n del
remitente. El uso del correo electr�nico v�a internet no
permite asegurar ni la confidencialidad de los mensajes
ni su correcta recepci�n. En el caso de que el
destinatario no consintiera la utilizaci�n del correo electr�nico,
deber� ponerlo en nuestro conocimiento inmediatamente.
====================================================================
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
