vplus/VGETKEYLABEL.cbl at main · cloud3000/vplus · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
>>source format free.
*>*****************************************************************
*>                   V G E T K E Y L A B E L                      *
*>*****************************************************************
 IDENTIFICATION DIVISION.
 PROGRAM-ID. VGETKEYLABEL.
 AUTHOR.     MICHAEL ANDERSON.
 ENVIRONMENT DIVISION.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01 xforg         PIC ----9.
 01 xKEYLABEL     PIC ----9.
 01 KEYLABEL-STRING.
    05 KL-LINE1 PIC X(8) VALUE SPACES.
    05 KL-CRLF  PIC XX   VALUE X"0D0A".
    05 KL-LINE2 PIC X(8) VALUE SPACES.
 01 SP2-PR-ID   PIC S9(4) COMP-5 VALUE 0.
 01 DebugBUF     pic x(256)  VALUE SPACES.
 01 GLOBAL-ADDRESS1       USAGE POINTER.
*>########################################################
 LINKAGE SECTION.
    COPY "vplus/COMAREA".
 01 forg          PIC S9(4) COMP-5.
 01 KEYLABEL      PIC S9(4) COMP-5.
 01 LABELX        PIC X(16).
    COPY "vplus/VPLUSMEM".
*>########################################################
 PROCEDURE DIVISION USING COMAREA forg KEYLABEL LABELX.
*>---------------------------------------------------------*
 0000-BEGIN-VGETKEYLABEL.
     CALL "GetPtrVplusBlock1" USING GLOBAL-ADDRESS1.
     SET ADDRESS OF VPLUSMEM TO GLOBAL-ADDRESS1.

     move LOW-VALUES TO INTR-CALLNAME
     string "VGETKEYLABEL "
      delimited by "  " into INTR-CALLNAME.

     Move forg     To xforg.
     Move KEYLABEL To XKEYLABEL.
     INITIALIZE LABELX.

     If KEYLABEL > 8
        Move 8 To KEYLABEL.

     If KEYLABEL < 1
        Move 1 To KEYLABEL.

     MOVE HOT-KEY-LABEL(KEYLABEL) TO LABELX.

     Goback.