| 
**************************************************************** * * * API: QSYRUSRA * * Format: USRA0100 * * * **************************************************************** 01 USRA0100-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 OBJECT-AUTHORITY PIC X(10). 05 AUTL-MANAGEMENT PIC X(01). 05 OBJECT-OPERATIONAL PIC X(01). 05 OBJECT-MANAGEMENT PIC X(01). 05 OBJECT-EXISTENCE PIC X(01). 05 DATA-READ PIC X(01). 05 DATA-ADD PIC X(01). 05 DATA-UPDATE PIC X(01). 05 DATA-DELETE PIC X(01). 05 AUTL-NAME PIC X(10). 05 AUTHORITY-SOURCE PIC X(02). 05 SOME-ADOPTED PIC X(01). 05 AOBJECT-AUTHORITY PIC X(10). |
|
05 AAUTL-MANAGEMENT PIC X(01). 05 AOBJECT-OPERATIONAL PIC X(01). 05 AOBJECT-MANAGEMENT PIC X(01). 05 AOBJECT-EXISTENCE PIC X(01). 05 ADATA-READ PIC X(01). 05 ADATA-ADD PIC X(01). 05 ADATA-UPDATE PIC X(01). 05 ADATA-DELETE PIC X(01). I***************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 18 OBJAUT I 19 19 AUTLMG I 20 20 OBJOPR I 21 21 OBJMGT I 22 22 OBJEXS I 23 23 DTREAD I 24 24 DTADD I 25 25 DTUPD I 26 26 DTDLT I 27 36 AUTLN |
|
I 37 38 AUTSRC I 39 39 SADOPT I 40 49 AOBJAU I 50 50 AAUTLM I 51 51 AOBJOP I 52 52 AOBJMG I 53 53 AOBJEX I 54 54 ADTRED I 55 55 ADTADD I 56 56 ADTUPD I 57 57 ADTDLT |
