Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
shr_amar wrote: |
Kolusu,
Can you suggest me the code changes ?
Rgrds |
*sigh*
Code: |
//******************************************************************
//* SET A RC=4 IF THE INPUT FILE IS EMPTY *
//******************************************************************
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&VB,DISP=SHR
//SORTOUT DD DUMMY
//SYSIN DD *
OPTION COPY,STOPAFT=1,NULLOUT=RC4
//*
//******************************************************************
//* EXECUETE THIS STEP ONLY WHEN INPUT FILE IS EMPTY *
//******************************************************************
//STEP0200 EXEC PGM=SORT,COND=(0,EQ,STEP0100)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&VB,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL VTOF,REMOVECC,BUILD=(5,126),
TRAILER1=('FOOTER|SERVICENAME|PEGA|NUMBEROFPROCESSEDRECORDS|',
'0|EXTRACTRETURNCODE|0|EXTRACTDATE|',DATENS=(4MD))
//*
//******************************************************************
//* EXECUETE THIS STEP ONLY WHEN INPUT FILE IS NOT EMPTY *
//******************************************************************
//STEP0300 EXEC PGM=SORT,COND=(4,EQ,STEP0100)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&VB,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OMIT COND=(5,8,CH,EQ,C'|||||||')
OPTION COPY,VLSCMP
INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,SEQNUM,9,ZD,
C'|EXTRACTRETURNCODE|0|EXTRACTDATE|',DATE1,5)),
IFTHEN=(WHEN=INIT,OVERLAY=(5:5,9,ZD,M10,LENGTH=9)),
IFTHEN=(WHEN=INIT,OVERLAY=(5:5,50,JFY=(SHIFT=LEFT)))
OUTFIL VTOF,REMOVECC,BUILD=(56,126),
TRAILER1=('FOOTER|SERVICENAME|PEGA|NUMBEROFPROCESSEDRECORDS|',5,50)
//* |
|
|