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 ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts Unable to send mail with SMTP commands harsh.saxena579 JCL & VSAM 10 Tue Dec 12, 2017 1:58 pm
No new posts Looping REXX - unable to interrupt RAVISANKAR07 CLIST & REXX 3 Wed Dec 06, 2017 1:08 pm
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm

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