ACCEPT I-O FEEDBACK [Archiv] - [NEWSboard IBMi Forum]

RLurati

13-07-04, 14:06

Wer kann mir bitte ein Beispiel geben, wie man in einem Cobol-Programm ACCEPT I-O FEEDBACK anwendet.

Danke und Gruss
Reno Lurati

Ralle

13-07-04, 15:14

Hallo Reno,

vielleicht hilft dieser Link weiter:

http://archive.midrange.com/cobol400-l/200304/msg00018.html

Gruß
Ralle

Ralle

13-07-04, 15:16

oder dieser:

http://www.mcpressonline.com/mc/.5bfa461a!sectionID=.5bfbaea8

Fuerchau

13-07-04, 18:56

Am besten schaust du in die COBOL-Handbücher:
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/info/rzahgcobol.htm

In den PDF-Dateien findest du alles was du brauchst über I-O-FEEDBACK und OPEN-FEEDBACK.

LGALF

14-07-04, 12:32

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

RLurati

14-07-04, 12:42

Danke vielmals LGALF
für Deine so ausführliche Erklärung/Darstellung (Source).

Gruss Reno

Peet

02-06-20, 12:25

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

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

KingofKning

02-06-20, 13:04

Und wenn Ihr dann noch die Zauberworte CODE /CODE jeweils in eckigen Klammern benutzt hättet, wäre die Formatierung ganz geblieben.

Fuerchau

02-06-20, 13:58

Das schöne an COBOL ist: COBOL bleibt COBOL.
An der I-O-FEEDBACK änderte sich da sowieso nichts.
https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_73/dm/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/knowledgecenter/ssw_ibm_i_74/rzajq/rzajqservicesspool.htm

Zumindest USER_DATA gibts bereits:
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_74/rzajq/rzajqviewoutqentriesbasic.htm

Die OUTQ bekommst du allerdings auch wieder nur per API.