[NEWSboard IBMi Forum]
  1. #1
    Registriert seit
    Jun 2004
    Beiträge
    24

    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

  2. #2
    Registriert seit
    Feb 2003
    Beiträge
    46
    Hallo Reno,

    vielleicht hilft dieser Link weiter:

    http://archive.midrange.com/cobol400.../msg00018.html

    Gruß
    Ralle

  3. #3
    Registriert seit
    Feb 2003
    Beiträge
    46
    oder dieser:

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

  4. #4
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    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.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  5. #5
    Registriert seit
    Jul 2001
    Beiträge
    68

    Smile 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

  6. #6
    Registriert seit
    Jun 2004
    Beiträge
    24

    Thumbs up

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

    Gruss Reno

  7. #7
    Registriert seit
    Jan 2003
    Beiträge
    290

    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 Zitat von LGALF Beitrag anzeigen
    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

  8. #8
    Registriert seit
    Aug 2006
    Beiträge
    2.074
    Und wenn Ihr dann noch die Zauberworte CODE /CODE jeweils in eckigen Klammern benutzt hättet, wäre die Formatierung ganz geblieben.

  9. #9
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    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.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

Similar Threads

  1. INFDS und Post?
    By robertki in forum NEWSboard Programmierung
    Antworten: 8
    Letzter Beitrag: 02-02-07, 13:27
  2. CPF5063 bei ACCEPT
    By Neptun in forum NEWSboard Programmierung
    Antworten: 9
    Letzter Beitrag: 18-03-05, 12:47
  3. Cursor Position nach ACCEPT (*EXTACCDSP)
    By Neptun in forum NEWSboard Programmierung
    Antworten: 4
    Letzter Beitrag: 16-03-05, 17:24
  4. ACCEPT in COBOL: Cursor-Tasten als "Exception-Keys"
    By Neptun in forum IBM i Hauptforum
    Antworten: 6
    Letzter Beitrag: 08-03-05, 23:38
  5. ILE Cobol: accept aTimestamp from timestamp?
    By rebe in forum IBM i Hauptforum
    Antworten: 1
    Letzter Beitrag: 26-09-01, 09:46

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •