)PANEL KEYLIST(ISRSNAB,ISR)

/* Panel **************************************************************/
/* Name   CHALLP                                                      */
/* Short  CHange ALL agains all/some member of a PDS                  */
/* Type   PANEL                                                       */
/* Author Norbert Haas                                                */
/* Date   03.05.2002                                                  */
/* VER    V01.00                                                      */
/* ********************************************************************/

)ATTR DEFAULT(%+_)
  % TYPE(ET)                                       /* Emphasized Text */
  } TYPE(CH)
  { TYPE(FP)                                          /* Field Prompt */
  í TYPE(RP)
  _ TYPE(NEF) CAPS(ON)                          /* Normal Entry Field */
  | TYPE(NEF) JUST(RIGHT)
  + TYPE(NT)                                           /* Normal Text */
  \ TYPE(PIN)                                    /* Panel Instruction */
  š AREA(SCRL) EXTEND(ON)                               /* Scrollarea */
)BODY EXPAND(``) WINDOW(60,22)
+
+COMMAND ===>_ZCMD
šSCROLLI                                                   š
)AREA SCROLLI
\You are going to change a string into another string in all
\or some members of a PDS.
+
\You have to enter the name of the PDS and the member (* for
\all members), the find- and change-string and some options.
+
+
}Datasetinformation+
+ {Dataset   . . ._dsn                         +
+ {Member  . . . ._pat     +          í("*" for all Member)+
+
+
}Strings:+
+ {Findstring  . ._fstring                                 +
+ {Changestring  ._cstring                                 +
+
+
}Options:+
+ _Z+                                     íwith UCase/LCase+
+ _Z+                   í1=Chars, 2=Prefix, 3=Suffix,4=Word+
+ |from  |to    +                         ífrom / to colums+
+
+
+
+
)INIT
   .ZVARS = 'context,position'
   &ZWINTTL = ' Change All Tool '
   .CURSOR = &CURSOR
   .CSRPOS = &CSRPOS
)PROC
   &ZWINTTL = ''
   VER (&dsn,NB)
   VER (&pat,NB)
   VER (&fstring,NB)
   VER (&cstring,NB)
   IF (&context NE &Z) &context = '/'
   VER (&position,NB,LIST,1,2,3,4)
   VER (&from,NB,RANGE,1,999999)
   VER (&to,NB,RANGE,1,999999)
)END