IBM Mainframe Forum

by **prisgs** » Thu Nov 17, 2022 11:27 pm

Hello!
I need to work with records (read from a work file), whose values for the YEARS field (it is a numeric field in position 1, with length 4) need to be in a range: INITIAL YEAR (CURRENT YEAR - 4) and FINAL YEAR (CURRENT YEAR - 1).
My issue is about how to obtain the current year, in a simple way for this case, and use it subtracting values... here is a sample code of what I would like to work with INITIAL-YEAR and FINAL-YEAR:

Select all

    SORT FIELDS=COPY          
   OMIT COND=(1,4,ZD,LT,INITIAL-YEAR,AND,
              1,4,ZD,GT,FINAL-YEAR)

If anyone could help me, I'd appretiate it.
Thanks in advance.

by **sergeyken** » Fri Nov 18, 2022 12:58 am

prisgs wrote:Hello!
I need to work with records (read from a work file), whose values for the YEARS field (it is a numeric field in position 1, with length 4) need to be in a range: INITIAL YEAR (CURRENT YEAR - 4) and FINAL YEAR (CURRENT YEAR - 1).
My issue is about how to obtain the current year, in a simple way for this case, and use it subtracting values... here is a sample code of what I would like to work with INITIAL-YEAR and FINAL-YEAR:
Select all
SORT FIELDS=COPY
OMIT COND=(1,4,ZD,LT,INITIAL-YEAR,AND,
1,4,ZD,GT,FINAL-YEAR)

If anyone could help me, I'd appretiate it.
Thanks in advance.

Search all content by "YEAR", and/or "DATE"
https://www-40.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R3sc236880/$file/iceg200_v2r3.pdf

None of SORT utilities does allow use of dashes in field/values names (unlike COBOL)

Select all

INITIAL-YEAR

Where are any results of your attempts?
Any error message, or whatever else, at all??

by **sergeyken** » Fri Nov 18, 2022 1:35 am

Everything is described in detail in almost any of available manuals.

Did you hear about Google Search?

The working example is as primitive as 1st grade student exercise...

Select all

//SORT     EXEC PGM=SORT              
//SYSOUT   DD  SYSOUT=*               
//SORTIN   DD  *                      
20110101                              
20111231                              
20120101                              
20121231                              
20130101                              
20131231                              
20140101                              
20141231                              
20150101                              
20151231                              
20160101                              
20161231                              
20170101                              
20171231                              
20180101                              
20181231                              
20190101                              
20191231                              
20200101                              
20201231                              
20210101                              
20211231                              
20220101                                               
20221231                                               
20230101                                               
20231231                                               
20240101                                               
20241231                                               
20250101                                               
20251231                                               
20260101                                               
20261231                                               
20270101                                               
20271231                                               
20280101                                               
20281231                                               
20290101                                               
20291231                                               
//*                                                    
//SORTOUT1 DD  SYSOUT=*                                
//SORTOUT2 DD  SYSOUT=*                                
//*                                                    
//SYSIN    DD  *                                       
 SORT FIELDS=COPY                                      
 OUTREC BUILD=(1,10,DATE1)                             
  OUTFIL FNAMES=SORTOUT1,                           
        OVERLAY=(30:C'SORTOUT1'),                  
        INCLUDE=(1,4,CH,GE,DATE1-1461,   = 365*4 + 1   
             AND,1,4,CH,LE,DATE1-365)    = 365*1   
 OUTFIL FNAMES=SORTOUT2,                           
        OVERLAY=(30:C'SORTOUT2'),                  
        SAVE                                       
 END                                                  
//*                                                   

Select all

20180101  20221117           SORTOUT1  
20181231  20221117           SORTOUT1  
20190101  20221117           SORTOUT1  
20191231  20221117           SORTOUT1  
20200101  20221117           SORTOUT1  
20201231  20221117           SORTOUT1  
20210101  20221117           SORTOUT1  
20211231  20221117           SORTOUT1  

Select all

20110101  20221117           SORTOUT2  
20111231  20221117           SORTOUT2  
20120101  20221117           SORTOUT2  
20121231  20221117           SORTOUT2  
20130101  20221117           SORTOUT2  
20131231  20221117           SORTOUT2  
20140101  20221117           SORTOUT2  
20141231  20221117           SORTOUT2  
20150101  20221117           SORTOUT2  
20151231  20221117           SORTOUT2  
20160101  20221117           SORTOUT2  
20161231  20221117           SORTOUT2  
20170101  20221117           SORTOUT2  
20171231  20221117           SORTOUT2  
20220101  20221117           SORTOUT2  
20221231  20221117           SORTOUT2  
20230101  20221117           SORTOUT2  
20231231  20221117           SORTOUT2  
20240101  20221117           SORTOUT2  
20241231  20221117           SORTOUT2  
20250101  20221117           SORTOUT2  
20251231  20221117           SORTOUT2  
20260101  20221117           SORTOUT2  
20261231  20221117           SORTOUT2    
20270101  20221117           SORTOUT2    
20271231  20221117           SORTOUT2    
20280101  20221117           SORTOUT2    
20281231  20221117           SORTOUT2    
20290101  20221117           SORTOUT2    
20291231  20221117           SORTOUT2    

I hope changing the 'OUTFIL INCLUDE=' to 'INCLUDE COND=' should not be a problem?

by **prisgs** » Fri Nov 18, 2022 6:27 pm

sergeyken wrote:Everything is described in detail in almost any of available manuals.

Did you hear about Google Search?

I used Google search in my research, but all topics especific for this matter (finding the current year) that appeared were from community foruns, and in some of then the question was not resolved, and in another ones, the solutions were a bit complex to understand.
In manuals, I only found out how to obtain the current date. Could you please send me the link to the manual where there's this example?

But thanks for the example, in any case.

IBM Mainframe Forum

How to obtain only current YEAR and subtract years from it?

How to obtain only current YEAR and subtract years from it?

Re: How to obtain only current YEAR and subtract years from

Re: How to obtain only current YEAR and subtract years from

Re: How to obtain only current YEAR and subtract years from