I need to change the Map field size dynamic..

ramfrom84 · New User Joined: 23 Aug 2006 Posts: 93 Location: chennai

Hi,

I have map field size as 6 bytes , i need to change the field size as 8 bytes. this is my requirement ,, In order to do this requirement in better manner , i need help from you ..

Most of the time , i m getting input/output lengh as 6 bytes,, But for only one condition i ll get input as 8 bytes.. remaining time addition 2 bytes should be prot , Is this possible to prot the 2 bytes alone ?

It is impossible if i change the existing field length from 6 bytes to 8 bytes .Then how should i proceed ...

but only one condition i need this

Earl Haigh · Active User Joined: 25 Jul 2006 Posts: 475

unfortunatel ram,

you provide such scattered information, I don't know how to help.

1 have you or someone already changed the map?

2 did you insert a new 2 byte field ?

3 did you new copy the map?

5 have you discussed with your peers ?

6 have you asked your CICS Systems Programmer for help ?

yes, you protect a 2 byte field on the map.

Have your tried reading the application programmers guide
regarding BMS maps ?

Bill O'Boyle · Posted: Thu Jul 03, 2008 4:51 am

If you know the condition when it is necessary to protect/askip bytes 07-08 of the 08-byte map field, then MOVE -

X'1DF0' to bytes 07-08 of the map field defined in the COPY (or redefined) MAP member.

I think this will work for you....

Regards,

Bill

raghav08 · New User Joined: 03 Jun 2008 Posts: 94 Location: Bangalore

In the Symbolic Map, if the field "SCRNCDE" defined as follows,

01 KUSQMAPI.
:
:
02 SCRNCDEL COMP PIC S9(4).
02 SCRNCDEF PICTURE X.
02 FILLER REDEFINES SCRNCDEF.
03 SCRNCDEA PICTURE X.
02 SCRNCDEI PIC X(8).
:
:
01 KUSQMAPO REDEFINES KUSQMAPI.
:
:
02 FILLER PICTURE X(3).
02 SCRNCDEO PIC X(8).
:

In the application program, dynamically protect the field position 07-08, then do we need follow the below logic? Please.

MOVE X'1DF0' TO SCRNCDEA(7:2).

raghav08 · New User Joined: 03 Jun 2008 Posts: 94 Location: Bangalore

Bill,

I had mistake in my previous post,

MOVE X'1DF0' TO SCRNCDEA(7:2), this is suppose to be

MOVE X'1DF0' TO SCRNCDEO(7:2).

Earl Haigh · Active User Joined: 25 Jul 2006 Posts: 475

MOVE X'1DF0' TO SCRNCDEA(7:2), this is suppose to be

first of all moving x'1DFO' will not work.

2nd, using (7:2) will definitiely not work.

It appears you are copying code from an old program that uses
3270 native mode datastreams and trying to make that work
with Basic Mapping Support.

attribute byte fields, like SCRNCDEA are 1 byte fields.

Please review the appropriate manuals for populating BMS map fields
with attribute bytes and/or discuss with other programmers that
have performed this type of work.

Earl Haigh · Active User Joined: 25 Jul 2006 Posts: 475

after re-reading the original post,
I understand now what Bill was suggesting by moving X'1DFO',

this might work on the send, but I'm guessing will create problems
when trying to receive the map.

the map in question needs
to have field scrncde broken into TWO fields, one that is six bytes
and another that is 2 bytes.