Loading...
Select Version
LMSCOBPA generates the protection attributes.
COPY LMSCOBPA. |
Expansion of LMSCOBPA
01 LMSUP-PA.
02 P-TIND-READ PIC X(1) VALUE SPACES.
02 P-READ-OWN PIC X(1) VALUE SPACES.
02 P-READ-GRP PIC X(1) VALUE SPACES.
02 P-READ-OTH PIC X(1) VALUE SPACES.
02 P-READ-PIND PIC X(1) VALUE SPACES.
02 P-READ-PSWD PIC S9(9) COMP VALUE 0.
02 P-READ-PSWD-X REDEFINES P-READ-PSWD PIC X(4).
02 P-TIND-WRIT PIC X(1) VALUE SPACES.
02 P-WRIT-OWN PIC X(1) VALUE SPACES.
02 P-WRIT-GRP PIC X(1) VALUE SPACES.
02 P-WRIT-OTH PIC X(1) VALUE SPACES.
02 P-WRIT-PIND PIC X(1) VALUE SPACES.
02 P-WRIT-PSWD PIC S9(9) COMP VALUE 0.
02 P-WRIT-PSWD-X REDEFINES P-WRIT-PSWD PIC X(4).
02 P-TIND-EXEC PIC X(1) VALUE SPACES.
02 P-EXEC-OWN PIC X(1) VALUE SPACES.
02 P-EXEC-GRP PIC X(1) VALUE SPACES.
02 P-EXEC-OTH PIC X(1) VALUE SPACES.
02 P-EXEC-PIND PIC X(1) VALUE SPACES.
02 P-EXEC-PSWD PIC S9(9) COMP VALUE 0.
02 P-EXEC-PSWD-X REDEFINES P-EXEC-PSWD PIC X(4).
02 P-GUARD-READ PIC X(18) VALUE SPACES.
02 P-GUARD-WRIT PIC X(18) VALUE SPACES.
02 P-GUARD-EXEC PIC X(18) VALUE SPACES.
02 P-TIND-HOLD PIC X(1) VALUE SPACES.
02 P-HOLD-OWN PIC X(1) VALUE SPACES.
02 P-HOLD-GRP PIC X(1) VALUE SPACES.
02 P-HOLD-OTH PIC X(1) VALUE SPACES.
02 P-HOLD-PIND PIC X(1) VALUE SPACES.
02 P-HOLD-PSWD PIC S9(9) COMP VALUE 0.
02 P-HOLD-PSWD-X REDEFINES P-HOLD-PSWD PIC X(4).
02 P-GUARD-HOLD PIC X(18) VALUE SPACES.
02 FILLER PIC X(84) VALUE SPACES.
************** END OF COPY ELEMENT LMSCOBPA *********************