Page 1 of 1

field attributes

PostPosted: Fri Jul 19, 2013 1:58 am
by helen2000
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

Re: field attributes

PostPosted: Fri Jul 19, 2013 2:22 am
by BillyBoyo
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).

Re: field attributes

PostPosted: Fri Jul 19, 2013 2:53 am
by helen2000
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?

Re: field attributes

PostPosted: Fri Jul 19, 2013 4:27 am
by c62ap90
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}

Re: field attributes

PostPosted: Tue Jul 23, 2013 2:24 am
by helen2000
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

Re: field attributes

PostPosted: Tue Jul 23, 2013 4:59 am
by Robert Sample
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.

Re: field attributes

PostPosted: Tue Jul 23, 2013 11:45 am
by Monitor
Why not use the DFHBMSCA copy for the attribute. It contains some useful attribute-combinations. More to read in IBM-manuals.

Re: field attributes

PostPosted: Tue Jul 23, 2013 9:36 pm
by helen2000
I understood the logic, when ws-year > 2000, will highlight the field, otherwise normal display the field, thanks all for your help and clues,