Subject: | |
From: | |
Reply To: | |
Date: | Wed, 6 May 1998 09:46:13 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Thanks alot. This solution worked great!!!
[log in to unmask] on 05/05/98 04:12:26 PM
To: [log in to unmask]
cc: (bcc: Ron Horner/MIS/CorpCtrl/STO)
Subject: Re: Trap Processing
Ron Horner wrote:
>
> Does anyone have a example of COBOL source that performs the
> control-Y trap. I'm trying to put something together and I
> want to use control-Y.
>
> Thanks!!
Here's our CONTROLY source file:
---------------------------------------------------------------------
1 $PAGE
1.1 $CONTROL BOUNDS, DYNAMIC, LIST, POST85, SOURCE
1.2
1.3 ****************************************************************
1.4 * *
1.5 * CONTROLY.SOURCE 11/15/94 T. ERICSON *
1.6 * *
1.7 * THIS SUBPROGRAM ARMS A CONTROL-Y TRAP, AND MUST BE CALLED *
1.8 * FROM A MAIN PROGRAM. THE FOLLOWING CODE MUST BE INCLUDED *
1.9 * IN THE MAIN PROGRAM: *
2 * *
2.1 * . *
2.2 * . *
2.3 * . *
2.4 * WORKING-STORAGE SECTION. *
2.5 * *
2.6 * 01 CONTROL-Y EXTERNAL PIC X. *
2.7 * 88 CONTROL-Y-HIT VALUE "Y". *
2.8 * 88 CONTROL-Y-OFF VALUE "N". *
2.9 * *
3 * . *
3.1 * . *
3.2 * . *
3.3 * PROCEDURE DIVISION. *
3.4 * *
3.5 * CALL "ARM-CONTROL-Y". *
3.6 * *
3.7 * . *
3.8 * . *
3.9 * . *
4 * LOOP-POINT. *
4.1 * *
4.2 * . *
4.3 * . *
4.4 * . *
4.5 * IF CONTROL-Y-HIT *
4.6 * DISPLAY "DO YOU WISH TO CONTINUE? " *
4.7 * WITH NO ADVANCING *
4.8 * ACCEPT ANSWER *
4.9 * IF ANSWER = "N" *
5 * STOP RUN *
5.1 * END-IF *
5.2 * SET CONTROL-Y-OFF TO TRUE. *
5.3 * *
5.4 * GO TO LOOP-POINT. *
5.5 * . *
5.6 * . *
5.7 * . *
5.8 * *
5.9 * COMPILE AND LINK THE TWO SOURCE FILES TOGETHER LIKE THIS: *
6 * *
6.1 * :COB85XL MAINSOURCE, USLMAIN *
6.2 * :COB85XL CONTROLY.SOURCE, USLSUB *
6.3 * :LINK FROM=USLMAIN, USLSUB; TO=PROGRAMFILE *
6.4 * *
6.5 ****************************************************************
6.6
6.7 $PAGE
6.8 IDENTIFICATION DIVISION.
6.9 PROGRAM-ID. ARM-CONTROL-Y.
7
7.1 DATA DIVISION.
7.2 WORKING-STORAGE SECTION.
7.3
7.4 01 PROCNAME PIC X(20) VALUE "!control_y_trap!".
7.5 01 PLABEL PIC S9(09) COMP.
7.6 01 OLDPLABEL PIC S9(09) COMP.
7.7 01 PROGFILE PIC X(40).
7.8
7.9 01 CONTROL-Y EXTERNAL PIC X.
8 88 CONTROL-Y-HIT VALUE "Y".
8.1 88 CONTROL-Y-OFF VALUE "N".
8.2
8.3 PROCEDURE DIVISION.
8.4
8.5 01-START.
8.6
8.7 CALL INTRINSIC "HPMYPROGRAM"
8.8 USING PROGFILE.
8.9 CALL INTRINSIC "HPGETPROCPLABEL"
9 USING PROCNAME PLABEL \\ PROGFILE.
9.1 CALL INTRINSIC "XCONTRAP"
9.2 USING PLABEL OLDPLABEL.
9.3 EXIT PROGRAM.
9.4
9.5 ENTRY "CONTROL-Y-TRAP".
9.6
9.7 DISPLAY "< CONTROL Y >".
9.8 DISPLAY " ".
9.9 SET CONTROL-Y-HIT TO TRUE.
10 CALL INTRINSIC "RESETCONTROL".
10.1
---------------------------------------------------------------------
Disclaimer: I may have copied most of that from the COBOL Reference
Manual (or some other such manual) !!!
HTH.
+------------------------------------------------------------------+
My mind is my own, as are my ideas and opinions.
My heart, body, and soul, however, all belong to others. Tim.
+------------------------------------------------------------------+
Tim Ericson tericson DenKor Dental Management Corp.
Sr. Programmer/Analyst at denkor (aka Willamette Dental Group)
(& Systems Manager) dot com 503-526-4440 (direct number)
Programming HP3000s since 1983! http://www.denkor.com
+------------------------------------------------------------------+
|
|
|