migusd
New User
Joined: 08 Aug 2014 Posts: 44 Location: USA
|
|
|
|
this is a continuation of my previous post.
I am testing the date in the input file and only move it to the output file when the date is older than desired.
I was able to get the results desired.
However, I was expecting to get a RC4 when file is empty.
I did try with & w/o using NULLOFL.
unfortunately always finish with RC0
is there a way to force a RC4 when file is empty?
here is my code
Code: |
INREC BUILD=(FEMA,COM,HDAT,BLK,HTIM,BLK,
HYEA,SLH,HMON,SLH,HDAY,BLK,DATE1(/)-1)
SORT FIELDS=COPY,STOPAFT=1
OUTFIL INCLUDE=(26,10,CH,LT,37,10,CH),BUILD=(1,24),
NULLOFL=RC4
DATA DICTIONARY SYMBOLS SUBSTITUTED :
INREC BUILD=(1,4,C',',6,10,C' ',17,8,C' ',12,4,C'/',6,2,C'/',9,2,C' ',DATE1(/)-1
)
SORT FIELDS=COPY,STOPAFT=1
OUTFIL INCLUDE=(26,10,CH,LT,37,10,CH),BUILD=(1,24),NULLOFL=RC4
WER813I INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED
WER276B SYSDIAG= 4153261, 6300782, 6300782, 3966425
WER164B 10,840K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 2,409,360 BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=FB ; LRECL= 704; BLKSIZE= 27456
WER073I SORTIN : DSNAME=FEMP.FTP.LLQ.DATA.G2388V00
WER257I INREC RECORD LENGTH = 46
WER110I SORTOUT : RECFM=FB ; LRECL= 24; BLKSIZE= 27984
WER074I SORTOUT : DSNAME=FEMA.DSM.LLQ.DATA.T1120
WER410B 9,812K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16-MEGABYTE LINE,
WER410B 0 BYTES RESERVE REQUESTED, 2,261,904 BYTES USED
WER405I SORTOUT : DATA RECORDS OUT 0; TOTAL RECORDS OUT 0
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
|
|
|