/ REXX /

Parse Upper Arg OPT InfoSup
if OPT = '' then do
'ISREDIT MACRO (PARAM1) NOPROCESS'
Parse Upper var PARAM1 OPT InfoSup
end
Info.0 = Words(InfoSup)
If Info.0 > 1 Then ,
Parse Upper Var InfoSup Info.1 " " Info.2 " " Info.3 " " Info.4
else Info.1 = InfoSup

Address ISPEXEC
"CONTROL ERRORS RETURN"
ZEDSMSG = ""
ZEDLMSG = ""
MSG000b = " "
EDIT = "BROWSE"
Panel = "UTSO01"

If OPT = "H" ! OPT = "AIDE" Then do
Help:
MSG0001 = "Option U (Utilities),"
MSG0002 = "ou 1,2,3,4,5,6,8,9,10,11,12,13,14, "
MSG0003 = "Option S(SYSVIEW) "
MSG0004 = "Option F(FileAid), DCF(DCF) ET DT(Dialog Test), "
MSG0005 = "Option B(Browse), E(Edit), PDS(PDSman)... "
MSG0006 = "Option REC(RECovery), INITREC(INIT RECovery). "
ZEDLMSG = ZEDLMSG!!MSG0001!!MSG0002!!MSG000b
ZEDLMSG = ZEDLMSG!!MSG0003!!MSG000b!!MSG0004!!MSG000b
ZEDLMSG = ZEDLMSG!!MSG0005!!MSG000b
Address ISPEXEC "SETMSG MSG(ISRZ000)"
exit
End

Parm = ""
Applid = "()"
do i=1 to Info.0
Select
When (Info.i = "TEST" ! Info.i = "TRACE") Then Trace I
When (Info.i = "H") Then PARM = "H"
When (Info.i = "I") Then PARM = "I"
When (Info.i = "O") Then PARM = "O"
When (Info.i = "DA") Then PARM = "DA OJOB"
When (Info.i = "LOG") Then PARM = "LOG"
When (substr(Info.i,1,2) = "A(") ,
Then Applid = substr(Info.I,2,8)
When (substr(Info.i,1,2) = "M(") ,
Then Membre = substr(Info.I,2,8)
When (substr(Info.i,1,1) = "E") Then Do
EDIT = "EDIT"
Panel = "UTSO02"
End
Otherwise Nop
End
End

IF DataType(OPT) = NUM & ,
OPT ^= 7 & ,
OPT ^> 15 ,
Then "SELECT PANEL(ISRUTIL) OPT("OPT")"
ELSE DO
IF DataType(OPT) = NUM Then OPT = "U"
SELECT
WHEN OPT="S" Then do
"SELECT CMD(GSVXSPF ) NEWAPPL(GSVX) NOCHECK MODE(FSCR)"
end

     WHEN OPT="B" Then "SELECT PGM(ISRBRO) PARM(ISRBRO01)"

     WHEN OPT="E" Then "SELECT PGM(ISREDIT) PARM(P,ISREDM01)"

     WHEN OPT="U" Then "SELECT PANEL(ISRUTIL)"

     WHEN OPT="PRIM" Then "SELECT PANEL(ISRàPRIM)"

     WHEN OPT="MSTR" Then "SELECT PANEL(ISPàMSTR)"

WHEN OPT="V" Then "EDIT DATASET('"userid().UTSO"') PANEL(UTSO02)"

     WHEN OPT="W" THEN DO
           "VGET (ZSSFLDS)"
           ZODSN = ZSSFLDS
           ""EDIT" DATASET("ZODSN") PANEL("PANEL")"
         END
     WHEN OPT="Y" THEN DO
           "VGET (SCEOTFL)"
           ZODSN = SCEOTFL
           ""EDIT" DATASET("ZODSN") PANEL("PANEL")"
         END

     WHEN OPT="G" Then Do
           M = Strip(Membre)
           ZODSN = "'P893LB.SOURCE.GENPGM"M"'"
           ""EDIT" DATASET("ZODSN") PANEL("Panel")"
         End

     WHEN OPT="DT" Then DO
         "SELECT PGM(ISPYXDR) PARM"Applid" NOCHECK"
         End

     WHEN OPT="INITREC" Then DO
         "EDREC INIT"
         If RC = 4 Then Say " ALREADY EXISTS "
         End

     WHEN OPT="REC" Then DO
         "SELECT PGM(ISREDIT) PARM(P,ISREDM01) NEWAPPL"Applid
         End

     WHEN OPT="PDS" Then Address TSO "%PDSM£C18"
     WHEN OPT="P"   Then Address TSO "%PDSALC1"
     WHEN OPT="P7"  Then Address TSO "%PDSMAN OPT(7)"
     WHEN OPT="P13" Then Address TSO "%PDSMAN OPT(13)"

     WHEN OPT="DCF" Then "SELECT PGM(ISRFPR) PARM((ISRFP09) 9) NEWPOOL"

     WHEN OPT="F" Then "SELECT CMD(%FLAALC) NOCHECK"

     WHEN OPT="DB2" Then "SELECT CMD(%DB2ALC) NOCHECK"

     OtherWise Do
          MSG0err = "Option Invalide"
          ZEDLMSG =  ZEDLMSG!!MSG0err!!MSG000b
          Signal Help

     End
   End
 End