-
Auch in COBOL ist dies kein Problem:
WORKING-STORAGE SECTION.
77 OVERLAY-01 PIC X(10) VALUE "FORM1"
01 QCMD-PARAM.
05 QCMD-STRING PIC X(256).
05 QCMD-LEN PIC S9(10)V9(5) COMP-3 VALUE 256.
PROCEDURE DIVISION.
:
:
INITIALIZE QCMD-STRING
STRING "OVRPRTF FILE(myfile) TOFILE(xyz) FRONTOVL(" DELIMITED BY SIZE
OVERLAY-01 DELIMITED BY SPACE
")" DELIMITED BY SIZE
INTO QCMD-STRING
CALL "QCMDEXC" USING QCMD-STRING QCMD-LEN
OPEN OUTPUT MYFILE.
:
Mittels des STRING-Befehls kann der OVRPRTF entsprechend dynamisch zusammengebaut werden.
Anschließend kann die Druckdatei geöffnet werden.
Das Hauptproblem in COBOL ist: wenn der OVRPRTF syntaktisch nicht korrekt ist, wird ein CPF-Fehler gemeldet der nicht abgefangen werden kann (anders als in RPG).
Similar Threads
-
By mk in forum NEWSboard Java
Antworten: 8
Letzter Beitrag: 21-04-11, 21:51
-
By Souljumper in forum NEWSboard Programmierung
Antworten: 6
Letzter Beitrag: 13-05-09, 19:50
-
By schatte in forum NEWSboard Programmierung
Antworten: 19
Letzter Beitrag: 10-01-07, 11:32
-
By steven_r in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 19-10-06, 09:12
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