Copying a File with LRECL=200 to LRECL=132.

In this Mainframe Forum - You can post your queries on JCL, OS/390 JCL, MVS JCL, z/OS JCL, JES2 & JES3

Moderators: Frank Yaeger, DikDude, Moderator Group

Post Reply
gp99516
Member
Posts: 7
Joined: Wed May 11, 2011 5:26 pm

Copying a File with LRECL=200 to LRECL=132.

Post by gp99516 » Thu May 12, 2011 2:01 pm

Hi Guru's,

Requirement:- Need to Format an input file with LRECL=200 to Another file with LRECL=133 which can be used as an input to next step.

Search Result:- Similar tailoring can be done thru ICETOOL

Question:- Is there any other simpler way which i may not know of??

Thanks in Advance,
Gopal Prashad

User avatar
Frank Yaeger
Moderator
Posts: 812
Joined: Sat Feb 18, 2006 5:45 am
Location: San Jose, CA
Contact:

Post by Frank Yaeger » Thu May 12, 2011 11:13 pm

What do you mean by "format". Do you mean you just want the first 133 bytes of the 200 byte input file for output? If so, this is quite easy to do with ICEGENER or DFSORT copy, both of which can truncate the output records based on the LRECLs.

Or do you mean something else (what exactly)?
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

gp99516
Member
Posts: 7
Joined: Wed May 11, 2011 5:26 pm

Post by gp99516 » Fri May 13, 2011 4:48 pm

Thanks Guru For Responding,
I have tried to give more details of my Running Issue. Let me know if you need more. Correct me if i am wrong. Guide my directions as i need.

Subject--> Need to send a mail with attached notepad. This notepad has copy of GDG(0). The GDG itself is a load of a Table.

Details-->
GDG -->IS00711.E.MC00JCL5.LCX4.T705LOD(+0) which has load of a table.
I want this to mail to my XXXX@Headstrong.com ID in notepad attachment.
----------------------------------------------------------------------------------------
My JCL for Email-->

//JS000010 EXEC PGM=IEBGENER
//OUTPUT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,
// DSN=IS00711.E.AUTOMCL5.TEST200 -->MIME to send notepad in mail
// DD DISP=SHR,
// DSN=IS00711.E.AUTOMCL5.DATA200 -->Actual Data to send in notepd
//SYSUT2 DD SYSOUT=(B,SMTP)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//*****************************************************************
BOTH THE ABOVE DSN HAS LRECL =200, & I think when u do SMTP it only consider LRECL up to 133.

Correct me if i am wrong??
Is this the reason i am not able to receive Emial to my My Email Id.

What if my DSN has length greater then 133. Would i be able to get a mail attachment of that or not???

Problem 2: This JCL is not able to send me mail even if i reduce LRECL of both DSN to 133.
//******************************************************************
IS00711.E.AUTOMCL5.TEST200 is as follows.

2xx.xx.x.1xx
TO: gopal.prashad@headstrong.com
DATA
SUBJECT: automation testing
MIME-VERSION: 1.0
CONTENT-TYPE: MULTIPART/MIXED;
BOUNDARY="----_=_NEXTPART_000_01C0DFAD.3EF4A2D0"

------_=_NEXTPART_000_01C0DFAD.3EF4A2D0
HI GOPAL
PLEASE FIND THE ATTACHED MEDS704 BACKUP

THANKS,
AUTOMATION TEAM.
------_=_NEXTPART_000_01C0DFAD.3EF4A2D0
0000000445042MEDSBMEVNO2011-05-03I530161 00010000000000000 0000000000000 00


This is what i am getting in SYSUT2. but its not coming to my mail Id....


Sorry for the long post. Guru please help.

User avatar
Frank Yaeger
Moderator
Posts: 812
Joined: Sat Feb 18, 2006 5:45 am
Location: San Jose, CA
Contact:

Post by Frank Yaeger » Fri May 13, 2011 8:31 pm

I can't help you with this. I'm an expert on DFSORT, not SMTP or e-mail attachments. Perhaps somebody else will be able to help.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

MrSpock
Active Member
Posts: 273
Joined: Wed Jun 27, 2007 5:37 pm

Post by MrSpock » Fri May 13, 2011 10:23 pm

This topic from earlier this week:

http://www.mainframegurukul.com/ibmmain ... highlight=

is almost exactly the same issue.

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others