View previous topic :: View next topic
|
Author |
Message |
Auryn
New User
Joined: 11 Jan 2006 Posts: 83 Location: Lower Saxony (DE)
|
|
|
|
Hi there everybody,
it's a long time ago I posted my last question.
But now, I've got a new one..
We have a tool which writes a FBA-Dataset, probably also a FBA-PO-member.
But in the following, I need this output as a VBA-PO-member.
So, does anybody of you have an idea how to realize this? |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
SORT or REXX are easily capable of converting from FB >> VB >> FB |
|
Back to top |
|
|
Auryn
New User
Joined: 11 Jan 2006 Posts: 83 Location: Lower Saxony (DE)
|
|
|
|
Thanxx for the hint but:
I don't have any experience with REXX nor programming such a routine.
And I tried to 'sort' my dataset but that did not work.
I mean, the dataset does not contain any sort-columns, so there's nothing to sort...
To avoid misunderstanding: My problem is not copying a dataset to a member, my problem is converting RECFM=FBA (LRECL=133) to RECFM=VBA (LRECL=137).
It is not a problem to do this manual by the ISPF-Move/Copy-Utility (3.3) or the Copy-Command when editing the PO-Member. But I'd like to do this automatically. Is there a possibility to execute the ISPF-Move/Copy-Utility from a JCL? |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
I usually use something like this. It could probably be improved upon, but I have had this for years and years and it always seems to work OK
Code: |
//ICEMERGE EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INFILE DD DSN=..............DISP=SHR
//OUFILE DD DSN=..............VARIABLE,
// DISP=(,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),RECFM=VB,LRECL=27994
//TOOLIN DD *
COPY FROM(INFILE) TO(OUFILE) USING(COPY)
/*
//COPYCNTL DD *
OUTFIL FNAMES=OUFILE,FTOV,VLTRIM=C' '
/*
|
|
|
Back to top |
|
|
Auryn
New User
Joined: 11 Jan 2006 Posts: 83 Location: Lower Saxony (DE)
|
|
|
|
Hi Expat,
thank you very much for this very helpful hint.
It Works!!! |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Code: |
// SPACE=(CYL,(10,10),RLSE),RECFM=VB,LRECL=27994
|
If you want the output to be VBA/137, you should use:
Code: |
// SPACE=(CYL,(10,10),RLSE),RECFM=VBA
|
|
|
Back to top |
|
|
|