IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Remove irrelevant posts
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Mazahar

New User


Joined: 11 Dec 2007
Posts: 82
Location: hyderabad
PostPosted: Thu Jul 02, 2009 2:49 pm
 Reply with quote
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
View user's profile Send private message
Gousiya Mulla

New User


Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
PostPosted: Thu Jul 02, 2009 2:54 pm
 Reply with quote
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
View user's profile Send private message
Gousiya Mulla

New User


Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
PostPosted: Thu Jul 02, 2009 3:09 pm
 Reply with 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))
/*
Back to top
View user's profile Send private message
Mazahar

New User


Joined: 11 Dec 2007
Posts: 82
Location: hyderabad
PostPosted: Thu Jul 02, 2009 3:23 pm
 Reply with quote
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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Thu Jul 02, 2009 3:28 pm
 Reply with quote
Gousiya Mulla wrote:
I have chaged SYSIN as below as per the my above data .. to match with previous Expat's suggestions ...


Huh icon_eek.gif
Hey guys, I don't mind the publicity but .................. I'm not in on this thread until now.
Back to top
View user's profile Send private message
Mazahar

New User


Joined: 11 Dec 2007
Posts: 82
Location: hyderabad
PostPosted: Thu Jul 02, 2009 3:33 pm
 Reply with quote
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
View user's profile Send private message
Gousiya Mulla

New User


Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
PostPosted: Thu Jul 02, 2009 3:37 pm
 Reply with quote
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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Thu Jul 02, 2009 3:44 pm
 Reply with quote
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
View user's profile Send private message
Gousiya Mulla

New User


Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
PostPosted: Thu Jul 02, 2009 3:53 pm
 Reply with quote
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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Thu Jul 02, 2009 3:57 pm
 Reply with quote
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
View user's profile Send private message
Gousiya Mulla

New User


Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
PostPosted: Thu Jul 02, 2009 4:08 pm
 Reply with quote
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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Thu Jul 02, 2009 4:14 pm
 Reply with quote
Try adding
Code:

 OPTION VLSCMP

after the SYSIN DD card
Back to top
View user's profile Send private message
Gousiya Mulla

New User


Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
PostPosted: Thu Jul 02, 2009 4:29 pm
 Reply with quote
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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Thu Jul 02, 2009 4:47 pm
 Reply with quote
You need to add SORT FIELDS=COPY
Back to top
View user's profile Send private message
Gousiya Mulla

New User


Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
PostPosted: Thu Jul 02, 2009 6:04 pm
 Reply with quote
Hard time !! Did not worked ..

I will try selcopy ..

Thanks for your help Expat and Mazhar ...
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Thu Jul 02, 2009 6:37 pm
 Reply with quote
1) What was the problem - The superstars of SORT should be online soon icon_biggrin.gif
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
View user's profile Send private message
Gousiya Mulla

New User


Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
PostPosted: Thu Jul 02, 2009 7:01 pm
 Reply with quote
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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Thu Jul 02, 2009 7:08 pm
 Reply with quote
Gousiya Mulla wrote:
I had to chenge the FILE* names to match my requirement .

Yes, I noticed the deliberate error after posting sterb050.gif I've changed the original post now to reflect the true solution.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 

Similar Topics
Topic Forum Replies
No new posts Sortjoin and Search for a String and ... DFSORT/ICETOOL 1
No new posts Remove leading zeroes SYNCSORT 4
No new posts How to remove block of duplicates DFSORT/ICETOOL 8
No new posts To Remove spaces (which is in hex for... JCL & VSAM 10
No new posts How to remove spaces in between. SYNCSORT 12
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us