****************************************************************
      *                                                              *
      * API:  QSYLOBJP                                               *
      * Format:  OBJP0100                                            *
      *                                                              *
      ****************************************************************
       01 OBJP0100-INPUT.
           05 I-USER-NAME                    PIC X(10).
           05 I-RETRIEVE-TYPE                PIC X(10).
           05 I-CONTINUE-VALUE               PIC X(20).
 
       01 OBJP0100-HEADER.
           05 H-USER-NAME                    PIC X(10).
           05 H-CONTINUE-VALUE               PIC X(20).
 
       01 OBJP0100-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-OBJECT-IN-USE                PIC X(1).
      ****************************************************************

     IINPUT       DS
     I                                        1  10 USRNAM
     I                                       11  20 RTVTYP
     I                                       21  40 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 OBJUSE
 
      ****************************************************************
      *                                                              *
      * API:  QSYLOBJP                                               *
      * Format:  OBJP0200                                            *
      *                                                              *
      ****************************************************************
       01 OBJP0200-INPUT.
           05 I-USER-NAME                    PIC X(10).

           05 I-RETRIEVE-TYPE                PIC X(10).
           05 I-CONTINUE-VALUE               PIC X(20).
 
       01 OBJP0200-HEADER.
           05 H-USER-NAME                    PIC X(10).
           05 H-CONTINUE-VALUE               PIC X(20).
 
       01 OBJP0200-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-OBJECT-IN-USE                PIC X(1).
           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  40 CNTVAL
     IHEADER      DS
     I                                        1  10 HUSRNM

     I                                       11  30 HCNTVL
     ILIST        DS
     I                                        1  10 OBNMLB
     I                                        1  10 OBJNAM
     I                                       11  20 OBJLIB
     I                                       21  30 OBJTYP
     I                                       31  31 OBJUSE
     I                                       32  41 OBJATR
     I                                       42  91 OBJTXT