syprakash
New User
Joined: 16 Feb 2010
Posts: 3
Location: bangalore
|
|
|
|
Current Scenario:
Doing File Matching using User Exit routine E35.
1) Intializing Intermediate file, For each record, adding 'M' or 'U' at the last byte+1 of file if 'matching found' or "no match' respectively.
2) In Sort(E35) jcl, writing into 2 different file(dropped, Sortout) based on Last byte +1( U or M)
| Code: |
SORT FIELDS=(14,4,PD,A)
INCLUDE COND=(13,1,CH,EQ,C'K')
MODS E35=(programA,50000,MODLIB,C)
OUTFIL FNAMES=DROPPED,INCLUDE=(405,1,CH,EQ,C'U'),
BUILD=(1,00404)
OUTFIL FNAMES=SORTOUT,INCLUDE=(405,1,CH,EQ,C'M'),
BUILD=(1,00404)
OPTION COBEXIT=COB2
RECORD LENGTH=(,,405)
END |
ISSUE:
For VB files, since I am Initalizing and padding additional character (or due to any other reason), length of individual records are changed to maximum record length.
But in down stream,during file validation, error occurs due to mismatch in header length.
Question:
Is there any way I can directly write into two different files without padding extra character.
Note : this is common routine, so Output file length will be passed in sysin mentioned above.
Code'd |
|
