Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
JCL instream data length > 80

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
ughosal

New User


Joined: 23 Jun 2005
Posts: 3

PostPosted: Thu Jun 23, 2005 5:38 am    Post subject: JCL instream data length > 80
Reply with quote

Hi,

I am trying to FTP some data generated from an online CICS/IDEAL program from mainframe onto non-mainframe environment. For this I am creating and submitting a batch job from the online program. The data is passed to the JCL as instream parameter. I need to FTP the data, so I am copying the instream data onto a dataset using IDCAMS, before FTP-ing.

Problem arises because my data rec length is 132, as IDCAMS is able to copy only 80 bytes length from the instream data. Any suggestion how the full 132 bytes instream data could be copied to a dataset?

I should not write the data in a dataset directly from the online program because many users could use the transaction at the simultaneously.

Advise please.
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Thu Jun 23, 2005 6:32 am    Post subject: Re: JCL instream data length > 80
Reply with quote

I can't answer the question as far as CICS/IDEAL and how it works, but you might want to review this post:

http://ibmmainframes.com/viewtopic.php?t=987&highlight=instream
Back to top
View user's profile Send private message
ughosal

New User


Joined: 23 Jun 2005
Posts: 3

PostPosted: Thu Jun 23, 2005 12:43 pm    Post subject: Re: JCL instream data length > 80
Reply with quote

Superk,
Thanks for your reply, but I cannot figure out from the previous postings you referred how to copy longer than 80 instream data into a PS dataset. Please could you type me the JCL step as an example.

I am currently using IDCAMS, and it truncates data after 80th column.
Back to top
View user's profile Send private message
MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Thu Jun 23, 2005 10:17 pm    Post subject:
Reply with quote

Hi Ughosal, see better the post of Superk, at bottom you will find the answer...
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Mon Jun 27, 2005 7:43 pm    Post subject: Re: JCL instream data length > 80
Reply with quote

The copy of 132-bytes of instream data works for me:
Code:

//*
//STEP0001 EXEC PGM=IDCAMS
//SYSUT1   DD   *
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3--
//SYSUT2   DD   DSN=&SYSUID..TEST132.DATA,DISP=(,CATLG,DELETE),
//         UNIT=SYSDA,SPACE=(CYL,(1,1)),RECFM=FB,LRECL=132
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
  REPRO IFILE(SYSUT1) OFILE(SYSUT2) REUSE
//*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us