Figure 3A - Command PrtObjAut

/*  ===============================================================  */
/*  =  Command....... PrtObjAut                                   =  */
/*  =  Source type... CMD                                         =  */
/*  =  Description... Print Object Authorities                    =  */
/*  =                                                             =  */
/*  =  CPP........... PrtObjAut1                                  =  */
/*  ===============================================================  */

             Cmd        Prompt( 'Print Object Authorities' )

             Parm       Kwd( Obj )                                    +
                        Type( QualObj )                               +
                        Min( 1 )                                      +
                        Prompt( 'Object' )

             Parm       Kwd( ObjType )                                +
                        Type( *Char )                                 +
                        Len( 8 )                                      +
                        Rstd( &Yes )                                  +
                        Dft( *All )                                   +
                        Values(                                       +
                                *AlrTbl     *AutL       *BndDir       +
                                *CfgL       *ChtFmt     *CLD          +
                                *Cls        *Cmd        *CnnL         +
                                *CoSD       *CRG        *CRQD         +
                                *CSI        *CSPMap     *CSPTbl       +
                                *CtlD       *DevD       *Doc          +
                                *DtaAra     *DtaDct     *DtaQ         +
                                *EdtD       *ExitRg     *FCT          +
                                *File       *Flr        *FntRsc       +
                                *FntTbl     *FormDf     *Ftr          +
                                *GSS        *IPXD       *JobD         +
                                *JobQ       *JobScd     *Jrn          +
                                *JrnRcv     *Lib        *LinD         +
                                *Locale     *MedDfn     *Menu         +
                                *MgtCol     *ModD       *Module       +
                                *MsgF       *MsgQ       *M36          +
                                *M36Cfg     *NodGrp     *NodL         +
                                *NtBD       *NwID       *NwSD         +
                                *OutQ       *Ovl        *PagDfn       +
                                *PagSeg     *PDG        *Pgm          +
                                *PnlGrp     *PrdAvl     *PrdDfn       +
                                *PrdLod     *PSFCfg     *QMForm       +
                                *QMQry      *QryDfn     *RCT          +
                                *SbsD       *SchIdx     *SpADct       +
                                *SQLPkg     *SQLUDT     *SrvPgm       +
                                *SsnD       *SrvStg     *S36          +
                                *Tbl        *UsrIdx     *UsrPrf       +
                                *UsrQ       *UsrSpc     *VldL         +
                                *WsCst                                +
                              )                                       +
                        SpcVal( ( *All ) )                            +
                        Prompt( 'Object type' )

QualObj:     Qual       Type( *Generic )                              +
                        Len( 10 )                                     +
                        SpcVal( ( *All ) )
             Qual       Type( *Name )                                 +
                        Len( 10 )                                     +
                        Dft( *LibL )                                  +
                        SpcVal(                                       +
                                ( *LibL    )                          +
                                ( *UsrLibL )                          +
                                ( *CurLib  )                          +
                                ( *All )                              +
                                ( *AllUsr )                           +
                              )                                       +
                        Prompt( 'Library' )