CICS aid keys to get a field protected

Amit_Singh47 · New User Joined: 15 May 2013 Posts: 22 Location: India

Hi All,

In a CICS map, i am trying to get a field protected. The code is the following:

PERFORM ATTR-CNT TIMES
MOVE WHITE-PROT-BRI-MDT TO
ACTIONA ( COM-TOTAL-RECORDS + 1 )END-PERFORM

Here, ATTR-CNT and COM-TOTAL-RECORDS are simple variables.

However, this is not working as the attribute is not getting protected.

Please help.

Stefan · Posted: Wed May 15, 2013 2:28 pm

Your PERFORM loop moves the attribute byte in every iteration to the same occurrence of ACTIONA. Instead you should set the indexing variable to a meaningful starting value and increase it per iteration by 1.