I am trying to learn PARSE with SORT and ran below SORT but don't get expected results if I use STARTAFT but get it upon using ENDBEFR !!
//JS001 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ABC123.ABVP.SCHOOL.INT
ABVP.ABC234.INT.KANNAN
RAJI.SHIVAM.INT.ABC345
FAPI.MATRIX.ABC456.INT
VISU.POTLUX.ABC567.INT
JNKY.ABC678.ARJUNS.INT
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC PARSE=(%00=(FIXLEN=6),
%01=(STARTAFT=C'.',FIXLEN=6),
%02=(STARTAFT=C'.',FIXLEN=6),
%03=(STARTAFT=C'.',FIXLEN=6)),
BUILD=(1:%00,11:%01,21:%02,31:%03)
/*
//*
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ABC123.ABVP.SCHOOL.INT
ABVP.ABC234.INT.KANNAN
RAJI.SHIVAM.INT.ABC345
FAPI.MATRIX.ABC456.INT
VISU.POTLUX.ABC567.INT
JNKY.ABC678.ARJUNS.INT
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC PARSE=(%00=(FIXLEN=6),
%01=(STARTAFT=C'.',FIXLEN=6),
%02=(STARTAFT=C'.',FIXLEN=6),
%03=(STARTAFT=C'.',FIXLEN=6)),
BUILD=(1:%00,11:%01,21:%02,31:%03)
/*
//*
Results:
ABC123 ABVP.S INT
ABVP.A INT.KA
RAJI.S INT.AB
FAPI.M ABC456 INT
VISU.P ABC567 INT
JNKY.A ARJUNS INT
ABVP.A INT.KA
RAJI.S INT.AB
FAPI.M ABC456 INT
VISU.P ABC567 INT
JNKY.A ARJUNS INT
Expected Results:
ABC123 ABVP SCHOOL INT
ABVP ABC234 INT KANNAN
RAJI SHIVAM INT ABC345
FAPI MATRIX ABC456 INT
VISU POTLUX ABC567 INT
JNKY ABC678 ARJUNS INT
ABVP ABC234 INT KANNAN
RAJI SHIVAM INT ABC345
FAPI MATRIX ABC456 INT
VISU POTLUX ABC567 INT
JNKY ABC678 ARJUNS INT
Can you please let me know where I am going wrong and why?
Thanks.