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
 
VBA to FB conversion

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
itzphaniz

New User


Joined: 02 Sep 2005
Posts: 39

PostPosted: Fri Feb 15, 2008 2:26 pm    Post subject: VBA to FB conversion
Reply with quote

My Input file is

Code:
       VOLSER------------PQP202     DEVTYPE------X'3010200F'

This is VBA file with LRECL = 125

My output file should be a FB with LRECL 80.

Code:
       VOLSER------------PQP202


I'm trying to use this the below JCL.

Code:
//STEPSR   EXEC PGM=SYNCSORT                       
//SORTIN    DD DSN=Input File,DISP=SHR   
//SORTOUT   DD DSN=OUTPUT File,         
//            DISP=(NEW,CATLG,DELETE),             
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000),
//            SPACE=(TRK,(10,10),RLSE),           
//            UNIT=SYSDA                           
//SORTLIB   DD DSN=SYS1.SORTLIB,DISP=SHR           
//SYSOUT    DD  SYSOUT=*                           
//SYSUDUMP  DD  SYSOUT=*                           
//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,(5,5))       
//SORTWK02  DD  UNIT=SYSDA,SPACE=(CYL,(5,5))       
//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL,(5,5))       
//SORTWK04  DD  UNIT=SYSDA,SPACE=(CYL,(5,5))       
//SYSIN     DD  *                                 
 SORT FIELDS=COPY                                 
 OUTREC FIELDS=(1:1,4,12:5,24,45C' ')             
/*


These are the WER messages that I'm getting.

Code:
WER108I  SORTIN   : RECFM=VBA  ; LRECL=   125; BLKSIZE= 27998
WER237I  OUTREC RECORD LENGTH =    80                         
WER202A  SORTOUT  RECFM INCOMPATIBLE                         
WER110I  SORTOUT  : RECFM=FB   ; LRECL=      ; BLKSIZE=       
WER462I  OUTPUT LRECL DIFFERS FROM SORTOUT LRECL             
WER247A  SORTOUT  HAS INCOMPATIBLE LRECL                     


SORTOUT length is 80, so is OUTREC record length? Then why is OUTREC LRECL different from SORTOUT LRECL.
Any help would be deeply appreciated.
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Fri Feb 15, 2008 2:33 pm    Post subject: Reply to: VBA to FB conversion
Reply with quote

There's a similar topic here.
Back to top
View user's profile Send private message
Alissa Margulies

SYNCSORT Support


Joined: 25 Jul 2007
Posts: 500
Location: USA

PostPosted: Sat Feb 16, 2008 3:14 am    Post subject:
Reply with quote

Try this:
Code:

//STEP1  EXEC PGM=SORT                                 
//SYSOUT DD SYSOUT=*                                   
//SORTIN DD  DISP=SHR,DSN=INPUT.FILE
//SORTOUT DD DSN=OUTPUT.FILE,DISP=(NEW,CATLG),
//           UNIT=SYSDA, SPACE=(CYL,1),DCB=(RECFM=FB)               
//SYSIN DD  *                                           
 SORT FIELDS=COPY                                       
 OUTREC FIELDS=(5,24,56X),CONVERT                       
/*       
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts Conversion of a VB file to FB. isssal DFSORT/ICETOOL 1 Mon Oct 31, 2016 10:23 pm
No new posts EBCDIC to ASCII conversion using OCOPY mistah kurtz All Other Mainframe Topics 5 Tue Sep 06, 2016 2:26 pm
No new posts Comparex utility to Syncsort conversion mistah kurtz SYNCSORT 11 Fri Jul 22, 2016 1:53 pm
No new posts changing z/os unicode conversion service meykh2014 All Other Mainframe Topics 0 Tue Jul 12, 2016 10:49 am

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