QSYCUSRS & QSY. Check User Special Authorities 5

 

 

/*-------------------------------------------------------------------*/
/*                                                                   */
/*  Compile options:                                                 */
/*                                                                   */
/*    CrtCmd     Cmd( OVRGRPPRF )                                    */
/*               Pgm( CBX128 )                                       */
/*               SrcMbr( CBX128X )                                   */
/*               VldCkr( CBX128V )                                   */
/*               Allow( *INTERACT )                                  */
/*               HlpPnlGrp( CBX128H )                                */
/*               HlpId( *CMD )                                       */
/*               Aut( *EXCLUDE )                                     */
/*                                                                   */
/*                                                                   */
/*  Authorize user profiles to command:                              */
/*                                                                   */
/*    GrtObjAut Obj( OVRGRPPRF )                                     */
/*              ObjType( *CMD )                                      */
/*              User( user profile )                                 */
/*              Aut( *USE )                                          */
/*                                                                   */
/*  - Or use the EDTOBJAUT command:                                  */
/*                                                                   */
/*    EdtObjAut Obj( OVRGRPPRF )                                     */
/*              ObjType( *CMD )                                      */
/*                                                                   */
/*                                                                   */
/*-------------------------------------------------------------------*/
      Cmd        Prompt( 'Override Group Profile' )

      PARM       GRPPRF     *Sname      10            +
                 Min( 1 )                             +
                 Vary( *YES *INT2 )                   +
                 Expr( *YES )                         +
                 Prompt( 'Group profile' )

      PARM       AUTCOD     *Char       10            +
                 Min( 1 )                             +
                 Expr( *YES )                         +
                 Prompt( 'Authorization code' )

      PARM       REASON     *Char      256            +
                 Min( 1 )                             +
                 Vary( *YES *INT2 )                   +
                 Expr( *YES )                         +
                 Case( *MIXED )                      +
                 Prompt( 'Reason' )

/*-------------------------------------------------------------------*/
/*                                                                   */
/*  Compile options:                                                 */
/*                                                                   */
/*    CrtCmd     Cmd( ADDPRFAUT )                                    */
/*               Pgm( CBX1291 )                                      */
/*               SrcMbr( CBX1291X )                                  */
/*               VldCkr( CBX1291V )                                  */
/*               Allow( *INTERACT )                                  */
/*               HlpPnlGrp( CBX1291H )                               */
/*               HlpId( *CMD )                                       */
/*               Aut( *EXCLUDE )                                     */
/*                                                                   */
/*                                                                   */
/*  Authorize user profiles to command:                              */
/*                                                                   */
/*    GrtObjAut Obj( ADDPRFAUT )                                     */
/*              ObjType( *CMD )                                      */
/*              User(  )                               */
/*              Aut( *USE )                                          */
/*                                                                   */
/*  - Or use the EDTOBJAUT command:                                  */
/*                                                                   */
/*    EdtObjAut Obj( ADDPRFAUT )                                     */
/*              ObjType( *CMD )                                      */
/*                                                                   */
/*                                                                   */
/*-------------------------------------------------------------------*/
      Cmd        Prompt( 'Add profile authorization code' )

      Parm       USRPRF     *Sname      10            +
                 Min( 1 )                             +
                 Expr( *YES )                         +
                 Prompt( 'User profile' )

      Parm       GRPPRF     *Sname      10            +
                 Min( 1 )                             +
                 Expr( *YES )                         +
                 Prompt( 'Group profile' )

      Parm       AUTCOD     *Char       10            +
                 Min( 1 )                             +
                 Expr( *YES )                         +
                 Prompt( 'Authorization code' )

      Parm       REASON     *Char      256            +
                 Min( 1 )                             +
                 Vary( *YES *INT2 )                   +
                 Expr( *YES )                         +
                 Case( *MIXED )                       +
                 Prompt( 'Reason' )

      Parm       VLDTIM     *Int2                     +
                 Dft( 60 )                            +
                 Range( 1  1440 )                     +
                 Expr( *YES )                         +
                 Choice( 'Minutes' )                  +
                 Prompt( 'Valid time' )

      Parm       RPLAUT     *Char        1            +
                 Rstd( *YES )                         +
                 Dft( *NO )                           +
                 SpcVal(( *NO   N )                   +
                        ( *YES  Y ))                  +
                 Expr( *YES )                         +
                 Prompt( 'Replace authorization code' )