PARSE with Padding Leading SPACES by ZEROES

puneetvirmani143 · New User Joined: 24 Jul 2007 Posts: 55 Location: noida

Hi,

I have an VB file (lrecl=340) with # as delimiter. 2nd field (after first #) is Filename field and 4th field (appearing after 3rd #) is a record count field.

Example input file

1201 #TTJZ.CV.TRANS10.MOSTUSED.TEXT #MOSTUSED #8090587 #2
1201 #TTJZ.CV.TRANS10.CAM.TEXT #CAM #6940 #24
1201 #TTJZ.CV.TRANS10.CAUSTIC.TEXT #CAUSTIC #5745 #9
1201 #TTJZ.CV.TRANS10.CLOSR.TEXT #CLOSR #166950 #6
1201 #TTJZ.CV.TRANS10.EVENTA.TEXT #EVENTA #14715085 #15

using Parse i have captured the 2nd (after first #) field and 4th field (after 3rd #). Also I have Right aligned the RECORD COUNT field (after 3rd #) (max length 15 bytes) using below approach

OUTFIL FNAMES=TEMP1,
PARSE=(%00=(ABSPOS=5,ENDBEFR=C'#',FIXLEN=05),
%01=(ENDBEFR=C'#',FIXLEN=45),
%02=(ENDBEFR=C'#',FIXLEN=10),
%03=(ENDBEFR=C'#',FIXLEN=15),
%04=(ENDBEFR=C'#',FIXLEN=08)),
BUILD=(1:%01,47:%03,JFY=(SHIFT=RIGHT),62:19X),CONVERT

I want RIGHT Justified RECORD COUNT field data (Starting from position 47th in Output file) to be padded with leading Zeroes (max length of field is 15 )

Please help. Thanks

Puneet

Skolusu · Posted: Fri Mar 23, 2012 9:24 pm

puneetvirmani143,

Are you using Syncsort at your shop? If so you should be posting your questions in the JCL forum. Please make it clear. For this question use the following DFSORT JCL