Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums 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 TRAILER3 is creating blank record in ... kodeesm DFSORT/ICETOOL 3 Fri May 18, 2018 5:45 pm
No new posts Transfer of mainframe file to PC in Z... maxsubrat JCL & VSAM 4 Thu May 17, 2018 11:35 am
No new posts Rexx command to open an another text ... Bharath Vikraman PC Guides & IT News 7 Sat May 12, 2018 4:34 pm
No new posts IDCAMS RENAMING VSAM FILE ALONG WITH ... upendrasri JCL & VSAM 11 Tue Apr 17, 2018 10:42 pm
No new posts VSAM file NOT Found error while proce... SumaReva CICS 5 Wed Apr 11, 2018 9:54 pm

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