I need the 20th Column value in the output with 2 char and should be right justified.
Ip file:
123456789|SAMPLE1|20100209|20100801|20100818|20110118||PA||T1|||A|256789.00 |Y|1234|A001|||30000020|TESTDT1|A|SAS|PURES|99|AZ|DT01|USD|01|01|1
222222222|TESTDA1|20100209|20100802|20100818|20101118||OH||T2|||B|33330.00 |Y|1150|A002|||20000010|TESTDT2|B|NONE|TST01|01|NY|DT01|USD|01|01|3
123456789|SAMPLE1|20100209|20100801|20100818|20110118||PA||T1|||A|256789.00 |Y|1234|A001|||30000020|TESTDT1|A|SAS|PURES|99|AZ|DT01|USD|01|01|1
222222222|TESTDA1|20100209|20100802|20100818|20101118||OH||T2|||B|33330.00 |Y|1150|A002|||20000010|TESTDT2|B|NONE|TST01|01|NY|DT01|USD|01|01|3
below is the 20th col i/p and required o/p,
I/p required o/p
30000020 20
20000010 10
Below is the JCL i use to do the parsing But not getting the desired result for the 20th column.
//SORTIN DD DSN=A.B.C,DISP=SHR
//SORTOUT DD DSN=A.B.D,
// UNIT=DISK,SPACE=(TRK,(1,2),RLSE),
// DCB=(LRECL=185,BLKSIZE=0,RECFM=FB),
// DISP=(NEW,CATLG,DELETE)
//SYSSORT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSIN DD *
OPTION COPY
INREC IFOUTLEN=185,
IFTHEN=(WHEN=INIT,
PARSE=(%00=(ENDBEFR=X'6A',FIXLEN=12),
%01=(ENDBEFR=X'6A',FIXLEN=12),
%02=(ENDBEFR=X'6A',FIXLEN=08),
%03=(ENDBEFR=X'6A',FIXLEN=08),
%04=(ENDBEFR=X'6A',FIXLEN=08),
%05=(ENDBEFR=X'6A',FIXLEN=08),
%06=(ENDBEFR=X'6A',FIXLEN=30),
%07=(ENDBEFR=X'6A',FIXLEN=02),
%08=(ENDBEFR=X'6A',FIXLEN=02),
%09=(ENDBEFR=X'6A',FIXLEN=05),
%10=(ENDBEFR=X'6A',FIXLEN=06),
%11=(ENDBEFR=X'6A',FIXLEN=06),
%12=(ENDBEFR=X'6A',FIXLEN=01),
%13=(ENDBEFR=X'6A',FIXLEN=18),
%14=(ENDBEFR=X'6A',FIXLEN=01),
%15=(ENDBEFR=X'6A',FIXLEN=15),
%16=(ENDBEFR=X'6A',FIXLEN=02),
%17=(ENDBEFR=X'6A',FIXLEN=06),
%18=(ENDBEFR=X'6A',FIXLEN=06),
%19=(ENDBEFR=X'6A',FIXLEN=02),
%20=(ENDBEFR=X'6A',FIXLEN=02),
%21=(ENDBEFR=X'6A',FIXLEN=01),
%22=(ENDBEFR=X'6A',FIXLEN=03),
%23=(ENDBEFR=X'6A',FIXLEN=30)),
BUILD=(%00,%01,%02,%03,%04,%05,%06,%07,%08,%09,%10,%11,%12, X
%13,UFF,PD,LENGTH=9, X
%14,%15,%16,%17,%18,%19,JFY=(SHIFT=RIGHT),%20,%21,%22,%23)),
IFTHEN=(WHEN=INIT,
BUILD=(1,147,148,38))
/*
//
//SORTOUT DD DSN=A.B.D,
// UNIT=DISK,SPACE=(TRK,(1,2),RLSE),
// DCB=(LRECL=185,BLKSIZE=0,RECFM=FB),
// DISP=(NEW,CATLG,DELETE)
//SYSSORT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSIN DD *
OPTION COPY
INREC IFOUTLEN=185,
IFTHEN=(WHEN=INIT,
PARSE=(%00=(ENDBEFR=X'6A',FIXLEN=12),
%01=(ENDBEFR=X'6A',FIXLEN=12),
%02=(ENDBEFR=X'6A',FIXLEN=08),
%03=(ENDBEFR=X'6A',FIXLEN=08),
%04=(ENDBEFR=X'6A',FIXLEN=08),
%05=(ENDBEFR=X'6A',FIXLEN=08),
%06=(ENDBEFR=X'6A',FIXLEN=30),
%07=(ENDBEFR=X'6A',FIXLEN=02),
%08=(ENDBEFR=X'6A',FIXLEN=02),
%09=(ENDBEFR=X'6A',FIXLEN=05),
%10=(ENDBEFR=X'6A',FIXLEN=06),
%11=(ENDBEFR=X'6A',FIXLEN=06),
%12=(ENDBEFR=X'6A',FIXLEN=01),
%13=(ENDBEFR=X'6A',FIXLEN=18),
%14=(ENDBEFR=X'6A',FIXLEN=01),
%15=(ENDBEFR=X'6A',FIXLEN=15),
%16=(ENDBEFR=X'6A',FIXLEN=02),
%17=(ENDBEFR=X'6A',FIXLEN=06),
%18=(ENDBEFR=X'6A',FIXLEN=06),
%19=(ENDBEFR=X'6A',FIXLEN=02),
%20=(ENDBEFR=X'6A',FIXLEN=02),
%21=(ENDBEFR=X'6A',FIXLEN=01),
%22=(ENDBEFR=X'6A',FIXLEN=03),
%23=(ENDBEFR=X'6A',FIXLEN=30)),
BUILD=(%00,%01,%02,%03,%04,%05,%06,%07,%08,%09,%10,%11,%12, X
%13,UFF,PD,LENGTH=9, X
%14,%15,%16,%17,%18,%19,JFY=(SHIFT=RIGHT),%20,%21,%22,%23)),
IFTHEN=(WHEN=INIT,
BUILD=(1,147,148,38))
/*
//