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
 
Dynamic Attribute Change in IMS DC

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
abhinav343

New User


Joined: 28 May 2007
Posts: 5
Location: punjab

PostPosted: Tue May 26, 2009 10:03 pm    Post subject: Dynamic Attribute Change in IMS DC
Reply with quote

Sandy,

Could you please confirm my understanding on this:

In IMS-DC, usually with each MOD- variable ,we define
an attribute variable e.g.
01 MOD-VAR1-ATTR PIC S9(4) COMP.
01 MOD-VAR1 PIC X(5).

This has to be defined in your output message structure. Make sure that your output message length is increased if you are adding anything. In MFS the MOD variable must have ATTR=YES specified in message field definition. Using your logic you can move predefined values to the attribute variable to change the attribute dynamically (very much similar to CICS attribute handling)..


Example:

Set up an 01 level named attribute-byte-values in working storage. You will then define the attribute bytes as 05 levels - here are a couple:

05 protect-alpha pic 9(4) comp value 226.
05 unprotect-numeric-mod pic 9(4) comp value 211.
05 unprotect-alpha-mod-curs pic 9(5) comp value 49347.
05 unprotect-num-hi-mod-curs pic 9(5) comp value 49371.


Now if you want MOD-VAR1 to be protected :

MOVE protect-alpha to MOD-VAR1-ATTR .

Please correct me. Also how do you get values 226 or 211 etc for different attribute types?

Thanks,
Back to top
View user's profile Send private message

dominickim

New User


Joined: 28 Feb 2007
Posts: 65
Location: NS, CA

PostPosted: Fri May 29, 2009 4:55 am    Post subject: It could help
Reply with quote

Hello abhinav343,

I am not a Sandy but I'd say that your basic understanding is correct and please refer link below in order to make another attribute values.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DFSP20F3/2.4.2.6?SHELF=&DT=20020906094838&CASE=

Thanks,
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 -> IMS DB/DC 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 a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm
No new posts change string before sertan string anatol DFSORT/ICETOOL 8 Tue Aug 15, 2017 5:43 pm
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm
No new posts How to change 'K' or 'M' use Sort vice_versa DFSORT/ICETOOL 5 Thu May 18, 2017 7:11 am

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