|
View previous topic :: View next topic
|
| Author |
Message |
Mazahar
New User
Joined: 11 Dec 2007
Posts: 82
Location: hyderabad
|
|
|
|
Gousiya,
Please check the solution given by frank in this topic for the same kind of problem and change according to u r requirement
ibmmainframes.com/viewtopic.php?t=39200
Please do let us know if you face any problems. |
|
| Back to top |
|
 |
Gousiya Mulla
New User
Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
|
|
|
|
Hi Mazhar ,
I was doing the same .
I have checked the same and used as below :
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file1 (VB/351)
// DD DSN=... input file2 (VB/351)
//SORTOUT DD DSN=... output file (VB/351)
//SYSIN DD *
OMIT COND=(1,7,CH,EQ,C'REF-HDR')
INREC IFTHEN=(WHEN=(1,7,CH,EQ,C'TRAILER'),OVERLAY=(351:SEQNUM,1,ZD))
OPTION COPY
OUTFIL REMOVECC,OMIT=(351,1,ZD,EQ,2),BUILD=(1,351),
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=6))
/*
But my job is abending saying 'PARAMETER 'IFTHEN' IS UNIDENTIFIED.'
Is there some thing that u can help with ?? Many thanks in advance ... |
|
| Back to top |
|
|
Gousiya Mulla
New User
Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
|
|
|
|
I have chaged SYSIN as below as per the my above data .. to match with previous Expat's suggestions ...
//SYSIN DD *
OMIT COND=(1,7,CH,EQ,C'TRAILER')
INREC IFTHEN=(WHEN=(1,7,CH,EQ,C'REF-HDR'),OVERLAY=(351:SEQNUM,1,ZD))
OPTION COPY
OUTFIL REMOVECC,OMIT=(351,1,ZD,EQ,2),BUILD=(1,351),
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=6))
/* |
|
| Back to top |
|
|
Mazahar
New User
Joined: 11 Dec 2007
Posts: 82
Location: hyderabad
|
|
|
|
| Quote: |
I have chaged SYSIN as below as per the my above data .. to match with previous Expat's suggestions ...
//SYSIN DD *
OMIT COND=(1,7,CH,EQ,C'TRAILER')
INREC IFTHEN=(WHEN=(1,7,CH,EQ,C'REF-HDR'),OVERLAY=(351:SEQNUM,1,ZD))
OPTION COPY
OUTFIL REMOVECC,OMIT=(351,1,ZD,EQ,2),BUILD=(1,351),
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=6))
/* |
does it worked for you after change?
and your files are of VB, how come you are writing omit condition starting at 1stposition istead of 5th? problems that i see in your sysin are
1) RDW not there (omit condition should start at 5th position)
2) Your file length is 351 in that case overlay should be on 352 byte
| Code: |
//SYSIN DD *
OMIT COND=(5,7,CH,EQ,C'TRAILER')
INREC IFTHEN=(WHEN=(5,7,CH,EQ,C'REF-HDR'),OVERLAY=(352:SEQNUM,1,ZD))
OPTION COPY
OUTFIL REMOVECC,OMIT=(352,1,ZD,EQ,2),BUILD=(1,4,5:351),
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=7))
/* |
|
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Gousiya Mulla wrote: |
| I have chaged SYSIN as below as per the my above data .. to match with previous Expat's suggestions ... |
Huh 
Hey guys, I don't mind the publicity but .................. I'm not in on this thread until now. |
|
| Back to top |
|
|
Mazahar
New User
Joined: 11 Dec 2007
Posts: 82
Location: hyderabad
|
|
|
|
Expat,
| Quote: |
| I don't mind the publicity |
:-)
I hope gousiya might be saying that from the some of the previous posts....she picked your solution |
|
| Back to top |
|
|
Gousiya Mulla
New User
Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
|
|
|
|
Mazhar ,
I have changed as above you suggested ...
//SYSIN DD *
OMIT COND=(5,7,CH,EQ,C'TRAILER')
INREC IFTHEN=(WHEN=(5,7,CH,EQ,C'REF-HDR'),
OVERLAY=(352:SEQNUM,1,ZD))
OPTION COPY
OUTFIL REMOVECC,OMIT=(352,1,ZD,EQ,2),BUILD=(1,4,5:351),
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=7))
/*
But still JCL CHeck says 'PARAMETER 'IFTHEN' IS UNIDENTIFIED.' and the job is abending ..
Any advice ? |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Are you saying that the JCL check is objecting to the statement, or the job is actually abending.
If the job abends please post the output showing the error messages and codes. |
|
| Back to top |
|
|
Gousiya Mulla
New User
Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
|
|
|
|
The JCL Check is showing the above msg 'PARAMETER 'IFTHEN' IS UNIDENTIFIED.'
When I ran the job .. the below is the error ..
S1 - STEP WAS EXECUTED - COND CODE 0016
My code is :
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file1 (VB/351)
// DD DSN=... input file2 (VB/351)
//SORTOUT DD DSN=... output file (VB/351)
//SYSIN DD *
OMIT COND=(5,7,CH,EQ,C'TRAILER')
INREC IFTHEN=(WHEN=(5,7,CH,EQ,C'REF-HDR'),OVERLAY=(352:SEQNUM,1,ZD))
OPTION COPY
OUTFIL REMOVECC,OMIT=(352,1,ZD,EQ,2),BUILD=(1,4,5:351),
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=7))
/* |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
What we really need to see is the output from the SYSOUT
Also please learn to use the CODE tags to make your posts more easily readable. Example below
| Code: |
[code]
your
post
goes
here
[/code] |
|
|
| Back to top |
|
|
Gousiya Mulla
New User
Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
|
|
|
|
Hi ,
Hope the below is what you are looking for ..
| Code: |
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=7))
RECORD TYPE IS V - DATA STARTS IN POSITION 5
VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
C5-K90013 C6-K90013 C7-K90000 C8-K90013 E9-K90013 C9-BASE E5-K24705 E7-K2470
ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED
FTPDR .S1 . , INPUT LRECL = 351, BLKSIZE = 27998, TYPE = VB
MAIN STORAGE = (MAX,6291456,6291456)
MAIN STORAGE ABOVE 16MB = (6234096,6234096)
OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,
OPTIONS: SIZE=6291456,MAXLIM=2097152,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,
OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALO
OPTIONS: RESALL=8192,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER
OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=0
OPTIONS: VLSHRT=Y,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARM
OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=2097152,SOLRF=Y,VLLONG=N,VSAMIO=
OPTIONS: NULLOUT=RC0
EXCP ACCESS METHOD USED FOR SORTIN
STORAGE USED FOR OUTFIL : BELOW 16M = 22528, ABOVE 16M = 2126848
SORTOUT : EXCP USED, LRECL = 351, BLKSIZE = 27998, TYPE = VB
207 BYTE VARIABLE RECORD IS SHORTER THAN 350 BYTE MINIMUM FOR SORTOUT FIELDS
EF-K10929 CB-K90013 F0-Q84357 E8-K90013
END OF DFSORT
|
|
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Try adding
after the SYSIN DD card |
|
| Back to top |
|
|
Gousiya Mulla
New User
Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
|
|
|
|
Expat ..
this time error as below :
| Code: |
OPTION VLSCMP
OMIT COND=(5,7,CH,EQ,C'TRAILER')
INREC IFTHEN=(WHEN=(5,7,CH,EQ,C'REF-HDR'),OVERLAY=(352:SEQNUM,1,ZD))
OUTFIL REMOVECC,OMIT=(352,1,ZD,EQ,2),BUILD=(1,4,5:351),
TRAILER1=('TRAILER',COUNT+1=(M11,LENGTH=7))
NO SORT OR MERGE CONTROL STATEMENT
C5-K90013 C6-K90013 E7-K24705
END OF DFSORT |
|
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| You need to add SORT FIELDS=COPY |
|
| Back to top |
|
|
Gousiya Mulla
New User
Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
|
|
|
|
Hard time !! Did not worked ..
I will try selcopy ..
Thanks for your help Expat and Mazhar ... |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
1) What was the problem - The superstars of SORT should be online soon 
2) Try this
| Code: |
//REPRO EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//FILE1 DD DSN=Input DSN 1,DISP=SHR
//FILE2 DD DSN=Input DSN 2,DISP=SHR
//FILE3 DD DSN=whatever,DISP=(MOD,CATLG,DELETE),
// SPACE=(whatever),RECFM=??,LRECL=???
//SYSIN DD *
REPRO IFILE(FILE1) OFILE(FILE3) COUNT(1)
REPRO IFILE(FILE2) OFILE(FILE3)
REPRO IFILE(FILE1) OFILE(FILE3) SKIP(1) |
|
|
| Back to top |
|
|
Gousiya Mulla
New User
Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
|
|
|
|
It seems ur a super start !!
The option second worked ..
I had to chenge the FILE* names to match my requirement .
Thank u Expat . |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Gousiya Mulla wrote: |
| I had to chenge the FILE* names to match my requirement . |
Yes, I noticed the deliberate error after posting  I've changed the original post now to reflect the true solution. |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
