MVSFORUMS.com :: View topic - Empty output file

MVSFORUMS.com
A Community of and for MVS Professionals

FAQ

Quick Manuals

Profile

Empty output file

MVSFORUMS.com Forum Index -> TSO and ISPF

View previous topic :: View next topic

Author

Message

abhinav343
Beginner

Joined: 12 Jun 2007
Posts: 23
Topics: 12

Posted: Wed Jan 21, 2009 2:52 pm Post subject: Empty output file

I am trying to run a simple rexx program thru' JCL. Here is JCL:

Code:

//REXX EXEC PGM=IKJEFT01,DYNAMNBR=200
//SYSEXEC DD DSN=MC00.RBRYMJB.COBOL,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INFILE DD DSN=MC00.RBRYMJB.SAR,DISP=SHR
//*UTFILE DD SYSOUT=*
//OUTFILE DD DSN=MC00.RBRYMJB.EMAIL,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330,DSORG=PS)
//SYSTSIN DD *
PROFILE PREFIX(RBRYMJB)
%ABHIMAIL

And here is my simple REXX program:

Code:

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

I am getting empty output file MC00.RBRYMJB.EMAIL. When I am executing the Rexx program independently it gives the output as expected.

Here is the SYSOUT for the same:

Code:

ACF0C038 ACF2 LOGONID ATTRIBUTES HAVE REPLACED DEFAULT USER ATTRIBUTES
READY
PROFILE PREFIX(RBRYMJB)
READY
%ABHIMAIL
READY
END

Please let me know what am I missing?

superk
Advanced

Joined: 19 Dec 2002
Posts: 684
Topics: 5

Posted: Wed Jan 21, 2009 4:40 pm Post subject:

I see one immediate problem with the indexing variables in your REXX code. This would be better:

Code:

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

and this would be better still:

Code:

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

Display posts from previous:

	MVSFORUMS.com Forum Index -> TSO and ISPF	All times are GMT - 5 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum