IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

WER235A and inrec parse
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
jctgf
Currently Banned
Active User


Joined: 04 Nov 2006
Posts: 109
PostPosted: Fri Aug 27, 2010 12:37 am
 Reply with quote
Code:
OPTION MAINSIZE=40M                                                           
SYSIN :                                                                       
  SORT FIELDS=COPY                                                             
  INREC PARSE=(%00=(STARTAFT=C'BMC51674I ',                                   
                    ENDBEFR=C' STATISTICS',                                   
                    FIXLEN=06),                                               
               %01=(STARTAFT=C'SYSRE',ENDBEFR=X'7D',                           
                    FIXLEN=03),                                               
               %02=(STARTAFT=C'STICS: ',ENDBEFR=C' RECORDS',                   
                    FIXLEN=11)),                                               
        BUILD=(01:%00,                                                         
               07:%01,                                                         
               10:%00,JFY=(SHIFT=RIGHT,LEAD=C'0000000000'))                   
  OUTFIL FNAMES=SORTOUT,VTOF,                                                 
   INCLUDE=(05,6,CH,EQ,C'UNLOAD',AND,                                         
            12,3,CH,GE,C'000',AND,                                             
            12,3,CH,LE,C'999')                 
DATA DICTIONARY SYMBOLS SUBSTITUTED :                                         
SORT FIELDS=COPY                                                               
INREC PARSE=(%00=(STARTAFT=C'BMC51674I ',ENDBEFR=C' STATISTICS',FIXLEN=06),%01=
STARTAFT=C'SYSRE',ENDBEFR=X'7D',FIXLEN=03),%02=(STARTAFT=C'STICS: ',ENDBEFR=C'
ECORDS',FIXLEN=11)),BUILD=(01:%00,07:%01,10:%00,JFY=(SHIFT=RIGHT,LEAD=C'0000000
00'))                                                                         
OUTFIL FNAMES=SORTOUT,VTOF,INCLUDE=(05,6,CH,EQ,C'UNLOAD',AND,12,3,CH,GE,C'000',
ND,12,3,CH,LE,C'999')                                                         
WER903I  SYNCSORT 1.3.2.1 IS NOT LICENSED FOR SERIAL 104AF, TYPE 2094 749, LPAR
WER903I  PRODUCT WILL STOP WORKING IN  19 DAYS UNLESS A VALID KEY IS INSTALLED.
WER161B  ALTERNATE PARM USED                                                   
WER276B  SYSDIAG= 7649983, 9978300, 9978300, 2494650                           
WER164B  8,884K BYTES OF VIRTUAL STORAGE AVAILABLE, 40M BYTES REQUESTED,       
WER164B     0 BYTES RESERVE REQUESTED, 1,012K BYTES USED                       
WER146B  12K BYTES OF EMERGENCY SPACE ALLOCATED                               
WER108I  SORTIN   : RECFM=VBA  ; LRECL=   137; BLKSIZE=   141                 
WER235A  INREC    RDW NOT INCLUDED                                             
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                                 
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE                                 

hi,
i wonder how to solve this rdw error since i'm using parse.
thanks.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Fri Aug 27, 2010 2:48 am
 Reply with quote
Hello,

Suggest you read the info about the WER235A message in the documentation.

Suggest also the product be licensed. . . .
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
PostPosted: Fri Aug 27, 2010 4:43 am
 Reply with quote
Don't know the Syncsort product, but logically, I'd think that the BUILD statement for a VB dataset would have to include the RDW, something like

BUILD=(1,4,5:%00,11:%01,14:%00,JFY=(SHIFT=RIGHT,LEAD=C'0000000000'))
Back to top
View user's profile Send private message
jctgf
Currently Banned
Active User


Joined: 04 Nov 2006
Posts: 109
PostPosted: Fri Aug 27, 2010 5:43 pm
 Reply with quote
hey superk,
thank you very much for your help.
it solved the problem.
i had included the RDW in a previous version, but not in the beginning of the record, as you suggested.
i thought it could be treated as any regular field of the record, but now i see it can only be declared in the beginning of the record (correct?icon_neutral.gif).
thanks again.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
PostPosted: Sat Aug 28, 2010 2:55 am
 Reply with quote
jctgf wrote:
thought it could be treated as any regular field of the record, but now i see it can only be declared in the beginning of the record (correct?icon_neutral.gif).
Because for VB Files data-field starts from 5th byte, so yes that's correct.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts PARSE Syntax for not fix length word ... JCL & VSAM 7
No new posts INREC PARSE used to sort a CSV file DFSORT/ICETOOL 2
No new posts JSON transform using CICS bundles vs.... CICS 3
No new posts JSON PARSE in Enterprise COBOL COBOL Programming 2
No new posts PARSE using REPEAT DFSORT/ICETOOL 1
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us