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 

How to copy a VB file into a VSAM (KSDS) ?

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


Joined: 18 Mar 2008
Posts: 24
Topics: 6
PostPosted: Thu Jul 16, 2009 4:50 am    Post subject: How to copy a VB file into a VSAM (KSDS) ? Reply with quote
Hello to everyone,

I have a VB file and I need to copy it in a new VSAM (KSDS). The VB file has LRECL=3924 and the VSAM should be LRECL=3920. I tryed with the following but didn't worked.
Code:

//DELVSAM  EXEC PGM=IDCAMS                                             
//*                                                                     
//SYSPRINT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSIN    DD *                                                         
   DEL TASV.TAAE071.PTADPORT.SDAPBML0.AL140709 CLUSTER PURGE           
   SET MAXCC=0                                                         
//*--------------------------------------------------------------------*
//CREVSAM  EXEC PGM=SORT,COND=(4,LE)                                   
//*                                                                     
//SYSOUT   DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//DFSPARM  DD *                                                         
  OPTION VSAMIO,NULLOUT=RC4,DYNALLOC=(,9),VLSCMP                       
//SORTIN   DD DSN=TASP.TAAE071.SDAPBML0.AL140709.VBOK,DISP=SHR         
//SORTOUT  DD DSN=TASV.TAAE071.PTADPORT.SDAPBML0.AL140709,             
//            RECORG=KS,KEYLEN=17,KEYOFF=1,LRECL=3920,UNIT=(SYSDA,,),   
//            SPACE=(CYL,(55,99),RLSE),DISP=(,CATLG,DELETE)             
//SYSIN    DD *                                                         
  SORT FIELDS=COPY                                                     


The error message I got was:
Code:

ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 11:34 ON THU JUL
            OPTION VSAMIO,NULLOUT=RC4,DYNALLOC=(,9),VLSCMP                     
ICE140I 0 END OF PARAMETERS FROM DFSPARM  - SYSIN OR SORTCNTL/PARAMETER LIST CON
            SORT FIELDS=COPY                                                   
ICE201I 0 RECORD TYPE IS V - DATA STARTS IN POSITION 5                         
ICE751I 0 C5-K05352 C6-Q95214 C7-K90000 C8-K05352 EE-BASE   E9-K06751 C9-BASE   
ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED   
ICE088I 0 ICETOOLX.CREAVSAM.        , INPUT LRECL = 3924, BLKSIZE = 27998, TYPE
ICE093I 0 MAIN STORAGE = (MAX,4194304,4194304)                                 
ICE156I 0 MAIN STORAGE ABOVE 16MB = (4136343,4136343)                           
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=Y,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=4194304,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERE
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO   ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=
ICE131I 0 OPTIONS: TMAXLIM=4194304,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=100    ,DSPSIZE=100 ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC4                                                 
ICE084I 1 VSAM ACCESS METHOD USED FOR SORTOUT                                   
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN                                   
ICE077A 0 VSAM OUTPUT ERROR L(12) SORTOUT                                       
ICE751I 1 EF-K10929 F0-Q84357 E8-K90000                                         
ICE052I 0 END OF DFSORT                                                         


Can anyone help me with this please ? Thanks a lot in advance

Denis
Back to top
View user's profile Send private message
expat
Intermediate


Joined: 01 Mar 2007
Posts: 475
Topics: 9
Location: Welsh Wales
PostPosted: Thu Jul 16, 2009 5:59 am    Post subject: Reply with quote
What does the error code ICE077A tell you. Oh here, let me search it for you bonk

Quote:

ICE077A VSAM OUTPUT ERROR i (nnn) [ddname]



Explanation: Critical. i is either P (physical) or L (logical), describing the type of error encountered. nnn is the VSAM feedback code (RPLERRCD) from a PUT macro, in decimal. The ddname of the data set in error is given, if available.
System Action: The program terminates.

Programmer Response: Refer to z/OS DFSMS Using Data Sets or z/OS DFSMS Macro Instructions for Data Sets for the meaning of the error code and, if possible, take appropriate action.

A VSAM logical error, reason code 8, can occur for a non-empty KSDS, RRDS, or VRRDS output data set if NORESET is in effect, or if the data set is defined without the REUSE option.

A VSAM logical error, reason code 12, can occur if the output data set is a KSDS and either the VSAM keys are not in ascending binary sequence or there are duplicate keys. If so, ensure that the keys are in ascending binary sequence and that there are no duplicate keys.

Refer to z/OS DFSORT Application Programming Guide for more information about VSAM data sets.

_________________
If it's true that we are here to help others,
then what exactly are the others here for ?
Back to top
View user's profile Send private message
dragone_007
Beginner


Joined: 18 Mar 2008
Posts: 24
Topics: 6
PostPosted: Thu Jul 16, 2009 8:15 am    Post subject: Reply with quote
Hi expat,

Thanks a lot for your help. I resolved the problem sorting the input VB file for the length of the VSAM index so I didn't get another error.

Best regards
Denis
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 Jul 16, 2009 10:21 am    Post subject: Reply with quote
Note that you can easily look up DFSORT messages using the z/OS LookAt facility at:

http://www.ibm.com/systems/z/os/zos/bkserv/lookat/index.html

I'd suggest you bookmark it for future reference.
_________________
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