field attributes



Support for CICS/ESA, CICS/TS & Transaction Gateway, CICS Configuration Manager and CICS Performance Analyzer

field attributes

Postby helen2000 » Fri Jul 19, 2013 1:58 am

Hello guys,

there is a defines as following:
01    FIELD-ATTRIBUTES.
               05   W-HIGH-ASKIP-ALP      PIC X      VALUE  "8".
               05   W-LOW-ASKIP-ALP       PIC X      VALUE   "0".


relative program code as following
when ws-year > 2010
    if  filed-cd-A = W-HIGH-ASKIP-ALP
          continue
    else
          move   W-LOW-ASKIP-ALP  to field-cd-A
    end-if
    .......

I checked the hexdecimal is x"F8" for "8", x"F0" for "0",
anybody can help me explain the meaning? thank you very much,

Helen
helen2000
 
Posts: 85
Joined: Sat Aug 08, 2009 9:44 pm
Has thanked: 0 time
Been thanked: 0 time

Re: field attributes

Postby BillyBoyo » Fri Jul 19, 2013 2:22 am

If we really mean it to be 8, leave it as 8. Else set it to zero (to "turn off" an attribute).

Don't know where the year comes from. Perhaps there was a change for a particular type of record from a particular date which meant the "data entry" of this function in question needed to be changed (to allow/disallow the "autoskip" for instance).
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: field attributes

Postby helen2000 » Fri Jul 19, 2013 2:53 am

thank BB for your quickly response,
my business rule is: the field-cd depends on ws-year, just only when ws-year<= 2010, we can modify field-cd, how does it work?
helen2000
 
Posts: 85
Joined: Sat Aug 08, 2009 9:44 pm
Has thanked: 0 time
Been thanked: 0 time

Re: field attributes

Postby c62ap90 » Fri Jul 19, 2013 4:27 am

I haven't done CICS in years but always remember the Attributes Table.

05      PSK-PEN-FSET      Pic  X(01)      Value ‘5’.
05      PSK-DRK           Pic  X(01)      Value ‘9’.

Examples:
Move PSK-PEN-FSET   to xxxxxxA.      {attribute name field}
Move PSK-DRK      to xxxxxxA.      {example use for Passwords}
c62ap90
 
Posts: 125
Joined: Thu Oct 11, 2012 10:24 pm
Has thanked: 1 time
Been thanked: 7 times

Re: field attributes

Postby helen2000 » Tue Jul 23, 2013 2:24 am

thanks for your help,
but my question is: why I can modify the field-cd in the screen after execute the statement "move W-LOW-ASKIP-ALP to field-cd-A"? in other words, who understand the meaning for each bit in the specific byte? how does it work in this case, thanks,

Helen
helen2000
 
Posts: 85
Joined: Sat Aug 08, 2009 9:44 pm
Has thanked: 0 time
Been thanked: 0 time

Re: field attributes

Postby Robert Sample » Tue Jul 23, 2013 4:59 am

why I can modify the field-cd in the screen after execute the statement "move W-LOW-ASKIP-ALP to field-cd-A"
Show us the SEND MAP you executed after executing this statement.
Robert Sample
Global moderator
 
Posts: 3720
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 279 times

Re: field attributes

Postby Monitor » Tue Jul 23, 2013 11:45 am

Why not use the DFHBMSCA copy for the attribute. It contains some useful attribute-combinations. More to read in IBM-manuals.
Monitor
 
Posts: 98
Joined: Wed Jan 18, 2012 8:59 pm
Has thanked: 0 time
Been thanked: 7 times

Re: field attributes

Postby helen2000 » Tue Jul 23, 2013 9:36 pm

I understood the logic, when ws-year > 2000, will highlight the field, otherwise normal display the field, thanks all for your help and clues,
helen2000
 
Posts: 85
Joined: Sat Aug 08, 2009 9:44 pm
Has thanked: 0 time
Been thanked: 0 time


Return to CICS

 


  • Related topics
    Replies
    Views
    Last post