)PANEL KEYLIST(ISRSNAB,ISR)
)ATTR DEFAULT(%+_)
   % TYPE(ET)                                      /* Emphasized Text */
   + TYPE(NT)                                          /* Normal Text */
   _ TYPE(NEF) CAPS(ON)                         /* Normal Entry Field */
   / TYPE(VOI)                         /* Variable Output Information */
   \ TYPE(OUTPUT) COLOR(RED) CAPS(OFF) JUST(ASIS)     /* Warning Text */
   { TYPE(WT)                                         /* Warning Text */
   $ TYPE(FP)                                         /* Field Prompt */
   < TYPE(CEF) PADC(USER)
   | TYPE(SAC)
   } TYPE(TEXT) SKIP(ON)
)BODY WINDOW(63,20)
+
$Command ===>_ZCMD                                            +
+
+
$DSN (old) . . .:/adsn                                        +
+
$DSN (new) . . . _ndsn                                        +
+                 ----:----1----:----2----:----3----:----4----
+
+
+
$Option  . . . . <Z+|1. Create and copy content+
+                   |2. Create and copy the follwoing lines:{*+
+        $from line . ._vonzeil1$to line . ._biszeil1+
+    $and from line . ._vonzeil2$to line . ._biszeil2+
+    $and from line . ._vonzeil3$to line . ._biszeil3+
+                   |3. Create only+
+
+                   {*+%Only available with PS-Datasets+
+
)INIT
  .ZVARS   = 'datopt'
  .cursor  = 'ndsn'
  &zwinttl = 'SAVE'
  &datopt  = '1'
)PROC
  VER(&datopt,NB)
  VER(&datopt,LIST,1,2,3)
  &zwinttl = ''
)END