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
 
WER200A T1 RECFM=V/VB, LRECL/BLKSIZE INVALID

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

New User


Joined: 02 Nov 2006
Posts: 10

PostPosted: Fri May 23, 2008 3:13 am    Post subject: WER200A T1 RECFM=V/VB, LRECL/BLKSIZE INVALID
Reply with quote

I tried the variable and fixed logc presented here but was facing some problems.

a. Variable: Can we use the logic for a LRECL of 32760 bytes. I abended with the following:

Code:
WER164B  16,740K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B     0 BYTES RESERVE REQUESTED, 1,004K BYTES USED           
WER146B  20K BYTES OF EMERGENCY SPACE ALLOCATED                   
WER108I  IN       : RECFM=VB   ; LRECL= 32756; BLKSIZE= 32760     
WER257I  INREC RECORD LENGTH = 32764                               
WER238I  POTENTIALLY INEFFICIENT USE OF INREC                     
WER200A  T1       RECFM=V/VB, LRECL/BLKSIZE INVALID               
WER110I  T1       : RECFM=VB   ; LRECL= 32764; BLKSIZE= 32760     
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                     
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE                     


a. Fixed part:
Used the same logic as provided. Need to remove the first and the last record, but it removed the first 2 records. Seems the CTL2 and CTL3 are not getting executed.

Code:
//STEP0001 EXEC PGM=SYNCTOOL                             
//IN       DD   DISP=SHR,DSN=Infile
//T1       DD   DSN=&&T1,DISP=(,PASS)                   
//T2       DD   DSN=&&T2,DISP=(,PASS)                   
//OUT      DD   DSN=Outfile,           
//             DISP=(NEW,CATLG,DELETE),                 
//             DATACLAS=FB                             
//DFSMSG   DD   SYSOUT=*                               
//TOOLMSG  DD   SYSOUT=*                               
//TOOLIN   DD   *                                       
 COPY FROM(IN) USING(CTL1)                             
 COPY FROM(T1) USING(CTL2)                             
 COPY FROM(T2) USING(CTL3)                             
/*                                                     
//CTL1CNTL DD   *                                       
 OUTFIL FNAMES=T1,STARTREC=2,OUTREC=(1,1000,SEQNUM,8,ZD)
/*                                                     
//CTL2CNTL DD   *                                       
 SORT FIELDS=(1001,8,BI,D)                             
 OUTFIL FNAMES=T2,STARTREC=2                           
/*                                                     
//CTL3CNTL DD   *                 
 SORT FIELDS=(1001,8,BI,A)       
 OUTFIL FNAMES=OUT,OUTREC=(1,1000)
/*                               


Message:
Code:
WER405I  T1       :  DATA RECORDS OUT      29659; TOTAL RECORDS OUT      29659
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                                 
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE                                 
WER416B  IN       : EXCP'S=34,UNIT=3390,DEV=D317,CHP=(7E8D8E80818F90,4),VOL=DV2
WER416B  OUTFIL WAS USED FOR CTL1OUT                                           
WER054I  RCD IN      29660, OUT      29660                                     
WER169I  RELEASE 1.3 BATCH 0485 TPF LEVEL 0.0                                 
WER052I  END SYNCSORT - TKAB2598,STEP0001,,DIAG=CA00,510A,E206,00EE,82FA,7C82,A
SYNCSORT FOR Z/OS  1.3.0.0RI   U.S. PATENTS: 4210961, 5117495   (C) 2007 SYNCSO


TIA
Sriram
Back to top
View user's profile Send private message

CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Fri May 23, 2008 3:33 am    Post subject:
Reply with quote

Quote:
WER200A T1 RECFM=V/VB, LRECL/BLKSIZE INVALID
You will probably need to convert from variable to fixed in CTL1....
Back to top
View user's profile Send private message
sriramd

New User


Joined: 02 Nov 2006
Posts: 10

PostPosted: Wed May 28, 2008 6:56 am    Post subject: Reply to: WER200A T1 RECFM=V/VB, LRECL/BLKSIZE INVALID
Reply with quote

Hi,

Thanks for the response. I am looking at the fixed length part as I have converted the Variable length record to a fixed one.

In the fixed length example provided, the last two Sorts are not getting performed. I tried the same logic in seperate steps and it is working fine.


Sriram
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 SORT Trailer Count - LRECL Output co... amorante DFSORT/ICETOOL 5 Tue Aug 29, 2017 8:57 pm
No new posts Wanted to calculate TRK when i have B... Balu5491 JCL & VSAM 10 Wed Jul 19, 2017 5:43 pm
No new posts WER247A incompatible lrecl Danielle.Filteau SYNCSORT 8 Tue May 02, 2017 4:04 am
No new posts Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 3:25 pm
No new posts INVALID FIELD OR CONSTANT IN SORTOF ?? Ron Klop DFSORT/ICETOOL 8 Wed Jan 11, 2017 3:44 pm

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