|
View previous topic :: View next topic
|
| Author |
Message |
pattabiraman.baskaran
New User
Joined: 10 Aug 2006
Posts: 23
|
|
|
|
Hi,
I have 10 different files of diferent LRECL.
All the 10 files will have key from positon 1 to 12.
Eg:
file 1
00000000124K---$1245.32
file 2
00000000124K---ahkfhyt
etc.........
I need a 'generic' SORT card that appends 8 ZEROES in the front of each file.
Eg:
file 1 should be,
0000000000000000124K---$1245.32
file 2 should be,
0000000000000000124K---ahkfhyt
etc..........
Since each file is of differnet length i was not able to create a SORT card generic to all the files.
Kindly help me in resolving this issue.  |
|
| Back to top |
|
 |
murmohk1
Senior Member
.jpg)
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
| Quote: |
Since each file is of differnet length i was not able to create a SORT card generic to all the files.
Kindly help me in resolving this issue. |
Since the key is same for all the files, single card suffice for all the files. |
|
| Back to top |
|
|
pattabiraman.baskaran
New User
Joined: 10 Aug 2006
Posts: 23
|
|
|
|
Hi,
In the above mentioned examples,
file 1 is of LRECL = 23
file 2 is of LRECL = 22
I want to append 8 ZEROES infront of each record in both the files.
As far as i know I will use this,
FILE 1:
OPTION COPY
OUTREC FIELDS=(8Z,1,12,13,11)
FILE2:
OPTION COPY
OUTREC FIELDS=(8Z,1,12,13,10)
Here, both the SORT fields are different, and i cannot end up as 'generic'.
Can you prepare a 'generic' SORT card for me. |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| IIRC, all you should need is OUTREC FIELDS=(8Z,1)..... |
|
| Back to top |
|
|
pattabiraman.baskaran
New User
Joined: 10 Aug 2006
Posts: 23
|
|
|
|
But it is giving,
OUTREC - ILLEGAL DATA FIELD -> error message.
OUTREC FIELDS=(8Z,1) -> Can you explain how will this work? |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
Not VB lrecl? Maybe not.....
Cut & paste your sysout. |
|
| Back to top |
|
|
pattabiraman.baskaran
New User
Joined: 10 Aug 2006
Posts: 23
|
|
|
|
********************************* TOP OF DATA **********************************
SYNCSORT FOR Z/OS 1.2.3.0N U.S. PATENTS: 4210961, 5117495 (C) 2005 SYNCSO
061307: SYNCSORT Z/OS 1.2 TPF3.0 + FXS z/OS
PRODUCT LICENSED FOR CPU SERIAL NUMBER 3E14C, MODEL 2094 707 LICEN
SYSIN :
SORT FIELDS=(1,12,CH,A)
OUTREC FIELDS=(8Z,1)
WER276B SYSDIAG= 7266243, 9593086, 9593086, 4403637
WER164B 13,468K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,004K BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=FB ; LRECL= 471; BLKSIZE= 27789
WER231A OUTREC - ILLEGAL DATA FIELD
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
******************************** BOTTOM OF DATA ******************************** |
|
| Back to top |
|
|
|
|
