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. FINIS&q...

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 (STEM OUT1. ...

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 b...

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?