COBOL example

GDDM V3R2 Base Application Programming Reference

COBOL example

GDDM V3R2 Base Application Programming Reference
SC33-0868-02

Suppose that in the Map Characteristics frame (2.1) of GDDM-IMD, you entered:


     PROGRAM LANGUAGE ==> COBOL

Next, suppose that in the Application Structure Review frame (2.5), you are defining the characteristics of a data field that you have named SPECNAME. You want to be able to:

Set the cursor in the field under application program control
Have dynamic control of extended highlighting
Specify the length of data in the field.

You therefore enter "#HL" in the ADJUNCT column against the field name.

As a result of this entry, the application data structure contains, for the field SPECNAME, a cursor adjunct (1 byte), a highlighting adjunct (2 bytes), a length adjunct (2 bytes), plus the data field itself, whose length is as defined in the map (say 25 bytes).

GDDM-IMD names the adjunct fields by suffixing the data field name supplied by the user. So, for example, the cursor adjunct field is named SPECNAME-CURSOR.

The portion of the application data structure that is generated for SPECNAME is:


     10  SPECNAME-CURSOR      PIC X.
     10  SPECNAME-HI-SEL      PIC X.
     10  SPECNAME-HI          PIC X.
     10  SPECNAME-LENGTH      PIC 999 COMP.
     10  SPECNAME             PIC X(25).

Notices | Terms of use | Support | Contact z/OS