/******************************************************************/
/* CLIST EXPERT - THIS CLIST SCANS THE CAS EXPERT LIST AND        */
/*               RETURNS THE LINE CONTAINING THE STRING SELECTED. */
/*               THE GROUP EXPERT LIST IS IN SLSS.WORK.LIST       */
/*               IN MEMBER "EXPERT".                              */
/******************************************************************/
PROC 1 NAME_TO_SEARCH_FOR +
       COMMON('''SLSS.WORK.LIST(EXPERT)''')
/**** SET MESSAGE DISPLAY ON/OFF BASED ON THE DEBUG SWITCH ***/
ISPEXEC VGET (DBGSWTCH) PROFILE
IF &DBGSWTCH = &STR(ON) THEN CONTROL MSG LIST CONLIST SYMLIST NOFLUSH
ELSE  CONTROL NOMSG NOLIST NOFLUSH NOPROMPT


IF &NAME_TO_SEARCH_FOR = &STR(HELP) THEN GOTO HELPSEC

IF &NAME_TO_SEARCH_FOR = THEN +
    DO
        WRITE ENTER A STRING TO SEARCH FOR IN THE EXPERT LIST.
        WRITENR STRING ==>
        READ NAME_TO_SEARCH_FOR
        IF &NAME_TO_SEARCH_FOR = THEN +
            DO
                SET ZEDLMSG = &STR(NO STRING ENTERED *** )+
                              &STR(PROCESSING TERMINATED)
                ISPEXEC SETMSG MSG(UTLZ001)
                EXIT
            END
    END

CLEAR
WRITE *** SCANNING EXPERT LISTS FOR &NAME_TO_SEARCH_FOR ***

