I need to add just the 4 digit year to header1

[mainframe_dinosaur]

I need to add the current 4 digit year (only) to header1. I have tried looking at misc. publications and can't seem to find only the year without month and day or julian day.

[William Collins]

Which SORT product are you using?

[mainframe_dinosaur]

I'm using ICETOOL

[William Collins]

Have a look at the messages in the sysout from one of your ICETOOL steps, then. Do they start ICE, SYT or what?

[mainframe_dinosaur]

What I'm trying to do is to replace the literal 2013 with the system year in the following...


ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K80744
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES A
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 16:10 ON WED S
*------------------------------------------------------------*
* TAXC49SL - ADD HEADER AND TRAILER RECORD IN O0J8 *
*------------------------------------------------------------*
OPTION COPY
INREC IFTHEN=(WHEN=(1,7,CH,EQ,C'ACCTHDR'),OVERLAY=(471:C'1')),
IFTHEN=(WHEN=(1,8,CH,EQ,C'ACCTTRAN',OR,1,8,CH,EQ,C'1099BREC')
OVERLAY=(472:C'1'))
OUTFIL BUILD=(1,470),
HEADER1=(1:'HEADER',
9:'2013',
13:'TAXJC49 O0J8',
25:DATE=(4MD-)),
TRAILER1=(1:'TRAILER',
9:'2013',
13:'TAXJC49 O0J8',
25:TOT=(471,1,ZD,M11,LENGTH=9),
34:TOT=(472,1,ZD,M11,LENGTH=9),
43:COUNT+2=(M11,LENGTH=9)),
REMOVECC
DEBUG ABEND
ICE146I 0 END OF STATEMENTS FROM OUT1CNTL - PARAMETER LIST STATEMENTS FOLLOW

DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=OUT1,SORTIN=ADDSD
LS,SORTOUT=CURRCORR,DYNALLOC
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K80744
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE088I 0 APL0C06S.JOB0100 .STEP1300, INPUT LRECL = 470, BLKSIZE = 27730, TYPE =
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6234096,6234096)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERE
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=32 ,ODMAXBF=2097152,SOLRF=Y,VLLONG=N
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
ICE084I 0 EXCP ACCESS METHOD USED FOR ADDSDELS
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2107392
ICE210I 0 CURRCORR : EXCP USED, LRECL = 470, BLKSIZE = 27730, TYPE = FB
ICE751I 1 EF-BASE CB-K64632 F0-K66717 E8-K79990
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 27, OUT: 27
ICE227I 0 CURRCORR : DELETED = 0, REPORT = 2, DATA = 27
ICE228I 0 CURRCORR : TOTAL IN = 27, TOTAL OUT = 29
ICE052I 0 END OF DFSORT

[vasanthz]

Hello,
You can define a SYMNAME for the year like
YEAR,S'&YR4.'

and use YEAR in header1 statement.

Would this help?

Code: Select all

//WELLS    EXEC PGM=SORT     
//SYSOUT   DD SYSOUT=*       
//SYMNAMES DD *              
YEAR,S'&YR4.'                
/*                           
//SORTIN   DD *              
DUMMY                        
//SORTOUT  DD SYSOUT=*       
//SYSIN    DD *              
  OPTION COPY                
  OUTFIL BUILD=(1,80),    
  HEADER1=(10:YEAR)          
/*

Output:

Code: Select all

         2013
DUMMY          

[mainframe_dinosaur]

Thanks, Vasanthz! It works like a champ. I've never used the symbol table before and can see the use of it now.