| 
**************************************************************** * * * API: QSYLUSRA * * Format: USRA0100 * * * **************************************************************** 01 USRA0100-INPUT. 05 I-OBJECT. 10 I-OBJECT-NAME PIC X(10). 10 I-OBJECT-LIBRARY PIC X(10). 05 I-OBJECT-TYPE PIC X(10). 01 USRA0100-HEADER. 05 H-OBJECT. 10 H-OBJECT-NAME PIC X(10). 10 H-OBJECT-LIBRARY PIC X(10). 05 H-OBJECT-TYPE PIC X(10). 05 H-OBJECT-OWNER PIC X(10). 05 H-AUTH-LIST PIC X(10). 01 USRA0100-LIST. 05 L-USER-NAME PIC X(10). |
|
05 L-OBJECT-AUTHORITY PIC X(10). 05 L-AUTL-MANAGEMENT PIC X(01). 05 L-OBJECT-OPERATIONAL PIC X(01). 05 L-OBJECT-MANAGEMENT PIC X(01). 05 L-OBJECT-EXISTENCE PIC X(01). 05 L-DATA-READ PIC X(01). 05 L-DATA-ADD PIC X(01). 05 L-DATA-UPDATE PIC X(01). 05 L-DATA-DELETE PIC X(01). **************************************************************** IINPUT DS I 1 20 INNMLB I 1 10 INNAME I 11 20 INLIBR I 21 30 INTYPE IHEADER DS I 1 20 OBNMLB I 1 10 OBJNAM I 11 20 OBJLIB I 21 30 OBJTYP I 31 40 OBJOWN I 41 50 AUTLST |
|
ILIST DS I 1 10 USRNAM I 11 20 ATHVAL I 21 21 ATLMGT I 22 22 OBJOPR I 23 23 OBJMGT I 24 24 OBJXST I 25 25 DTARED I 26 26 DTAADD I 27 27 DTAUPD I 28 28 DTADLT |
