Want to change some part of the header , plse see the detail

maxsubrat · New User Joined: 27 Feb 2008 Posts: 8 Location: india

Hi,
I have a requirement like to update a header only..
For eg..

DIVHDR046B780203 0000582510807072006281080701
001060.�..�....�................. ............
001178.�..��...�&................ ............
001216.�..��...�&................ ............
001242.�..��....�................ ............
etc....

The 1st line is a header(there is only one header) and i want to change the DIVHDR046 to DIVHDR053 , if it is any other value other than 046 also i want to change it to 053.
But i don't want to touch any other record.. only that header i mention want to change to 053..

Please someone help me to give the sort utility to do that..

Aaru

max,

ParagChouguley · Posted: Mon Jul 14, 2008 1:58 pm Post subject:

Aaru

parag,

ParagChouguley · Posted: Mon Jul 14, 2008 3:01 pm Post subject:

I guess, not !
I modified an existing sort card which contained "when=None" part, so kept as it is!

Aaru

Parag,

maxsubrat · New User Joined: 27 Feb 2008 Posts: 8 Location: india

Hi,

There is one new requirement in the same file above..
This is the layout of the copybook
position
01 D87103W1-INPUT-RECORD.
05 D87103W1-MEINBR PIC X(6). 1-6
05 D87103W1-MEPNBR PIC S9(6) COMP-3. 7-10

The file record are like that:

D87103W1 D87103W1
MEINBR MEPNBR
C 6 PS 4
1------- 7-------
****** ******************
000001 DIVHDR X'F0F4+
000002 001060 53053
000003 001178 53053
000004 001216 53053
000005 001242 53053
000006 001521 53053
000007 001875 53053
000008 001949 53053
like that lot of records are there, but there is one header only..

The field MEPNBR which looks 53053 in all the records,
but it should populated as 053053, but the left 0 looks suppressing..

I want in all the records the MEPNBR should be 053053, This field as i mentioned defined as a packed decimal.

and the header should not be affected anyway...

Please let me know how to encounter this requirement... whether go for the program change , if change then what should be the changed one.. or need to do it with any sort utility..

Thanks

ParagChouguley · Posted: Wed Jul 16, 2008 11:21 am Post subject:

maxsubrat,
Pls use "Code" option and then post sample records of your Input file, so that position and lengths of fields can be understood better.

Moreover, you say

maxsubrat · New User Joined: 27 Feb 2008 Posts: 8 Location: india

I am giving details from beginning,
There is only one header and 3000 records in my file..
and there is a Field called LOCNBR in the file,
it is declared as PIC S9(6) COMP-3
The position is like that:
1. SINO PIC X(6)
2. LOCNBR PIC S9(6) COMP-3

When we receive the file we are getting the LOCNBR as 53053 but actually it is 053053.
so the left zero is supressing,
can we do something that the field shows like 053053, while currently it is showing as 53053..

so we have to do in such a way that the header should not be affected, but the left zero should display in all the records in the output process file as 053053..
see below the layout:
DIVHDR046B780203 0000582510807072006281080701
001060 53053
001178 53053
...like that it continues

plse give ur views how to make the changes .. whether in programs or in jobs..
Thanks

dick scherrer · Posted: Thu Jul 17, 2008 9:35 pm Post subject:

Hello,

maxsubrat · New User Joined: 27 Feb 2008 Posts: 8 Location: india

if u open in 3.4 option then u cann't see the proper data, but if u open in File-aid then u can see the datas..

dick scherrer · Posted: Fri Jul 18, 2008 9:16 am Post subject:

Hello,

Open the file in 3.4, then use HEX ON.

From that display, post the info i asked for.

maxsubrat · New User Joined: 27 Feb 2008 Posts: 8 Location: india

This is the plain format(HEX off )

dick scherrer · Posted: Fri Jul 18, 2008 9:55 am Post subject:

Hello,

maxsubrat · New User Joined: 27 Feb 2008 Posts: 8 Location: india

Boss,
The main problem is the 2nd field which the value is 053053, but in our report the left 0 is suppressing, like 53053....

but i want in my output report the 2nd field should be 053053 without suppressing the left 0..
Thanks