Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 2504
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 VSAM - Accessing beyond record size Benchwarmer JCL & VSAM 6 Wed Apr 11, 2018 9:20 pm
No new posts How to include a particular field val... sakrat DFSORT/ICETOOL 8 Fri Apr 06, 2018 8:27 pm
No new posts Extract the records with a PD field's... sudhakar84 DFSORT/ICETOOL 11 Mon Apr 02, 2018 7:26 pm
No new posts Searching a table for the field name? socker_dad COBOL Programming 8 Sat Mar 31, 2018 2:57 am
No new posts Repeat Sequence Number Until change i... rahulabvp DFSORT/ICETOOL 6 Thu Mar 29, 2018 12:51 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us