IF &SYSINDEX(&STR('),&STR(&COMMON)) = 0 AND +
   &STR(&COMMON) >    THEN +
    SET COMMON = &STR('&COMMON')

IF &SYSDSN('&SYSUID..EXPERT') = OK THEN +
    SET EXPERTDSN = &STR(&COMMON '&SYSUID..EXPERT')
ELSE  +
    SET EXPERTDSN = &STR(&COMMON)

IF &STR(&EXPERTDSN) =    THEN +
    DO
        SET ZEDLMSG = &STR(*** NO EXPERT DATASETS TO SEARCH ***)
        ISPEXEC SETMSG MSG(UTLZ001)
        EXIT
    END

FREE DDNAME(EXPERT)
ALLOCATE DDNAME(EXPERT) +
         DSNAME(&EXPERTDSN) +
         SHR KEEP

OPENFILE EXPERT INPUT
SET EOF = NO

ERROR DO
    IF &LASTCC = 400 THEN +
        DO
            SET EOF = YES
            RETURN
         END
    ELSE +
        DO
            CLEAR
            WRITE
            WRITE *** UNEXPECTED ERROR IN CLIST EXPERT ***
            WRITE
            WRITE *** RETURN CODE WAS : &LASTCC ***
            WRITE
            WRITE *** PROGRAM VARIABLES ARE :
            WRITE A = &A
            WRITE B = &B
            WRITE EOF = &EOF
            WRITE EXPERT = &EXPERT
            CLOSFILE EXPERT
            FREE DDNAME(EXPERT)
            EXIT
        END
END

GETFILE EXPERT

SET A = 0

/**********************************************************************
/* WRITE MATCHING LINES FROM THE EXPERT DATASET(S).                   *
/**********************************************************************
DO WHILE &EOF = NO
    IF &SYSINDEX(&STR(&NAME_TO_SEARCH_FOR),&STR(&EXPERT)) > 0 AND +
       &SUBSTR(1:1,&STR(&EXPERT)) ¬= &STR(*) THEN +
        DO
            WRITE &EXPERT
            SET A = &A + 1
        END
    GETFILE EXPERT
END

ERROR OFF

CLOSFILE EXPERT
FREE DDNAME(EXPERT)

/**********************************************************************
/* WRITE MATCHING LINES FROM THE EXPERT LINES IN THE PROJECT          *
/* TABLE.                                                             *
/**********************************************************************
/* ISPEXEC CONTROL ERRORS RETURN
/* ISPEXEC TBOPEN PROJECT NOWRITE
/* IF &LASTCC > 4 THEN GOTO CONTINUE
/*
/* ISPEXEC TBTOP PROJECT
/* ISPEXEC TBSKIP PROJECT NUMBER(1)
/* SET SAVECC = &LASTCC
/*
/* DO WHILE &SAVECC = 0
/*     IF (&SYSINDEX(&STR(&NAME),&STR(&PRJPARM)) > 0 OR +
/*         &SYSINDEX(&STR(&NAME),&STR(&PRJQUAL)) > 0) AND +
/*         &STR(&PRJELEM) = &STR(EXPERT #) THEN +
/*         DO
/*             SET A = &A + 1
/*             IF &TESTPROD = T THEN +
/*                 WRITE DSEC STAFF EXT : &PRJQUAL ===== &PRJPARM
/*             ELSE +
/*                 WRITE ACCOUNT STAFF EXT : &PRJQUAL ===== &PRJPARM
/*         END
/*     ISPEXEC TBSKIP PROJECT NUMBER(1)
/*     SET SAVECC = &LASTCC
/* END
/*
/* ISPEXEC TBEND PROJECT

CONTINUE: +
IF &A = 0 THEN +
    WRITE *** NO EXPERT INFO FOUND FOR &NAME_TO_SEARCH_FOR ***

EXIT

HELPSEC: +
CLEAR
WRITE *** HELP FOR THE EXPERT CLIST ***
WRITE
WRITE THIS CLIST ALLOWS THE USER TO LIST EXPERT INFORMATION BY
WRITE PASSING A STRING TO THE CLIST AND THE CLIST WILL SEARCH THE
WRITE PROJECT EXPERT LIST AND THE INDIVIDUALS PHONE LIST (IF ONE EXISTS).
WRITE
WRITE BASIC SYNTAX :
WRITE
WRITE COMMAND ===> TSO EXPERT
WRITE
WRITE WITH THIS SYNTAX, YOU WILL BE PROMPTED FOR A STRING TO SEARCH FOR.
WRITE
WRITE TO PASS THE INFORMATION AT EXECUTION TIME :
WRITE
WRITE COMMAND ===> TSO EXPERT SMITH
WRITE
WRITE THIS WILL DISPLAY ANY LINES CONTAINING THE STRING "SMITH".
WRITE
WRITE YOU COULD ALSO USE A STRING OF A NUMBER OR PARTIAL NAME, OR A
WRITE DESCRIPTION THAT IS STORED IN THE EXPERT LIST (E.G. "SUPPORT")
WRITE
WRITE SPECIAL NOTES : THE PROJECT EXPERT LIST CONSISTS OF THE FOLLOWING
WRITE                 DATASET(S):
WRITE
WRITE &STR(&COMMON)
WRITE
WRITE                 IF YOU WANT A PERSONAL LIST, YOU MUST CREATE A
WRITE                 DATASET CALLED :
WRITE                              '&SYSUID..EXPERT'
WRITE                 THIS DATASET SHOULD BE AN 80 BYTE RECORD TO
WRITE                 DISPLAY THE INFORMATION PROPERLY.
WRITE
WRITE                 IN YOUR PERSONAL EXPERT LIST DATASET, AN "*       "
WRITE                 IN THE FIRST COLUMN WILL INDICATE A "COMMENT"
WRITE                 LINE.  COMMENT LINES ARE NOT SCANNED FOR THE
WRITE                 SEARCH STRING.  THIS CAN HELP YOU IN THE
WRITE                 MAINTENANCE OF YOUR PERSONAL EXPERT LIST BY
WRITE                 ENABLING YOU TO "SECTION" YOUR EXPERT INTO
WRITE                 DIFFERENT GROUPS.
WRITE
WRITE *** END OF HELP *** NO PROCESSING PERFORMED ***

EXIT
            

 The EXPERT utility scans SLSS.WORK.LIST(EXPERT) and displays all the lines in
 which the argument string passed at invocation time is found.

 SLSS.WORK.LIST(EXPERT) contains a list of who is an "expert" or considers
 themselves knowledgeable about a specific technical dicipline or specific type
 of hardware/software.

 What the EXPERT utility allows you to do is to type in the name of a given
 technical dicipline or software (e.g. CICS, JCL, COBOL, TSO, etc.), and a list
 of those people who consider themselves at least knowledgeable about that
 subject area will be displayed to you.  You could also use EXPERT in a
 "converse" way and type in a name (e.g. Nuechterlein) and find out what that
 person is an expert in.

 You may also maintain your own personal expert list in addition to the common
 one if you wish.  If you have a sequential 80 byte dataset named
 yourtsouserid.EXPERT, the EXPERT utility will scan it as well as the one in
 SLSS.WORK.LIST(EXPERT).

 It should also be noted that EXPERT will ignore lines with a "*" in column one
 in both the common and personal expert lists.  This allows for "commenting" or
 "annotateing" of these lists as you desire.

 To invoke EXPERT, you can type TSO EXPERT xxxxxx (where "xxxxxx" is the subject
 matter you're interested in) at any ISPF command line and press ENTER.  That's
 it.