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 ISPF 3.4 edit of a ps file, disp use... Carrie Da Silva TSO/ISPF 1 Fri Sep 21, 2018 3:01 am
No new posts ICETOOL - Finding keys within a file nartcr DFSORT/ICETOOL 10 Mon Sep 17, 2018 6:39 am
No new posts Remove selected duplicate rows from t... hnharish DFSORT/ICETOOL 3 Wed Sep 05, 2018 3:11 am
No new posts Splitting one record in a file to 10 ... mf_123 DFSORT/ICETOOL 9 Tue Aug 21, 2018 8:51 pm
No new posts CLOB Column data to External File usi... lalitmehta12 DB2 9 Tue Aug 21, 2018 7:22 pm

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