/* rexx ---- NETWORK Phone Directory -- find lastname*/ /* EDIT G(0) FAX NET NET04 B ALL NET02A OLD$USERS WHOGOT PROFS*/ /* BW PHONE */ arg token whogot='';profs='';g='';cmdvar='Find '' |'''; parse var token left " G(" G ") " right token = left || ' ' || right token = " "TOKEN" " edit = process('EDIT'); token = substr(token,2); address ISPEXEC 'VGET (ZDEL) PROFILE' if token /= "" then do i=verify(token,'0123456789') if i = 1 then cmdvar = cmdvar||zdel||"FIND 14" token else CMDVAR = cmdvar||zdel||"FIND "token cmdvar = cmdvar||zdel||"DOWN 1" end cmdvar=cmdvar||zdel||"cols"||zdel||"CURSOR" address "TSO" /* provided by David McRitchie 1985/04/08, "The REXX Macros Toolbox" */ /* (default) -- PHO.GENERAL.GENERAL.ZZ2B0701(0) */ /* PURPOSE: quick access to list of formatted phone directory */ /* -------------- other opitions ---------------------------------*/ /* EDIT -- to use edit instead of browse */ /* WHOGOT -- invoke WHOGOT before edit/browse, N/A with G(*), FAX */ /* -------------------------------------------------------------- */ /* formerly used tech.info.text(users) */ GDSN = "IS03.public.list.JCLPCALL" GDSN = "pho.internal.library.iv2e5602" VSTSRVTI = GDSN OK = sysdsn("'"gdsn"'") if ok \= "OK" then do say gdsn "---" OK say gdsn 'does not exist must be recreated via' say ' jcl in i142.phone.text(jclpcall)' say ' contact David McRitchie, ' EXIT 0 END if edit = "EDIT" then do Address "TSO" "$EDIT '"gdsn"'" exit 0 end /*Address "ISPEXEC" , "VPUT (VSTSRVTI,SYSBROX2,SYSBROX3) SHARED" */ Address "ISPEXEC" "CONTROL NONDISPL ENTER" SYSBROX2='Network ', ||' Bldg/ Loca-' SYSBROX3=' Number Name (col 14-56 with DISPLAY NOCC) ', ||' Unit Room tion' address ISPEXEC 'VGET (ZCHARCNL) PROFILE' CHARCNL = zcharcnl if zcharcnl = "CC" then do zcharcnl = "NOCC" address ISPEXEC 'VPUT (ZCHARCNL) PROFILE' end Address "ISPEXEC" , "BROWSE DATASET('"GDSN"') PANEL(SYSBRNET)" if charcnl \= zcharcnl then do zcharcnl = charcnl address ISPEXEC 'Vput (ZCHARCNL) PROFILE' end /* ---------- */ return /* ---------- */ Process: procedure expose token arg subtoken i = index(token,' '||subtoken||' ') if i=0 then return '' tokenx = substr(token,1,I) || substr(token,I+2+length(subtoken)) token = tokenx return subtoken ProcessB: procedure expose token arg subtoken x = process(subtoken) if x /='' then x = ' '||x return x