update trailer count at specific position and date

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

vasanthz · Posted: Fri Mar 12, 2010 2:26 pm

There are numerous threads similar to this requirement. search the forum.
Also "SMART DFSORT TRICKS" Pdf has a solution to your requirement.(if u are using DFSORT)

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

I got the solution of the above requirement from the forum .
Now i am looking to supress Zero from my trailer count

e.g
i/p file
yyy
zzz
aaa

o/p file

yyy
zzz
aaa
003

i want to supress leading zero from the trailing count .

vasanthz · Posted: Fri Mar 12, 2010 3:39 pm

What control statements did you use?

Edit mask could be the solution to supressing zeros.

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

I have tried with edit pattern M10,But it is giving me leading spaces

i want count to display actual count of the records.
eg if the file contains 9 records it should write 9 only without any spaces or leading zeroes .

COUNT=(M10,LENGTH=9)

Skolusu · Posted: Fri Mar 12, 2010 9:59 pm

shr_amr,

Use the folllowing DFSORT JCL which will give you the desired results

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

Thanks Kolusu,

What things need to be changed if i have to use Fixed Block output file of RL=127.

Rgrd

Escapa · Posted: Mon Mar 15, 2010 2:48 pm

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

No Imput is same ( VB,RL= 131)

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

I have tried to take output in the FB RL=127, With the following card changed .

//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=your input vb file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,SEQNUM,9,ZD,
C'|EXTRACTRETURNCODE|0|EXTRACTDATE|',DATE1,5)),
IFTHEN=(WHEN=INIT,OVERLAY=(5:5,9,ZD,M10,LENGTH=9)),
IFTHEN=(WHEN=INIT,OVERLAY=(5:5,50,JFY=(SHIFT=LEFT)))

OUTFIL VTOF,REMOVECC,BUILD=(1,4,55),
TRAILER1=('FOOTER|SERVICENAME|PEGA|NUMBEROFPROCESSEDRECORDS|',5,50)
//*

ADDED VTOF option but getting given below error

ICE126A 9 INCONSISTENT REFORMATTING FOR SORTOUT : REASON CODE 02, IFTHEN 0

Please advise

Skolusu · Posted: Mon Mar 15, 2010 9:43 pm

shr_amar,

If you want FB 127 LRECL output then it is just 1 line change. Change the OUTFIL statement in my job to the following

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

Thanks Kolusu ,

I know that in VB first four byte is RDW and data start from 5 byte. Will it be possible for you to tell me what the diffrence here in
BUILD=(55,127), &
BUILD=(1,4,55),

I am new to DFSORT so i apologise if i am asking very basic question's

Regards

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

Kolusu ,

I have changed outfil statement to BUILD=(55,127), Its not working .Error coming out is :-

ICE027A 9 END OF SORTOUT FIELD BEYOND MAXIMUM RECORD LENGTH

Escapa · Posted: Tue Mar 16, 2010 11:34 am

Frank Yaeger · Posted: Tue Mar 16, 2010 10:46 pm

shr_amar,

Kolusu's VTOF job works as coded. In order to get the ICE027A, you must have something different in your job.

You need to post your complete JCL source and the complete //SYSOUT messages you received in order for us to help you.

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

I have tried given below code to fullfil my requiremnt which are as follows

1) Input file is a VB ,131 byte long , the first byte of the input file contain spaces.
2) In output file i want to copy all the data into a FB 126 byte long file (excluding first byte of the input file).

Rules are

Write fixed text header record with date in output file
copy all the data of the input file to o/p starting from 2 byte to 131 byte ( As first byte is space that need to be ommited)
write
write trailer with count .

while executing my code i am getting error

ICE218A 6 5 BYTE VARIABLE RECORD IS SHORTER THAN 12 BYTE MINIMUM FOR FI

//S00001 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT.FILE (VB,RL131),DISP=SHR
//SORTOUT DD DSN=OUTPUT.FILE (FB,RL126),DISP=SHR
//SYSIN DD *
OMIT COND=(5,8,CH,EQ,C'|||||||')
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,SEQNUM,9,ZD,
C'|TESTTESTHHHHHHHHHHHHHHHHHHHHHHHH',DATE1,5)),
IFTHEN=(WHEN=INIT,OVERLAY=(5:5,9,ZD,M10,LENGTH=9)),
IFTHEN=(WHEN=INIT,OVERLAY=(5:5,50,JFY=(SHIFT=LEFT)))

OUTFIL VTOF,REMOVECC,BUILD=(55,126),
HEADER1=('TESTNAME_BBBBBBBBBBBBBDGFHGGHGHHHILEELTTTTTTTTTTTTTTTTTTTTY'
TESTAGAINTESTAGAINOTESTAGAINTESTAGAINATED'),
TRAILER1=('THIS:ISATESTTRAIERNUMBEROFRECORDPROCESSEDRECORDS|',5,50)
/*

Skolusu · Posted: Wed Mar 17, 2010 9:36 pm

shr_amar,

Boy. Isn't it a nice shooting practice with a moving target? You show "n" different scenarios and provide very little information.

Let's see you started with ICE027A and when asked to show what you changed you come back with ICE218A? Whatever happened to the previous error?

You wanted an FB output file of 127 and now you change it to Fb 126? Are you even sure what you really want?

*Sigh* Use the following control cards

dick scherrer · Posted: Wed Mar 17, 2010 11:21 pm

When adding new functonality to dfsort/icetool, i believe it is time to implement DWIM capability. . . .

Once upon a time, i made some DWIM keyboard keys for "special users" (these were some of our brightest users, but they had a horrible time migrating from character screens to Windows) using blank "chicklets", clear typing tape, and 2-sided tape to attach to the keyboard.

DWIM = Do What I Meant

Frank Yaeger · Posted: Wed Mar 17, 2010 11:39 pm

And the related commands

DWIWNWITYTD - Do what I wanted, not what I told you to do
DWIDKIW - Do what I didn't know I wanted
DIA - Do it all
RMM - Read my mind
FOWIW - Figure out what I want
and so on

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

Kolusu ,

I agree with the remark. This also points that while getting solution to the requirement i also wish to learn various situation's.I know there are many handbooks present on platform.But some one well said

A single conversation with a wise man is better than ten years of study

I know that you guys are having excellent command over this utility and becuse of this people need support everytime from all of you .

I will test the code and lt you know the outcome

Warm regards

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

Kolusu,

In case input file is empty Trailer record get truncated.i.e

Skolusu · Posted: Thu Mar 25, 2010 9:33 pm

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

Kolusu,

Can you suggest me the code changes ?

Rgrds

Skolusu · Posted: Fri Mar 26, 2010 1:46 am