How to Generate Symbolic Variables in CICS

Symbolic map is useful to create navigation screen for users using CICS transaction server. Here is sample code on how to generate it.

CICS provides all the facilities to develop maps.

• During development you need to write physical map in a specified library for development. Read more on symbolic and physical maps here.

• When you compile the physical map by using any Mainframe tools like Changeman, Endevor, IBM-debugger etc., it creates symbolic map.
• I am giving here best two physical map sample code, also how symbolic maps create and look like.

The point is your program needs always symbolic map. The physical map is for CICS internal use and you no need to worry about this.

1. Map1 (Physical Map)

FILE02  DFHMSD TYPE=&SYSPARM,                           X
MODE=INOUT,                                             X
TIOAPFX=YES,                                            X
STORAGE=AUTO,                                           X
LANG=COBOL,                                             X
CTRL=(FRSET,FREEKB)
FILE1   DFHMDI SIZE=(24,80),LINE=1,COLUMN=1
DFHMDF INITIAL='EMP DETAIL',POS=(1,35),LENGTH=10,ATTRB=ASKIP
DFHMDF INITIAL='ENTER EMP NO :',POS=(06,11),LENGTH=14,   X
ATTRB=PROT
EID1    DFHMDF POS=(06,26),LENGTH=4,ATTRB=(UNPROT,IC),   X
INITIAL='____'
MSG1    DFHMDF POS=(10,11),LENGTH=18,ATTRB=UNPROT
FILE02  DFHMSD TYPE=FINAL
END

Also read: CICS online Quiz to refresh quickly

2. Symbolic map for map1(Map name)

01  FILE1I.
02  FILLER PIC            PIC X(12).
02  EID1L    COMP         PIC S9(4).
02  EID1F    PICTURE      PIC X(01).
02  FILLER REDEFINES EID1F.
03 EID1A              PIC X(01).
02  EID1I                 PIC X(04).
02  MSG1L    COMP         PIC S9(04).
02  MSG1F    PICTURE X.
02  FILLER REDEFINES MSG1F.
03 MSG1A    PICTURE X.
02  MSG1I  PIC X(18).
01  FILE1O REDEFINES FILE1I.
02  FILLER PIC X(12).
02  FILLER PICTURE X(3).
02  EID1O  PIC X(4).
02  FILLER PICTURE X(3).
02  MSG1O  PIC X(18).
 

Example code…

3. Physical map2

FILE01  DFHMSD TYPE=&SYSPARM,                           X
MODE=INOUT,                                             X
TIOAPFX=YES,                                            X
STORAGE=AUTO,                                           X
LANG=COBOL,                                             X
CTRL=(FRSET,FREEKB)
FILE    DFHMDI SIZE=(24,80),LINE=1,COLUMN=1
DFHMDF INITIAL='EMP DETAIL',POS=(1,35),LENGTH=10,ATTRB=ASKIP
DFHMDF INITIAL='EMP ID    :',POS=(03,11),LENGTH=11,ATTRB=ASKIP
EID     DFHMDF POS=(03,24),LENGTH=4,ATTRB=(UNPROT,IC),    X
INITIAL='____'
DFHMDF INITIAL='EMP NAME  :',POS=(05,11),LENGTH=11,ATTRB=ASKIP
ENAME   DFHMDF POS=(05,24),LENGTH=10,ATTRB=UNPROT,        X
INITIAL='__________'
DFHMDF INITIAL='EMP SALARY:',POS=(07,11),                 X
LENGTH=11,ATTRB=PROT
ESAL    DFHMDF POS=(07,24),ATTRB=(UNPROT,NUM),            X
LENGTH=05,                                                X
INITIAL='_____'
MSG     DFHMDF POS=(10,11),LENGTH=18,ATTRB=UNPROT
FILE01  DFHMSD TYPE=FINAL
END

4. Symbolic map for map2(Map name)

01  FILEI.
02  FILLER PIC X(12).
02  EIDL    COMP  PIC  S9(4).
02  EIDF    PICTURE X.
02  FILLER REDEFINES EIDF.
03 EIDA    PICTURE X.
02  EIDI  PIC X(4).
02  ENAMEL    COMP  PIC  S9(4).
02  ENAMEF    PICTURE X.
02  FILLER REDEFINES ENAMEF.
03 ENAMEA    PICTURE X.
02  ENAMEI  PIC X(10).
02  ESALL    COMP  PIC  S9(4).
02  ESALF    PICTURE X.
02  FILLER REDEFINES ESALF.
03 ESALA    PICTURE X.
02  ESALI  PIC X(5).
02  MSGL    COMP  PIC  S9(4).
02  MSGF    PICTURE X.
02  FILLER REDEFINES MSGF.
03 MSGA    PICTURE X.
02  MSGI  PIC X(18).
01  FILEO REDEFINES FILEI.
02  FILLER PIC X(12).
02  FILLER PICTURE X(3).
02  EIDO  PIC X(4).
02  FILLER PICTURE X(3).
02  ENAMEO  PIC X(10).
02  FILLER PICTURE X(3).
02  ESALO  PIC X(5).
02  FILLER PICTURE X(3).
02  MSGO  PIC X(18).

Keep Reading