MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

DFSORT

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
anoopkhetan
Beginner


Joined: 08 Jun 2007
Posts: 3
Topics: 4
PostPosted: Thu Jun 19, 2008 7:06 am    Post subject: DFSORT Reply with quote
My current system is dataset triggered. Dataset trigger a JCL. Dataset comes to my system from different Medical integrators Format of dataset have header at the first, trailer record at the end and some details records in between that. One medical integrator daily sends trigger dataset with one blank line. Blank line can be after trailer records or in between the details records. Blank line have carriage control character. After triggering the JCL by dataset, it runs a program, if program found carriage control characters in any where in trigger dataset , it abends the Job.

I does not want to abend job due to in between blank line.
I want to resolve it by adding a sort step or by IDCAM., before calling the program.
Please given me suggestions, so that for that particular Medical integrator, I can omit blank line, without impacting to others Medical integrators.
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Thu Jun 19, 2008 10:45 am    Post subject: Reply with quote
You can use a DFSORT job like the following to remove records that have all blanks in 2-133 (adjust as appropriate for your record length):

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file (FBA/133)
//SORTOUT DD DSN=...  output file (FBA/133)
//SYSIN    DD    *
  OPTION COPY
  OMIT COND=(2,132,CH,EQ,C' ')
/*

_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group