Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

I need to change the Map field size dynamic..

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
ramfrom84

New User


Joined: 23 Aug 2006
Posts: 93
Location: chennai

PostPosted: Mon Jun 30, 2008 12:48 pm    Post subject: I need to change the Map field size dynamic..
Reply with quote

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
Back to top
View user's profile Send private message

Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Mon Jun 30, 2008 6:39 pm    Post subject:
Reply with quote

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 ?
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Thu Jul 03, 2008 4:51 am    Post subject: Re: I need to change the Map field size dynamic..
Reply with quote

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
Back to top
View user's profile Send private message
raghav08
Currently Banned

New User


Joined: 03 Jun 2008
Posts: 94
Location: Bangalore

PostPosted: Mon Jul 07, 2008 5:08 pm    Post subject: Reply to: I need to change the Map field size dynamic..
Reply with quote

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).
Back to top
View user's profile Send private message
raghav08
Currently Banned

New User


Joined: 03 Jun 2008
Posts: 94
Location: Bangalore

PostPosted: Mon Jul 07, 2008 5:27 pm    Post subject: Reply to: I need to change the Map field size dynamic..
Reply with quote

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).
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Mon Jul 07, 2008 7:14 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Mon Jul 07, 2008 7:21 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to change 'K' or 'M' use Sort vice_versa DFSORT/ICETOOL 5 Thu May 18, 2017 7:11 am
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am
No new posts Dynamic split of files under groups sril.krishy DFSORT/ICETOOL 4 Mon Apr 17, 2017 1:09 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us