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 

Insert spaces in VB VSAM File

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


Joined: 12 Oct 2007
Posts: 5
Topics: 2
PostPosted: Thu Jun 19, 2008 1:25 pm    Post subject: Insert spaces in VB VSAM File Reply with quote
I have the following requirement and I am trying write the code as like this :

My VSAM file has records with VB(1033). I need to include the specific records and 3 spaces after the 779th col.


Anyidea what I am missing here....

Code:



//SORTIN   DD  DSN=INPUT,                   
//             DISP=SHR                     
//SORTOUT  DD  DSN=TEST.DATA,               
//             DISP=(NEW,CATLG,DELETE),     
//             UNIT=(SYSDA,5),             
//             SPACE=(CYL,(100,100),RLSE), 
//             DCB=(RECFM=VB,LRECL=1036)   
//SYSIN    DD  *                           
  SORT FIELDS=COPY                         
   INCLUDE COND=(29,2,CH,EQ,C'31')         
   OUTREC FIELDS(005:005,779,               
                 784:C'   ',               
                 787:780,254)               
/*                                         

ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 14:18 ON THU
            SORT FIELDS=COPY                                               
             INCLUDE COND=(29,2,CH,EQ,C'31')                               
             OUTREC FIELDS(005:005,779,                                     
                           784:C'   ',                                     
                           787:780,254)                                     
ICE201I E RECORD TYPE IS V - DATA STARTS IN POSITION 5                     
ICE126A 0 INCONSISTENT *OUTREC  IFTHEN 0 REFORMATTING FIELD FOUND           

Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Thu Jun 19, 2008 1:53 pm    Post subject: Reply with quote
tech_mf,

Use the following Control cards

Code:

//SYSIN    DD *                     
  SORT FIELDS=COPY     
  INCLUDE COND=(29,2,CH,EQ,C'31')                 
  OUTREC BUILD=(1,4,5,779,3X,780,254)
/*                                   

_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
tech_mf
Beginner


Joined: 12 Oct 2007
Posts: 5
Topics: 2
PostPosted: Thu Jun 19, 2008 2:02 pm    Post subject: Reply with quote
Thanks for the reply and help, but I am getting this error , any option to choose.

Code:

ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT                             
ICE084I 1 VSAM ACCESS METHOD USED FOR SORTIN                             
ICE218A 6 538 BYTE VARIABLE RECORD IS SHORTER THAN 1033 BYTE MINIMUM FOR 
ICE751I 1 EF-K10929 F0-Q84357 E8-K24705                                   
ICE052I 0 END OF DFSORT                                                   
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 2:50 pm    Post subject: Reply with quote
You're getting that error message because some of your records are shorter than the maximum record you're trying to build. For example, one of your record is only 538 bytes, but you say you want to add 3 spaces after position 779. What do you want to do about those short records? Pad them out to the maximum? Leave them alone or what?
_________________
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