Output file should be : - record length 80
--------------------------------------------------------------------------------------
helo NY03
mail from:<System_Support@yahoo.com>
rcpt to:<Mail_id1@yahoo.com>
data
From: System_Support@yahoo.com
To: Mail_id1@yahoo.com
cc:
Subject: Access Alert --- TEST
You have not accessed the the payment application for 150
days. If you do not access the application within 30 days, your access
will be revoked. Please contact Systems Support if you have questions.
.
helo NY03
mail from:<System_Support@yahoo.com>
rcpt to:<Mail_id2@yahoo.com>
data
From: System_Support@yahoo.com
To: Mail_id2@yahoo.com
cc:
Subject: Access Alert --- TEST
You have not accessed the the payment application for 150
days. If you do not access the application within 30 days, your access
will be revoked. Please contact Systems Support if you have questions.
.
helo NY03
mail from:<System_Support@yahoo.com>
rcpt to:<Mail_id3@yahoo.com>
data
From: System_Support@yahoo.com
To: Mail_id3@yahoo.com
cc:
Subject: Access Alert --- TEST
You have not accessed the the payment application for 150
days. If you do not access the application within 30 days, your access
will be revoked. Please contact Systems Support if you have questions.
.
--------------------------------------------------------------------------------------
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
use the following control cards
Code:
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL BUILD=(C'HELO NY03',/,
C'MAIL FROM:<SYSTEM_SUPPORT@YAHOO.COM>',/,
C'RCPT TO:<',1,72,JFY=(SHIFT=LEFT,TRAIL=C'>'),/,
C'DATA',/,
C'FROM: SYSTEM_SUPPORT@YAHOO.COM',/,
C'TO: ',1,72,/,
C'CC: ',/,
C'SUBJECT: ACCESS ALERT --- TEST',/,
C'YOU HAVE NOT ACCESSED THE THE PAYMENT',
C'APPLICATION FOR 150',/,
C'DAYS. IF YOU DO NOT ACCESS THE ',
C'APPLICATION WITHIN 30 DAYS, YOUR ACCESS',/,
C'WILL BE REVOKED. PLEASE CONTACT ',
C'SYSTEMS SUPPORT IF YOU HAVE QUESTIONS.',/,
C'.',80:X)
//*
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
Either your SORTOUT data set was previously created with LRECL=80 or you specified LRECL=80 on the SORTOUT DD statement.
Kolusu's job actually creates a data set with a record length of 81 bytes because of this line:
C'RCPT TO:<',1,72,JFY=(SHIFT=LEFT,TRAIL=C'>'),/,
'RCPT TO:<' is 9 bytes + 72 bytes for 1,72 = 81 bytes. DFSORT uses the longest record length of the BUILD lines as the LRECL. If you don't specify an LRECL, then DFSORT sets the LRECL automatically. If you specify a different LRECL (e.g. LRECL=80), DFSORT issues the ICE222A error message.
So either let DFSORT set the LRECL to 81, or change the line above to:
C'RCPT TO:<',1,71,JFY=(SHIFT=LEFT,TRAIL=C'>'),/,
so that the record length and LRECL will both be 80.