-
ACCEPT I-O FEEDBACK
Wer kann mir bitte ein Beispiel geben, wie man in einem Cobol-Programm ACCEPT I-O FEEDBACK anwendet.
Danke und Gruss
Reno Lurati
-
Hallo Reno,
vielleicht hilft dieser Link weiter:
http://archive.midrange.com/cobol400.../msg00018.html
Gruß
Ralle
-
oder dieser:
http://www.mcpressonline.com/mc/.5bfa461a!sectionID=.5bfbaea8
-
Am besten schaust du in die COBOL-Handbücher:
http://publib.boulder.ibm.com/iserie...rzahgcobol.htm
In den PDF-Dateien findest du alles was du brauchst über I-O-FEEDBACK und OPEN-FEEDBACK.
-
I-O-Feedback Beispiel - Cursor-Pos vom Bildschirm ermitteln
Hallo Reno Lurati
BEISPIEL - BILDSCHIRM - Ermittlung Zeile/Spalte von CURSOR
======================
ENVIRONMENT DIVISION.
======================
CONFIGURATION SECTION.
----------------------------------------------
SOURCE-COMPUTER. IBM-AS400.
OBJECT-COMPUTER. IBM-AS400.
SPECIAL-NAMES. I-O-FEEDBACK IS SYSTEM-FEEDBACK
LOCAL-DATA IS LOCAL-DATA-AREA
DECIMAL-POINT IS COMMA.
*
FILE-CONTROL.
*
* +------------------------------------+
* ! BILDSCHIRM !
* +------------------------------------+
SELECT DISPLAY-FILE
ASSIGN TO WORKSTATION-TO100FM
ORGANIZATION IS TRANSACTION
CONTROL-AREA IS TRANSACTION-CONTROL-AREA
FILE STATUS IS TO100FM-STATUS.
SEL ... weitere
==============
DATA DIVISION.
==============
* +----------------------------------
* ! FILES
* +----------------------------------
FILE SECTION.
FD DISPLAY-FILE.
01 DISPLAY-FILE-RECORD.
COPY DD-ALL-FORMATS OF TO100FM.
FD ............. weitere
---------------------------------------------------
WORKING-STORAGE SECTION.
-------------------------------------------------
*
* +------------------------------------+
* ! I-O-FEEDBACK !
* +------------------------------------+
*
01 IO-INFORMATIONEN.
05 GEN-I-O-AREA PIC X(144).
05 IO-FEEDBACK PIC X(100).
05 WS-FEEDBACK REDEFINES IO-FEEDBACK.
10 FILLER PIC X(3).
10 CURSOR-POS.
15 CURSORBIN PIC S9(4) COMP-4.
10 CURSOR-POSR REDEFINES CURSOR-POS.
15 CURSOR-ZEILE PIC X.
15 CURSOR-POSIT PIC X.
10 FILLER PIC X(4).
10 SFL-REL-NBR PIC S9(4) COMP-4.
10 SFL-TOP-NBR PIC S9(4) COMP-4.
10 SFL-NBR-RCD PIC S9(4) COMP-4.
05 DB-FEEDBACK REDEFINES IO-FEEDBACK.
10 FILLER PIC X(30).
10 DB-RRN PIC 9(09) COMP-4.
*
01 HEX-F.
05 FILLER PIC X.
05 HEX-CHAR PIC X.
01 BIN-F REDEFINES HEX-F.
05 BIN-NUM PIC S9(4) COMP-4.
01 WS-ZEIPO.
05 WS-ZEILE PIC 999.
05 WS-POSIT PIC 999.
*
=========================
PROCEDURE DIVISION.
=========================
:
:
*
ZPO-00.
ACCEPT IO-INFORMATIONEN FROM SYSTEM-FEEDBACK
FOR DISPLAY-FILE.
MOVE ZERO TO BIN-NUM.
MOVE CURSOR-ZEILE TO HEX-CHAR.
MOVE BIN-NUM TO WS-ZEILE.
<======== ZEILE
MOVE CURSOR-POSIT TO HEX-CHAR.
MOVE BIN-NUM TO WS-POSIT.
<======= POSITION / SPALTE
ZPO-E.
EXIT.
==========================
Viele Grüsse Alf
-
Danke vielmals LGALF
für Deine so ausführliche Erklärung/Darstellung (Source).
Gruss Reno
-
I-O-Feddback für Printerfile
Hallo LGALF,
vor einigen Jahren :=) hast du hier mit deinem COBOL Wissen geholfen.
Ich habe keine Ahnung von COBOL, ich kann zwar einfache Dinge ändern, aber das war es dann auch schon :=(
In den COBOL-Programmen (OPM), die ich hier ändern muss, wird am Programmende die Printerfile mit CLOSE geschlossen.
Ich müsste, wahrscheinlich ja vor dem CLOSE, mindestens die Info "usrdta" und "Nr. der Spoolfile im Job" haben, damit ich damit ein RPG-Programm aufrufen kann.
Optimal wären jedoch alle Infos zum Job, outq, usrdta und Nr. der Spoolfile :=)
Hast du vielleicht auch ein Beispiel für die Verwendung von I-O-FEEDBACK Informationen für eine Printerfile ???
Ich habe hier eine PDF COBOL Handbuch der IBM, V7R2, aber ich finde keine entsprechende Hilfe, zumal das Handbuch natürlich für ILE-Cobol ist, ich habe aber alte OPM-Cobol-Programme !
Danke im Voraus !
Peet
Zitat von LGALF
Hallo Reno Lurati
BEISPIEL - BILDSCHIRM - Ermittlung Zeile/Spalte von CURSOR
======================
ENVIRONMENT DIVISION.
======================
CONFIGURATION SECTION.
----------------------------------------------
SOURCE-COMPUTER. IBM-AS400.
OBJECT-COMPUTER. IBM-AS400.
SPECIAL-NAMES. I-O-FEEDBACK IS SYSTEM-FEEDBACK
LOCAL-DATA IS LOCAL-DATA-AREA
DECIMAL-POINT IS COMMA.
*
FILE-CONTROL.
*
* +------------------------------------+
* ! BILDSCHIRM !
* +------------------------------------+
SELECT DISPLAY-FILE
ASSIGN TO WORKSTATION-TO100FM
ORGANIZATION IS TRANSACTION
CONTROL-AREA IS TRANSACTION-CONTROL-AREA
FILE STATUS IS TO100FM-STATUS.
SEL ... weitere
==============
DATA DIVISION.
==============
* +----------------------------------
* ! FILES
* +----------------------------------
FILE SECTION.
FD DISPLAY-FILE.
01 DISPLAY-FILE-RECORD.
COPY DD-ALL-FORMATS OF TO100FM.
FD ............. weitere
---------------------------------------------------
WORKING-STORAGE SECTION.
-------------------------------------------------
*
* +------------------------------------+
* ! I-O-FEEDBACK !
* +------------------------------------+
*
01 IO-INFORMATIONEN.
05 GEN-I-O-AREA PIC X(144).
05 IO-FEEDBACK PIC X(100).
05 WS-FEEDBACK REDEFINES IO-FEEDBACK.
10 FILLER PIC X(3).
10 CURSOR-POS.
15 CURSORBIN PIC S9(4) COMP-4.
10 CURSOR-POSR REDEFINES CURSOR-POS.
15 CURSOR-ZEILE PIC X.
15 CURSOR-POSIT PIC X.
10 FILLER PIC X(4).
10 SFL-REL-NBR PIC S9(4) COMP-4.
10 SFL-TOP-NBR PIC S9(4) COMP-4.
10 SFL-NBR-RCD PIC S9(4) COMP-4.
05 DB-FEEDBACK REDEFINES IO-FEEDBACK.
10 FILLER PIC X(30).
10 DB-RRN PIC 9(09) COMP-4.
*
01 HEX-F.
05 FILLER PIC X.
05 HEX-CHAR PIC X.
01 BIN-F REDEFINES HEX-F.
05 BIN-NUM PIC S9(4) COMP-4.
01 WS-ZEIPO.
05 WS-ZEILE PIC 999.
05 WS-POSIT PIC 999.
*
=========================
PROCEDURE DIVISION.
=========================
:
:
*
ZPO-00.
ACCEPT IO-INFORMATIONEN FROM SYSTEM-FEEDBACK
FOR DISPLAY-FILE.
MOVE ZERO TO BIN-NUM.
MOVE CURSOR-ZEILE TO HEX-CHAR.
MOVE BIN-NUM TO WS-ZEILE.
<======== ZEILE
MOVE CURSOR-POSIT TO HEX-CHAR.
MOVE BIN-NUM TO WS-POSIT.
<======= POSITION / SPALTE
ZPO-E.
EXIT.
==========================
Viele Grüsse Alf
-
Und wenn Ihr dann noch die Zauberworte CODE /CODE jeweils in eckigen Klammern benutzt hättet, wäre die Formatierung ganz geblieben.
-
Das schöne an COBOL ist: COBOL bleibt COBOL.
An der I-O-FEEDBACK änderte sich da sowieso nichts.
https://www.ibm.com/support/knowledg...rbal3fedbk.htm
Was du suchts ist eher "Retrieve Spool file attributes".
Das gibts leider nur par API und zum Teil bereits per SQL:
https://www.ibm.com/support/knowledg...vicesspool.htm
Zumindest USER_DATA gibts bereits:
https://www.ibm.com/support/knowledg...triesbasic.htm
Die OUTQ bekommst du allerdings auch wieder nur per API.
Similar Threads
-
By robertki in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 02-02-07, 12:27
-
By Neptun in forum NEWSboard Programmierung
Antworten: 9
Letzter Beitrag: 18-03-05, 11:47
-
By Neptun in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 16-03-05, 16:24
-
By Neptun in forum IBM i Hauptforum
Antworten: 6
Letzter Beitrag: 08-03-05, 22:38
-
By rebe in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 26-09-01, 08:46
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