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
 
WER235A and inrec parse

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: WER235A and inrec parse
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

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Aug 27, 2010 2:48 am    Post subject:
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

Moderator Team Head


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

PostPosted: Fri Aug 27, 2010 4:43 am    Post subject: Reply to: WER235A and inrec parse
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    Post subject:
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

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Sat Aug 28, 2010 2:55 am    Post subject:
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    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 XML Parse for COBOL 5.2 Bhanu Praveen COBOL Programming 1 Sat Jul 08, 2017 8:58 pm
No new posts Optimize sort inrec parse vishwakotin DFSORT/ICETOOL 6 Mon Jun 26, 2017 11:15 pm
No new posts XML Parse for large file muralikrishnan_new COBOL Programming 3 Mon Jun 12, 2017 12:50 pm
No new posts INREC PARSING and dictionary items migusd SYNCSORT 6 Fri Jun 02, 2017 8:02 pm
No new posts What does this INREC do? Lino Pontes DFSORT/ICETOOL 5 Fri Apr 08, 2016 12:17 am

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