View previous topic :: View next topic
|
Author |
Message |
ughosal
New User
Joined: 23 Jun 2005 Posts: 3
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
Back to top |
|
|
ughosal
New User
Joined: 23 Jun 2005 Posts: 3
|
|
|
|
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 |
|
|
MGIndaco
Active User
Joined: 10 Mar 2005 Posts: 432 Location: Milan, Italy
|
|
|
|
Hi Ughosal, see better the post of Superk, at bottom you will find the answer... |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
|