Janosch's Prtozedursammlung

Name

EditDS

Syntax

rc = EditDs( dsn ) [;]

Beschreibung

Interne REXX-Prozedur zum Anzeigen einer Datei im Editor direkt aus einer anderen REXX-Prozedur.

Aufrufparameter

Parameter

Beschreibung

dsn

Vollqualifizierter Dateiname einer sequentielen Datei (PS) oder eines Members einer Bibliothek (PO- / PDS-Datei).

Standardwerte

keine

Rückgabewerte

Bedeutung

Erfolgreiches Editieren.

Beenden ohne Änderungen

Datei nicht gefunden.

Bemerkungen

Die Funktion liefert Return Codes der ISPF-Funktion EDIT zurück.

Durch Austauschen des EDIT-Befehls in der folgenden Zeile

Address Ispexec "EDIT DATASET("dsn") MACRO(RES)"

mit BROWSE bzw. mit VIEW, wird das Editieren durch bloße Anzeige bzw. durch die Anzeige im View-Modus (Editieren ohne Speicherung) ersetzt.

Sourcecode

/*=============( Edit dataset )=============*/
EditDS: Procedure
Parse Arg dsn

resp = SysDSN( dsn )
Address Ispexec
"CONTROL ERRORS RETURN"

"EDIT DATASET("dsn") MACRO(RES)"
erc = rc
If rc > 0 Then Say "RC=" rc resp dsn

"CONTROL ERRORS CANCEL"
Address
 
Return erc
/*** End EditDS ***/

Beispiel 1

rc = EditDs( "'USER01.PRIVATE.EXEC(REXX01)'" )

Ergebnis 1

0   /* mögliche Wert */

Beispiel 2

dsn = "'USER01.PRIVATE.EXEC(REXX01)'"
rc = EditDs( dsn )

Ergebnis 2

Your privacy: This web site has no cookies, no advertising and does not provide access data to anyone for any reason.
Copyright © Janosch R. Kowalczyk 1999, 2010. All rights reserved.
Most recent revision on 25 Feb 2010 (56) - 13:22:11.