Using INREC BUILD and overlay
Posted: Fri Oct 31, 2008 9:57 pm
I have a file with an alphanumeric field. I want the sum of this field. I am using this..but gives me error....Plz correct me...
Thanks,
Shilpa
//STEP001 EXEC PGM=ICEMAN
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=I
//SYSUDUMP DD SYSOUT=I
//*
//SORTIN DD DSN=DW3T.NDM.SL60.FIDELITY.MSTR.ODS.NBR096,DISP=SHR
//SORTOUT DD DSN=DW3T.NDM.SL60.FIDELITY.MSTR.ODS.NBR096.SM,DISP=SHR
//SYSIN DD *
OPTION ZDPRINT
SORT FIELDS=(1,13,CH,A)
INREC BUILD=(1,12,SFF,TO=ZD,LENGTH=12)
SUM FIELDS=(75,12,ZD)
OUTREC OVERLAY=(1:1,12,ZD,M12,LENGTH=12)
/*
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=I
//SYSUDUMP DD SYSOUT=I
//*
//SORTIN DD DSN=DW3T.NDM.SL60.FIDELITY.MSTR.ODS.NBR096,DISP=SHR
//SORTOUT DD DSN=DW3T.NDM.SL60.FIDELITY.MSTR.ODS.NBR096.SM,DISP=SHR
//SYSIN DD *
OPTION ZDPRINT
SORT FIELDS=(1,13,CH,A)
INREC BUILD=(1,12,SFF,TO=ZD,LENGTH=12)
SUM FIELDS=(75,12,ZD)
OUTREC OVERLAY=(1:1,12,ZD,M12,LENGTH=12)
/*
Thanks,
Shilpa