Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Remove irrelevant posts

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject:
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

http://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    Post subject:
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    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 02, 2009 3:28 pm    Post subject:
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    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 02, 2009 3:44 pm    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 02, 2009 3:57 pm    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 02, 2009 4:14 pm    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 02, 2009 4:47 pm    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 02, 2009 6:37 pm    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 02, 2009 7:08 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Remove Special Characters from Mainfr... Rodger Zhang All Other Mainframe Topics 6 Wed Jul 06, 2016 1:12 am
No new posts Remove header only knobi SYNCSORT 5 Mon Feb 15, 2016 10:42 pm
No new posts Append to file, but also remove old r... Garry Carroll JCL & VSAM 3 Mon Jan 25, 2016 8:05 pm
No new posts Remove intermediate spaces Pallavi Vishwanath SYNCSORT 1 Fri Jan 15, 2016 2:45 am
No new posts Syncsort to remove the leading spaces V S Amarendra Reddy SYNCSORT 5 Fri Jan 08, 2016 9:47 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us