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
 

 

dynamic changing PROT to UNPROT

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe Interview Questions
View previous topic :: :: View next topic  
Author Message
ravikumarreddy
Warnings : 1

New User


Joined: 29 Jul 2005
Posts: 23

PostPosted: Tue Sep 13, 2005 3:19 pm    Post subject: dynamic changing PROT to UNPROT
Reply with quote

HI,

here my requirement is ...... i want to change the PROTECTED FIELDS TO UNPROTECTED FIELDS of map,that to on DYNAMICALLY...

THANKS IN ADVANCE,
ravi
Back to top
View user's profile Send private message

prakash271082

New User


Joined: 09 Sep 2005
Posts: 53

PostPosted: Tue Sep 13, 2005 3:53 pm    Post subject: Re: dynamic changing PROT to UNPROT
Reply with quote

Hi Ravi,
You Could use Attribute Check Byte to dynamically change from protected to unprotected and vicsversa etc.
For Eg:
Say in Your Map definition, your label for the field for which value to be received is XXX1. Then you could use
"MOVE DFHBMUNP TO XXX1A" => this will change that receiving field from Protected to Unprotected.
Hope this helps.
Back to top
View user's profile Send private message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 436
Location: chennai, India

PostPosted: Tue Sep 13, 2005 3:58 pm    Post subject:
Reply with quote

ravi,

Lets take this case:

After performing some condition if you need to protect the values of field 'AAA' from editing,you can do the following:

Code:
If Action-performed = true
Move PRO to AAA-F  (defined in map)
else
Move UNP tO AAA-F
end-if


PRO and UNP are predefined field attributes.

Are you using this predefined attrbt in your shop?
Unless let me know,I can provide the values for these attributes.

hope this helps.
Back to top
View user's profile Send private message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 436
Location: chennai, India

PostPosted: Tue Sep 13, 2005 4:10 pm    Post subject:
Reply with quote

DFHBMUNP can also be used.

You can also define datanames on your own and set these below values for such operation.

For unprotecting
Code:
MOVE UNP to AAA-F

else you declare some variable and assign the values to it.
Code:
UNPROTECT-MNO    PIC X VALUE ' '
................
 MOVE UNPROTECT to AAA-F.


Code:
01  IBM-FIELD-ATTRIBUTES.                               
  05  SET-CSR                   PIC S9(4) COMP VALUE -1.
  05  ERASE-EOF-ON              PIC X VALUE '?'.       
  05  UNP                       PIC X VALUE ' '.       
  05  UNP-MDT                   PIC X VALUE 'A'.       
  05  UNP-BRI                   PIC X VALUE 'H'.       
  05  UNP-BRI-MDT               PIC X VALUE 'I'.       
  05  UNP-DRK                   PIC X VALUE '<'.       
  05  UNP-DRK-MDT               PIC X VALUE '('.       
  05  UNP-NUM                   PIC X VALUE '&'.       
  05  UNP-NUM-MDT               PIC X VALUE 'J'.       
  05  UNP-NUM-BRI               PIC X VALUE 'Q'.       
  05  UNP-NUM-BRI-MDT           PIC X VALUE 'R'.       
  05  UNP-NUM-DRK               PIC X VALUE '*'.       
  05  UNP-NUM-DRK-MDT           PIC X VALUE ')'.       
  05  PRO                       PIC X VALUE '-'.       
  05  PRO-MDT                   PIC X VALUE '/'.       
  05  PRO-BRI                   PIC X VALUE 'Y'.       
  05  PRO-BRI-MDT               PIC X VALUE 'Z'.       
  05  PRO-DRK                   PIC X VALUE '%'.       
  05  PRO-DRK-MDT               PIC X VALUE '_'.       
  05  PRO-SKP                   PIC X VALUE '0'.       
  05  PRO-SKP-MDT               PIC X VALUE '1'.       
  05  PRO-SKP-BRI               PIC X VALUE '8'.       
  05  PRO-SKP-BRI-MDT           PIC X VALUE '9'.       
  05  PRO-SKP-DRK               PIC X VALUE '@'.       
  05  PRO-SKP-DRK-MDT           PIC X VALUE ''''
.

hope this helps.
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 -> Mainframe Interview Questions All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts BI,TO=ZD Changing Values Tyler Dunbar DFSORT/ICETOOL 4 Tue Jul 25, 2017 12:12 am
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 Dynamic split of files under groups sril.krishy DFSORT/ICETOOL 4 Mon Apr 17, 2017 1:09 pm
No new posts Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 3:25 pm


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