Mainframe, MVS and zOS Discussion

Sorry for the typos. Please see the below code:

/* REXX */
"EXECIO * DISKR INFILE (STEM LINE1. FINIS"
J = 1
DO J=1 TO LINE1.0
IF SUBSTR(LINE1.J,104,13) = 'ARCHIVE DATE:' THEN
DO
OUT1.J = SUBSTR(LINE1.J,104,25)
J=J+1
END
ELSE
J=J+1
END
SAY RC
"EXECIO * DISKW OUTFILE (STEM OUT1 ...

Hi,

I am trying to run the following REXX using a JCL:

/* REXX */
"EXECIO * DISKR INFILE (STEM LINE1. FINIS"
J = 1
DO J=1 TO LINE1.0
IF SUBSTR(LINE1.I,104,13) = 'ARCHIVE DATE:' THEN
DO
OUT1.J = SUBSTR(LINE1.I,104,25)
J=J+1
END
ELSE
J=J+1
END
SAY RC
"EXECIO * DISKW OUTFILE ...

vikriih wrote:BLKSIZE=0 means that developer does not want to specify the BLKSIZE and it will be defaulted to system determined

Is it always so?

Hi,

Assuming I am working on a COBOL DB2 program. A batch program. I execute a SQL query in the program which causes a SQLCODE -811. Now which row will be fetched in DCLGEN or host variable as the select statement had fetched more than one row and with -811 SQL code? Obviously there are duplicates ...

Hi,

I was thinking that if I male BLKSIZE ZERO in JCL for perticular dataset, it will loose any data on output file. But it did not do so. Why this happens?