CTRL, AS/400 and COBOL

370 pts.
Tags:
AS/400
COBOL
How can we check through COBOL program that a CTRL or ENTER key is pressed. Is there any keyword for it?

Software/Hardware used:
as400

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Discuss This Question: 4  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • TomLiotta
    Specify an I-O-FEEDBACK area in your program and use ACCEPT to fill the feedback area. The format of the area is in I/O feedback area for ICF and display files in the Information Center. The same feedback area is available in all HLLs.
    .
    Tom
    125,585 pointsBadges:
    report
  • Durgesh813
    thanks
    370 pointsBadges:
    report
  • gast951
    Is this example what you are loking for? INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT MYSCREEN ASSIGN TO WORKSTATION-MYSCREEN ORGANIZATION IS TRANSACTION CONTROL-AREA IS TRANSACTION-CONTROL-AREA. ... DATA DIVISION. FILE SECTION. FD MYSCREEN LABEL RECORDS STANDARD. 01 MYSCREEN-REC. COPY DDS-ALL-FORMATS OF MYSCREEN. ... WORKING-STORAGE SECTION. *---------- Transaction Control Area --------------------------- * FT: 00=Enter. 01..24=FunctionKeys. 90=PageUp 91=PageDown * 92=Print etc. 01 TRANSACTION-CONTROL-AREA. 02 FT PIC XX. 02 TERMINAL-ID PIC X(10). 02 FORMAT-NAME PIC X(10). ... PROCEDURE DIVISION. WRITE MYSCREEN-REC FORMAT "MYSCREEN". READ MYSCREEN FORMAT "MYSCREEN". IF FT = 03 THEN STOP RUN. IF FT = 11 THEN PERFORM SUBPGM-FKEY-11.
    85 pointsBadges:
    report
  • TomLiotta
    If you understand the use of the I-O feedback area, then the use of the CONTROL-AREA clause in a FILE-CONTROL paragraph for a transaction file can simplify it.
    .
    Tom
    125,585 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following