)ATTR
 _ TYPE(INPUT) COLOR(BLUE)
 # TYPE(INPUT) COLOR(RED) PAD('_')
 ^ TYPE(INPUT) COLOR(TURQ) PAD('_')
 + TYPE(TEXT) COLOR(BLUE)
 * TYPE(TEXT) COLOR(GREEN) HILITE(BLINK)
 ! TYPE(TEXT) COLOR(GREEN) INTENS(HIGH)
 § TYPE(TEXT) COLOR(GREEN) HILITE(BLINK)
 ? TYPE(TEXT) COLOR(WHITE)
 ä TYPE(TEXT) COLOR(RED)
 ö TYPE(TEXT) COLOR(YELLOW)
 ü TYPE(INPUT) COLOR(YELLOW) HILITE(BLINK)
 % TYPE(TEXT) COLOR(TURQ) INTENS(HIGH)
)BODY EXPAND(ßß)
+ ß-ß%Beheben Sx37 in BMP'Sß-ß ORT     +&GRZORT  +
?COMMAND ===>_ZCMD                                          +BENUTZER &ZUSER
ä ENTER DATA-SET-NAME:                                      +UHRZEIT  &ZTIME
 #DATEI                                                           +
+
% MULTIPLICATOR: ^F+         ä Job-Class: #C+
+
ö SAVE DATA-SET: !&SAVEDSN
+-----------------------------------------------------------------------
+ RETURN-CODE ===> %&REASON
+ RECFM       ===> %&RECFM
+ LRECL       ===> %&LRECL
+ BLKSIZE     ===> %&BLKSIZE
+ ALLOCIERT   ===> %&ALL
+ PRIMARY     ===> %&PRI
+ SECONDARY   ===> %&SEC
+ CYL/BLK/TRK ===> %&CYL
+
+ NEUE GROESSE PRIMARY ===> üNEU          !Bei Bedarf
+            SECONDARY ===> üB1           !bitte aendern
+
! MELDUNGEN:§&MSG
)INIT
    .CURSOR = DATEI
)PROC
VER (&DATEI,NB)
VER (&F,NB)
VER (&F,RANGE,2,9)
)END