View previous topic :: View next topic
|
Author |
Message |
guptae
Moderator
Joined: 14 Oct 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Hello All,
My Input is VBA file with record length 85 .
Input1:
Code: |
total record length 75
abcf
asjkkkk
sdjjjjk
/ CLMPER LAST CHANGED BY EG
total record length 76
abcf
asjkkkk
sdjjjjk
/ CLTPER LAST CHANGED BY FGERG |
I am looking for below output
So basically I am looking for all the ID prefix by / and suffix by C' LAST CHANGED BY '
I tried sort as below
Code: |
//JS030 EXEC PGM=ICEMAN,
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYMNAMES DD *
FLD2,%00
EQUAL,'/ '
VARB,' LAST CHANGED BY '
//SORTIN DD DSN=inputfile,DISP=SHR
//SORTOUT DD DSN=Outputfile,
// DISP=(NEW,CATLG,DLET),
// UNIT=(SYSDA,9),
// SPACE=(TRK(1,1),RLSE)
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(5,81,SS,EQ,C' LAST CHANGED BY ')
INREC PARSE=(%=(STARTAT=EQUAL),
%00=(ENDBEFR=VARB,FIXLEN=8)),
BUILD=(%00,80:X)
/*
|
Its failing with Invalid data attribute sortout recfm and blksize.
Please advise |
|
Back to top |
|
|
guptae
Moderator
Joined: 14 Oct 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Able to achieve above using
Code: |
SORT FIELDS=COPY
OPTION VLSCMP <==== added
INCLUDE COND=(5,81,SS,EQ,C' LAST CHANGED BY ')
OUTFIL VTOF,PARSE=(%=(STARTAT=EQUAL), <==== added
%00=(ENDBEFR=VARB,FIXLEN=8)),
BUILD=(%00,80:X)
|
Thanks |
|
Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1222 Location: Bamberg, Germany
|
|
|
|
It was basically failing because you had mixed SORTIN VBA and SORTOUT FB w/o specifying VTOF. |
|
Back to top |
|
|
sergeyken
Senior Member
Joined: 29 Apr 2008 Posts: 2010 Location: USA
|
|
|
|
Joerg.Findeisen wrote: |
It was basically failing because you had mixed SORTIN VBA and SORTOUT FB w/o specifying VTOF. |
The parameter
Code: |
… COND=(5,81,SS,EQ,C' LAST CHANGED BY ') |
would fail on any varying length record shorter that 81 bytes, unless either option VLSCMP, or PARM="VLTESTI=2' was used. |
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3048 Location: NYC,USA
|
|
Back to top |
|
|
|
|