Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
JCL - convert PD to ZD of VB files.

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
santhosh_kumar

New User


Joined: 31 May 2007
Posts: 4
Location: Chennai

PostPosted: Wed Nov 21, 2007 11:19 am    Post subject: JCL - convert PD to ZD of VB files.
Reply with quote

Hi,
I need to extract 3 fields from a VB file into FB file. One of this 3 fields is a Comp-3 (PD) field. Here is the JCL I have used. I am getting SOC7 abend for this JCL.
Comp-3 field( S9(09)V99 ) is at position 3930. For the rest you can refer Sysin.

Code:

//STEP001 EXEC PGM=SORT                                             
//SORTIN DD DSN=VB.file,DISP=SHR         
//SORTOUT DD DSN=FB.file,                     
//         DISP=(,CATLG,DELETE),                                 
//         UNIT=3390,SPACE=(CYL,(600,600),RLSE)
//SYSOUT DD SYSOUT=*                                                 
//SYSIN DD *                                                         
  OPTION COPY                                                   
  OUTREC FIELDS=(72,2,C'     ',3934,12,ZD,M11,LENGTH=12,7,8,C'    '),
    CONVERT                                                           
/*


Please give some suggestions.

Your's,
Santhosh
Back to top
View user's profile Send private message

murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Wed Nov 21, 2007 12:16 pm    Post subject:
Reply with quote

Santosh,

Quote:
3934,12,ZD,M11,LENGTH=12

First thing, length of your comp-3 var is not 12. Change it to appropriate value.

Secondly, replace 'zd' with PD,TO=ZD.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Nov 21, 2007 10:23 pm    Post subject:
Reply with quote

Santhosh,

An S9(09)V99 COMP-3 value is 6 bytes, e.g. X'12345678901C', not 12 bytes. For more information on DFSORT formats vs COBOL formats, see:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA20/C.3?DT=20060615185603

You can use the following DFSORT control statements:

Code:

 OPTION COPY
 OUTFIL BUILD=(72,2,5X,3934,6,PD,TO=ZD,LENGTH=12,7,8,4X),
    VTOF
Back to top
View user's profile Send private message
GCruz

New User


Joined: 11 Feb 2010
Posts: 4
Location: Florida

PostPosted: Fri Aug 20, 2010 2:26 am    Post subject: RDW NOT INCLUDED
Reply with quote

PLS SOMEONE HELP. I AM GETTING AN ERROR WRITING FROM A VB TO VB FOR THIS SYSIN ( I ALSO WANT TO GOT FROM PD TO ZD) SYSIN IS AS FOLLOWS: SYSIN :
OPTION COPY
OUTFIL BUILD=(22:22,7,PD,TO=ZD,LENGTH=13,
29:29,6,PD,TO=ZD,LENGTH=11,
35:35,6,PD,TO=ZD,LENGTH=11,
41:41,6,PD,TO=ZD,LENGTH=11,
47:47,6,PD,TO=ZD,LENGTH=11)
WER276B SYSDIAG= 1903157, 5555012, 5555012, 8397225
WER164B 6,896K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED
WER164B 40K BYTES RESERVE REQUESTED, 1,004K BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=VB ; LRECL= 52; BLKSIZE= 27998
WER235A SORTOUT OUTREC RDW NOT INCLUDED
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Aug 20, 2010 2:49 am    Post subject:
Reply with quote

The WER messages indicate you're using Syncsort. This Forum is for DFSORT questions. Post Syncsort questions in JCL Forum.

Also, please start a new Subject for a different question than the original.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    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 FTP Skip or ignore error and process ... AJAYREDDY All Other Mainframe Topics 3 Wed Sep 27, 2017 8:12 pm
No new posts Comparing 2 Files using Current time arunsoods SYNCSORT 9 Fri Sep 22, 2017 6:00 pm
No new posts Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts Convert rows and column into JSON for... Dinesh Manivannan DB2 2 Sun Sep 03, 2017 6:50 pm
No new posts Join records from 2 files with No Dup... Poha Eater DFSORT/ICETOOL 22 Sun Aug 27, 2017 10:35 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us