Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
unable to set RC = 4 when empty file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT
View previous topic :: :: View next topic  
Author Message
migusd

New User


Joined: 08 Aug 2014
Posts: 31
Location: USA

PostPosted: Tue Nov 21, 2017 1:21 am    Post subject: unable to set RC = 4 when empty file
Reply with quote

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                                                                     
Back to top
View user's profile Send private message

migusd

New User


Joined: 08 Aug 2014
Posts: 31
Location: USA

PostPosted: Tue Nov 21, 2017 9:26 pm    Post subject:
Reply with quote

Thank you. The issue has been solved.
Adding NULOFL made no difference
to make it work I had to use NULLOUT in SYSPARM.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts File transfer issue with end of line ... VINAY PALLELA TSO/ISPF 4 Thu Nov 14, 2019 12:01 am
No new posts File compare, where file has header a... VINAY PALLELA SYNCSORT 8 Thu Nov 07, 2019 5:05 pm
No new posts OMIT first and last column of a pipe-... karthikb_itpro DFSORT/ICETOOL 1 Fri Nov 01, 2019 8:24 pm
No new posts How to place name of the file where t... danielgp89 SYNCSORT 18 Thu Oct 17, 2019 12:55 am
No new posts Need help in parsing record in VBA file guptae DFSORT/ICETOOL 4 Fri Oct 11, 2019 2:31 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us