IBM Mainframe Forum

by **ankushgattani** » Tue Sep 04, 2012 3:50 pm

we can do that using SYMNAMES:
Sortstep1: generate year and save the record into SYMVAR
Sortstep2: use the SYMVAR to write the year in the HEADER1.

But even this will need two steps.

by **bodatrinadh** » Tue Sep 04, 2012 5:06 pm

Hi Ankush,

You can do it in single step...

Select all

//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYMNAMES DD *
YEAR4,S'&LYR4'
//SORTIN DD *
3NADH.TXT
CD AAAAAA
CD BBBBBB
CD CCCCCCC
CD DDDDDDD
LOCSITE PRI=5 CY SEC=1 CY U=TESTDA REC=FB LR=1402 BLOCKSI=0
GET +
USER.NONX.USER9999.SAMPLE(+1)'
QUIT
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL HEADER1=(YEAR4)

And your Output will be :-

Select all

2012 ==> Current Year
3NADH.TXT
CD AAAAAA
CD BBBBBB
CD CCCCCCC
CD DDDDDDD
LOCSITE PRI=5 CY SEC=1 CY U=TESTDA REC=FB LR=1402 BLOCKSI=0
GET +
USER.NONX.USER9999.SAMPLE(+1)'
QUIT

by **ankushgattani** » Tue Sep 11, 2012 3:51 pm

Thanks Bodatrinadh

That worked fine.
But there is one issue, the output year comes in Character format. I need it in decimal format (ZD), as i have to subtract 1 from it and copy it to new file.
i tried this in OUTFILE HEADER1, didn't work, gave me syntax error

Select all

YEAR4,TO=ZD

--> Writing another sort card to generate CURRENTYEAR - 1 (2012 - 1 = 2011) is also fine by me.
I tried to do using the following SYMNAMES, but couldnt get the desired result.

Select all

YEAR4,S'&LYR4'-1

This job abended
and

Select all

YEAR4,S'&LYR4-1'

This job printed "2012-1".

by **ankushgattani** » Wed Sep 12, 2012 11:30 am

I got the Answer:

I can subtract one from 2012 (in character format) using the following code:
Input data is:

Select all

xx2012xx

The overlay for output record can be defined as

Select all

Overlay=(1,2,(3,4,ZD,SUB,+1),M7,LENGTH=4,7,2)

by **BillyBoyo** » Wed Sep 12, 2012 12:26 pm

You are defining it as ZD, not character (CH).

You don't need an EDIT mask if you just want simple digits.The parenthesis/brackets are not a bad idea, but I'd include the LENGTH= inside.

by **ankushgattani** » Thu Sep 13, 2012 11:29 am

I tried

Select all

Overlay=(1,2,(3,4,ZD,SUB,+1),7,2)

But it gave me SPACES in place of "Year-1"

Select all

xx xx

expected output was

Select all

xx2011xx

by **ankushgattani** » Thu Sep 13, 2012 11:32 am

this is my input reord with HEX ON

Select all

XX2012XX
EEFFFFEE444444444444444444444444444444444444444444444444444444444444444
77201277000000000000000000000000000000000000000000000000000000000000000

by **BillyBoyo** » Thu Sep 13, 2012 11:43 am

Select all

OVERLAY=(1,2,(3,4,ZD,SUB,+1,LENGTH=4),7,2)

by **ankushgattani** » Thu Sep 13, 2012 12:28 pm

when i use

Select all

OVERLAY=(1,2,(3,4,ZD,SUB,+1,LENGTH=4),7,2)

i get the following error

Select all

SYSIN :
OPTION COPY
INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'x'),
OVERLAY=(1:C'1',X,(3,4,ZD,SUB,+1,LENGTH=4),7,2)
*
OUTFILE REMOVECC
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000

Without Parenthesis, The job runs fine, but it doesnt give the required output:

Select all

OVERLAY=(1,2,3,4,ZD,SUB,+1,LENGTH=4,7,2)

the output is

Select all

xx011 xx

by **BillyBoyo** » Thu Sep 13, 2012 1:18 pm

You had it working.

I thought the brackets were a nice idea, I've never used them like that.

Select all

I would do 3,4,ZD,SUB,+1,TO=ZD,LENGTH=4

I could "guess" (no Syncsort manual) that

Select all

(3,4,ZD,SUB,+1),TO=ZD,LENGTH=4

Would be as far as the brackets can get.

IBM Mainframe Forum

How to include Year in Header1

Re: How to include Year in Header1

Re: How to include Year in Header1

Re: How to include Year in Header1

Re: How to include Year in Header1

Re: How to include Year in Header1

Re: How to include Year in Header1

Re: How to include Year in Header1

Re: How to include Year in Header1

Re: How to include Year in Header1

Re: How to include Year in Header1