| 
**************************************************************** * * * API: QSYLOBJA * * Format: OBJA0100 * * * **************************************************************** 01 OBJA0100-INPUT. 05 I-USER-NAME PIC X(10). 05 I-RETRIEVE-TYPE PIC X(10). 05 I-RETURN-OBJECTS PIC X(10). 05 I-CONTINUE-VALUE PIC X(20). 01 OBJA0100-HEADER. 05 H-USER-NAME PIC X(10). 05 H-CONTINUE-VALUE PIC X(20). 01 OBJA0100-LIST. 05 L-OBJECT. 10 L-OBJECT-NAME PIC X(10). 10 L-OBJECT-LIBRARY PIC X(10). 05 L-OBJECT-TYPE PIC X(10). 05 L-AUTH-HOLDER PIC X(1). |
|
05 L-OWNERSHIP PIC X(1). **************************************************************** IINPUT DS I 1 10 USRNAM I 11 20 RTVTYP I 21 30 RTNOBJ I 31 50 CNTVAL IHEADER DS I 1 10 HUSRNM I 11 30 HCNTVL ILIST DS I 1 20 OBNMLB I 1 10 OBJNAM I 11 20 OBJLIB I 21 30 OBJTYP I 31 31 AUTHLR I 32 32 OWNSHP **************************************************************** * * * API: QSYLOBJA * * Format: OBJA0200 * |
|
* * **************************************************************** 01 OBJA0200-INPUT. 05 I-USER-NAME PIC X(10). 05 I-RETRIEVE-TYPE PIC X(10). 05 I-RETURN-OBJECTS PIC X(10). 05 I-CONTINUE-VALUE PIC X(20). 01 OBJA0200-HEADER. 05 H-USER-NAME PIC X(10). 05 H-CONTINUE-VALUE PIC X(20). 01 OBJA0200-LIST. 05 L-OBJECT. 10 L-OBJECT-NAME PIC X(10). 10 L-OBJECT-LIBRARY PIC X(10). 05 L-OBJECT-TYPE PIC X(10). 05 L-AUTH-HOLDER PIC X(1). 05 L-OWNERSHIP PIC X(1). 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 10 USRNAM I 11 20 RTVTYP I 21 30 RTNOBJ I 31 50 CNTVAL IHEADER DS I 1 10 HUSRNM I 11 30 HCNTVL ILIST DS I 1 20 OBNMLB I 1 10 OBJNAM I 11 20 OBJLIB I 21 30 OBJTYP I 31 31 AUTHLR I 32 32 OWNSHP |
|
I 33 42 ATHVAL I 43 43 ATLMGT I 44 44 OBJOPR I 45 45 OBJMGT I 46 46 OBJXST I 47 47 DTARED I 48 48 DTAADD I 49 49 DTAUPD I 50 50 DTADLT **************************************************************** * * * API: QSYLOBJA * * Format: OBJA0300 * * * **************************************************************** 01 OBJA0300-INPUT. 05 I-USER-NAME PIC X(10). 05 I-RETRIEVE-TYPE PIC X(10). 05 I-RETURN-OBJECTS PIC X(10). 05 I-CONTINUE-VALUE PIC X(20). |
|
01 OBJA0300-HEADER. 05 H-USER-NAME PIC X(10). 05 H-CONTINUE-VALUE PIC X(20). 01 OBJA0300-LIST. 05 L-OBJECT. 10 L-OBJECT-NAME PIC X(10). 10 L-OBJECT-LIBRARY PIC X(10). 05 L-OBJECT-TYPE PIC X(10). 05 L-AUTH-HOLDER PIC X(1). 05 L-OWNERSHIP PIC X(1). 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). 05 L-OBJECT-ATTRIBUTE PIC X(10). 05 L-OBJECT-TEXT PIC X(50). |
|
**************************************************************** IINPUT DS I 1 10 USRNAM I 11 20 RTVTYP I 21 30 RTNOBJ I 31 50 CNTVAL IHEADER DS I 1 10 HUSRNM I 11 30 HCNTVL ILIST DS I 1 20 OBNMLB I 1 10 OBJNAM I 11 20 OBJLIB I 21 30 OBJTYP I 31 31 AUTHLR I 32 32 OWNSHP I 33 42 ATHVAL I 43 43 ATLMGT I 44 44 OBJOPR I 45 45 OBJMGT I 46 46 OBJXST I 47 47 DTARED |
|
I 48 48 DTAADD I 49 49 DTAUPD I 50 50 DTADLT I 51 60 OBJATR I 61 110 OBJTXT |
