-
Nun ja, im COBOL-Handbch sind da ein paar Beispiele:
Example 3: This example illustrates how part of a data-name can be replaced if
certain conventions are followed when creating the library text. In this case, the
library text CONTACT contains the following code:
01 (PRFX)-RECORD.
03 (PRFX)-NAME PIC X(24).
03 (PRFX)-PHONE PIC X(10).
03 (PRFX)-EXTN PIC X(4).
The programmer can copy this library text, replacing the text word PRFX and its
bounding parentheses by a prefix for the data-names. For example, the following
COPY statement can be written in the Data Division of a program:
COPY CONTACT REPLACING ==(PRFX)== BY ==CUST==.
When the library text is copied, the resulting text appears as if it had been written
as follows:
01 CUST-RECORD.
03 CUST-NAME PIC X(24).
03 CUST-PHONE PIC X(10).
03 CUST-EXTN PIC X(4).
Die Klammern sind nur ein Beispiel, ein REPLACING ==AUF== by ==XAUF== sollte also alle Felder die mit AUF beginnen mit XAUF ersetzen.
Nun ist das Beispiel leider mit Bindestrich, was die Vermutung nahelegt das hier immer komplette Worte gemeint sind. Also eine Datenbankfeld kann demnach so nicht umbenannt werden.
Allerdings frage ich mich wofür du das brauchst, da jedes Feld mit "NAME OF STRUCT" qualifiziert werden und somit auch einfach "MOVE CORR" verwendet werden kann.
Ein REPLACING empfinde ich da nun als nicht nötig.
Übrigens kann man mit "NAME OF STRUCT" auch Ebenen überspringen solange ein eindeutiger Name daraus resultiert.
Similar Threads
-
By KingofKning in forum NEWSboard Programmierung
Antworten: 5
Letzter Beitrag: 26-01-17, 13:16
-
By nico1964 in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 08-01-16, 10:30
-
By KingofKning in forum NEWSboard Programmierung
Antworten: 11
Letzter Beitrag: 19-02-15, 09:10
-
By nico1964 in forum IBM i Hauptforum
Antworten: 21
Letzter Beitrag: 27-12-14, 11:58
-
By Claudia Lange in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 23-07-02, 11:32
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks