/*------------------------------------------------------------------*/
/*    Programmers Group & Management Resource    Copyright  2003    */
/*                                                                  */
/*                             \\\\\\\                              */
/*                            ( o   o )                             */
/*------------------------oOO----(_)----OOo-------------------------*/
/*                                                                  */
/*  System name  . . . :   IT                                       */
/*  Command name . . . :   CHKIFS                                   */
/*  Text . . . . . . . :   Check IFS Existense                      */
/*                                                                  */
/*                     ooooO              Ooooo                     */
/*                     (    )             (    )                    */
/*----------------------(   )-------------(   )---------------------*/
/*                       (_)               (_)                      */
/*                                                                  */
/*  Description. . . . :   This tool checks the STMF object to      */
/*                         determine if it exist and the user is    */
/*                         authorized to the object.                */
/*                                                                  */
/*                         Command parameters:                      */
/*                                                                  */
/*                         ALLOW((*ALL)                             */
/*                                                                  */
/*                         CPP: CHKIFSR                             */
/*                                                                  */
/*------------------------------------------------------------------*/
/*                                                                  */
/*  Modification Log:                                               */
/*                                                                  */
/*           Ticket                                                 */
/* Date    No.   Programmer/Description                         */
/*                  Alex Nubla                                      */
/*                  - creation                                      */
/*                                                                  */
/*------------------------------------------------------------------*/
             cmd        ('Check IFS')

/* -------------------------------------------- */
/*  Path name of the object                     */
/* -------------------------------------------- */
             parm       obj       *pname       500              +
                                  min(1)                        +
                                  expr(*yes)                    +
                                  prompt('Object')
